Return to readtext.c CVS log

Up to [Synchronet] / sbbs / src / sbbs3

Annotation of sbbs/src/sbbs3/readtext.c, revision 1.1.1.1

1.1       root        1: #include "sbbs.h"
                      2: #include "text_defaults.h"     /* text_defaults */
                      3: 
                      4: /****************************************************************************/
                      5: /* Reads special TEXT.DAT printf style text lines, splicing multiple lines, */
                      6: /* replacing escaped characters, and allocating the memory                                     */
                      7: /****************************************************************************/
                      8: char *readtext(long *line,FILE *stream,long dflt)
                      9: {
                     10:        char buf[MAX_TEXTDAT_ITEM_LEN+256],str[MAX_TEXTDAT_ITEM_LEN+1],tmp[256],*p,*p2;
                     11:        int i,j,k;
                     12: 
                     13:        if(!fgets(buf,256,stream)) {
                     14:                /* Hide the EOF */
                     15:                if(feof(stream))
                     16:                        clearerr(stream);
                     17:                goto use_default;
                     18:        }
                     19:        if(line)
                     20:                (*line)++;
                     21:        if(buf[0]=='#')
                     22:                goto use_default;
                     23:        p=strrchr(buf,'"');
                     24:        if(!p) {
                     25:                if(line)
                     26:                        lprintf(LOG_WARNING,"No quotation marks in line %d of text.dat",*line);
                     27:                goto use_default;
                     28:        }
                     29:        if(*(p+1)=='\\')        /* merge multiple lines */
                     30:                while(strlen(buf)<MAX_TEXTDAT_ITEM_LEN) {
                     31:                        if(!fgets(str,255,stream)) {
                     32:                                /* Hide the EOF */
                     33:                                if(feof(stream))
                     34:                                        clearerr(stream);
                     35:                                goto use_default;
                     36:                        }
                     37:                        if(line)
                     38:                                (*line)++;
                     39:                        p2=strchr(str,'"');
                     40:                        if(!p2)
                     41:                                continue;
                     42:                        strcpy(p,p2+1);
                     43:                        p=strrchr(p,'"');
                     44:                        if(p && *(p+1)=='\\')
                     45:                                continue;
                     46:                        break; 
                     47:                }
                     48:        *(p)=0;
                     49:        k=strlen(buf);
                     50:        for(i=1,j=0;i<k && j<sizeof(str)-1;j++) {
                     51:                if(buf[i]=='\\')        { /* escape */
                     52:                        i++;
                     53:                        if(isdigit(buf[i])) {
                     54:                                str[j]=atoi(buf+i);     /* decimal, NOT octal */
                     55:                                if(isdigit(buf[++i]))   /* skip up to 3 digits */
                     56:                                        if(isdigit(buf[++i]))
                     57:                                                i++;
                     58:                                continue; 
                     59:                        }
                     60:                        switch(buf[i++]) {
                     61:                                case '\\':
                     62:                                        str[j]='\\';
                     63:                                        break;
                     64:                                case '?':
                     65:                                        str[j]='?';
                     66:                                        break;
                     67:                                case 'x':
                     68:                                        tmp[0]=buf[i++];        /* skip next character */
                     69:                                        tmp[1]=0;
                     70:                                        if(isxdigit(buf[i])) {  /* if another hex digit, skip too */
                     71:                                                tmp[1]=buf[i++];
                     72:                                                tmp[2]=0; 
                     73:                                        }
                     74:                                        str[j]=(char)ahtoul(tmp);
                     75:                                        break;
                     76:                                case '\'':
                     77:                                        str[j]='\'';
                     78:                                        break;
                     79:                                case '"':
                     80:                                        str[j]='"';
                     81:                                        break;
                     82:                                case 'r':
                     83:                                        str[j]=CR;
                     84:                                        break;
                     85:                                case 'n':
                     86:                                        str[j]=LF;
                     87:                                        break;
                     88:                                case 't':
                     89:                                        str[j]=TAB;
                     90:                                        break;
                     91:                                case 'b':
                     92:                                        str[j]=BS;
                     93:                                        break;
                     94:                                case 'a':
                     95:                                        str[j]=BEL;
                     96:                                        break;
                     97:                                case 'f':
                     98:                                        str[j]=FF;
                     99:                                        break;
                    100:                                case 'v':
                    101:                                        str[j]=11;      /* VT */
                    102:                                        break;
                    103:                                default:
                    104:                                        str[j]=buf[i];
                    105:                                        break; 
                    106:                        }
                    107:                        continue; 
                    108:                }
                    109:                str[j]=buf[i++]; 
                    110:        }
                    111:        str[j]=0;
                    112:        if((p=(char *)calloc(1,j+2))==NULL) { /* +1 for terminator, +1 for YNQX line */
                    113:                lprintf(LOG_CRIT,"Error allocating %u bytes of memory from text.dat",j);
                    114:                goto use_default;
                    115:        }
                    116:        strcpy(p,str);
                    117:        return(p);
                    118: use_default:
                    119:        p=strdup(text_defaults[dflt]);
                    120:        if(p==NULL)
                    121:                lprintf(LOG_CRIT,"Error duplicating %s text defaults",text_defaults[dflt]);
                    122:        return(p);
                    123: }
                    124: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.