home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / lang / perl4.035.V010.lzh / perl4.035 / eg / rename.c.!1! < prev    next >
Encoding:
Text File  |  1992-08-31  |  1.2 KB  |  51 lines
  1. /*** C program generated by cscript ***/
  2. #include <stdio.h>
  3. #include "rename.h"
  4.  
  5.  
  6. #define SCRIPT "rename.tmp"
  7. #define PROGRAM "rename"
  8. int main(argc, argv)
  9.   int argc;
  10.   char **argv;
  11. {
  12.   int i;    char acTmp[BUFSIZ];
  13.     char *pcArgs=NULL;
  14.     char *pcTmp = NULL;
  15.     FILE *pFScript;
  16.  
  17.     for(i=1; i<argc; i++) {
  18.     if(pcArgs == NULL) {
  19.         if((pcArgs = (char *)malloc(strlen(argv[i])+1)) == NULL) {
  20.         fprintf(stderr, "%s: *** Error - malloc failed\n", PROGRAM);
  21.             exit(1);
  22.         }
  23.         strcpy(pcArgs, argv[i]);
  24.     }
  25.     else {
  26.         if((pcTmp = (char *)malloc(strlen(argv[i])+strlen(pcArgs)+2)) == NULL) {
  27.         fprintf(stderr, "%s: *** Error - malloc failed\n", PROGRAM);
  28.         exit(1);
  29.         }
  30.         sprintf(pcTmp,"%s %s", pcArgs, argv[i]);
  31.         free(pcArgs);
  32.         pcArgs = pcTmp;
  33.     }
  34.     }
  35.  
  36.     /*** Open temporary script file ***/
  37.     if((pFScript = fopen(SCRIPT, "w")) == NULL) { 
  38.     fprintf(stderr, "%s: *** Error - can't open script file: %s\n", PROGRAM, SCRIPT);
  39.     exit(1);
  40.     }
  41.     
  42.     for(i=0; gacScript[i] != NULL; i++) {
  43.     fprintf(pFScript, gacScript[i]);
  44.     }
  45.     fclose(pFScript);
  46.  
  47.    sprintf(acTmp, "perl -I/usr/lib/perl  %s %s", SCRIPT, ((pcArgs == (char *)NULL) ? (char *)"": pcArgs));
  48.    ssystem(acTmp);
  49.    unlink(SCRIPT);
  50. }
  51.