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

Groups > comp.lang.forth > #33761

Re: Can every Forth do this?

Show all headers | View raw

Would this be something along the lines of what you are trying to do ?

: typ  ( a b name -- )
	create , , ( [id] [space] )
	does>
		create
		dup @ ,
		here ,
		cell+ @ dup , chars allot
		does> 2 cells +
	;

: does ( xt -- n ) 2 cells - @ ;

\ create some typ s
1  1 typ chr
2  2 typ sint
4  3 typ inte
8  4 typ lint
8  5 typ flt
10 6 typ dbl

\ define using type
chr  AA
sint BB
inte CC
lint DD
flt  EE
dbl  FF

\ get type through child via does
\ just checking what space I have allotted
cr cr
cr aa . aa @ . aa lcount . . aa does .
cr bb . bb @ . bb lcount . . bb does .
cr cc . cc @ . cc lcount . . cc does .
cr dd . dd @ . dd lcount . . dd does .
cr ee . ee @ . ee lcount . . ee does .
cr ff . ff @ . ff lcount . . ff does .

\ get 'n' through words created using typ
cr cr
cr ' chr  >body @ .
cr ' sint >body @ .
cr ' inte >body @ .
cr ' lint >body @ .
cr ' flt  >body @ .
cr ' dbl  >body @ .


If not then I don't think I have understood the intention and I will leave it for others. 

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

Thread

Can every Forth do this? JennyB <jennybrien@googlemail.com> - 2014-10-07 07:33 -0700
  Re: Can every Forth do this? Roger Levy <roger.levy@gmail.com> - 2014-10-07 08:58 -0700
  Re: Can every Forth do this? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2014-10-07 16:16 +0000
    Re: Can every Forth do this? november.nihal@gmail.com - 2014-10-08 06:17 -0700
      Re: Can every Forth do this? Mark Wills <markwills1970@gmail.com> - 2014-10-08 09:55 -0700
      Re: Can every Forth do this? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2014-10-09 15:26 +0000
        Re: Can every Forth do this? Gerry Jackson <gerry@jackson9000.fsnet.co.uk> - 2014-10-09 19:42 +0100
  Re: Can every Forth do this? albert@spenarnc.xs4all.nl (Albert van der Horst) - 2014-10-07 18:16 +0000
    Re: Can every Forth do this? Jason Damisch <jasondamisch@yahoo.com> - 2014-10-07 11:32 -0700
    Re: Can every Forth do this? Mark Wills <markwills1970@gmail.com> - 2014-10-07 14:27 -0700
      Re: Can every Forth do this? "Elizabeth D. Rather" <erather@forth.com> - 2014-10-07 13:38 -1000
        Re: Can every Forth do this? Mark Wills <markwills1970@gmail.com> - 2014-10-07 20:21 -0700
        Re: Can every Forth do this? albert@spenarnc.xs4all.nl (Albert van der Horst) - 2014-10-08 11:33 +0000
          Re: Can every Forth do this? JennyB <jennybrien@googlemail.com> - 2014-10-08 06:25 -0700
            Re: Can every Forth do this? november.nihal@gmail.com - 2014-10-08 08:14 -0700
              Re: Can every Forth do this? Mark Wills <markwills1970@gmail.com> - 2014-10-08 10:10 -0700
                Re: Can every Forth do this? JennyB <jennybrien@googlemail.com> - 2014-10-08 11:42 -0700
                Re: Can every Forth do this? Roger Levy <roger.levy@gmail.com> - 2014-10-08 12:31 -0700
                Re: Can every Forth do this? JennyB <jennybrien@googlemail.com> - 2014-10-09 07:03 -0700
                Re: Can every Forth do this? albert@spenarnc.xs4all.nl (Albert van der Horst) - 2014-10-08 19:33 +0000
                Re: Can every Forth do this? november.nihal@gmail.com - 2014-10-08 16:39 -0700
                Re: Can every Forth do this? albert@spenarnc.xs4all.nl (Albert van der Horst) - 2014-10-08 23:45 +0000
          Re: Can every Forth do this? Harold <hzrabbie@gmail.com> - 2014-10-08 14:23 -0700
            Re: Can every Forth do this? "Elizabeth D. Rather" <erather@forth.com> - 2014-10-08 12:48 -1000
            Re: Can every Forth do this? albert@spenarnc.xs4all.nl (Albert van der Horst) - 2014-10-08 23:39 +0000
        Re: Can every Forth do this? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2014-10-08 13:17 +0000
        Re: Can every Forth do this? Roger Levy <roger.levy@gmail.com> - 2014-10-08 07:33 -0700
          Re: Can every Forth do this? Roger Levy <roger.levy@gmail.com> - 2014-10-08 07:33 -0700
  Re: Can every Forth do this? Gerry Jackson <gerry@jackson9000.fsnet.co.uk> - 2014-10-07 20:23 +0100

csiph-web