/*

 * posix.c

 */

#include <stdio.h>

#include "onigposix.h"

typedef unsigned char  UChar;

static int x(regex_t* reg, unsigned char* pattern, unsigned char* str)

{

  int r, i;

  char buf[200];

  regmatch_t pmatch[20];

  r = regexec(reg, (char* )str, reg->re_nsub + 1, pmatch, 0);

  if (r != 0 && r != REG_NOMATCH) {

    regerror(r, reg, buf, sizeof(buf));

    fprintf(stderr, "ERROR: %s\n", buf);

    return -1;

  }

  if (r == REG_NOMATCH) {

    fprintf(stderr, "FAIL: /%s/ '%s'\n", pattern, str);

  }

  else {

    fprintf(stderr, "OK: /%s/ '%s'\n", pattern, str);

    for (i = 0; i <= (int )reg->re_nsub; i++) {

      fprintf(stderr, "%d: %d-%d\n", i, pmatch[i].rm_so, pmatch[i].rm_eo);

    }

  }

  return 0;

}

extern int main(int argc, char* argv[])

{

  int r;

  char buf[200];

  regex_t reg;

  UChar* pattern;

  reg_set_encoding(REG_POSIX_ENCODING_ASCII);

  /* default syntax (ONIG_SYNTAX_ONIGURUMA) */

  pattern = (UChar* )"^a+b{2,7}[c-f]?$|uuu";

  r = regcomp(&reg, (char* )pattern, REG_EXTENDED);

  if (r) {

    regerror(r, &reg, buf, sizeof(buf));

    fprintf(stderr, "ERROR: %s\n", buf);

    return -1;

  }

  x(&reg, pattern, (UChar* )"aaabbbbd");

  /* POSIX Basic RE (REG_EXTENDED is not specified.) */

  pattern = (UChar* )"^a+b{2,7}[c-f]?|uuu";

  r = regcomp(&reg, (char* )pattern, 0);

  if (r) {

    regerror(r, &reg, buf, sizeof(buf));

    fprintf(stderr, "ERROR: %s\n", buf);

    return -1;

  }

  x(&reg, pattern, (UChar* )"a+b{2,7}d?|uuu");

  /* POSIX Basic RE (REG_EXTENDED is not specified.) */

  pattern = (UChar* )"^a*b\\{2,7\\}\\([c-f]\\)$";

  r = regcomp(&reg, (char* )pattern, 0);

  if (r) {

    regerror(r, &reg, buf, sizeof(buf));

    fprintf(stderr, "ERROR: %s\n", buf);

    return -1;

  }

  x(&reg, pattern, (UChar* )"aaaabbbbbbd");

  /* POSIX Extended RE */

  onig_set_default_syntax(ONIG_SYNTAX_POSIX_EXTENDED);

  pattern = (UChar* )"^a+b{2,7}[c-f]?)$|uuu";

  r = regcomp(&reg, (char* )pattern, REG_EXTENDED);

  if (r) {

    regerror(r, &reg, buf, sizeof(buf));

    fprintf(stderr, "ERROR: %s\n", buf);

    return -1;

  }

  x(&reg, pattern, (UChar* )"aaabbbbd)");

  pattern = (UChar* )"^b.";

  r = regcomp(&reg, (char* )pattern, REG_EXTENDED | REG_NEWLINE);

  if (r) {

    regerror(r, &reg, buf, sizeof(buf));

    fprintf(stderr, "ERROR: %s\n", buf);

    return -1;

  }

  x(&reg, pattern, (UChar* )"a\nb\n");

  regfree(®);

  onig_end();

  return 0;

}