跳转到内容

Rebol 编程/更多

来自维基教科书,开放的书籍,开放的世界
MORE 'file 

打印文件(shell 快捷方式函数)。

MORE 是一个函数值。

  • file -- 接受 %file、:variables 和仅单词(作为文件名)(类型:file word path string paren)

(特殊属性)

[编辑 | 编辑源代码]
  • 捕获

源代码

[编辑 | 编辑源代码]
more: func [
    "Print file (shell shortcut function)." 
    [catch] 
    'file [file! word! path! string! paren!] {Accepts %file, :variables and just words (as file names)}
][
    if paren? :file [set/any 'file do :file] 
    print read switch/default type?/word get/any 'file [
        file! [file] 
        string! [to-rebol-file file] 
        word! path! [to-file file]
    ] [throw-error 'script 'expect-arg reduce ['more 'file type? get/any 'file]]
]
华夏公益教科书