Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Re: missing scripts

From: koolauscott::yahoo::com at: 18-Mar-2001 22:49

I was emailed the following script from another contact on this mailing list and was told it is %db.r. It contains the Miscellaneous Helper Functions starting on page 589 in the book. I think %new-object.r is suppose to be %new-record-object.r found on page 508. You should also note that the script %mediator-object.r on page 533 is not even called by %db-navigator.r. However,on page 609 %db-navigator.r contains one of %mediator-object.r's functions open-mediator-on, though it lacks the collect-references and set-in-reference functions found in %mediator-object.r. These missing functions are called by open-mediator-on. I deleted the %db-navigator.r open-mediator-on function, then I added %mediator-object.r as one of the script %db-navigator.r should call when it first starts. I came close to getting the dbms to work but encountered a bug I was never able to track down. I went on to other things but intend to go back to this project later. If you get this to work please let me know. RTOG is great for learning stuff but the dbms can be frustrating. REBOL [] to-dir: func [db-root table] [ return join db-root [table "/"] ] get-config: func [dir] [ return load join dir ["config.lst"] ] get-index-files: func [dir] [ return load join dir ["index-files.lst"] ] get-record-list: func [dir] [ return load join dir ["record.lst"] ] get-index-file: func [dir index] [ return load join dir ["index-" index ".lst"] ] to-sid: func [sid [integer! string!]] [ sid: form sid while [ (length? sid) < 4 ] [ insert sid #"0" ] return sid ] --- "Ryan C. Christiansen" <[norsepower--uswest--net]> wrote: