Difference between revisions of "Temp"
From RonWareWiki
| Line 1: | Line 1: | ||
dcop kdesktop KScreensaverIface lock | dcop kdesktop KScreensaverIface lock | ||
| + | |||
| + | |||
| + | <pre> | ||
| + | | newer defer words ... | ||
| + | |||
| + | |||
| + | : 'def ( xt -- ) | ||
| + | ~sys.compiling? if | ||
| + | ." compiling" cr | ||
| + | $15ff 2, | FF 15 ==> call indirect memory | ||
| + | , | the offset to call via | ||
| + | else | ||
| + | ." running" cr | ||
| + | .s cr | ||
| + | @execute | ||
| + | then | ||
| + | ; | ||
| + | : whatever ." whatever !" cr ; | ||
| + | : def ( <name> -- ) create ['] whatever , ['] 'def class! ; | ||
| + | : >def ( xt <name> -- ) | ||
| + | parse find 0; | todo: error handling! | ||
| + | ! | ||
| + | ; | ||
| + | |||
| + | </pre> | ||
Revision as of 04:51, 12 November 2009
dcop kdesktop KScreensaverIface lock
| newer defer words ... : 'def ( xt -- ) ~sys.compiling? if ." compiling" cr $15ff 2, | FF 15 ==> call indirect memory , | the offset to call via else ." running" cr .s cr @execute then ; : whatever ." whatever !" cr ; : def ( <name> -- ) create ['] whatever , ['] 'def class! ; : >def ( xt <name> -- ) parse find 0; | todo: error handling! ! ;