[Tustep-Liste] #ko | Compile ?

Thomas Kollatz kol at steinheim-institut.org
Wed Sep 26 18:49:11 CEST 2007


Lieber Herr Seck,
sie haben recht, mein Makro tut nicht, was Herr Moser wollte, aber  
das muss natürlich nicht so bleiben.
Anbei ein Makro das ungefähr dasselbe tut, was ihr #ko macht, in der  
Zieldatei steht anschließend:

<TagNeu id='A' />Adam, Eva
Appel, Norbert
<TagNeu id='B' />Berndt, Dieter
Brandel, Josef
Buddel, Horst
<TagNeu id='C' />Caesar, Julius
Christen, René
<TagNeu id='D' />David, Hans
Drosselbart, König

Das Makro folgt und ich ergreife die Gelegenheit eine Frage  
anzuschliessen:
Wie müsste ich das Skript umgestalten, damit ich Compile - Endcompile  
verwenden kann?

#ma
$$! quelle=nliste, ziel=tmp.1
$$-
$$ MODE TUSCRIPT

- Spezifikationen prüfen
SET status = CHECK (quelle, READ, TUSTEP)
ERROR/STOP "QUELLE: ", status

SET status = CHECK (ziel, WRITE, TUSTEP)
ERROR/STOP "ZIEL: ", status

SET status = UNIQUE (quelle, ziel)
ERROR/STOP "Datei ", status, " ist mehrfach angegeben"

SET ALT_AB=""
- Satzweise kopieren
ACCESS q: READ       /RECORDS "{quelle}" sn.zn/un, text
ACCESS z: WRITE/ERASE/RECORDS  "{ziel}"  sn.zn/un, text
- Daten kopieren
LOOP/999999
     READ/NEXT/EXIT q
   - Anfangsbuchst. der eingelesenen Zeile wird auf Variable AB gelegt
SET AB = EXTRACT (text,0,2)
IF (AB.ne.ALT_AB) THEN
SET tagneu="<TagNeu id='{AB}' />"
SET text = CONCAT (tagneu,text)
ENDIF
SET ALT_AB= VALUE (AB)
     WRITE z
ENDLOOP
ENDACCESS/PRINT q
ENDACCESS/PRINT z
*eof



More information about the Tustep-Liste mailing list