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 !
696 dup last_module_option @ module.next !
702 name_buffer strget addr module.name string=
718 dup module.name strget
721 module.next @
726 sizeof module allocate if ENOMEM throw then
727 dup sizeof module erase
739 yes_value? get_module_option module.flag !
745 get_module_option module.args string=
751 get_module_option module.loadname string=
757 get_module_option module.type string=
763 get_module_option module.beforeload string=
769 get_module_option module.afterload string=
775 get_module_option module.loaderror string=
888 \ find a module name, leave addr on the stack (0 if not found)
889 : find-module ( <module> -- ptr | 0 )
896 r@ module.name strget
898 r> module.next @ >r
910 : show-one-module { addr -- addr }
911 ." Name: " addr module.name strtype cr
912 s" Path: " addr module.loadname show-nonempty
913 s" Type: " addr module.type show-nonempty
914 s" Flags: " addr module.args show-nonempty
915 s" Before load: " addr module.beforeload show-nonempty
916 s" After load: " addr module.afterload show-nonempty
917 s" Error: " addr module.loaderror show-nonempty
918 ." Status: " addr module.flag @ if ." Load" else ." Don't load" then cr
923 : show-module-options
928 show-one-module
929 module.next @
933 : free-one-module { addr -- addr }
934 addr module.name strfree
935 addr module.loadname strfree
936 addr module.type strfree
937 addr module.args strfree
938 addr module.beforeload strfree
939 addr module.afterload strfree
940 addr module.loaderror strfree
944 : free-module-options
949 free-one-module
950 dup module.next @
1073 addr module.args strget
1074 addr module.loadname .len @ if
1075 addr module.loadname strget
1077 addr module.name strget
1079 addr module.type .len @ if
1080 addr module.type strget
1089 dup module.beforeload .len @ if
1090 dup module.beforeload strget
1096 dup module.afterload .len @ if
1097 dup module.afterload strget
1103 dup module.loaderror .len @ if
1104 dup module.loaderror strget
1111 dup module.name strtype
1129 dup module.loaderror .len @ if
1145 dup module.name strtype
1146 dup module.loadname .len @ if
1147 ." (" dup module.loadname strtype ." )"
1151 dup module.beforeload strtype cr \ XXX there was a typo here
1158 dup module.name .addr @ over module.name .len @ type
1159 dup module.loadname .len @ if
1160 ." (" dup module.loadname strtype ." )"
1164 dup module.afterload strtype cr
1179 dup module.flag @ if
1183 module.next @