home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / escri096.zip / UnInstal.cmd < prev   
OS/2 REXX Batch file  |  1997-01-15  |  8KB  |  347 lines
  1. /* UNINSTAL.CMD: Uninstall ESCRIBA. */
  2.  
  3. '@Echo Off'
  4. 'CHCP 850'
  5.  
  6.  
  7. /* Load REXXUTIL */
  8.  
  9. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  10. Call SysLoadFuncs
  11.  
  12.  
  13. /* Initialize */
  14.  
  15. Signal On Failure Name FAILURE
  16. Signal On Halt Name HALT
  17. Signal On Syntax Name SYNTAX
  18.  
  19. /* Confirm the user's intentions. */
  20.  
  21. Call SysCls
  22. Say 'Do you wish to uninstall Escriba? (Y/N)'
  23. Pull YesNo
  24. If \ ( YesNo = "Y" ) Then Signal Done
  25.  
  26.  
  27. /* Announce the start of the destruction . . . */
  28.  
  29. Say 'Removing ESCRIBA...'
  30. Say ''
  31.  
  32. /* Determine Escriba directory. */
  33.  
  34. Default = SysIni('USER', 'ESCRIBA', 'INIPATH' )
  35. If Default = 'ERROR:' Then Do
  36.   Say 'ERROR: ESCRIBA does not appear to be installed on this system.'
  37.   Signal DONE
  38.   End
  39.  
  40. If SUBSTR(Default,LENGTH(Default),1) <= ' '
  41.   Then Default = SUBSTR(Default,1,LENGTH(Default)-1)
  42.  
  43.  
  44. /* Remove every Escriba file from the install directory. */
  45.  
  46. Result = SysFileTree( Default"\Escriba.EXE", 'Files', 'F' )
  47. If Files.0 > 0 Then Do
  48.   Say "Removing Escriba.exe."
  49.   'Erase' Default'\escriba.exe'
  50.   End
  51.  
  52. Result = SysFileTree( Default"\Escriba.INI", 'Files', 'F' )
  53. If Files.0 > 0 Then Do
  54.   Say "Removing Escriba.INI."
  55.   'Erase' Default'\escriba.INI'
  56.   End
  57.  
  58. Result = SysFileTree( Default"\Escriba.DOC", 'Files', 'F' )
  59. If Files.0 > 0 Then Do
  60.   Say "Removing Escriba.doc."
  61.   'Erase' Default'\escriba.doc'
  62.   End
  63.  
  64. Result = SysFileTree( Default"\Escriba.INF", 'Files', 'F' )
  65. If Files.0 > 0 Then Do
  66.   Say "Removing Escriba.inf."
  67.   'Erase' Default'\escriba.inf'
  68.   End
  69.  
  70. Result = SysFileTree( Default"\Escriba.ICO", 'Files', 'F' )
  71. If Files.0 > 0 Then Do
  72.   Say "Removing Escriba.ico."
  73.   'Erase' Default'\escriba.ico'
  74.   End
  75.  
  76. Result = SysFileTree( Default"\Escriba.LOG", 'Files', 'F' )
  77. If Files.0 > 0 Then Do
  78.    Say "Removing Escriba.log."
  79.    'Erase' Default'\escriba.log'
  80.    End
  81.  
  82. Result = SysFileTree( Default"\RUNTIME.DLL", 'Files', 'F' )
  83. If Files.0 > 0 Then Do
  84.    Say "Removing RunTime.dll."
  85.    'Erase' Default'\RunTime.dll'
  86.    End
  87.  
  88. Result = SysFileTree( Default"\ISpeller.DLL", 'Files', 'F' )
  89. If Files.0 > 0 Then Do
  90.    Say "Removing ISpeller.dll."
  91.    'Erase' Default'\ISpeller.dll'
  92.    End
  93.  
  94. Result = SysFileTree( Default"\ISpeller.INI", 'Files', 'F' )
  95. If Files.0 > 0 Then Do
  96.    Say "Removing ISpeller.INI."
  97.    'Erase' Default'\ISpeller.INI'
  98.    End
  99.  
  100. Result = SysFileTree( Default"\BuildHas.EXE", 'Files', 'F' )
  101. If Files.0 > 0 Then Do
  102.    Say "Removing BuildHas.exe."
  103.    'Erase' Default'\BuildHas.exe'
  104.    End
  105.  
  106. Result = SysFileTree( Default"\*.DIC", 'Files', 'F' )
  107. If Files.0 > 0 Then Do
  108.    Say "Removing *.DIC."
  109.    'Erase' Default'\*.DIC'
  110.    End
  111.  
  112. Result = SysFileTree( Default"\*.AFF", 'Files', 'F' )
  113. If Files.0 > 0 Then Do
  114.    Say "Removing *.AFF."
  115.    'Erase' Default'\*.AFF'
  116.    End
  117.  
  118. Result = SysFileTree( Default"\*.HSH", 'Files', 'F' )
  119. If Files.0 > 0 Then Do
  120.    Say "Removing *.HSH."
  121.    'Erase' Default'\*.HSH'
  122.    End
  123.  
  124. Result = SysFileTree( Default"\BMP.DLL", 'Files', 'F' )
  125. If Files.0 > 0 Then Do
  126.    Say "Removing BMP.DLL."
  127.    'Erase' Default'\BMP.DLL'
  128.    End
  129.  
  130. Result = SysFileTree( Default"\BMP.INI", 'Files', 'F' )
  131. If Files.0 > 0 Then Do
  132.    Say "Removing BMP.INI."
  133.    'Erase' Default'\BMP.INI'
  134.    End
  135.  
  136. Result = SysFileTree( Default"\BMP__*.*", 'Files', 'F' )
  137. If Files.0 > 0 Then Do
  138.    Say "Removing BMP__*.*."
  139.    'Erase' Default'\BMP__*.*'
  140.    End
  141.  
  142. Result = SysFileTree( Default"\GIF.DLL", 'Files', 'F' )
  143. If Files.0 > 0 Then Do
  144.    Say "Removing GIF.DLL."
  145.    'Erase' Default'\GIF.DLL'
  146.    End
  147.  
  148. Result = SysFileTree( Default"\GIF.INI", 'Files', 'F' )
  149. If Files.0 > 0 Then Do
  150.    Say "Removing GIF.INI."
  151.    'Erase' Default'\GIF.INI'
  152.    End
  153.  
  154. Result = SysFileTree( Default"\GIF__*.*", 'Files', 'F' )
  155. If Files.0 > 0 Then Do
  156.    Say "Removing GIF__*.*."
  157.    'Erase' Default'\GIF__*.*'
  158.    End
  159.  
  160. Result = SysFileTree( Default"\HTML.DLL", 'Files', 'F' )
  161. If Files.0 > 0 Then Do
  162.    Say "Removing HTML.DLL."
  163.    'Erase' Default'\HTML.DLL'
  164.    End
  165.  
  166. Result = SysFileTree( Default"\HTML.INI", 'Files', 'F' )
  167. If Files.0 > 0 Then Do
  168.    Say "Removing HTML.INI."
  169.    'Erase' Default'\HTML.INI'
  170.    End
  171.  
  172. Result = SysFileTree( Default"\HTML_*.*", 'Files', 'F' )
  173. If Files.0 > 0 Then Do
  174.    Say "Removing HTML_*.*."
  175.    'Erase' Default'\HTML_*.*'
  176.    End
  177.  
  178. Result = SysFileTree( Default"\JPEG.DLL", 'Files', 'F' )
  179. If Files.0 > 0 Then Do
  180.    Say "Removing JPEG.DLL."
  181.    'Erase' Default'\JPEG.DLL'
  182.    End
  183.  
  184. Result = SysFileTree( Default"\JPEG.INI", 'Files', 'F' )
  185. If Files.0 > 0 Then Do
  186.    Say "Removing JPEG.INI."
  187.    'Erase' Default'\JPEG.INI'
  188.    End
  189.  
  190. Result = SysFileTree( Default"\JPEG_*.*", 'Files', 'F' )
  191. If Files.0 > 0 Then Do
  192.    Say "Removing JPEG_*.*."
  193.    'Erase' Default'\JPEG_*.*'
  194.    End
  195.  
  196. Result = SysFileTree( Default"\PCX.DLL", 'Files', 'F' )
  197. If Files.0 > 0 Then Do
  198.    Say "Removing PCX.DLL."
  199.    'Erase' Default'\PCX.DLL'
  200.    End
  201.  
  202. Result = SysFileTree( Default"\PCX.INI", 'Files', 'F' )
  203. If Files.0 > 0 Then Do
  204.    Say "Removing PCX.INI."
  205.    'Erase' Default'\PCX.INI'
  206.    End
  207.  
  208. Result = SysFileTree( Default"\PCX__*.*", 'Files', 'F' )
  209. If Files.0 > 0 Then Do
  210.    Say "Removing PCX__*.*."
  211.    'Erase' Default'\PCX__*.*'
  212.    End
  213.  
  214. Result = SysFileTree( Default"\PTEXT.DLL", 'Files', 'F' )
  215. If Files.0 > 0 Then Do
  216.    Say "Removing PTEXT.DLL."
  217.    'Erase' Default'\PTEXT.DLL'
  218.    End
  219.  
  220. Result = SysFileTree( Default"\PTEXT.INI", 'Files', 'F' )
  221. If Files.0 > 0 Then Do
  222.    Say "Removing PTEXT.INI."
  223.    'Erase' Default'\PTEXT.INI'
  224.    End
  225.  
  226. Result = SysFileTree( Default"\PTXT_*.*", 'Files', 'F' )
  227. If Files.0 > 0 Then Do
  228.    Say "Removing PTXT_*.*."
  229.    'Erase' Default'\PTXT_*.*'
  230.    End
  231.  
  232. Result = SysFileTree( Default"\TIFF.DLL", 'Files', 'F' )
  233. If Files.0 > 0 Then Do
  234.    Say "Removing TIFF.DLL."
  235.    'Erase' Default'\TIFF.DLL'
  236.    End
  237.  
  238. Result = SysFileTree( Default"\TIFF.INI", 'Files', 'F' )
  239. If Files.0 > 0 Then Do
  240.    Say "Removing TIFF.INI."
  241.    'Erase' Default'\TIFF.INI'
  242.    End
  243.  
  244. Result = SysFileTree( Default"\TIFF_*.*", 'Files', 'F' )
  245. If Files.0 > 0 Then Do
  246.    Say "Removing TIFF_*.*."
  247.    'Erase' Default'\TIFF_*.*'
  248.    End
  249.  
  250. Result = SysFileTree( Default"\DEUTSCH.*", 'Files', 'F' )
  251. If Files.0 > 0 Then Do
  252.    Say "Removing DEUTSCH.*."
  253.    'Erase' Default'\DEUTSCH.*'
  254.    End
  255.  
  256. Result = SysFileTree( Default"\ENGLISH.*", 'Files', 'F' )
  257. If Files.0 > 0 Then Do
  258.    Say "Removing ENGLISH.*."
  259.    'Erase' Default'\ENGLISH.*'
  260.    End
  261.  
  262. Result = SysFileTree( Default"\ESPANOL.*", 'Files', 'F' )
  263. If Files.0 > 0 Then Do
  264.    Say "Removing ESPANOL.*."
  265.    'Erase' Default'\ESPANOL.*'
  266.    End
  267.  
  268. Result = SysFileTree( Default"\FRANCAIS.*", 'Files', 'F' )
  269. If Files.0 > 0 Then Do
  270.    Say "Removing FRANCAIS.*."
  271.    'Erase' Default'\FRANCAIS.*'
  272.    End
  273.  
  274. Result = SysFileTree( Default"\NDRLANDS.*", 'Files', 'F' )
  275. If Files.0 > 0 Then Do
  276.    Say "Removing NDRLANDS.*."
  277.    'Erase' Default'\NDRLANDS.*'
  278.    End
  279.  
  280. Result = SysFileTree( Default"\PLUMAR.DLL", 'Files', 'F' )
  281. If Files.0 > 0 Then Do
  282.   Say "Removing PlumaR.dll."
  283.   'Erase' Default'\PlumaR.dll'
  284.   End
  285.  
  286. Result = SysFileTree( Default"\ESCRIBAR.DLL", 'Files', 'F' )
  287. If Files.0 > 0 Then Do
  288.   Say "Removing EscribaR.dll."
  289.   'Erase' Default'\EscribaR.dll'
  290.   End
  291.  
  292. Result = SysFileTree( Default"\UNINSTAL.CMD", 'Files', 'F' )
  293. If Files.0 > 0 Then Do
  294.   Say "Removing Uninstal.cmd."
  295.   'Erase' Default'\Uninstal.cmd'
  296.   End
  297.  
  298. Result = SysFileTree( Default"\*.*", 'Files', 'F' )
  299. If Files.0 == 0 Then Do
  300.    Say "Removing directory "Default"."
  301.    'rmdir' Default
  302.    End
  303.  
  304.  
  305. /* Destroy the Escriba WPS objects. */
  306.  
  307. Say "Removing WPS objects."
  308. Result = SysDestroyObject( "<ESCRIBA>" )
  309. Result = SysDestroyObject( "<ESCRIBAI>" )
  310. Result = SysDestroyObject( "<ESCRIBAD>" )
  311. Result = SysDestroyObject( "<ESCRIBAF>" )
  312.  
  313.  
  314. /* Remove the USER/ESCRIBA/INIPATH entry. */
  315.  
  316. Say "Removing forwarding entry in OS2.INI."
  317. Result = SysIni('USER', 'ESCRIBA', 'DELETE:' )
  318.  
  319.  
  320. /* Terminate procedure. */
  321.  
  322. If Files.0 == 0 Then Do
  323.    Say "Done.  You will still need to manually"
  324.    Say "  remove UNINSTAL.CMD."
  325.    End /* do */
  326. Else Do
  327.    Say "Done.  You will still need to manually"
  328.    Say "  remove UNINSTAL.CMD and the directory"
  329.    Say "  '"Default"'."
  330.    End /* do */
  331. Signal DONE
  332.  
  333. FAILURE:
  334. Say 'REXX failure.'
  335. Signal DONE
  336.  
  337. HALT:
  338. Say 'REXX halt.'
  339. Signal DONE
  340.  
  341. SYNTAX:
  342. Say 'REXX syntax error.'
  343. Signal DONE
  344.  
  345. DONE:
  346. Exit
  347.