00:00:00 --- log: started forth/21.01.15 00:05:40 --- join: newuser|29 joined #forth 00:26:07 --- join: xek joined #forth 00:28:16 Hi everyone. I'm using PFE Forth, and I'm wondering if there's a way to create a word if a word of an input buffer was already consumed and on the stack. The $HEADER creates a word which already has a DOVAR CFA, and the HEADER, creates a word withouth a CFA but I don't know how to compile in, for example, the DOCOL at HERE. 00:28:47 I'm trying to create code looking like "DEFINE( FOO BAR BAZ )", and have FOO, BAR and BAZ words created with some specific code, without doing something like "DEFINE: FOO DEFINE: BAR DEFINE: BAZ". 00:28:57 In the latter case, I can easily use CREATE/DOES>, but in the former case I need to parse words until the end delimiter, creating definitions as I go along. Thanks! 00:30:35 --- quit: proteusguy (Ping timeout: 264 seconds) 00:42:54 --- join: proteusguy joined #forth 00:42:54 --- mode: ChanServ set +v proteusguy 01:00:14 --- quit: proteus-guy (Ping timeout: 260 seconds) 03:00:34 --- quit: cantstanya (Remote host closed the connection) 03:27:24 --- join: cantstanya joined #forth 04:35:55 --- quit: gravicappa (Ping timeout: 256 seconds) 04:49:31 --- quit: iyzsong (Quit: ZNC 1.7.5 - https://znc.in) 04:50:20 --- join: iyzsong joined #forth 05:00:22 --- join: jn__ joined #forth 05:30:33 --- join: gravicappa joined #forth 06:49:32 newuser|29: I'm not experienced enough yet in forth to give a direct answer to your question, but I think chapter 6 in the Forth Programmer's Handbook (3rd ed.) would give you all the information you need, with information on parsing the input stream, compiler conditional words, and how to make compiler directives with immediate/postpone 07:25:16 lispmacs: thanks for the pointer, I'm going to take a look. 07:51:00 --- quit: dave0 (Quit: dave's not here) 08:28:11 --- quit: newuser|29 (Ping timeout: 264 seconds) 09:13:33 --- quit: xek (Quit: Leaving) 09:17:58 --- join: WickedShell joined #forth 10:35:54 --- quit: gravicappa (Ping timeout: 256 seconds) 10:38:00 --- join: gravicappa joined #forth 10:57:38 --- quit: gravicappa (Ping timeout: 240 seconds) 11:47:47 --- quit: Vedran (Ping timeout: 246 seconds) 11:48:59 --- join: Vedran joined #forth 14:01:40 --- join: Zarutian_HTC joined #forth 14:40:58 --- quit: siraben (Ping timeout: 246 seconds) 14:56:52 --- join: siraben joined #forth 14:58:13 --- quit: pointfree (Ping timeout: 268 seconds) 14:58:34 --- quit: crc (Read error: Network is unreachable) 14:58:45 --- join: crc joined #forth 14:59:30 --- join: pointfree joined #forth 15:02:09 --- quit: rann (Read error: Connection reset by peer) 15:02:39 --- join: rann joined #forth 15:21:14 --- quit: irsol (*.net *.split) 15:21:14 --- quit: ornxka (*.net *.split) 15:21:14 --- quit: routeveg (*.net *.split) 15:21:40 --- join: irsol_ joined #forth 15:21:53 --- join: ornxka joined #forth 15:22:00 --- nick: irsol_ -> irsol 15:26:30 --- join: routeveg joined #forth 17:38:26 --- mode: ChanServ set +v crc 18:29:27 --- quit: Zarutian_HTC (Remote host closed the connection) 18:31:12 --- quit: WickedShell (Remote host closed the connection) 18:36:25 --- quit: _whitelogger (Remote host closed the connection) 18:39:20 --- join: _whitelogger joined #forth 18:43:18 --- join: boru` joined #forth 18:43:20 --- quit: boru (Disconnected by services) 18:43:23 --- nick: boru` -> boru 20:42:59 --- join: dave0 joined #forth 21:00:48 --- quit: sts-q (Ping timeout: 272 seconds) 21:02:44 --- join: sts-q joined #forth 21:12:09 --- join: gravicappa joined #forth 21:42:14 --- quit: dave0 (Quit: dave's not here) 21:47:29 --- quit: cantstanya (Remote host closed the connection) 21:49:48 --- join: cantstanya joined #forth 22:02:31 --- quit: cantstanya (Remote host closed the connection) 22:04:52 --- join: cantstanya joined #forth 23:32:33 --- join: dave0 joined #forth 23:59:59 --- log: ended forth/21.01.15