Return to 065.html CVS log

Up to [parser3project] / parser3 / tests

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

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