182 lines
3 KiB
C
182 lines
3 KiB
C
#include "bc_string.h"
|
|
|
|
/* $Header$ */
|
|
|
|
#define ok(X) if( X ==0) return;
|
|
#define okr(X) if( X ==0) return(0);
|
|
|
|
extern char *salloc() ;
|
|
|
|
_len(str)
|
|
String *str;
|
|
{
|
|
okr(str);
|
|
return(str->strlength);
|
|
}
|
|
String *_newstr(str)
|
|
char *str;
|
|
{
|
|
String *s;
|
|
okr(str);
|
|
s= (String *) salloc(sizeof(String));
|
|
s->strcount=1;
|
|
s->strlength= strlen(str);
|
|
s->strval= salloc(s->strlength+1);
|
|
strcpy(s->strval,str);
|
|
return(s);
|
|
}
|
|
_incstr(src)
|
|
String *src;
|
|
{
|
|
/* one more variable uses the string */
|
|
ok(src);
|
|
src->strcount++;
|
|
}
|
|
_decstr(str)
|
|
String *str;
|
|
{
|
|
ok(str);
|
|
/* Strings in ROM are initialized with this count */
|
|
if ( str->strcount==9999 ) return ;
|
|
str->strcount--;
|
|
if(str->strcount<=0) _delstr(str);
|
|
}
|
|
_strcpy(dst,src)
|
|
String *src,*dst;
|
|
{
|
|
ok(src);
|
|
ok(dst);
|
|
_decstr(dst);
|
|
*dst = *src;
|
|
_incstr(src);
|
|
}
|
|
_delstr(src)
|
|
String *src;
|
|
{
|
|
ok(src);
|
|
sfree(src->strval);
|
|
sfree((char *)src);
|
|
}
|
|
String *_concat(s1,s2)
|
|
String *s1,*s2;
|
|
{
|
|
String *s;
|
|
int length;
|
|
okr(s1); okr(s2);
|
|
s= (String *) salloc(sizeof(String));
|
|
s->strlength= _len(s1)+_len(s2);
|
|
s->strval= salloc(s->strlength+1);
|
|
s->strcount = 1;
|
|
strcpy(s->strval,s2->strval);
|
|
strcat(s->strval,s1->strval);
|
|
return(s);
|
|
}
|
|
_strcomp(s1,s2)
|
|
String *s1,*s2;
|
|
{
|
|
okr(s1);okr(s2);
|
|
return(strcmp(s2->strval,s1->strval));
|
|
}
|
|
|
|
String *_left(size,s)
|
|
String *s;
|
|
int size;
|
|
{
|
|
String *ns;
|
|
int i;
|
|
|
|
okr(s);
|
|
if( size <0 || size >s->strlength) error(3);
|
|
ns= (String *) salloc(sizeof(String));
|
|
ns->strval= salloc(size+1);
|
|
ns->strcount=1;
|
|
for(i=0; i<size && s->strval[i];i++)
|
|
ns->strval[i]= s->strval[i];
|
|
ns->strval[i]=0;
|
|
ns->strlength= i;
|
|
return(ns);
|
|
}
|
|
|
|
String *_space(d)
|
|
int d;
|
|
{
|
|
String *s;
|
|
int i,len;
|
|
|
|
len= d;
|
|
s= (String *) salloc(sizeof(String));
|
|
s->strlength= len;
|
|
s->strcount=1;
|
|
s->strval= salloc(len+1);
|
|
for(i=0;i<len;i++)
|
|
s->strval[i]= ' ';
|
|
s->strval[i]=0;
|
|
return(s);
|
|
}
|
|
|
|
String *_strascii()
|
|
{
|
|
}
|
|
String *_string(f, d)
|
|
double d,f;
|
|
{
|
|
int i,j;
|
|
String *s;
|
|
|
|
i=d;j=f;
|
|
if( i<0 || i>MAXSTRING) error(3);
|
|
s= (String *) salloc(sizeof(String));
|
|
s->strlength= i;
|
|
s->strcount=1;
|
|
s->strval= salloc(i+1);
|
|
s->strval[i--]=0;
|
|
for(; i>=0;i--)
|
|
s->strval[i]= j;
|
|
return(s);
|
|
}
|
|
_midstmt(s2,i1,i2,s)
|
|
int i1,i2;
|
|
String *s, *s2;
|
|
{
|
|
int l;
|
|
|
|
/*printf("mid called %d %d %s %s\n",i1,i2,s->strval, s2->strval);*/
|
|
if (i2 < 0 || i1 < -1) error(3);
|
|
if( s->strlength<i2 || s2->strlength < i1) error(3); /* source string too short */
|
|
if( i1== -1) i1= s2->strlength;
|
|
l= s->strlength - i2+1;
|
|
if( i1>l ) i1=l;
|
|
strncpy(s->strval+i2-1,s2->strval,i1);
|
|
}
|
|
String *_mid(i1,i2,s)
|
|
int i1,i2;
|
|
String *s;
|
|
{
|
|
int l;
|
|
String *s2;
|
|
|
|
/* printf("mid fcn called %d %d %s\n",i1,i2,s->strval);*/
|
|
if (i2 < 0 || i1 < -1) return(s2); /* or error? */
|
|
if( i1 == -1) i1= s->strlength;
|
|
s2= _newstr(s->strval);
|
|
s2->strval[0]=0;
|
|
if( s->strlength<i2) return(s2); /* source string too short */
|
|
l= s->strlength - i2+1;
|
|
if( i1>l ) i1=l;
|
|
strncpy(s2->strval,s->strval+i2-1,i1);
|
|
s2->strval[i1]=0;
|
|
return(s2);
|
|
}
|
|
|
|
String *_right(length,str)
|
|
String *str;
|
|
int length;
|
|
{
|
|
String *s;
|
|
int i;
|
|
|
|
i= _len(str)-length;
|
|
if(i<0) i=0;
|
|
s= _newstr(str->strval+i);
|
|
return(s);
|
|
}
|