Dotaz: Přepis programu z turbo pascalu na céčko

[---]

Dobrý den, potřeboval bych pomoci s přepisem vlastní aplikace z turbopasclu na cécko. Zatím moc jsem nepochopil práci s poentry. Tak bych potřeboval drobet nakopnout.

program vratnice;
uses crt,graph,printer;
const hlaska ='Stisknete libolny znak ...';
const verze = '1.1.2 (BETA)';
 
type vozidlo = record
spz:string[8];
ridic:string[19];
poznamka:string[7];
end;
 
var
vuz:vozidlo;
f,g:file of vozidlo;
i,vel,gd,gm:integer;
odpoved:char;
zadani:string[19];
soubor:string;
trideno:boolean;
nalezeno:boolean;
 
procedure iniciace;
begin
checkbreak:=false;
clrscr;
window(1,1,20,16);
gd:=1;gm:=1;
assign(f,'vratnice.data');
{$I-}
reset(f); {testuje zda soubor existuje}
{$I+}
if ioresult <> 0 then rewrite(f); { kdyz ne tak ho vytvori}
close(f);
end;
 
procedure pozdrav;
begin
writeln('Vitejte ve vratnici');
writeln('-------------------');
writeln('Verze: ',verze);
writeln('Autor: Jan Brunclik');
writeln('Mobil: 775 384 910');
writeln;
writeln('Pokracujte stiskem libovolne klavesy ...');
repeat until keypressed;
end;
 
procedure cekej;
begin
writeln;
write(hlaska);
repeat until keypressed;
end;
 
procedure trid; {tridi metodou BUBLE SORT}
var
a,b,p:vozidlo;
prohoz:boolean;
begin
reset(f);
vel:=filesize(f);
close(f);
repeat
prohoz:=false;
for i:=0 to (vel-2) do begin
reset(f);
seek(f,i);
read(f,a);
read(f,b);
close(f);
if a.spz>b.spz then begin
p:=b;
b:=a;
a:=p;
prohoz:=true;
end;
reset(f);
seek(f,i);
write(f,a);
write(f,b);
close(f);
end;
until prohoz=false;
trideno:=true;
end;
 
procedure vypis; {vypis obsahu souboru}
var
vuz:vozidlo;
begin
clrscr;
writeln('+----------------+');
writeln('| Pocet vozidel  |');
writeln('+----------------+');
writeln;
reset(f);
writeln('Nalezeno : ',filesize(f),' vozidel.');
close(f);
cekej;
end;
 
procedure pridat; {prida zaznam na konec souboru}
begin
reset(f);
seek(f,filesize(f)); {nastaveni ukazatele na konec souboru}
repeat
clrscr;
writeln('+--------------+');
writeln('| Pridani vozu |');
writeln('+--------------+');
writeln;
with vuz do begin {nacteni dat}
write('SPZ : ');
readln(spz);
write('Ridice : ');
readln(ridic);
write('Poznamku : ');
readln(poznamka);
end;
write(f,vuz); {zapis do souboru}
writeln;
writeln('Vuz s "',vuz.spz,'" byl pridan.');
writeln;
writeln('Dalsi zaznam? A/N');
until upcase(readkey)<>'A';
close(f);
trideno:=false;
end;
 
procedure vyhledat; {vyhleda podle spz vozidla}
var
nvuz:Array[1..9] of vozidlo;
pocet:integer;
 
begin
clrscr;
nalezeno:=false;
writeln('+-------------+');
writeln('| Hledani SPZ |');
writeln('+-------------+');
writeln;
reset(f);
write('SPZ : ');
readln(zadani);
clrscr;
writeln('+------------------+');
writeln('| Vysledek hledani |');
writeln('+------------------+');
writeln;
for i:=1 to filesize(f) do begin
read(f,vuz);
if zadani=copy(vuz.spz,4,4) then
begin
nalezeno:=true;
with vuz do begin
writeln(spz);
writeln(ridic);
writeln(poznamka);
end
end;
end;
if not nalezeno then
writeln('Vuz s "',zadani,'" nenalezen !');
close(f);
writeln;
cekej;
end;
 
