Console Mode Pascal/sk: what changed
Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | 1 | ## Programovanie v Pascale pre konzolu | |
| 2 | 2 | ||
| 3 | 3 | od User:Kirkpatc, preložil User:Moriquend | |
| 4 | 4 | ||
| 5 | 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 | 6 | ||
| 7 | 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 | 8 | ||
| 9 | 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 | 10 | ||
| 11 | 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 | 12 | ||
| 13 | 13 | 'Project "Project1" successfully built.:)'. | |
| 14 | 14 | ||
| 15 | 15 | Ale kde je náš program??!! | |
| 16 | 16 | ||
| 17 | 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 | 18 | ||
| 19 | - | ||
| 19 | + | ```text | |
| 20 | + | ./Project1 | |
| 21 | + | ``` | |
| 20 | 22 | ||
| 21 | 23 | 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. | |
| 22 | 24 | ||
| 23 | 25 | 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: | |
| 24 | 26 | ||
| 25 | - | ||
| 27 | + | ```text | |
| 28 | + | "xterm: Can't execvp /usr/share/lazarus//tools/runwait.sh: Permission denied". | |
| 29 | + | ``` | |
| 26 | 30 | ||
| 27 | 31 | 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.) | |
| 28 | 32 | ||
| 29 | 33 | 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. | |
| 30 | 34 | ||
| 31 | 35 | 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é. | |
| 32 | 36 | ||
| 33 | 37 | 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) | |
| 34 | 38 | ||
| 35 | 39 | Tu je jeden príklad:: | |
| 36 | 40 | ||
| 37 | 41 | Program TryShell; | |
| 38 | 42 | uses classes, unix; | |
| 39 | 43 | var S: longint; | |
| 40 | 44 | begin | |
| 41 | 45 | S := shell ('/bin/ls -la *.p*'); //zobrazí všetky .pp, .pas, .php, .png atď súbory v aktuálnom adresári | |
| 42 | 46 | writeln ('Program skončil s návratovou hodnotou : ', S) | |
| 43 | 47 | end. | |
| 44 | 48 | ||
| 45 | 49 | 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: | |
| 46 | 50 | ||
| 47 | 51 | Program LazUpdate; | |
| 48 | 52 | uses classes, unix; | |
| 49 | 53 | var s : longint; | |
| 50 | 54 | begin | |
| 51 | 55 | S := shell ('cd /usr/local/src/fpc/devel/fpc ; make clean'); | |
| 52 | 56 | S := shell ('cd /usr/local/src/fpc/devel/lazarus ; make clean'); | |
| 53 | 57 | S := shell ('cd /usr/local/src/fpc/devel ; cvs -z 3 update -Pd fpc >& ~/cvscheckout.log'); | |
| 54 | 58 | S := shell ('cd /usr/local/src/fpc/devel ; cvs -z 3 update -Pd | |
| 55 | 59 | lazarus >& ~/cvslaz.log'); | |
| 56 | 60 | end. | |
| 57 | 61 | ||
| 58 | 62 | Pamätajte, že príkaz | |
| 59 | 63 | ||
| 60 | - | ||
| 64 | + | ```text | |
| 65 | + | shell ('cd /nejaky_adresar'); | |
| 66 | + | ``` | |
| 61 | 67 | ||
| 62 | 68 | nasledovaný | |
| 63 | 69 | ||
| 64 | - | ||
| 70 | + | ```text | |
| 71 | + | shell ('urob nieco v tomto adresari'); | |
| 72 | + | ``` | |
| 65 | 73 | ||
| 66 | 74 | 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. | |
| 67 | 75 | ||
| 68 | 76 | 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)): | |
| 69 | 77 | ||
| 70 | 78 | #!/bin/sh | |
| 71 | 79 | cd /usr/local/src/fpc/devel | |
| 72 | 80 | cd fpc | |
| 73 | 81 | make clean | |
| 74 | 82 | cd .. | |
| 75 | 83 | cd lazarus | |
| 76 | 84 | make clean | |
| 77 | 85 | cd .. | |
| 78 | 86 | cvs -z 3 update -Pd fpc >& ~/cvscheckout.log | |
| 79 | 87 | cvs -z 3 update -Pd lazarus >& ~/cvslaz.log | |
| 80 | 88 | ||
| 81 | 89 | 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: | |
| 82 | 90 | ||
| 83 | 91 | Program LazUpdate1; | |
| 84 | 92 | uses classes, unix; | |
| 85 | 93 | var S : longint; | |
| 86 | 94 | begin | |
| 87 | 95 | S := shell ('updatelaz.sh') | |
| 88 | 96 | end. | |
| 89 | 97 | ||
| 90 | 98 | --- | |
| 91 | 99 | *From the Free Pascal wiki, page "Console Mode Pascal/sk", as it stood on 2006-07-08 after a change by Swen, out of the wiki's dump of 2024-05-26. 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).* |