Mercurial > hg > Members > kono > os9 > sbc09
annotate TL1/test/t4.tl1 @ 191:d0f5894e9b3a default tip
some how load: confilicts in gmake
author | kono |
---|---|
date | Thu, 07 Dec 2023 09:37:15 +0900 |
parents | aa6398acd2d5 |
children |
rev | line source |
---|---|
175 | 1 % ** TEST PROGRAM ** |
176 | 2 FUNC SEARCH |
3 %--- MAIN --- | |
178
4d83154d2a78
add - {} some builtin in TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
177
diff
changeset
|
4 VAR DICT,BUF |
181
63de06ad7a49
add LISP09 (not yet finished)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
178
diff
changeset
|
5 ARRAY TEND[1] |
176 | 6 BEGIN |
181
63de06ad7a49
add LISP09 (not yet finished)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
178
diff
changeset
|
7 TELL(DICT,TEND) |
176 | 8 DICT := OPENM($2,0) |
9 WRITE(DICT:ASCII(0)) | |
178
4d83154d2a78
add - {} some builtin in TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
177
diff
changeset
|
10 WRITE(DICT:ASCII(30),ASCII(-'P'),"ROC") |
4d83154d2a78
add - {} some builtin in TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
177
diff
changeset
|
11 WRITE(DICT:ASCII(31),ASCII(-'F'),"UNC") |
4d83154d2a78
add - {} some builtin in TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
177
diff
changeset
|
12 WRITE(DICT:ASCII(33),ASCII(-'V'),"AR",CRLF) |
181
63de06ad7a49
add LISP09 (not yet finished)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
178
diff
changeset
|
13 TELL(DICT,TEND) |
176 | 14 BUF := OPENM($2,0) |
15 WRITE(BUF:"FUNC",ASCII(0)) | |
16 WRITE(0:SEARCH(BUF),CRLF) | |
178
4d83154d2a78
add - {} some builtin in TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
177
diff
changeset
|
17 SEEK(BUF,0) |
176 | 18 WRITE(BUF:"NONAME",ASCII(0)) |
19 WRITE(0:SEARCH(BUF),CRLF) | |
20 END | |
175 | 21 |
176 | 22 SEARCH(BUF) |
178
4d83154d2a78
add - {} some builtin in TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
177
diff
changeset
|
23 VAR VAL,K,C |
181
63de06ad7a49
add LISP09 (not yet finished)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
178
diff
changeset
|
24 ARRAY BEND[1] |
176 | 25 BEGIN |
26 VAL := SEEK(DICT,TEND) | |
181
63de06ad7a49
add LISP09 (not yet finished)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
178
diff
changeset
|
27 TELL(BUF,BEND) |
176 | 28 WHILE VAL#0 DO [ |
178
4d83154d2a78
add - {} some builtin in TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
177
diff
changeset
|
29 C:=SEEKR(BUF,-1) |
4d83154d2a78
add - {} some builtin in TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
177
diff
changeset
|
30 K:=SEEKR(DICT,-1) |
176 | 31 IF K.LT.0 THEN [ |
178
4d83154d2a78
add - {} some builtin in TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
177
diff
changeset
|
32 IF C=-K THEN |
176 | 33 RETURN VAL % FOUND |
178
4d83154d2a78
add - {} some builtin in TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
177
diff
changeset
|
34 VAL := SEEKR(DICT,-1) |
176 | 35 ] ELSE IF C#K THEN [ |
178
4d83154d2a78
add - {} some builtin in TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
177
diff
changeset
|
36 SEEK(BUF,BEND) |
176 | 37 REPEAT |
178
4d83154d2a78
add - {} some builtin in TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
177
diff
changeset
|
38 K:=SEEKR(DICT,-1) |
176 | 39 UNTIL K.LT.0 |
178
4d83154d2a78
add - {} some builtin in TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
177
diff
changeset
|
40 VAL := SEEKR(DICT,-1) |
175 | 41 ] |
42 ] | |
176 | 43 RETURN VAL % NOT FOUND |
44 END |