inpcom.c, remove variable "sourcefile" and references to "sourcefile"

this will no longer be required for access to input file residing
in the executable's directory

src/frontend/inpcom.c

@@ -973,7 +973,6 @@ is_plain_filename(const char *p)
 /*-------------------------------------------------------------------------*
   Look up the variable sourcepath and try everything in the list in order
   if the file isn't in . and it isn't an abs path name.
-  For MS Windows: First try the path of the source file.
   *-------------------------------------------------------------------------*/
 
 FILE *
@@ -983,33 +982,6 @@ inp_pathopen(char *name, char *mode)
     char buf[BSIZE_SP];
     struct variable *v;
 
-#if defined(HAS_WINGUI)
-    char buf2[BSIZE_SP];
-
-    /* search in the path where the source (input) file has been found,
-       but only if "name" is just a file name */
-    if (!strchr(name, DIR_TERM) && !strchr(name, DIR_TERM_LINUX) && cp_getvar("sourcefile", CP_STRING, buf2)) {
-        /* If pathname is found, get path.
-           (char *dirname(const char *name) might have been used here) */
-        if (substring(DIR_PATHSEP, buf2) || substring(DIR_PATHSEP_LINUX, buf2)) {
-            int i, j = 0;
-            for (i = 0; i < BSIZE_SP-1; i++) {
-                if (buf2[i] == '\0')
-                    break;
-                if ((buf2[i] == DIR_TERM) || (buf2[i] == DIR_TERM_LINUX))
-                    j = i;
-            }
-            buf2[j+1] = '\0'; /* include path separator */
-        }
-        /* add file name */
-        strcat(buf2, name);
-        /* try to open file */
-        if ((fp = fopen(buf2, mode)) != NULL)
-            return (fp);
-    }
-
-#endif
-
     /* just try it */
     if ((fp = fopen(name, mode)) != NULL)
         return fp;

src/main.c

@@ -1212,8 +1212,6 @@ main(int argc, char **argv)
 #if defined(HAS_WINGUI)
                 /* write source file name into source window */
                 SetSource(dname);
-                /* write source file name into a variable */
-                cp_vset("sourcefile", CP_STRING, dname);
 #endif
 
                 append_to_stream(tempfile, tp);