vms/logicals.com

   1 $!
   2 $!
   3 $!
   4 $ proc = f$environment("PROCEDURE")
   5 $ proc = f$parse(proc,"sys$disk:[]",,,"NO_CONCEAL")
   6 $ cur_dev = f$parse(proc,,,"DEVICE","SYNTAX_ONLY")
   7 $ cur_dir = f$parse(proc,,,"DIRECTORY","SYNTAX_ONLY")
   8 $ cur_dir = f$extract(1,f$length(cur_dir)-2,cur_dir)
   9 $ cur_dir = cur_dir - "["
  10 $ cur_dir = cur_dir - "]"
  11 $ cur_dir = cur_dir - "<"
  12 $ cur_dir = cur_dir - ">"
  13 $
  14 $! remove trealing .VMS
  15 $ root_dir = f$extract(0,f$length(cur_dir)-4,cur_dir)
  16 $
  17 $ define 'p1' /trans=concealed swig_root 'cur_dev'['root_dir'.]
  18