Console Mode Pascal/sk: what changed
Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.
Title: Console Mode Pascal/sk
| Old | New | Line | |
|---|---|---|---|
| 1 | + | ## Programovanie v Pascale pre konzolu | |
| 2 | + | ||
| 3 | + | od [User:Kirkpatc](</User:Kirkpatc> "User:Kirkpatc"), preložil [User:Moriquend](</User:Moriquend> "User:Moriquend") | |
| 4 | + | ||
| 5 | + | Veľa z nás písalo pascalovské programy dávno pred tým, ako sa grafické používateľské rozhrania (GUI) a integrované vývojové prostredia (IDE) stali rozšírenými. Mnoho ostatných sú začiatočníci v programovaní v Pascale a potrebujú si preskúšať základné vlastnosti a nástroje jazyka. A iní potrebujú písať konzolové (rozumej: bežiace v textovom móde) aplikácie na vykonávanie komplexných úloh správy systému. | |
| 6 | + | ||
| 7 | + | Lazarus poskytuje ideálne prostredie pre učenie sa Pascalu a vývoj konzolových programov. Môže byť pritom využítá všetka funkcionalita IDE, vrátane editora zdrojového kódu (Source Editor) so zvýrazňovaním syntaxe, prístupu ku knižniciam, komplexným vyhľadávaním a nástrojmi na dopĺňanie kódu, a taktiež overovaním syntaxe. Pokiaľ nechcete formulár s jeho vizuálnymi komponentami, nepotrebujete ho, lebo Lazarus aj bez neho stále ostáva veľkolepým prostredím pre vývoj programov. Môžete kompilovať (prekladať) a spúšťať váš program počas vývoja, a to bez opúšťania editora. | |
| 8 | + | ||
| 9 | + | Pre začatie vytvárania konzolového programu choďte do hlavnému menu a vyberte Project -> New Project a potom vyberte buď Program alebo Custom program. IDE tak nevygeneruje všetky extra súbory spojené s plno-grafickou aplikáciou, a ani neotvorí Object Inspector. Ale otvorí Source Editor (editor zdrojového kódu) so základnou kostrou programovej štruktúry a očakáva, že začnete písať svoj program. | |
| 10 | + | ||
| 11 | + | Keď ste už dokončili svoj program (alebo jeho časť) môžete ho skompilovať a spustiť vybratím Run -> Run z hlavného menu alebo kliknutím na zelený trojuholník (Run) z tlačidlovej lišty. Akékoľvek hlásenie prekladača (varovania, stavové alebo chybové správy) sa zobrazia v Message Boxe (okne správ). A snáď sa tam objaví takáto správa: | |
| 12 | + | ||
| 13 | + | 'Project "Project1" successfully built.:)'. | |
| 14 | + | ||
| 15 | + | Ale kde je náš program??!! | |
| 16 | + | ||
| 17 | + | Môžete ho spustiť tak, že pôjdete do konzolového okna (terminálu) a napíšete meno programu. V unixe/Linuxe, ak je program v súčasnom adresári, pravdepodobne musíte napísať: | |
| 18 | + | ``` | |
| 19 | + | ./Project1 | |
| 20 | + | ``` | |
| 21 | + | ||
| 22 | + | pokiaľ by adresár nebol súčasťou štandardnej cesty (PATH). Avšak, môže sa vám zdať veľmi nepohodlné neustále preskakovať z Lazara do terminálového okna a späť. Našťastie existuje mechanizmus, ktorý umožňuje otvárať terminálové okno priamo v prostredí Lazara. | |
| 23 | + | ||
| 24 | + | Z halvného menu vyberte Run -> Run Parameters a zaškrtnite políčko "Use launching application". Prvýkrát, ako toto urobíte a vyskúšate Compile/Run, pravdepodobne dostanete nepeknú hlášku hovoriacu: | |
| 25 | + | ``` | |
| 26 | + | "xterm: Can't execvp /usr/share/lazarus//tools/runwait.sh: Permission denied". | |
| 27 | + | ``` | |
| 28 | + | ||
| 29 | + | Ak sa to stalo, tak potrebujete zmeniť oprávnenia pre príslušný súbor, tj. /usr/share/lazarus/tools/runwait.sh a zabezpečiť, aby ste ho mohli spúšťať (napríklad použitím príkazu chmod +x názov_súboru na Unixoch, alebo na Windows použitím utility pre zmenu oprávnení); toto by ste mali urobiť ako root. Od tejto chvíle,kedykoľvek spustíte svoj program, objaví sa konzolové okno a budet ev ňom vidieť všetok váš i/o (read, write a pod.) | |
| 30 | + | ||
| 31 | + | Po tom, čo sa váš program prestane vykonávať, na obrazovke sa objaví správa "Press enter" ("Stlačte enter"). Čiže máte možnosť vidieť všetok výstup vygenerovaný vaším programom. Keď stlačít 'enter', okno sa zavrie. | |
| 32 | + | ||
| 33 | + | Editor Lazara môžete použiť na vyskúšanie si všetkých príkladov zo štandardných kníh o Pascale a môžete si samozrejme napísať aj vlastné. | |
| 34 | + | ||
| 35 | + | Medzi najužitočnejšie procedúry patri tie na vykonávanie systémových príkazov, alebo na spúšťanie iných programov (ktoré mohli byť napísané v Pascale, C, Perle alebo sú to shellové skripty, či dávkové súbory) | |
| 36 | + | ||
| 37 | + | Tu je jeden príklad:: | |
| 38 | + | ``` | |
| 39 | + | Program TryShell; | |
| 40 | + | uses classes, unix; | |
| 41 | + | var S: longint; | |
| 42 | + | begin | |
| 43 | + | S := shell ('/bin/ls -la *.p*'); //zobrazí všetky .pp, .pas, .php, .png atď súbory v aktuálnom adresári | |
| 44 | + | writeln ('Program skončil s návratovou hodnotou : ', S) | |
| 45 | + | end. | |
| 46 | + | ``` | |
| 47 | + | ||
| 48 | + | Môžu byť vykonávané aj o niečo komplexnejšie príkazy. Napríklad, ak ste už prezerali CVS repozitáre pre FPC a Lazarus (pozrite [fpc buildfaq](<http://www.stack.nl/~marcov/buildfaq.pdf>)), mohli by ste chcieť mať na svojom systéme vždy najnovšie zdrojové súbory Lazara a FPC. Dalo by sa to zabezpečiť takýmto programom: | |
| 49 | + | ``` | |
| 50 | + | Program LazUpdate; | |
| 51 | + | uses classes, unix; | |
| 52 | + | var s : longint; | |
| 53 | + | begin | |
| 54 | + | S := shell ('cd /usr/local/src/fpc/devel/fpc ; make clean'); | |
| 55 | + | S := shell ('cd /usr/local/src/fpc/devel/lazarus ; make clean'); | |
| 56 | + | S := shell ('cd /usr/local/src/fpc/devel ; cvs -z 3 update -Pd fpc >& ~/cvscheckout.log'); | |
| 57 | + | S := shell ('cd /usr/local/src/fpc/devel ; cvs -z 3 update -Pd | |
| 58 | + | lazarus >& ~/cvslaz.log'); | |
| 59 | + | end. | |
| 60 | + | ``` | |
| 61 | + | ||
| 62 | + | Pamätajte, že príkaz | |
| 63 | + | ``` | |
| 64 | + | shell ('cd /nejaky_adresar'); | |
| 65 | + | ``` | |
| 66 | + | ||
| 67 | + | nasledovaný | |
| 68 | + | ``` | |
| 69 | + | shell ('urob nieco v tomto adresari'); | |
| 70 | + | ``` | |
| 71 | + | ||
| 72 | + | nefunguje, pretože po každom volaní funkcie shellu sa vykonávanie programu vracia do adresára, odkiaľ program štartoval. Takže potrebujeme v každom riadku (shell príkaze) špecifikovať viacero príkazov. | |
| 73 | + | ||
| 74 | + | Samozrejme, nemusíte zadávať každý príkaz ako samostatný riadok Pascalu. Celkom dobre môžete vytvoriť skript podobný tomuto (prevzaté z [fpc buildfaq](<http://www.stack.nl/~marcov/buildfaq.pdf>)): | |
| 75 | + | ``` | |
| 76 | + | #!/bin/sh | |
| 77 | + | cd /usr/local/src/fpc/devel | |
| 78 | + | cd fpc | |
| 79 | + | make clean | |
| 80 | + | cd .. | |
| 81 | + | cd lazarus | |
| 82 | + | make clean | |
| 83 | + | cd .. | |
| 84 | + | cvs -z 3 update -Pd fpc >& ~/cvscheckout.log | |
| 85 | + | cvs -z 3 update -Pd lazarus >& ~/cvslaz.log | |
| 86 | + | ``` | |
| 87 | + | ||
| 88 | + | Uložte ho do súboru, napríklad updatelaz.sh, a potom tento súbor zavolajte z vnútra vášho pascalovského programu. Asi takto: | |
| 89 | + | ``` | |
| 90 | + | Program LazUpdate1; | |
| 91 | + | uses classes, unix; | |
| 92 | + | var S : longint; | |
| 93 | + | begin | |
| 94 | + | S := shell ('updatelaz.sh') | |
| 95 | + | end. | |
| 96 | + | ``` | |
| 97 | + | ||
| 98 | + | --- | |
| 99 | + | *From the Free Pascal wiki, page "Console Mode Pascal/sk", as the Internet Archive kept it on 2025-05-13. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |