Mercurial > repo

view interps/clc-intercal/inst/lib/perl5/Language/INTERCAL/Include/bitwise-divide.iacc @ 11686:10d612def8ee draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<b_jonas> perl -e for $e ("i","u"){ $f="bin/date$e"; open my$i,"<",$f or die "error open $f r"; local$/; $s=<$i> or die; $s=~s/"\\+%Y/\\${d:+-d "\\$d"} $&/ or die; open $o,">",$f or die "error open $f w: $!"; print $o $s or die; close $o or die; print "OK $f\\n" }
author HackEso <hackeso@esolangs.org>
date Fri, 04 Jan 2019 21:29:08 +0000
parents 859f9b4339e6
children
line wrap: on
line source

	PLEASE NOTE: THIS FILE, LOADED AFTER sick.io, CHANGES THE DEFAULT
		     "ARITHMETIC" UNARY DIVISION TO A "BITWISE" OPERATION.

Copyright (c) 2006-2008 Claudio Calvelli, all rights reserved.

CLC-INTERCAL is copyrighted software. However, permission to use, modify,
and distribute it is granted provided that the conditions set out in the
licence agreement are met. See files README and COPYING in the distribution.

PERVERSION "CLC-INTERCAL INTERCAL/Include/bitwise-divide.iacc 1.-94.-2"

	DO ?TYPE <- ?OPTION
	PLEASE %DM <- #1
	DO GIVE UP