/[gcl]/gcl/o/regexpr.c
ViewVC logotype

Diff of /gcl/o/regexpr.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by camm, Fri Jun 10 15:24:44 2005 UTC revision 1.13 by camm, Thu Sep 22 21:31:38 2005 UTC
# Line 66  DEFUN_NEW("COMPILE-REGEXP",object,fScomp Line 66  DEFUN_NEW("COMPILE-REGEXP",object,fScomp
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);
# Line 75  DEFUN_NEW("COMPILE-REGEXP",object,fScomp Line 77  DEFUN_NEW("COMPILE-REGEXP",object,fScomp
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    

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26