home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 October
/
Chip_1997-10_cd.bin
/
ctenari
/
profun
/
popis.txt
next >
Wrap
Text File
|
1997-03-03
|
3KB
|
74 lines
Program slouºí k v∞pisu hlaviƒek procedur a funkcí ze zadan∞ch
pascalsk∞ch zdrojov∞ch programà.
Volání:
PROFUN [-[E/I][S][P][H/?]] maska1 [maska2]...
Provede v∞pis ²ádkà s textem "procedure" nebo "function"
ve tvaru:
²ádek [yz] text_²ádku_programu
kde y: má hodnotu bu╘ P pro program nebo U pro unitu
z: má hodnotu E pro ƒást interface resp. pro program
a hodnotu I pro ćst implementation.
Namísto / lze pouºít -. Po²adí parametru je libovolné.
Maska je b╪ºná DOSovská maska souboru, màºe b∞t vƒetn╪ cesty.
E - v∞pis jen z ƒásti "interface"
I - vypis jen z ćsti "implementation".
Není-li E ani I uvedeno, provede se v∞pis obou ƒásti.
P - cesta se nebude vypisovat samostatn╪ (má smysl pro transfer)
S - v∞pis bude mít tvar: ²ádek proc./funkce název
a bude set²íd╪n podle názvu, nejprve funkce a pak procedury.
Max. poƒet proc./funkcí v tomto p²ípad╪ je 500.
N - t²íd╪ní ignoruje rozdíl procedura/funkce
H/? - tato nápov╪da.
Program lze pouºít v TOOLS (volba Options/Tools) v IDE Turbo
Pascalu obdobn╪ jako program GREP.
Doporuƒen∞ ComandLine v tomto p²ípad╪:
$MEM(64) $NOSWAP $CAP MSG(GREP2MSG) $PROMPT *.pas [/esp]
P²íklad v∞pisu p²i samostatném spuτt╪ní po zadání p²íkazu:
Profun *.PAS /E
File UA01MS10.PAS
0 *********** cesta: D:\SHARE\PROFUN ************
0 pamet=500560
23 [UE] Function BuildKey(var Rec; KeyNr : Word) : IsamKeyStr; virtual;
25 [UE] Function EqualRec(var Rec1, Rec2) : Boolean; virtual;
26 [UE] Procedure MatriBrow(Jake: Byte);
27 [UE] Procedure RebuildStatus(KeyNr : Word;
31 [UE] Procedure AllocatePageBuffer(HeapToRemain: Longint);
32 [UE] Procedure ProhlizeniMS(Jake: Byte);
33 [UE] Function ProvAktMS(VeV : HlavKVeta): Boolean;
34 [UE] Function ProvAktMS1(VeV: PlanVeta): Boolean;
35 [UE] Function ProvOpenMS(Zalozit: Boolean): Boolean;
36 [UE] Function ProvCloseMS: Boolean;
37 [UE] Function RekonstrukceMS: Boolean;
38 [UE] Function PromitniSoubor10(Jmeno,Hlavicka: String): Boolean;
File UA01SPOS.PAS
0 *********** cesta: D:\SHARE\PROFUN ************
0 pamet=500560
18 [UE] Procedure NactiSpojovaky(Jmeno: String);
Ji²í Ventluka
Praha 1993
=============================================================