Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18687
Modified Files:
LoadProject.f
Log Message:
Jos: Changed to allow projects to be outside the Forth-pad.
Index: LoadProject.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/LoadProject.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** LoadProject.f 26 Feb 2007 18:02:06 -0000 1.1
--- LoadProject.f 28 Feb 2007 12:05:05 -0000 1.2
***************
*** 20,30 ****
ProjectHndl CountMappedFile false w-search \ Search the line with BuildFile=
if ProjectHndl CountMappedFile nip over - -rot + swap
! 2dup 0xd scan nip - temp$ place
ProjectHndl close-map-file drop
! temp$ count cr 2dup type \in-system-ok included
else abort" Invalid projectfile"
then
-
-
;
--- 20,30 ----
ProjectHndl CountMappedFile false w-search \ Search the line with BuildFile=
if ProjectHndl CountMappedFile nip over - -rot + swap
! 2dup 0xd scan nip - Prepend<home>\ temp$ place
ProjectHndl close-map-file drop
! temp$ count "path-only" pad place
! pad dup +null count "chdir
! cr ." Loading " temp$ count 2dup type \in-system-ok included
else abort" Invalid projectfile"
then
;
|