procedure odstranit; {odstrani zaznam ze souboru}
begin
clrscr;
nalezeno:=false;
assign(g,'tmp.data'); {pomocny soubor}
writeln('+----------------+');
writeln('| Odstraneni SPZ |');
writeln('+----------------+');
writeln;
write('SPZ : ');
readln(zadani);
writeln;
reset(f);
rewrite(g);
for i:=1 to filesize(f) do begin {do pomocneho souboru se prenesou}
read(f,vuz);                     { vsechny zaznamy, krome toho    }
if ((vuz.spz=zadani)or(length(vuz.spz)>=8)) then       { zadaneho }
begin
writeln('Vuz s "',vuz.spz,'" byl odstranen ze zaznamu.');
nalezeno:=true;
end
else
begin
write(g,vuz);
end;
end;
close(f);
close(g);
rewrite(f);
reset(g);
for i:=1 to filesize(g) do begin
read(g,vuz); {zaznamy se prenesou zpet do hlavniho souboru}
write(f,vuz);
end;
close(f);
close(g);
erase(g); {pomocny soubor se vymaze}
if not nalezeno then
writeln('Vuz s "',zadani,'" nebyl nalezen.');
writeln;
cekej;
end;
 
procedure tisk; {tisk vsech povolenek serazene podle SPZ}
var ft:text;i:integer;
begin
clrscr;
writeln('+--------------+');
writeln('|Tisk povolenek|');
writeln('+--------------+');
writeln;
write('Trideni ... ');trid;write('[ok]');
writeln(lst,'Projekt Vratnice ');
writeln(lst,'Jan Brunclik 2011');
writeln(lst,'737 385 291');
writeln(lst,'');
writeln(lst,'+----------------+');
writeln(lst,'| Tisk povolenek |');
writeln(lst,'+----------------+');
writeln(lst,'');
reset(f);
writeln('Tisknu celkem ',filesize(f),' povolenek');
for i:=1 to filesize(f)-1 do begin
seek(f,i);
read(f,vuz);
with vuz do begin
writeln(lst,spz:8,ridic:20,poznamka:8);
end
end;
close(f);
cekej;
end;
 
procedure import;
var
fe: text;
i : integer;
radek : string;
begin
clrscr;
writeln('+----------------+');
writeln('|Import povolenek|');
writeln('+----------------+');
writeln;
assign(fe,'vratnice.csv');
rewrite(f);reset(fe);
radek:='';
while not eof(fe) do begin
with vuz do begin
readln(fe,radek);
spz:=copy(radek,1,7);
radek:=copy(radek,9,length(radek));
ridic:=copy(radek,1,pos(',',radek)-1);
poznamka:=copy(radek,pos(',',radek)+1,length(radek));
end;
write(f,vuz);
end;
close(f);close(fe);
writeln('Hotovo');cekej;
end;
 
procedure export; {export aut do souboru vratnice.csv}
var
fe : text;
i : integer;
begin
clrscr;
writeln('+----------------+');
writeln('|Export povolenek|');
writeln('+----------------+');
writeln;
assign(fe,'vratnice.csv');
reset(f);rewrite(fe);
for i:=1 to filesize(f)-1 do begin
seek(f,i);
read(f,vuz);
with vuz do begin
writeln(fe,spz,',',ridic,',',poznamka);
end
end;
writeln('Hotovo');
close(fe);close(f);
cekej;
end;
 
{definice jednotlivych funkcich}
procedure hledat_spz;begin;end;
procedure hledat_jmena;begin;end;
procedure hledat_datum;begin;end;
 
procedure evidence_hledat;begin;end;
procedure evidence_pridat;begin;end;
procedure evidence_editovat;begin;end;
procedure evidence_smazat;begin;end;
procedure evidence_opravit;begin;end;
procedure evidence_import;begin;end;
procedure evidence_export;begin;end;
 
procedure kontrola_hledat;begin;end;
procedure kontrola_pridat;begin;end;
procedure kontrola_editovat;begin;end;
procedure kontrola_smazat;begin;end;
procedure kontrola_opravit;begin;end;
procedure kontrola_import;begin;end;
procedure kontrola_export;begin;end;
 
procedure povolenky_hledat;begin;vyhledat;end;
procedure povolenky_pridat;begin;pridat;end;
procedure povolenky_editovat;begin;end;
procedure povolenky_smazat;begin;odstranit;end;
procedure povolenky_opravit;begin;end;
procedure povolenky_import;begin;import;end;
procedure povolenky_export;begin;export;end;
procedure povolenky_vypsat;begin;end;
procedure povolenky_tisk;begin;tisk;end;
 
