File: [local] / OpenXM / src / util / oxreplace.c (download)
Revision 1.1, Wed Mar 26 04:45:37 2003 UTC (21 years, 6 months ago) by takayama
Branch: MAIN
oxreplace replaces a given string in a file by a given new string.
It overwrites the file.
|
/* $OpenXM: OpenXM/src/util/oxreplace.c,v 1.1 2003/03/26 04:45:37 takayama Exp $ */
/* cf. fb/src/misc/nan-tfb2.c */
#include <stdio.h>
#include <time.h>
char *readAsString(FILE *fp) {
static char *s = NULL;
static int size= 102400;
int p = 0;
char *s2;
int c;
if (s == NULL) {
s = (char *) malloc(size);
if (s == NULL) {
fprintf(stderr,"no more memory.\n"); exit(10);
}
}
s[0] = 0;
while ((c=fgetc(fp)) != EOF) {
s[p++] = c; s[p] = 0;
if (p >= size-2) {
s2 = s;
size = 2*size;
s = (char *) malloc(size);
if (s == NULL) {
fprintf(stderr,"no more memory.\n"); exit(10);
}
strcpy(s,s2);
free(s2);
}
}
return s;
}
matches(char *word,char *s,int j) {
int i;
for (i=0; i<j; i++) {
if (word[i] != s[i]) return 0;
}
return 1;
}
main(int argc, char *argv[]) {
int i;
char *old = NULL;
char *new = NULL;
if (argc < 2) {usage(); exit(0); }
for (i=1; i<argc; i++) {
if (strcmp(argv[i],"--old") == 0) {
old = argv[i+1]; i++;
} else if (strcmp(argv[i],"--new") == 0) {
new = argv[i+1]; i++;
} else if (strcmp(argv[i],"--f") == 0) {
fprintf(stderr,"--f option (rule file) has not yet been implemented.\n");
exit(10);
}else {
if ((old != NULL) && (new != NULL)) {
replaceOneWord(argv[i],old,new);
}else{
fprintf(stderr,"--old and --new option or --f option are not given.\n");
usage();
exit(10);
}
}
}
}
#define DEBUG 1
replaceOneWord(char *fname,char *old, char *new) {
FILE *fp;
FILE *fpOrig;
char *s;
char *fnameBackup;
char *comm;
int i;
#ifdef DEBUG
fprintf(stderr,"fname=%s, old=%s, new=%s\n",fname,old,new);
#endif
fp = fopen(fname,"r");
if (fp == NULL) {
fprintf(stderr,"File %s is not found.\n",fname);
return -1;
}
fclose(fp);
fnameBackup = (char *)malloc(strlen(fname)+200);
comm = (char *)malloc(strlen(fname)+300);
if (fnameBackup == NULL) {
fprintf(stderr,"No more memory.\n"); exit(10);
}
sprintf(fnameBackup,"%s.%ld.oxreplace-tmp.old",fname,(long) time(NULL));
sprintf(comm,"cp %s %s",fname,fnameBackup);
system(comm);
fpOrig = fopen(fnameBackup,"r");
fp = fopen(fname,"w");
s = readAsString(fpOrig);
for (i=0; i<strlen(s); i++) {
if (!matches(old,s+i,strlen(old))) {
fputc(s[i],fp);
}else{
fprintf(fp,"%s",new);
i += strlen(old)-1;
}
}
fclose(fp); fclose(fpOrig);
free(comm); free(fnameBackup);
return 0;
}
usage() {
fprintf(stderr,"oxreplace [--old oword --new nword --f rule_file_name] \n");
fprintf(stderr," [file1 file2 ... ] \n");
}