home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / GED403R.LZX / Install / Install.run / GOLDEDDATA / arexx / dmake.ged < prev    next >
Encoding:
Text File  |  1996-07-26  |  1.5 KB  |  72 lines
  1. /* $VER: 1.0, ©1996 Dietmar Eilert. Call dmake utility (DICE) */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  9. if (RC ~= 0) then
  10.     exit
  11.  
  12. OPTIONS FAILAT 6                            /* ignore warnings         */
  13. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  14.  
  15. /* ------------------------- INSERT YOUR CODE HERE: -------------------- */
  16.  
  17. 'QUERY CAT'
  18. isGerman = (result = "deutsch")
  19.  
  20. 'QUERY MODIFY'
  21.  
  22. if (result = 'TRUE') then do
  23.  
  24.     if (isGerman) then
  25.         'REQUEST BODY="Datei wurde verändert. Speichern ?" BUTTON="!SPEICHERN|Abbrechen"'
  26.     else
  27.         'REQUEST BODY="File has been changed. Save it ?" BUTTON="!SAVE|_Cancel"'
  28.  
  29.     if (result = 1) then
  30.         'SAVE ALL'
  31. end
  32.  
  33. 'QUERY PATH VAR PATH'
  34.  
  35. if (exists(path || 'dmakefile')) then
  36.  
  37.     do
  38.  
  39.         shell
  40.  
  41.         pragma('D', path)
  42.         'dmake'
  43.  
  44.         shell
  45.  
  46.         if (isGerman) then
  47.             say "Fertig (RETURN drücken)."
  48.         else
  49.             say "done (press RETURN)."
  50.  
  51.         pull dummy
  52.     end
  53.  
  54. else do
  55.  
  56.     if (isGerman) then
  57.         'REQUEST PROBLEM="Kein Makefile in ' || path || ' ?!"'
  58.     else
  59.         'REQUEST PROBLEM="No makefile in ' || path || ' ?!"'
  60. end
  61.  
  62. /* ---------------------------- END OF YOUR CODE ----------------------- */
  63.  
  64. 'UNLOCK' /* VERY important: unlock GUI */
  65. EXIT
  66.  
  67. SYNTAX:
  68.  
  69. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  70. 'UNLOCK'
  71. EXIT
  72.