World: r3wp

can anyone tell me if we can access objects! using rebcode... I read 
the whole document and did not notice any object using examples or 
explanations.  It seems we can, but its not stated explicitely. AFAICT

You use the DO opcode to access objects using REBOL code. There are 
currently no opcodes for direct object access, though they have been 
requested. Time will tell whether such opcodes exist for rebcode 
in REBOL 3.

You can also APPLY the IN native and SETW/GETW the resulting word.

They would be really usefull for editing faces,and other object-based 
REBOL resources... if they are in opcodes, we could expect a big 
speed improvement, even if that meant to "freeze" some aspects of 
the object within the rebocode loop. (JIT compile on demand  ;-)

getting a weird variable cross over in a rebcode code block where 
the function will run fine sometimes then inexplicably swaps its 
variable contents while under recursion..

ill post the code so anyone interested can have a play

http://rebol.mustard.co.nz/sudoku_gen.r

The issue is in the TestUniqueness function when it recurses within 
itself - the Gen function works fine

the irritating thing is that the TestUniqueness function does work 
about 5% of the time..

The variables swapping over are yp and sev - yp is an integer and 
sev is a series..

have tried the same code under rebview1352031.exe and rebview1361031.exe 
but same results.

Brian: I found my post above:

Kru: this really seems to be APPLY related, because the following 
code crashes too:

mulr: rebcode [][return 4]
mull: rebcode [][loop 10000000 [apply a mulr []] return a]
mull

is that the crash you mean?

Yup.

I never ran into it myself, but that's what I was talking about.

this seems to be corrected in
>> rebol/version
== 1.3.61.3.1

If so, cool.

Did they ever make a new rebcode alpha based on the latest REBOL 
version? I know I requested it many times...

The version above is the latest I have got, so I think there is not 
a newer one

Ah well. The rebcode VM was the basis for much of my own research 
projects. I would really like to see it return, as I am blocked on 
those projects until I can count on rebcode being there and safe 
to use. As it is, I rarely get to use REBOL professionally, it's 
more of an enabling tool.

How can I rewrite the following regular REBOL code into REBCODE?
There is no REBCODE version of "TO-CHAR".

; data is binary!
poke data j to-char data/:i

Implementing memory move ?

Yes. Implementing memory move.

REBCODE is AMAZING ...


I am trying to convert a 300+ MB file from little-endian 16-bit Unicode 
to UTF-8. I am pretty sure that all the characters in this file are 
ASCII characters, so I can just discard the second byte (0x00) of 
every 16-bit Unicode character. Beside that, the beginning 2 bytes 
(0xFFFE) need to be discard too. 


In these two days, I wrote REBOL scripts for this purpose in different 
ways, and I suffered in different ways, too. Sometime I got out-of-memory 
error, sometimes I didn't. Even if I didn't get any error, the performance 
would definitely dramatically dropped down after few minutes because 
of the memory issue, I guess. I would take me 30 minutes to convert 
the file in my PC. I was trying to make it less than 10 minutes, 
so I kept asking stupid questions in the AtlME REBOL3 World.

 

Few ours ago, REBCODE came to my mind out of the blue. I remembered 
Carl said something like 10-30 faster. Because I am no REBOL expert, 
I'd never used REBCODE before. I took 1-2 hours to read the REBCODE 
document, then I do my very first REBCODE code in my life. Guess 
what? It turned out very well. The REBCODE version took only 45 seconds. 
It's AMAZING.

Good to hear Jerry.

compared to what when not using rebcode?

oh, the 30 minutes you write above... , was that using REBOL?

Yes, the 30-minntes version is in REBOL

Do you need to conver the data when using rebcode? In REBOL you would, 
but I think you can poke it in rebcode. e.g. 


mem-move: rebcode [bin [binary!] src dst /local v] [pick v bin src 
 poke bin dst v]

Gregg, Thank you.

I've just found out that "to-char" is not necessary in Rebcode, the 
value picked from a binary! can be poked into a binary! without using 
"to-char" first. This is different from the regular REBOL code.

I would like to have an interactive console for REBCODE. That would 
be greate for learning the REBCODE dialect.

>> iRebcode       ; switch to REBCODE console
:> set.i a 10     
:> add.i a 20      
:> print a        
== 30             
:> exit           ; back to REBOL console
>> print a
== 30

It is possible, I mean, the interactive REBCODE console idea.

Something like:

iRebcode: has [b] [while [(b: ask ":> ") <> "exit"] [do do append/only 
[rebcode []] load b]]

Guess it needs some binding.

Better version:

iRebcode: has [b] [while [(b: ask ":> ") <> "exit"] [if error? try 
[do do append/only copy [rebcode []] load b] [print "Syntax error!"]]]

That must be an one-liner rebcode prompt.

Good idea, Jerry! Thanks! :-)

>> iRebcode: has [b] [while [(b: ask ":> ") <> "exit"] [if error? 
try [do  do append/only copy [rebcode []] load b] [print "Syntax 
error!"]]]
>> iRebcode
:> set.i a 10
:> print a
?unset?
:>

Binding seems to be needed ... I don't know how to do that.

Geomol, Thank you for your iRebcode function. Your inspire me to 
rewrite it into an "interactive draw" function:

>> iDraw: has [b canvas draw-blk temp-draw-blk] [
[        draw-blk: copy []

[        canvas: view/new layout [box 400x400 black effect [draw 
draw-blk]]
[        while [ (b: ask "iDraw >> ") <> "exit"] [
[                temp-draw-blk: copy draw-blk
[                if error? try [
[                        append draw-blk load b
[                        show canvas
[                    ] [
[                        print "Syntax error!"
[                        draw-blk: temp-draw-blk
[                    ]
[            ]
[        draw-blk ; return value
[    ]
>>
>> iDraw
iDraw >> fill-pen red circle 100x100 100
iDraw >> fill-pen 20 blue box 50x50 100x100
iDraw >> text "Fun"
iDraw >> exit
>>

That looks quite handy actually.

Simpler version:

iRebcode: has [b] [while [(b: ask ":> ") <> "exit"] [if error? try 
[do rebcode [] load b] [print "Syntax error!"]]]

No need for the do append copy - the rebcode function is a function, 
not syntax.

Jerry, iRebcode works ok for me under OSX.
BrianH, cool! :-)

Jerry, about the above, remember that A must already refer to a integer 
value before you can use set.i.

I see. Thank you, Gabriele.

Have a look

The Synthesis kernel written by Dr. Henry Massalin as his PhD. thesis 
is commonly viewed to be the 
mother of all self-modifying code."
via SteDekorte et al :
http://www.dekorte.com/blog/blog.cgi?do=item&id=2336

Interesting! And it's made for the Motorola 68030 CPU.

I thought rebcode was a function built into all new builds of REBOL 
- is it?  if not why not?

it's not finished yet.