Changeset View
Changeset View
Standalone View
Standalone View
head/sys/boot/forth/support.4th
Show First 20 Lines • Show All 924 Lines • ▼ Show 20 Lines | : show-module-options | ||||
begin | begin | ||||
?dup | ?dup | ||||
while | while | ||||
show-one-module | show-one-module | ||||
module.next @ | module.next @ | ||||
repeat | repeat | ||||
; | ; | ||||
: free-one-module { addr -- addr } | |||||
addr module.name strfree | |||||
addr module.loadname strfree | |||||
addr module.type strfree | |||||
addr module.args strfree | |||||
addr module.beforeload strfree | |||||
addr module.afterload strfree | |||||
addr module.loaderror strfree | |||||
addr | |||||
; | |||||
: free-module-options | |||||
module_options @ | |||||
begin | |||||
?dup | |||||
while | |||||
free-one-module | |||||
dup module.next @ | |||||
swap free-memory | |||||
repeat | |||||
0 module_options ! | |||||
0 last_module_option ! | |||||
; | |||||
only forth also support-functions definitions | only forth also support-functions definitions | ||||
\ Variables used for processing multiple conf files | \ Variables used for processing multiple conf files | ||||
string current_file_name_ref \ used to print the file name | string current_file_name_ref \ used to print the file name | ||||
\ Indicates if any conf file was succesfully read | \ Indicates if any conf file was succesfully read | ||||
▲ Show 20 Lines • Show All 642 Lines • Show Last 20 Lines |