home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / CMD / ADAO.CMD < prev    next >
OS/2 REXX Batch file  |  1996-07-23  |  697b  |  23 lines
  1. /* compile GNAT */ parse arg fn
  2. '@echo off'
  3. call adastart
  4. i=pos('.',fn); if i>0 then fnm=left(fn,i-1);
  5.                       else do; fnm=fn; fn=fn || '.adb'; end
  6. fnl=fnm || '.lst'
  7. say 'Creation ' fnm'.o file'
  8. say 'Gnat compilation started time:' time() 'file ' fn ;
  9. /* comp = 'gcc -c -gnatl -Zomf -Zsys ' || fn || ' > ' || fnl  */
  10. comp = 'gcc -c -gnatl ' || fn || ' > ' || fnl
  11. comp
  12. rcomp=rc
  13. '@echo on'
  14. say 'Gnat compilation ended time  :' time() 'rc=' rcomp
  15. if rcomp>0 then do
  16. say 'Error  rc=' rcomp ' Listing in file ' fnl  ; pull otb
  17. tedit fnl ;
  18. say 'Listing delete y/n' ; pull otb
  19. if otb='y' | otb='Y' then 'del' fnl
  20.               end
  21.               else '@del' fnl
  22. exit
  23.