- ll_init (&sources);
- ds_init_cstr (&the_include_path,
- fn_getenv_default ("STAT_INCLUDE_PATH", include_path));
+ struct source_stream *ss;
+
+ ss = xzalloc (sizeof (*ss));
+ ll_init (&ss->sources);
+
+ string_array_init (&ss->include_path);
+ string_array_append (&ss->include_path, ".");
+ if (getenv ("HOME") != NULL)
+ string_array_append_nocopy (&ss->include_path,
+ xasprintf ("%s/.pspp", getenv ("HOME")));
+ string_array_append (&ss->include_path, relocate (PKGDATADIR));
+
+ return ss;