[Tustep-Liste] Bei neuem Wert Stern setzen

[Bartz, Hans-Werner]

Lieber Peter,

der Tipp lautet:
li        11

Bei oreingestelltem  "li    1" wird die 1 hinter@ gelesen
und nicht die Zahl hinter @1.

Viele Grüße
 Hans-Werner

________________________________________
Von: Tustep-Liste <tustep-liste-bounces at lists.uni-wuerzburg.de> im Auftrag von Peter Stahl <p.stahl at magenta.de>
Gesendet: Freitag, 26. Februar 2021 11:39
An: tustep-liste at itug.de
Betreff: [Tustep-Liste] Bei neuem Wert Stern setzen

Diskussionsforum Tustep-Liste
Weitere Informationen: www.itug.de
------------------------------------------------------------


Liebe Listen-Leserinnen und -Leser,

ich zeige Ihnen hier ein #KOP-Problem. Bitte nicht lachen wegen der
Datenstruktur...  It's classic mode. ;-)

Die Quelldatei sieht so aus:

@1 01 andar @3 gehen, laufen @2
@1 01 desandar @3 zurückgehen @2
@1 01 ser @3 sein @2
@1 02 creer @3 glauben @2
@1 02 desproveer @3 nicht versorgen @2
@1 03 ampliar @3 vergrößern @2
@1 03 averiarse @3 kaputtgehen @2
@1 03 confiar @3 anvertrauen @2

Das Problem ist: Wenn sich die Zahl nach @1 ändert, soll ein Stern eingesetzt werden,
sonst soll nichts geschehen:

Meine #TUE-Datei dazu sieht nun so aus:

#modi,rette
#par, <>
#kop,quelle,ziel,+,+,*
r         i2 = 0;

al        . at 1.
liv       i1

rr        if (i1 .ne. i2) then;
rr          i2 = i1;
rr          goto 21;
rr        else;
rr          goto 3;
rr        endif

xx    2   . at 1 <>>/. at 1 * >=04.

sp2       8 3
*eof
#modi,hole

Die Zahl i2 wird zunächst auf 0 gesetzt, i1 nach @1 eingelesen und mit i2
verglichen. Unterscheiden sich beide, geht's weiter zu XX und i2 bekommt den
Wert von i1. Unterscheiden sie sich nicht, wird gleich ausgegeben.

In der Zieldatei wird aber nur einmal getauscht, und nicht jedesmal, wenn sich
i1 ändert:

@1 * 01 andar @3 gehen, laufen @2
@1 01 desandar @3 zurückgehen @2
@1 01 ser @3 sein @2
@1 02 creer @3 glauben @2

Könnte mir bitte jemand einen Tipp geben, was ich nicht bedacht habe.

Herzliche Grüße reihum,
P.Stahl



------------------------------------------------------------
Tustep-Liste at itug.de
https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste