Return to 065.html CVS log

Up to [parser3project] / parser3 / tests

Annotation of parser3/tests/065.html, revision 1.7

1.2       paf         1: @auto[filespec]
                      2: $selffilespec[$filespec]
                      3: 
1.5       misha       4: 
1.2       paf         5: @main[]
1.5       misha       6: $tRepl[^table::create[nameless]{$request:document-root ^$request:document-root}]
                      7: 
                      8: ^do[]
                      9: ^do[$selffilespec]
                     10: ^do[/a/some.tar.gz]
1.6       misha      11: ^do[/a///some.tar.gz]
                     12: ^do[/a/b///]
                     13: ^do[/a/b///c//]
1.5       misha      14: ^do[/a/b/]
1.6       misha      15: ^do[/a/b]
1.5       misha      16: ^do[/a/]
                     17: ^do[/a]
                     18: ^do[/]
1.6       misha      19: ^do[///]
                     20: ^do[a///]
1.5       misha      21: ^do[/a/file]
                     22: ^do[/a/dir.zz/file.html]
                     23: ^do[file]
                     24: ^do[/a/dir.zz/file]
                     25: ^do[C:\temp\file.txt]
1.6       misha      26: ^do[C:\file.txt]
1.5       misha      27: # slashes mixes
                     28: ^do[C:\temp/file.txt]
                     29: ^do[C:/temp\file.txt]
                     30: 
1.7     ! moko       31: ^do[^file::create[text;/../;]]
        !            32: ^do[^file::create[text;/path/name.ext;]]
        !            33: ^file:fullpath[^file::create[text;/path/name.ext;]]
        !            34: ^try-catch{^file:fullpath{code}}
1.5       misha      35: 
                     36: @do[sFileSpec]
                     37: src=^printFS[$sFileSpec]<br />
                     38: dirname=^printFS[^file:dirname[$sFileSpec]]<br />
                     39: basename=^file:basename[$sFileSpec]<br />
                     40: justname=^file:justname[$sFileSpec]<br />
                     41: justext=^file:justext[$sFileSpec]
                     42: <hr />
                     43: 
                     44: 
                     45: @printFS[sFileSpec]
1.7     ! moko       46: $result[^if($sFileSpec is file){$sFileSpec.name}{^sFileSpec.replace[$tRepl]}]