Could someone please fix this? It hung my interpreter:
REBOL [
Title: "DOS-REBOL File Name Conversion Routines"
File: %dosbol.r
Author: "Terrence Brannon"
Email: [EMAIL PROTECTED]
Purpose: "Ease working with dos filename in REBOL programs"
Category: 'file
]
dosbol: make object! [
char: make string! 0
out: make string! 0
drive-letter: charset [ #"A" - #"F" ]
rules: [ copy char drive-letter ":" (out: rejoin [ "/" dl ]) |
"\" (append out "/") |
copy char (append out char)
]
d2r: func [
dos-fn [string!] "takes a dos filename and converts to rebol format"]
[
parse/all dos-fn [ any rules ]
out
]
]
>> dosbol/d2r "c:\temp\file"
terrence-brannon: [[EMAIL PROTECTED] perl-refugee myth-gamer]
free-email: http://www.MailAndNews.com
free-usenet: http://www.mailAndNews.com
; all the above is real REBOL code, believe it or not.