procedure obedy_hledat;begin;end;
procedure obedy_pridat;begin;end;
procedure obedy_editovat;begin;end;
procedure obedy_smazat;begin;end;
procedure obedy_opravit;begin;end;
procedure obedy_import;begin;end;
procedure obedy_export;begin;end;
 
procedure smeny_hledat;begin;end;
procedure smeny_pridat;begin;end;
procedure smeny_editovat;begin;end;
procedure smeny_smazat;begin;end;
procedure smeny_opravit;begin;end;
procedure smeny_import;begin;end;
procedure smeny_export;begin;end;
 
procedure klice_hledat;begin;end;
procedure klice_pridat;begin;end;
procedure klice_editovat;begin;end;
procedure klice_smazat;begin;end;
procedure klice_opravit;begin;end;
procedure klice_import;begin;end;
procedure klice_export;begin;end;
 
{definice jednotlivych menu}
procedure menu_hledat;begin;end;
procedure menu_evidence;begin;end;
procedure menu_kontrola;begin;end;
 
procedure menu_povolenky;
begin
repeat
clrscr;
writeln('+--------------+');
writeln('|   Povolenky  |');
writeln('+--------------+');
writeln('| 1 - Hledat   |');
writeln('| 2 - Pridat   |');
{writeln('| 3 - Editovat |');}
{writeln('| 4 - Smazat   |');}
{writeln('| 5 - Opravit  |');}
writeln('| 6 - Import   |');
writeln('| 7 - Export   |');
{writeln('| 8 - Vypsat   |');}
writeln('| 9 - Tisk     |');
writeln('+--------------+');
writeln('| 0 - Zpet     |');
writeln('+--------------+');
odpoved:=upcase(readkey);
case odpoved of
'1':povolenky_hledat;
'2':povolenky_pridat;
{'3':povolenky_editovat;}
{'4':povolenky_smazat;}
{'5':povolenky_opravit;}
'6':povolenky_import;
'7':povolenky_export;
{'8':povolenky_vypsat;}
'9':povolenky_tisk;
end;
until odpoved='0';
end;
 
procedure menu_obedy;begin;end;
procedure menu_uzivatele;begin;end;
procedure menu_smena;begin;end;
procedure menu_klice;begin;end;
procedure menu_nastaveni;begin;end;
 
begin {hlavni menu}
iniciace;
trideno:=false;
pozdrav;
repeat
clrscr;
writeln('+--------------+');
writeln('|  Hlavni menu |');
writeln('+--------------+');
{writeln('| 1 - Hledat   |');}
{writeln('| 2 - Evidence |');}
{writeln('| 3 - Kontrola |');}
writeln('| 4 - Povolenky|');
{writeln('| 5 - Obedy    |');}
{writeln('| 6 - Uzivatele|');}
{writeln('| 7 - Smeny    |');}
{writeln('| 8 - Klice    |');}
{writeln('| 9 - Nastaveni|');}
writeln('| . - Pocet    |');
writeln('+--------------+');
writeln('| Q,0 - Konec  |');
writeln('+--------------+');
write('Volba :');
odpoved:=upcase(readkey);
case odpoved of
'1':menu_hledat;
'2':menu_evidence;
'3':menu_kontrola;
'4':menu_povolenky;
'5':menu_obedy;
'6':menu_uzivatele;
'7':menu_smena;
'8':menu_klice;
'Q','0':odpoved:=chr(27);
{'T':trid;}
',','.':vypis;
end;
until odpoved=chr(27);
end.

---

---

Odpovědi

[AraxoN]

Ak ovládaš Pascal a chceš sa naučiť C, neexistuje lepšia kniha než Pavel Herout: Učebnice jazyka C - 1. díl.

[---]

Ahoj, mám tuto knížku, ale nepochopil jsem jak pracovat s poentry. Zdá se mi to zatím složité.

Cečko potřebuji do své malé linuxové distrubuce, která běží jen v ramdisku. A nechce se mi tam dávat dosbox, abych spoustíl hotovou binárku pro dos.

[pht]

Tenhle dotaz se sem propadl asi nějakou červí dírou z fidonetu...

