fork download
copy 
  1. \ 1. Crea un nuovo vocabolario chiamato MIOVOC
  2. VOCABULARY MIOVOC
  3.  
  4. \ 2. Sposta il contesto di compilazione (dove vengono aggiunte le nuove parole)
  5. \    nel vocabolario MIOVOC.
  6. MIOVOC DEFINITIONS
  7.  
  8. \ 3. Definisci una parola nel MIOVOC
  9. : PROVA ( -- ) ." Ciao dal mio Vocabolario! " ;
  10.  
  11. \ 4. Torna al vocabolario standard (FORTH) per l'esecuzione o ulteriori definizioni standard
  12. FORTH DEFINITIONS
  13.  
  14. \ --- Ora eseguiamo ---
  15.  
  16. \ A questo punto, se tenti di chiamare PROVA, Gforth NON la trova 
  17. \ perché il vocabolario MIOVOC NON è nell'ordine di ricerca (search order).
  18. \ PROVA  (Darebbe errore: " ? Undefined word ")
  19.  
  20. \ 5. Aggiungi MIOVOC all'ordine di ricerca per poter usare PROVA
  21. ALSO MIOVOC
  22.  
  23. \ 6. Ora PROVA può essere chiamata
  24. PROVA CR
  25.  
  26. \ 7. (Opzionale) Rimuovi MIOVOC dall'ordine di ricerca
  27. \ Per rimettere l'ordine di ricerca a come era prima, puoi usare:
  28. ONLY FORTH
  29. \ Oppure:
  30. \ PREVIOUS  (se MIOVOC era l'ultimo aggiunto con ALSO)
  31.  
  32. \ Se provi PROVA ora, darà di nuovo errore
  33. \ PROVA CR
  34.  
  35. \ --- Output Finale ---
  36. \ (Quando Ideone esegue questo codice, il risultato sarà:)
  37. \ Ciao dal mio Vocabolario!
  38.  
Success #stdin #stdout 0.01s 5324KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Ciao dal mio Vocabolario!
https://ideone.com/lQxhfE
language:
Forth (gforth 0.7.3)
created:
12 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!