Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #39621

Re: \s

From Bernd Paysan <bernd.paysan@gmx.de>
Newsgroups comp.lang.forth
Subject Re: \s
Date 2015-06-08 01:10 +0200
Organization A noiseless patient Spider
Message-ID <ml2itv$vnl$1@dont-email.me> (permalink)
References (3 earlier) <mkgkdf$du5$1@speranza.aioe.org> <14ebtzhv4ssat$.5yjqqz1glfud$.dlg@40tude.net> <mklqr2$is4$1@speranza.aioe.org> <mkn3g9$94f$1@dont-email.me> <mks1qc$rsr$1@speranza.aioe.org>

Show all headers | View raw

HAA wrote:
>> Block remainder skipping is usually called \\, but Gforth doesn't have
>> it, because very few people use blocks ;-).
> 
> Blocks are still in 200x ?

Yes.  It always was an optional wordset, but we managed as last-minute 
change to drop the "if you have the file wordset, you also must have the 
block wordset" from ANS Forth.

So you now can have a standard Forth without block wordset, but the standard 
file wordset.

>> Implementation is trivial, though.
> 
> Agreed
> 
> : \\
>     is-current-source-a-text-file? if
>         begin refill 0= until
>     else  ( keyboard, block file or Evaluate)
>         source >in ! drop
>     then ;  immediate

I've a block->file converter, which emits a linefeed character at the end of 
each block (in an empty line).  I'd then implement \\ to skip until that 
linefeed character, so that you simply can convert a block file into a 
stream file, and it still works including all \\ comments.

If you don't have a linefeed in your file, it will then end the current 
file.

-- 
Bernd Paysan
"If you want it done right, you have to do it yourself"
net2o ID: kQusJzA;7*?t=uy@X}1GWr!+0qqp_Cn176t4(dQ*
http://bernd-paysan.de/

Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

\s josv@planet.nl - 2015-05-30 07:41 -0700
  Re: \s hughaguilar96@gmail.com - 2015-05-30 09:01 -0700
    Re: \s josv@planet.nl - 2015-05-30 09:59 -0700
      Re: \s hughaguilar96@gmail.com - 2015-05-30 11:45 -0700
        Re: \s josv@planet.nl - 2015-05-30 13:06 -0700
  Re: \s Gerry Jackson <gerry@jackson9000.fsnet.co.uk> - 2015-05-30 20:32 +0100
    Re: \s hughaguilar96@gmail.com - 2015-05-31 21:48 -0700
      Re: \s Gerry Jackson <gerry@jackson9000.fsnet.co.uk> - 2015-06-01 08:27 +0100
      Re: \s hughaguilar96@gmail.com - 2015-06-09 17:11 -0700
        Re: \s josv@planet.nl - 2015-06-10 04:03 -0700
  Re: \s Coos Haak <chforth@hccnet.nl> - 2015-05-30 22:42 +0200
  Re: \s Coos Haak <chforth@hccnet.nl> - 2015-05-30 22:40 +0200
    Re: \s josv@planet.nl - 2015-05-30 14:12 -0700
    Re: \s "HAA" <someone@microsoft.com> - 2015-06-03 15:10 +1000
      Re: \s Coos Haak <chforth@hccnet.nl> - 2015-06-03 13:58 +0200
        Re: \s "HAA" <someone@microsoft.com> - 2015-06-05 21:42 +1000
  Re: \s albert@spenarnc.xs4all.nl (Albert van der Horst) - 2015-05-31 14:46 +0000
    Re: \s josv@planet.nl - 2015-05-31 09:38 -0700
      Re: \s albert@spenarnc.xs4all.nl (Albert van der Horst) - 2015-06-01 10:58 +0000
  Re: \s Gerry Jackson <gerry@jackson9000.fsnet.co.uk> - 2015-05-31 21:04 +0100
    Re: \s Bernd Paysan <bernd.paysan@gmx.de> - 2015-05-31 22:14 +0200
      Re: \s "HAA" <someone@microsoft.com> - 2015-06-01 13:44 +1000
        Re: \s Coos Haak <chforth@hccnet.nl> - 2015-06-01 12:17 +0200
          Re: \s "HAA" <someone@microsoft.com> - 2015-06-03 12:55 +1000
            Re: \s Bernd Paysan <bernd.paysan@gmx.de> - 2015-06-03 16:39 +0200
              Re: \s "HAA" <someone@microsoft.com> - 2015-06-05 21:36 +1000
                Re: \s Coos Haak <chforth@hccnet.nl> - 2015-06-05 13:54 +0200
                Re: \s "HAA" <someone@microsoft.com> - 2015-06-13 16:20 +1000
                Re: \s coos <chforth@hccnet.nl> - 2015-06-13 21:34 +0200
                Re: \s "Alex McDonald" <blog@rivadpm.com> - 2015-06-16 20:51 +0100
                Re: \s Mark Wills <markwills1970@gmail.com> - 2015-06-17 01:06 -0700
                Re: \s coos <chforth@hccnet.nl> - 2015-06-17 16:15 +0200
                Re: \s coos <chforth@hccnet.nl> - 2015-06-17 16:28 +0200
                Re: \s Bernd Paysan <bernd.paysan@gmx.de> - 2015-06-08 01:10 +0200
                Re: \s anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2015-06-08 07:56 +0000
                Re: \s Bernd Paysan <bernd.paysan@gmx.de> - 2015-06-08 17:12 +0200
                Re: \s "HAA" <someone@microsoft.com> - 2015-06-09 17:53 +1000
                Re: \s Bernd Paysan <bernd.paysan@gmx.de> - 2015-06-09 23:40 +0200
                Re: \s hughaguilar96@gmail.com - 2015-06-13 22:46 -0700
                Re: \s coos <chforth@hccnet.nl> - 2015-06-14 17:01 +0200
                Re: \s hughaguilar96@gmail.com - 2015-06-14 10:32 -0700
                Re: \s coos <chforth@hccnet.nl> - 2015-06-14 17:00 +0200
            Re: \s Mark Wills <markwills1970@gmail.com> - 2015-06-05 05:13 -0700
              Re: \s Coos Haak <chforth@hccnet.nl> - 2015-06-05 14:37 +0200
                Re: \s Mark Wills <markwills1970@gmail.com> - 2015-06-05 10:28 -0700
      Re: \s "HAA" <someone@microsoft.com> - 2015-06-09 17:51 +1000

csiph-web