00:00:00 --- log: started forth/09.10.24 00:05:26 --- join: probonono (n=User@unaffiliated/probonono) joined #forth 00:06:18 --- nick: gogonkt_ -> gogonkt 00:15:11 --- part: TR2N left #forth 00:34:06 --- join: kar8nga (n=kar8nga@jol13-1-82-66-176-74.fbx.proxad.net) joined #forth 00:56:37 --- quit: kar8nga (Remote closed the connection) 01:03:33 --- join: kar8nga (n=kar8nga@82.66.176.74) joined #forth 02:17:40 --- quit: kar8nga (Remote closed the connection) 03:22:04 --- join: kar8nga (n=kar8nga@jol13-1-82-66-176-74.fbx.proxad.net) joined #forth 03:50:07 --- join: neceve (n=ncv@unaffiliated/neceve) joined #forth 05:18:17 --- join: ASau (n=user@ppp91-77-56-201.pppoe.mtu-net.ru) joined #forth 05:20:51 --- quit: ASau (Read error: 104 (Connection reset by peer)) 05:21:21 --- join: ASau (n=user@ppp91-77-56-201.pppoe.mtu-net.ru) joined #forth 05:28:47 --- quit: ASau (Read error: 104 (Connection reset by peer)) 05:31:28 --- join: ASau (n=user@ppp91-77-56-201.pppoe.mtu-net.ru) joined #forth 05:33:44 --- join: DrunkTomato (n=DEDULO@ext-gw.wellcom.tomsk.ru) joined #forth 05:39:37 --- join: ASau` (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 05:41:39 --- quit: ASau` (Client Quit) 05:42:20 --- quit: ASau (Read error: 104 (Connection reset by peer)) 05:51:58 --- join: dandersen (n=dkcl@metabug/dandersen) joined #forth 06:04:30 --- join: gogonkt_ (n=info@113.69.187.125) joined #forth 06:10:43 --- join: _mathrick (n=mathrick@130.226.70.177) joined #forth 06:10:50 --- quit: mathrick (Read error: 131 (Connection reset by peer)) 06:14:16 --- quit: neceve (Read error: 110 (Connection timed out)) 06:16:27 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 06:26:42 --- quit: gogonkt (Read error: 110 (Connection timed out)) 06:28:11 --- nick: _mathrick -> mathrick 06:28:13 --- nick: gogonkt_ -> gogonkt 06:29:06 --- quit: ASau (Read error: 104 (Connection reset by peer)) 06:29:31 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 06:30:45 --- nick: dandersen -> dkcl 06:48:17 --- join: neceve (n=ncv@unaffiliated/neceve) joined #forth 06:54:34 --- join: I440r (n=me@c-69-136-171-118.hsd1.in.comcast.net) joined #forth 06:57:35 --- quit: ASau (Read error: 104 (Connection reset by peer)) 06:58:12 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 07:08:58 --- quit: ASau (Read error: 54 (Connection reset by peer)) 07:09:50 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 07:10:15 --- quit: kar8nga (Remote closed the connection) 07:13:56 --- quit: ASau (Read error: 104 (Connection reset by peer)) 07:14:33 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 07:21:51 --- quit: ASau (Read error: 104 (Connection reset by peer)) 07:22:31 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 07:25:55 --- quit: ASau (Read error: 104 (Connection reset by peer)) 07:26:40 --- join: ASau (n=user@91.76.59.112) joined #forth 07:32:40 --- quit: ASau (Read error: 131 (Connection reset by peer)) 07:33:21 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 07:42:13 --- quit: ygrek (Remote closed the connection) 07:42:13 --- quit: ASau (Read error: 54 (Connection reset by peer)) 07:43:01 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 07:43:25 --- join: ygrek (i=user@gateway/gpg-tor/key-0x708D5A0C) joined #forth 07:54:19 --- quit: ASau (Read error: 104 (Connection reset by peer)) 07:55:07 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 07:56:22 --- quit: ASau (Read error: 104 (Connection reset by peer)) 07:57:28 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 08:10:19 --- quit: ASau (Read error: 104 (Connection reset by peer)) 08:13:02 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 08:18:37 --- quit: ASau (Read error: 104 (Connection reset by peer)) 08:19:11 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 08:27:01 --- join: gogonkt_ (n=info@113.69.187.125) joined #forth 08:38:32 --- quit: ASau (Read error: 104 (Connection reset by peer)) 08:39:17 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 08:41:47 --- quit: ASau (Read error: 104 (Connection reset by peer)) 08:43:55 --- join: kar8nga (n=kar8nga@jol13-1-82-66-176-74.fbx.proxad.net) joined #forth 08:50:41 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 08:54:27 --- join: bogen (n=bogen@cpe-76-186-22-145.tx.res.rr.com) joined #forth 08:54:35 --- join: segher (n=segher@84-105-60-153.cable.quicknet.nl) joined #forth 09:00:40 --- quit: ASau (Read error: 104 (Connection reset by peer)) 09:03:21 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 09:11:46 --- quit: ASau (Read error: 54 (Connection reset by peer)) 09:12:25 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 09:22:55 --- quit: gogonkt_ ("leaving") 09:22:55 --- quit: ASau (Read error: 104 (Connection reset by peer)) 09:23:32 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 09:30:19 --- quit: ASau (Read error: 104 (Connection reset by peer)) 09:33:08 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 09:43:49 --- quit: ASau (Read error: 54 (Connection reset by peer)) 09:44:16 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 10:02:55 --- quit: ASau (Read error: 54 (Connection reset by peer)) 10:03:28 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 10:07:55 --- quit: ASau (Read error: 54 (Connection reset by peer)) 10:08:35 --- join: ASau (n=user@91.76.59.112) joined #forth 10:15:44 --- quit: ASau (Read error: 131 (Connection reset by peer)) 10:16:20 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 10:30:01 --- quit: ASau (Read error: 104 (Connection reset by peer)) 10:30:58 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 10:32:20 --- quit: ASau (Read error: 104 (Connection reset by peer)) 10:33:27 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 10:36:27 --- quit: ASau (Read error: 104 (Connection reset by peer)) 10:39:19 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 10:41:47 --- quit: ygrek (Remote closed the connection) 10:45:21 --- quit: ASau (Read error: 104 (Connection reset by peer)) 10:46:06 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 10:52:23 --- quit: ASau (Read error: 104 (Connection reset by peer)) 10:53:26 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 11:15:00 --- quit: ASau (Read error: 104 (Connection reset by peer)) 11:15:36 --- join: ASau (n=user@91.76.59.112) joined #forth 11:23:21 --- join: GeDaMo (n=gedamo@212.225.108.57) joined #forth 11:24:32 --- nick: dkcl -> dandersen 11:25:52 --- join: tathi (n=josh@dsl-216-227-91-166.fairpoint.net) joined #forth 11:26:41 --- quit: ASau (Read error: 131 (Connection reset by peer)) 11:27:19 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 11:38:20 --- quit: ASau (Read error: 104 (Connection reset by peer)) 11:39:01 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 11:40:30 --- quit: ASau (Read error: 104 (Connection reset by peer)) 11:41:02 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 11:45:23 --- join: TR2N (i=email@89.180.139.23) joined #forth 11:52:52 --- quit: ASau (Read error: 54 (Connection reset by peer)) 11:53:40 --- join: ASau (n=user@91.76.59.112) joined #forth 11:56:27 --- quit: ASau (Connection reset by peer) 11:56:36 --- quit: malyn ("Disconnecting from stoned server.") 11:56:52 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 11:59:35 --- quit: ASau (Read error: 104 (Connection reset by peer)) 12:00:03 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 12:04:22 --- join: malyn (n=malyn@unaffiliated/malyn) joined #forth 12:04:22 --- quit: ASau (Read error: 104 (Connection reset by peer)) 12:05:06 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 12:06:26 --- quit: madgarden ("Leaving") 12:08:48 --- join: madgarden (n=madgarde@CPE001d7e527f89-CM00159a65a870.cpe.net.cable.rogers.com) joined #forth 12:10:25 --- quit: ASau (Read error: 104 (Connection reset by peer)) 12:11:15 --- join: ASau (n=user@91.76.59.112) joined #forth 12:22:39 --- quit: ASau (Read error: 131 (Connection reset by peer)) 12:23:27 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 12:24:57 --- quit: ASau (Read error: 104 (Connection reset by peer)) 12:25:34 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 12:27:08 --- quit: ASau (Read error: 104 (Connection reset by peer)) 12:27:39 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 12:30:20 --- quit: ASau (Read error: 104 (Connection reset by peer)) 12:30:48 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 12:35:39 --- quit: ASau (Read error: 104 (Connection reset by peer)) 12:38:21 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 12:39:47 --- nick: dandersen -> dkcl 12:39:47 --- quit: ASau (Read error: 104 (Connection reset by peer)) 12:42:27 --- join: ASau (n=user@91.76.59.112) joined #forth 12:51:58 --- quit: ASau (Read error: 131 (Connection reset by peer)) 12:52:41 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 12:56:05 --- quit: ASau (Read error: 104 (Connection reset by peer)) 12:56:50 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 13:01:50 --- quit: ASau (Read error: 54 (Connection reset by peer)) 13:02:35 --- join: ASau (n=user@ppp91-76-59-112.pppoe.mtu-net.ru) joined #forth 13:05:33 --- quit: ASau (Read error: 104 (Connection reset by peer)) 13:09:47 --- quit: DrunkTomato () 13:17:41 --- quit: pgas ("/quit") 13:28:44 --- quit: kar8nga (Remote closed the connection) 13:34:09 how can I display word name? e.g. : .self ." .self" ; 13:36:49 I don't think there's any standard way 13:37:33 can't do that? 13:38:32 You want to display the name of a defined word? 13:38:47 no he wants a word class that when its executed it displays its own name 13:40:11 yah 13:40:17 :) 13:40:59 : .self create last @ , does> ..... ; 13:41:10 .self blah 13:41:12 .self foo 13:41:37 what comes after the "does>" part would be easy in isforth 13:41:39 last? 13:41:39 .id 13:41:58 last is a variable that holds a pointer to the most recently defined words name 13:42:37 so maybe something like .self create last @ , does> @ .id ; 13:42:38 Address of variable holding the address of the most recently defined dictionary entry 13:43:02 well 13:43:14 if you reference last between : and the subsequent ; your fine 13:43:29 lastxt ( -- n ) Same as "last @ >xt @" :D 13:43:38 nice word 13:43:52 in reva 13:44:02 you cannot guarantee the contents of the variable last once a definition has been completed 13:44:26 mh... 13:44:38 : .id ( nfa --- ) count mask and type ; 13:44:58 --- part: bogen left #forth 13:44:59 the mask is needed and its value depends on how many bits of a nfa's count byte are for the name length 13:45:01 mask ? 13:45:07 and how many are for lex bits 13:45:15 no mask here :( 13:45:23 im making it up 13:45:29 you need to define the value of mask 13:45:46 SOME bits in the NFA's count byte will be used as flags 13:45:55 usually to flag a word as being immediate or not 13:46:04 whatever bits your particular forth uses you have to mask out 13:46:10 in isforth mask would be $3f 13:46:14 mask and do decode wors own name? 13:46:31 you cannot take an NFA and do count type 13:46:44 because the NFA count byt is used to flag a word as immediate 13:46:54 in isforth thers another bit to flag it as being an alias or not 13:47:08 so you have to mask those bits out of the NFA's count byte 13:47:58 Also, older forths may store only a prefix and a word length, making recovering the name impossible. 13:48:39 prefix meaning only the first N bytes of the name 13:48:50 in retro: macro: .self last @ d->name literal, ` type ; 13:49:10 "execute" might have an nfa of db 6,'exe' 13:49:24 i.e. its a word whose name has 6 characters, the first three of which are "exe" 13:50:04 crcx, that word just displays its own name. 13:50:14 .self is suppsed to create words which display their own names 13:50:36 executing .self in your example would be like : .self ." .self" ; 13:50:39 @_@ 13:50:40 not what he was looking for 13:50:46 Oh, that you could do in standard forth I think. 13:51:10 : .self create last @ , does> @ display name at nfa at top of stack ; 13:51:31 last in that defintion would point to the nfa of the word created BY .self 13:51:34 .self foo 13:51:37 foo foo ok 13:51:41 .self bar 13:51:43 bar bar ok 13:51:48 no 13:52:09 I mean: .self 13:52:16 .self ok 13:52:38 thats silly,. just define .self as : .self ." .self" ; 13:53:03 oh.... 13:53:06 no need to futz around looking at your own NFA if all your going to display is ." .self" 13:53:14 you could say : blah ." .self" ; 13:53:16 ok hoho 13:54:01 the definition i described was a technique used in the disassembler supplied with FPC to do disassembly with 13:54:14 all mnemonics were .self words 13:58:51 I440r: my word is a compiler macro that lays down the code to display the name of its caller 13:58:59 I trying to let input method word conversion table explane itself 13:59:15 e.g. 13:59:19 crc aha 13:59:33 %%ename Noseeing # 081019 13:59:49 %selkey 1234567890 13:59:50 (Please forgive lag time; I'm on a train using my email->irc bridge at present) 14:00:16 crc lol your hardcore :) 14:00:16 email->irc bridge @_@ 14:02:50 This bridge has served me well over the last year, though lag time remains a problem. 14:04:25 but I don't know how to let content between '%keyname begin .... %keyname end' insert to a list or do something 14:06:51 On the plus side, this blackberry runs the latest retro build, has the irc->email bridge (benefit: wastes no battery life on the device), so I can code on the go. 14:31:42 --- join: dkcl` (n=dkcl@metabug/dandersen) joined #forth 14:33:04 : .self save-input create restore-input drop bl word here over c@ 1+ dup allot cmove does> count type ; 14:36:16 --- quit: dkcl (Read error: 104 (Connection reset by peer)) 14:40:06 --- nick: dkcl` -> dkcl 14:45:19 --- quit: dkcl (Read error: 54 (Connection reset by peer)) 14:47:50 Somehow that just feels inelegant 14:48:27 It only uses words from the standard 14:48:35 I don't claim it's pretty :P 14:50:50 I don't code for ANS, only for specific systems 14:59:55 howto code 'begin' to save between "%keyname begin" ~ "%keyname end" to '%keyname' http://dpaste.com/111499/ 15:02:09 gogonkt: what is it you're trying to do? 15:02:42 store it to a buffer 15:03:18 content between "%keyname begin" to "%keyname end" 15:04:59 contents 15:26:33 --- quit: qFox ("Time for cookies!") 15:29:40 Orz... 15:29:43 : begin '" parse/ (") ; 15:29:51 : end "" ; 15:30:00 dont work 15:59:27 --- quit: GeDaMo ("Leaving.") 16:01:24 --- join: dandersen (n=dkcl@16.66.218.87.dynamic.jazztel.es) joined #forth 16:08:49 --- nick: dandersen -> dkcl 16:12:56 --- quit: dkcl ("leaving") 16:57:57 --- part: TR2N left #forth 17:15:53 --- quit: foxLaptop (Read error: 104 (Connection reset by peer)) 17:53:04 --- quit: tathi ("leaving") 18:36:35 --- quit: Al2O3 () 20:03:10 --- quit: neceve (Remote closed the connection) 20:12:59 --- join: LOOP-HOG (n=jasondam@c-67-180-60-243.hsd1.ca.comcast.net) joined #forth 20:14:26 --- quit: segher ("This computer has gone to sleep") 22:06:29 fumble 22:46:35 --- join: pgas (n=user@pdpc/supporter/active/pgas) joined #forth 23:07:18 --- quit: LOOP-HOG (Read error: 104 (Connection reset by peer)) 23:41:53 --- join: LOOP-HOG (n=jasondam@c-67-180-60-243.hsd1.ca.comcast.net) joined #forth 23:41:54 --- join: ygrek (i=user@gateway/gpg-tor/key-0x708D5A0C) joined #forth 23:54:09 --- quit: LOOP-HOG () 23:56:52 --- join: aguai_ (n=aguai@114-24-241-233.dynamic.hinet.net) joined #forth 23:59:59 --- log: ended forth/09.10.24