/* $Header: str.c,v 2.0.1.1 88/06/28 16:38:11 root Exp $ * * $Log: str.c,v $ * Revision 2.0.1.1 88/06/28 16:38:11 root * patch1: autoincrement of '' didn't work right. * * Revision 2.0 88/06/05 00:11:07 root * Baseline version 2.0. * */ #include "EXTERN.h" #include "perl.h" str_reset(s) register char *s; { register STAB *stab; register STR *str; register int i; register int max; register SPAT *spat; if (!*s) { /* reset ?? searches */ for (spat = spat_root; spat != Nullspat; spat = spat->spat_next) { spat->spat_flags &= ~SPAT_USED; } return; } /* reset variables */ while (*s) { i = *s; if (s[1] == '-') { s += 2; } max = *s++; for ( ; i <= max; i++) { for (stab = stab_index[i]; stab; stab = stab->stab_next) { str = stab->stab_val; str->str_cur = 0; str->str_nok = 0; if (str->str_ptr != Nullch) str->str_ptr[0] = '\0'; if (stab->stab_array) { aclear(stab->stab_array); } if (stab->stab_hash) { hclear(stab->stab_hash); } } } } } str_numset(str,num) register STR *str; double num; { str->str_nval = num; str->str_pok = 0; /* invalidate pointer */ str->str_nok = 1; /* validate number */ } extern int errno; char * str_2ptr(str) register STR *str; { register char *s; int olderrno; if (!str) return ""; GROWSTR(&(str->str_ptr), &(str->str_len), 24); s = str->str_ptr; if (str->str_nok) { olderrno = errno; /* some Xenix systems wipe out errno here */ #if defined(scs) && defined(ns32000) gcvt(str->str_nval,20,s); #else #ifdef apollo if (str->str_nval == 0.0) strcpy(s,"0"); else #endif /*apollo*/ sprintf(s,"%.20g",str->str_nval); #endif /*scs*/ errno = olderrno; while (*s) s++; } else if (dowarn) warn("Use of uninitialized variable"); *s = '\0'; str->str_cur = s - str->str_ptr; str->str_pok = 1; #ifdef DEBUGGING if (debug & 32) fprintf(stderr,"0x%lx ptr(%s)\n",str,str->str_ptr); #endif return str->str_ptr; } double str_2num(str) register STR *str; { if (!str) return 0.0; if (str->str_len && str->str_pok) str->str_nval = atof(str->str_ptr); else { if (dowarn) fprintf(stderr,"Use of uninitialized variable in %s line %ld.\n", filename,(long)line); str->str_nval = 0.0; } str->str_nok = 1; #ifdef DEBUGGING if (debug & 32) fprintf(stderr,"0x%lx num(%g)\n",str,str->str_nval); #endif return str->str_nval; } str_sset(dstr,sstr) STR *dstr; register STR *sstr; { if (!sstr) str_nset(dstr,No,0); else if (sstr->str_nok) str_numset(dstr,sstr->str_nval); else if (sstr->str_pok) str_nset(dstr,sstr->str_ptr,sstr->str_cur); else str_nset(dstr,"",0); } str_nset(str,ptr,len) register STR *str; register char *ptr; register int len; { GROWSTR(&(str->str_ptr), &(str->str_len), len + 1); bcopy(ptr,str->str_ptr,len); str->str_cur = len; *(str->str_ptr+str->str_cur) = '\0'; str->str_nok = 0; /* invalidate number */ str->str_pok = 1; /* validate pointer */ } str_set(str,ptr) register STR *str; register char *ptr; { register int len; if (!ptr) ptr = ""; len = strlen(ptr); GROWSTR(&(str->str_ptr), &(str->str_len), len + 1); bcopy(ptr,str->str_ptr,len+1); str->str_cur = len; str->str_nok = 0; /* invalidate number */ str->str_pok = 1; /* validate pointer */ } str_chop(str,ptr) /* like set but assuming ptr is in str */ register STR *str; register char *ptr; { if (!(str->str_pok)) str_2ptr(str); str->str_cur -= (ptr - str->str_ptr); bcopy(ptr,str->str_ptr, str->str_cur + 1); str->str_nok = 0; /* invalidate number */ str->str_pok = 1; /* validate pointer */ } str_ncat(str,ptr,len) register STR *str; register char *ptr; register int len; { if (!(str->str_pok)) str_2ptr(str); GROWSTR(&(str->str_ptr), &(str->str_len), str->str_cur + len + 1); bcopy(ptr,str->str_ptr+str->str_cur,len); str->str_cur += len; *(str->str_ptr+str->str_cur) = '\0'; str->str_nok = 0; /* invalidate number */ str->str_pok = 1; /* validate pointer */ } str_scat(dstr,sstr) STR *dstr; register STR *sstr; { if (!sstr) return; if (!(sstr->str_pok)) str_2ptr(sstr); if (sstr) str_ncat(dstr,sstr->str_ptr,sstr->str_cur); } str_cat(str,ptr) register STR *str; register char *ptr; { register int len; if (!ptr) return; if (!(str->str_pok)) str_2ptr(str); len = strlen(ptr); GROWSTR(&(str->str_ptr), &(str->str_len), str->str_cur + len + 1); bcopy(ptr,str->str_ptr+str->str_cur,len+1); str->str_cur += len; str->str_nok = 0; /* invalidate number */ str->str_pok = 1; /* validate pointer */ } char * str_append_till(str,from,delim,keeplist) register STR *str; register char *from; register int delim; char *keeplist; { register char *to; register int len; if (!from) return Nullch; len = strlen(from); GROWSTR(&(str->str_ptr), &(str->str_len), str->str_cur + len + 1); str->str_nok = 0; /* invalidate number */ str->str_pok = 1; /* validate pointer */ to = str->str_ptr+str->str_cur; for (; *from; from++,to++) { if (*from == '\\' && from[1] && delim != '\\') { if (!keeplist) { if (from[1] == delim || from[1] == '\\') from++; else *to++ = *from++; } else if (index(keeplist,from[1])) *to++ = *from++; else from++; } else if (*from == delim) break; *to = *from; } *to = '\0'; str->str_cur = to - str->str_ptr; return from; } STR * str_new(len) int len; { register STR *str; if (freestrroot) { str = freestrroot; freestrroot = str->str_link.str_next; str->str_link.str_magic = Nullstab; } else { str = (STR *) safemalloc(sizeof(STR)); bzero((char*)str,sizeof(STR)); } if (len) GROWSTR(&(str->str_ptr), &(str->str_len), len + 1); return str; } void str_grow(str,len) register STR *str; int len; { if (len && str) GROWSTR(&(str->str_ptr), &(str->str_len), len + 1); } /* make str point to what nstr did */ void str_replace(str,nstr) register STR *str; register STR *nstr; { safefree(str->str_ptr); str->str_ptr = nstr->str_ptr; str->str_len = nstr->str_len; str->str_cur = nstr->str_cur; str->str_pok = nstr->str_pok; if (str->str_nok = nstr->str_nok) str->str_nval = nstr->str_nval; safefree((char*)nstr); } void str_free(str) register STR *str; { if (!str) return; if (str->str_len) str->str_ptr[0] = '\0'; str->str_cur = 0; str->str_nok = 0; str->str_pok = 0; str->str_link.str_next = freestrroot; freestrroot = str; } str_len(str) register STR *str; { if (!str) return 0; if (!(str->str_pok)) str_2ptr(str); if (str->str_len) return str->str_cur; else return 0; } char * str_gets(str,fp) register STR *str; register FILE *fp; { #ifdef STDSTDIO /* Here is some breathtakingly efficient cheating */ register char *bp; /* we're going to steal some values */ register int cnt; /* from the stdio struct and put EVERYTHING */ register STDCHAR *ptr; /* in the innermost loop into registers */ register char newline = record_separator;/* (assuming >= 6 registers) */ int i; int bpx; int obpx; register int get_paragraph; register char *oldbp; if (get_paragraph = !newline) { /* yes, that's an assignment */ newline = '\n'; oldbp = Nullch; /* remember last \n position (none) */ } cnt = fp->_cnt; /* get count into register */ str->str_nok = 0; /* invalidate number */ str->str_pok = 1; /* validate pointer */ if (str->str_len <= cnt) /* make sure we have the room */ GROWSTR(&(str->str_ptr), &(str->str_len), cnt+1); bp = str->str_ptr; /* move these two too to registers */ ptr = fp->_ptr; for (;;) { screamer: while (--cnt >= 0) { /* this */ /* eat */ if ((*bp++ = *ptr++) == newline) /* really */ /* dust */ goto thats_all_folks; /* screams */ /* sed :-) */ } fp->_cnt = cnt; /* deregisterize cnt and ptr */ fp->_ptr = ptr; i = _filbuf(fp); /* get more characters */ cnt = fp->_cnt; ptr = fp->_ptr; /* reregisterize cnt and ptr */ bpx = bp - str->str_ptr; /* prepare for possible relocation */ if (get_paragraph && oldbp) obpx = oldbp - str->str_ptr; GROWSTR(&(str->str_ptr), &(str->str_len), bpx + cnt + 2); bp = str->str_ptr + bpx; /* reconstitute our pointer */ if (get_paragraph && oldbp) oldbp = str->str_ptr + obpx; if (i == newline) { /* all done for now? */ *bp++ = i; goto thats_all_folks; } else if (i == EOF) /* all done for ever? */ goto thats_really_all_folks; *bp++ = i; /* now go back to screaming loop */ } thats_all_folks: if (get_paragraph && bp - 1 != oldbp) { oldbp = bp; /* remember where this newline was */ goto screamer; /* and go back to the fray */ } thats_really_all_folks: fp->_cnt = cnt; /* put these back or we're in trouble */ fp->_ptr = ptr; *bp = '\0'; str->str_cur = bp - str->str_ptr; /* set length */ #else /* !STDSTDIO */ /* The big, slow, and stupid way */ static char buf[4192]; if (fgets(buf, sizeof buf, fp) != Nullch) str_set(str, buf); else str_set(str, No); #endif /* STDSTDIO */ return str->str_cur ? str->str_ptr : Nullch; } STR * interp(str,s) register STR *str; register char *s; { register char *t = s; char *envsave = envname; envname = Nullch; str_set(str,""); while (*s) { if (*s == '\\' && s[1] == '\\') { str_ncat(str, t, s++ - t); t = s++; } else if (*s == '\\' && s[1] == '$') { str_ncat(str, t, s++ - t); t = s++; } else if (*s == '$' && s[1] && s[1] != '|') { str_ncat(str,t,s-t); s = scanreg(s,tokenbuf); str_cat(str,reg_get(tokenbuf)); t = s; } else s++; } envname = envsave; str_ncat(str,t,s-t); return str; } void str_inc(str) register STR *str; { register char *d; if (!str) return; if (str->str_nok) { str->str_nval += 1.0; str->str_pok = 0; return; } if (!str->str_pok || !*str->str_ptr) { str->str_nval = 1.0; str->str_nok = 1; str->str_pok = 0; return; } d = str->str_ptr; while (isalpha(*d)) d++; while (isdigit(*d)) d++; if (*d) { str_numset(str,atof(str->str_ptr) + 1.0); /* punt */ return; } d--; while (d >= str->str_ptr) { if (isdigit(*d)) { if (++*d <= '9') return; *(d--) = '0'; } else { ++*d; if (isalpha(*d)) return; *(d--) -= 'z' - 'a' + 1; } } /* oh,oh, the number grew */ GROWSTR(&(str->str_ptr), &(str->str_len), str->str_cur + 2); str->str_cur++; for (d = str->str_ptr + str->str_cur; d > str->str_ptr; d--) *d = d[-1]; if (isdigit(d[1])) *d = '1'; else *d = d[1]; } void str_dec(str) register STR *str; { if (!str) return; if (str->str_nok) { str->str_nval -= 1.0; str->str_pok = 0; return; } if (!str->str_pok) { str->str_nval = -1.0; str->str_nok = 1; return; } str_numset(str,atof(str->str_ptr) - 1.0); } /* make a string that will exist for the duration of the expression eval */ STR * str_static(oldstr) STR *oldstr; { register STR *str = str_new(0); static long tmps_size = -1; str_sset(str,oldstr); if (++tmps_max > tmps_size) { tmps_size = tmps_max; if (!(tmps_size & 127)) { if (tmps_size) tmps_list = (STR**)saferealloc((char*)tmps_list, (MEM_SIZE)((tmps_size + 128) * sizeof(STR*)) ); else tmps_list = (STR**)safemalloc(128 * sizeof(char*)); } } tmps_list[tmps_max] = str; return str; } STR * str_make(s) char *s; { register STR *str = str_new(0); str_set(str,s); return str; } STR * str_nmake(n) double n; { register STR *str = str_new(0); str_numset(str,n); return str; }