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
=============================================================