Words.f

From RevaWiki

| Sample which dumps all words in a format to be pasted into the Wiki:
| Words are sorted
with~ ~priv  | all-contexts

| iterate over all contexts and place a marker in each:
::	cb{
		@ 5 - ''context
		" $$$$" (create)
		exit~
		true
	}cb all-contexts iterate
	; execute
needs alg/hsort
:: ( a1 a2 -- f )	
	count rot count cmpi
	0 >
	; is compare
create wordlist 1000 cells allot
: clearlist wordlist off ;
variable process?
: processing?
	dup c@ if
		process? @ 0if
			count " $$$$" cmp 0if
				process? on
			then
			false
		else
			drop true
		then
	else drop false then
	;
: makelist ( ctx -- )
	process? off
	| last xchg >r	| r:old-last
    last@ >r
    @ last!
	wordlist cell+	| first element to put items in
	| iterate over the *list* and put the names into the array:
    cb{	
		cell- >name dup processing? 
		if over ! cell+ wordlist ++ else drop then
		true
		}cb
    last iterate 
	r> last! 
	;
: sortlist wordlist lcount hsort ;
: printlist wordlist lcount dup ."  (" . ." words)<br><tt>" cr
	0do 
		dup 
		@ count type space 
		cell+
	loop
	drop
	cr ." </tt>" cr
	;
: listwords ( ctx -- ) clearlist makelist sortlist printlist cr cr ;
: dumpwords ( -- )
	cb{ 
		@ 
		." ----" cr
		." context: '''" dup ctx>name type ." '''" 
        listwords 
		true
	}cb all-contexts iterate
	;

." <center>'''Comprehensive list of words in Reva " revaver type ." '''</center><br>"cr
." <center>Produced by [[words.f]]</center>" cr cr
dumpwords bye