No, nedalo mi to a stahl jsem si jen tak pro zajimavost zdrojaky - mam pocit ze s portovanim tohohle kousku bude hodne starosti. Naprosto nechci snizovat schopnosti programatora, za softem stoji urcite obrovsky kus kvalitni prace, ale nevim kdo dnes jeste zna syntaxi FoxPro (jestli se nemylim?, kdyztak me opravte) a bude ochotny a schopny se prohrabavat megabajty takovychto lahudek..
procedure dejbs2
parameters nbanuc,nbn1,nbn2
pomlcka1 = at('-',nbanuc)
if pomlcka1 <> 0 then
pomlcka2 = at('-',substr(nbanuc,pomlcka1+1,17))
else
pomlcka2 = 0
endif
if pomlcka1 <> 0 then
if pomlcka2 = 0 then
* nbanuc = substr(nbanuc,1,pomlcka1-1)+substr(nbanuc,pomlcka1+1,17)+' '
else
nbanuc = substr(nbanuc,1,pomlcka2+pomlcka1-1)+substr(nbanuc,pomlcka2+pomlcka1+1,17)+' '
endif
endif
pomlcka = at('-',nbanuc)
if pomlcka <> 0 then
nbn1 = alltrim(substr(nbanuc,1,pomlcka-1))
nbn2 = alltrim(substr(nbanuc,pomlcka+1,10))
else
nbn1 = space(6)
nbn2 = alltrim(nbanuc)
endif
return
Prijde mi, ze je to takovy soft 'from the good old days' - pocita se s tim ze vse pobezi na jedne konkretni platforme ktera se nikdy nezmeni, s fixnim rozlisenim vseho co lze a naprosto bez uvah o prenositelnosti. A prepisovat znovu se to urcite nikomu chtit nebude.
Kazdopadne i tak jsem rad za kazdou novou dotazenou svobodnou aplikaci.
FoxPro náhodou tak trochu znám, dělal jsem ve verzi 2.6. Ten jazyk je celkem jednoduchý, více-méně procedurální. Prostředí je řízené událostmi, i když LinKonto na to moc nevypadá (možná pochází z nějaké velmi staré verze FoxPro).
Ty "lahůdky" jsou velmi podobné Visual Basicu. Pro člověka vyrostlého na unixech je to jistě noční můra, ale pro mě je to čitelnější, než C. Rovnítko se používá jako přiřazení i porovnání (dle kontextu). Substr vrací substring(čeho, odkud, kolik); space(x) vrací x mezer. ltrim, rtrim, alltrim provádí ořez mezer zleva/zprava/oboustranně, což je u DB poměrně zásadní věc :). At(s1,s2) vyhledává s1 v s2.
Přenositelnost teoreticky není špatná. Pokud existuje interpret jazyka, neexistují problémy známé z C. V praxi by asi byl problém s formy, ale hlavně ten interpreter neexistuje. Šlo by uvažovat o automatickém převodu kódu do Visual Basicu, a pak to upravovat. Ale ten kód je podle všeho psaný tak, že může zkolabovat i na změně délky polí v DB. To je chyba autora - který zezačátku asi nevěděl, jak ve FoxPro psát lepší kód.
Než tuhle prasárnu, to už raději třeba Python+SQLite+PyGTk. FoxPro 2.x nebyla na tu dobu špatná věc, nicméně svět DBF je dneska už opravdu trochu (dost) out.
V čem konkrétně ta prasárna spočívá? Architektura je jednovrstvá, což je vzhledem k orientaci na MS-DOSový desktop celkem pochopitelné. Pochopitelně při jakékoliv portaci by muselo dojít k oddělení DB engine od zbytku aplikace - přejít na 2-vrstvou architekturu.
Python+SQLite+PyGTk je pro takovýhle vývoj dost složité prostředí. Ekvivalentem FoxPro je dnes MS Access. Data se načítají z databáze, formuláře a kód jsou v jednom .MDB souboru na lokálním či sdíleném disku. K vytvoření nového formuláře je třeba kliknout na New, a vybrat tabulku. V praxi člověk potřebuje poněkud složitější konstrukce, ale pořád je to jednoduché. Uživatel má runtime MS Access (volně šiřitelný), který se spouští s tím MDB souborem, a vůbec netuší, že to není klasická aplikace.
VisualBasic považuji za špatný jazyk a koncepce aplikací v Accessu, byť jsou možná pro určitou množinu poměrně vhodné, mě taky nenaplňují úžasem. MDB soubor bez možnosti zařazení kódu do nějakého SCM není obecně moc dobrá věc. Ale to je fuk, v našem případě stejně nasazení Accessu ani ničeho podobného, jak bylo řečeno, nepřipadá v úvahu.
Názory se samozřejmě různí. Mě se nelíbí C a PERL, v Pythonu mi nevyhovuje tvorba bloků odsazováním. Ale asi bych neřekl, že jsou o "špatné jazyky".
MDB soubor může obsahovat formy i kód. Samozřejmě MS Jet jako DB engine není žádné terno, ale tak ho snad už nikdo nepoužívá.
Osobně si také neumím představit, že by kód LinKonta nakonec k něčemu byl...
Runtime je zřejmě free; vývoj lze dělat na verzi pro DOS. Ovšem ten runtime pro BSD se na Linuxu používá krásně :). Jak nainstalovat linux-abi, jak rekompilovat kernel... Kompilovat kernel kvůli účetnictví asi není cesta.
