Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27480/src/lib
Modified Files:
LoadProject.f
Log Message:
- Removed the Forth-Instance-Counting from then Editor-IO.
Index: LoadProject.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/LoadProject.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** LoadProject.f 12 May 2007 07:49:22 -0000 1.5
--- LoadProject.f 13 May 2007 07:52:27 -0000 1.6
***************
*** 3,16 ****
Needs src\lib\w_search.f
IN-SYSTEM
map-handle ProjectHndl
- create LatestProjectFile$ ," LatestProject.dat"
-
: CountMappedFile ( ProjectHndl - )
dup >hfileAddress @ swap >hfileLength @ ;
! : LoadProject
LatestProjectFile$ count Prepend<home>\ ProjectHndl open-map-file
abort" Use Win32Forth IDE to open or define a project"
--- 3,21 ----
Needs src\lib\w_search.f
+ IN-APPLICATION
+
+ create LatestProjectFile$ ," LatestProject.dat"
+
+ IN-PREVIOUS
+
IN-SYSTEM
map-handle ProjectHndl
: CountMappedFile ( ProjectHndl - )
dup >hfileAddress @ swap >hfileLength @ ;
! : LoadProject ( -- )
! \ *G Compile the Project which was last used in the Win32ForthIDE
LatestProjectFile$ count Prepend<home>\ ProjectHndl open-map-file
abort" Use Win32Forth IDE to open or define a project"
***************
*** 21,32 ****
abort" Project not found. Use Win32Forth IDE to open or define a project"
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 included
! else abort" Invalid projectfile"
! then
;
--- 26,37 ----
abort" Project not found. Use Win32Forth IDE to open or define a project"
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 included
! else abort" Invalid projectfile"
! then
;
|
