[Win32forth-cvs] win32forth/src/tools DexH-Glossary.f, 1.4, 1.5 DexH.f, 1.6, 1.7 HelpSystem.f, 1.9, 1.10

[George H. <geo...@us...>]

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

Modified Files:
	DexH-Glossary.f DexH.f HelpSystem.f 
Log Message:
gah:Corrected some spelling

Index: DexH-Glossary.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/DexH-Glossary.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** DexH-Glossary.f	7 Feb 2006 16:58:33 -0000	1.4
--- DexH-Glossary.f	8 Nov 2006 11:11:25 -0000	1.5
***************
*** 307,312 ****
          output-string ;
  
! : print-file-name  ( #ancor -- )
! \ Write the name of input file with the ancor into the output file.
          [char] " output-char
          $infile lcount (output-string)
--- 307,312 ----
          output-string ;
  
! : print-file-name  ( #anchor -- )
! \ Write the name of input file with the anchor into the output file.
          [char] " output-char
          $infile lcount (output-string)
***************
*** 315,325 ****
          [char] " output-char ;
  
! : process-word  ( #ancor addr len -- )
  \ *G Process on line of the input file.
          ?dup
          if   parse-line
               if   set-class-name
!                   print-definition-type output-sep ( #ancor )
!                   print-class-name      output-sep ( #ancor )
                    print-file-name       output-cr  ( -- )
               else drop
--- 315,325 ----
          [char] " output-char ;
  
! : process-word  ( #anchor addr len -- )
  \ *G Process on line of the input file.
          ?dup
          if   parse-line
               if   set-class-name
!                   print-definition-type output-sep ( #anchor )
!                   print-class-name      output-sep ( #anchor )
                    print-file-name       output-cr  ( -- )
               else drop

Index: HelpSystem.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/HelpSystem.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** HelpSystem.f	3 Aug 2006 13:08:22 -0000	1.9
--- HelpSystem.f	8 Nov 2006 11:11:25 -0000	1.10
***************
*** 139,143 ****
  		260 LocalAlloc: dir$ 0 dir$ !
  		260 LocalAlloc: ret$ 0 ret$ !
! 		addr len 2dup [char] # scan nip - \ get html-filename without #<ancor name>
  		asciiz ret$ dir$ rot call FindExecutable 32 > \ get the default browser
  		if   1024 LocalAlloc: cmd$
--- 139,143 ----
  		260 LocalAlloc: dir$ 0 dir$ !
  		260 LocalAlloc: ret$ 0 ret$ !
! 		addr len 2dup [char] # scan nip - \ get html-filename without #<anchor name>
  		asciiz ret$ dir$ rot call FindExecutable 32 > \ get the default browser
  		if   1024 LocalAlloc: cmd$

Index: DexH.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/DexH.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** DexH.f	7 Nov 2006 11:24:29 -0000	1.6
--- DexH.f	8 Nov 2006 11:11:25 -0000	1.7
***************
*** 250,254 ****
  
  CREATE $infile     max$ 2 CELLS + ALLOT        \ file name
! 0 value #gl-ancor
  
  : switchfolder  ( -- ) \ Set new output folder
--- 250,254 ----
  
  CREATE $infile     max$ 2 CELLS + ALLOT        \ file name
! 0 value #gl-anchor
  
  : switchfolder  ( -- ) \ Set new output folder
***************
*** 264,268 ****
     S" .htm" XPAD R@ CHARS + SWAP MOVE           \ add file extension
     xpad R@ 4 CHARS + $infile lplace \ save file name
!    0 to #gl-ancor \ reset ancor
     XPAD R> 4 CHARS +  w/o ;
  
--- 264,268 ----
     S" .htm" XPAD R@ CHARS + SWAP MOVE           \ add file extension
     xpad R@ 4 CHARS + $infile lplace \ save file name
!    0 to #gl-anchor \ reset anchor
     XPAD R> 4 CHARS +  w/o ;
  
***************
*** 295,301 ****
          then ;
  
! : gl-ancor      ( -- )
! \ *G Write ancor number.
!          #gl-ancor s>d (D.) out ;
  
  CREATE $line max$ 2 CELLS + ALLOT            \ previous line
--- 295,301 ----
          then ;
  
! : gl-anchor      ( -- )
! \ *G Write anchor number.
!          #gl-anchor s>d (D.) out ;
  
  CREATE $line max$ 2 CELLS + ALLOT            \ previous line
***************
*** 311,315 ****
          2dup gl-get-type
          if   IsCloseingClass? 0=
!              if $line lplace #gl-ancor $line lcount process-word
               else 2drop
               then
--- 311,315 ----
          2dup gl-get-type
          if   IsCloseingClass? 0=
!              if $line lplace #gl-anchor $line lcount process-word
               else 2drop
               then
***************
*** 320,329 ****
  \ *G Create a glossary entry
  \ cr ." gl-create-entry: " prevline LCOUNT type
!         +n gl-ancor -n
          prevline LCOUNT outh -a
  
          create-glossary-file?
          if   prevline LCOUNT gl-entry
!              1 +to #gl-ancor
          then ;
  
--- 320,329 ----
  \ *G Create a glossary entry
  \ cr ." gl-create-entry: " prevline LCOUNT type
!         +n gl-anchor -n
          prevline LCOUNT outh -a
  
          create-glossary-file?
          if   prevline LCOUNT gl-entry
!              1 +to #gl-anchor
          then ;