scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Renamed rescm.c to re1.c

This commit is contained in:
shivers 1995-10-22 10:05:39 +00:00
parent 3e52c5100b
commit 083b345c2e
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
scsh/rescm.c → scsh/re1.c
View File

@ -6,6 +6,9 @@
#include "regexp.h"
#include "cstuff.h"
/* Make sure our exports match up w/the implementation: */
#include "re1.h"
#ifndef NULL
#define NULL 0
#endif
@ -21,7 +24,7 @@ void regerror(char *msg) {regexp_error = msg;}
** Returns boolean match/no-match in hit.
*/
char *reg_match(char *re, char *string, int start,
char *reg_match(const char *re, const char *string, int start,
scheme_value start_vec, scheme_value end_vec, int *hit)
{
regexp *prog = regcomp(re);
@ -55,11 +58,11 @@ char *reg_match(char *re, char *string, int start,
}
char *filter_stringvec(char *re, char **stringvec, int *nummatch)
char *filter_stringvec(const char *re, char const **stringvec, int *nummatch)
{
regexp *prog = regcomp(re);
char **p = stringvec;
char **q = p;
char const **p = stringvec;
char const **q = p;
if( !prog ) return regexp_error;
@ -70,5 +73,5 @@ char *filter_stringvec(char *re, char **stringvec, int *nummatch)
Free(prog);
*nummatch = q-stringvec;
return "";
return NULL;
}