00:00:00 --- log: started forth/09.09.30 00:12:29 --- join: kar8nga (n=kar8nga@jol13-1-82-66-176-74.fbx.proxad.net) joined #forth 00:23:53 I am trying to re-write fig-forth code to gforth 00:24:04 can i just replace B/BUF with BUFFER? 00:32:10 No. 00:32:24 。。。 00:32:53 FIG block system essentially differs from F-83 and later ones. 00:33:35 You can try this way: 00:33:52 decimal 1024 constant b/buf 00:34:15 http://forth.pastebin.ca/1585572 I post code here. 00:34:21 and there's constant that defines number of buffers per screen. 00:35:12 B/SCR is its name. 00:35:13 I will try on it. 00:35:28 Thus you hardcode 1 constant b/scr 00:36:54 but the book , http://www.forth.org/fd/FD-V03N2.pdf on page 14, the source code 12, he used B/BUF not B/SCR 00:37:46 This is magazine, it isn't book. 00:38:27 ok,in the magazine. 00:51:22 met another word, U/ 00:51:30 ... 00:52:16 there will be lots of fig-forth old words need to translate to gforth , What should I do?!! 00:52:38 I can't keep bugging your, ASau .... 00:52:41 :( 00:52:59 Better understand what program does and rewrite it. 00:53:40 somethings , I still need to understand the fig-forth word? 00:59:22 Yes. 00:59:57 I undestand your frustration, because FIG block system is DAMN UNTRIVIAL to understand. 01:00:19 I spent several weeks of in past to grok it. 01:00:27 ... I've just jumped out, and soon jumped into another rabbit hole... 01:00:51 Listen, it is work time here. 01:01:16 Wed Sep 30 12:01:14 MSD 2009 01:01:32 sorry about that... 01:01:46 I propose to meet after 21:00, if possible. 01:02:07 never mind. take your time. 01:02:09 This isn't easy question to answer in 15 min. 01:02:17 I may need to recall things. 01:02:19 and, take my time too. 01:02:29 I see. :) 01:20:01 --- join: ahelon (n=hmm@unaffiliated/ahelon) joined #forth 01:33:46 --- join: GeDaMo (n=gedamo@212.225.115.96) joined #forth 02:02:17 occasion 02:37:25 --- join: neceve (n=ncv@unaffiliated/neceve) joined #forth 02:48:43 --- quit: kar8nga (Remote closed the connection) 02:51:43 --- quit: neceve (pratchett.freenode.net irc.freenode.net) 02:54:21 --- join: neceve (n=ncv@unaffiliated/neceve) joined #forth 03:11:30 --- quit: neceve (pratchett.freenode.net irc.freenode.net) 03:12:21 --- join: neceve (n=ncv@unaffiliated/neceve) joined #forth 04:07:49 --- quit: neceve (Remote closed the connection) 04:09:23 --- quit: nighty^ ("maison") 04:24:29 --- quit: GeDaMo ("Leaving.") 04:33:25 --- join: ASau` (n=user@host17-231-msk.microtest.ru) joined #forth 04:38:35 --- quit: ASau (Read error: 104 (Connection reset by peer)) 04:47:07 --- nick: ASau` -> ASau 05:40:06 --- join: nighty^ (n=nighty@122.249.122.91) joined #forth 05:44:08 --- join: DrunkTomato (n=DEDULO@217.18.135.36) joined #forth 05:58:09 --- join: mathrick (n=mathrick@130.226.70.172) joined #forth 06:03:01 --- join: davec-- (n=tgunr@polymicro.net) joined #forth 06:03:03 --- join: Judofyr (n=Judofyr@cC694BF51.dhcp.bluecom.no) joined #forth 06:19:55 --- quit: tgunr (Read error: 110 (Connection timed out)) 06:20:37 --- join: kar8nga (n=kar8nga@jol13-1-82-66-176-74.fbx.proxad.net) joined #forth 06:20:52 --- quit: kar8nga (Remote closed the connection) 06:40:22 --- quit: Judofyr (Remote closed the connection) 06:52:46 --- join: Al2O3 (n=Al2O3@c-24-9-43-112.hsd1.co.comcast.net) joined #forth 07:03:32 --- join: GeDaMo (n=gedamo@212.225.115.96) joined #forth 07:06:48 --- quit: GeDaMo ("Leaving.") 07:13:20 --- join: crc_ (n=charlesc@c-68-80-139-0.hsd1.pa.comcast.net) joined #forth 07:13:20 --- quit: crc (Read error: 104 (Connection reset by peer)) 07:18:15 --- quit: Al2O3 (Read error: 110 (Connection timed out)) 07:20:37 --- join: Al2O3 (n=Al2O3@c-24-9-43-112.hsd1.co.comcast.net) joined #forth 07:37:52 --- join: Judofyr (n=Judofyr@cC694BF51.dhcp.bluecom.no) joined #forth 07:48:33 --- quit: nighty^ ("Disappears in a puff of smoke") 07:49:37 --- quit: Al2O3 () 07:49:51 --- join: Al2O3 (n=Al2O3@c-24-9-43-112.hsd1.co.comcast.net) joined #forth 07:49:54 --- join: nighty__ (n=nighty@x122091.ppp.asahi-net.or.jp) joined #forth 08:19:03 --- join: segher (n=segher@84-105-60-153.cable.quicknet.nl) joined #forth 08:21:08 --- quit: ASau ("off") 08:43:20 --- quit: jimt (Read error: 145 (Connection timed out)) 08:45:20 --- quit: Al2O3 (Read error: 110 (Connection timed out)) 08:47:29 --- join: Al2O3 (n=Al2O3@c-24-9-43-112.hsd1.co.comcast.net) joined #forth 08:48:06 --- join: jimt (n=jim@202.27.212.33) joined #forth 08:51:34 --- quit: mathrick (Read error: 131 (Connection reset by peer)) 09:19:20 --- quit: nighty__ (Read error: 60 (Operation timed out)) 09:24:01 --- join: ASau (n=user@83.69.227.32) joined #forth 09:25:04 schmx: any plans on ogg still? 09:40:40 --- join: kar8nga (n=kar8nga@jol13-1-82-66-176-74.fbx.proxad.net) joined #forth 09:48:55 --- join: pgas (n=user@pdpc/supporter/active/pgas) joined #forth 10:00:18 --- quit: davec-- (Read error: 110 (Connection timed out)) 10:08:27 --- join: mathrick (n=mathrick@130.226.70.177) joined #forth 10:20:25 --- join: impomatic (n=John@nat65.mia.three.co.uk) joined #forth 10:35:23 --- quit: ahelon () 10:53:37 --- quit: DrunkTomato () 11:09:25 foxes: on-line? 11:13:19 2 am now ,he sleeping 11:20:03 --- quit: aguaithefreak (Read error: 104 (Connection reset by peer)) 11:21:18 Alright. 11:23:53 --- quit: jimt (pratchett.freenode.net irc.freenode.net) 11:23:53 --- quit: madgarden (pratchett.freenode.net irc.freenode.net) 11:23:53 --- quit: kleinjt (pratchett.freenode.net irc.freenode.net) 11:33:10 --- join: neceve (n=ncv@unaffiliated/neceve) joined #forth 11:41:33 --- mode: ChanServ set +o crc_ 11:41:37 --- nick: crc_ -> crc 11:42:44 --- join: jimt (n=jim@202.27.212.33) joined #forth 11:42:44 --- join: madgarden (n=madgarde@CPE001d7e527f89-CM00159a65a870.cpe.net.cable.rogers.com) joined #forth 11:42:44 --- join: kleinjt (n=kleinjt@tarsonis.dhcp.rose-hulman.edu) joined #forth 12:00:17 --- quit: pgas ("/quit") 12:16:40 --- quit: f[x] (Read error: 60 (Operation timed out)) 12:20:19 --- quit: ASau (Remote closed the connection) 12:20:47 --- join: ASau (n=user@83.69.227.32) joined #forth 12:25:36 --- quit: ASau (Remote closed the connection) 12:26:03 --- join: ASau (n=user@83.69.227.32) joined #forth 12:28:39 --- quit: neceve (Remote closed the connection) 12:32:15 --- join: neceve (n=ncv@unaffiliated/neceve) joined #forth 12:37:28 --- quit: impomatic ("mov.i #1,1") 12:50:47 --- join: GeDaMo (n=gedamo@212.225.96.134) joined #forth 13:18:16 --- quit: ASau (Read error: 104 (Connection reset by peer)) 13:35:55 --- quit: kar8nga (Remote closed the connection) 13:48:03 --- join: Snoopy_1711 (i=Snoopy_1@dslb-088-068-204-046.pools.arcor-ip.net) joined #forth 14:01:41 --- join: Judofyr_ (n=Judofyr@cC694BF51.dhcp.bluecom.no) joined #forth 14:04:57 --- quit: Snoopy_1611 (Read error: 110 (Connection timed out)) 14:05:17 --- quit: Judofyr (Nick collision from services.) 14:05:20 --- nick: Judofyr_ -> Judofyr 14:15:13 --- join: Snoopy_1611 (i=Snoopy_1@dslb-084-059-100-071.pools.arcor-ip.net) joined #forth 14:19:28 --- quit: I440r (Read error: 110 (Connection timed out)) 14:20:07 --- join: I440r (n=me@c-69-136-171-118.hsd1.in.comcast.net) joined #forth 14:21:07 --- quit: Snoopy_1711 (Read error: 110 (Connection timed out)) 14:35:32 --- quit: Al2O3 () 14:57:26 --- quit: GeDaMo ("Leaving.") 15:52:26 --- join: ASau (n=user@ppp91-77-59-32.pppoe.mtu-net.ru) joined #forth 16:13:34 --- quit: ASau (Read error: 54 (Connection reset by peer)) 16:14:00 --- join: ASau (n=user@ppp91-77-59-32.pppoe.mtu-net.ru) joined #forth 16:15:35 --- quit: ASau (Read error: 104 (Connection reset by peer)) 16:16:14 --- join: ASau (n=user@ppp91-77-59-32.pppoe.mtu-net.ru) joined #forth 16:18:28 --- quit: ASau (Read error: 104 (Connection reset by peer)) 16:19:24 --- join: ASau (n=user@ppp91-77-59-32.pppoe.mtu-net.ru) joined #forth 16:48:34 --- join: Raystm2 (i=rastm2@c-24-8-232-212.hsd1.co.comcast.net) joined #forth 16:55:46 --- quit: neceve (Remote closed the connection) 17:03:10 --- join: jauaor (n=araujo@gentoo/developer/araujo) joined #forth 17:25:37 woke up 17:25:42 :) 17:26:08 "got out of bed.. dragged a comb across my head" :) hi 17:26:31 haha 17:30:55 "Smoke me a kipper. I'll be back for breakfast." -- A. Rimmer 17:31:34 "... and thanks! for all the fish." D. Addams 17:32:36 ASau, I am back :) 17:33:00 --- join: tathi (n=josh@216.227.91.166) joined #forth 17:33:04 And I'm deciding if I go to sleep or not. 17:33:36 ASau, go to sleep :P 17:33:41 it's good for health. 17:33:51 and, I can ask you next day. 17:33:51 wb tathi hi ASau hi foxes. Sleep. Good. Wake. Bad. :) 17:34:14 Raystm2, ....robot? 17:34:25 * Raystm2 was awaken by the battery-back-up alarm 17:34:56 * Raystm2 = the programmer of ChuckBot the Cursor, a screen robot. 17:35:23 what's time by yours ASau ? 17:36:09 8:35 a.m. here in beijing. Everyone is looking forward to the National Day 's show. 17:37:50 Hi Ray 17:38:20 "Sleep. Good. Wake. Bad." -- Frankenstein's Monster "Young Frankenstein" 17:38:33 --- join: nighty^ (n=nighty@210.188.173.245) joined #forth 17:38:44 :D 17:42:06 last day, I study the article about database whole day, and figure out most words in that example. 17:42:24 Forth database? 17:42:54 I re-write one with gforth, it works, with one or two mistakes 17:43:36 yes , a database worte by Glen B. Haydon in fig-forth, and I am trying to re-write it with gforth. 17:44:05 Cool. Good project. 17:44:13 Database Design, Elements of V3, 45 . http://www.forth.org/fd/FD-V03N2.pdf 17:44:57 I like Glen's MVPForth. I think it was the first Forth environment I've ever used. Ty for the link. :) 17:45:27 DaR gave me another full packaged files about this, really nice too. http://vf-plugins.googlecode.com/files/pfDatabase-4.zip 17:47:22 Raystm2, I confused with fig-forth , but tathi helped me out. :) 17:48:15 foxes: Thu Oct 1 04:48:12 MSD 2009 17:48:56 ASau, you really should go to bed. It's too late and not good for health. 17:49:27 foxes, that's good. Yes. tathi can be quite helpful. tathi. Good. 17:49:29 Since it is almost 5am, it is possible to consider it as 17:49:29 "too early" instead. 17:49:44 :) 17:49:50 nod 17:50:43 ( sarcastically, but in fun ) That's cuz the Earth are round. 17:51:05 sometimes I woke up at 3 or 4 am. then work , but I would snap for 2 hours at 8 a.m. 17:52:22 I think, I'll take a break for 2 hours. 17:52:27 I see. Me too, but nap comes a bit later. Nearer to 11'sies, right after medication and lunch gets me. /me = old man in training.. 17:53:08 ASau movie? that's about two hours. I like movie breaks. 17:53:14 after I learned and practiced Kungfu, I slept less and felt full of energy . 17:54:17 Raystm2, I like movie breaks too, but actually, it won't help. 17:54:19 Wow! I'm always impressed with people that study such a thing. Energy. Good. Meds. Bad. 17:54:35 It won't? :) 17:54:52 nod, I tried, it wont. 17:55:19 Yoga will help at that time 17:56:07 and most of time, it will bring you many new idea and surprise 17:56:12 * Raystm2 looking over the database info that you shared. ty. 17:56:51 * foxes fixing the last mistakes in code. 17:57:11 I know what you are talking about. If you can take your attention off of a problem, sometimes ( SOMEtimes) the mind works the problem as a background task. 17:59:52 Raystm2, i rely on that fact alot. ALL problem solving is done in the subconcious i believe 18:00:54 it hasnt helped me write my assembler tho lol (tho quiznos has been helping me some and i THINK i can write a 16 bit assembler to start wtih) 18:00:56 with 18:01:10 :) I440r 18:01:18 hi foxes 18:01:23 your jot JEFF fox are u? :) 18:01:30 hi Mark :) 18:01:31 erm no your a beginner 18:01:34 he isnt heh 18:01:37 hey :P 18:01:56 I440r, you just need believe. 18:02:02 * Raystm2 is reminded to get the Intel bibles ... 18:02:21 i asked my dad where his copy of the 8086 book was. he threw it out :/ 18:02:22 bah 18:02:25 thats ok lol 18:02:59 * Raystm2 admits that seeing the foxes name in chat for years but not having very much time to chat together .. /me once thougth foxes was jeff also. 18:03:03 D'oh! :) 18:03:09 subconscious did work. and ,you should give him some hints first :) 18:03:53 Mark, I too am working on an assembler. The Mix 1009 from Knuth TAOCP, but in colorForth. lol 18:04:10 The "cool" thing is... 18:04:31 The magenta variables in cf work like windows into the source so... 18:04:33 http://dpaste.com/100651/ 18:04:39 yes, almost a year early , i learned forth, but till now, I am going to use it. 18:04:39 these are the registers. 18:04:40 thats my 16 bit assembler so far 18:04:53 Ok cool, checkin... 18:05:17 the bit in the middle that that isnt valid forth is basically a comment for me 18:06:00 ive sort of figured out all modrm encodings and how to encode them for everything except [$1234] type addresses 18:06:15 i think im going to have to use things like mov [ address ], whatever 18:06:32 but i didnt fully figure out the machanics of how yet 18:07:11 soon or later I will code on assembler, but now, focus on the database :) 18:08:12 --- quit: ASau (Read error: 104 (Connection reset by peer)) 18:09:06 --- join: ASau (n=user@ppp91-77-59-32.pppoe.mtu-net.ru) joined #forth 18:24:55 --- quit: tathi ("leaving") 18:28:07 I440r pretty cool so far :) 18:28:45 I440r's always cool~ 18:30:35 --- quit: ASau (Read error: 104 (Connection reset by peer)) 18:31:11 --- join: ASau (n=user@ppp91-77-59-32.pppoe.mtu-net.ru) joined #forth 18:32:02 * Raystm2 is trying to recover all of the programming environments... tools... functionality, that he lost when he crashed last year. 18:32:16 lol 18:33:00 It doesn't pay to be poor. It took me a year to fix my computer and get to a point where I could get a net connect. 18:33:27 Any of which could fall by the way-side at the first emergency. 18:33:34 Which is likely. 18:34:05 It took me a year to fix my computer 《--- you fixed it with yourself? hand made? 18:34:08 :P 18:34:13 :) 18:35:33 that's why I study. lol No, I had to get a new HDD because the old one died, told me it was gonna die, wasn't believed, and died anyway. :) Back when I studied electronics you could still see the individual componants. :) 18:36:05 lol 18:36:36 hehe 18:37:09 HDD easy to storage , easy to lost 18:37:22 ya. :( 18:37:51 better use pen and papers, or sculpt on a stone?! :D 18:38:30 I replaced a HDD in my laptop with a CF card reader and 16GB CF card. 18:38:57 it works well, even falling from my desk. 18:39:35 Stone. Paper is only about 300 years storage, even in the best of conditions, ( a hermetically sealed, air and humidity controlled, storage facility, buried in the depths of a pyramid, and that moved to the desert of the south pole ice sheet. ) 18:39:58 nice :) 18:41:38 On Mars. Dry I tell ya. 18:42:24 --- quit: gogonkt (Remote closed the connection) 18:42:44 --- join: gogonkt (n=info@59.38.201.187) joined #forth 18:43:15 yesterday, I read a lot about the Block, and if we use forth in the machine, HDD will be saved for a longer life. 18:43:46 Okay! Challenge. First person in chat to get his software sent to another planet to exist as universal toxic waste, wins. 18:43:55 Really? I didn't know that. 18:44:29 read the Chapter about Block in Forth :) 18:45:03 Block reduces the writing on HDD 18:45:27 lol I saw a program ( tv) yesterday, we sent a probe to Eros asteriod, and landed on it, and then left the thing there like an old Coca-Cola can. 18:45:42 Does it? I didn't' know that. 18:45:48 hmm. 18:46:28 an old Coca-Cola can :) 18:47:13 I thought writing out in cylendars saved HDD thrashing. Block. Can't a block be split over two cylendars? Am I splitting hairs and talking about something I have no info about? Probably. 18:48:16 I need to get more Font for this irc client. I can't read the last few characters in your last post. 18:48:25 read first。 18:48:42 read first????? 18:49:01 or wait, read first??? 18:49:07 nod, font problem, you must use Xchat 18:49:13 looks like 3 chars after first. 18:49:19 read the Block Chapter first 18:49:33 oh. sorry 18:49:42 it's not english, a chinese . 18:49:43 Starting Forth? 18:49:54 AH okay thank you. 18:50:07 <> 18:51:10 lol I didn't dl SwiftForth for many years because I thougth one had to pay for it. 18:51:23 * Raystm2 looking how to update fonts in this irc client. 18:51:45 I still haven't tried to use SwiftForth yet. 18:53:29 I wish I could afford the Book Forth Programmer's Handbook. Mayby I'll ask E.Rather if she might "donate" me one. 18:53:35 --- quit: ASau (Read error: 104 (Connection reset by peer)) 18:54:14 promise her if I ever make any money using forth that the first 35 dollars is hers. lol :) 18:54:19 --- join: ASau (n=user@ppp91-77-59-32.pppoe.mtu-net.ru) joined #forth 18:58:14 ... and now in weather: Temp to drop 30 deg F over night. 19:03:06 hmm, does' 19:03:31 t look like I can change fonts... may... System Font upgrade. 19:05:11 Thank you very much for this data-base stuff. 19:05:49 I've always wanted my own business software in RetroForth, so that it will run on everything. 19:07:02 i have a pre-release version of their swiftforth for linux 19:07:18 I've got an old book "Forth Applications" with a business program called BUSYPACK from the mid 80's . Has a mailinglist attached to invoicing and inventory databases. 19:07:21 Do you? 19:07:26 yup 19:07:32 but i cant share it 19:07:36 Because they love you? 19:07:39 :) 19:07:54 Ya, I figured as much. That's understandable. 19:08:12 i got it because a friend of mine is a good friend of the ppl at 4th inc :) 19:08:20 lol BUSI-PACK not BUSY... 19:08:27 I see. 19:08:33 the guy currently hosting isforth.com 19:08:40 I used to have friends. lol 19:08:42 OH! cool. 19:08:44 lol 19:08:45 --- join: Rugxulo (n=user@adsl-065-013-115-246.sip.mob.bellsouth.net) joined #forth 19:09:00 now you has kids :P 19:09:05 HAHA 19:09:14 almost all gone now :( one left. 19:09:20 She won't budge. lol 19:09:24 lol 19:09:36 marry her off to a rich dood 19:09:44 Two of them. 19:10:00 lol multi-poligamy-bank-account. 19:10:07 :P 19:10:27 thats not even legal in utah now :P 19:10:52 Really? Gosh, where have I been. Next state over, acutally, and I still didn't know that. 19:11:04 We keep a mountain between us. 19:11:10 Not my idea. 19:11:12 thats safest :) 19:11:15 lol 19:13:21 My Bro married a Mormon, but ( he a Roman Catholic born ) they are Conservative Moral Majority ( minority really ) Right Wingers. 19:13:53 who, Mormons or Catholics? 19:14:06 (Mormons paid like $20 mil for the Prop 8 bill in CA, I heard) 19:14:25 My bro and sis-in-law and not Mormons or Catholics, for clarity. Ty 19:14:49 Is that so. Religion at work. 19:15:03 ads for it, I mean, or so they say 19:15:08 Ya. 19:16:19 sorry for interrupting, continue ;-) 19:16:39 UNPAUSE... 19:16:59 lol 19:20:05 I married a Texan. That's a whole 'nuther religion in itself. 19:21:58 well, God did say "go Forth and multiply" :-P 19:22:03 Comes with hats and belts and buckles and shoes. 19:22:11 (had to say it, couldn't resist) 19:24:41 goForth : andMultiply. ( abc -- n ) and * ; \ "Resistance is useless." -- Doug Addams HHGG. 19:26:52 lol I'm now suprised that of all of the programmers in the world, you would think that one of us might have created an ircForthBot for this chat so we could define stuff like that 19:27:55 lol even my autistic programming friends program bots for the aspy chats. 19:29:59 I've got my own idea for a Forth now. I call it EctalForth.. 19:30:39 I'm starting with the color version first. 19:30:58 ColoRectalForth.. right out of my ass. 19:33:04 God was right, too! Forth did multiply. There's one for every Ectal in the universe. 19:37:33 With every purchase of ColoRectal Forth, free pro-state exam! 19:37:39 --- quit: ASau (Read error: 104 (Connection reset by peer)) 19:37:49 ever seen that SNL skit, Colon Blow? 19:38:07 "you'd need over 400 boxes of ... to equal one box of Colon Blow" 19:38:22 That was the laughin'-out-loud-en-est skit they did to that point. 19:38:27 --- join: ASau (n=user@ppp91-77-59-32.pppoe.mtu-net.ru) joined #forth 19:38:34 Nuthin funnier. 19:38:57 I miss that guy, what's his name... dang it! 19:39:06 Phil Hartman 19:39:45 Phil! 19:39:49 yup. 19:40:07 I dunno, frozen caveman lawyer was good too ;-) 19:40:12 One of the best all-time voice-guy/skit-guy. 19:40:12 and Pat, don't forget Pat!! 19:41:15 I remember Pat, but the Caveman laywer skit is not landing home in my brain. 19:41:56 it was good stuff ;-) 19:44:42 Cronic-cals of Narnia. That was funny. Dick-in-a-box and F***-each-other's moms with Timberlake and Samberg, those are good. 19:45:02 Motherlover, yeah that was funny 19:45:07 the Laser Cats was really funny / absurd too, at least to me ;-) 19:45:16 Motherlover. hehe 19:45:24 thttp://forth.pastebin.ca/1587103 I dont understand about the TFIELD and input_name words 19:45:27 they were nominated for an Emmy for that!! 19:46:13 I think that Timberlake should host often, not too often, but often. He's a cast member, without being one. 19:46:37 --- quit: gogonkt (Remote closed the connection) 19:46:39 http://forth.pastebin.ca/1587103 19:46:44 TFIELD supposes to define a field . 19:46:58 --- join: gogonkt (n=info@59.38.201.187) joined #forth 19:47:01 he actually hosted fairly recently (last season, obviously) but didn't even do the music, which I thought was odd 19:47:05 30 TFIELD names , defined a name field 19:48:13 and, I dont know , what comes out if I type: names 19:48:18 ya, the TFIELD create:does> combo... 19:48:24 the DOES> part of the TFIELD 19:48:30 yup 19:49:39 see in the word where it is used... input_name? 19:51:27 ROT MIN CMOVE UPDATE name defines those when input_name is defined. BUT ROT and the rest do the DOES> part when THEY are executed. when name is executed it sets up each name with the ability to do that. 19:52:14 yes 19:52:22 i met problem here. 19:52:55 --- part: Rugxulo left #forth 19:53:16 30 TFIELD names 19:53:31 actually, I changed the input_name. from : name drop 30 32 fill query 1 text pad count name rot min cmove update ; 19:53:59 it makes the length of names with 30 chars 19:55:54 You have purposely re-defined the word name? 19:56:01 first question is: what will put on the stack , when I type: names ? 19:56:21 Sorry, I mean You have purposely re-defined the word "name"? 19:56:24 sorry, not the name, the input_name 19:56:35 : input_name drop 30 32 fill query 1 text pad count name rot min cmove update ; 19:56:45 thank you. :) 19:56:50 :) 19:58:30 if you define 'names' as '30 TFIELD names' then when you call names with 30 characters after it... 19:59:56 --- quit: ASau (Read error: 54 (Connection reset by peer)) 20:00:20 i mean, if i type: names .s 20:00:32 81616420532 140579076524224 ok 20:00:34 --- join: ASau (n=user@ppp91-77-59-32.pppoe.mtu-net.ru) joined #forth 20:00:42 what's the numbers stand for? 20:03:42 okay, sorry, reading more program. looking at address definition. 20:04:49 never mind 20:05:56 you found your answer? 20:06:36 those numbers are the address of .s + 20 20:07:39 not. 20:07:46 pluss what ever "ADDRESS" does to a record, that was also done to the address of the symbol .s 20:08:07 then? 20:08:08 I don't think you can .s a names word. anything following names will be executed on. 20:08:40 OH? I see. 20:08:46 you first have to define something like names "testname" and then call testname and get a .s of that. 20:09:06 good idea 20:09:13 but , I cant define it. 20:09:43 i see. okay. 20:10:17 with: names s" fox" , I got errors: :29: Undefined word 20:10:17 names >>>.s"<<< fox" 20:12:05 hmmm 20:13:14 * Raystm2 is trying it in gforth 20:14:18 :) 20:17:26 names creates a field in a record. The Input_names word creates that field for each word it defines by creating the field with names and then using the 'rot min cmove update'. 20:17:42 to put the name into the record. 20:19:13 usage of the word names leaves the address of where that name field is in the record and not the name itself. 20:19:24 and the COUNT 20:19:34 okay it leaves addr count for 'type' 20:21:01 so, in the input_name word 'names' is the address where the new name will go in the record. 20:21:05 later... 20:21:51 --- quit: ASau (Read error: 104 (Connection reset by peer)) 20:22:39 --- join: ASau (n=user@ppp91-77-59-32.pppoe.mtu-net.ru) joined #forth 20:22:51 we have show_name that takes the REC# on the stack and uses names to move to the name field, get the address of the name field and the count of the name field and then 'type' that. 20:23:08 。。。。 20:23:24 sorry, those characters not available. :) 20:23:38 I mean: ..... 20:23:47 names is only an address of where in the REC# the name is stored in the record. 20:24:18 So, it was totally appropriate to get those numbers on the stack with names .s 20:24:52 AND names does not define anything that s" can use. 20:25:01 better... 20:26:22 * foxes trying to understand sentence above. 20:26:38 okay. ;) 20:27:13 * Raystm2 is still looking over all that TFIELD does when it begins createing the word 'names' 20:27:52 input_names needs a name on the stack. 20:28:40 names puts the name-field address of all records ( the position in the record where the name of the record will go) on the stack. 20:29:24 ROT MIN CMOVE UPDATE takes the name on the stack and the address on the stack and puts that name in that address on the disk ( update ) 20:30:09 ROT means it also takes something else that is tested with MIN 20:30:33 * Raystm2 notices that there are no stack diagrams in this text. 20:31:47 nod, because i just wrote stack diagrams when i understand them. 20:32:19 : input_name ( minimum_address REC# new_name -- new_name_now_in_REC# ) ... ; 20:33:53 : show_name ( REC# -- name_emitted_to_display) ... ; 20:34:10 got it. 20:35:57 .REC ( format display \ a crlf get the REC# justify the print 3 .R and 2 spaces \ then display the name ) 20:36:02 ... ; 20:36:50 does your forth have CREATE/DOES> ? 20:37:00 or do you do not want to use it? 20:41:34 no, I want to . 20:41:44 gforth ahs create ...does> 20:41:50 s/ahs/has/ 20:41:58 * Raystm2 doesn't always use create/does> and the forth he uses the most doesn't even have it. 20:42:39 I have to admit that sometimes I have trouble following defining words that define words that define words. lol ;) 20:42:58 my god.... 20:43:20 your words confuse me suddenly 20:43:50 that's because it is the same as the definition of create/does> :) 20:44:10 a defining word that defines words that defines words. 20:44:27 and that's confusing. 20:45:48 --- quit: ASau (Read error: 104 (Connection reset by peer)) 20:46:16 --- join: ASau (n=user@ppp91-77-59-32.pppoe.mtu-net.ru) joined #forth 20:46:39 your original question was something about what does names produce when it is called and it produces the address of the name field of a record and the count of the number of characters that include the entire field, which we hope is large enough for the entire record name. 20:47:02 <<--- that was for the benefit of anyone that is following and is as confused as I am. :) lol 20:49:07 :D 20:49:24 20 address + is where the name is in the record and 30 TFIELD names creates a word that returns ( besides that record name address ) the number 30 which is the number of characters a name field can possibly contain. 20:50:18 all 30 characters are typed in .REC even if the name is not that long. 20:50:21 why 20 address +? not 30 address +? 20:50:36 30 is the number of characters to type. 20:50:45 20 is where it is in the record. 20:51:01 20 is how far over then 30 type so at end you are at 50. 20:52:16 *******************20RECORD_NAME___________________END 20:52:29 or 20:52:43 *******************20RECORD_NAME___________________**MORERECORD***** 20:53:11 it free 20 forward for other use? 20:53:25 s/free/leave/ 20:53:31 but also has address after 20 on stack. 20:53:36 free 20 drop 20:54:34 D'ojh! free 30 not 20 :) 20:55:09 20 is the offset from the begining of the record where the 30 character nameSPACE is kept. 20:55:51 names ( rec# -- record_address 30 ) 20:56:38 names ( rec# -- record_name_address_offset, 30_character_space ) 20:59:14 * foxes adding comments on names 20:59:33 When TFIELD defines names it first creates a header with create that leaves an address.. 21:00:18 then the number 30 is OVER that address and stored HERE with , 21:00:58 then the address is DUP and stored in the 'next' HERE with , 21:02:16 then the duplicates are added together and left on the stack which is the field count. 21:07:29 http://forth.pastebin.ca/1587191 i wrote the static of Tfield when it create a new with: 2 30 TFIELD names 21:07:45 cool looking at it :) 21:10:01 --- quit: ASau (Read error: 104 (Connection reset by peer)) 21:10:53 --- join: ASau (n=user@ppp91-77-59-32.pppoe.mtu-net.ru) joined #forth 21:18:35 http://forth.pastebin.ca/1587205 <<--updated 21:19:23 yikes I got the first entry of 20 in wrong position 21:19:34 should be on top of stack not bottom D'OH 21:20:08 http://forth.pastebin.ca/1587209 <<--updated 21:21:59 that's cool 21:22:25 and the 2 in : 2 30 TFEILD names is from the first feild defined. 21:23:31 there is no 2. that 2 is in DFIELD? maybe? 21:23:48 I don't see a 2. :) 21:25:05 in .REC there is a 2 the number of spaces... 21:25:42 a offset of record 21:26:02 0 2 DFIELD TAG first 21:26:12 this leaved a 2 at last 21:26:30 looking... 21:30:09 --- join: gogonkt_ (n=info@59.38.201.187) joined #forth 21:30:49 --- quit: ASau (Read error: 54 (Connection reset by peer)) 21:31:29 --- join: ASau (n=user@ppp91-77-59-32.pppoe.mtu-net.ru) joined #forth 21:31:48 --- quit: gogonkt (Read error: 110 (Connection timed out)) 21:33:00 --- join: Al2O3 (n=Al2O3@c-24-9-43-112.hsd1.co.comcast.net) joined #forth 21:33:02 DFIELD creates an ID for each data record. each record is in a file and it 'TAG'ed with this ID 21:34:16 the tag number is something that is not directly accessible, I mean to say that parts of this program are created so that you can manipulate the DATA field of a record by using an integer to relate to the REC# and not the IDtag. 21:35:25 That is to say that the REC# and IDTag are related. Using this properly, you would increment the REC# and not the idTAG. 21:36:11 the idTAG gives each record ( and there can be several ) a way to create more data fields, or so I believe at this point. 21:36:58 nod 21:40:29 --- quit: segher ("Brain going into hibernation") 21:44:26 this database stuff is fascinating. 21:44:36 Thank you for the info, foxes. 21:45:04 :) 21:45:14 I really enjoy going thru forth code. It is like taking diffent paths thru a garden of lovely words. :) 21:45:44 I am going to load and run irssi and see if I can't tell what you are typing. :) 21:45:50 nod, it's worth to go deeper and deeper 21:46:09 Raystm2, what you need is a UTF-8 support :) 21:47:37 hmmm-- not even an option in this chat client. 21:50:21 --- join: Raystm2_ (n=Owner@c-24-8-232-212.hsd1.co.comcast.net) joined #forth 21:50:30 okay try it now. :) 21:50:55 。。。。 is for ..... 21:51:39 you needs chinese font, I think. 21:51:44 lol I get \u3002\u3002\u3002\u3002 21:51:44 .ng 21:51:46 --- nick: gogonkt_ -> gogonkt 21:52:12 hi gogonkt 21:52:13 哈哈 --》 hehe 21:52:48 * Raystm2 is using a windows client and irssi in cygwin. 21:52:48 --- quit: ASau (Read error: 104 (Connection reset by peer)) 21:53:04 [I] media-fonts/wqy-bitmapfont [I] media-fonts/wqy-zenhei 21:53:35 --- join: ASau (n=user@91.77.59.32) joined #forth 21:59:52 --- join: gogonkt_ (n=info@59.38.201.187) joined #forth 22:00:43 thank you gogonkt. :) I'm going to have to buck up and become a real programmer and get a real computer set up. /me still looking over gentoo index for that font 22:01:07 D'oh! found it. :) 22:01:44 Now to learn to see if it will work in Cygwin. 22:02:08 I suppose I could hook up my UBUNTU drive, currently not on the IDE cable... 22:06:38 good luck :) 22:07:39 Raystm2: http://wqy.sourceforge.net/en/ 22:11:34 --- quit: gogonkt (Read error: 110 (Connection timed out)) 22:14:50 --- quit: ASau (Read error: 131 (Connection reset by peer)) 22:15:20 --- join: ASau (n=user@91.77.59.32) joined #forth 22:21:59 ty :) 22:26:42 --- join: gogonkt (n=info@59.38.201.187) joined #forth 22:26:59 my windows box does all of the fonts correctly from that website and it's Chinese pages. It's just my client that I can't update. 22:27:41 lol I assume I'm seeing the correct font, being as I don't read Chinese, unfortunately. 22:28:00 closing irrsi 22:28:04 --- quit: Raystm2_ ("leaving") 22:28:16 any who... 22:32:51 --- quit: jauaor () 22:34:54 --- quit: ASau ("off") 22:35:46 which xterminal you used? 22:37:52 Raystm2, lol 22:39:19 --- quit: gogonkt_ (Read error: 110 (Connection timed out)) 22:41:49 gogonkt I'm not using a windowed terminal yet. 22:42:19 In ubuntu it came with a terminal but it escapes me now... 22:43:54 Gnome. 22:44:12 I believe it Gnome in the UBunto drive. 22:44:16 ubuntu 22:45:35 I'm sure the xTerminal is available for cygwin. 22:46:42 lol I shut irrsi because it's been years since i've used it and I forgot how. 22:46:56 :D 22:47:39 foxes, thanks for reminding me about the Forth Dimentions. it's been a long time for that too. 22:47:51 by the way, How can I define a names with "Flash" ? 22:47:56 never mind. 22:48:06 30 TFIELD names 22:48:17 s" Flash" names ? 22:49:02 or : s" Flash" input_name ? 22:50:14 no... you have to have a record ready, then... you would define a record name using input_name. 22:51:24 names should return two numbers, given a rec# and a name on the stack. 22:51:39 then? 22:51:41 then.. 22:51:42 :) 22:53:14 s" Flash" input_name <---- like this? 22:54:11 I lost the link to the program closing my browser. let me see if I can find it in the log. 22:55:20 thttp://forth.pastebin.ca/1587103 22:55:35 http://forth.pastebin.ca/1587103 22:55:54 ;) 22:57:25 input_name is ultimately dependant on the "ADDRESS" word, which requries you to have a "REC#" and an open file_descriptor called RECORD. 22:58:13 with out those, the testing of input_names has to he 'fudged'. 22:58:53 you don't want to execute "cmove update" in the test. 22:59:10 --- join: f[x] (n=user@95.133.28.17) joined #forth 22:59:19 you can temporarily give ADDRESS a dummy number. 23:00:04 --- join: gogonkt_ (n=info@59.38.201.187) joined #forth 23:00:50 --- quit: gogonkt (Read error: 104 (Connection reset by peer)) 23:01:20 ok, I will try on it. 23:01:30 names will give ROT MIN CMOVE UPDATE what to do with a name. 23:01:34 ROT MIN CMOVE will 23:01:37 well 23:01:44 update will update the disk 23:01:57 CMOVE will move the name into the record. 23:02:23 MIN will make sure that the name length is not more then 30 or it will truncate the name to 30 characters for you. 23:02:38 nod 23:02:47 I ran the db.fs 23:02:52 type: REC# @ . 0 ok 23:03:11 ROT will put the name count and the max name count on the top of the stack for the min test 23:03:46 nod 23:03:56 When MIN is done, you should have a string and modified count left on the stack. 23:04:07 SO 23:04:33 that means that names needs to return a count a string and a count to test 23:05:28 input_name( --u addr u ) ? 23:05:40 ummm... 23:06:54 input_names ( new_name_string count --- nothing other than an updated record on disk ) 23:07:10 input_names takes the same info that TYPE does. 23:07:23 nod 23:07:46 but, as type: s" Flash" input_name 23:08:06 it error. 23:08:59 if you comment out the cmove update, which you are not ready to test, I think you will get the return of a string and a count. 23:09:03 s" Flash" input_name 23:09:03 :4: Invalid memory address 23:09:03 s" Flash" >>>input_name<<< 23:09:03 Backtrace: 23:09:03 $7F11824A0970 cmove 23:09:34 cmove ( addr1 addr2 u -- ) 23:09:38 there is no ADDRESS or rather no record file 'OPEN" 23:09:55 okay okay ---- ty yes! 23:10:24 that second address is the file. 23:10:54 so , before the comve, I will got like this: addr_head(" Flash") addr_rec# u(5) 23:11:15 so before cmove there must be addr1(--the record) addr2-the string in pad and the length of the string. 23:11:40 I added the REC# to 1 and OPEN to something. 23:11:47 okay. :) 23:12:16 Don't let it update or cmove unless you have a record to write to. 23:12:37 I found, the difference between us is the cmove parameters order, I got addr2 addr1 u . but you got addr1 addr2 u. 23:12:57 Writing to an arbitrary address ( setting OPEN to wrong address that is ) could overwrite your memory. 23:13:09 your way is right. 23:14:07 I've got addr1 addr2 u , but cmove through me out an ERROR 23:15:05 ya, don't send to cmove because you have no address to write too unless you have a record open in the 'OPEN' word. 23:15:11 : tag#+ 0 READ TAG @ 1+ UPDATE DUP TAG ! READ ; <------- to added on record in db 23:16:47 i made it has something in 'OPEN'. gforth handle block in a different way, it make a block file, just like : blocks.fb by default 23:17:09 cool. cool. 23:17:59 :) 23:18:32 * Raystm2 has to look up what update and flusch do. 23:18:38 flush. 23:18:43 to be more exact. 23:19:21 : rec_flush .REC FLUSH ; <------ save the records? 23:19:30 ah ok 23:19:52 # 23:19:52 ya flush is defined as "save-buffers empty-buffers" 23:19:52 : input 23:19:52 # 23:19:52 tag#+ input_name rec_flush ; 23:20:15 and update is last-block @ ?dup IF 8 + on THEN ; 23:21:10 update just do a MARK job? 23:22:23 okay okay 23:22:35 manual says... 23:23:13 update marks block as dirty which I suppose means that it is flush-able. 23:23:23 flush does the update to disk 23:23:29 nod 23:23:31 update updates the buffer. 23:23:39 flush flushes the buffer. 23:23:41 ya 23:23:53 okay.. 23:24:07 * Raystm2 uses a machine forth that does none of this. lol :) 23:24:23 if I want to do that stuff, I have to invent it myself. :) 23:24:33 nod lol 23:25:17 One of My finally goals is to make a tiny chip based on forth system ( machine forth ) , and use it anywhere, anytime :) 23:25:38 or bring many old device into a new life. 23:25:52 :) 23:26:31 I used it to learn how computers work from the power-line cord to the display/keyboard/in-your-face-interface. 23:26:55 you had my dream came true for years!! .... :( 23:27:12 I'm still learning... long way to go. :) 23:27:26 :) 23:28:24 right now I'm reading Donald Knuth's "The Art Of Computer Programming" and I'm creating his assembler language simulator called "MIX" in a machineForth called colorForth. 23:28:56 I can load all of the registers and rotate them in several ways, so far. 23:29:55 too far :) 23:30:07 I'm working on MOVE command which requires the commands for math to do the addressing and the commands for comparison to do things like figure out when to stop MOVEing... 23:30:21 Indeed, too far. No Commercial Value. :) 23:30:52 and i'm poor and i'm ill and i may never earn money ever again... unless I learn something that is valuable. 23:31:17 You know, write a book , make money all at once instead of paydays. 23:31:33 that way, if my mind goes, my wife can still have money. 23:31:41 WHEN my mind goes. 23:31:49 * Raystm2 is not well. :) 23:32:10 I do this stuff so that I can tell when my mind goes. 23:32:32 sometimes I don't know the difference of when I'm in control of myself. 23:32:46 ok> testkey 23:32:46 Hit a key: f 23:32:46 (1) 102 The ASCII value=102 23:33:02 ok> testkey 23:33:02 Hit a key: 你 23:33:02 (1) 228 The ASCII value=228 23:33:32 confuse... 23:34:08 alt 228 returns S 23:34:53 你 = you' in chinese 23:35:01 lol no. 23:35:10 i'm not in chinese :) 23:35:20 I'm in bed. lol :) 23:35:27 :) 23:35:59 forth lack at unicode :( 23:36:12 oh! I understand. 23:37:40 ok, forth way is lack at all :), handle memory and display yourself 23:37:48 I've been to China. I've been to Hong Kong and Kowloon. 23:38:00 when? 23:38:10 yes that is right. 23:38:29 Oh, gosh.... 1982 -- summer 23:38:45 long time ago :) 23:39:01 Busiest place i've ever been was Hong Kong at rush hour. 23:39:22 I live in GuangDong, near Hongkong 23:39:22 and I've been to New York, but not Mexico City, so... 23:39:39 Beautiful place. 23:39:49 I love China. 23:39:50 --- nick: gogonkt_ -> gogonkt 23:39:57 I want to go back. :) 23:40:06 --- quit: Judofyr (Remote closed the connection) 23:40:16 but cn gov not lovely 23:40:19 :P 23:40:32 What gov is? 23:40:40 gov is ugly everywhere. 23:40:56 govenment 23:40:57 gov is people with more power then me getting things from me I will never have. 23:41:22 you are right 23:42:03 AND i'm the kind of guy that doesn't think that any human alive has any authority more then me or over me and I don't have it over anyone. 23:42:14 that gets me introuble with the law here. 23:42:50 I don't let a police officer do his job if he tries to have authority over me. 23:43:08 I went to jail. This is part of my illness. 23:43:17 I got out about a month ago. 23:44:20 I don't know if I believe in a GOD or not, but when it comes to the law and authority, I always use GOD as the authority and tell people that only GOD has authority over me. 23:45:28 Now, when police come, they don't arrest me, they take me to hospital. 23:45:46 I'm getting famous here for not a good mind all of the time. 23:45:54 --- quit: ENKI-][ (Read error: 110 (Connection timed out)) 23:46:04 lots of medications help me. 23:46:25 when I can afford them. hey this is the forth channel not CryWeb. 23:46:57 :D 23:47:24 One of my doctors studies the Medicinal Arts of the East. 23:48:10 Chinese medicine is getting more accepted here in US as time goes by. 23:49:24 I always thought it would be a good idea to represent a chinese factory here in the US. You know, be the American contact for a chinese company here in the states. 23:50:36 :D back to the question. 23:50:57 ?? looking back 23:51:12 back to forth 23:51:41 looking forth :) 23:51:56 hehe 23:52:07 :6: Invalid memory address $7FECEA6CC970 cmove 23:52:18 hmmm. 23:52:25 my program stopped at cmove 23:52:28 ya 23:52:34 seems it got a wrong parameters 23:52:41 it has been given ... yes 23:52:59 what other changes hmmm. 23:53:10 not just the file changes from block, I think... checking. 23:53:37 this program by Hayden is probably from the 80's 23:54:39 he has a word here .. line 82. demo --- I don't see a definition for that. 23:54:47 yes, an old article 23:55:16 things are a bit different in 80's depending when. 23:55:29 line: 56 23:55:31 in early 80's it was still forth79 23:55:34 200 ( number of records ) 400 ( starting block ) FILE demo ( file name ) 23:55:44 AH okay thank you. 23:56:01 demo is a file name 23:56:10 after load the db.fs 23:56:13 400 FILE demo 23:56:15 --- quit: malyn ("Disconnecting from stoned server.") 23:56:24 I bet file is different. 23:56:30 --- join: malyn (n=malyn@unaffiliated/malyn) joined #forth 23:56:56 I typed : tag#+ to increase the ID of record 23:57:00 gforth has file undefined. 23:57:01 tag#+ ok 23:57:02 .s <0> ok 23:57:02 rec# @ . 1 ok 23:57:02 open @ . 140655522007288 ok 23:57:11 --- join: ASau (n=user@host67-231-msk.microtest.ru) joined #forth 23:58:02 oh wait it's 200 400 FILE demo... File takes both numbers 23:58:10 140655522007288 is a file handler ? 23:58:23 I think so 23:58:28 I dont' think it is. 23:58:53 oh, 1 is a handler 23:59:01 OPEN , is a pointer to file. 23:59:08 doh! file is defined in this file 23:59:19 yes then open is a fd. 23:59:21 1 is a REC# handle, means the first record. 23:59:59 --- log: ended forth/09.09.30