47. Program bez čísel riadkov: --no-line-numbers

Na čo to je

Čísla riadkov sú dedičstvo editora na Atari: určovali poradie riadkov a boli jediným spôsobom, ako niekam skočiť. V textovom editore na PC poradie určuje súbor, a Turbo-BASIC XL má na skoky mená – návestia a procedúry (kapitola 30). Čísla sú potom len na obtiaž: treba ich vymýšľať a pri vkladaní riadkov prečíslovať.

Basic26 preto vie preložiť program v Turbo-BASICu XL napísaný úplne bez čísel riadkov. Je to rozšírenie prekladača – pôvodný interpreter taký súbor neprijme.

Ako sa to zapne

Voľbou --no-line-numbers. Najlepšie rovno v programe, na jeho prvom riadku (kapitola 40):

REM @COMPILE --no-line-numbers

Platí len pre Turbo-BASIC XL (súbor .tbas) a pre celý program naraz: buď má čísla každý riadok, alebo žiadny.

Čo sa mení

Všetko ostatné ostáva: príkazy, slučky, bloky IF … ENDIF, dvojbodka medzi príkazmi. Prázdne riadky a odsadenie sú dovolené a nič neznamenajú.

TRAP 40000 (zrušenie pasce) funguje ďalej – to číslo nie je riadok.

Celý program

Súbor examples/nolines.tbas:

REM @COMPILE --no-line-numbers
REM A program without line numbers

DIM NAME$(20)
INPUT "Your name";NAME$
EXEC GREET

COUNT=0
DO
  COUNT=COUNT+1
  IF COUNT>3 THEN EXIT
  PRINT "Round ";COUNT
LOOP

RESTORE #COLOURS
FOR I=1 TO 3
  READ NAME$
  PRINT NAME$;" ";
NEXT I
PRINT

TRAP #OOPS
PRINT 10/(COUNT-4)
END

# OOPS
PRINT "Error ";ERR;" at line ";ERL
END

PROC GREET
  PRINT "Hello, ";NAME$;"!"
ENDPROC

# COLOURS
DATA red,green,blue

Preklad a spustenie

Voľba je v programe, takže na príkazový riadok ju písať netreba:

Basic26 nolines.tbas --run

alebo v simulátore s odpoveďou zo súboru examples/nolines.in:

Basic26 nolines.tbas --sim --sim-input nolines.in

Čo uvidíš

Your name?Peter
Hello, Peter!
Round 1
Round 2
Round 3
red green blue 
Error 11 at line 23

Ako to funguje

• Prvý riadok zapína mód. Pre prekladač je to nastavenie, inak obyčajný komentár.
• Program sa číta zhora nadol, tak ako je napísaný. Prázdne riadky ho len rozdeľujú na časti.
• EXEC GREET volá procedúru na konci súboru, RESTORE #COLOURS nastaví čítanie dát na návestie, TRAP #OOPS pošle chybu na návestie. Nikde nie je číslo, na ktoré by sa dalo odvolať – a ani ho netreba.
• Posledný riadok výstupu: COUNT je po slučke 4, takže 10/(COUNT-4) je delenie nulou. ERL hovorí 23 – a to je presne dvadsiaty tretí riadok súboru nolines.tbas. Stačí v editore skočiť na riadok 23.

Číslo riadka je riadok v súbore

Program čísla riadkov nemá, ale chyba ich potrebuje: ERROR- 11 OVERFLOW AT LINE 23, funkcia ERL, stopa TRACE. Prekladač preto každému riadku pridelí číslo, ktoré má v súbore – počítajú sa aj prázdne riadky a komentáre. Hlásenie za behu aj hlásenie prekladača (nolines.tbas(23,7): error …) tak ukazujú na to isté miesto.

Program môže mať najviac 32 767 riadkov.

Výpis s číslami

Keď chceš ten istý program dať pôvodnému Turbo-BASICu XL – alebo niekomu, kto Basic26 nemá –, nechaj si ho vypísať:

Basic26 nolines.tbas --list nolines-numbered.tbas

Výpis má pred každým riadkom jeho číslo (prázdne riadky vynechá) a z hlavičky zmizne --no-line-numbers:

1 REM @COMPILE 
2 REM A program without line numbers
4 DIM NAME$(20)
5 INPUT "Your name";NAME$
6 EXEC GREET
8 COUNT=0

