Thursday, March 17, 2011 at 12:01 AM.
system.verbs.builtins.staticText.initLocation
on initLocation (adrdata, name) {
<<Changes
<<3/16/11; 2:46:18 PM by DW
<<Return the address of the location table.
<<3/16/11; 10:57:41 AM by DW
<<Created.
local (adrlocation = @adrdata^.locations.[name]);
if not defined (adrlocation^) {
new (tabletype, adrlocation)};
bundle { //prefs
if not defined (adrlocation^.prefs) {
new (tabletype, @adrlocation^.prefs)};
if not defined (adrlocation^.prefs.enabled) {
adrlocation^.prefs.enabled = false};
if not defined (adrlocation^.prefs.flDefault) {
adrlocation^.prefs.flDefault = false};
if not defined (adrlocation^.prefs.path) {
adrlocation^.prefs.path = ""};
if not defined (adrlocation^.prefs.url) {
adrlocation^.prefs.url = "http://"};
if not defined (adrlocation^.prefs.driver) {
adrlocation^.prefs.driver = "s3"}};
bundle { //stats
if not defined (adrlocation^.stats) {
new (tabletype, @adrlocation^.stats)};
if not defined (adrlocation^.stats.ctWrites) {
adrlocation^.stats.ctWrites = 0};
if not defined (adrlocation^.stats.ctErrors) {
adrlocation^.stats.ctErrors = 0}};
return (adrlocation)};
bundle { //test code
edit (initLocation (@config.staticText, "ftp"))}
This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.