-\r
-// parse.c\r
-\r
-// includes\r
-\r
-#include <string.h>\r
-\r
-#include "parse.h"\r
-#include "util.h"\r
-\r
-// constants\r
-\r
-#define StringSize ((int)256)\r
-\r
-// variables\r
-\r
-char * Star[STAR_NUMBER];\r
-\r
-// prototypes\r
-\r
-static bool match_rec (char string[], const char pattern[], char * star[]);\r
-\r
-// functions\r
-\r
-// match()\r
-\r
-bool match(char string[], const char pattern[]) {\r
-\r
- ASSERT(string!=NULL);\r
- ASSERT(pattern!=NULL);\r
-\r
- ASSERT(strstr(pattern,"**")==NULL);\r
-\r
- return match_rec(string,pattern,Star);\r
-}\r
-\r
-// match_rec()\r
-\r
-static bool match_rec(char string[], const char pattern[], char * star[]) {\r
-\r
- int c;\r
-\r
- ASSERT(string!=NULL);\r
- ASSERT(pattern!=NULL);\r
- ASSERT(star!=NULL);\r
-\r
- // iterative matches\r
-\r
- while ((c=*pattern++) != '*') {\r
- if (FALSE) {\r
- } else if (c == '\0') { // end of pattern\r
- while (*string == ' ') string++; // skip trailing spaces\r
- return *string == '\0';\r
- } else if (c == ' ') { // spaces\r
- if (*string++ != ' ') return FALSE; // mismatch\r
- while (*string == ' ') string++; // skip trailing spaces\r
- } else { // normal character\r
- if (*string++ != c) return FALSE; // mismatch\r
- }\r
- }\r
-\r
- // recursive wildcard match\r
-\r
- ASSERT(c=='*');\r
-\r
- while (*string == ' ') string++; // skip leading spaces\r
- *star++ = string; // remember beginning of star\r
-\r
- while ((c=*string++) != '\0') { // reject empty-string match\r
- if (c != ' ' && match_rec(string,pattern,star)) { // shortest match\r
- ASSERT(string>star[-1]);\r
- *string = '\0'; // truncate star\r
- return TRUE;\r
- }\r
- }\r
-\r
- return FALSE;\r
-}\r
-\r
-// parse_is_ok()\r
-\r
-bool parse_is_ok(const parse_t * parse) {\r
-\r
- if (parse == NULL) return FALSE;\r
- if (parse->string == NULL) return FALSE;\r
- if (parse->pos < 0 || parse->pos > (int) strlen(parse->string)) return FALSE;\r
- if (parse->keyword_nb < 0 || parse->keyword_nb >= KEYWORD_NUMBER) return FALSE;\r
-\r
- return TRUE;\r
-}\r
-\r
-// parse_open()\r
-\r
-void parse_open(parse_t * parse, const char string[]) {\r
-\r
- ASSERT(parse!=NULL);\r
- ASSERT(string!=NULL);\r
-\r
- parse->string = string;\r
- parse->pos = 0;\r
- parse->keyword_nb = 0;\r
-}\r
-\r
-// parse_close()\r
-\r
-void parse_close(parse_t * parse) {\r
-\r
- int i;\r
-\r
- ASSERT(parse_is_ok(parse));\r
-\r
- parse->string = NULL;\r
- parse->pos = 0;\r
-\r
- for (i = 0; i < parse->keyword_nb; i++) {\r
- my_string_clear(&parse->keyword[i]);\r
- }\r
-\r
- parse->keyword_nb = 0;\r
-}\r
-\r
-// parse_add_keyword()\r
-\r
-void parse_add_keyword(parse_t * parse, const char keyword[]) {\r
-\r
- const char * * string;\r
-\r
- ASSERT(parse_is_ok(parse));\r
- ASSERT(keyword!=NULL);\r
-\r
- if (parse->keyword_nb < KEYWORD_NUMBER) {\r
-\r
- string = &parse->keyword[parse->keyword_nb];\r
- parse->keyword_nb++;\r
-\r
- *string = NULL;\r
- my_string_set(string,keyword);\r
- }\r
-}\r
-\r
-// parse_get_word()\r
-\r
-bool parse_get_word(parse_t * parse, char string[], int size) {\r
-\r
- int pos;\r
- int c;\r
-\r
- ASSERT(parse!=NULL);\r
- ASSERT(string!=NULL);\r
- ASSERT(size>=256);\r
-\r
- // skip blanks\r
-\r
- for (; parse->string[parse->pos] == ' '; parse->pos++)\r
- ;\r
-\r
- ASSERT(parse->string[parse->pos]!=' ');\r
-\r
- // copy word\r
-\r
- pos = 0;\r
-\r
- while (TRUE) {\r
-\r
- c = parse->string[parse->pos];\r
- if (c == ' ' || pos >= size-1) c = '\0';\r
-\r
- string[pos] = c;\r
- if (c == '\0') break;\r
-\r
- parse->pos++;\r
- pos++;\r
- }\r
-\r
- ASSERT(strchr(string,' ')==NULL);\r
-\r
- return pos > 0; // non-empty word?\r
-}\r
-\r
-// parse_get_string()\r
-\r
-bool parse_get_string(parse_t * parse, char string[], int size) {\r
-\r
- int pos;\r
- parse_t parse_2[1];\r
- char word[StringSize];\r
- int i;\r
- int c;\r
-\r
- ASSERT(parse!=NULL);\r
- ASSERT(string!=NULL);\r
- ASSERT(size>=256);\r
-\r
- // skip blanks\r
-\r
- for (; parse->string[parse->pos] == ' '; parse->pos++)\r
- ;\r
-\r
- ASSERT(parse->string[parse->pos]!=' ');\r
-\r
- // copy string\r
-\r
- pos = 0;\r
-\r
- while (TRUE) {\r
-\r
- parse_open(parse_2,&parse->string[parse->pos]);\r
-\r
- if (!parse_get_word(parse_2,word,StringSize)) {\r
- string[pos] = '\0';\r
- parse_close(parse_2);\r
- goto finished;\r
- }\r
-\r
- for (i = 0; i < parse->keyword_nb; i++) {\r
- if (my_string_equal(parse->keyword[i],word)) {\r
- string[pos] = '\0';\r
- parse_close(parse_2);\r
- goto finished;\r
- }\r
- }\r
-\r
- parse_close(parse_2);\r
-\r
- // copy spaces\r
-\r
- while (TRUE) {\r
-\r
- c = parse->string[parse->pos];\r
- if (c != ' ') break;\r
-\r
- if (pos >= size-1) c = '\0';\r
-\r
- string[pos] = c;\r
- if (c == '\0') break;\r
-\r
- parse->pos++;\r
- pos++;\r
- }\r
-\r
- // copy non spaces\r
-\r
- while (TRUE) {\r
-\r
- c = parse->string[parse->pos];\r
- if (c == ' ' || pos >= size-1) c = '\0';\r
-\r
- string[pos] = c;\r
- if (c == '\0') break;\r
-\r
- parse->pos++;\r
- pos++;\r
- }\r
-\r
- string[pos] = '\0';\r
- }\r
-\r
-finished: ;\r
-\r
- return pos > 0; // non-empty string?\r
-}\r
-\r
-// end of parse.cpp\r
-\r
+
+// parse.c
+
+// includes
+
+#include <string.h>
+
+#include "parse.h"
+#include "util.h"
+
+// variables
+
+char * Star[STAR_NUMBER];
+
+// prototypes
+
+static bool match_rec (char string[], const char pattern[], char * star[]);
+
+// functions
+
+// match()
+
+bool match(char string[], const char pattern[]) {
+
+ ASSERT(string!=NULL);
+ ASSERT(pattern!=NULL);
+
+ ASSERT(strstr(pattern,"**")==NULL);
+
+ return match_rec(string,pattern,Star);
+}
+
+// match_rec()
+
+static bool match_rec(char string[], const char pattern[], char * star[]) {
+
+ int c;
+
+ ASSERT(string!=NULL);
+ ASSERT(pattern!=NULL);
+ ASSERT(star!=NULL);
+
+ // iterative matches
+
+ while ((c=*pattern++) != '*') {
+ if (FALSE) {
+ } else if (c == '\0') { // end of pattern
+ while (*string == ' ') string++; // skip trailing spaces
+ return *string == '\0';
+ } else if (c == ' ') { // spaces
+ if (*string++ != ' ') return FALSE; // mismatch
+ while (*string == ' ') string++; // skip trailing spaces
+ } else { // normal character
+ if (*string++ != c) return FALSE; // mismatch
+ }
+ }
+
+ // recursive wildcard match
+
+ ASSERT(c=='*');
+
+ while (*string == ' ') string++; // skip leading spaces
+ *star++ = string; // remember beginning of star
+
+ while ((c=*string++) != '\0') { // reject empty-string match
+ if (c != ' ' && match_rec(string,pattern,star)) { // shortest match
+ ASSERT(string>star[-1]);
+ *string = '\0'; // truncate star
+ return TRUE;
+ }
+ }
+
+ return FALSE;
+}
+
+// parse_is_ok()
+
+bool parse_is_ok(const parse_t * parse) {
+
+ if (parse == NULL) return FALSE;
+ if (parse->string == NULL) return FALSE;
+ if (parse->pos < 0 || parse->pos > (int) strlen(parse->string)) return FALSE;
+ if (parse->keyword_nb < 0 || parse->keyword_nb >= KEYWORD_NUMBER) return FALSE;
+
+ return TRUE;
+}
+
+// parse_open()
+
+void parse_open(parse_t * parse, const char string[]) {
+
+ ASSERT(parse!=NULL);
+ ASSERT(string!=NULL);
+
+ parse->string = string;
+ parse->pos = 0;
+ parse->keyword_nb = 0;
+}
+
+// parse_close()
+
+void parse_close(parse_t * parse) {
+
+ int i;
+
+ ASSERT(parse_is_ok(parse));
+
+ parse->string = NULL;
+ parse->pos = 0;
+
+ for (i = 0; i < parse->keyword_nb; i++) {
+ my_string_clear(&parse->keyword[i]);
+ }
+
+ parse->keyword_nb = 0;
+}
+
+// parse_add_keyword()
+
+void parse_add_keyword(parse_t * parse, const char keyword[]) {
+
+ const char * * string;
+
+ ASSERT(parse_is_ok(parse));
+ ASSERT(keyword!=NULL);
+
+ if (parse->keyword_nb < KEYWORD_NUMBER) {
+
+ string = &parse->keyword[parse->keyword_nb];
+ parse->keyword_nb++;
+
+ *string = NULL;
+ my_string_set(string,keyword);
+ }
+}
+
+// parse_get_word()
+
+bool parse_get_word(parse_t * parse, char string[], int size) {
+
+ int pos;
+ int c;
+
+ ASSERT(parse!=NULL);
+ ASSERT(string!=NULL);
+ ASSERT(size>=256);
+
+ // skip blanks
+
+ for (; parse->string[parse->pos] == ' '; parse->pos++)
+ ;
+
+ ASSERT(parse->string[parse->pos]!=' ');
+
+ // copy word
+
+ pos = 0;
+
+ while (TRUE) {
+
+ c = parse->string[parse->pos];
+ if (c == ' ' || pos >= size-1) c = '\0';
+
+ string[pos] = c;
+ if (c == '\0') break;
+
+ parse->pos++;
+ pos++;
+ }
+
+ ASSERT(strchr(string,' ')==NULL);
+
+ return pos > 0; // non-empty word?
+}
+
+// parse_get_string()
+
+bool parse_get_string(parse_t * parse, char string[], int size) {
+
+ int pos;
+ parse_t parse_2[1];
+ char word[StringSize];
+ int i;
+ int c;
+
+ ASSERT(parse!=NULL);
+ ASSERT(string!=NULL);
+ ASSERT(size>=256);
+
+ // skip blanks
+
+ for (; parse->string[parse->pos] == ' '; parse->pos++)
+ ;
+
+ ASSERT(parse->string[parse->pos]!=' ');
+
+ // copy string
+
+ pos = 0;
+
+ while (TRUE) {
+
+ parse_open(parse_2,&parse->string[parse->pos]);
+
+ if (!parse_get_word(parse_2,word,StringSize)) {
+ string[pos] = '\0';
+ parse_close(parse_2);
+ goto finished;
+ }
+
+ for (i = 0; i < parse->keyword_nb; i++) {
+ if (my_string_equal(parse->keyword[i],word)) {
+ string[pos] = '\0';
+ parse_close(parse_2);
+ goto finished;
+ }
+ }
+
+ parse_close(parse_2);
+
+ // copy spaces
+
+ while (TRUE) {
+
+ c = parse->string[parse->pos];
+ if (c != ' ') break;
+
+ if (pos >= size-1) c = '\0';
+
+ string[pos] = c;
+ if (c == '\0') break;
+
+ parse->pos++;
+ pos++;
+ }
+
+ // copy non spaces
+
+ while (TRUE) {
+
+ c = parse->string[parse->pos];
+ if (c == ' ' || pos >= size-1) c = '\0';
+
+ string[pos] = c;
+ if (c == '\0') break;
+
+ parse->pos++;
+ pos++;
+ }
+
+ string[pos] = '\0';
+ }
+
+finished: ;
+
+ return pos > 0; // non-empty string?
+}
+
+// end of parse.cpp
+
projects / polyglot.git / blobdiff