##// END OF EJS Templates
upstream » mercurial-mirror
RSS

Clone from https://www.mercurial-scm.org/repo/hg-all

branch3: use an explicitely experimental name for files...
branch3: use an explicitely experimental name for files Since this format is still experimental, we don't want to have to side-step the `branch3` name in case people do start using it before it's stable.
Jean-Francois Pieronne - - Load All Authors

File last commit:

r51894:44001e6f default
r52539:f02ec1ec default
Show More
logicals.com
20 lines | 604 B | application/x-msdownload | TextLexer
/ contrib / openvms / vms / logicals.com
History | Annotation | Raw |Copy content |Copy permalink
$!
$! Define mercurial_root logical
$! p1: define parameter (/system for example)
$!
$ 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 trailing .VMS
$ root_dir = f$extract(0,f$length(cur_dir)-4,cur_dir)
$
$ define/nolog 'p1' /trans=concealed mercurial_root 'cur_dev'['root_dir'.]
$
$ exit