home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 January / PCO0197.ISO / filesbbs / os2 / ptool212.arj / BUILDWPS.CMD next >
Encoding:
Text File  |  1996-11-16  |  4.6 KB  |  178 lines
  1. /*
  2. Prüfen ob alle benötigten Bibilotheken vorhanden sind
  3. Erstellen eines Arbeitsordner auf der WPS
  4. (c) Michael Petz 1996
  5. */
  6.  
  7. Call Color "green","black"
  8. say
  9. say "Petzi-Tools"
  10. say
  11. say "Registriere benötigte Bibilotheken..."
  12. Call Color "white","black"
  13.  
  14. /***** Laden der REXXUTIL Bibilothek *****/
  15. say
  16. Call Color "white","blue"
  17. say "Lade Rexxutil Bibilothek..."
  18. Call Color "white","black"
  19. call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  20. call SysLoadFuncs
  21. call SysSleep 2
  22.  
  23. /***** Laden der VROBJ.DLL *****/
  24. say 
  25. Call Color "white","blue"
  26. say "Lade VROBJ (VXRexx DLL)..."
  27. Call Color "white","black"
  28. call SysSleep 2
  29. call RXFuncAdd "VRLoadFuncs", "VROBJ", "VRLoadFuncs"
  30. call VRLoadFuncs
  31. VrobjVer = VRVersion( "VROBJ.DLL" ) 
  32. say "Version: "VrobjVer
  33.  
  34. /***** Laden der RXU.DLL *****/
  35. /*say 
  36. Call Color "white","blue"
  37. say "Lade Rexxutil Bibilothek (RXU.DLL)..."
  38. Call Color "white","black"
  39. call SysSleep 2 
  40. call rxfuncadd 'rxuinit','rxu','rxuinit'
  41. call rxuinit
  42.  
  43. /***** Verzeichnisse der geladenen Dll's suchen *****/
  44. rc = RxQueryModuleHandle(RxHandle,"RXU.DLL") 
  45. rc = RxQueryModuleName(RxuModul,RxHandle)
  46.  
  47. rc = RxQueryModuleHandle(UtilHandle,"REXXUTIL.DLL") 
  48. rc = RxQueryModuleName(UtilModul,UtilHandle)
  49.  
  50. rc = RxQueryModuleHandle(VrHandle,"VROBJ.DLL") 
  51. rc = RxQueryModuleName(VrobjModul,VrHandle)*/
  52. VrobjVer = VRVersion( "VROBJ.DLL" ) 
  53.  
  54. /***** Versionskontrolle *****/
  55. Parse Var VrobjVer Ver1" "XXX
  56. If Ver1 < "2.14" then do
  57.   Call Color "Red","black"
  58.   say 
  59.   say "*********** WARNUNG! ************"
  60.   Call Color "red","yellow"
  61.   say
  62.   say "Sie arbeiten mit der VROBJ.DLL Version:"
  63.   say VrobjVer
  64.   say 
  65.   say "Diese Version ist veraltet!"
  66. /*  say "Die veraltete Version befindet sich in folgendem Verzeichnis:"
  67.   say VrobjModul
  68.   say*/
  69.   say "Petzi-Tools benötigt folgende Version:"
  70.   say "2.14 01 Sept 1995 (Ver. 2.1d)"
  71.   say
  72.   say
  73.   say "W = Weiter     Return = Abbruch"
  74.   Call Color "white","black"
  75.   Pull A
  76.   If Translate(A) <> "W" then Exit
  77. End
  78. /*call SysCls
  79. Call Color "green","black"
  80. say "Folgende Bibilotheken werden von Phelsuma/2 benutzt:"
  81. Call Color "white","black"
  82. say
  83. say "REXXUTIL : "UtilModul
  84. say "RXU.DLL  : "RxuModul
  85. say "VROBJ.DLL: "VrobjModul
  86. say "           Version: "VrobjVer
  87. say*/
  88. call SysSleep 2
  89. Test:
  90. /***** Überprüfen ob Petzi-Tools schon in der OS2.INI registriert sind *****/
  91. Ini_Pfad = SysIni('user', 'Ptools', 'Pfad')
  92. rc = SysFileTree( Ini_Pfad"\*.*", "Stem" )
  93.  
  94. /***** Petzi-Tools in OS2.INI registrieren *****/
  95. If Stem.1 = "STEM.1" then do
  96.   say
  97.   say "Erzeuge Eintrag -Petzi-Tools- in OS2.INI"
  98.   rc = SysIni('user', 'Ptools', 'Pfad', Directory())
  99.   Ini_Datei = SysIni('user', 'Ptools', 'Pfad')"\Ptools.INI"
  100. End
  101. Ini_Pfad = SysIni('user', 'Ptools', 'Pfad')
  102.  
  103. say
  104. Call Color "green","black"
  105. say "Erzeuge WPS-Objekte für Petzi-Tools:"
  106. Call Color "white","black"
  107.  
  108. /********** Erzeugen des Ordners **********/
  109. say
  110. Call Color "white","blue"
  111. say "erzeuge Petzi-Tools Ordner..."
  112. Call Color "white","black"
  113.  
  114. classname = 'WPFolder'
  115. title     = "Petzi-Tools"
  116. location  = '<WP_DESKTOP>'
  117. iconparm  = "ICONFILE="Ini_Pfad"\Ptools.exe";
  118. setup     = "OBJECTID=<Ptools_FOLDER>";
  119.  
  120. rc = SysCreateObject(classname, title, location, setup, 'r')
  121. If rc = "1" then do
  122.   say "        ...erfolgreich registriert"
  123.   say " "
  124. End
  125. else do
  126.   say "error"
  127. End
  128.  
  129. /********** Erzeugen des Hauptprogrammes ***********/
  130. Call Color "white","blue"
  131. say "erzeuge Petzi-Tools Programmobjekt..."
  132. Call Color "white","black"
  133.  
  134. classname = 'WPProgram'
  135. title     = 'Petzi-Tools'
  136. location  = '<Ptools_FOLDER>'
  137. setup     = "EXENAME="Ini_Pfad"\Ptools.exe;" ||,
  138.             "ASSOCFILTER=*.INI;"
  139. rc = SysCreateObject(classname, title, location, setup, 'r')
  140. If rc = "1" then do
  141.   say "        ...erfolgreich registriert"
  142.   say " "
  143. End
  144. else do
  145.   say "error"
  146. End
  147.  
  148. /********** Erzeugen der Online Referenz **********/
  149. Call Color "white","blue"
  150. say "erzeuge Petzi-Tools Referenz..."
  151. Call Color "white","black"
  152. Ptools_Ref = Ini_Pfad"\Ptools.INF"
  153.  
  154. classname = 'WPProgram'
  155. title     = 'Petzi-Tools Referenz'
  156. location  = '<Ptools_FOLDER>'
  157. setup     = "EXENAME=view.exe;" ||,
  158.             "PROGTYPE=PM;" ||,
  159.             "PARAMETERS="Ptools_Ref";"
  160. rc = SysCreateObject(classname, title, location, setup, 'r')
  161. If rc = "1" then do
  162.   say "        ...erfolgreich registriert"
  163.   say " "
  164. End
  165. else do
  166.   say "error"
  167. End
  168.  
  169. say
  170. say "Return = Abbruch"
  171. Pull
  172.  
  173. Exit
  174.  
  175. Color: Procedure        /* Call Color <ForeGround>,<BackGround> */
  176. arg F,B
  177. Colors = "BLACK RED GREEN YELLOW BLUE MAGENTA CYAN WHITE"
  178. return CHAROUT(,D2C(27)"["WORDPOS(F,COLORS)+29";"WORDPOS(B,COLORS)+39";m")