Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!ucbvax!BRFAPESP.BITNET!UNBCIC
From: UNBCIC@BRFAPESP.BITNET
Newsgroups: comp.lang.forth
Subject: ALIGN
Message-ID: <9106220034.AA20213@ucbvax.Berkeley.EDU>
Date: 21 Jun 91 15:28:00 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: UNBCIC%BRFAPESP.BITNET@SCFVM.GSFC.NASA.GOV
Organization: The Internet
Lines: 27

=>      My prior posting included a C implementation of C, but the
=>      following code is provided to clarify (?) the semantics of my
=>      proposed C,.

I'm not even considering the speed, but how much complexity you are throwing
over a simple word!

=>
=>      quan CDP
=>      : C,    ( c --- )
=>              CDP NOT  ( CDP not initialized or ... )
=>              CDP HERE = OR ( CDP is at HERE or ...)
=>              DP HERE - CELLSIZE 1- > OR IF ( CDP is more than 1
=>                                              CELL behind HERE )
=>                      HERE is CDP     ( re-align CDP )
=>                      1 ALLOT         ( push HERE up to the next CELL )
=>              THEN
=>              CDP !                   ( store the character at CDP )
=>              CDP 1+ is CDP           ( increment CDP )
=>      ;

                              (8-DCS)
Daniel C. Sobral                           Errare Humanum Est...
UNBCIC@BRFAPESP.BITNET                     ...Perseverare Autem Diabolicum
UNBCIC@FPSP.FAPESP.ANSP.BR
--------------------------------------------------------------------------
No one, but me, is responsible for the above message.