home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / CMD / ADAC.CMD next >
OS/2 REXX Batch file  |  1996-08-12  |  298b  |  10 lines
  1. /*  Hider  b_*****.c and his compilatinon  */  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. fn='b_' || fnm || '.c'
  8. 'call adao ' fn
  9. exit
  10.