REBOL Programming/change-dir

From Wikibooks, open books for an open world
< REBOL Programming
Jump to: navigation, search

USAGE:[edit]

CHANGE-DIR dir 

DESCRIPTION:[edit]

Changes the active directory path.

CHANGE-DIR is a function value.

ARGUMENTS[edit]

  • dir -- new directory path (Type: file)

(SPECIAL ATTRIBUTES)[edit]

  • catch

SOURCE CODE[edit]

change-dir: func [
    "Changes the active directory path." 
    [catch] 
    dir [file!] "new directory path" 
    /local slash full ret
][
    dir: clean-path dir 
    if (last dir) <> #"/" [append dir #"/"] 
    if (first dir) = #"/" [
        slash: next dir 
        full: remove parse system/script/path "/" 
        while [all [not empty? slash (first slash) = #"/" not empty? full]] [
            insert slash first full 
            remove full 
            slash: find/tail slash "/" 
            if (empty? full) or (empty? slash) [clear slash break]
        ]
    ] 
    either throw-on-error [dir? dir] [
        system/script/path: dir
    ] [
        throw make error! reduce ['access 'cannot-open dir]
    ] 
    system/script/path
]