Lines Matching defs:file
39 jclopen(Jcl_t* scope, const char* file, unsigned long flags, Jcldisc_t* disc)
101 if (!file || streq(file, "-") || streq(file, "/dev/stdin"))
103 file = 0;
106 else if (!(file = jclfind(jcl, file, flags, 2, &sp)))
108 if (jclpush(jcl, sp, file, 0))
168 * push an include file
172 jclpush(register Jcl_t* jcl, Sfio_t* sp, const char* file, long line)
176 if (!(ip = vmnewof(jcl->vm, 0, Include_t, 1, file ? strlen(file) : 0)))
183 ip->file = error_info.file;
184 error_info.file = file ? strcpy(ip->path, file) : (char*)0;
189 if (file && (jcl->flags & JCL_LISTSCRIPTS))
190 uniq(file, NiL, 0, jcl->disc);
195 * pop the top include file
213 error_info.file = ip->file;