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

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17155/src

Modified Files:
	editor_io.f 
Log Message:
- Some cleanup

Index: editor_io.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/editor_io.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** editor_io.f	29 Aug 2005 15:56:28 -0000	1.1
--- editor_io.f	23 Jul 2006 09:39:39 -0000	1.2
***************
*** 88,93 ****
                  then ;
  
! defer   init-shared-type                        \ set the sharing type for current program
! defer uninit-shared-type                        \ set the sharing type for current program
  
  INTERNAL
--- 88,93 ----
                  then ;
  
! defer   init-shared-type ' noop is init-shared-type     \ set the sharing type for current program
! defer uninit-shared-type ' noop is uninit-shared-type   \ set the sharing type for current program
  
  INTERNAL
***************
*** 102,110 ****
                  0 to ed-hndl
                  z" SharedEditMemory" ed-size open-share
!                 -IF     to ed-hndl
!                         to ed-ptr
!                         init-shared-type        \ bump count of Forths currently running
!                 ELSE    2drop
!                 THEN    ;
  
  init-shared-memory                              \ init it now per smb March 6th, 1996
--- 102,110 ----
                  0 to ed-hndl
                  z" SharedEditMemory" ed-size open-share
!                 -IF  to ed-hndl
!                      to ed-ptr
!                      init-shared-type           \ bump count of Forths currently running
!                 ELSE 2drop
!                 THEN ;
  
  init-shared-memory                              \ init it now per smb March 6th, 1996
***************
*** 114,119 ****
  : uninit-shared-forth ( -- )
                  second-forth? 0=                \ and I'm the editors copy of Forth
!                 IF      0 ed-result !           \ then tell console to close the console
!                         0 ED_SHUTDOWN editor-message
                  THEN
                  -1 ed-forth-count +! ;          \ bump count of Forths currently running
--- 114,119 ----
  : uninit-shared-forth ( -- )
                  second-forth? 0=                \ and I'm the editors copy of Forth
!                 IF   0 ed-result !              \ then tell console to close the console
!                      0 ED_SHUTDOWN editor-message
                  THEN
                  -1 ed-forth-count +! ;          \ bump count of Forths currently running
***************
*** 126,134 ****
                  ed-ptr  0<>                     \ if shared memory was inited
                  ed-hndl 0<> and
!                 IF      uninit-shared-type
!                         ed-ptr ed-hndl close-share
!                         0 to ed-ptr
!                         0 to ed-hndl
!                 THEN    ;
  
  unload-chain chain-add-before uninit-shared-memory
--- 126,134 ----
                  ed-ptr  0<>                     \ if shared memory was inited
                  ed-hndl 0<> and
!                 IF   uninit-shared-type
!                      ed-ptr ed-hndl close-share
!                      0 to ed-ptr
!                      0 to ed-hndl
!                 THEN ;
  
  unload-chain chain-add-before uninit-shared-memory