Lines Matching refs:module
43 \ module module loading information structure
44 \ cell module.flag should we load it?
45 \ string module.name module's name
46 \ string module.loadname name to be used in loading the module
47 \ string module.type module's type
48 \ string module.args flags to be passed during load
49 \ string module.beforeload command to be executed before load
50 \ string module.afterload command to be executed after load
51 \ string module.loaderror command to be executed if load fails
52 \ cell module.next list chain
57 \ cell modules_options pointer to first module information
120 structure: module
121 int module.flag
122 sizeof string member: module.name
123 sizeof string member: module.loadname
124 sizeof string member: module.type
125 sizeof string member: module.args
126 sizeof string member: module.beforeload
127 sizeof string member: module.afterload
128 sizeof string member: module.loaderror
129 ptr module.next
166 create module_options sizeof module.next allot 0 module_options !
167 create last_module_option sizeof module.next allot 0 last_module_option !
774 dup last_module_option @ module.next !
780 name_buffer strget addr module.name string=
796 dup module.name strget
799 module.next @
804 sizeof module allocate if ENOMEM throw then
805 dup sizeof module erase
817 yes_value? get_module_option module.flag !
823 get_module_option module.args string=
829 get_module_option module.loadname string=
835 get_module_option module.type string=
841 get_module_option module.beforeload string=
847 get_module_option module.afterload string=
853 get_module_option module.loaderror string=
966 \ find a module name, leave addr on the stack (0 if not found)
967 : find-module ( <module> -- ptr | 0 )
974 r@ module.name strget
976 r> module.next @ >r
988 : show-one-module { addr -- addr }
989 ." Name: " addr module.name strtype cr
990 s" Path: " addr module.loadname show-nonempty
991 s" Type: " addr module.type show-nonempty
992 s" Flags: " addr module.args show-nonempty
993 s" Before load: " addr module.beforeload show-nonempty
994 s" After load: " addr module.afterload show-nonempty
995 s" Error: " addr module.loaderror show-nonempty
996 ." Status: " addr module.flag @ if ." Load" else ." Don't load" then cr
1001 : show-module-options
1006 show-one-module
1007 module.next @
1011 : free-one-module { addr -- addr }
1012 addr module.name strfree
1013 addr module.loadname strfree
1014 addr module.type strfree
1015 addr module.args strfree
1016 addr module.beforeload strfree
1017 addr module.afterload strfree
1018 addr module.loaderror strfree
1022 : free-module-options
1027 free-one-module
1028 dup module.next @
1160 addr module.args strget
1161 addr module.loadname .len @ if
1162 addr module.loadname strget
1164 addr module.name strget
1166 addr module.type .len @ if
1167 addr module.type strget
1176 dup module.beforeload .len @ if
1177 dup module.beforeload strget
1183 dup module.afterload .len @ if
1184 dup module.afterload strget
1190 dup module.loaderror .len @ if
1191 dup module.loaderror strget
1198 dup module.name strtype
1216 dup module.loaderror .len @ if
1232 dup module.name strtype
1233 dup module.loadname .len @ if
1234 ." (" dup module.loadname strtype ." )"
1238 dup module.beforeload strtype cr \ XXX there was a typo here
1245 dup module.name .addr @ over module.name .len @ type
1246 dup module.loadname .len @ if
1247 ." (" dup module.loadname strtype ." )"
1251 dup module.afterload strtype cr
1266 dup module.flag @ if
1270 module.next @