Mercurial > mm7
comparison lib/swig/swigwin-2.0.11/vms/logicals.com @ 1899:b3009adc0e2f
Adding swig, gitignore, hgignore
| author | Nomad |
|---|---|
| date | Mon, 21 Oct 2013 10:42:27 +0200 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 1867:eb580660bbbb | 1899:b3009adc0e2f |
|---|---|
| 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 |