home *** CD-ROM | disk | FTP | other *** search
/ Power GUI Programming with VisualAge C++ / powergui.iso / trialva / ibmcppw / macros / build.lx < prev    next >
Encoding:
Text File  |  1996-02-22  |  2.1 KB  |  76 lines
  1. /* BUILD.LX - 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.    end
  12.  
  13.    when "D" = cmd then do
  14.       'SET LINEREAD.TITLE Build Directory'
  15.       'SET LINEREAD.PROMPT Enter build directory'
  16.       'EXTRACT GLOBAL.BUILD.DIR INTO BUILDDIR'
  17.       'LINEREAD 256' builddir
  18.       'EXTRACT LASTKEY'
  19.       if lastkey = "ENTER" then do
  20.          'EXTRACT LASTLINE'
  21.          'SET GLOBAL.BUILD.DIR 'lastline
  22.          'SET DIRECTORY '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.       'EXTRACT DOCLIST'
  40.       if doclist \= '' then
  41.          'EXTRACT DOCNUM INTO SAVEDOCNUM'
  42.       else
  43.          savedocnum = 0
  44.       do while doclist \= ''
  45.          parse var doclist docnum doclist
  46.          'GODOC NOACT DOCNUM 'docnum
  47.          'EXTRACT DOCTYPE'
  48.          if doctype \= 'SHL' then
  49.             'EMSG DELETE'
  50.       end
  51.       if savedocnum \= 0 then
  52.          'GODOC NOACT DOCNUM 'savedocnum
  53.  
  54.       'EXTRACT GLOBAL.BUILD.DIR INTO BUILDDIR'
  55.       if builddir \= '' then do
  56.          if (substr(builddir,2,1) = ":") then do
  57.             drive = substr(builddir,1,1);
  58.             'SET DRIVE 'drive
  59.             builddir = substr(builddir,3);
  60.          end
  61.          'SET DIRECTORY 'builddir
  62.       end
  63.       'LX "Command shell" /NP /DT SHL'
  64.       if drive \= '' then
  65.          'CMD E 'drive':'
  66.       if builddir \= '' then
  67.          'CMD E CD 'builddir
  68.  
  69.       'EXTRACT GLOBAL.BUILD.CMD INTO BUILDCMD'
  70.       if buildcmd \= '' then do
  71.          'CMD E 'buildcmd
  72.       end
  73.    end
  74. end
  75.  
  76.