diff options
author | dos-reis <gdr@axiomatics.org> | 2011-03-20 07:50:21 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-03-20 07:50:21 +0000 |
commit | adac8d95735aa3dc001658f2438b79d1c38a58d4 (patch) | |
tree | 5bc230d898c2a44324976e4096df7fe6f32eac8b /src/algebra/string.spad.pamphlet | |
parent | c311ea4e099e5e497d290b36131edde4d7d4a36f (diff) | |
download | open-axiom-adac8d95735aa3dc001658f2438b79d1c38a58d4.tar.gz |
More cleanups
Diffstat (limited to 'src/algebra/string.spad.pamphlet')
-rw-r--r-- | src/algebra/string.spad.pamphlet | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/algebra/string.spad.pamphlet b/src/algebra/string.spad.pamphlet index 2db40214..74c79801 100644 --- a/src/algebra/string.spad.pamphlet +++ b/src/algebra/string.spad.pamphlet @@ -89,6 +89,7 @@ Character: OrderedFinite() with CC ==> CharacterClass() NNI ==> NonNegativeInteger import CC + import %ccstmax: NonNegativeInteger from Foreign Builtin import %ceq: (%,%) -> Boolean from Foreign Builtin import %clt: (%,%) -> Boolean from Foreign Builtin import %cle: (%,%) -> Boolean from Foreign Builtin @@ -108,7 +109,7 @@ Character: OrderedFinite() with a > b == %cgt(a,b) a <= b == %cle(a,b) a >= b == %cge(a,b) - size() == 256 + size() == %ccstmax index n == char((n - 1)::NNI) lookup c == (1 + ord c)::PositiveInteger char(n: NNI) == %i2c n |