home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / weasel09.zip / makefolder.cmd < prev    next >
OS/2 REXX Batch file  |  1999-09-01  |  4KB  |  127 lines
  1. /****************************************************************/
  2. /*             Creation of Weasel desktop folder                */
  3. /*    Based on a script supplied by Antonio Manara Rossini      */
  4. /****************************************************************/
  5.  
  6. /* Register with REXX API extensions. */
  7. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  8. Call SysLoadFuncs
  9.  
  10. /* Get creation disposition. */
  11. Call SysCls
  12. Say 'Weasel for OS/2 - Installation Script.'
  13. Say
  14. Say 'Create Weasel for OS/2 folder and icons.'
  15. Say
  16. Say 'NOTE: This program needs to be executed from the installation directory'
  17. Say '      of your working Weasel setup.'
  18. Say
  19. Say 'When object exists object creation should:'
  20. Call CharOut, '  (U=Update, R=Replace, F=Fail) : '
  21. Parse Upper Pull Answer
  22. CreateCollision = 'Fail'
  23. If Left( Answer, 1 ) = R Then CreateCollision = 'Replace'
  24. If Left( Answer, 1 ) = U Then CreateCollision = 'Update'
  25. Say
  26.  
  27. Call CreateObjects
  28. Exit
  29.  
  30. CreateObject: procedure
  31.     Parse Arg Class, Title, Location, Setup, Collision
  32.     Say 'Creating ['Title']'
  33.     rc = SysCreateObject( Class, Title, Location, Setup, Collision )
  34.     If rc <> 1 Then
  35.         Say ' > failed to create ['Title' | 'Class'] at location ['Location']'
  36.     return rc
  37.  
  38. CreateShadow: procedure
  39.     Parse Arg Class, Location
  40.     Say 'Creating Shadow ['Class']'
  41.     rc = SysCreateShadow( Class, Location )
  42.     If rc <> 1 Then
  43.         Say ' > failed to create ['Class'] at location ['Location']'
  44.     return rc
  45.     
  46. CreateObjects:
  47.  
  48. current_dir = directory()
  49. previous_dir = left(current_dir, ( length(current_dir) - 4 ))
  50.  
  51. /***************/
  52. /* MAIN FOLDER */
  53.  
  54. rc = CreateObject( 'WPFolder',,
  55.     'Weasel',,
  56.     '<WP_DESKTOP>',,
  57.     'NOPRINT=YES;'||,
  58.         'DEFAULTVIEW=CONTENTS;'||,
  59.         'SELFCLOSE=1;'||,
  60.         'ICONVIEW=NONGRID,NORMAL;'||,
  61.         'DETAILSVIEW=MINI;'||,
  62.         'TREEVIEW=LINES,NORMAL;'||,
  63.         'ALWAYSSORT=YES;'||,
  64.         'ICONFILE='||current_dir||'\folder.ico;'||,
  65.         'OBJECTID=<Weasel_folder>',,
  66.     CreateCollision )
  67.  
  68. /*******************/
  69. /* PROGRAM OBJECTS */
  70.  
  71.   rc = CreateObject( 'WPProgram',,
  72.       'Weasel Daemon',,
  73.       '<Weasel_folder>',,
  74.       'NOPRINT=YES;'||,
  75.           'DEFAULTVIEW=RUNNING;'||,
  76.           'EXENAME='||current_dir||'\WEASEL.EXE;'||,
  77.           'STARTUPDIR='||current_dir||';'||,
  78.           'MINIMIZED=YES;'||,
  79.           'OBJECTID=<Weasel_Daemon>',,
  80.       CreateCollision )
  81.  
  82.   rc = CreateObject( 'WPProgram',,
  83.       'Weasel Setup',,
  84.       '<Weasel_folder>',,
  85.       'NOPRINT=YES;'||,
  86.           'DEFAULTVIEW=RUNNING;'||,
  87.           'EXENAME='||current_dir||'\SETUP.EXE;'||,
  88.           'STARTUPDIR='||current_dir||';'||,
  89.           'OBJECTID=<Weasel_Setup>',,
  90.       CreateCollision )
  91.       
  92.   rc = CreateObject( 'WPProgram',,
  93.       'Weasel PMSetup',,
  94.       '<Weasel_folder>',,
  95.       'NOPRINT=YES;'||,
  96.           'DEFAULTVIEW=RUNNING;'||,
  97.           'EXENAME='||current_dir||'\PMSETUP.EXE;'||,
  98.           'STARTUPDIR='||current_dir||';'||,
  99.           'OBJECTID=<Weasel_PMSetup>',,
  100.       CreateCollision )
  101.   
  102.   rc = CreateObject( 'WPProgram',,
  103.       'Weasel Manual',,
  104.       '<Weasel_folder>',,
  105.       'NOPRINT=YES;'||,
  106.           'DEFAULTVIEW=RUNNING;'||,
  107.           'EXENAME='||'VIEW.EXE;'||,
  108.           'PARAMETERS='||current_dir||'\WEASEL.INF;'||,
  109.           'STARTUPDIR='||current_dir||';'||,
  110.           'MINIMIZED=NO;'||,
  111.           'OBJECTID=<Weasel_Manual>',,
  112.       CreateCollision )
  113.  
  114.   rc = CreateObject( 'WPShadow',,
  115.       'Register',,
  116.       '<Weasel_folder>',,
  117.       'SHADOWID='||current_dir||'\Register.BMT',,
  118.       CreateCollision )
  119.  
  120.   rc = CreateObject( 'WPShadow',,
  121.       'Tools',,
  122.       '<Weasel_folder>',,
  123.       'SHADOWID='||current_dir||'\Tools',,
  124.       CreateCollision )
  125.  
  126. return
  127.