nome-del-file: %file.txt |
nome-del-file: to-file ask "Scrivi il nome del file: " |
file-locale: file:file.txt home-page: http://www.rebol.com file-ftp: ftp://ftp.rebol.com/pub/nome |
mio-url: to-url ask "Uniform Resource Locator del file: " |
mio-url: to-url 123 |
nome-della-directory: %nome/ |
primo-floppy: %/df0/ comandi: %/c/ il-workbench: %/Workbench/ |
clean-path %./ |
clean-path %../ |
nome: %"a[]{ }()a" nome: to-file "a[]{ }()a" |
print nome a[]{ }()a |
print mold a %a%5B%5D%7B%20%7D%28%29a |
change-dir | come unico argomento vuole il nome della nuova directory |
delete | come unico argomento vuole il nome di un file o di una directory vuota |
list-dir | se si fornisce il nome di una directory ne mostra il contenuto, altrimenti mostra il contenuto di quella corrente |
make-dir | come unico argomento vuole il nome della directory da creare |
rename | vuole due argomenti: il primo è il vecchio nome, il secondo è il nuovo nome |
what-dir | non vuole argomenti e fornisce il nome della directory nella quale ci troviamo |
REBOL [ Title: "Small DOS in REBOL" Purpose: {Show how to use various file-related words. Can be used with any file or URL (ftp, http, dns, and so on.} Comment: "With 'do this script has access to the full power of REBOL" Date: 30-Jan-2000 Author: "Daniele Forsi" Email: dforsi@montaperto.it Filename: %reboldos.r History: [ 3-Nov-1999 "First version" 8-Dec-1999 "Full working" 16-Dec-1999 "Added do" 30-Jan-2000 "Added print to exit command" ] ] reboldos: func [ /local result the-commands cmd cmd-block arg ] [ the-commands: [ "exit" [ print {type "reboldos" to restart} halt ] "dir" [ if none? arg [ arg: "%./" ] list-dir load arg ] "cd" [ either arg [ change-dir load arg ] [ print what-dir ] ] "md" [ make-dir load arg ] "del" [ delete load arg ] "type" [ print read load arg ] "?" [ cmd-block: copy [] foreach cmd the-commands [ if string? cmd [ insert cmd-block cmd ] ] print sort cmd-block ] "do" [ do load arg ] ] print "? = help" forever [ parse/all ask compose [ (what-dir) "> " ] [ copy cmd to " " skip any " " copy arg to end | (arg: none) copy cmd to end ] if cmd [ if error? result: try [ switch/default cmd the-commands [ print [ "Unknown command" cmd ] ] none ; for 'try ] [ result: disarm result print [ "Error:" result/id ] ] ] ] ] ; start it reboldos ;eof |
change-dir | cambia la directory corrente |
clean-path | trasforma da relativo ad assoluto il nome di un file o di una directory |
close | chiude una porta aperta |
delete | cancella un file o una cartella (se è vuota) |
echo | copia sul file specificato tutto quello che viene scritto sullo schermo; smette se si specifica "NONE" al posto del nome del file |
exists? | fornisce il valore "TRUE" se il file esiste, altrimenti fornisce il valore "FALSE" |
info? | da un argomento di tipo file! o url! crea un oggetto contenente la lunghezza, la data e il tipo (file o directory) |
list-dir | mostra il contenuto della directory corrente |
load | legge un file (o un URL o una stringa) e lo esegue |
make-dir | crea una nuova directory |
modified? | fornisce la data dell'ultima modifica di un file (quella fornita dal sistema operativo) |
open | apre una porta |
query | (presente, ma non funzionante nella versione attuale) |
read | legge da una porta aperta |
read-io | legge a basso livello da una porta aperta |
rename | cambia il nome di un file |
save | scrive un valore nel file specificato (opzionalmente con una intestazione) |
script? | controlla se il file specificato contiene l'intestazione di uno script (cioè REBOL [ ]) |
size? | fornisce la lunghezza del file |
split-path | crea un blocco con due valori di tipo file! dividendo l'argomento fornito (il primo valore del blocco creato è il percorso, il secondo è il nome del file) |
update | aggiorna le informazioni |
what-dir | fornisce il nome della directory corrente |
write | scrive su una porta aperta |
write-io | scrive a basso livello su una porta aperta |