Je to obyčajný Turbo-BASIC XL: interpreter ho načíta príkazom ENTER a Basic26 z neho preloží bajt po bajte ten istý program.

Program z viacerých súborov: INCLUDE

Keď program narastie, oplatí sa ho rozdeliť: hlavný program hovorí, čo sa robí, a procedúry, ktoré to robia, ležia v inom súbore. Riadok

INCLUDE "incltools.inc"

vloží na svoje miesto všetky riadky súboru incltools.inc, akoby tam boli napísané. Funguje to len v programe bez čísel riadkov – s číslami by dva súbory priniesli tie isté čísla a nevedelo by sa, ktorý riadok platí. Je to rozšírenie Basic26, pôvodný interpreter INCLUDE nepozná, a preto ho treba zapnúť voľbou --modern (ako hráčov a strely v kapitole 49).

Hlavný program, súbor examples/inclmain.tbas:

REM @COMPILE --no-line-numbers --modern
REM The main program; its procedures are in incltools.inc

EXEC FRAME
PRINT "  Hello from two files!"
EXEC FRAME
TRAP #OOPS
EXEC CHECK
END

# OOPS
PRINT "Error ";ERR;" at line ";ERL
END

INCLUDE "incltools.inc"

A súbor, ktorý vkladá, examples/incltools.inc:

REM incltools.inc - procedures for inclmain.tbas

PROC FRAME
  FOR I=1 TO 27:PRINT "-";:NEXT I
  PRINT
ENDPROC

PROC CHECK
  DIM A(3)
  K=5:A(K)=1
ENDPROC

Prekladá sa len hlavný súbor – vložený si prekladač nájde sám:

Basic26 inclmain.tbas --run

---------------------------
  Hello from two files!
---------------------------
Error 9 at line 24

• INCLUDE stojí na riadku sám, za ním len meno v úvodzovkách. Meno sa hľadá v adresári súboru, ktorý ho napísal; D: pred menom sa zahodí a bez prípony sa skúsi .TBAS, .BAS a .LST.
• Vložený súbor môže vkladať ďalší, najviac do hĺbky 16. Sám seba vložiť nemôže – ani cez iný súbor.
• Vložené súbory nemajú REM @COMPILE a samy sa nepreložia, preto im je dobré dať inú príponu (tu .inc). Voľby platia z hlavného programu pre celý.
• Číslo riadka je poradie v celom zloženom programe. INCLUDE je pätnásty riadok inclmain.tbas, takže vložený súbor začína riadkom 15 a jeho desiaty riadok K=5:A(K)=1 je riadok 24 – ten hlási ERL. Kde to je, ukáže --list: vypíše celý program v jednom súbore s číslami. Prekladač pri chybe v preklade hlási súbor a riadok v ňom, aj s riadkom, ktorý ho vložil – keby bol v CHECK riadok A(5)=1, ktorý je zlý už pri preklade:

incltools.inc(10,5): error B26009: A(5) is past DIM A(3)
inclmain.tbas(15,9): note: included from here

Väčší program z troch súborov je medzi príkladmi: examples/turbobasic/include/.

Časté chyby

Príkaz musí celý ostať na jednom riadku – dlhý riadok sa nedá rozdeliť na dva.

Vyskúšaj si

1. Prepíš menu.tbas z kapitoly 30 bez čísel riadkov. Jediné GOTO v ňom nahraď návestím a GO#.
2. Pridaj do nolines.tbas na ľubovoľné miesto prázdny riadok a pozri, ako sa zmení číslo v hlásení chyby.
3. Vypíš si program cez --list a prelož výpis. Porovnaj veľkosť oboch súborov .xex.

Ďalší program bez čísel riadkov je medzi príkladmi pri prekladači: examples/turbobasic/nonumbers.tbas.

Zhrnutie

• REM @COMPILE --no-line-numbers na začiatku programu: Turbo-BASIC XL bez čísel riadkov.
• Skáče sa len na mená: GO#, EXEC, TRAP #, RESTORE #, ON … GO#, ON … EXEC.
• Číslo riadka v chybe, v ERL a v TRACE je riadok v súbore.
• --list vypíše ten istý program s číslami – pre pôvodný interpreter.
• INCLUDE "SÚBOR" vloží riadky iného súboru; číslo riadka je potom poradie v celom zloženom programe.

Späť: 46. Kompresia · Ďalej: 48. Nečitateľný súbor