/* * sed_finalize_commands */ PRStatus sed_finalize_commands(sed_commands_t *commands) { sed_label_t *lab; if (commands->depth) { command_errf(commands, XP_GetAdminStr(DBT_TMOMES)); return PR_FAILURE; } for (lab = commands->labtab; lab < commands->lab; lab++) { if (lab->address == 0) { command_errf(commands, XP_GetAdminStr(DBT_ULMES), lab->asc); return PR_FAILURE; } if (lab->chain) { sed_reptr_t *rep; rep = lab->chain; while (rep->lb1) { sed_reptr_t *next; next = rep->lb1; rep->lb1 = lab->address; rep = next; } rep->lb1 = lab->address; } } return PR_SUCCESS; }
/* * ycomp */ static char *ycomp(sed_commands_t *commands, char *expbuf) { char c; int cint; /* integer value of char c */ char *ep, *tsp; int i; char *sp; ep = expbuf; if(ep + 0377 > &commands->respace[RESIZE-1]) { command_errf(commands, XP_GetAdminStr(DBT_TMMES), commands->linebuf); return NULL; } sp = commands->cp; for(tsp = commands->cp; (c = *tsp) != commands->sseof; tsp++) { if(c == '\\') tsp++; if(c == '\0' || c == '\n') { command_errf(commands, XP_GetAdminStr(DBT_EDMOSTR), commands->linebuf); return NULL; } } tsp++; memset(ep, 0, 0400); while((c = *sp++) != commands->sseof) { c &= 0377; if(c == '\\' && *sp == 'n') { sp++; c = '\n'; } cint = (int) c; if((ep[cint] = *tsp++) == '\\' && *tsp == 'n') { ep[cint] = '\n'; tsp++; } if(ep[cint] == commands->sseof || ep[cint] == '\0') { command_errf(commands, XP_GetAdminStr(DBT_TSNTSS), commands->linebuf); } } if(*tsp != commands->sseof) { if(*tsp == '\0') { command_errf(commands, XP_GetAdminStr(DBT_EDMOSTR), commands->linebuf); } else { command_errf(commands, XP_GetAdminStr(DBT_TSNTSS), commands->linebuf); } return NULL; } commands->cp = ++tsp; for(i = 0; i < 0400; i++) if(ep[i] == 0) ep[i] = i; return(ep + 0400); }
/* * address */ static char *address(sed_commands_t *commands, char *expbuf, PRStatus* status) { char *rcp; PRInt64 lno; sed_comp_args compargs; *status = PR_SUCCESS; if(*commands->cp == '$') { if (expbuf > &commands->respace[RESIZE-2]) { command_errf(commands, XP_GetAdminStr(DBT_TMMES), commands->linebuf); *status = PR_FAILURE; return NULL; } commands->cp++; *expbuf++ = CEND; *expbuf++ = CCEOF; return(expbuf); } if (*commands->cp == '/' || *commands->cp == '\\' ) { if ( *commands->cp == '\\' ) commands->cp++; commands->sseof = *commands->cp++; return(comple(commands, &compargs, (char *) 0, expbuf, commands->reend, commands->sseof)); } rcp = commands->cp; lno = 0; while(*rcp >= '0' && *rcp <= '9') lno = lno*10 + *rcp++ - '0'; if(rcp > commands->cp) { if (expbuf > &commands->respace[RESIZE-3]) { command_errf(commands, XP_GetAdminStr(DBT_TMMES), commands->linebuf); *status = PR_FAILURE; return NULL; } *expbuf++ = CLNUM; *expbuf++ = commands->nlno; commands->tlno[commands->nlno++] = lno; if(commands->nlno >= SED_NLINES) { command_errf(commands, XP_GetAdminStr(DBT_TMLNMES), commands->linebuf); *status = PR_FAILURE; return NULL; } *expbuf++ = CCEOF; commands->cp = rcp; return(expbuf); } return(NULL); }
/* * sed_init_commands */ PRStatus sed_init_commands(sed_commands_t *commands, sed_err_fn_t *errfn, void *data, pool_handle_t *p) { memset(commands, 0, sizeof(*commands)); commands->errfn = errfn; commands->data = data; commands->labtab = commands->ltab; commands->lab = commands->labtab + 1; commands->pool = p; commands->respace = (char *)pool_calloc(p, (size_t)1, (size_t)RESIZE); if (commands->respace == NULL) { command_errf(commands, XP_GetAdminStr(DBT_OOMMES)); return PR_FAILURE; } commands->rep = alloc_reptr(commands); if (commands->rep == NULL) return PR_FAILURE; commands->rep->ad1 = commands->respace; commands->reend = &commands->respace[RESIZE - 1]; commands->labend = &commands->labtab[SED_LABSIZE]; return PR_SUCCESS; }
static char *compsub(sed_commands_t *commands, sed_comp_args *compargs, char *rhsbuf) { char *p, *q; p = rhsbuf; q = commands->cp; for(;;) { if(p > &commands->respace[RESIZE-1]) { command_errf(commands, XP_GetAdminStr(DBT_TMMES), commands->linebuf); return NULL; } if((*p = *q++) == '\\') { p++; if(p > &commands->respace[RESIZE-1]) { command_errf(commands, XP_GetAdminStr(DBT_TMMES), commands->linebuf); return NULL; } *p = *q++; if(*p > compargs->nbra + '0' && *p <= '9') { command_errf(commands, XP_GetAdminStr(DBT_DOORNG), commands->linebuf); return NULL; } p++; continue; } if(*p == commands->sseof) { *p++ = '\0'; commands->cp = q; return(p); } if(*p++ == '\0') { command_errf(commands, XP_GetAdminStr(DBT_EDMOSUB), commands->linebuf); return NULL; } } }
/* * alloc_reptr */ static sed_reptr_t *alloc_reptr(sed_commands_t *commands) { sed_reptr_t *var; var = (sed_reptr_t *)pool_calloc(commands->pool, 1, sizeof(sed_reptr_t)); if (var == NULL) { command_errf(commands, XP_GetAdminStr(DBT_OOMMES)); return 0; } var->nrep = commands->nrep; var->findex = -1; commands->nrep++; if (commands->ptrspace == NULL) commands->ptrspace = var; else commands->ptrend->next = var; commands->ptrend = var; commands->labtab->address = var; return var; }
static void comperr(sed_commands_t *commands, char *msg) { command_errf(commands, msg, commands->linebuf); }
/* * rline */ static int rline(sed_commands_t *commands, PRFileDesc *fin, char *lbuf, char *lbend) { char *p; const char *q; int t; PRInt32 bytes_read; p = lbuf; if(commands->eflag) { if(commands->eflag > 0) { commands->eflag = -1; q = commands->earg; while((t = *q++) != '\0') { if(t == '\n') { commands->saveq = q; goto out1; } if (p < lbend) *p++ = t; if(t == '\\') { if((t = *q++) == '\0') { commands->saveq = NULL; return(-1); } if (p < lbend) *p++ = t; } } commands->saveq = NULL; out1: if (p == lbend) { command_errf(commands, XP_GetAdminStr(DBT_CLTL), commands->linebuf); return -1; } *p = '\0'; return(1); } if((q = commands->saveq) == 0) return(-1); while((t = *q++) != '\0') { if(t == '\n') { commands->saveq = q; goto out2; } if(p < lbend) *p++ = t; if(t == '\\') { if((t = *q++) == '\0') { commands->saveq = NULL; return(-1); } if (p < lbend) *p++ = t; } } commands->saveq = NULL; out2: if (p == lbend) { command_errf(commands, XP_GetAdminStr(DBT_CLTL), commands->linebuf); return -1; } *p = '\0'; return(1); } bytes_read = 1; /* XXX extremely inefficient 1 byte reads */ while (PR_Read(fin, &t, bytes_read) == 1) { if(t == '\n') { if (p == lbend) { command_errf(commands, XP_GetAdminStr(DBT_CLTL), commands->linebuf); return -1; } *p = '\0'; return(1); } if (p < lbend) *p++ = t; if(t == '\\') { bytes_read = 1; if (PR_Read(fin, &t, bytes_read) != 1) { return -1; } if(p < lbend) *p++ = t; } bytes_read = 1; } return(-1); }
/* * fcomp */ static int fcomp(sed_commands_t *commands, PRFileDesc *fin) { char *p, *op, *tp; sed_reptr_t *pt, *pt1; int i, ii; sed_label_t *lpt; char fnamebuf[PATH_MAX]; PRStatus status; sed_comp_args compargs; op = commands->lastre; if (!commands->linebuf) { commands->linebuf = (char *)pool_calloc(commands->pool, LBSIZE + 1, 1); } if (rline(commands, fin, commands->linebuf, (commands->linebuf + LBSIZE + 1)) < 0) return 0; if (*commands->linebuf == '#') { if (commands->linebuf[1] == 'n') commands->nflag = 1; } else { commands->cp = commands->linebuf; goto comploop; } for (;;) { if (rline(commands, fin, commands->linebuf, (commands->linebuf + LBSIZE + 1)) < 0) break; commands->cp = commands->linebuf; comploop: while (*commands->cp == ' ' || *commands->cp == '\t') commands->cp++; if (*commands->cp == '\0' || *commands->cp == '#') continue; if (*commands->cp == ';') { commands->cp++; goto comploop; } p = address(commands, commands->rep->ad1, &status); if (status != PR_SUCCESS) { command_errf(commands, XP_GetAdminStr(DBT_CGMES), commands->linebuf); return -1; } if (p == commands->rep->ad1) { if (op) commands->rep->ad1 = op; else { command_errf(commands, XP_GetAdminStr(DBT_NRMES)); return -1; } } else if (p == 0) { p = commands->rep->ad1; commands->rep->ad1 = 0; } else { op = commands->rep->ad1; if (*commands->cp == ',' || *commands->cp == ';') { commands->cp++; commands->rep->ad2 = p; p = address(commands, commands->rep->ad2, &status); if ((status != PR_SUCCESS) || (p == 0)) { command_errf(commands, XP_GetAdminStr(DBT_CGMES), commands->linebuf); return -1; } if (p == commands->rep->ad2) commands->rep->ad2 = op; else op = commands->rep->ad2; } else commands->rep->ad2 = 0; } if(p > &commands->respace[RESIZE-1]) { command_errf(commands, XP_GetAdminStr(DBT_TMMES)); return -1; } while (*commands->cp == ' ' || *commands->cp == '\t') commands->cp++; swit: switch(*commands->cp++) { default: command_errf(commands, XP_GetAdminStr(DBT_UCMES), commands->linebuf); return -1; case '!': commands->rep->negfl = 1; goto swit; case '{': commands->rep->command = BCOM; commands->rep->negfl = !(commands->rep->negfl); commands->cmpend[commands->depth++] = &commands->rep->lb1; commands->rep = alloc_reptr(commands); commands->rep->ad1 = p; if (*commands->cp == '\0') continue; goto comploop; case '}': if (commands->rep->ad1) { command_errf(commands, XP_GetAdminStr(DBT_AD0MES), commands->linebuf); return -1; } if (--commands->depth < 0) { command_errf(commands, XP_GetAdminStr(DBT_TMCMES)); return -1; } *commands->cmpend[commands->depth] = commands->rep; commands->rep->ad1 = p; continue; case '=': commands->rep->command = EQCOM; if (commands->rep->ad2) { command_errf(commands, XP_GetAdminStr(DBT_AD1MES), commands->linebuf); return -1; } break; case ':': if (commands->rep->ad1) { command_errf(commands, XP_GetAdminStr(DBT_AD0MES), commands->linebuf); return -1; } while (*commands->cp++ == ' '); commands->cp--; tp = commands->lab->asc; while ((*tp++ = *commands->cp++)) { if (tp >= &(commands->lab->asc[8])) { command_errf(commands, XP_GetAdminStr(DBT_LTLMES), commands->linebuf); return -1; } } *--tp = '\0'; if ((lpt = search(commands)) != NULL) { if (lpt->address) { command_errf(commands, XP_GetAdminStr(DBT_DLMES), commands->linebuf); return -1; } dechain(lpt, commands->rep); } else { commands->lab->chain = 0; lpt = commands->lab; if (++commands->lab >= commands->labend) { command_errf(commands, XP_GetAdminStr(DBT_TMLMES), commands->linebuf); return -1; } } lpt->address = commands->rep; commands->rep->ad1 = p; continue; case 'a': commands->rep->command = ACOM; if (commands->rep->ad2) { command_errf(commands, XP_GetAdminStr(DBT_AD1MES), commands->linebuf); return -1; } if (*commands->cp == '\\') commands->cp++; if (*commands->cp++ != '\n') { command_errf(commands, XP_GetAdminStr(DBT_CGMES), commands->linebuf); return -1; } commands->rep->re1 = p; p = text(commands, commands->rep->re1, commands->reend); if (p == NULL) return -1; break; case 'c': commands->rep->command = CCOM; if (*commands->cp == '\\') commands->cp++; if (*commands->cp++ != ('\n')) { command_errf(commands, XP_GetAdminStr(DBT_CGMES), commands->linebuf); return -1; } commands->rep->re1 = p; p = text(commands, commands->rep->re1, commands->reend); if (p == NULL) return -1; break; case 'i': commands->rep->command = ICOM; if (commands->rep->ad2) { command_errf(commands, XP_GetAdminStr(DBT_AD1MES), commands->linebuf); return -1; } if (*commands->cp == '\\') commands->cp++; if (*commands->cp++ != ('\n')) { command_errf(commands, XP_GetAdminStr(DBT_CGMES), commands->linebuf); return -1; } commands->rep->re1 = p; p = text(commands, commands->rep->re1, commands->reend); if (p == NULL) return -1; break; case 'g': commands->rep->command = GCOM; break; case 'G': commands->rep->command = CGCOM; break; case 'h': commands->rep->command = HCOM; break; case 'H': commands->rep->command = CHCOM; break; case 't': commands->rep->command = TCOM; goto jtcommon; case 'b': commands->rep->command = BCOM; jtcommon: while (*commands->cp++ == ' '); commands->cp--; if (*commands->cp == '\0') { if ((pt = commands->labtab->chain) != NULL) { while ((pt1 = pt->lb1) != NULL) pt = pt1; pt->lb1 = commands->rep; } else commands->labtab->chain = commands->rep; break; } tp = commands->lab->asc; while ((*tp++ = *commands->cp++)) if (tp >= &(commands->lab->asc[8])) { command_errf(commands, XP_GetAdminStr(DBT_LTLMES), commands->linebuf); return -1; } commands->cp--; *--tp = '\0'; if ((lpt = search(commands)) != NULL) { if (lpt->address) { commands->rep->lb1 = lpt->address; } else { pt = lpt->chain; while ((pt1 = pt->lb1) != NULL) pt = pt1; pt->lb1 = commands->rep; } } else { commands->lab->chain = commands->rep; commands->lab->address = 0; if (++commands->lab >= commands->labend) { command_errf(commands, XP_GetAdminStr(DBT_TMLMES), commands->linebuf); return -1; } } break; case 'n': commands->rep->command = NCOM; break; case 'N': commands->rep->command = CNCOM; break; case 'p': commands->rep->command = PCOM; break; case 'P': commands->rep->command = CPCOM; break; case 'r': commands->rep->command = RCOM; if (commands->rep->ad2) { command_errf(commands, XP_GetAdminStr(DBT_AD1MES), commands->linebuf); return -1; } if (*commands->cp++ != ' ') { command_errf(commands, XP_GetAdminStr(DBT_CGMES), commands->linebuf); return -1; } commands->rep->re1 = p; p = text(commands, commands->rep->re1, commands->reend); if (p == NULL) return -1; break; case 'd': commands->rep->command = DCOM; break; case 'D': commands->rep->command = CDCOM; commands->rep->lb1 = commands->ptrspace; break; case 'q': commands->rep->command = QCOM; if (commands->rep->ad2) { command_errf(commands, XP_GetAdminStr(DBT_AD1MES), commands->linebuf); return -1; } break; case 'l': commands->rep->command = LCOM; break; case 's': commands->rep->command = SCOM; commands->sseof = *commands->cp++; commands->rep->re1 = p; p = comple(commands, &compargs, (char *) 0, commands->rep->re1, commands->reend, commands->sseof); if (p == NULL) return -1; if (p == commands->rep->re1) { if (op) commands->rep->re1 = op; else { command_errf(commands, XP_GetAdminStr(DBT_NRMES)); return -1; } } else op = commands->rep->re1; commands->rep->rhs = p; p = compsub(commands, &compargs, commands->rep->rhs); if ((p) == NULL) return -1; if (*commands->cp == 'g') { commands->cp++; commands->rep->gfl = 999; } else if (commands->gflag) commands->rep->gfl = 999; if (*commands->cp >= '1' && *commands->cp <= '9') { i = *commands->cp - '0'; commands->cp++; while (1) { ii = *commands->cp; if (ii < '0' || ii > '9') break; i = i*10 + ii - '0'; if (i > 512) { command_errf(commands, XP_GetAdminStr(DBT_TOOBIG), commands->linebuf); return -1; } commands->cp++; } commands->rep->gfl = i; } if (*commands->cp == 'p') { commands->cp++; commands->rep->pfl = 1; } if (*commands->cp == 'P') { commands->cp++; commands->rep->pfl = 2; } if (*commands->cp == 'w') { commands->cp++; if (*commands->cp++ != ' ') { command_errf(commands, XP_GetAdminStr(DBT_CGMES), commands->linebuf); return -1; } if (text(commands, fnamebuf, &fnamebuf[PATH_MAX]) == NULL) { command_errf(commands, XP_GetAdminStr(DBT_FNTL), commands->linebuf); return -1; } for (i = commands->nfiles - 1; i >= 0; i--) if (strcmp(fnamebuf,commands->fname[i]) == 0) { commands->rep->findex = i; goto done; } if (commands->nfiles >= NWFILES) { command_errf(commands, XP_GetAdminStr(DBT_TMWFMES)); return -1; } commands->fname[commands->nfiles] = (char *) pool_strdup(commands->pool, (const char *)fnamebuf); if (commands->fname[commands->nfiles] == NULL) { command_errf(commands, XP_GetAdminStr(DBT_OOMMES)); return -1; } commands->rep->findex = commands->nfiles++; } break; case 'w': commands->rep->command = WCOM; if (*commands->cp++ != ' ') { command_errf(commands, XP_GetAdminStr(DBT_SMMES), commands->linebuf); return -1; } if (text(commands, fnamebuf, &fnamebuf[PATH_MAX]) == NULL) { command_errf(commands, XP_GetAdminStr(DBT_FNTL), commands->linebuf); return -1; } for (i = commands->nfiles - 1; i >= 0; i--) if (strcmp(fnamebuf, commands->fname[i]) == 0) { commands->rep->findex = i; goto done; } if (commands->nfiles >= NWFILES) { command_errf(commands, XP_GetAdminStr(DBT_TMWFMES)); return -1; } if ((commands->fname[commands->nfiles] = (char *)pool_strdup(commands->pool, fnamebuf)) == NULL) { command_errf(commands, XP_GetAdminStr(DBT_OOMMES)); return -1; } commands->rep->findex = commands->nfiles++; break; case 'x': commands->rep->command = XCOM; break; case 'y': commands->rep->command = YCOM; commands->sseof = *commands->cp++; commands->rep->re1 = p; p = ycomp(commands, commands->rep->re1); if (p == NULL) return -1; break; } done: commands->rep = alloc_reptr(commands); commands->rep->ad1 = p; if (*commands->cp++ != '\0') { if (commands->cp[-1] == ';') goto comploop; command_errf(commands, XP_GetAdminStr(DBT_CGMES), commands->linebuf); return -1; } } commands->rep->command = 0; commands->lastre = op; return 0; }