OpenEuphoria

2. Re: Matheval ... the next step (for me)

• Posted by Matt Lewis <matthewwalkerlewis at g?ail.co?> Apr 22, 2008
• 602 views
• Last edited Apr 23, 2008

Mike777 wrote:
> 
> What I'd like to do is this:
> 
> block(
> x := 1,
> y := 2,
> (mySequence := "I know this works " & {STR,{ADD,x,y},{}} & " times")
> )
> 
> Is what I want to do possible?

That should work, but due to a bug in the parsing routine for STR, it
doesn't.  In texteval.e, change CStr to this:

function CStr( sequence expr, integer tok )
    if tok = length( expr ) or (not CheckCollapsed({expr[tok+1]}))  then
        return {{INVALID, "Missing argument for STR()", {}}}
    end if

    expr[tok][ARG1] = expr[tok+1]
    return expr[1..tok] & expr[tok+2..length(expr)] 
end function

Matt

4. Re: Matheval ... the next step (for me)

• Posted by Mike777 <anon4321 at ?mail.?om> Apr 22, 2008
• 574 views
• Last edited Apr 23, 2008

Mike777 wrote:
> 
> Matt Lewis wrote:
> > 
> > Mike777 wrote:
> > > 
> > > What I'd like to do is this:
> > > 
> > > block(
> > > x := 1,
> > > y := 2,
> > > (mySequence := "I know this works " & {STR,{ADD,x,y},{}} & " times")
> > > )
> > > 
> > > Is what I want to do possible?
> > 
> > That should work, but due to a bug in the parsing routine for STR, it
> > doesn't.  In texteval.e, change CStr to this:
> > }}}
<eucode>
> > function CStr( sequence expr, integer tok )
> >     if tok = length( expr ) or (not CheckCollapsed({expr[tok+1]}))  then
> >         return {{INVALID, "Missing argument for STR()", {}}}
> >     end if
> > 
> >     expr[tok][ARG1] = expr[tok+1]
> >     return expr[1..tok] & expr[tok+2..length(expr)] 
> > end function
> > </eucode>
{{{

> 
> Wow!  Are you sure this isn't IRC?
> 
> Well, the good news is that it now runs.  The bad news is that any line with
> the STR function on it disappears.  I have tested the equivalent of:
> 
> BLOCK(
> (mySeq := "Test"),
> x := 1,
> y := 2,
> (mySeq := mySeq & {STR,{ADD,x,y},{}} ),
> (mySeq := mySeq & mySeq)
> )
> 
> I get "TestTest".  Nothing between the two tests.
> 
> Any suggestions at this point?
> 
> Thanks again.

Further testing shows that the return from the CStr function is always the error
condition, which causes Matheval to discared the statement it is embedded in.  I
have tried many, many versions of the STR function (with quotes, without quotes,
with double quotes, without double quotes, with 1 argument filled in and the
second one empty, etc.).  All return the error condition (which I confirm with a
pretty print of all the matheval results, as per the documentation).

Mike

6. Re: Matheval ... the next step (for me)

• Posted by Mike777 <anon4321 at gmail?co?> Apr 23, 2008
• 584 views

Matt Lewis wrote:
> 
> Mike777 wrote:
> > 
> > > 
> > > Well, the good news is that it now runs.  The bad news is that any line
> > > with the STR function on it disappears.  I have tested the equivalent of:
> > > 
> > > BLOCK(
> > > (mySeq := "Test"),
> > > x := 1,
> > > y := 2,
> > > (mySeq := mySeq & {STR,{ADD,x,y},{}} ),
> > > (mySeq := mySeq & mySeq)
> > > )
> > > 
> > > I get "TestTest".  Nothing between the two tests.
> > > 
> > > Any suggestions at this point?
> > > 
> > > Thanks again.
> > 
> > Further testing shows that the return from the CStr function is always 
> > the error condition, which causes Matheval to discared the statement it
> > is embedded in.  I have tried many, many versions of the STR function
> > (with quotes, without quotes, with double quotes, without double quotes,
> > with 1 argument filled in and the second one empty, etc.).  All return
> > the error condition (which I confirm with a pretty print of all the
> > matheval results, as per the documentation).
> > 
> 
> I added "include texteval.e" to mathdemo.exw and here's what I got:
> 
> Enter expression: "test" & str(1+4) & "foo"
>     Result: {test5foo}
> Simplified: {test5foo}

As do I.
 
> You say, "equivalent."  What exactly did you try?

I'm doing mine through the Block function, though.  So, I have a working Block
file (about 40 lines) and I have variable names which are not mySequence, x and
y, but they don't mean anything in the context of debugging.

So, other than drop off about 35 lines the Block is as indicated.  In other
words, it works fine, but the return from CStr is always an error indicator when
called from the Block.

Let me fiddle with the demo program for a minute or two and then I'll come back
and say more.

Mike

8. Re: Matheval ... the next step (for me)

• Posted by Mike777 <anon4321 at gm??l.com> Apr 23, 2008
• 585 views

Mike777 wrote:

> I had used the above syntax:
> 
> (mySeq := mySeq & {STR,{ADD,x,y},{}} ),
> 
> When I replace that with:
> 
> (mySeq := mySeq & STR(x+y) ),
> 
> It works a treat.
> 
> Thanks.
> 
> Now, one (hopefully final, but they never are, are they?) question.  I have
> a string that I know is a number:
> 
> x := "1"
> 
> I want to convert it to a number for purposes of putting it into my sample
> line
> of code:
> 
> (mySeq := mySeq & STR{x+y) ),
> 
> I've tried a few variations of VAL, but haven't hit the right combination,
> yet.
> What should work?

OK, my problem was that I was using the internal formatting, which is
{OP,VAR1,VAR2} where VAR1 = {DATA or CONSTANT, ARG1, ARG2} syntax.  The correct
syntax is the simple, it should work that way but somehow I didn't think it did,
way, which is:

VAL(x).

I think this calls for a.......

DUH!

Thanks

Mike