[BACK]Return to oxreplace.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / util

Diff for /OpenXM/src/util/oxreplace.c between version 1.1 and 1.9

version 1.1, 2003/03/26 04:45:37 version 1.9, 2013/11/06 00:03:58
Line 1 
Line 1 
 /* $OpenXM$ */  /* $OpenXM: OpenXM/src/util/oxreplace.c,v 1.8 2013/08/31 13:44:08 ohara Exp $ */
 /* cf. fb/src/misc/nan-tfb2.c */  /* cf. fb/src/misc/nan-tfb2.c */
 #include <stdio.h>  #include <stdio.h>
   #include <stdlib.h>
   #include <string.h>
 #include <time.h>  #include <time.h>
   int ReplaceLine=0;
   int Verbose=0;
   void usage();
   int replaceOneWord(char *fname,char *old, char *new);
   
 char *readAsString(FILE *fp) {  char *readAsString(FILE *fp) {
   static char *s = NULL;    static char *s = NULL;
   static int size= 102400;    static int size= 102400;
   int p = 0;    int p = 0;
   char *s2;    char *s2;
   int c;    int c;
     if (fp == NULL) { s=NULL; return(NULL); }
   if (s == NULL) {    if (s == NULL) {
     s = (char *) malloc(size);      s = (char *) malloc(size);
     if (s == NULL) {      if (s == NULL) {
Line 31  char *readAsString(FILE *fp) {
Line 39  char *readAsString(FILE *fp) {
   return s;    return s;
 }  }
   
 matches(char *word,char *s,int j) {  int matches(char *word,char *s,int j) {
   int i;    int i;
   for (i=0; i<j; i++) {    for (i=0; i<j; i++) {
     if (word[i] != s[i]) return 0;      if (word[i] != s[i]) return 0;
   }    }
   return 1;    return 1;
 }  }
 main(int argc, char *argv[]) {  
   int isHexc(int c) {
     if ((c >= '0') && (c<='9')) return 1;
     if ((c >= 'A') && (c<='F')) return 1;
     if ((c >= 'a') && (c<='f')) return 1;
     return 0;
   }
   char *hex2str(char hstr[]) {
     int i,n,c,k;
     char *s;
     char ts[3];
     /* printf("%s\n",hstr); */
     n = strlen(hstr);
     s = (char *) malloc(n/2+2);
     if (s == NULL) {fprintf(stderr,"Memory exhausted.\n"); exit(10);}
     k = 0; i = 0;
     s[k] = 0;
     while (i<n) {
           while ((!isHexc(hstr[i])) && (i<n)) i++;
       if (isHexc(hstr[i]) && (i<n)) ts[0] = hstr[i]; else ts[0] = 0;
       i++;
           while ((!isHexc(hstr[i])) && (i<n)) i++;
       if (isHexc(hstr[i]) && (i<n)) ts[1] = hstr[i]; else ts[1] = 0;
       i++; ts[2] = 0;
       if (ts[0] != 0) {
             sscanf(ts,"%xd",&c);
         s[k] = c; k++; s[k] = 0;
           }
     }
     if (strcmp(s,"") == 0) return NULL;
     else return s;
   }
   
   int main(int argc, char *argv[]) {
   int i;    int i;
   char *old = NULL;    char *old = NULL;
   char *new = NULL;    char *new = NULL;
     FILE *fp;
   if (argc < 2) {usage(); exit(0); }    if (argc < 2) {usage(); exit(0); }
   for (i=1; i<argc; i++) {    for (i=1; i<argc; i++) {
         if (strcmp(argv[i],"--old") == 0) {          if (strcmp(argv[i],"--old") == 0) {
           old = argv[i+1]; i++;            old = argv[i+1]; i++;
         } else if (strcmp(argv[i],"--new") == 0) {          } else if (strcmp(argv[i],"--new") == 0) {
           new = argv[i+1]; i++;            new = argv[i+1]; i++;
         } else if (strcmp(argv[i],"--f") == 0) {          } else if (strcmp(argv[i],"--oldx") == 0) {
             old = hex2str(argv[i+1]); i++;
           } else if (strcmp(argv[i],"--newx") == 0) {
             new = hex2str(argv[i+1]); i++;
       } else if (strcmp(argv[i],"--replaceLine") == 0) {
         ReplaceLine = 1;
       } else if (strcmp(argv[i],"--f") == 0) {
           fprintf(stderr,"--f option (rule file) has not yet been implemented.\n");            fprintf(stderr,"--f option (rule file) has not yet been implemented.\n");
           exit(10);            exit(10);
           } else if (strcmp(argv[i],"--newfile")==0) {
             fp = fopen(argv[i+1],"r"); i++;
             if (fp == NULL) {
                   fprintf(stderr,"Error: File %s is not found\n",argv[i]); exit(10);
             }
         new = readAsString(fp); fclose(fp); readAsString(NULL);
           } else if (strcmp(argv[i],"--verbose")==0) {
         Verbose = 1;
         }else {          }else {
           if ((old != NULL) && (new != NULL)) {            if ((old != NULL) && (new != NULL)) {
                 replaceOneWord(argv[i],old,new);                  replaceOneWord(argv[i],old,new);
           }else{            }else{
                 fprintf(stderr,"--old and --new option or --f option are not given.\n");                  fprintf(stderr,"--old and --new option or --newfile or --f option are not given.\n");
                 usage();                  usage();
                 exit(10);                  exit(10);
           }            }
         }          }
   }    }
     return 0;
 }  }
   
 #define DEBUG 1  #define DEBUG 1
   
 replaceOneWord(char *fname,char *old, char *new) {  int replaceOneWord(char *fname,char *old, char *new) {
   FILE *fp;    FILE *fp;
   FILE *fpOrig;    FILE *fpOrig;
   char *s;    char *s;
   char *fnameBackup;    char *fnameBackup;
   char *comm;    char *comm;
   int i;    int i,j,mm;
     int ns,nold;
 #ifdef DEBUG  #ifdef DEBUG
   fprintf(stderr,"fname=%s, old=%s, new=%s\n",fname,old,new);    fprintf(stderr,"fname=%s, old=%s, new=%s, ReplaceLine=%d\n",fname,old,new,ReplaceLine);
 #endif  #endif
   fp = fopen(fname,"r");    fp = fopen(fname,"r");
   if (fp == NULL) {    if (fp == NULL) {
Line 88  replaceOneWord(char *fname,char *old, char *new) {
Line 146  replaceOneWord(char *fname,char *old, char *new) {
         fprintf(stderr,"No more memory.\n"); exit(10);          fprintf(stderr,"No more memory.\n"); exit(10);
   }    }
   sprintf(fnameBackup,"%s.%ld.oxreplace-tmp.old",fname,(long) time(NULL));    sprintf(fnameBackup,"%s.%ld.oxreplace-tmp.old",fname,(long) time(NULL));
   sprintf(comm,"cp %s %s",fname,fnameBackup);    rename(fname,fnameBackup);
   system(comm);  
   
   fpOrig = fopen(fnameBackup,"r");    fpOrig = fopen(fnameBackup,"r");
   fp = fopen(fname,"w");    fp = fopen(fname,"w");
   s = readAsString(fpOrig);    s = readAsString(fpOrig);
   for (i=0; i<strlen(s); i++) {    ns = strlen(s); nold=strlen(old);
     if (!matches(old,s+i,strlen(old))) {    if (ReplaceLine) {
       fputc(s[i],fp);      for (i=0; i<ns; i++) {
         }else{        /* Look for \n */
           fprintf(fp,"%s",new);        mm = 0;
           i += strlen(old)-1;            for (j = i; j<ns; j++) {
           if (matches(old,s+j,nold)) mm = 1;
                   if (s[j] == '\n') { break;}
         }
         if (mm) {
                   i = j;
                   fprintf(fp,"%s\n",new);
             }else{
                   for ( ; i < j; i++) {
                     putc(s[i],fp);
                   }
                   putc('\n',fp);
             }
         }          }
     }else{
       for (i=0; i<ns; i++) {
         if (!matches(old,s+i,nold)) {
           fputc(s[i],fp);
         }else{
           fprintf(fp,"%s",new);
           i += strlen(old)-1;
         }
       }
   }    }
   fclose(fp); fclose(fpOrig);    fclose(fp); fclose(fpOrig);
   free(comm); free(fnameBackup);    free(comm); free(fnameBackup);
   return 0;    return 0;
 }  }
   
   void usage() {
 usage() {    fprintf(stderr,"oxreplace [--old oword [--new nword | --newfile filename] --f rule_file_name --replaceLine] \n");
   fprintf(stderr,"oxreplace [--old oword --new nword --f rule_file_name] \n");  
   fprintf(stderr,"          [file1 file2 ... ] \n");    fprintf(stderr,"          [file1 file2 ... ] \n");
     fprintf(stderr,"    Use --oldx or --newx to give a word in hexadecimal codes\n");
 }  }
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.9
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>