[AraxoN]

[---]

Na co narážíš ?

[rADOn]

Blast from the past. Tady ve 21. století je Pascal pohřbený stejně hluboko jako fortran a cobol. A zaplaťknuth za to. To co jsi tu vytáhl na světlo není jen kostlivec, ale rovnou zkamenělina.

BTW nakolik je z toho kódu poznat účel a úmysl, dalo by se to přepsat do pár řádků v nějakém skriptovacím jazyce s jednoduchou databází. Ale jestli se chceš naučit C tak držím palce. A když tak koukám na to clrscr;… další věc kterou budeš hledat je knihovna curses.

[:::]

fortran nastesti jeste pohrbeny neni...

[---]

Ano vím, že je pascal už dost starý.

Použít raději curses nebo ncurses ?

Přemýšlel jsem že bych použil dialog --menu a další parametry.

Sice to mohu nascriptovat, ale spíše bych to chtěl jako binárku, aby mi do toho BFU uživatel nelezl.

[rADOn]

Použít raději curses nebo ncurses ?

Curses je název původní knihovny pro unixy, ncurses je GNU implementace. API je stejné a na linuxu afaik nic jiného než ncurses není, takže není co řešit

Přemýšlel jsem že bych použil dialog --menu a další parametry.

Pokud vystačíš s něčím tak primitivním, tak opravdu binárku nepotřebuješ. Parsovat textový výstup z podprocesu se mi zdá víc práce než volat funkce v knihovně, dokonce i s tak hnusným API jako má curses.

Sice to mohu nascriptovat, ale spíše bych to chtěl jako binárku, aby mi do toho BFU uživatel nelezl.

Co myslíš tím "nelezl"? Zní to jako security through obscurity. Když už někdo umí skriptovací jazyk, tak už to u mě není BFU.

[---]

Můžeš prosím uvést příklad ?

[Matlák]

Blast from the past. Tady ve 21. století je Pascal pohřbený stejně hluboko jako fortran a cobol.

... a přesto je v v pascalu napsána spousta placených drahých aplikací, přesto je v něm napsaný hojně používaný totalcommander, pspad.. a další plno windows aplikací

[---]

Na pascalu se mi líbí práce s grafickými knihovnami.

[l4m4]

Knihovnami? Jakými? Pokud si vzpomnám, tak v Pascalu jsme vždy zapisovali přímo do paměti grafické karty, pokud se mělo něco rozumného vykreslit...

[rADOn]

Soudě podle kódu má Drak asi na mysli nejzbytečnější knihovnu v historii informatiky: EGAVGA.BGI

[Šangala]

No když to srovnám s DirectX…, tak nevím

[---]

Existuje něco podného pro cecko ? Myslím, když člověk má pustěný x server.

[rADOn]

Človíčku ty jsi sem fakt propadl z minulého století

Jestli chceš psát hry, hledáš nejspíš knihovnu SDL. Djgpp taky nebývala špatná a přenositelná na wydle. Jestli si chceš jen nakreslit nějaký graf nebo schéma, toolkity mívají nějaký prvek na který se dá kreslit. O komunikaci s X serverem se stará knihovna xlib nebo xcb ale to už je hodně low-level, nic pro obyčejné smrtelníky . OpenGL bych raději pro jednoduchost taky vynechal.

[rastos]

Tady ve 21. století je Pascal pohřbený stejně hluboko jako fortran a cobol.

Priateľu, realita je taká, že Pascal (Delphi), Fortran aj Cobol sa majú čulo k svetu. Len je to (hlavne v prípade Fortranu a Cobolu) iná liga.

[pht]

Moje původní poznámka nenaráží na programovací jazyk, ale programovací techniku. A jen pro úplnost, Turbo Pascal a Delphi jsou dva dost odlišné světy.

[JS]

Nekoho ty zkameneliny bavi.. JCL, to je teprve neco.

[:::]

Ony to nejsou az takovy zkameneliny jak by se nekomu nezasvecenymu mohlo zdat...

Treba fortran se pouziva na vypocty a pouzivat se bude, protoze C a spol obsahuje urcity veci (napr. pointery) kvuli kterym je prakticky nemozny napsat rozumny optimalizator...

[rADOn]

