This is the mail archive of the
xconq7@sources.redhat.com
mailing list for the Xconq project.
The -f option does not seem to work
- From: mniw at sol dot dti dot ne dot jp (mniw)
- To: xconq7 at sources dot redhat dot com
- Date: Sat, 20 Apr 2002 19:57:48 +0900 (JST)
- Subject: The -f option does not seem to work
The -f option does not seem to work in this situation.
> ls standard.g /usr/local/share/xconq/lib/standard.g
standard.g /usr/local/share/xconq/lib/standard.g
> xconq -f ./standard.g
--- kernel/unix.c.orig Wed Apr 17 11:39:29 2002
+++ kernel/unix.c Sat Apr 20 19:17:27 2002
@@ -207,15 +207,22 @@
/* Don't try to do on anon modules? */
if (module->name == NULL)
return NULL;
- for_all_library_paths(p) {
- /* Generate library pathname. */
- make_pathname(p->path, module->name, "g", spbuf);
- /* Now try to open the file. */
- fp = open_file(spbuf, "r");
+ if (module->filename != NULL) {
+ fp = open_file(module->filename, "r");
if (fp != NULL) {
- /* Remember the filename where we found it. */
- module->filename = copy_string(spbuf);
- return fp;
+ return fp;
+ }
+ } else {
+ for_all_library_paths(p) {
+ /* Generate library pathname. */
+ make_pathname(p->path, module->name, "g", spbuf);
+ /* Now try to open the file. */
+ fp = open_file(spbuf, "r");
+ if (fp != NULL) {
+ /* Remember the filename where we found it. */
+ module->filename = copy_string(spbuf);
+ return fp;
+ }
}
}
--
MA dunzi <mniw@sol.dti.ne.jp> http://tadalunch.s5.xrea.com/xconq/index.html