File: TokExstCondNada_02.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 (71 lines) | stat: -rw-r--r-- 1,977 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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
\  What happens to "Exists" Conditionals test when the
\       target isn't on the same line?
\  Or the "Defined" Conditionals, for that matter
\  Common code (insert obligatory sneeze here)
\  FLoaded only after necessary preliminary test.

\  Updated Tue, 21 Feb 2006 at 15:58 PST by David L. Paktor

." Begin Nest Test Test"
[yestest]
   ." Exists, level 1"
   [yestest]
	." Exists and exists, level 2"
   [else]
	." Exists but doesn't exist.  What?  Level 2"
   [then]
   ." Resumes existence, level 1"
   [notest]
	." Exists but not exists.  What?  Level 2"
   [else]
	." Exists and doesn't not exist, level 2"
   [then]
   ." Still exists, level 1"
[else]
    ." Doesn't exist, level 1"
    [yestest]
	." Doesn't exist but exists.  What?  Level 2"
    [else]
	." Doesn't exist and doesn't exist, level 2"
    [then]
    " Resumes non-existence, level 1"
    [notest]
	." Doesn't exist and not exists, level 2"
    [else]
	." Doesn't exist but doesn't not exist.  What?  Level 2"
    [then]
   ." Still doesn't exist, level 1"
[then]

." Middle of Nest Test Test"
[notest]
    ." Not exists, pass 2, level 1"
    [yestest]
	." Not exists but exists.  What?  Pass 2, Level 2"
    [else]
	." Not exists and doesn't exist, pass 2, level 2"
    [then]
    " Resumes non-existence, pass 2, level 1"
    [notest]
	." Not exists and not exists, pass 2, level 2"
    [else]
	." Not exists but doesn't not exist.  What?  Pass 2, Level 2"
    [then]
   ." Still not exists, pass 2, level 1"
[else]
    ." Doesn't not exist, pass 2, level 1"
    [yestest]
	." Doesn't not exist and exists, pass 2, level 2"
    [else]
	." Doesn't not exist but doesn't exist.  What?  Pass 2, Level 2"
    [then]
    " Resumes not non-existing, pass 2, level 1"
    [notest]
	." Doesn't not exist but not exists.  What?  Pass 2, Level 2"
    [else]
	." Doesn't not exist and doesn't not exist, pass 2, level 1"
    [then]
   ." Still doesn't not exist, pass 2, level 1"
[then]

." End Nest Test Test"