Mercurial > hg > Members > kono > os9 > sbc09
diff TL1/test/t4.tl1 @ 180:c3145f913f3d
possible features
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 04 May 2019 11:17:42 +0900 |
parents | 4d83154d2a78 |
children | aa6398acd2d5 |
line wrap: on
line diff
--- a/TL1/test/t4.tl1 Mon Apr 15 14:21:00 2019 +0900 +++ b/TL1/test/t4.tl1 Sat May 04 11:17:42 2019 +0900 @@ -4,17 +4,16 @@ VAR DICT,BUF ARRAY TEND[2] BEGIN - POSITION(DICT,TEND) - DICT := OPENM($2,0) + DICT := OPENM((INT($2,0)) WRITE(DICT:ASCII(0)) WRITE(DICT:ASCII(30),ASCII(-'P'),"ROC") WRITE(DICT:ASCII(31),ASCII(-'F'),"UNC") WRITE(DICT:ASCII(33),ASCII(-'V'),"AR",CRLF) - POSITION(DICT,TEND) - BUF := OPENM($2,0) + TEND := POSITION(DICT) + BUF := OPENM(INT($2,0)) WRITE(BUF:"FUNC",ASCII(0)) WRITE(0:SEARCH(BUF),CRLF) - SEEK(BUF,0) + SEEK(BUF,INT(0)) WRITE(BUF:"NONAME",ASCII(0)) WRITE(0:SEARCH(BUF),CRLF) END @@ -24,7 +23,7 @@ ARRAY BEND BEGIN VAL := SEEK(DICT,TEND) - POSITION(BUF,BEND) + BEND:=POSITION(BUF) WHILE VAL#0 DO [ C:=SEEKR(BUF,-1) K:=SEEKR(DICT,-1)