Changeset 655

Timestamp:

May 5, 2007, 8:44:24 AM (19 years ago)

Author:

John Small

Message:

• The program now changes the current directory to the directory

where the program is located. This eliminates problems with the
relative paths used within the code.

File:

• trunk/shadowmgr.cmd (modified) (6 diffs)

trunk/shadowmgr.cmd

@@ -15 +15 @@
       end
 
-curdir = directory()
+parse source . . thispgm
+thisdir = left(thispgm, lastpos('\', thispgm) - 1)
+if length(thisdir) = 2 then
+   thisdir = thisdir || '\'
+call directory thisdir
 
 i = 0
@@ -22 +26 @@
 Shadow.i.package  = 'FM2'
 Shadow.i.folderid = '<FM3_Docs>'
-Shadow.i.filename = '.\docs\readme'
+Shadow.i.filename = '..\docs\readme'
 Shadow.i.longname = 'Read Me'
 
@@ -28 +32 @@
 Shadow.i.package  = 'FM2'
 Shadow.i.folderid = '<FM3_Docs>'
-Shadow.i.filename = '.\docs\copying'
+Shadow.i.filename = '..\docs\copying'
 Shadow.i.longname = 'GNU General Public License'
 
@@ -34 +38 @@
 Shadow.i.package  = 'FM2'
 Shadow.i.folderid = '<FM3_Docs>'
-Shadow.i.filename = '.\docs\history'
+Shadow.i.filename = '..\docs\history'
 Shadow.i.longname = 'History'
 
@@ -40 +44 @@
 Shadow.i.package  = 'FM2'
 Shadow.i.folderid = '<FM3_Docs>'
-Shadow.i.filename = '.\docs\customizingresources.txt'
+Shadow.i.filename = '..\docs\customizingresources.txt'
 Shadow.i.longname = 'Customizing^Resources'
 
@@ -54 +58 @@
    if package_parm = Shadow.i.package then
       do
-         fullfilename = stream(curdir || '\' || Shadow.i.filename, 'c', 'query exists')
+         fullfilename = stream(thisdir || '\' || Shadow.i.filename, 'c', 'query exists')
          if fullfilename = '' then
             do
                say 'Unable to find file: 'Shadow.i.filename
-               say 'curdir: 'curdir
+               say 'thisdir: 'thisdir
                '@pause'
                exit 1