home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv7.zip / VACPP / IBMCPP / macros / BUILD.LX < prev    next >
Text File  |  1995-05-11  |  2KB  |  54 lines
  1. /* This macro provides a simple build function */
  2. arg cmd parm
  3.  
  4. select
  5.  
  6.    /* initialize menus and action keys */
  7.    when "I" = cmd then do
  8.       'SET ACTIONBAR.~Options.B~uild.~Directory... BUILD D'
  9.       'SET ACTIONBAR.~Options.B~uild.~Command... BUILD C'
  10.       'SET ACTIONBAR.~Actions.~Build\tCtrl+B ;SAVEALL PROMPT MACRO BUILD B'
  11.       'SET ACTION.C-B ;SAVEALL PROMPT MACRO BUILD B'
  12.    end
  13.  
  14.    when "D" = cmd then do
  15.       'SET LINEREAD.TITLE Build Directory'
  16.       'SET LINEREAD.PROMPT Enter build directory'
  17.       'EXTRACT GLOBAL.BUILD.DIR INTO BUILDDIR'
  18.       'LINEREAD 256' builddir
  19.       'EXTRACT LASTKEY'
  20.       if lastkey = "ENTER" then do
  21.          'EXTRACT LASTLINE'
  22.          'SET GLOBAL.BUILD.DIR 'lastline
  23.       end
  24.    end
  25.  
  26.    when "C" = cmd then do
  27.       'SET LINEREAD.TITLE Build Command'
  28.       'SET LINEREAD.PROMPT Enter build command'
  29.       'EXTRACT GLOBAL.BUILD.CMD INTO BUILDCMD'
  30.       'LINEREAD 256' buildcmd
  31.       'EXTRACT LASTKEY'
  32.       if lastkey = "ENTER" then do
  33.          'EXTRACT LASTLINE'
  34.          'SET GLOBAL.BUILD.CMD 'lastline
  35.       end
  36.    end
  37.  
  38.    when "B" = cmd then do
  39.       'LX "OS/2 command shell" /dt SHL'
  40.       'EXTRACT GLOBAL.BUILD.DIR INTO BUILDDIR'
  41.       if builddir \= '' then do
  42.          if (substr(builddir,2,1) = ":") then
  43.             'CMD E 'substr(builddir,1,2)
  44.          'CMD E CD 'builddir
  45.       end
  46.  
  47.       'EXTRACT GLOBAL.BUILD.CMD INTO BUILDCMD'
  48.       if buildcmd \= '' then do
  49.          'CMD E 'buildcmd
  50.       end
  51.    end
  52. end
  53.  
  54.