SuperBASIC-Erweiterung GETLINE$()

Warnung: Dieses Programm läuft zur Zeit nur unter dem Sinclair QL Emulator QPC2 für Windows, bzw. evtl. auch auf anderen SMS/SMSQ-Systemen. Ich habe es jetzt mal mit dem Windows Subsystem für Linux (WSL - danke Microsoft!) unter dem UNIX-/Linux-Emulator uQLx mit Minerva 1.98 getestet. Crasht fürchterlich, nicht mal mehr der Sysmon fängt das "jaulen" an.

Syntax

string$=GETLINE$([#ch] | [#ch,][maxlen[,lf]])

string$:
Zurückgegebene Zeichenkette (String) mit Länge zwischen 0 bis maxlen.

Sollte das letzte Zeichen der "Datei" ein Zeilenendezeichen (LF) sein, wird es immer zurückgegeben (sonst hat der Benutzer keine Chance zu erkennen, ob das letzte Zeichen ein LF war oder nicht). Sollte eine Zeile länger sein als maxlen, werden nur die ersten maxlen Zeichen zurückgegeben und die restlichen Zeichen durch einen weiteren Aufruf von GETLINE$(). Dies ist problematisch, falls lf gleich 0 ist (man kann nicht feststellen, ob am Ende ein LF-Zeichen auftrat). Daher sollte man lf=0 nur bei Textdateien oder Konsol-Kanälen ("Fenstern") verwenden, nicht bei binären.

Verwendung

GETLINE$() ist eine Maschinensprachenerweiterung für das im QL eingebaute SuperBASIC und muss, bevor sie verwendet werden kann, einmalig initialisiert werden. Falls (wie im QPC2-Emulator) SuperToolkit II installiert ist, geht das mit:

LRESPR getline_bin

Sonst mit:

address=RESPR(616): LBYTES getline_bin,address: CALL address

Auf echten QLs funktioniert das nur, falls kein ausführbares Programm (außer dem immer laufenden SuperBASIC-Interpreter) läuft. Am besten initialisiert man solche Erweiterungen (Toolkits) daher in seinem Boot-Programm. Unter älteren QDOS-Versionen (bis JM) muss nach der Initialisierung noch NEW eingegeben werden, damit der Interpreter die Erweiterung erkennt (geladenen Erweiterungen können nicht im Programm verwendet werden, in dem sie initialisiert werden).

GETLINE$() liest von der aktuellen Dateiposition bis einschließlich des nächsten Zeilenendezeichens und gibt dies als Zeichenkette als Ergebnis zurück, wobei das Zeilenendezeichen abgeschnitten wird falls der Parameter lf 0 (bzw. nicht angegeben) ist. Im Gegensatz zu z. B. dem INPUT-Befehl von SuperBASIC bricht GETLINE$() nicht mit der Fehlermeldung "End of file" ab, falls das letzte Zeichen einer Datei kein Zeilenendezeichen ist (aber siehe unten).

Vor dem Aufruf muss immer auf EOF() getestet werden. Sollte der Filepointer des Kanals bereits am Ende der Datei stehen, und GETLINE$() wird aufgerufen, bricht SuperBASIC/SBASIC mit der Fehlermeldung "End of File" ab. Falls lf mit einem Wert gleich 0 übergeben wurde (weggelassen wurde), sollte nach dem Aufruf auf EOF() getestet werden. Falls EOF() <> 0, muss getestet werden, ob letztes Zeichen ein Zeilenendezeichen (LF) ist, und wie gegebenenfalls damit verfahren werden soll.

Es wird dringend empfohlen für den Parameter maxlen keine Werte kleiner 0 oder größer 32766 zu verwenden. Bei eventuellen späteren Versionen, kann dies zu unerwartetem Verhalten oder Fehlern führen

Das ZIP-Archiv sollte man auf einem QDOS-System entpacken, da QL-Dateien Fileheader haben, die beim Entpacken auf anderen Systemen verloren gehen. Hier nicht ganz so wichtig, da keine ausführbare Datei enthalten ist.