Mercurial > repo

view interps/clc-intercal/inst/lib/perl5/Language/INTERCAL/Include/thick.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 ick.io, CHANGES THE "COME FROM"
		     STATEMENT TO BEHAVE LIKE Threaded INTERCAL
		     THIS WOULD CORRESPOND TO THE OLD THICK COMPILER,
		     OR TO A MODERN ick -m; THIS WORKS WITH sick.io TOO.

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/thick.iacc 1.-94.-2"

	DO ?TYPE <- ?OPTION
	DO STASH %BA
	DO %BA <- #2
	DO %CF <- '%CF ~ #2' ¢ #1
	DO RETRIEVE %BA
	DO GIVE UP