00:00:00 --- log: started retro/10.05.07
01:23:58 --- join: ncv (~neceve@unaffiliated/neceve) joined #retro
07:35:07 --- join: docl (~luke@216-161-87-126.ptld.qwest.net) joined #retro
07:52:09 --- quit: crc (Ping timeout: 240 seconds)
07:54:16 --- join: crc (~charlesch@184.77.185.20) joined #retro
09:07:01 --- join: virl (~virl__@chello062178085149.1.12.vie.surfer.at) joined #retro
09:57:26 --- quit: docl (Ping timeout: 264 seconds)
10:04:24 --- join: erider (~chatzilla@pool-173-69-156-197.bltmmd.fios.verizon.net) joined #retro
10:04:38 --- quit: erider (Changing host)
10:04:38 --- join: erider (~chatzilla@unaffiliated/erider) joined #retro
10:04:49 <crc> hi erider 
16:56:23 --- join: docl (~luke@216-161-87-126.ptld.qwest.net) joined #retro
17:14:19 <erider> hi crc
17:14:28 <erider> are you feeling better 
17:23:37 <docl> hello
17:40:47 <crc> hi docl, eroder
17:40:55 <docl> hi crc
17:40:57 * crc is doing slightly better
17:41:07 <docl> glad to hear it!
17:42:51 <docl> http://retroforth.com/paste/?id=3376
17:45:23 <docl> note the use of @d->xt
17:47:22 <docl> compiles to "d->xt @"
17:47:35 <crc> as it should :)
17:50:24 <docl> there are other cool uses for this. "foo 1- 0 !swap" is more intuitive than "foo 1- swap !" or "0 foo 1- !".
17:52:17 <docl> (imho)
17:53:44 <crc> 0 foo !1-
17:54:52 <docl> hmm, that works
17:58:40 <docl> the next logical progression is "foo 0 !swap1-" :P
17:59:16 <crc> umm, no
17:59:17 <crc> :)
18:04:05 <docl> trying to think of other uses for the trick with the string that gets overwritten by a single character to create a word.
18:05:47 <docl> with something like " object.property" you could change the dot to a zero and do a find on both words, maybe.
18:14:27 --- join: neceve (~neceve@unaffiliated/neceve) joined #retro
18:16:55 --- quit: ncv (Ping timeout: 265 seconds)
18:17:07 --- quit: neceve (Client Quit)
18:34:06 <erider> crc do you know of an open flash for linux 
18:34:24 <crc> gnash
18:34:36 <crc> http://www.gnu.org/software/gnash/
18:35:18 <erider> crc have you used it for flash content? 
18:35:24 <crc> no
18:35:34 <erider> hmm 
18:35:40 <crc> my linux boxes are all headless
18:35:51 <crc> I use the adobe plugins on osx and windows
18:36:02 <erider> I see 
18:36:44 <erider> I am working on some stuff but I am trouble a web programming :( 
18:37:39 <crc> I have no use for flash apart from installing updates to ADE
18:38:12 <erider> yeah 
18:39:39 <erider> I am looking for a flash creator 
18:40:01 <docl> : change ( $-$ ) 0; repeat @+ char: . =if dup 1- 0 !swap ;then again ;
18:40:01 <docl> : restore ( $-$ ) 0; dup repeat @+ 0 =if dup 1- char: . !swap drop ;then again ;
18:40:01 <docl> : foo s" words.key" dup dup change find if swap then find if rot then restore drop ;
18:40:05 <docl> foo @d->xt .word @d->xt .word
18:42:04 <docl> hmm. not as nifty as the 2 + ! trick
18:42:07 <crc> erider: http://haxe.org/doc/intro
18:43:46 * crc is not a fan of flash
18:51:52 <erider> its flashy 
18:51:55 <erider> lol 
18:53:21 <crc> flash functions poorly on most systems I've used. and you won't be able to use a flash based site on most mobile devices.
18:56:31 <erider> haxe is interesting 
19:01:27 <crc> erider: I had considered using haxe for implementing retro for browsers before finalizing on javascript
19:02:05 <crc> docl: change seems problematic: it doesn't actually look for an ending to the string. I wrote 'strpos' to cover this in a more generic way:
19:02:11 <crc> : strpos ( $c-n )
19:02:11 <crc>   over repeat
19:02:11 <crc>     @+ push over pop
19:02:11 <crc>     dup 0 =if drop 2drop 2drop 0 ;then
19:02:11 <crc>     =if nip 1- swap - ;then
19:02:13 <crc>   again ;
19:02:16 <crc> " words.cr" char: . strpos .
19:02:48 <crc> strpos returns the offset, or 0 if not found
19:15:30 <erider> crc looks nice but I have to do everything manually 
19:41:48 <docl> http://retroforth.com/paste/?id=3377
19:43:38 <crc> docl: that works
19:44:54 <docl> null->dot has to be defined differently from the other substitution words because the change word exits when it finds a null.
19:49:56 <crc> makes sense
20:01:44 <docl> a slightly more factored version: http://retroforth.com/paste/?id=3378
20:14:53 <crc> looks goood
21:18:57 <docl> http://retroforth.com/paste/?id=3380
22:04:29 <docl> http://retroforth.com/paste/?id=3381
22:07:16 <docl> I'm not sure exactly why "foo getLength" crashes, probably a negative number that is supposed to be decrementing to 0.
22:21:34 <crc> your @+ breaks it
22:28:29 <docl> yeah
22:29:04 <docl> I think I have a fix though
22:46:32 <docl> http://retroforth.com/paste/?id=3382
22:53:03 <docl> previously, foo was running link each time and it wasn't hurting anything because getLength returned the same value for bar. now it returns a different result so it gets messed up if you try that.
23:59:59 --- log: ended retro/10.05.07