66 |
|
|
67 |
char *tmp; |
char *tmp; |
68 |
object res; |
object res; |
69 |
|
void *v; |
70 |
|
fixnum sz; |
71 |
|
|
72 |
if (type_of(p)!= t_string && type_of(p)!=t_symbol) |
if (type_of(p)!= t_string && type_of(p)!=t_symbol) |
73 |
not_a_string_or_symbol(p); |
not_a_string_or_symbol(p); |
77 |
memcpy(tmp,p->st.st_self,p->st.st_fillp); |
memcpy(tmp,p->st.st_self,p->st.st_fillp); |
78 |
tmp[p->st.st_fillp]=0; |
tmp[p->st.st_fillp]=0; |
79 |
|
|
80 |
|
if (!(v=(void *)regcomp(tmp,&sz))) |
81 |
|
FEerror("regcomp failure",0); |
82 |
|
|
83 |
res=alloc_object(t_vector); |
res=alloc_object(t_vector); |
84 |
res->v.v_displaced=Cnil; |
res->v.v_displaced=Cnil; |
85 |
res->v.v_hasfillp=1; |
res->v.v_hasfillp=1; |
86 |
res->v.v_elttype=aet_uchar; |
res->v.v_elttype=aet_uchar; |
87 |
res->v.v_adjustable=0; |
res->v.v_adjustable=0; |
88 |
res->v.v_offset=0; |
res->v.v_offset=0; |
89 |
if (!(res->v.v_self=(void *)regcomp(tmp,&res->v.v_dim))) |
res->v.v_self=v; |
90 |
FEerror("regcomp failure",0); |
res->v.v_fillp=res->v.v_dim=sz; |
|
res->v.v_fillp=res->v.v_dim; |
|
91 |
|
|
92 |
RETURN1(res); |
RETURN1(res); |
93 |
|
|