AFAIK optimalizátor C už existuje a jmenuje se kompiler A ukazatele se moc neoptimalizují proto, že už jsou zoptimalizované až na kost. Co chceš optimalizovat na adrese v paměti?

O přetrvávání fortranu jsem slyšel dost, ale spíše jako ukázku zatvrzelého konzervativismu Chápu že přepisovat speciální knihovny na drcení čísel asi nemá moc smysl, ale pochybuju že by dnes někdo ve fortranu začal nový projekt. Dobře, není mrtvý, ale v zaslouženém důchodu.

[:::]

Adresu neni potreba optimalizovat. Problem je ze ta adresa muze ukazovat na cokoli, coz je sice super z pohledu programatora ale uz ne z pohledu optimalizatoru. Treba kdyz pres ukazatel nekam zapises tak je problem rozhodnout ktery promenny nacteny v registrech jsou porad platny a ktery se musi nacist znovu...

C/C++ se tohle snazi castecne resit pomoci strict aliasing rule, nebo pomoci klicoveho slova __restrict, ale stejne to neni ono.

Fortran prave proto ze mu chybi nektery bezny vlastnosti dnesnich jazyku, tak se da lip optimalizovat a programy ve fortranu jsou rychlejsi...

[rADOn]

Problem je ze ta adresa muze ukazovat na cokoli, coz je sice super z pohledu programatora ale uz ne z pohledu optimalizatoru. Treba kdyz pres ukazatel nekam zapises tak je problem rozhodnout ktery promenny nacteny v registrech jsou porad platny a ktery se musi nacist znovu...

Pokud vyjdu z odvážného předpokladu, že většina programátorů dnes nepíše ovladače a nepotřebuje se hrabat v IO portech nebo jiné mapované paměti – čemu to vadí? Pokud bych vymyslel architekturu a kompiler který by něco takového umožňoval, byl by tedy mnohem rychlejší než "neoptimalizovaný" kód na takové architektuře. Jenže byl by taky rychlejší než klasické ukazatele, které jsou "optimální" v jiných ohledech? Například zapomenutí registru je na dnešním železe AFAIK menší problém protože máš slušnou šanci trefit interni cache. Ktera je účinná kromě jiného i proto že prosté adresy jsou jednoduche na, ehm, optimalizaci

Nebo na něco zapomínám?

[Michal Kubeček]

IMHO měl kolega na mysli spíš tohle:

uint64_t data; uint64_t* p8 = &data; uint32_t* p4 = (uint32_t*) &data;

Teď budete chvíli pracovat s p8, chvíli s p4… Překladač neví, jestli když něco zapíšete do *p8, očekáváte, že následně hodnota *p4 bude záviset na tom, co jste tam zapsal. Pro optimalizátor by bylo ideální, kdyby mohl předpokládat, že ne, ale řada programů spoléhá na to, že ano (a musejí se překládat s -fno-strict-aliasing).

[Michal Kubeček]

Omlouvám se za code místo pre, snad je to srozumitelné i takhle.

[rADOn]

To je totéž v bledě modrém. Co zapíšu skrz jeden pointer by mělo uvíznout v cache procesoru a být čitelné skrz druhý. "Optimalizace" možná ušetří instrukci ale ne moc skutečného času protože L1 je rychlá. A naopak přidá indirekci která se na optimalizacích prováděných CPU může projevit negativně.

[:::]

Aha, takze precist to z pameti do registru a provest operaci bude nakonec rychlejsi nez primo provest operaci

I pokud by cteni z cache bylo stejne rychly jako provedeni operace, coz se obavam ze neni, tak ve vysledku to bude 2x pomalejsi... ;) A ted si predstav ze neco takovyho mas ve vnitrni smycce.

btw. samozrejme se bavime o aplikacich ktery potrebuji hruby vypocetni vykon, ne o scriptech v bashi kde te par instrukci (milionu instrukci) nemusi zajimat...

[rADOn]

I pokud by cteni z cache bylo stejne rychly jako provedeni operace, coz se obavam ze neni, tak ve vysledku to bude 2x pomalejsi... ;)

Chyba, nejsi na PDP-10 Čtení z paměti je na x86 mnohem pomalejší než samotná operace, čtení z cache je ve srovnání s tím zanedbatelné. Ergo pokud čekáš hromadu taktů na paměť, instrukce navíc není velký rozdíl. Všimni si že v kernel trafficu tady na abíčku se často zmiňuje že lidi od kernelu se nerozpakují přidat kód jen aby udrželi hardwarové cache pořádně nažhavené.

