[Tustep-Liste] Kopiere - Seitenzahlen im Register zusammenfassen

[Dr. Michael Trauth]

Lieber Herr Neumann,

> bevor ich es endlos versuche, sicherlich
> hat schon jemand in der Runde für das
> Zusammenfassen von Seitenzahlen in einem
> Register eine Lösung.
> Register
> Eintrag1 _ 23 35 36 37 38 59 112 113 117 118 119 127 128 134 135 136 137 138
> soll umgewandelt werden in:
> Register
> Eintrag1 _ 23 35-38 59 112f. 117ff. 127f. 134-138
> Am besten wäre ein KOPIERE, das lässt sich am
> einfachsten in meine Routinen einbauen.

M.E. ginge es mit #ra am einfachsten, mit Tuscript
dann am elegantesten, aber wenn's ein #kopiere sein
soll, vorzugsweise ein kryptisches, an dem sich die
NSA die Zähne ausbeißt, dann versuchen Sie es einmal
mit diesem hier:

#ko,q,z,,+,*
par       {}
els       1000
        * Zuerst prüfen, ob überhaupt ein Registereintrag
        * (erkennbar am ' _ ' vor den Referenzen) vorliegt:
        * Nur diese werden verarbeitet, alle anderen Sätze
        * werden gleich in die Zieldatei ausgegeben:
zf+   1   | _ {#} {#}|
zf+   2   |[: !]{#} {#}|
al    2 = zf+   2
liv   2   i1 i2
rr    2   if (i1.eq.(i2-1)) goto 32; goto 42;
xxb   3   |[: !]{#} {#}|{+1-2=}:{+4=}|
erz   3   1
xxb   4   |[: !]{#} {#}|{+1-2=}!{+4=}|
erz   4   1
xx    5   |{#}{[}:{#}{]}:|f|
xx    5   |{#}{[}:{]}{#}|f|
xx    5   |{#}{[}!| |
xx    6   |{#}{[}f{#}|f.|
xx    6   |{#}{[}ff{#}|ff.|
xx    6   |{#}{[}{3-0}f{#}|-{-1=}|
          _1__2__3__4
spn        3 52  8  8
spj       21 22  8  8
sp2        8  8 21 21
*eof


Gute Nacht wünscht

Ihr Michael Trauth