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