[RPL/2] self compiling ?

[Adrian Blake]

The two intrinsics are not working as you describe:

[adrian at adios rpl]$ rpl -is
+++RPL/2 version 4.0.0.prerelease.2 (Wednesday 11/14/07, 21:52:10 EST)
+++Copyright (C) 1989 to 2006, 2007 BERTRAND Joël

+++This is a free software with absolutely no warranty.
+++For details, type 'warranty'.

RPL/2> << 1 3 'x' + >> 5 { * } obsub

3: << 1 3 'x' + >>
2: 5
1: { * }
RPL/2> << 1 3 'x' + >> 5 { << X sin >> } obsub

6: << 1 3 'x' + >>
5: 5
4: { * }
3: << 1 3 'x' + >>
2: 5
1: { << 'X' SIN >> }
RPL/2>

does obsub have the following meaning:

<< a b c d e >>  x { w } obsub

insert object w before x position

??

Adrian

BERTRAND Joël wrote:
> Adrian Blake wrote:
>> Would you gibe me a simple example of eval()
> 
>     Adrian,
> 
>     I'm not sure that I understand you query. Nevertheless, you can find 
> in the last 4.0.0.prerelease.2 two new intrinsics : OBGET and OBSUB that 
> can modify an RPN expression :
> 
> RPL/2> << 1 3 'x' + >> 5 { * } obsub
> 
> 1: << 1 3 'x' * >>
> RPL/2> << 1 3 'x' + >> 5 { << X sin >> } obsub
> 
> 2: << 1 3 'x' * >>
> 1: << 1 3 'x' << 'X' SIN >> >>
> RPL/2>
> 
>     When I will have more time, I will try to write EXGET and EXSUB.
> 
>     JKB
> 

-- 
Adrian Blake
Molonglo Radio Observatory
University of Sydney
1152 Hoskinstown Rd
Bungendore 2621
ph. 02 62382262  mobile 0407 232 978

http://150.101.125.30/images