00:00:00 --- log: started retro/06.11.26
00:50:58 --- join: Cheery (n=Cheery@a81-197-54-146.elisa-laajakaista.fi) joined #retro
01:21:13 --- join: virl (n=virl@chello062178085149.1.12.vie.surfer.at) joined #retro
02:09:01 --- join: neceve (n=claudiu@unaffiliated/neceve) joined #retro
02:53:12 --- join: Raystm2 (n=NanRay@adsl-69-149-63-251.dsl.rcsntx.swbell.net) joined #retro
03:30:51 --- quit: virl (Remote closed the connection)
05:13:47 <erider> good morning all
06:14:25 --- join: virl (n=virl@chello062178085149.1.12.vie.surfer.at) joined #retro
07:16:44 --- quit: erider (Connection timed out)
07:17:34 --- join: erider (n=erider@unaffiliated/erider) joined #retro
07:44:49 --- quit: erider (Read error: 60 (Operation timed out))
07:54:22 --- join: erider (n=erider@unaffiliated/erider) joined #retro
09:12:44 --- join: Shain (i=steve@c-67-161-56-76.hsd1.ca.comcast.net) joined #retro
10:58:48 --- join: Snoopy42_ (i=snoopy_1@dslb-084-058-157-081.pools.arcor-ip.net) joined #retro
11:06:14 --- quit: Snoopy42 (Read error: 145 (Connection timed out))
11:06:23 --- nick: Snoopy42_ -> Snoopy42
11:20:37 --- join: Cheer1 (n=Cheery@a81-197-54-146.elisa-laajakaista.fi) joined #retro
11:23:20 --- quit: Cheery (Nick collision from services.)
11:23:26 --- nick: Cheer1 -> Cheery
11:24:00 --- quit: timlarson ("Leaving")
11:33:46 --- join: timlarson (n=timlarso@user-12l325b.cable.mindspring.com) joined #retro
13:21:35 --- quit: Raystm2 (Read error: 54 (Connection reset by peer))
13:24:43 --- join: Raystm2 (n=NanRay@adsl-69-149-55-47.dsl.rcsntx.swbell.net) joined #retro
13:31:10 <crc> good evening
13:32:23 <lukeparrish> hi crc
13:42:40 <erider> hi crc
13:49:13 --- quit: Cheery ("Download Gaim: http://gaim.sourceforge.net/")
14:07:55 <crc> anything happening today?
14:09:21 <lukeparrish> I've been looking at toka. very nice stuff.
14:11:50 <crc> I'm planning to bring the file code from RxForth to it, and also give it access to the command line
14:12:08 <crc> at that point, it'll be useful for at least small utilities
14:43:14 <erider> : test for r .s drop cr str 1 - drop type next reset ;
14:44:11 <erider> lukeparrish: I can get it to dec but I can get it atm to go thru each character
14:44:25 <erider> well I can but I can't 
14:47:00 <erider> lukeparrish: but I have put your statement into an algorithm kinda but I testing it. the problem I think I having is that type clears the stack 
14:49:34 <crc> type normally consumes two elements
14:49:45 <lukeparrish> here's a simple example, which types in reverse:
14:49:47 <lukeparrish> : test for r 1- over + c@ emit next drop ;  " hello" test
14:49:58 <crc> (in toka, it only consumes one, since toka uses zero terminated strings)
14:51:02 <lukeparrish> I wonder if zt strings are better in the long run
14:51:25 <lukeparrish> keeping track of the count is a bit of a headache
14:51:31 <crc> I use them in toka, since it relies heavily on standard libraries, all of which need zero terminated strings
14:51:58 <lukeparrish> cool
14:52:39 <crc> : test for dup c@ emit 1+ next drop ; " hello" test
14:56:36 <lukeparrish> nice, for some reason I didn't think of incrementing the pointer directly.
14:56:54 <lukeparrish> in toka is there a way to access the count of an interate?
14:57:06 <crc> there will be in the next update
14:57:10 <lukeparrish> cool
14:57:11 <crc> (later tonight)
14:57:50 <crc> I'm hoping to debug the file words before then, so I can include them as well
14:58:00 <lukeparrish> I noticed calling count directly simply crashes in my current version
14:58:12 <lukeparrish> that'll be very nice
14:59:02 <lukeparrish> I installed screen on my account at rx-core, hope you don't mind
15:00:13 <crc> that's not a problem
15:00:23 --- quit: virl ("Verlassend")
15:00:25 <lukeparrish> cool
15:00:28 <crc> count will give you the length of a string
15:00:36 <lukeparrish> ah, ok
15:00:48 <lukeparrish> well if I use too much resources or anything let me know
15:04:15 --- join: erider_ (n=erider@unaffiliated/erider) joined #retro
15:06:05 <erider_> crc I'm trying to re-engineer your irc-client to parse channel text and forth is a language that is not easy to use to parse text :) but its coming along
15:07:52 <crc> cool
15:08:09 <crc> the irc protocol isn't the easiest thing to parse :)
15:09:51 --- quit: erider (Connection timed out)
15:10:42 --- nick: erider_ -> erider
15:12:37 <erider> crc I'm see that first hand
15:13:11 <erider> crc: retro can go into ffi right?
15:21:38 <erider> crc: are you there?
15:26:32 <crc> erider: if you are using the generic port, yes
15:27:32 <crc> the ffi is the same across all my forths (retro, rxforth, and toka), except for callbacks which toka does not support yet
15:28:27 <erider> so I can recompile it to support it? 
15:30:35 <crc> if you build the generic port, you will get ffi, but not syscalls
15:35:18 * erider is checking the manpage of system call for string compare 
15:44:38 * crc sent out the latest toka with the file words from rxforth
15:45:04 <erider> I got it :) 
15:46:36 <crc> good
15:46:48 <lukeparrish> cool
15:48:01 <lukeparrish> 10 [ i . ] iterate   works :)
15:48:25 <erider> lukeparrish: I can get it to response but reply no :/
15:48:38 <lukeparrish> reply? what?
15:48:59 <erider> the parsing is a nightmare 
15:49:29 <lukeparrish> one way is to stick it in tib and rewind >in
15:49:43 <lukeparrish> this lets you use parse, lnparse, etc.
15:49:53 <erider> I need to ask crc exactly what net.read is doing with the string that its getting from the server 
15:50:28 <lukeparrish> be sure to read the function first, then ask away :)
15:51:11 <crc> IIRC, it copies the string to pad, then returns the address/count pair for the string it read
15:51:19 <lukeparrish>   :: 1 pad sockfd read drop pad c@ ; is net.read
15:51:21 <erider> I can get the text currently crc has use here to allocate space for strings but I can't test it with if statement yet 
15:52:29 <crc> hmm, it may be reading in one byte at a time
15:52:50 <lukeparrish> yeah that's what it returns (1 ascii code at a time)
15:53:42 <crc> it has been so long since I worked on the syscall based networking code...
15:54:07 <erider> I think it maybe cooler to do in toka but I'm on a mission to really learn forth 
15:58:35 <crc> http://www.forthworks.com/netclient.pdf is an old quick reference I wrote to the networking words
15:59:21 <erider> thanks 
15:59:31 <crc> some things may have changed slightly since I wrote it
15:59:38 <crc> I honestly can't remember :(
16:01:15 <erider> crc: do you remember this word? : getserv net.read dup 10 =if printserv  then copy ;
16:01:39 <erider> why do you have it test to 10?
16:02:57 <crc> 10 = end of line, newline character
16:03:26 <erider> ah ok so I can refactor that too 
16:04:42 <erider> crc: can you explain the stack model of net.read 
16:05:37 <erider> it doesn't seem to take any arguments
16:05:52 <crc> it doesn't
16:05:54 <crc> ( -c )
16:06:11 <erider> ascii? 
16:06:25 <erider> but in decimal? 
16:06:26 <crc> it waits for a character to be available on the socket, then returns it
16:06:28 <crc> ascii
16:06:41 <crc> the numeric value of the character
16:06:58 <erider> hmm that may help 
16:07:49 <erider> I'm going to have to convert text to its ascii form
16:18:38 <crc> ( addr1 addr2 count -- flag )
16:18:38 <crc> : $cmp for 2dup c@ swap c@ <>if 2drop false rdrop ;then 1+ swap 1+ next 2drop true ;
16:25:22 <erider> I had tested 72 69 76 76 79 with : test 5 for r . emit cr next ;
16:29:14 <erider> crc: what count is it going to look for the one of the first string addr or the second or both of them added together?
16:30:00 <crc> it will check up to 'count' number of bytes from both strings
16:30:48 <erider> ah ok cool! thanks 
16:30:57 * erider is testing in retro now 
16:33:02 <lukeparrish> is there a c@ equivilent in toka?
16:33:13 <crc> in bootstrap.toka
16:33:37 <crc> or not...
16:33:45 <crc> [ @ >char ] is c@
16:33:53 <crc> should work, at least on x86 machines
16:34:15 <lukeparrish> ok
16:34:28 <crc> there is nothing like c! though
16:36:58 <erider> great! 
16:37:31 <erider> : teststr drop swap $cmp ;
16:37:50 <erider> thanks crc that may help 
16:39:42 <crc> : teststr nip $cmp ;
16:39:53 <crc> never mind
16:39:59 * crc is getting tired 
16:41:15 --- join: Raystm2- (n=NanRay@ppp-70-248-35-111.dsl.rcsntx.swbell.net) joined #retro
16:41:41 <lukeparrish> is there a way to load multiple files in a row toka?
16:41:48 <lukeparrish> s//in/
16:42:41 <crc> not at this point
16:42:48 <crc> except indirectly
16:43:00 <crc> cat file1 file2 ... fileN - | ./toka
16:44:11 --- quit: Raystm2 (Read error: 145 (Connection timed out))
16:44:17 <lukeparrish> cool
16:44:34 <crc> if you load the files like that, rlwrap doesn't work though
16:47:56 --- join: Raystm2 (n=NanRay@adsl-69-149-49-97.dsl.rcsntx.swbell.net) joined #retro
16:50:03 * erider is wondering if net? and key? are both needed 
16:53:30 <crc> net? is essential if you don't want the app to block for large periods of time
16:54:03 <crc> key? is helpful in cases outside of just the irc client, e.g., for games involving keyboard input
16:56:57 <erider> hmm 
17:02:21 --- quit: Raystm2- (Read error: 110 (Connection timed out))
17:20:23 <lukeparrish> is there a way to recurse the calling word in toka?
17:27:23 <crc> recurse
17:27:28 <crc> look at other/fib.toka
17:27:31 <lukeparrish> ok
17:28:16 * crc likes the decompiler :)
17:28:32 <lukeparrish> :)
17:29:03 <erider> crc to use the $cmp I'm going to have to copy the net.read output into the pad right? 
17:29:52 <crc> somewhere else actually
17:30:02 <crc> net.read uses pad as the buffer already
17:32:48 <erider> well you have glad me some ideas to work with crc but I'm going to try to crack this nut tomorrow
17:33:01 <erider> s/glad/gave 
17:33:39 <crc> ok
17:33:45 <crc> I'll be here tomorrow evening
17:34:19 <lukeparrish> cool
17:34:40 <lukeparrish> hmm, I'll probably be working then.
17:36:50 <erider> lukeparrish: you know what the netclient is more complete then socket.fs in gforth 
17:38:50 <lukeparrish> really? interesting
17:39:02 <erider> than
17:41:05 <erider> http://retroforth.net/paste/?id=258
17:43:51 <lukeparrish> nice!
17:44:36 <erider> http://retroforth.net/paste/?id=259
17:59:02 --- join: Raystm2- (n=NanRay@adsl-68-95-254-8.dsl.rcsntx.swbell.net) joined #retro
18:13:39 --- quit: Raystm2 (Read error: 110 (Connection timed out))
21:34:45 --- quit: nighty_ (Remote closed the connection)
22:11:24 --- join: Cheery (n=Cheery@a81-197-54-146.elisa-laajakaista.fi) joined #retro
23:59:59 --- log: ended retro/06.11.26