1\  Let's make a batch of duplicate definitions in various scopes...
2
3\  Updated Thu, 12 Oct 2006 at 13:17 PDT by David L. Paktor
4
5\  Tracing:  alley-oop   boop   croop   doop   drop   dup   foop
6\            gloop   _harpo   hoop   koop   loop   noop   poop
7\            shtoop   zoop
8\            fontbytes    blink-screen    base   bell
9
10\  alley-oop
11\  boop
12\  croop	Global Macro
13\  doop
14\  drop		Built-in word, aliased, invoked
15\  dup		Built-in word
16\  foop 	Global alias to dup
17\  floop	Global Macro, Alias to flop (alias to drop),
18\                   redefined in subordinate device
19\  gloop	Undefined, invoked
20\  _harpo	Local, in subordinate device
21\  hoop
22\  koop
23\  loop		Built-in word
24\  noop 	Built-in word, redefined in second FCode block
25\  poop
26\  shtoop
27\  zoop
28\  fontbytes		Built-in VALUE
29\  blink-screen 	Built-in DEFER
30\  base 		Built-in VARIABLE
31\  bell 		Built-in CONSTANT
32
33
34alias foop dup
35
36[macro] croop  foop #message" Using FOOP "
37
38alias dup croop
39
40\  Stubs.
41\  These should be global.
42\  But, then, we _are_ injecting errors for this test....
43
44[macro] _{local}  noop  #message" I got yer ""Local"" right here, chum!"
45
46alias {pop-locals} 3drop
47
48f[  h# a5519e  constant  {push-locals}  ]f
49
50
51global-definitions
52
53alias flop drop
54#message" Sync Up Diffs w/ prev. Release."n"n"
55[macro] floop   flop #message" Using FLOOP "
56alias drop floop
57
58device-definitions
59
60f[  false constant  o'ryan  ]f
61
62fcode-version2
63
64: noop  ."  Op?  No!" ;
65[macro] zoop noop #message" I Care."
66: poop  h# -21013572  ;
67
68    new-device
69       : zoop  ." Nothing like the other zoop"  croop ;
70       : croop ." Sort of like F-Troop with a higher GPA..."
71	  foop
72	  drop
73	  floop
74       ;
75       : foop  ." Shop bop-a-looma, a-lop bam boom!" ;
76       : floop ." Oh, Jiggly!" ;
77       : boop { _harpo | _cheeko }
78	   f[  127 constant _harpo ]f
79	   poop -> _cheeko
80	   f[  _cheeko constant a__gent ]f
81	   floop
82       ;
83
84       alias droop drop
85       alias drupe 2drop
86
87       boop    f[  true constant  o'ryan  ]f
88       foop  03 constant 3
89
90       new-device
91	   : moop
92        	_harpo
93		droop
94		drupe
95		boop
96		floop
97	   ;
98	   alias shoop encode-int
99
100	    f[
101		7a63 constant octal
102		boop
103		char-height
104		eval
105		moop
106		shoop
107	     ]f
108
109       finish-device
110
111       : stoop
112            floop
113	    gloop
114	    shoop
115       ;
116       alias coop floop
117       : troop
118           shoop
119	   coop
120	   poop
121       ;
122
123    finish-device
124start4  \  Let's just stick in an extra, and another error besides...
125fcode-end
126
127\ And a few false-starts and ends...
128fcode-end
129
130start0
131   ." What does this button do?"
132end1
133
134start2
135   ." Oh, was I not supposed to touch that?"
136end0
137
138save-image poop.fc   \  Not gonna happen anyway...
139