diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-09 23:52:03 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-09 23:52:03 +0000 |
| commit | 1a6897a86c7bcd48f6e4bc24a7a48c967fc9c55b (patch) | |
| tree | c5746c3febce574e3c6dabbcf08834f4f2317fcc /src/interp | |
| parent | ee5f884091799322e27986439f0b52e91dc4b93e (diff) | |
| download | open-axiom-1a6897a86c7bcd48f6e4bc24a7a48c967fc9c55b.tar.gz | |
Cleanup
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/scan.boot | 38 |
1 files changed, 18 insertions, 20 deletions
diff --git a/src/interp/scan.boot b/src/interp/scan.boot index 865047ae..3cda5b55 100644 --- a/src/interp/scan.boot +++ b/src/interp/scan.boot @@ -655,26 +655,24 @@ subMatch(l,i) == substringMatch(l,scanDict,i) substringMatch (l,d,i)== - h:= QENUM(l, i) - u:=d.h - ll:=SIZE l - done:=false - s1:='"" - for j in 0.. SIZE u - 1 while not done repeat - s:=u.j - ls:=SIZE s - done:=if ls+i > ll - then false - else - eql:= true - for k in 1..ls-1 while eql repeat - eql:= EQL(QENUM(s,k),QENUM(l,k+i)) - if eql - then - s1:=s - true - else false - s1 + h := QENUM(l, i) + u := d.h + ll := #l + done := false + s1 := '"" + for j in 0..#u - 1 while not done repeat + s := u.j + ls := #s + done := + ls+i > ll => false + eql := true + for k in 1..ls-1 while eql repeat + eql := QENUM(s,k) = QENUM(l,k+i) + eql => + s1 := s + true + false + s1 |