Mercurial > repo
view interps/clc-intercal/inst/lib/perl5/Language/INTERCAL/Include/internet.iacc @ 9071:581584df6d82
<fizzie> revert 942e964c81c1
author | HackBot |
---|---|
date | Sun, 25 Sep 2016 20:17:31 +0000 |
parents | 859f9b4339e6 |
children |
line wrap: on
line source
PLEASE NOTE: IACC FILE TO ADD INTERNET SUPPORT TO SICK 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/internet.iacc 1.-94.-2" DO %TH <- #1 DO ?TYPE <- ?EXTENSION DO CREATE _2 ?VERB ,STEAL, ?NAMES ?STEAL_ON ?STEAL_FROM ?Q_STEAL AS ?Q_STEAL #1 + STE + ?STEAL_FROM #1 + ?STEAL_ON #1 + !NAMES #1 + ?NAMES #1 DO CREATE _2 ?VERB ,SMUGGLE, ?NAMES ?STEAL_ON ?STEAL_FROM ?Q_SMUGGLE AS ?Q_SMUGGLE #1 + SMU + ?STEAL_FROM #1 + ?STEAL_ON #1 + !NAMES #1 + ?NAMES #1 DO CREATE _2 ?GERUND ,STEALING,=1 AS STE DO CREATE _2 ?TEMPLATE ,STEAL, ,REGISTER, ?MAYBE_LIST ?G_STEAL_ON ?G_STEAL_FROM AS STE DO CREATE _2 ?GERUND ,SMUGGLING,=1 AS SMU DO CREATE _2 ?TEMPLATE ,SMUGGLE, ,REGISTER, ?MAYBE_LIST ?G_STEAL_ON ?G_STEAL_FROM AS SMU DO CREATE _2 ?Q_STEAL ,, AS ,, DO CREATE _2 ?Q_STEAL ,WHILE, ,NOT, ,STEALING, ?IT AS QUA DO CREATE _2 ?Q_SMUGGLE ,, AS ,, DO CREATE _2 ?Q_SMUGGLE ,WHILE, ,NOT, ,SMUGGLING, ?IT AS QUA DO CREATE _2 ?STEAL_FROM ,, AS #0 DO CREATE _2 ?STEAL_FROM ,FROM, ?EXPRESSION AS #1 + ?EXPRESSION #1 DO CREATE _2 ?STEAL_ON ,, AS #0 DO CREATE _2 ?STEAL_ON ,ON, ?EXPRESSION AS #1 + ?EXPRESSION #1 DO CREATE _2 ?G_STEAL_FROM ,, AS ,, DO CREATE _2 ?G_STEAL_FROM ,FROM, ,EXPRESSION, AS ,, DO CREATE _2 ?G_STEAL_ON ,, AS ,, DO CREATE _2 ?G_STEAL_ON ,ON, ,EXPRESSION, AS ,, DO CREATE _2 ?VERB ,CASE, ?EXPRESSION ?Q_CASE ,IN, ?CASE_ELEMENTS ?MAYBE_ESAC AS ?Q_CASE #1 + CSE + ?EXPRESSION #1 + !CASE_ELEMENTS #1 + ?CASE_ELEMENTS #1 DO CREATE _2 ?GERUND ,CASING,=1 AS CSE DO CREATE _2 ?TEMPLATE ,CASE, ,EXPRESSION, ,IN, ,CASE_ELEMENTS, ?MAYBE_ESAC AS CSE DO CREATE _2 ?Q_CASE ,, AS ,, DO CREATE _2 ?Q_CASE ,WHILE, ,NOT, ,CASING, AS QUA DO CREATE _2 ?CASE_ELEMENTS ?REGISTER ,THEN, ?VERB=1 AS ?REGISTER #1 + ?VERB #1 DO CREATE _2 ?CASE_ELEMENTS ?REGISTER ,THEN, ?VERB=1 ,OR, ?CASE_ELEMENTS=* AS ?REGISTER #1 + ?VERB #1 + ?CASE_ELEMENTS #1 DO CREATE _2 ?MAYBE_ESAC ,, AS ,, DO CREATE _2 ?MAYBE_ESAC ,ESAC, AS ,, DO GIVE UP