00:00:00 --- log: started retro/10.05.12 07:27:25 --- join: docl (~luke@216-161-87-126.ptld.qwest.net) joined #retro 08:06:20 quiet here lately 08:07:17 I've been playing with ways to attach attributes to an object. (vocabs are one such way, of course) 08:08:43 today I came up with a strategy that simply puts a dictionary header into a linked list, the beginning of which is allocated whenever you create the object 08:09:01 variable container 08:09:01 : >container @@container !over @container ! ; 08:09:01 : last> @last @dup !last ; 08:09:01 : property ( "-a ) create 0 , last> >container ; 08:09:01 : object ( "- ) create here 0 , !container ; 08:10:27 --- quit: crc (Read error: Operation timed out) 08:11:45 what might be helpful in addition to that is a class which takes the object xt and assigns it to container variable. 08:12:20 : .object !container ; 08:13:05 --- join: crc (~charlesch@184.77.185.20) joined #retro 08:30:24 http://www.forthcommunity.com/forum/viewtopic.php?f=9&t=62 09:20:14 --- quit: docl (Ping timeout: 264 seconds) 14:15:53 --- join: virl (~virl__@chello062178085149.1.12.vie.surfer.at) joined #retro 16:20:04 home now 16:21:32 hmm, docl's code looks interesting 17:02:29 I'll be able to find a use for this I think 17:46:01 --- join: docl (~luke@216-161-87-126.ptld.qwest.net) joined #retro 17:54:19 * docl is reading the revised object code 17:55:12 very nice 18:01:25 thanks 18:06:55 it looks useful to me 18:09:59 :) 18:14:18 I revised my post to add one more word: explain 18:17:42 cool! 18:21:34 now I'm happy with it :) 18:54:09 relies on integers not being pointers to ascii values. 18:54:20 true 18:54:25 better tagging is needed 18:55:36 (should be pretty doable. just store an extra cell indicating type when creating properties) 18:55:42 yeah 19:13:57 ok, I updated with some simple tagging 20:41:11 tomorrow I'll play with this more from a database perspective (I've got a small data set of books I'm playing with) 20:52:25 so far I'm at http://retroforth.com/paste/?id=3385 20:52:55 'list' dumps all records in the chain; " name" byAuthor will display a list of all books by an author 20:53:15 (this is now to a place where regex could be beneficial) 21:19:55 neat... 23:59:59 --- log: ended retro/10.05.12