home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / cment.zip / CCC2EXE.CMD < prev    next >
OS/2 REXX Batch file  |  1994-05-19  |  1KB  |  34 lines
  1. /******************************************************************************\
  2. *                                                                              *
  3. *                          Compile .CCC file to .EXE                           *
  4. *              Copyright (C) 1994, The Masterpiece Software Company            *
  5. *                                                                              *
  6. \******************************************************************************/
  7.  
  8.  
  9.  
  10. ccc = Value(CCC,,OS2ENVIRONMENT);
  11. acc = Arg(1);
  12.  
  13. If   ccc = ''
  14. Then ccc = 'ICC.EXE';
  15.  
  16. Do   ii = 1 to Words(ccc);              /* Append prelisted .OBJ and .LIB */
  17.      aa = Translate(Word(ccc,ii));
  18.      If   Pos('.OBJ',aa) > 0,
  19.       |   Pos('.LIB',aa) > 0
  20.      Then Do;
  21.           acc = acc || ' ' || Word(ccc,ii);
  22.           ccc = DelWord(ccc,ii,1);
  23.           End;
  24. End;
  25.  
  26. Say  ;
  27. Say  '====>' Date('O') Time() ccc acc '. . .';
  28.  
  29. '@'||ccc acc '2>&1';
  30.  
  31. '@DEL' Left(Arg(1),Pos('.',Arg(1))) || 'OBJ > NUL 2> NUL';
  32.  
  33. Exit 0;
  34.