File: regexi.c

package info (click to toggle)
clisp 1%3A2.27-0.5
  • links: PTS
  • area: main
  • in suites: woody
  • size: 49,860 kB
  • ctags: 20,752
  • sloc: ansic: 123,781; lisp: 67,533; asm: 19,633; xml: 11,766; sh: 9,788; fortran: 8,307; makefile: 3,570; objc: 2,481; perl: 1,744; java: 341; yacc: 318; sed: 117
file content (40 lines) | stat: -rw-r--r-- 799 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
/* CLISP interface to GNU regex */
/* Bruno Haible 14.4.1995 */

#include <sys/types.h> /* regex.h needs this */
#include "regex.h"

#include <stdlib.h> /* declare malloc(), free() */

int mregcomp (ppreg,pattern,cflags)
  regex_t* * ppreg;
  const char * pattern;
  int cflags;
{
  regex_t* preg;

  *ppreg = preg = (regex_t*) malloc(sizeof(regex_t));
  if (!preg)
    return (int) REG_ESPACE;

  return regcomp(preg,pattern,cflags);
}

const char * mregerror (errcode,preg)
  int errcode;
  const regex_t * preg;
{
  size_t errbuf_size = 80; /* This will be enough. */
  char* errbuf = (char*) malloc(errbuf_size);
  if (!errbuf)
    return (const char *) 0;
  regerror(errcode,preg,errbuf,errbuf_size);
  return errbuf;
}

void mregfree (preg)
  regex_t* preg;
{
  regfree(preg);
  free(preg);
}