Lines Matching refs:VMS
582 # split-path-VMS: splits input native path into device dir file (each part is
589 rule split-path-VMS ( native )
601 # Converts a native VMS path into a portable path spec.
609 rule make-VMS ( native )
612 ## VMS CRTL supports POSIX path, JAM is retrofitted to pass it to VMS CRTL.
622 #local parts = [ split-path-VMS $(native) ] ;
682 # Converts a portable path spec into a native VMS path.
687 rule native-VMS ( path )
690 ## VMS CRTL supports POSIX path, JAM is retrofitted to pass it to VMS CRTL.
691 ## NOTE: While translation to VMS-style is implemented with $(:W) modifier,
758 if $(os) = VMS
760 # Translates POSIX-style path to VMS-style path
762 # This results in actual VMS path, unlike 'native-VMS' rule which is meant
763 # to return POSIX-style in order to mask VMS specificity and help portability.
765 rule to-VMS ( path )
944 modules.poke path : os : VMS ;
946 ## On VMS use POSIX-style path (keep previous tests commented out).
948 assert.result "foo/bar/giz" : make-VMS "foo/bar/giz" ;
949 assert.result "/sub1" : make-VMS "/sub1/." ;
950 assert.result "/sub1" : make-VMS "/sub1/sub2/.." ;
951 assert.result "sub1" : make-VMS "sub1/." ;
952 assert.result "sub1" : make-VMS "sub1/sub2/.." ;
953 assert.result "/foo/bar" : native-VMS "/foo/bar" ;
958 #assert.result "disk:" "[dir]" "file" : split-path-VMS "disk:[dir]file" ;
959 #assert.result "disk:" "[dir]" "" : split-path-VMS "disk:[dir]" ;
960 #assert.result "disk:" "" "" : split-path-VMS "disk:" ;
961 #assert.result "disk:" "" "file" : split-path-VMS "disk:file" ;
962 #assert.result "" "[dir]" "file" : split-path-VMS "[dir]file" ;
963 #assert.result "" "[dir]" "" : split-path-VMS "[dir]" ;
964 #assert.result "" "" "file" : split-path-VMS "file" ;
965 #assert.result "" "" "" : split-path-VMS "" ;
970 #assert.result "" "[]" "" : split-path-VMS "[]" ;
971 #assert.result "disk:" "[]" "" : split-path-VMS "disk:[]" ;
972 #assert.result "" "[]" "file" : split-path-VMS "[]file" ;
973 #assert.result "disk:" "[]" "file" : split-path-VMS "disk:[]file" ;
978 #assert.result "/disk:" : make-VMS "disk:" ;
979 #assert.result "foo/bar/giz" : make-VMS "[.foo.bar.giz]" ;
980 #assert.result "foo" : make-VMS "[.foo]" ;
981 #assert.result "foo" : make-VMS "[.foo.bar.-]" ;
982 #assert.result ".." : make-VMS "[.-]" ;
983 #assert.result ".." : make-VMS "[-]" ;
984 #assert.result "." : make-VMS "[]" ;
985 #assert.result "giz.h" : make-VMS "giz.h" ;
986 #assert.result "foo/bar/giz.h" : make-VMS "[.foo.bar]giz.h" ;
987 #assert.result "/disk:/my_docs" : make-VMS "disk:[my_docs]" ;
988 #assert.result "/disk:/boost/tools/build/new/project.jam" : make-VMS
995 #assert.result "Jamfile." : make-VMS "Jamfile" ;
996 #assert.result "dir/Jamfile." : make-VMS "[.dir]Jamfile" ;
997 #assert.result "/disk:/dir/Jamfile." : make-VMS "disk:[dir]Jamfile" ;
1002 #assert.result "disk:" : native-VMS "/disk:" ;
1003 #assert.result "[.foo.bar.giz]" : native-VMS "foo/bar/giz" ;
1004 #assert.result "[.foo]" : native-VMS "foo" ;
1005 #assert.result "[.-]" : native-VMS ".." ;
1006 #assert.result "[.foo.-]" : native-VMS "foo/.." ;
1007 #assert.result "[]" : native-VMS "." ;
1008 #assert.result "disk:[my_docs.work]" : native-VMS "/disk:/my_docs/work" ;
1009 #assert.result "giz.h" : native-VMS "giz.h" ;
1010 #assert.result "disk:Jamfile." : native-VMS "/disk:Jamfile." ;
1011 #assert.result "disk:[my_docs.work]Jamfile." : native-VMS