Cách xác định VALUE và TO

Question

Tôi muốn triển khai các từ Forth VALUE và TO trên RPC/8 (máy tính được mô phỏng trong Minecraftmod). Nỗ lực tốt nhất của tôi khiến tôi trở thành một tập hợp các từ hoạt động tốt, miễn là tôi không sử dụng chúng trong khi biên dịch. Nhiều công cụ khác nhau là VALUE, nhưng TO thì không.

: VALUE CREATE , DOES> @ ; 
: TO ' 3 + ! ; 

Tôi đã thử tất cả mọi thứ tôi có thể nghĩ ra để làm cho nó làm việc và nỗ lực hết sức mình được tôi này:

['] NameOfAValue + 3 ! 

Lưu ý rằng bộ vi xử lý không phải là một tinh khiết 6502 nhưng một 65EL02, một biến thể tùy chỉnh của số 65816.

EDIT # 1: Bằng cách nào đó tôi đã quên cuộc gọi để TẠO trong giá trị. Nó nên có được tất cả cùng. EDIT # 2: Tôi cũng nhận được 3 và + chuyển sang TO ... oops. Nó phải là cách khác tất cả cùng.

Answer 1

Ok Sau rất nhiều thử nghiệm và lỗi cũng như tìm kiếm nhiều, tôi tìm thấy một cái gì đó mà nên làm việc, nhưng vì hai lỗi trong redFORTH, không.

GIÁ TRỊ

\ Works fine, now to reset the value. 
: VALUE \ n <name> -- 
    CREATE , 
    DOES> @ 
; 

ĐẾN

\ Works if not compiling, LITERAL and POSTPONE are broken. 
: TO 
    TIBWORD FIND 3 + 
    STATE @ IF 
     POSTPONE LITERAL 
     POSTPONE ! 
    ELSE 
     ! 
    THEN 
; IMMEDIATE 

Demo của lỗi trong Literal

\ fails, very wierd error. 
: TESTLIT [ 42 ] LITERAL ; 
\ TESTLIT Unknown Token: TESTLIT 
\ FORGET TESTLIT Unknown Token: TESTLIT 
\ WORDS TESTLIT COLD SORTMATCH ... 

Demo của lỗi trong hoãn

\ fails, postpone is directly equivelent to ['] 
: TESTPOST POSTPONE + ; IMMEDIATE 
: TEST 2 2 TESTPOST . ; 
\ . 1935 
\ ' + . 1935 

Tôi tắt để gửi báo cáo lỗi ....

EDIT # 1: Sau một số thử nghiệm và lỗi khác chứ không phải một chút chửi thề (Tôi không tốt với FORTH) Tôi đã tìm cách để làm cho nó công việc.

: TO 
    TIBWORD FIND 3 + 
    STATE @ IF 
     (lit) (lit) , , \ store address 
     (lit) ! , 
ELSE 
     ! 
    THEN 
; IMMEDIATE 

Answer 2

Tôi không chắc Forth xử lý thời gian diễn giải như thế nào so với thời gian biên dịch, nhưng định nghĩa TO đang cố gắng lưu trữ giá trị để giải quyết 3. Có vẻ cá.

Answer 3

Giải pháp đơn giản nhất là

VARIABLE TO-MESSAGE \ 0 : FROM , 1 : TO .   
: TO 1 TO-MESSAGE ! ; 

: VALUE CREATE , DOES> TO-MESSAGE @ IF ! ELSE @ THEN 
0 TO_MESSAGE ! ;