9e216da9ef
After go1.16, go will use module mode by default, even when the repository is checked out under GOPATH or in a one-off directory. Add go.mod, go.sum to keep this repo buildable without opting out of the module mode. > go mod init github.com/mmcgrana/gobyexample > go mod tidy > go mod vendor In module mode, the 'vendor' directory is special and its contents will be actively maintained by the go command. pygments aren't the dependency the go will know about, so it will delete the contents from vendor directory. Move it to `third_party` directory now. And, vendor the blackfriday package. Note: the tutorial contents are not affected by the change in go1.16 because all the examples in this tutorial ask users to run the go command with the explicit list of files to be compiled (e.g. `go run hello-world.go` or `go build command-line-arguments.go`). When the source list is provided, the go command does not have to compute the build list and whether it's running in GOPATH mode or module mode becomes irrelevant.
376 lines
9.7 KiB
Plaintext
376 lines
9.7 KiB
Plaintext
!% $SMALL ! This is ICL, not a comment.
|
|
!% -w
|
|
|
|
!% A comprehensive test of Inform6Lexer.
|
|
|
|
Switches d2SDq;
|
|
|
|
Constant Story "Informal Testing";
|
|
Constant Headline "^Not a game.^";!% This is a comment, not ICL.
|
|
|
|
Release 3;
|
|
Serial "151213";
|
|
Version 5;
|
|
|
|
Ifndef TARGET_ZCODE;
|
|
Ifndef TARGET_GLULX;
|
|
Ifndef WORDSIZE;
|
|
Default WORDSIZE 2;
|
|
Constant TARGET_ZCODE;
|
|
Endif;
|
|
Endif;
|
|
Endif;
|
|
|
|
Ifv3; Message "Compiling to version 3"; Endif;
|
|
Ifv5; Message "Not compiling to version 3"; endif;
|
|
ifdef TARGET_ZCODE;
|
|
#IFTRUE (#version_number == 5);
|
|
Message "Compiling to version 5";
|
|
#ENDIF;
|
|
endif ;
|
|
|
|
Replace CreatureTest;
|
|
|
|
Include "Parser";
|
|
Include "VerbLib";
|
|
|
|
# ! A hash is optional at the top level.
|
|
Object kitchen "Kitchen"
|
|
with description "You are in a kitchen.",
|
|
arr 1 2 3 4,
|
|
has light;
|
|
|
|
#[ Initialise;
|
|
location = kitchen;
|
|
print "v"; inversion; "^";
|
|
];
|
|
|
|
Ifdef VN_1633;
|
|
Replace IsSeeThrough IsSeeThroughOrig;
|
|
[ IsSeeThrough * o;
|
|
return o hasnt opaque || IsSeeThroughOrig(o);
|
|
];
|
|
Endif;
|
|
|
|
Abbreviate "test";
|
|
|
|
Array table buffer 260;
|
|
|
|
Attribute reversed;
|
|
Attribute opaque alias locked;
|
|
Constant to reversed;
|
|
|
|
Property long additive additive long alias;
|
|
Property long long long wingspan alias alias;
|
|
|
|
Class Flier with wingspan 5;
|
|
Class Bird(10) has animate class Flier with wingspan 2;
|
|
|
|
Constant Constant1;
|
|
Constant Constant2 Constant1;
|
|
Constant Constant3 = Constant2;
|
|
Ifdef VN_1633; Undef Constant; Endif;
|
|
|
|
Ifdef VN_1633;
|
|
Dictionary 'word' 1 2;
|
|
Ifnot;
|
|
Dictionary dict_word "word";
|
|
Endif;
|
|
|
|
Fake_action NotReal;
|
|
|
|
Global global1;
|
|
Global global2 = 69105;
|
|
|
|
Lowstring low_string "low string";
|
|
|
|
Iftrue false;
|
|
Message error "Uh-oh!^~false~ shouldn't be ~true~.";
|
|
Endif;
|
|
Iffalse true;
|
|
Message fatalerror "Uh-oh!^~true~ shouldn't be ~false~.";
|
|
Endif;
|
|
|
|
Nearby person "person"
|
|
with name 'person',
|
|
description "This person is barely implemented.",
|
|
life [ * x y z;
|
|
Ask: print_ret (The) self, " says nothing.";
|
|
Answer: print (The) self, " didn't say anything.^"; rfalse;
|
|
]
|
|
has has animate transparent;
|
|
|
|
Object -> -> test_tube "test tube"
|
|
with name 'test' "tube" 'testtube',
|
|
has ~openable ~opaque container;
|
|
|
|
Bird -> pigeon
|
|
with name 'pigeon',
|
|
description [;
|
|
"The pigeon has a wingspan of ", self.&wingspan-->0, " wing units.";
|
|
];
|
|
|
|
Object -> "thimble" with name 'thimble';
|
|
|
|
Object -> pebble "pebble" with name 'pebble';
|
|
|
|
Ifdef TARGET_ZCODE; Trace objects; Endif;
|
|
|
|
Statusline score;
|
|
|
|
Stub StubR 3;
|
|
|
|
Ifdef TARGET_ZCODE;
|
|
Zcharacter "abcdefghijklmnopqrstuvwxyz"
|
|
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
|
"123456789.,!?_#'0/@{005C}-:()";
|
|
Zcharacter table '@!!' '@<<' '@'A';
|
|
Zcharacter table + '@AE' '@{dc}' '@et' '@:y';
|
|
Ifnot;
|
|
Ifdef TARGET_GLULX;
|
|
Message "Glulx doesn't use ~Zcharacter~.^Oh well."; ! '~' and '^' work here.
|
|
Ifnot;
|
|
Message warning "Uh-oh! ^~^"; ! They don't work in other Messages.
|
|
Endif;
|
|
Endif;
|
|
|
|
Include "Grammar";
|
|
|
|
Verb"acquire"'collect'='take';
|
|
|
|
[ NounFilter; return noun ofclass Bird; ];
|
|
|
|
[ ScopeFilter obj;
|
|
switch (scope_stage) {
|
|
1: rtrue;
|
|
2: objectloop (obj in compass) PlaceInScope(obj);
|
|
3: "Nothing is in scope.";
|
|
}
|
|
];
|
|
|
|
Verb meta "t" 'test'
|
|
* 'held' held -> TestHeld
|
|
* number -> TestNumber
|
|
* reversed -> TestAttribute
|
|
* 'creature' creature -> TestCreature
|
|
* 'multiheld' multiheld -> TestMultiheld
|
|
* 'm' multiexcept 'into'/"in" noun -> TestMultiexcept
|
|
* 'm' multiinside 'from' noun -> TestMultiinside
|
|
* multi -> TestMulti
|
|
* 'filter'/'f' noun=NounFilter -> TestNounFilter
|
|
* 'filter'/'f' scope=ScopeFilter -> TestScopeFilter
|
|
* 'special' special -> TestSpecial
|
|
* topic -> TestTopic;
|
|
|
|
Verb 'reverse' 'swap' 'exchange'
|
|
* held 'for' noun -> reverse
|
|
* noun 'with' noun -> reverse reverse;
|
|
|
|
Extend "t" last * noun -> TestNoun;
|
|
|
|
Extend 't' first * -> Test;
|
|
|
|
Extend 'wave' replace * -> NewWave;
|
|
|
|
Extend only 'feel' 'touch' replace * noun -> Feel;
|
|
|
|
[ TestSub "a\
|
|
" b o "@@98"; ! Not an escape sequence.
|
|
string 25 low_string;
|
|
print "Test what?> ";
|
|
table->0 = 260;
|
|
parse->0 = 61;
|
|
#Ifdef TARGET_ZCODE;
|
|
read buffer parse;
|
|
#Ifnot; ! TARGET_GLULX
|
|
KeyboardPrimitive(buffer, parse);
|
|
#Endif; ! TARGET_
|
|
switch (parse-->1) {
|
|
'save':
|
|
#Ifdef TARGET_ZCODE;
|
|
#Ifv3;
|
|
@save ?saved;
|
|
#Ifnot;
|
|
save saved;
|
|
#Endif;
|
|
#Endif;
|
|
print "Saving failed.^";
|
|
'restore':
|
|
#Ifdef TARGET_ZCODE;
|
|
restore saved;
|
|
#Endif;
|
|
print "Restoring failed.^";
|
|
'restart':
|
|
@restart;
|
|
'quit', 'q//':
|
|
quit;
|
|
return 2; rtrue; rfalse; return;
|
|
'print', 'p//':
|
|
print "Print:^",
|
|
" (string): ", (string) "xyzzy^",
|
|
" (number): ", (number) 123, "^",
|
|
" (char): ", (char) 'x', "^",
|
|
" (address): ", (address) 'plugh//p', "^",
|
|
" (The): ", (The) person, "^",
|
|
" (the): ", (the) person, "^",
|
|
" (A): ", (A) person, "^",
|
|
" (a): ", (a) person, "^",
|
|
" (an): ", (an) person, "^",
|
|
" (name): ", (name) person, "^",
|
|
" (object): ", (object) person, "^",
|
|
" (property): ", (property) alias, "^",
|
|
" (<routine>): ", (LanguageNumber) 123, "^",
|
|
" <expression>: ", a * 2 - 1, "^",
|
|
" (<expression>): ", (a + person), "^";
|
|
print "Escapes:^",
|
|
" by mnemonic: @!! @<< @'A @AE @et @:y^",
|
|
" by decimal value: @@64 @@126^",
|
|
" by Unicode value: @{DC}@{002b}^",
|
|
" by string variable: @25^";
|
|
'font', 'style':
|
|
font off; print "font off^";
|
|
font on; print "font on^";
|
|
style reverse; print "style reverse^"; style roman;
|
|
style bold; print "style bold^";
|
|
style underline; print "style underline^";
|
|
style fixed; print "style fixed^";
|
|
style roman; print "style roman^";
|
|
'statements':
|
|
spaces 8;
|
|
objectloop (o) {
|
|
print "objectloop (o): ", (the) o, "^";
|
|
}
|
|
objectloop (o in compass) { ! 'in' is a keyword
|
|
print "objectloop (o in compass): ", (the) o, "^";
|
|
}
|
|
objectloop (o in compass && true) { ! 'in' is an operator
|
|
print "objectloop (o in compass && true): ", (the) o, "^";
|
|
}
|
|
objectloop (o from se_obj) {
|
|
print "objectloop (o from se_obj): ", (the) o, "^";
|
|
}
|
|
objectloop (o near person) {
|
|
print "objectloop (o near person): ", (the) o, "^";
|
|
}
|
|
#Ifdef TARGET_ZCODE;
|
|
#Trace assembly on;
|
|
@ ! This is assembly.
|
|
add -4 ($$1+$3)*2 -> b;
|
|
@get_sibling test_tube -> b ?saved;
|
|
@inc [b];
|
|
@je sp (1+3*0) ? equal;
|
|
@je 1 ((sp)) ?~ different;
|
|
.! This is a label:
|
|
equal;
|
|
print "sp == 1^";
|
|
jump label;
|
|
.different;
|
|
print "sp @@126= 1^";
|
|
.label;
|
|
#Trace off; #Endif; ! TARGET_ZCODE
|
|
a = random(10);
|
|
switch (a) {
|
|
1, 9:
|
|
box "Testing oneself is best when done alone."
|
|
" -- Jimmy Carter";
|
|
2, 6, to, 3 to 5, to to to:
|
|
<Take pigeon>;
|
|
#Ifdef VN_1633;
|
|
<Jump, person>;
|
|
#Endif;
|
|
a = ##Drop;
|
|
< ! The angle brackets may be separated by whitespace.
|
|
< (a) pigeon > >;
|
|
default:
|
|
do {
|
|
give person general ~general;
|
|
} until (person provides life && ~~false);
|
|
if (a == 7) a = 4;
|
|
else a = 5;
|
|
}
|
|
'expressions':
|
|
a = 1+1-1*1/1%1&1|1&&1||1==(1~=(1>(1<(1>=(1<=1)))));
|
|
a++; ++a; a--; --a;
|
|
a = person.life;
|
|
a = kitchen.&arr;
|
|
a = kitchen.#arr;
|
|
a = Bird::wingspan;
|
|
a = kitchen has general;
|
|
a = kitchen hasnt general;
|
|
a = kitchen provides arr;
|
|
a = person in kitchen;
|
|
a = person notin kitchen;
|
|
a = person ofclass Bird;
|
|
a = a == 0 or 1;
|
|
a = StubR();
|
|
a = StubR(a);
|
|
a = StubR(, a);
|
|
a = "string";
|
|
a = 'word';
|
|
a = '''; ! character
|
|
a = $09afAF;
|
|
a = $$01;
|
|
a = ##Eat; a = #a$Eat;
|
|
a = #g$self;
|
|
a = #n$!word;
|
|
a = #r$StubR;
|
|
a = #dict_par1;
|
|
default:
|
|
for (a = 2, b = a; (a < buffer->1 + 2) && (Bird::wingspan): ++a, b--) {
|
|
print (char) buffer->a;
|
|
}
|
|
new_line;
|
|
for (::) break;
|
|
}
|
|
.saved;;
|
|
];
|
|
|
|
[ TestNumberSub;
|
|
print_ret parsed_number, " is ", (number) parsed_number, ".";
|
|
];
|
|
|
|
[ TestAttributeSub; print_ret (The) noun, " has been reversed."; ];
|
|
|
|
[ CreatureTest obj; return obj has animate; ];
|
|
|
|
[ TestCreatureSub; print_ret (The) noun, " is a creature."; ];
|
|
|
|
[ TestMultiheldSub; print_ret "You are holding ", (the) noun, "."; ];
|
|
|
|
[ TestMultiexceptSub; "You test ", (the) noun, " with ", (the) second, "."; ];
|
|
|
|
[ TestMultiinsideSub; "You test ", (the) noun, " from ", (the) second, "."; ];
|
|
|
|
[ TestMultiSub; print_ret (The) noun, " is a thing."; ];
|
|
|
|
[ TestNounFilterSub; print_ret (The) noun, " is a bird."; ];
|
|
|
|
[ TestScopeFilterSub; print_ret (The) noun, " is a direction."; ];
|
|
|
|
[ TestSpecialSub; "Your lucky number is ", parsed_number, "."; ];
|
|
|
|
[ TestTopicSub; "You discuss a topic."; ];
|
|
|
|
[ TestNounSub; "That is ", (a) noun, "."; ];
|
|
|
|
[ TestHeldSub; "You are holding ", (a) noun, "."; ];
|
|
|
|
[ NewWaveSub; "That would be foolish."; ];
|
|
|
|
[ FeelSub; print_ret (The) noun, " feels normal."; ];
|
|
|
|
[ ReverseSub from;
|
|
from = parent(noun);
|
|
move noun to parent(second);
|
|
if (from == to)
|
|
move second to to;
|
|
else
|
|
move second to from;
|
|
give noun to;
|
|
from = to;
|
|
give second from;
|
|
"You swap ", (the) noun, " and ", (the) second, ".";
|
|
];
|
|
|
|
End: The End directive ends the source code.
|