home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / CMD / ADACOB.CMD < prev    next >
OS/2 REXX Batch file  |  1996-07-23  |  331b  |  11 lines
  1. /*  Hider  b_*****.c and his compilatinon  b_*****.obj */  arg fn
  2. say 'Creation Header b_xxxxxxx.c and its compiling'
  3. i=pos('.',fn); if i>0 then fnm=left(fn,i-1);
  4.                       else do; fnm=fn; fn=fn || '.ali'; end
  5. fnl=fnm || '.lst'
  6. 'gnatbind ' fn
  7. if rc>0 then exit
  8. fn='b_' || fnm || '.c'
  9. 'call adaobj ' fn
  10. exit
  11.