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

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

admin-commands: move the chainsaw extension to the admin commands module...
admin-commands: move the chainsaw extension to the admin commands module Activating an extension is always a little bit of a chore and the long name, options and "chainsaw" bits are deterrent enough. This also allows us to help the discoverability for people looking for repo "administration" tools, with the widest semantic of "administration".
Jean-Francois Pieronne - - Load All Authors

File last commit:

r51894:44001e6f default
r52396:d4095f7b stable
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