home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / netdor3.zip / VNDINST / FRNTENDS / PROLOG2 / PACKRUN.CMD < prev   
OS/2 REXX Batch file  |  1996-04-04  |  2KB  |  75 lines
  1. /******************************************************************
  2.  
  3. Description:    IBM Prolog/2 Run Exec
  4.  
  5. Details:        This exec sets up the appropriate Prolog/2
  6.                 environment then executes Prolog/2 in the
  7.                 appropriate user specified mode.
  8.  
  9. Dependencies:
  10.    Externals:   None
  11.    Drive(s):    None
  12.    Directories: Assumes all package components in current
  13.                  directory.
  14.    Window Type: FS/Win
  15.    App Title:   None
  16.  
  17. Last Updated 11/26/91
  18. ******************************************************************/
  19.  '@echo off'
  20.  trace 'o'
  21.  
  22.  parse source . . exec
  23.  Pdr=left(exec, lastpos('\', exec))
  24.  
  25.  /* Give header */
  26.  say
  27.  say ' IBM PROLOG/2'
  28.  say ' ------------'
  29.  say
  30.  say 'Setting up IBM PROLOG/2 environment for this session...'
  31.  
  32.  /* Get and set HELP Env Var */
  33.  oldhelp = value('HELP',,'OS2ENVIRONMENT')
  34.  newhelp = Pdr';'oldhelp
  35.  call value 'HELP', newhelp,  'OS2ENVIRONMENT'
  36.  
  37.  /* Get and set PROLOGPATH local Source code directory Env Var */
  38.  Local.Directory = RxOS2Ini(, 'Directories', 'PROLOG2')
  39.  call value 'PROLOGPATH', Local.Directory, 'OS2ENVIRONMENT'
  40.  
  41.  /* Indicate editor info */
  42.  proedit = value('PROLOGEDIT',,'OS2ENVIRONMENT')
  43.  if proedit = '' then do
  44.     say
  45.     say 'Setting the default editor to be EPM.....'
  46.     say
  47.     say 'To change the default to use a different editor - '
  48.     say '      Edit CONFIG.SYS and Add environment variable:'
  49.     say
  50.     say '         PROLOGEDIT=your.editor'
  51.     say
  52.     call value 'PROLOGEDIT','EPM.EXE','OS2ENVIRONMENT'
  53.  end
  54.  else do
  55.    say
  56.    say 'Default Prolog Editor = 'proedit
  57.    say
  58.  end
  59.  
  60.  say 'Set Up Done'   /* Tell user env setup is complete */
  61.  
  62.  
  63.  say '*********',
  64.      ' Loading PROLOG takes about 1 minute. Please be patient ',
  65.      '*********'
  66.  say
  67.  say ' Do Not Terminate This Session.'
  68.  say
  69.  say '   Prolog is running in another session.  This session'
  70.  say '   must be active while Prolog is running.'
  71.  
  72. 'PROLOG /PM'
  73.  
  74.  'exit'
  75.