diff options
author | dos-reis <gdr@axiomatics.org> | 2012-05-23 04:50:38 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-05-23 04:50:38 +0000 |
commit | b12753cada058f5fafd9f6aeaa7d2e932eb8ff23 (patch) | |
tree | 8bdb159cd3a573d179c2efa68832937695055574 /src/interp/scan.boot | |
parent | a8faa740f1e13fce63ac23326a227655bca7a0b2 (diff) | |
download | open-axiom-b12753cada058f5fafd9f6aeaa7d2e932eb8ff23.tar.gz |
* interp/br-search.boot: Use findChar and findString in lieu of STRPOS.
* interp/database.boot: Likewise.
* interp/format.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-map.boot: Likewise.
* interp/match.boot: Likewise.
* interp/scan.boot: Likewise.
* interp/trace.boot: Likewise.
Diffstat (limited to 'src/interp/scan.boot')
-rw-r--r-- | src/interp/scan.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/scan.boot b/src/interp/scan.boot index 3f55284f..c314a439 100644 --- a/src/interp/scan.boot +++ b/src/interp/scan.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2011, Gabriel Dos Reis. +-- Copyright (C) 2007-2012, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -446,8 +446,8 @@ scanS()== ncSoftError([$linepos,:lnExtraBlanks $linepos+$n],"S2CN0001",[]) '"" n := $n - strsym := STRPOS ('"_"",$ln,$n,nil) or $sz - escsym := STRPOS ('"__",$ln,$n,nil) or $sz + strsym := findChar(char "_"",$ln,$n) or $sz + escsym := findChar(char "__",$ln,$n) or $sz mn := MIN(strsym,escsym) mn = $sz => $n:=$sz @@ -606,8 +606,8 @@ scanExponent(a,w)== lffloat(a,w,'"0") rdigit? x== - d := STRPOS(x,$RDigits,0,nil) => d - d := STRPOS(x,$smallLetters,0,nil) => 10 + d + d := findChar(x,$RDigits) => d + d := findChar(x,$smallLetters) => 10 + d nil scanError()== |