home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / sysutils / makeobj / install.cmd next >
Encoding:
Text File  |  1993-06-15  |  1.5 KB  |  47 lines
  1. /****************************************************************************************\
  2.    MakeObj Installation
  3.    (C) 1993 Ingo Pflanz, Regensburg              e-mail c4284@rrzc1.rz.uni-regensburg.de
  4.  
  5.    inspired by:
  6.    (C) 1993 Thomas Christinck, Braunschweig      Compuserve 100031,41
  7.    (C) by Stangl Roman, 1993 and his PC/2
  8. \****************************************************************************************/
  9.  
  10.  
  11. Call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  12. Call SysLoadFuncs;
  13. InsDir =""
  14. arg line
  15.  
  16. if line = " " then
  17. do
  18.   InstDir=Filespec("Drive",Value("OS2_SHELL",,"OS2ENVIRONMENT"))||"\OS2"
  19.   say "Enter the Directory for MakeObj.cmd  (Press <ENTER> for "InstDir")"
  20.   pull line
  21. end /* do */
  22.  
  23. if line <> "" then 
  24.  do
  25.    InstDir = line
  26.    if Instdir \= "." then
  27.      do
  28.        say "copying MakeObj.cmd to "Instdir" ..."
  29.        "@COPY MakeObj.cmd "InstDir" >NUL"
  30.      end /* do */
  31.    say "creating Object on WPS ..."
  32.    RetCode = SysCreateObject( "WPProgram", "MakeObj", "<WP_DESKTOP>", "EXENAME="InstDir"\MakeObj.cmd;ASSOCFILTER=*.EXE,*.CMD,*.COM,*.BAT;ICON=MakeObj.ico;OBJECTID=<MakeObj>")
  33.   if RetCode = 0 then
  34.    do
  35.     say "The programobject <MakeObj> could not be created"
  36.     say ""
  37.     say "Please delete old objects named MKPRG, MakeObj or MKOBJ !"
  38.     say "Otherwise the association may be corrupted"
  39.    end /* do */
  40.  end /* do */
  41. else
  42.  do
  43.   say "give existing install directory or '.' for current directory"
  44.   exit
  45.  end /* do */
  46.  
  47.