File: ToAtEnd.fth

package info (click to toggle)
fcode-utils 1.0.3-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 46,768 kB
  • sloc: ansic: 9,717; csh: 241; makefile: 129; sh: 17
file content (34 lines) | stat: -rw-r--r-- 731 bytes parent folder | download | duplicates (20)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
\  Confirm that I now catch the error where
\     "to"  is the last thing in the input

\  Updated Mon, 03 Apr 2006 at 16:03 PDT by David L. Paktor

fcode-version2
headers
global-definitions
alias poo to
device-definitions

\  We're also going to throw in a quickie test for how we handle
\      attempts to create an alias to a Local.
[flag] Local-Values
fload LocalValuesSupport.fth

:  gnarggghhh!  { _gnarly _dood | _hang_ten }
    alias _cool _gnarly
  _cool _dood + -> _hang_ten
;
_cool
   _gnarly
      _dood 
          _hang_ten
variable shmoo
\  What's the world coming to?
h# 5417 value merde
h# 4ead poo
     merde
h# f09e4ead poo gnarggghhh!
h# f09e4ead to gnarggghhh!
h# f09e4ead poo shmoo
h# f09e4ead poo 1
merde poo