[Win32forth-cvs] win32forth/src/lib LoadProject.f,1.1,1.2

[Jos v.d.V. <jo...@us...>]

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
  ;