home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 November / PCO_1198.ISO / filesbbs / os2 / phels15.arj / PHELS15.ZIP / BUILDWPS.CMD < prev    next >
Encoding:
Text File  |  1998-09-02  |  9.3 KB  |  340 lines
  1. /*
  2. Richtet Phelsuma/2 auf der Arbeitsoberfläche ein
  3. (c) Michael Petz 29.08.1998
  4.  
  5. Das Programm oder Teile dieses Programmes können als Quellcodebeispiel
  6. in anderen Projekten uneingeschränkt verwendet werden.
  7. */
  8. call Color "green","black"
  9. say
  10. say
  11. say "                                  Phelsuma/2"
  12. say
  13. say
  14. say "      Das Programm wird auf der Arbeitsoberfläche (WPS) eingerichtet und"
  15. say "                 ein WPS-Ordner erstellt oder aktualisiert."
  16. say ""
  17. call Color "white","black"
  18. say
  19. say
  20. say
  21. say
  22. say "Soll hiermit fortgefahren werden? (J/N)"
  23. pull xxx
  24.  
  25. call Color "white","black"
  26.  
  27. If Translate(xxx) <> "J" then Exit
  28.  
  29. cls
  30. call Color "green","black"
  31. say "Phelsuma/2"
  32. say "Registriere benötigte Bibilotheken..."
  33. call Color "white","black"
  34. call SysSleep "1"
  35.  
  36. /***** Laden der REXXUTIL Bibilothek *****/
  37. say
  38. call Color "white","blue"
  39. say "Lade Rexxutil Bibilothek..."
  40. call Color "white","black"
  41. call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  42. call SysLoadFuncs
  43.  
  44. /***** Laden der VROBJ.DLL *****/
  45. say 
  46. call Color "white","blue"
  47. say "Lade VROBJ (VXRexx DLL)..."
  48. call Color "white","black"
  49. call SysSleep 2
  50. call RXFuncAdd "VRLoadFuncs", "VROBJ", "VRLoadFuncs"
  51. call VRLoadFuncs
  52.  
  53. /***** Laden der RXU.DLL *****/
  54. say 
  55. call Color "white","blue"
  56. say "Lade Rexxutil Bibilothek (RXU.DLL)..."
  57. call Color "white","black"
  58. call SysSleep 2 
  59. call rxfuncadd 'rxuinit','rxu','rxuinit'
  60. call rxuinit
  61.  
  62. /***** Verzeichnisse der geladenen Dll's suchen *****/
  63. rc = RxQueryModuleHandle(RxHandle,"RXU.DLL") 
  64. rc = RxQueryModuleName(RxuModul,RxHandle)
  65.  
  66. rc = RxQueryModuleHandle(UtilHandle,"REXXUTIL.DLL") 
  67. rc = RxQueryModuleName(UtilModul,UtilHandle)
  68.  
  69. rc = RxQueryModuleHandle(VrHandle,"VROBJ.DLL") 
  70. rc = RxQueryModuleName(VrobjModul,VrHandle)
  71. VrobjVer = VRVersion( "VROBJ.DLL" ) 
  72.  
  73. /***** Versionskontrolle *****/
  74. Parse Var VrobjVer Ver1" "XXX
  75. If Ver1 < "2.14" then do
  76.   call Color "Red","black"
  77.   say 
  78.   say "*********** WARNUNG! ************"
  79.   call Color "red","yellow"
  80.   say
  81.   say "Sie arbeiten mit der VROBJ.DLL Version:"
  82.   say VrobjVer
  83.   say 
  84.   say "Diese Version ist veraltet!"
  85.   say "Die veraltete Version befindet sich in folgendem Verzeichnis:"
  86.   say VrobjModul
  87.   say
  88.   say "Phelsuma/2 benötigt folgende Version:"
  89.   say "2.14 01 Sept 1995 (Ver. 2.1d)"
  90.   say
  91.   say
  92.   say "W = Weiter     Return = Abbruch"
  93.   call Color "white","black"
  94.   Pull A
  95.   If Translate(A) <> "W" then Exit
  96. End
  97. call SysCls
  98. call Color "green","black"
  99. say "Folgende Bibilotheken benutzt Phelsuma/2:"
  100. call Color "white","black"
  101. say "REXXUTIL : "UtilModul
  102. say "RXU.DLL  : "RxuModul
  103. Parse Var VrobjVer Version" "Datum
  104. say "VROBJ.DLL: "VrobjModul"  (Version: "Version" vom "Datum")"
  105. say
  106. call SysSleep 2
  107. /***** Überprüfen ob Phelsuma/2 schon in der OS2.INI registriert ist *****/
  108. Ini_Pfad = SysIni('user', 'Phelsuma/2', 'Pfad')
  109. Ini_Datei = SysIni('user', 'Phelsuma/2', 'Pfad')"\Phelsuma.INI"
  110. rc = SysFileTree( Ini_Datei, "Stem" )
  111.  
  112.  
  113. /***** Phelsuma/2 in OS2.INI registrieren *****/
  114. If Stem.1 = "STEM.1" then do
  115.   say " "
  116.   say "Erzeuge Eintrag -Phelsuma/2- in OS2.INI"
  117.   rc = SysIni('user', 'Phelsuma/2', 'Pfad', Directory())
  118.   Ini_Datei = SysIni('user', 'Phelsuma/2', 'Pfad')"\Phelsuma.INI"
  119. End
  120. Ini_Pfad = SysIni('user', 'Phelsuma/2', 'Pfad')
  121.  
  122. say " "
  123. call Color "green","black"
  124. say "Erzeuge WPS-Objekte für Phelsuma/2:"
  125. call Color "white","black"
  126.  
  127. /********** Erzeugen des Ordners **********/
  128. call Color "white","blue"
  129. say "erzeuge Phelsuma/2 Ordner..."
  130. call Color "white","black"
  131.  
  132. /* Suchen nach IPFC-Icon */
  133. Icon = SysSearchPath( "BOOKSHELF", "IPFC20.ICO" )
  134. If VRFileExists( Icon ) <> "1" then Icon = ""
  135.  
  136. classname = 'WPFolder'
  137. title     = "Phelsuma/2"
  138. location  = '<WP_DESKTOP>'
  139. iconparm  = "ICONFILE="Ini_Pfad"\Phelsuma.exe";
  140. setup     = "OBJECTID=<Phelsuma_FOLDER>;" ||,
  141.              "ICONFILE="Icon";"
  142.  
  143. rc = SysCreateObject(classname, title, location, setup, 'u')
  144. If rc = "1" then do
  145.   call Color "green","black"
  146.   say "        ...erfolgreich registriert"
  147.  call Color "white","black"
  148. End
  149. else do
  150.   say "error"
  151. End
  152.  
  153. /********** Erzeugen des Project Ordners **********/
  154. call Color "white","blue"
  155. say "erzeuge Projekt Ordner..."
  156. call Color "white","black"
  157.  
  158. classname = 'WPFolder'
  159. title     = "Projekte"
  160. location  = '<Phelsuma_FOLDER>'
  161. setup     = "OBJECTID=<Phelsuma_Project_FOLDER>";
  162.  
  163. rc = SysCreateObject(classname, title, location, setup, 'u')
  164. If rc = "1" then do
  165.   call Color "green","black"
  166.   say "        ...erfolgreich registriert"
  167.  call Color "white","black"
  168. End
  169. else do
  170.   say "error"
  171. End
  172.  
  173. /********** Erzeugen des Hauptprogrammes ***********/
  174. call Color "white","blue"
  175. say "erzeuge Phelsuma/2 Programmobjekt..."
  176. call Color "white","black"
  177.  
  178. classname = 'WPProgram'
  179. title     = 'Phelsuma/2'
  180. location  = '<Phelsuma_FOLDER>'
  181. setup     = "EXENAME="Ini_Pfad"\Phelsuma.exe;" ||,
  182.             "ASSOCFILTER=*.IPF;" ||,
  183.             "ASSOCTYPE=Phelsuma/2 Project;" ||,
  184.             "CCVIEW=NO;" ||,
  185.             "PARAMETERS=<none>;"
  186. rc = SysCreateObject(classname, title, location, setup, 'u')
  187. If rc = "1" then do
  188.   call Color "green","black"
  189.   say "        ...erfolgreich registriert"
  190.  call Color "white","black"
  191. End
  192. else do
  193.   say "error"
  194. End
  195.  
  196. /*********** Erzeugen eines neuen Projektes **********/
  197. /*say "erzeuge neues Projekt..."
  198.  
  199. classname = 'WPProgram'
  200. title     = 'Neues Projekt'
  201. location  = '<Phelsuma_FOLDER>'
  202. setup     = "EXENAME="Ini_Pfad"\Phelsuma.exe;" ||,
  203.             "PARAMETERS=Neu;"
  204. rc = SysCreateObject(classname, title, location, setup, 'r')
  205. say rc*/
  206.  
  207. /********** Erzeugen der Online Referenz **********/
  208. call Color "white","blue"
  209. say "erzeuge Phelsuma/2 Referenz..."
  210. call Color "white","black"
  211. Phels_Ref = SysIni(Ini_Datei, 'Pfade', 'Phelsuma.INF')
  212. If stream(Phels_Ref, "C", "query exists") = "" then do
  213.   Phels_Ref = SysIni("user", 'Phelsuma/2', 'Pfad')"\Phelsuma.INF"
  214.   rc = SysIni(Ini_Datei, 'Pfade', "Phelsuma.INF", Phels_Ref)
  215. End
  216.  
  217. classname = 'WPProgram'
  218. title     = 'Phelsuma/2 Referenz'
  219. location  = '<Phelsuma_FOLDER>'
  220. setup     = "EXENAME=view.exe;" ||,
  221.             "PROGTYPE=PM;" ||,
  222.             "PARAMETERS="Phels_Ref" Einführung;"
  223. rc = SysCreateObject(classname, title, location, setup, 'u')
  224. If rc = "1" then do
  225.   call Color "green","black"
  226.   say "        ...erfolgreich registriert"
  227.  call Color "white","black"
  228. End
  229. else do
  230.   say "error"
  231. End
  232.  
  233. /*********** Erzeugen der IPFC Referenz **********/
  234. /*********** Erzeugen der IPFC 3.x Referenz **********/
  235. If VRFileExists( SysSearchPath( "BOOKSHELF", "IPFREF.INF" ) ) = = "1" then do
  236.  
  237.   Call Color "white","blue"
  238.   say "erzeuge IPFC 3.x Referenz..."
  239.   Call Color "white","black"
  240.   Pfad = SysSearchPath( "BOOKSHELF", "IPFREF.INF" )
  241.  
  242.   classname = 'WPProgram'
  243.   title     = 'IPFC Referenz'
  244.   location  = '<Phelsuma_FOLDER>'
  245.   setup     = "EXENAME=view.exe;" ||,
  246.               "PROGTYPE=PM;" ||,
  247.               "PARAMETERS="Pfad";"
  248.   rc = SysCreateObject(classname, title, location, setup, 'u')
  249.   If rc = "1" then do
  250.   call Color "green","black"
  251.   say "        ...erfolgreich registriert"
  252.   call Color "white","black"
  253.   End
  254.   else do
  255.     say "error"
  256.   End
  257. End
  258.  
  259. /*********** Erzeugen der IPFC 4.0 Referenz **********/
  260. If VRFileExists( SysSearchPath( "BOOKSHELF", "IPFC20.INF" ) ) = = "1" then do
  261.  
  262.   Call Color "white","blue"
  263.   say "erzeuge IPFC 4.0 Referenz..."
  264.   Call Color "white","black"
  265.   Pfad = SysSearchPath( "BOOKSHELF", "IPFC20.INF" )
  266.  
  267.   classname = 'WPProgram'
  268.   title     = 'IPFC Referenz'
  269.   location  = '<Phelsuma_FOLDER>'
  270.   setup     = "EXENAME=view.exe;" ||,
  271.               "PROGTYPE=PM;" ||,
  272.               "PARAMETERS="Pfad";"
  273.   rc = SysCreateObject(classname, title, location, setup, 'u')
  274.   If rc = "1" then do
  275.   call Color "green","black"
  276.   say "        ...erfolgreich registriert"
  277.  call Color "white","black"
  278.   End
  279.   else do
  280.     say "error"
  281.   End
  282. End
  283.  
  284.  
  285. /********** Erzeugen der Programmschablone ***********/
  286. If stream(Phels_Ref, "C", "query exists") <> "" then do
  287.   call Color "white","blue"
  288.   say "erzeuge Phelsuma/2 Projektschablone..."
  289.   call Color "white","black"
  290.  
  291.   classname = 'WPProgram'
  292.   title     = 'Phelsuma/2 Projekt'
  293.   location  = '<WP_TEMPS>'
  294.   setup     = "EXENAME="Ini_Pfad"\Phelsuma.exe;" ||,
  295.               "TEMPLATE=YES;" ||,
  296.               "PARAMETERS=NEU.IPF;"
  297.   rc = SysCreateObject(classname, title, location, setup, 'u')
  298.   If rc = "1" then do
  299.   call Color "green","black"
  300.   say "        ...erfolgreich registriert"
  301.  call Color "white","black"
  302.   End
  303.   else do
  304.     say "error"
  305.   End
  306. End
  307.  
  308. /*********** Erzeugen von BuildWPS.cmd **********/
  309. call Color "white","blue"
  310. say "erzeuge WPS-Integration..."
  311. call Color "white","black"
  312.  
  313. classname = 'WPProgram'
  314. title     = 'WPS-Integration'
  315. location  = '<Phelsuma_FOLDER>'
  316. setup     = "EXENAME="Ini_Pfad"\BuildWPS.cmd;" ||,
  317.             "PROGTYPE=WINDOWABLEVIO;"
  318. rc = SysCreateObject(classname, title, location, setup, 'u')
  319. If rc = "1" then do
  320.   call Color "green","black"
  321.   say "        ...erfolgreich registriert"
  322.  call Color "white","black"
  323. End
  324. else do
  325.   say "error"
  326. End
  327.  
  328. say
  329. call Color "yellow","black"
  330. say "Return = Abbruch"
  331. call Color "white","black"
  332. Pull
  333.  
  334. return
  335. Exit
  336.  
  337. Color: Procedure        /* call Color <ForeGround>,<BackGround> */
  338. arg F,B
  339. Colors = "BLACK RED GREEN YELLOW BLUE MAGENTA CYAN WHITE"
  340. return CHAROUT(,D2C(27)"["WORDPOS(F,COLORS)+29";"WORDPOS(B,COLORS)+39";m")