diff options
| author | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2024-12-04 17:36:38 +0300 |
|---|---|---|
| committer | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2024-12-04 17:36:38 +0300 |
| commit | a93243ba77edf2f818ca5f2088485fa93bb32149 (patch) | |
| tree | 2c1a4bed178616ecad4f24084b62d0732db23042 | |
| parent | 48308687979f26a3498e7af94eacc8fe34307a78 (diff) | |
| download | sciteco-a93243ba77edf2f818ca5f2088485fa93bb32149.tar.gz | |
use the new ^Y, ^S and @Xq commands in tedoc.tes and string.tes
| -rwxr-xr-x | doc/tedoc.tes | 12 | ||||
| -rw-r--r-- | lib/string.tes | 2 |
2 files changed, 7 insertions, 7 deletions
diff --git a/doc/tedoc.tes b/doc/tedoc.tes index 9c3d413..1f13e54 100755 --- a/doc/tedoc.tes +++ b/doc/tedoc.tes @@ -6,7 +6,7 @@ :EMQ[$SCITECOPATH]/getopt.tes @[format_header]{ - FD--S .U.f :L"S.|Z'U.t Q.f,Q.tXa Q.f,Q.tD I^J + FD--S .,(:L"S.|Z')@Xa I^J EBQ#tm I\# GENERATED FROM Q.#sc (\.#sc):^J @@ -23,19 +23,19 @@ Qa"S Q.tJ | - .,Q.tXa .,Q.tD + .,Q.t@Xa I^J.B Qa^J ' > J < - S[MC]; .U.t -S[ .,Q.t-1Xa .-1,Q.tD + S[[MC]]; 1Xa D I^J.RI [ Qa ]^J > J <FR->\(->;> J < SMCM[|MC]; .U.t <-A"C|-A- |"N1;'' R> - .,Q.tXa .,Q.tD EQa + .,Q.t@Xa EQa <FR| | ;> EQ.[header] I^J.IR Qa^J @@ -111,13 +111,13 @@ EJ-1< EQ.c <FS^J^J ^J ;> J <FS^J[S,]*[M[ , ],]^J;> - J 0A-10"N X.[topics] K ' + J 0A-10"N @X.[topics] ' <0A-10"N 0A- "N 0A-9"N 1; ' ' ' D> ZJ <-A-10"N -A- "N -A-9"N 1; ' ' ' -D> !* extract header *! H:FD^J^J"F ZJ ' - 0,.X.[header] 0,.D + 0,.@X.[header] EQ.[header] :M[format_header] diff --git a/lib/string.tes b/lib/string.tes index 669b288..e6ec4a1 100644 --- a/lib/string.tes +++ b/lib/string.tes @@ -16,7 +16,7 @@ ! <i,j>M[exchange] - Exchange line at I with line at J (I < J), returning new J ! @[exchange]{ U.jU.i - Q.jJ X.xK + Q.jJ @X.x Q.iJ G.x .-Q.i%.j .-(X.xL.)%.j -K Q.jJ G.x Q.j |