I think this hints at how powerful an environment CoSy is for Forth development itself .I need to do a quick intro to CoSy for SV-FIG this Saturday . It would be useful to compare the Reva Forth + CoSy vocab vs the standard .So I just did the following :
Screen scraped the list at https://forth-standard.org/standard/core . Pasted into ` res window .res> lfVM dae >T0>| grabbed , split on line feeds , deleted empties , saved in persisting temp .
T0 ' drb 'm "bl ' prt>f 'L blMV| deleted redundant blanks in each then took part after 1st blank . then converted to simple blank delimited string .
Wrote result to fileR0 ` C:/CoSyWeb/CoSy/y21/ForthStdWords.txt >Fwhich is uploaded to http://cosy.com/CoSy/y21/ForthStdWords.txt :
! # #> #S ' ( * */ */MOD + +! +LOOP , - . ." / /MOD 0< 0= 1+ 1- 2! 2* 2/ 2@ 2DROP 2DUP 2OVER 2SWAP : ; < <# = > >BODY >IN >NUMBER >R ?DUP @ ABORT ABORT" ABS ACCEPT ALIGN ALIGNED ALLOT AND BASE BEGIN BL C! C, C@ CELL+ CELLS CHAR CHAR+ CHARS CONSTANT COUNT CR CREATE DECIMAL DEPTH DO DOES> DROP DUP ELSE EMIT ENVIRONMENT? EVALUATE EXECUTE EXIT FILL FIND FM/MOD HERE HOLD I IF IMMEDIATE INVERT J KEY LEAVE LITERAL LOOP LSHIFT M* MAX MIN MOD MOVE NEGATE OR OVER POSTPONE QUIT R> R@ RECURSE REPEAT ROT RSHIFT S" S>D SIGN SM/REM SOURCE SPACE SPACES STATE SWAP THEN TYPE U. U< UM* UM/MOD UNLOOP UNTIL VARIABLE WHILE WORD XOR [ ['] [CHAR] ] .( .R 0<> 0> 2>R 2R> 2R@ :NONAME <> ?DO ACTION-OF AGAIN BUFFER: C" CASE COMPILE, DEFER DEFER! DEFER@ ENDCASE ENDOF ERASE FALSE HEX HOLDS IS MARKER NIP OF PAD PARSE PARSE-NAME PICK REFILL RESTORE-INPUT ROLL S\" SAVE-INPUT SOURCE-ID TO TRUE TUCK U.R U> UNUSED VALUE WITHIN [COMPILE] \
I think this is a useful demo of what the CoSy evolved APL vocabulary adds to a Forth .
|
_______________________________________________ http://zork.net/mailman/listinfo/svfig neither public nor private, this membership of correspondence