[Tustep-Liste] Bei neuem Wert Stern setzen

[f.seck at t-online.de]

Lieber Herr Stahl,

eine Alternative ist
al              | |
(ohne li)

Beste Grüße
Friedrich Seck

------------------------------------------------
Dr. Friedrich Seck
Erlenweg 18
72076 Tübingen
Telefon: (0 70 71) 96 49 40
Telefax auf Anfrage

-----Ursprüngliche Nachricht-----
Von: Tustep-Liste <tustep-liste-bounces at lists.uni-wuerzburg.de> Im Auftrag von Peter Stahl
Gesendet: Freitag, 26. Februar 2021 11:40
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