| $! | |
| $! | |
| $! | |
| $ 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'.] | |