Pokud by ta operace navíc musela (často) taky čekat na paměť, bylo by to samozřejmě o něčem jiném. Prostě tím že jsou věci jednoušší se ztížila práce kompileru, ale zase ulehčila CPU. A kompiler se taky nefláká, i když nemůže instrukce zahodit, může je řadit tak aby se cache co nejvíc využívaly. Nějaký rozdíl v tom bude, ale rozhodně to nebude 2x pomalejší.

[Michal Kubeček]

Jenže při troše štěstí se může stát, že se hodnota *p4 nakonec nikde v paměti neobjeví a celou dobu svého života může být jen v registru (a ten pointer bude jen fiktivní pointer kvůli předávání odkazem do nějaké inline funkce), zatímco *p8 bude regulérní 64-bitová hodnota v paměti a p8 regulérní pointer na ni. Bez strict aliasing rules takovou optimalizaci udělat nemůžete.

[rastos]

Zatím moc jsem nepochopil práci s poentry. Tak bych potřeboval drobet nakopnout.

Po zbežnom prečítaní:

A kde tam máš nejaké pointre? Tie budeš potrebovať akurát tak pri čítaní zo súboru. Napr namiesto

read(f,vuz);

budeš mať

read(f,&vuz, sizeof(vuz));

Čo ešte iné potrebuješ?

[---]

Akorád stále přemýšlím, jak vytvořit a pracovat se strukturou.

[---]

Viz řádek 6 až 20.

[rastos]

type vozidlo = record
spz:string[8];
ridic:string[19];
poznamka:string[7];
end;
  
var
vuz:vozidlo;
f,g:file of vozidlo;
i,vel,gd,gm:integer;
odpoved:char;
zadani:string[19];
soubor:string;
trideno:boolean;
nalezeno:boolean;

typedef struct
{
  char spz[9];
  char ridic[20];
  poznamka string[8];
} vozidlo;

vozidlo vuz;
int f,g;
int i,vel,gd,gm;
char odpoved;
char zadani[20];
char *soubor; // ??
int trideno;
int nalezeno;

[---]

Díky za postrčení.

[Xerces]

A co kdybys to nepřepisoval a normálně používal Free Pascal? Ten se dál vyvíjí myslím. A máš snad jedno jakej compiler máš nainstalovanej jestli gcc nebo tc.

[---]

Sice by to šlo, ale chci to kompilovat tcc.

Jen si nedokáži představit ten binární přístupu do souboru. Počítám, že si spočítám přes sizeof velikos struktury a vynásobím jí pozici a od toho místa načtu data ?

[---]

Zatím jsem se všiml, že gcc vytváří větší binární soubor než tcc.

[Radovan]

Tak zkus po kompilaci udělat strip zkompilovany_program aby se odstranilo všechno nepotřebné

[---]

Zkusím , to mě nenapadlo.

[---]

Drobet pomohlo ,jen o necelych 700B .

[Radovan]

Tak nic, mě to obvykle skrouhne kolem 4 KB.

[---]

Jesli chápu dobře, smaže to jen ladicí informace.

[Michal Kubeček]

Těch "jen" ladících informací může být i několikanásobek toho, co zbyde. Záleží na tom, co a jak překládáte.

[Ash]

Nevím, co jsou poentry, ani Google nepomohl (did you mean poetry?), ale držím palce při studiu těch... věcí.

[---]

Vyjádřil jsem se špatně. Česky řečeno - ukazatele.

[ext3fs]

Pointer nebo-li ukazatel nebo-li smernik je vysvetlen v jakekoli ucebnici jazyka C.

int i; /* je promenna typu int (vyhrazene misto v pameti vetsinou 4 byte pro celociselnou hodnotu)*/

int *i; /*je ukazatel na typ int (ukazuje na adresu (relativni adresa), ktera ukazuje na misto vyhrazene v pameti (absolutni adresa) pro int...)*/

To je podle mne cely zaklad vedy ukazatelu.

[mich]

Co to prepsat do bashe ?

Bude to snad jen o malo delsi... (ale nevim jak se v nem tiskne) ...