Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/test/t4.tl1 @ 177:3770e86114aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
TL/1 fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 15 Apr 2019 04:27:18 +0900
parents 6ef317714ae8
children 4d83154d2a78
comparison
equal deleted inserted replaced
176:6ef317714ae8 177:3770e86114aa
22 SEARCH(BUF) 22 SEARCH(BUF)
23 VAR VAL,K,C,D 23 VAR VAL,K,C,D
24 ARRAY BEND 24 ARRAY BEND
25 BEGIN 25 BEGIN
26 VAL := SEEK(DICT,TEND) 26 VAL := SEEK(DICT,TEND)
27 POSITION(BUF,BEND) 27 D:=POSITION(BUF,BEND)
28 WHILE VAL#0 DO [ 28 WHILE VAL#0 DO [
29 C:=SEEKR(BUF,-1) 29 C:=SEEKR(BUF,0-1)
30 K:=SEEKR(DICT,-1) 30 K:=SEEKR(DICT,0-1)
31 IF K.LT.0 THEN [ 31 IF K.LT.0 THEN [
32 IF C=-K THEN 32 IF C=0-K THEN
33 RETURN VAL % FOUND 33 RETURN VAL % FOUND
34 VAL := SEEKR(DICT,-1) 34 VAL := SEEKR(DICT,0-1)
35 ] ELSE IF C#K THEN [ 35 ] ELSE IF C#K THEN [
36 D:=SEEK(BUF,BEND) 36 D:=SEEK(BUF,BEND)
37 REPEAT 37 REPEAT
38 K:=SEEKR(DICT,-1) 38 K:=SEEKR(DICT,0-1)
39 UNTIL K.LT.0 39 UNTIL K.LT.0
40 VAL := SEEKR(DICT,-1) 40 VAL := SEEKR(DICT,0-1)
41 ] 41 ]
42 ] 42 ]
43 RETURN VAL % NOT FOUND 43 RETURN VAL % NOT FOUND
44 END 44 END