home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / fwe225.zip / Compile.Mac < prev    next >
Text File  |  2000-01-06  |  4KB  |  77 lines
  1. /* ************************************************************************* */
  2. /*              Future Wave Editor  Sample Macro program.                    */
  3. /*                                                                           */
  4. /*                      ò╥ÅWâtâ@âCâïé╠âRâôâpâCâï                             */
  5. /* ------------------------------------------------------------------------- */
  6. /*                                                                           */
  7. /* 1).ò╥ÅWÆåâtâ@âCâïé╠âpâXû╝é≡ïüé▀éΘ                                         */
  8. /*                                                                           */
  9. /* 2).âRâôâpâCâïîïë╩é≡Åoù═üiâèâ_âCâîâNâgüjé╖éΘâìâOüEâtâ@âCâïû╝é≡ì∞ɼé╖éΘ     */
  10. /*                                                                           */
  11. /* 3).ò╥ÅWÆåâtâ@âCâïé╠âfâBâîâNâgâèü[é╔âJâîâôâgüEâfâBâîâNâgâèü[é≡É▌ÆΦ         */
  12. /*                                                                           */
  13. /* 4).âRâôâpâCâëü[é≡ïNô«                                                     */
  14. /*                                                                           */
  15. /* 5).âRâôâpâCâïüEâGâëü[Ä₧é═üAâRâôâpâCâëü[é¬Åoù═é╡é╜â^âOüEâtâ@âCâïé≡èJé¡     */
  16. /*                                                                           */
  17. /* ------------------------------------------------------------------------- */
  18. /*   (C) Copyright Future Wave Limited.  1997-1999. All right reserved.      */
  19. /* ************************************************************************* */
  20. trace off
  21.  
  22. call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs';
  23. call SysLoadFuncs;
  24.  
  25.         /* ----------------------------------------------------------- */
  26.         /*                ÆΦ       Éö       ÆΦ       ï`                */
  27.         /* ----------------------------------------------------------- */
  28. szTitle    = "âRâôâpâCâïüEâ}âNâì";
  29.  
  30. szCompiler = "icc";                     /* âRâôâpâCâëü[                       */
  31. szOption   = "/C";                      /* âRâôâpâCâïüEâIâvâVâçâô             */
  32.  
  33.         /* ----------------------------------------------------------- */
  34.         /*                Äσ            Åê            ù¥               */
  35.         /* ----------------------------------------------------------- */
  36. main:
  37.         /* ò╥ÅWÆåâtâ@âCâïé╠âpâXüAû╝Å╠é≡ïüé▀éΘ */
  38.         szPath = FweQueryDir();
  39.         szFile = FweQueryName();
  40.  
  41.         /* ò╥ÅWÆåâtâ@âCâïé¬û│æΦé┼û│é»éΩé╬Åêù¥é≡æ▒ìs */
  42.         if length(szFile) > 0 then do
  43.            /* âRâôâpâCâïîïë╩é≡ò█æ╢é╖éΘâìâOüEâtâ@âCâïû╝é≡ì∞ɼé╖éΘ */
  44.            szLogName = insert( szPath, "\" );
  45.            szLogName = insert( szLogName, szCompiler );
  46.            szLogName = insert( szLogName, ".Log" );
  47.  
  48.            /* î╗ì▌é╠âpâXé≡ò█è╟é╡üCâ\ü[âXüEâtâ@âCâïé╠âpâXé╔ò╧ìX */
  49.            szCurDir = directory();
  50.            call directory szPath;
  51.  
  52.            /* âRâôâpâCâïé╡üAîïë╩é≡âìâOé╔âèâ_âCâîâNâgé╖éΘ */
  53.            "call " szCompiler szOption szFile " > " szLogName;
  54.  
  55.            /* âJâîâôâgüEâfâBâîâNâgâèü[é≡î│é╔û▀é╖ */
  56.            call directory szCurDir;
  57.  
  58.            /* âRâôâpâCâïüEâGâëü[ö¡É╢Ä₧é═üAâGâëü[üEâ^âOüEâtâ@âCâïé≡âIü[âvâô */
  59.            if chars(szLogName) > 0 then do
  60.               rc = FweOpen( szLogName );
  61.            end
  62.            else do
  63.               "call del " szLogName;
  64.               RxMessageBox( "âRâôâpâCâïè«ù╣", szTitle, "OK", "INFORMATION" );
  65.            end;
  66.  
  67.             /* â}âNâìÄ└ìsâìâOé≡ò\Īé╡é╚éóé╠é┼âìâOé≡Å┴ïÄ */
  68.             rc = FweClearLog();
  69.         end
  70.  
  71.         /* âtâ@âCâïû╝é¬òté»éτéΩé─éóé╚éóÄûé≡âåü[âUü[é╔Æ╩Æmé╖éΘ */
  72.         else do
  73.            RxMessageBox( "âtâ@âCâïû╝é¬éáéΦé▄é╣é±", szTitle, "OK", "ERROR" );
  74.         end;
  75.  
  76.         exit;
  77.