static bool verify_List(const char *&input, const char *, bool) { input++ ; // consume initial left parenthesis char c ; while ((c = FrSkipWhitespace(input)) != ')' && c != '\0') { if (!valid_FrObject_string(input,true)) return false ; } if (c == ')') { input++ ; // skip terminating right paren return true ; // and indicate success } else return false ; }
static bool verify_Facet(const char *&input) { input++ ; // consume the left bracket if (!verify_Symbol(input,true)) // check facet name return false ; char c ; while ((c = FrSkipWhitespace(input)) != ']' && c != '\0') { if (!valid_FrObject_string(input,true)) return false ; } if (c == ']') { input++ ; // skip over terminator return true ; // and indicate success } else return false ; }
static bool verify_Queue(const char *&input, const char *, bool strict) { return valid_FrObject_string(input,strict) ; }