+
+static inline bool try_include(struct psi_cpp *cpp, const char *path, bool *parsed)
+{
+ struct psi_parser_input *include;
+
+ PSI_DEBUG_PRINT(cpp->parser, "PSI: CPP include trying %s\n", path);
+
+ include = psi_parser_open_file(cpp->parser, path, false);
+ if (include) {
+ struct psi_plist *tokens;
+
+ PSI_DEBUG_PRINT(cpp->parser, "PSI: CPP include scanning %s\n", path);
+
+ tokens = psi_parser_scan(cpp->parser, include);
+ if (tokens) {
+ *parsed = psi_cpp_process(cpp, &tokens);
+
+ if (*parsed) {
+ ++cpp->expanded;
+ psi_cpp_tokiter_ins_range(cpp, cpp->index,
+ psi_plist_count(tokens), psi_plist_eles(tokens));
+ free(tokens);
+ } else {
+ psi_plist_free(tokens);
+ }
+ }
+ free(include);
+
+ zend_hash_str_add_empty_element(&cpp->once, path, strlen(path));
+ return true;
+ }
+ return false;
+}
+
+bool psi_cpp_include(struct psi_cpp *cpp, const char *file, unsigned flags)
+{
+ bool parsed = false;
+ int f_len = strlen(file);
+
+ if (!(flags & PSI_CPP_INCLUDE_NEXT) || *file == '/') {
+ /* first try as is, full or relative path */
+ if ((flags & PSI_CPP_INCLUDE_ONCE) && zend_hash_str_exists(&cpp->once, file, f_len)) {
+ return true;
+ }
+ if (try_include(cpp, file, &parsed)) {
+ /* found */
+ return parsed;
+ }
+ }
+
+ /* look through search paths */
+ if (*file != '/') {
+ char path[PATH_MAX];
+ const char *sep;
+ int p_len;
+
+ if ((flags & PSI_CPP_INCLUDE_NEXT) && cpp->search) {
+ if ((sep = strchr(cpp->search, ':'))) {
+ cpp->search = sep + 1;
+ } else {
+ /* point to end of string */
+ cpp->search += strlen(cpp->search);
+ }
+ }
+
+ if (!(flags & PSI_CPP_INCLUDE_NEXT) || !cpp->search) {
+ cpp->search = &psi_cpp_search[0];
+ }
+
+ do {
+ int d_len;
+
+ sep = strchr(cpp->search, ':');
+ d_len = sep ? sep - cpp->search : strlen(cpp->search);
+
+ if (PATH_MAX > (p_len = snprintf(path, PATH_MAX, "%.*s/%.*s", d_len, cpp->search, f_len, file))) {
+ if ((flags & PSI_CPP_INCLUDE_ONCE) && zend_hash_str_exists(&cpp->once, path, p_len)) {
+ return true;
+ }
+ if (try_include(cpp, path, &parsed)) {
+ break;
+ }
+ }
+ cpp->search = sep + 1;
+ } while (sep);
+ }
+
+ return parsed;
+}