home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / CMD / ADAOBJ.CMD < prev    next >
OS/2 REXX Batch file  |  1996-07-23  |  618b  |  21 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 'Gnat compilation started time:' time() 'file ' fn ;
  8. comp = 'gcc -c -gnatl -Zomf -Zsys -Zmt ' || fn || ' > ' || fnl
  9. comp
  10. rcomp=rc
  11. '@echo on'
  12. say 'Gnat compilation ended time  :' time() 'rc=' rcomp
  13. if rcomp>0 then do
  14. say 'Error  rc=' rcomp ' Listing in file ' fnl  ; pull otb
  15. tedit fnl ;
  16. say 'Listing delete y/n' ; pull otb
  17. if otb='y' | otb='Y' then 'del' fnl
  18.               end
  19.               else '@del' fnl
  20. exit
  21.