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


Groups > comp.lang.forth > #28476

Re: Pass a name string to a CREATE DOES> via user input

From Gerry Jackson <gerry@jackson9000.fsnet.co.uk>
Newsgroups comp.lang.forth
Subject Re: Pass a name string to a CREATE DOES> via user input
Date 2014-02-16 08:01 +0000
Organization A noiseless patient Spider
Message-ID <ldpr9b$dr9$1@dont-email.me> (permalink)
References (2 earlier) <1e94936c-d351-4f62-96ba-8cc2ff41e2ab@googlegroups.com> <ldkihi$bj$1@dont-email.me> <ec3ab26b-c71a-4b9f-8765-cf1ccc2c160b@googlegroups.com> <ldor6t$2e5$1@dont-email.me> <wbj4vuuadlie$.13fu0wp3cxcq2.dlg@40tude.net>

Show all headers | View raw


On 15/02/2014 23:24, Coos Haak wrote:
> Op Sat, 15 Feb 2014 22:54:39 +0000 schreef Gerry Jackson:
>
>> On 15/02/2014 19:16, hank.lenzi@gmail.com wrote:
>>>
>>>>
>>>> : -leading  ( caddr u -- caddr' u' )
>>>>
>>>>       begin dup while over c@ bl <= while 1 /string repeat then
>>>>
>>>> ;
>>>>
>>>>
>>>>
>>>> s"       Hello" cr 2dup type -leading cr type
>>>>
>>>>          Hello
>>>
>>> Hello, Gerry --
>>>
>>> I get an access violation, both on SwiftForth and VFX Forth.
>>>
>>> -- Hank Lenzi
>>>
>>>
>>
>> Strange, it works for me on Swiftforth, VFX Forth, GForth, Win32 Forth
>> and ...
>
> Perhaps forgotten the THEN after REPEAT (resolving the second WHILE)
>

More likely he omitted the 2DUP before the first TYPE in the test line 
which did indeed give an access violation in SwiftForth when I tried it, 
but 'stack underflow' in VFX Forth.

-- 
Gerry

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


Thread

Pass a name string to a CREATE DOES> via user input hank.lenzi@gmail.com - 2014-02-12 17:50 -0800
  Re: Pass a name string to a CREATE DOES> via user input "Elizabeth D. Rather" <erather@forth.com> - 2014-02-12 16:01 -1000
    Re: Pass a name string to a CREATE DOES> via user input Julian Fondren <julian.fondren@gmail.com> - 2014-02-12 18:14 -0800
      Re: Pass a name string to a CREATE DOES> via user input "Elizabeth D. Rather" <erather@forth.com> - 2014-02-12 16:36 -1000
    Re: Pass a name string to a CREATE DOES> via user input Mark Wills <markrobertwills@yahoo.co.uk> - 2014-02-13 00:42 -0800
      Re: Pass a name string to a CREATE DOES> via user input Elizabeth D Rather <erather@forth.com> - 2014-02-12 22:55 -1000
  Re: Pass a name string to a CREATE DOES> via user input Gerry Jackson <gerry@jackson9000.fsnet.co.uk> - 2014-02-13 23:56 +0000
    Re: Pass a name string to a CREATE DOES> via user input hank.lenzi@gmail.com - 2014-02-13 18:20 -0800
      Re: Pass a name string to a CREATE DOES> via user input Gerry Jackson <gerry@jackson9000.fsnet.co.uk> - 2014-02-14 08:02 +0000
        Re: Pass a name string to a CREATE DOES> via user input "Elizabeth D. Rather" <erather@forth.com> - 2014-02-13 22:18 -1000
          Re: Pass a name string to a CREATE DOES> via user input Gerry Jackson <gerry@jackson9000.fsnet.co.uk> - 2014-02-14 10:37 +0000
            Re: Pass a name string to a CREATE DOES> via user input "Elizabeth D. Rather" <erather@forth.com> - 2014-02-14 09:53 -1000
              Re: Pass a name string to a CREATE DOES> via user input Gerry Jackson <gerry@jackson9000.fsnet.co.uk> - 2014-02-14 22:16 +0000
          Re: Pass a name string to a CREATE DOES> via user input albert@spenarnc.xs4all.nl (Albert van der Horst) - 2014-02-14 12:17 +0000
        Re: Pass a name string to a CREATE DOES> via user input hank.lenzi@gmail.com - 2014-02-15 11:16 -0800
          Re: Pass a name string to a CREATE DOES> via user input Gerry Jackson <gerry@jackson9000.fsnet.co.uk> - 2014-02-15 22:54 +0000
            Re: Pass a name string to a CREATE DOES> via user input Coos Haak <chforth@hccnet.nl> - 2014-02-16 00:24 +0100
              Re: Pass a name string to a CREATE DOES> via user input Gerry Jackson <gerry@jackson9000.fsnet.co.uk> - 2014-02-16 08:01 +0000
          Re: Pass a name string to a CREATE DOES> via user input "Elizabeth D. Rather" <erather@forth.com> - 2014-02-15 16:27 -1000
            Re: Pass a name string to a CREATE DOES> via user input Gerry Jackson <gerry@jackson9000.fsnet.co.uk> - 2014-02-16 08:21 +0000
          Re: Pass a name string to a CREATE DOES> via user input stephenXXX@mpeforth.com (Stephen Pelc) - 2014-02-16 10:58 +0000
    Re: Pass a name string to a CREATE DOES> via user input "Elizabeth D. Rather" <erather@forth.com> - 2014-02-13 18:28 -1000

csiph-web