00:00:00 --- log: started forth/06.10.18 00:04:52 --- nick: crest__ -> Crest 00:06:51 * Crest is away: … 01:24:38 --- join: tgkuo3 (n=tgkuo3@125-233-1-167.dynamic.hinet.net) joined #forth 01:25:43 --- part: tgkuo3 left #forth 02:37:07 --- join: Cheery (n=Cheery@a81-197-19-23.elisa-laajakaista.fi) joined #forth 03:54:31 --- join: vatic (n=chatzill@pool-162-84-156-148.ny5030.east.verizon.net) joined #forth 03:55:19 --- join: Anbidian (i=never@S0106000fb09cff56.ed.shawcable.net) joined #forth 04:21:36 --- join: crest_ (n=crest@p54895917.dip.t-dialin.net) joined #forth 04:33:53 --- quit: Crest (Read error: 110 (Connection timed out)) 05:05:51 --- quit: arke (Read error: 110 (Connection timed out)) 05:16:35 --- quit: segher (Nick collision from services.) 05:16:45 --- join: segher (n=segher@dslb-084-056-149-128.pools.arcor-ip.net) joined #forth 05:47:58 --- quit: Anbidian () 06:04:48 --- join: Ray_work (n=Raystm2@199.227.227.26) joined #forth 06:05:59 Good morning. 06:13:20 --- quit: segher (Read error: 60 (Operation timed out)) 06:13:52 --- join: segher (n=segher@dslb-084-056-194-188.pools.arcor-ip.net) joined #forth 06:17:10 --- join: virl (n=virl@chello062178085149.1.12.vie.surfer.at) joined #forth 06:23:22 --- nick: Raystm2 -> nanstm 06:26:18 --- join: arke (i=Chris@x215.vpn.hrz.tu-darmstadt.de) joined #forth 06:26:18 --- mode: ChanServ set +o arke 07:15:56 --- quit: juri_ (Read error: 104 (Connection reset by peer)) 07:17:17 --- join: juri_ (i=[Ohz53Sm@volumehost.com) joined #forth 07:25:04 --- quit: arke (Read error: 110 (Connection timed out)) 08:53:28 hey 09:18:25 --- join: arke (n=Chris@pD9E0755F.dip.t-dialin.net) joined #forth 09:18:25 --- mode: ChanServ set +o arke 09:37:44 --- join: snowrichard (n=richard@12.18.108.162) joined #forth 09:52:35 hi 10:00:14 --- quit: snowrichard ("Leaving") 10:19:44 --- quit: crc (Read error: 60 (Operation timed out)) 10:51:04 anybody looked at the wildcard-matching stuff on c.l.f? 10:57:34 I've watched the various versions go by, but I haven't looked at them in depth. 11:01:08 --- join: I440r_ (n=mark4@67.135.84.40) joined #forth 11:04:05 Some really long definitinos. 11:20:12 --- join: jackokring (n=jackokri@AC8EC0FE.ipt.aol.com) joined #forth 11:20:44 just dropped in via c.l.f link 11:27:25 Welcome, jackokring! 11:27:45 hey. 11:27:53 hey back, sir. 11:27:57 How are ya? 11:28:37 still kicking. You? 11:28:53 I'm kicking, but man do my legs hurt. 11:29:29 heya i am currently doing a CPLD CPU with forth http://indi.microfpga.com doing fine, south american matte yum yum 11:29:50 I'm just noticing your c.l.f. comment, and you know, I dont' read that board very often. 11:32:45 very ans-ish 11:32:45 jackokring. I see that you use Quartus forth. 11:32:45 jackokring: I also notice that several of the links you have on this page are forbidden. 11:32:45 If you mean Quartus II, that's an FPGA development system. 11:32:45 i have used it on the palm but did not develop much, but quartus on the site referes to http://altera.com fpga/cpld design tool 11:32:52 oh okay, was not aware of that. 11:32:59 yes, different animal. 11:33:11 tcl/ mainly written in. but it works for cpld designs. 11:34:41 i'm using M$ acces to keep track of the word list, (boo) but it allows easy database docs/words/rom images via vb module. 11:36:16 win32forth will be the virtual simulation proving ground. database mdb at /My%20OpenSystem/WordList.mdb 11:37:10 forbidden links due to no directory listing avail on new server, so must reedit the page soon 11:37:36 try http://indi.hpsdr.com as this mirror has directory listing 11:47:25 --- join: jackokring[1] (n=jackokri@ACBC7B11.ipt.aol.com) joined #forth 11:48:18 my wifi dropped 11:49:40 bersirc 2.214 don't auto reconnect 11:50:56 Quartus, I've gutted the concept of mptr and cfas. Their previous functionality is now handled with ints. I still have the strings, and floats. 11:51:22 we'll cure you of the strings eventually. :) 11:51:53 Maybe. But probably not. 11:52:02 heh 11:52:13 anyone have a comment on this? http://www.propheticdesire.us/animals.jpg 11:52:15 lisp style character atoms 11:52:18 ? 11:52:36 I don't see the goatse.cx in that list. 11:53:14 write a wildcard pattern-matcher -- in Forth, not C -- using your strings. 11:53:14 wild-matched ( c-addr1 u1 c-addr2 u2 -- c-addr3 u3 ) 11:53:59 2 is the pattern to find in 1. 3 is the matched segment of 1. ? and * are wildcards allowed in 2. 12:01:54 --- quit: jackokring (Read error: 110 (Connection timed out)) 12:02:24 --- nick: jackokring[1] -> jackokring 12:07:30 oh, an omission -- should be ( c-addr1 u1 c-addr2 u2 -- c-addr3 u3 flag ). Flag indicates whether the whole pattern was matched. 12:08:05 u1 u3 = 12:09:38 well, it's a substring match, like SEARCH. s" hello there" s" o*t*r" wild-matched . type -> -1 o ther 12:10:42 the flag indicates whether the pattern was found in the string, not whether the whole string is covered by the pattern. 12:15:07 it's a good factoring exercise. The similar code in c.l.f is badly in need of factoring. 12:17:01 --- join: jackokring[1] (n=jackokri@ACC9503E.ipt.aol.com) joined #forth 12:22:49 whats a efficient way to implement +LOOP test, using 0BRANCH (R: idx limit ) ? 12:23:47 (R: limit idx ) cos of SWAP in 2>R 12:24:29 also have on carry branch CBRANCH possibility 12:24:39 Traditionally the idx is on top of the return stack, so that's ok. 12:24:44 in fact it is easier 12:25:22 and faster 12:25:28 --- join: erider (n=erider@unaffiliated/erider) joined #forth 12:26:01 from the +loop test in my ans layer for retroforth: ( incr idx lim ) - tuck + signsdiffer? 12:26:13 i can imagine that the NOT + with borrow carry=0 may be involved, but not fully formed in my mind 12:27:49 i have a ?U which returns /MOD signage 12:28:14 --- quit: madwork (Read error: 110 (Connection timed out)) 12:28:14 you don't need that for a loop test. 12:29:29 probly not, but trying for minimum factors which is why 1s compliment and carry branch SEEMS would be good-ish. 12:30:34 The simple code above correctly identifies the Standard loop/+loop exit condition. 12:30:51 : signsdiffer xor dup + cbrach ; 12:31:36 My signsdiffer? returns a flag, action to take follows it. 12:32:17 --- quit: jackokring (Read error: 110 (Connection timed out)) 12:32:25 cbranch i mean. doouuu ;-)3O=| 12:32:56 --- nick: jackokring[1] -> jackokring 12:33:21 in the retroforth ans layer, I modify the return address from (loop) to cause the branch. 12:34:55 hi Q 12:35:03 hi erider 12:36:08 "/.r.p /.s.r would do top of stack to IP in indi assembler" 12:46:41 that's some opaque assembler syntax. 12:58:55 --- join: madwork (n=foo@204.138.110.15) joined #forth 13:03:39 --- quit: jackokring (Read error: 110 (Connection timed out)) 13:07:20 haha someone from clf must have noticed my shameless plug of #forth :) 13:07:37 one so far. 13:19:01 --- quit: juri_ (Read error: 104 (Connection reset by peer)) 13:19:46 --- join: juri_ (i=[m2B9D8H@volumehost.com) joined #forth 13:29:07 Marcel Hendrix has a shorter wildcard routine... 13:32:57 --- join: zpg (n=user@user-5440eceb.wfd80a.dsl.pol.co.uk) joined #forth 13:48:26 Shorter, but wildcard-match is HUGE and has a bunch of nested conditionals. 13:49:14 evening all 13:49:18 hey zpg 13:49:28 And it uses locals. 13:51:25 hi 13:53:04 i've written some list-code from scratch on the palm, with flexible type handling. 13:53:16 --- join: Bushmills (n=l@wpc3131.amenworld.com) joined #forth 13:53:22 Keen. 13:53:24 though you have to cons up a typed list, scons (strings), dcons (doubles), etc. 13:53:26 g'day 13:53:52 Hey Bushmills 13:54:14 looks like forthlinks and forthfreaks had same idea same time 13:54:18 zpg, so every list-handling word has multiple conditionals to handle the preset types? 13:54:24 http://wiki.forthfreak.net/index.cgi?ForthForum 13:55:13 Quartus: sort of. 13:55:31 a few have conditionals. one can use car. and list., which contain conditional checks. 13:55:58 I still like the method-table pointer idea. 13:56:19 yeah, it's a nice one. i wrote the entire thing in QF downstairs (the kitchen) this evening, am pretty pleased with the results so far. 14:18:41 Of course one might want to more than simply print a list. 14:19:42 quite. 14:20:32 though typed lists are fine. writing an addition function is trivial stuff -- the re-write has a nicer interface though. 14:20:55 there's no need to abstract every list operation. there will be ones that clearly want a string list, etc. 14:21:06 adding a new type would be a bear. 14:21:31 i don't see why. 14:21:56 add a type, add its printing facilities, and add a line to the generic functions. then write a set of functions to deal with that type. done. 14:22:35 --- join: arke_ (n=Chris@pD9E06978.dip.t-dialin.net) joined #forth 14:23:08 1) write code 14:23:09 2) ? 14:23:13 3) profit! 14:25:17 this now works --> 14:25:18 s" this is a fine example of a string." ok 14:25:19 split-string ok 14:25:19 8 make-slist ok 14:25:20 list. [ 'this' 'is' 'a' 'fine' 'example' 'of' 'a' 'string.' ] ok 14:25:39 i wrote the 15 line string split code just now. the rest of the list base is from the Palm desktop. 14:39:06 So I found there appears to be a version 2.1 CD for the Magellan GPS for Palm V thingie. I have the 1.0 CD. Magellan customer support has got to be the worst I've EVER encountered. Music on hold, with no indication if you're in a queue. Calls dumped because somewhere, someones voice mailbox has no messages (WTF?). Call the main number, more music on hold, no way to get a human. And they call it "Technical Support Hot-line". H 14:39:06 a. 14:45:23 --- quit: arke (Read error: 110 (Connection timed out)) 14:45:29 --- join: erider_ (n=erider@unaffiliated/erider) joined #forth 14:50:04 --- quit: erider (Read error: 110 (Connection timed out)) 14:56:12 --- nick: erider_ -> erider 14:57:49 --- quit: virl (Remote closed the connection) 15:05:38 Quartus_: i just ported that gforth code back over to the palm, but http://www.albany.net/~hello/comus.htm#scan as a definition for the missing scan doesn't seem to work. 15:05:40 any ideas why? 15:06:34 --- quit: Ray_work ("User pushed the X - because it's Xtra, baby") 15:06:50 What gforth code? 15:07:51 --- quit: segher (Nick collision from services.) 15:08:01 --- join: segher (n=segher@dslb-084-056-140-211.pools.arcor-ip.net) joined #forth 15:08:30 oh, i wrote the string splitting stuff in gforth, then put it in a memo for the palm. 15:08:49 I haven't tested the scan at Leo's site. Try it in Gforth along with your code. 15:09:37 oh i see the problem. 15:09:47 That scan looks ok, actually. Perhaps the problem is elsewhere. 15:10:02 yeah, it does. (problem not seen, my mistake) 15:10:42 ok, the QF skip doesn't behave as expected. 15:11:14 --- join: arke__ (n=Chris@pD9E06978.dip.t-dialin.net) joined #forth 15:12:16 Yes, the joy of non-standard words. Include an appropriate SKIP. It's SCAN, but = instead of <> 15:12:17 --- quit: arke_ (Read error: 104 (Connection reset by peer)) 15:12:35 ok 15:14:02 The Quartus Forth skip works in the input buffer implicitly. 15:14:10 ah ok. 15:14:15 yes, redefining skip worked. 15:16:40 oh this is cool 15:16:43 string lists on the palm :) 15:17:00 so how come the skips differ? are they supposed to offer the same external functionality, or is the name coincidental? 15:18:31 Non-standard word use varies. Gforth had their interpretation of skip, I had mine. If I did were to go back to '97, I'd do it the gforth way, but here we are. 15:18:57 heh 15:18:58 k 15:20:42 I'd have to check my notes for the reference I used for my skip. Pretty sure I drew the semantics from somewhere. 15:20:59 ok cool 15:28:26 this works beautifully,. 15:28:29 thanks 15:28:46 Ok. 15:32:10 --- join: Shine (n=Frank_Bu@xdsl-84-44-159-14.netcologne.de) joined #forth 15:37:24 got a pattern-matcher ticking along. 15:37:24 s" hi there" s" ?? *h*!" pattern-match . -> -1 15:51:42 neat. 15:51:44 what syntax? 15:52:12 ? matches any char, * is zero or more ? 15:52:18 * zpg nods 15:52:24 subset of regexp-ish 15:52:28 simple code? 15:52:49 quite. Based on skip and scan, at the bottom. 15:53:14 * zpg nods 15:54:35 --- quit: Shine (Remote closed the connection) 15:56:14 --- join: Shine (n=Frank_Bu@xdsl-84-44-159-14.netcologne.de) joined #forth 16:02:16 is this in response to the crap on CLF ? 16:02:17 lol 16:03:03 it is coincidental, but those giant nested if solutions are nasty. 16:03:42 are you doing multiple parsing? 16:03:53 meaning..? 16:04:36 handle all wildcards, one at a time, then AND the results 16:04:54 most code on CLF is nasty 16:05:03 sometimes they have some nice examples tho 16:05:06 zpg, no. 16:11:58 --- part: Bushmills left #forth 16:14:16 Zpg, nothing nearly that complex. 16:18:45 --- quit: Cheery ("Download Gaim: http://gaim.sourceforge.net/") 16:30:36 --- join: snoopy_1711 (i=snoopy_1@dslb-084-058-174-231.pools.arcor-ip.net) joined #forth 16:33:02 --- join: crc (n=crc@pool-70-110-217-154.phil.east.verizon.net) joined #forth 16:33:14 --- mode: ChanServ set +o crc 16:37:55 --- quit: Snoopy42 (Read error: 145 (Connection timed out)) 16:38:18 --- nick: snoopy_1711 -> Snoopy42 16:50:00 night 16:50:01 --- quit: zpg ("ERC Version 5.1.3 (IRC client for Emacs)") 17:32:19 --- quit: erider ("I don't sleep because sleep is the cousin of death!") 17:34:21 --- quit: vatic (Read error: 110 (Connection timed out)) 17:49:48 --- quit: Shine (Nick collision from services.) 18:05:57 --- quit: I440r_ (Client Quit) 18:07:46 --- join: vatic (n=chatzill@pool-162-84-156-148.ny5030.east.verizon.net) joined #forth 18:15:36 Hi Quartus_, a hugely dumb question, but what's the best way to declare and allocate space for an array? The array name could even be a constant... 18:16:00 create my-array 25 cells allot will do it, though more commonly 18:16:15 : array create cells allot does> swap cells + ; 18:16:30 25 array my-array 18:16:52 In the first example, access would be 13 cells my-array + @ 18:16:56 In the second, 13 my-array @ 18:17:37 Quartus_: OK, I thought so, but the books I have a kind of unhelpful in this area... Rather is vague and Kelly & Spies an referencing older Forth... 18:17:59 array works for me. 18:18:24 Quartus_: good style is to place the index first in the access statement? 18:18:25 I built something far more splendiferous for defining multi-dimensional arrays, but I'm on the fence about its utility. 18:18:46 I just need a simple 6 cell array for now! 18:18:51 vatic, in which case? In the first case, my-array 13 cells + @ would also work. In the second, the index has to be on the stack. 18:19:35 Quartus_: true. I've just been saying my-array 13 cells + @ 18:19:54 index after the label... 18:20:01 like C :-) 18:20:06 That's fine if you're always explicitly referring to the same array and specifying literal indices. 18:20:38 If the index could come from another source, it makes more sense the other way 'round. The array defining word requires it, anyway. It's better Forth. 18:20:40 I could jazz it up later. right now I'm trying to factor my lists... 18:21:22 For instance, to display all the cells in an array : .my-array 25 0 ?do i my-array @ . loop ; 18:21:23 Quartus_ good point re: another source, thnx. 18:22:29 That's a strength of Forth, the ability to separate the parameter from the object. 18:23:42 Quartus_ another excellent piece of insight, thanks! 18:25:09 Quartus_ are you working on a wild card match? 18:25:34 Got it done. s" Hello there" s" *th?r" pattern-match -> -1 18:25:40 oops 18:25:45 s" Hello there" s" *th?r*" pattern-match -> -1 18:26:42 Quartus_ I think its a really interesting puzzle... 18:26:43 also, s" Hello there" s" l*th?r" pattern-locate . type -> -1 llo ther 18:28:03 It went together in straightforward fashion. Based on skip and scan. 18:43:38 --- quit: timlarson (orwell.freenode.net irc.freenode.net) 18:43:38 --- quit: Quartus_ (orwell.freenode.net irc.freenode.net) 18:43:39 --- quit: ccfg (orwell.freenode.net irc.freenode.net) 18:43:39 --- quit: arke__ (orwell.freenode.net irc.freenode.net) 18:43:41 --- quit: k4jcw (orwell.freenode.net irc.freenode.net) 18:43:41 --- quit: ohub (orwell.freenode.net irc.freenode.net) 18:43:41 --- quit: michaelw (orwell.freenode.net irc.freenode.net) 18:43:42 --- quit: segher (orwell.freenode.net irc.freenode.net) 18:43:42 --- quit: nighty__ (orwell.freenode.net irc.freenode.net) 18:43:42 --- quit: jc (orwell.freenode.net irc.freenode.net) 18:43:42 --- quit: JasonWoof (orwell.freenode.net irc.freenode.net) 18:43:42 --- quit: TreyB (orwell.freenode.net irc.freenode.net) 18:43:42 --- quit: Quartus (orwell.freenode.net irc.freenode.net) 18:43:42 --- quit: larsb (orwell.freenode.net irc.freenode.net) 18:43:43 --- quit: crc (orwell.freenode.net irc.freenode.net) 18:43:43 --- quit: juri_ (orwell.freenode.net irc.freenode.net) 18:43:43 --- quit: madwork (orwell.freenode.net irc.freenode.net) 18:43:46 --- quit: lukeparrish (orwell.freenode.net irc.freenode.net) 18:43:46 --- quit: vatic (orwell.freenode.net irc.freenode.net) 18:43:47 --- quit: crest_ (orwell.freenode.net irc.freenode.net) 18:43:47 --- quit: nanstm (orwell.freenode.net irc.freenode.net) 18:43:47 --- quit: Zarutian (orwell.freenode.net irc.freenode.net) 18:43:48 --- quit: warpzero (orwell.freenode.net irc.freenode.net) 18:43:50 --- quit: I440r (orwell.freenode.net irc.freenode.net) 18:43:50 --- quit: madgarden (orwell.freenode.net irc.freenode.net) 18:43:50 --- quit: neceve (orwell.freenode.net irc.freenode.net) 18:43:50 --- quit: nighty (orwell.freenode.net irc.freenode.net) 18:43:50 --- quit: Teratogen (orwell.freenode.net irc.freenode.net) 18:48:30 --- join: Quartus_ (n=Quartus_@209.167.5.1) joined #forth 18:48:30 --- join: timlarson (n=timlarso@user-12l325b.cable.mindspring.com) joined #forth 18:48:30 --- join: ccfg (n=ccfg@dsl-roigw1-fe8ade00-21.dhcp.inet.fi) joined #forth 18:48:30 --- join: michaelw (n=michaelw@lambda.foldr.org) joined #forth 18:48:30 --- join: ohub (n=oherrala@sikw1.oulu.fi) joined #forth 18:48:30 --- join: k4jcw (n=jcw@adsl-065-006-151-062.sip.asm.bellsouth.net) joined #forth 18:48:30 --- join: arke__ (n=Chris@pD9E06978.dip.t-dialin.net) joined #forth 18:48:30 --- join: vatic (n=chatzill@pool-162-84-156-148.ny5030.east.verizon.net) joined #forth 18:48:30 --- join: crc (n=crc@pdpc/supporter/active/crc) joined #forth 18:48:30 --- join: segher (n=segher@dslb-084-056-140-211.pools.arcor-ip.net) joined #forth 18:48:30 --- join: juri_ (i=[m2B9D8H@volumehost.com) joined #forth 18:48:30 --- join: madwork (n=foo@204.138.110.15) joined #forth 18:48:30 --- join: crest_ (n=crest@p54895917.dip.t-dialin.net) joined #forth 18:48:30 --- join: nighty__ (n=nighty@sushi.rural-networks.com) joined #forth 18:48:30 --- join: I440r (n=mark4@65.244.197.34) joined #forth 18:48:30 --- join: jc (n=jcw@adsl-065-006-151-062.sip.asm.bellsouth.net) joined #forth 18:48:30 --- join: madgarden (n=madgarde@London-HSE-ppp3546145.sympatico.ca) joined #forth 18:48:30 --- join: JasonWoof (n=jason@unaffiliated/herkamire) joined #forth 18:48:30 --- join: neceve (n=claudiu@unaffiliated/neceve) joined #forth 18:48:30 --- join: nighty (n=nighty@66-163-28-100.ip.tor.radiant.net) joined #forth 18:48:30 --- join: TreyB (n=trey@cpe-66-87-192-27.tx.sprintbbd.net) joined #forth 18:48:30 --- join: nanstm (n=NanRay@adsl-68-93-41-121.dsl.rcsntx.swbell.net) joined #forth 18:48:30 --- join: Teratogen (i=leontopo@slashsnot.org) joined #forth 18:48:30 --- join: Quartus (n=trailer@CPE0001023f6e4f-CM013349902843.cpe.net.cable.rogers.com) joined #forth 18:48:30 --- mode: irc.freenode.net set +oooo Quartus_ crc JasonWoof Quartus 18:48:30 --- join: lukeparrish (n=docl@74-36-211-202.dr01.hmdl.id.frontiernet.net) joined #forth 18:48:30 --- join: Zarutian (n=Zarutian@194-144-84-110.du.xdsl.is) joined #forth 18:48:30 --- join: warpzero (n=warpzero@wza.us) joined #forth 18:48:30 --- join: larsb (i=lars@1-1-14-10a.kt.gbg.bostream.se) joined #forth 20:19:25 --- join: jackokring (n=jackokri@ACC9503E.ipt.aol.com) joined #forth 21:04:28 --- join: slava (n=slava@CPE0080ad77a020-CM000e5cdfda14.cpe.net.cable.rogers.com) joined #forth 21:04:28 --- mode: ChanServ set +o slava 21:04:30 Quartus: http://www.eng.usf.edu/~dionson/ezzay/ 21:04:37 read the whole thing 21:04:46 --- quit: vatic (Read error: 110 (Connection timed out)) 21:07:13 61%. 21:07:15 --- join: EdLin (n=chacha@as5300-6.216-194-21-193.nyc.ny.metconnect.net) joined #forth 21:19:22 I skimmed most of it. Not my kind of funny. I have no doubt some dumbass kid thought this was a hilarious thing to do. 21:19:30 its fake 21:19:46 Could be. 21:24:44 --- quit: madgarden (Read error: 104 (Connection reset by peer)) 21:26:55 --- join: madgarden (n=madgarde@London-HSE-ppp3546145.sympatico.ca) joined #forth 21:36:21 --- quit: slava () 22:43:07 --- quit: JasonWoof (Read error: 110 (Connection timed out)) 22:51:52 --- join: JasonWoof (n=jason@c-71-192-26-248.hsd1.ma.comcast.net) joined #forth 22:51:52 --- mode: ChanServ set +o JasonWoof 23:07:48 hey jasonwoof 23:08:42 hey 23:08:56 what's up? 23:10:12 yackin on the phone 23:10:24 :) 23:10:25 oop, now I'm not 23:10:40 before I was fiddling with spamassassin 23:52:17 --- quit: madwork (Read error: 110 (Connection timed out)) 23:58:09 --- join: snowrichard (n=richard@12.18.108.162) joined #forth 23:59:59 --- log: ended forth/06.10.18