Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Lisp > Perl

Name: 2012-01-06 20:42

Name: Anonymous 2012-01-06 23:19

>>5
#include <regex.h>
#include <stdio.h>

int main() {
     char *var = NULL, *file_name = "";
     int n = 0;
     regex_t pat;
     regmatch_t matchbuf[1];
     getline(&var, &n, stdin);
     regcomp(&pat, "^#include[[:space:]]*<([^>]+)>", REG_EXTENDED);
     regexec(&pat, var, 1, matchbuf, 0);
     if (matchbuf->rm_so != -1) {
          &var[matchbuf->rm_eo] = '\0';
          file_name = strdup(&var[matchbuf->rm_so]);
     }
     free(var);
}

Newer Posts
Don't change these.
Name: Email:
Entire Thread Thread List