home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / epmgcc32.zip / gccactn.e < prev    next >
Text File  |  1996-12-07  |  15KB  |  359 lines

  1. /*
  2. ╔══════════════════════════════════════════════════════════════════════════════╗
  3. ║ What's it called: EPMGCC  V3.20                                              ║
  4. ║                                                                              ║
  5. ║ What does it do:  The E source code for the GCC-Interface for EPM.           ║
  6. ║                   This file contains the command definitions for the         ║
  7. ║                   toolbar-support for EPMGCC.                                ║
  8. ║                   Note: Add the line                                         ║
  9. ║                           gccactn                                            ║
  10. ║                         to your ACTIONS.LST file.                            ║
  11. ║                                                                              ║
  12. ║ Who and When:     B. Bablok 12/93 - 07/96                                    ║
  13. ║                                                                              ║
  14. ╚══════════════════════════════════════════════════════════════════════════════╝
  15. */
  16.  
  17. CONST
  18.    WANT_DYNAMIC_PROMPTS = 1  -- Force definition of menu prompts in ENGLISH.E.
  19.    GCC_ACTION = 'GCC Actions'
  20.  
  21. INCLUDE 'stdconst.e'
  22. INCLUDE 'gccconst.e'
  23. INCLUDE 'english.e'
  24. INCLUDE 'menuhelp.h'
  25. /*
  26. ┌──────────────────────────────────────────────────────────────────────────────┐
  27. │  Building actionlist lines                                                   │
  28. └──────────────────────────────────────────────────────────────────────────────┘
  29. */
  30. DEFC gccactn_actionlist
  31.    UNIVERSAL ActionsList_FileID  -- This is the fileid that gets the line(s)
  32.  
  33. INSERTLINE "gccOpenProject"GCC_OPEN__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  34. INSERTLINE "gccSelectProject"GCC_SEL__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  35. INSERTLINE "gccEditProject"GCC_EDIT__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  36. INSERTLINE "gccCloseProject"GCC_CLOSE__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  37. INSERTLINE "gccSetCompOptions"GCC_COMP_OPT__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  38. INSERTLINE "gccCompileFile"GCC_COMP__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  39. INSERTLINE "gccSetMakeOptions"GCC_BUILD_OPT__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  40. INSERTLINE "gccBuildProject"GCC_BUILD__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  41. INSERTLINE "gccViewResults"GCC_VIEW__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  42. INSERTLINE "gccRunExe"GCC_RUN__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  43. INSERTLINE "gccDebugExe"GCC_DEBUG__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  44. INSERTLINE "gccToggleDebugMode"GCC_DEBUGMODE__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  45. INSERTLINE "gccToggleAutosaveMode"GCC_AUTOSAVE__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  46. INSERTLINE "gccToggleVerboseMode"GCC_VERBOSE__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  47. INSERTLINE "gccToggleRemoveMode"GCC_REMOVE__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  48. INSERTLINE "gccPrevErr"GCC_PREV_ERR__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  49. INSERTLINE "gccCurrErr"GCC_CURR_ERR__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  50. INSERTLINE "gccNextErr"GCC_NEXT_ERR__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  51. /*
  52. ┌──────────────────────────────────────────────────────────────────────────────┐
  53. │  Command definitions (toolbar commands)                                      │
  54. └──────────────────────────────────────────────────────────────────────────────┘
  55. */
  56. DEFC gccOpenProject =
  57.    PARSE ARG action_letter parms
  58.    IF action_letter = 'I' THEN       -- button Initialized
  59.       DISPLAY -8
  60.       SAYERROR GCC_OPEN__MSG
  61.       DISPLAY 8
  62.    ELSEIF action_letter = 'S' THEN   -- button Selected
  63.       SAYERROR 0                        -- Clear prompt
  64.       'gcc_open_project'                -- execute action
  65.    ELSEIF action_letter = 'H' THEN   -- button Help
  66.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_OPEN__MSG,
  67.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  68.    ELSEIF action_letter = 'E' THEN   -- button End
  69. ;;    SAYERROR 0
  70.    ENDIF
  71.  
  72. DEFC gccSelectProject =
  73.    PARSE ARG action_letter parms
  74.    IF action_letter = 'I' THEN       -- button Initialized
  75.       DISPLAY -8
  76.       SAYERROR GCC_SEL__MSG
  77.       DISPLAY 8
  78.    ELSEIF action_letter = 'S' THEN   -- button Selected
  79.       SAYERROR 0                        -- Clear prompt
  80.       'gcc_select_project'                -- execute action
  81.    ELSEIF action_letter = 'H' THEN   -- button Help
  82.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_SEL__MSG,
  83.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  84.    ELSEIF action_letter = 'E' THEN   -- button End
  85. ;;    SAYERROR 0
  86.    ENDIF
  87.  
  88. DEFC gccEditProject =
  89.    PARSE ARG action_letter parms
  90.    IF action_letter = 'I' THEN       -- button Initialized
  91.       DISPLAY -8
  92.       SAYERROR GCC_EDIT__MSG
  93.       DISPLAY 8
  94.    ELSEIF action_letter = 'S' THEN   -- button Selected
  95.       SAYERROR 0                        -- Clear prompt
  96.       'gcc_edit_project'                -- execute action
  97.    ELSEIF action_letter = 'H' THEN   -- button Help
  98.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_EDIT__MSG,
  99.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  100.    ELSEIF action_letter = 'E' THEN   -- button End
  101. ;;    SAYERROR 0
  102.    ENDIF
  103.  
  104. DEFC gccCloseProject =
  105.    PARSE ARG action_letter parms
  106.    IF action_letter = 'I' THEN       -- button Initialized
  107.       DISPLAY -8
  108.       SAYERROR GCC_CLOSE__MSG
  109.       DISPLAY 8
  110.    ELSEIF action_letter = 'S' THEN   -- button Selected
  111.       SAYERROR 0                        -- Clear prompt
  112.       'gcc_close_project'                -- execute action
  113.    ELSEIF action_letter = 'H' THEN   -- button Help
  114.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_CLOSE__MSG,
  115.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  116.    ELSEIF action_letter = 'E' THEN   -- button End
  117. ;;    SAYERROR 0
  118.    ENDIF
  119.  
  120. DEFC gccSetCompOptions =
  121.    PARSE ARG action_letter parms
  122.    IF action_letter = 'I' THEN       -- button Initialized
  123.       DISPLAY -8
  124.       SAYERROR GCC_COMP_OPT__MSG
  125.       DISPLAY 8
  126.    ELSEIF action_letter = 'S' THEN   -- button Selected
  127.       SAYERROR 0                        -- Clear prompt
  128.       IF gcc_is_cc_file() THEN
  129.         'gcc_set_comp_options'
  130.       ELSE
  131.         SAYERROR 'No c/cc-file'
  132.       ENDIF
  133.    ELSEIF action_letter = 'H' THEN   -- button Help
  134.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_COMP_OPT__MSG,
  135.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  136.    ELSEIF action_letter = 'E' THEN   -- button End
  137. ;;    SAYERROR 0
  138.    ENDIF
  139.  
  140. DEFC gccCompileFile =
  141.    PARSE ARG action_letter parms
  142.    IF action_letter = 'I' THEN       -- button Initialized
  143.       DISPLAY -8
  144.       SAYERROR GCC_COMP__MSG
  145.       DISPLAY 8
  146.    ELSEIF action_letter = 'S' THEN   -- button Selected
  147.       SAYERROR 0                        -- Clear prompt
  148.       IF gcc_is_cc_file() THEN
  149.         'gcc_compile_file'
  150.       ELSE
  151.         SAYERROR 'cannot compile' .filename
  152.       ENDIF
  153.    ELSEIF action_letter = 'H' THEN   -- button Help
  154.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_COMP__MSG,
  155.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  156.    ELSEIF action_letter = 'E' THEN   -- button End
  157. ;;    SAYERROR 0
  158.    ENDIF
  159.  
  160. DEFC gccSetMakeOptions =
  161.    PARSE ARG action_letter parms
  162.    IF action_letter = 'I' THEN       -- button Initialized
  163.       DISPLAY -8
  164.       SAYERROR GCC_BUILD_OPT__MSG
  165.       DISPLAY 8
  166.    ELSEIF action_letter = 'S' THEN   -- button Selected
  167.       SAYERROR 0                        -- Clear prompt
  168.       IF gcc_project_open() THEN
  169.         'gcc_set_make_options'
  170.       ELSE
  171.         SAYERROR 'no project open'
  172.       ENDIF
  173.    ELSEIF action_letter = 'H' THEN   -- button Help
  174.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_BUILD_OPT__MSG,
  175.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  176.    ELSEIF action_letter = 'E' THEN   -- button End
  177. ;;    SAYERROR 0
  178.    ENDIF
  179.  
  180. DEFC gccBuildProject =
  181.    PARSE ARG action_letter parms
  182.    IF action_letter = 'I' THEN       -- button Initialized
  183.       DISPLAY -8
  184.       SAYERROR GCC_BUILD__MSG
  185.       DISPLAY 8
  186.    ELSEIF action_letter = 'S' THEN   -- button Selected
  187.       SAYERROR 0                        -- Clear prompt
  188.       IF gcc_project_file_exists() THEN
  189.         'gcc_build_project'
  190.       ELSE
  191.         SAYERROR 'project file does not exist'
  192.       ENDIF
  193.    ELSEIF action_letter = 'H' THEN   -- button Help
  194.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_BUILD__MSG,
  195.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  196.    ELSEIF action_letter = 'E' THEN   -- button End
  197. ;;    SAYERROR 0
  198.    ENDIF
  199.  
  200. DEFC gccViewResults =
  201.    PARSE ARG action_letter parms
  202.    IF action_letter = 'I' THEN       -- button Initialized
  203.       DISPLAY -8
  204.       SAYERROR GCC_VIEW__MSG
  205.       DISPLAY 8
  206.    ELSEIF action_letter = 'S' THEN   -- button Selected
  207.       SAYERROR 0                        -- Clear prompt
  208.       'gcc_view_results'          -- execute action
  209.    ELSEIF action_letter = 'H' THEN   -- button Help
  210.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_VIEW__MSG,
  211.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  212.    ELSEIF action_letter = 'E' THEN   -- button End
  213. ;;    SAYERROR 0
  214.    ENDIF
  215.  
  216. DEFC gccRunExe =
  217.    PARSE ARG action_letter parms
  218.    IF action_letter = 'I' THEN       -- button Initialized
  219.       DISPLAY -8
  220.       SAYERROR GCC_RUN__MSG
  221.       DISPLAY 8
  222.    ELSEIF action_letter = 'S' THEN   -- button Selected
  223.       SAYERROR 0                        -- Clear prompt
  224.       'gcc_run_exe'          -- execute action
  225.    ELSEIF action_letter = 'H' THEN   -- button Help
  226.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_RUN__MSG,
  227.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  228.    ELSEIF action_letter = 'E' THEN   -- button End
  229. ;;    SAYERROR 0
  230.    ENDIF
  231.  
  232. DEFC gccDebugExe =
  233.    PARSE ARG action_letter parms
  234.    IF action_letter = 'I' THEN       -- button Initialized
  235.       DISPLAY -8
  236.       SAYERROR GCC_DEBUG__MSG
  237.       DISPLAY 8
  238.    ELSEIF action_letter = 'S' THEN   -- button Selected
  239.       SAYERROR 0                        -- Clear prompt
  240.       'gcc_debug_exe'          -- execute action
  241.    ELSEIF action_letter = 'H' THEN   -- button Help
  242.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_DEBUG__MSG,
  243.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  244.    ELSEIF action_letter = 'E' THEN   -- button End
  245. ;;    SAYERROR 0
  246.    ENDIF
  247.  
  248. DEFC gccToggleDebugMode =
  249.    PARSE ARG action_letter parms
  250.    IF action_letter = 'I' THEN       -- button Initialized
  251.       DISPLAY -8
  252.       SAYERROR GCC_DEBUGMODE__MSG
  253.       DISPLAY 8
  254.    ELSEIF action_letter = 'S' THEN   -- button Selected
  255.       SAYERROR 0                        -- Clear prompt
  256.       'gcc_toggle_debug_mode'          -- execute action
  257.    ELSEIF action_letter = 'H' THEN   -- button Help
  258.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_DEBUGMODE__MSG,
  259.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  260.    ELSEIF action_letter = 'E' THEN   -- button End
  261. ;;    SAYERROR 0
  262.    ENDIF
  263.  
  264. DEFC gccToggleAutosaveMode =
  265.    PARSE ARG action_letter parms
  266.    IF action_letter = 'I' THEN       -- button Initialized
  267.       DISPLAY -8
  268.       SAYERROR GCC_AUTOSAVE__MSG
  269.       DISPLAY 8
  270.    ELSEIF action_letter = 'S' THEN   -- button Selected
  271.       SAYERROR 0                        -- Clear prompt
  272.       'gcc_toggle_autosave_mode'          -- execute action
  273.    ELSEIF action_letter = 'H' THEN   -- button Help
  274.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_AUTOSAVE__MSG,
  275.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  276.    ELSEIF action_letter = 'E' THEN   -- button End
  277. ;;    SAYERROR 0
  278.    ENDIF
  279.  
  280. DEFC gccToggleVerboseMode =
  281.    PARSE ARG action_letter parms
  282.    IF action_letter = 'I' THEN       -- button Initialized
  283.       DISPLAY -8
  284.       SAYERROR GCC_VERBOSE__MSG
  285.       DISPLAY 8
  286.    ELSEIF action_letter = 'S' THEN   -- button Selected
  287.       SAYERROR 0                        -- Clear prompt
  288.       'gcc_toggle_verbose_mode'          -- execute action
  289.    ELSEIF action_letter = 'H' THEN   -- button Help
  290.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_VERBOSE__MSG,
  291.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  292.    ELSEIF action_letter = 'E' THEN   -- button End
  293. ;;    SAYERROR 0
  294.    ENDIF
  295.  
  296. DEFC gccToggleRemoveMode =
  297.    PARSE ARG action_letter parms
  298.    IF action_letter = 'I' THEN       -- button Initialized
  299.       DISPLAY -8
  300.       SAYERROR GCC_REMOVE__MSG
  301.       DISPLAY 8
  302.    ELSEIF action_letter = 'S' THEN   -- button Selected
  303.       SAYERROR 0                        -- Clear prompt
  304.       'gcc_toggle_remove_mode'          -- execute action
  305.    ELSEIF action_letter = 'H' THEN   -- button Help
  306.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_REMOVE__MSG,
  307.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  308.    ELSEIF action_letter = 'E' THEN   -- button End
  309. ;;    SAYERROR 0
  310.    ENDIF
  311.  
  312. DEFC gccPrevErr =
  313.    PARSE ARG action_letter parms
  314.    IF action_letter = 'I' THEN       -- button Initialized
  315.       DISPLAY -8
  316.       SAYERROR GCC_PREV_ERR__MSG
  317.       DISPLAY 8
  318.    ELSEIF action_letter = 'S' THEN   -- button Selected
  319.       SAYERROR 0                        -- Clear prompt
  320.       'gcc_prev_err'                    -- execute action
  321.    ELSEIF action_letter = 'H' THEN   -- button Help
  322.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_PREV_ERR__MSG,
  323.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  324.    ELSEIF action_letter = 'E' THEN   -- button End
  325. ;;    SAYERROR 0
  326.    ENDIF
  327.  
  328. DEFC gccCurrErr =
  329.    PARSE ARG action_letter parms
  330.    IF action_letter = 'I' THEN       -- button Initialized
  331.       DISPLAY -8
  332.       SAYERROR GCC_CURR_ERR__MSG
  333.       DISPLAY 8
  334.    ELSEIF action_letter = 'S' THEN   -- button Selected
  335.       SAYERROR 0                        -- Clear prompt
  336.       'gcc_curr_err'                    -- execute action
  337.    ELSEIF action_letter = 'H' THEN   -- button Help
  338.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_CURR_ERR__MSG,
  339.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  340.    ELSEIF action_letter = 'E' THEN   -- button End
  341. ;;    SAYERROR 0
  342.    ENDIF
  343.  
  344. DEFC gccNextErr =
  345.    PARSE ARG action_letter parms
  346.    IF action_letter = 'I' THEN       -- button Initialized
  347.       DISPLAY -8
  348.       SAYERROR GCC_NEXT_ERR__MSG
  349.       DISPLAY 8
  350.    ELSEIF action_letter = 'S' THEN   -- button Selected
  351.       SAYERROR 0                        -- Clear prompt
  352.       'gcc_next_err'                    -- execute action
  353.    ELSEIF action_letter = 'H' THEN   -- button Help
  354.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_NEXT_ERR__MSG,
  355.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  356.    ELSEIF action_letter = 'E' THEN   -- button End
  357. ;;    SAYERROR 0
  358.    ENDIF
  359.