== DBNAME == _fields [ [ '|soupName|, 'String ], [ '|fieldName|, 'String ], [ '|fieldType|, 'String ], [ '|indexed|, 'Boolean ], [ '|table|, 'String ], [ '|linkSoup|, 'String ], [ '|linkField|, 'String ], [ '|linkCondition|, 'code ], [ '|fieldWidth|, 'Int ], [ '|fieldFlags|, 'Int ], [ '|defaultValue|, 'String ], [ '|code|, 'code ], [ '|decimals|, 'Int ], [ '|pKey|, 'Boolean ] ] Names Category string true category Names Ms./Mr. string honorific Names First string Names Last string true Names Title string Names Company string true Names Address1 string Names Address2 string Names City string Names State string regions shortName {type: 'index, indexpath: 'shortname, validtest: func(e) strlen(target.country) = 0 or strequal(e.country, target.country)} if e.country and strlen(e.country) > 0 then\n\treturn nil;\nif not e.state or strlen(e.state) = 0 then\n\treturn nil;\nlocal rc := :Fetch("regions", 'shortname, e.state);\nif not rc or not rc:Entry() then\n\treturn nil;\ne.country := rc:Entry().country;\nrc := nil; Names Zip string Names Country string Names E-Mail string Names Home string if e.state and strlen(e.state) > 0 then\n\treturn nil;\nif strlen(e.home) <> 12 then\n\treturn nil;\nlocal ac := rinttol(stringtonumber(substr(e.home, 0, 3)));\nlocal acs := :opensoup("area-codes");\nif not acs then\n\treturn nil;\nlocal acc := query(acs, {type: 'index, indexpath: 'code, startkey: ac, endtest: func(en) en.code <> ac});\nif not acc or not acc:entry() then\n\treturn nil;\ne.state := acc:entry().region;\nreturn true; Names Work string Names Fax string Names Mobile string Names Birthday date Names Notes note == EOD == == DBNAME == Names [ [ '|category|, 'String ], [ '|Ms./Mr.|, 'String ], [ '|first|, 'String ], [ '|last|, 'String ], [ '|title|, 'String ], [ '|company|, 'String ], [ '|Address1|, 'String ], [ '|address2|, 'String ], [ '|city|, 'String ], [ '|state|, 'String ], [ '|zip|, 'String ], [ '|country|, 'String ], [ '|E-Mail|, 'String ], [ '|Home|, 'String ], [ '|Work|, 'String ], [ '|fax|, 'String ], [ '|Mobile|, 'String ], [ '|birthday|, 'Date ], [ '|notes|, 'note ] ] Bob Anderson 51 Partlow Pond Road Fine NY 13639 USA 315 555-4476 Conglomerated Credit The Crossroads 37415 Park Place Brisbane CA 94804 800 555-1000 415 555-8123 Mr. John Miller Owner Balcones Software 13102 Briar Hollow Dr. Suite 120 Austin TX 78729 USA john@azulita.cactus.org 512 331 0155 12/13/94 hello Linda Thomas Newton Cafe 241 Cappucino Court Newton 02168 617 555-8123 Royce Walthrop 217 Crocker Lane Hillsdale OH 44704 419 555-3543 == EOD == == DBNAME == _tables [ [ '|tblName|, 'String ], [ '|tblDisplay|, 'String ], [ '|tblStore|, 'Int ] ] honorific Mr. 0 == EOD == == EOD ==