if 0 {Richard Suchenwirth - In contrast with the more complex structure in desktop Windowses, symbolic links in Windows/CE are refreshingly simple: very brief text files with no trailing newline, consisting of three parts: a decimal number, a pound sign (#), and a string. I have observed other special formats, but when the string is enclosed in quotes, and the number matches the length of the quoted string, then the link is both human-readable and will be followed by CE�s File Explorer.
So here�s two routines to read and write such links: }
proc ce_writeLink {fn to} { set to \"[file native [file join [pwd] $to]]\" set fp [open $fn w] puts -nonewline $fp [string length $to]#$to close $fp } proc ce_readLink fn { set fp [open $fn] set data [read $fp] close $fp regexp (.+)#(.+) $data -> l s if {$l!=[string length $s]} { error "unknown format: $data" } file join [string range $s 1 end-1] }
if 0 {