12a43edc2d
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
18 lines
506 B
Text
18 lines
506 B
Text
$!
|
|
$!
|
|
$!
|
|
$ proc = f$environment("PROCEDURE")
|
|
$ proc = f$parse(proc,"sys$disk:[]",,,"NO_CONCEAL")
|
|
$ cur_dev = f$parse(proc,,,"DEVICE","SYNTAX_ONLY")
|
|
$ cur_dir = f$parse(proc,,,"DIRECTORY","SYNTAX_ONLY")
|
|
$ cur_dir = f$extract(1,f$length(cur_dir)-2,cur_dir)
|
|
$ cur_dir = cur_dir - "["
|
|
$ cur_dir = cur_dir - "]"
|
|
$ cur_dir = cur_dir - "<"
|
|
$ cur_dir = cur_dir - ">"
|
|
$
|
|
$! remove trealing .VMS
|
|
$ root_dir = f$extract(0,f$length(cur_dir)-4,cur_dir)
|
|
$
|
|
$ define 'p1' /trans=concealed swig_root 'cur_dev'['root_dir'.]
|
|
|