/* $Source: /u/mark/src/pax/RCS/replace.c,v $ * * $Revision: 1.2 $ * * replace.c - regular expression pattern replacement functions * * DESCRIPTION * * These routines provide for regular expression file name replacement * as required by pax. * * AUTHORS * * Mark H. Colburn, NAPS International * * Sponsored by The USENIX Association for public distribution. * * Copyright (c) 1989 Mark H. Colburn. * All rights reserved. * * Redistribution and use in source and binary forms are permitted * provided that the above copyright notice is duplicated in all such * forms and that any documentation, advertising materials, and other * materials related to such distribution and use acknowledge that the * software was developed * by Mark H. Colburn and sponsored by The * USENIX Association. * * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. * * $Log: replace.c,v $ * Revision 1.2 89/02/12 10:05:59 mark * 1.2 release fixes * * Revision 1.1 88/12/23 18:02:36 mark * Initial revision * */ #ifndef lint static char *ident = "$Id: replace.c,v 1.2 89/02/12 10:05:59 mark Exp $"; static char *copyright = "Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.\n"; #endif /* not lint */ /* Headers */ #include "pax.h" /* add_replstr - add a replacement string to the replacement string list * * DESCRIPTION * * Add_replstr adds a replacement string to the replacement string * list which is applied each time a file is about to be processed. * * PARAMETERS * * char *pattern - A regular expression which is to be parsed */ #ifdef __STDC__ void add_replstr(char *pattern) #else void add_replstr(pattern) char *pattern; #endif { char *p; char sep; Replstr *rptr; int len; if ((len = strlen(pattern)) < 4) { warn("Replacement string not added", "Malformed substitution syntax"); return; } if ((rptr = (Replstr *) malloc(sizeof(Replstr))) == (Replstr *)NULL) { warn("Replacement string not added", "No space"); return; } /* First character is the delimeter... */ sep = *pattern; /* Get trailing g and/or p */ p = pattern + len - 1; while (*p != sep) { if (*p == 'g') { rptr->global = 1; } else if (*p == 'p') { rptr->print = 1; } else { warn(p, "Invalid RE modifier"); } p--; } if (*p != sep) { warn("Replacement string not added", "Bad delimeters"); free(rptr); return; } /* strip off leading and trailing delimeter */ *p = '\0'; pattern++; /* find the separating '/' in the pattern */ p = pattern; while (*p) { if (*p == sep) { break; } if (*p == '\\' && *(p + 1) != '\0') { p++; } p++; } if (*p != sep) { warn("Replacement string not added", "Bad delimeters"); free(rptr); return; } *p++ = '\0'; /* * Now pattern points to 'old' and p points to 'new' and both are '\0' * terminated */ if ((rptr->comp = regcomp(pattern)) == (regexp *)NULL) { warn("Replacement string not added", "Invalid RE"); free(rptr); return; } rptr->replace = p; rptr->next = (Replstr *)NULL; if (rplhead == (Replstr *)NULL) { rplhead = rptr; rpltail = rptr; } else { rpltail->next = rptr; rpltail = rptr; } } /* rpl_name - possibly replace a name with a regular expression * * DESCRIPTION * * The string name is searched for in the list of regular expression * substituions. If the string matches any of the regular expressions * then the string is modified as specified by the user. * * PARAMETERS * * char *name - name to search for and possibly modify */ #ifdef __STDC__ void rpl_name(char *name) #else void rpl_name(name) char *name; #endif { int found = 0; int ret; Replstr *rptr; char buff[PATH_MAX + 1]; char buff1[PATH_MAX + 1]; char buff2[PATH_MAX + 1]; char *p; char *b; strcpy(buff, name); for (rptr = rplhead; !found && rptr != (Replstr *)NULL; rptr = rptr->next) { do { if ((ret = regexec(rptr->comp, buff)) != 0) { p = buff; b = buff1; while (p < rptr->comp->startp[0]) { *b++ = *p++; } p = rptr->replace; while (*p) { *b++ = *p++; } strcpy(b, rptr->comp->endp[0]); found = 1; regsub(rptr->comp, buff1, buff2); strcpy(buff, buff2); } } while (ret && rptr->global); if (found) { if (rptr->print) { fprintf(stderr, "%s >> %s\n", name, buff); } strcpy(name, buff); } } } /* get_disposition - get a file disposition * * DESCRIPTION * * Get a file disposition from the user. If the user enters 'y' * the the file is processed, anything else and the file is ignored. * If the user enters EOF, then the PAX exits with a non-zero return * status. * * PARAMETERS * * char *mode - string signifying the action to be taken on file * char *name - the name of the file * * RETURNS * * Returns 1 if the file should be processed, 0 if it should not. */ #ifdef __STDC__ int get_disposition(char *mode, char *name) #else int get_disposition(mode, name) char *mode; char *name; #endif { char ans[2]; char buf[PATH_MAX + 10]; if (f_disposition) { sprintf(buf, "%s %s? ", mode, name); if (nextask(buf, ans, sizeof(ans)) == -1 || ans[0] == 'q') { exit(0); } if (strlen(ans) == 0 || ans[0] != 'y') { return(1); } } return(0); } /* get_newname - prompt the user for a new filename * * DESCRIPTION * * The user is prompted with the name of the file which is currently * being processed. The user may choose to rename the file by * entering the new file name after the prompt; the user may press * carriage-return/newline, which will skip the file or the user may * type an 'EOF' character, which will cause the program to stop. * * PARAMETERS * * char *name - filename, possibly modified by user * int size - size of allowable new filename * * RETURNS * * Returns 0 if successfull, or -1 if an error occurred. * */ #ifdef __STDC__ int get_newname(char *name, int size) #else int get_newname(name, size) char *name; int size; #endif { char buf[PATH_MAX + 10]; if (f_interactive) { sprintf(buf, "rename %s? ", name); if (nextask(buf, name, size) == -1) { exit(0); } if (strlen(name) == 0) { return(1); } } return(0); }