diff options
Diffstat (limited to 'src/algebra/string.spad.pamphlet')
| -rw-r--r-- | src/algebra/string.spad.pamphlet | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/algebra/string.spad.pamphlet b/src/algebra/string.spad.pamphlet index 1e08bf30..058da44a 100644 --- a/src/algebra/string.spad.pamphlet +++ b/src/algebra/string.spad.pamphlet @@ -208,14 +208,14 @@ CharacterClass: Join(SetCategory, ConvertibleTo String, empty():% == charClass [] brace():% == charClass [] - insert_!(c, a) == (a(ord c) := true; a) - remove_!(c: Character, a:%) == (a(ord c) := false; a) + insert!(c, a) == (a(ord c) := true; a) + remove!(c: Character, a:%) == (a(ord c) := false; a) inspect(a) == for i in 0..N-1 | a.i repeat return char i error "Cannot take a character from an empty class." - extract_!(a) == + extract!(a) == for i in 0..N-1 | a.i repeat a.i := false return char i @@ -227,10 +227,10 @@ CharacterClass: Join(SetCategory, ConvertibleTo String, b temp: % := new(N, false)$Rep - map_!(f, a) == - fill_!(temp, false) + map!(f, a) == + fill!(temp, false) for i in 0..N-1 | a.i repeat temp(ord f char i) := true - copyInto_!(a, temp, 0) + copyInto!(a, temp, 0) parts a == [char i for i in 0..N-1 | a.i] @@ -282,8 +282,8 @@ IndexedString(mn:Integer): Export == Implementation where insert(s:%, t:%, i:I) == concat(concat(s(mn..i-1), t), s(i..)) coerce(s:%):OutputForm == outputForm(s pretend String) minIndex s == mn - upperCase_! s == map_!(upperCase, s) - lowerCase_! s == map_!(lowerCase, s) + upperCase! s == map!(upperCase, s) + lowerCase! s == map!(lowerCase, s) latex s == concat("\mbox{``", concat(s pretend String, "''}")) @@ -347,7 +347,7 @@ IndexedString(mn:Integer): Export == Implementation where l := concat(s(i..j-1), l) for i in j..n while s.i = c repeat 0 if i <= n then l := concat(s(i..n), l) - reverse_! l + reverse! l split(s, cc) == n := maxIndex s @@ -359,7 +359,7 @@ IndexedString(mn:Integer): Export == Implementation where l := concat(s(i..j-1), l) for i in j..n while member?(s.i,cc) repeat 0 if i <= n then l := concat(s(i..n), l) - reverse_! l + reverse! l leftTrim(s, c) == n := maxIndex s @@ -387,11 +387,11 @@ IndexedString(mn:Integer): Export == Implementation where t := new(+/[#s for s in l], space$C) i := mn for s in l repeat - copyInto_!(t, s, i) + copyInto!(t, s, i) i := i + #s t - copyInto_!(y, x, s) == + copyInto!(y, x, s) == m := #x n := #y s := s - mn |