((section 2 "Outdated egg!" (p "This is an egg for CHICKEN 4, the unsupported old release.  You're almost certainly looking for " (int-link "/eggref/5/allegro" "the CHICKEN 5 version of this egg") ", if it exists.") (p "If it does not exist, there may be equivalent functionality provided by another egg; have a look at the " (link "https://wiki.call-cc.org/chicken-projects/egg-index-5.html" "egg index") ". Otherwise, please consider porting this egg to the current version of CHICKEN.") (tags "allegro" "game")) (section 2 "allegro" (p "This document pertains to configuration related methods found in the Allegro egg.") (p "Please see the main [allegro] wiki page for more information.") (toc)) (section 2 "Records" (section 3 "config" (def (sig (record "config" (id config))))) (section 3 "config-entry" (p "<record>config-entry</config>")) (section 3 "config-section" (def (sig (record "config-section" (id config-section)))))) (section 2 "Functions" (section 3 "Config Files" (def (sig (procedure "(make-config*)" (id make-config*))) (p "Implements al_create_config.")) (def (sig (procedure "(make-config)" (id make-config))) (p "Implements al_create_config, with (free-config!) declared as a finalizer.")) (def (sig (procedure "(free-config! config)" (id free-config!))) (p "Implements al_destroy_config.")) (def (sig (procedure "(config-section-add! config string)" (id config-section-add!))) (p "Implements al_add_config_section.")) (def (sig (procedure "(config-value-set! config (string section) (string key) (string value))" (id config-value-set!))) (p "Implements al_set_config_value.")) (def (sig (procedure "(config-comment-add! config (string section) (string comment))" (id config-comment-add!))) (p "Implements al_add_config_comment.")) (def (sig (procedure "(config-value config (string section) (string key))" (id config-value))) (p "Implements al_get_config_value.")) (def (sig (procedure "(load-config* string)" (id load-config*))) (p "Implements al_load_config_file.")) (def (sig (procedure "(load-config string)" (id load-config))) (p "Implements al_load_config_file, with (free-config!) decalred as a finalizer.")) (def (sig (procedure "(load-config-from-file* file)" (id load-config-from-file*))) (p "Implements al_load_config_file_f.")) (def (sig (procedure "(load-config-from-file file)" (id load-config-from-file))) (p "Implements al_load_config_file_f, with (free-config!) declared as a finalizer.")) (def (sig (procedure "(config-save config string)" (id config-save))) (p "Implements al_save_config_file.")) (def (sig (procedure "(config-save-to-file config file)" (id config-save-to-file))) (p "Implements al_save_config_file_f.")) (def (sig (procedure "(config-merge! config config)" (id config-merge!))) (p "Implements al_merge_config_into.")) (def (sig (procedure "(config-merge config config)" (id config-merge))) (p "Implements al_merge_config.")) (def (sig (procedure "(config-sections config)" (id config-sections))) (p "Creates an iterator that covers the sections of the given config.") (p "Returns values of the form (list config-section promise).") (p "(force) the promise to get the next section.") (p "Needs testing!")) (def (sig (procedure "(config-entries config config-section)" (id config-entries))) (p "Creates an iterator that covers the entries of the given config and config-section.") (p "Returns values of the form (list config-entry promise).") (p "(force) the promise to get the next entry.") (p "Needs testing!")))))