Mercurial Mercurial > hg-stable / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
contrib/openvms/vms/logicals.com
author Pierre-Yves David <pierre-yves.david@octobus.net>
Wed, 28 Feb 2024 22:28:07 +0100
changeset 51539 f9a6bae0c937
parent 51006 44001e6f04de
permissions -rwxr-xr-x
stream-clone-test: simplify testing of secret cloning restriction Here, we just want to check if the streaming clone is allowed and used or not. We do not care about the details of the clone itself.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
51006
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
     1
 
$!
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
     2
 
$! Define mercurial_root logical
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
     3
 
$!   p1: define parameter (/system for example)
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
     4
 
$!
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
     5
 
$ proc = f$environment("PROCEDURE")
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
     6
 
$ proc = f$parse(proc,"sys$disk:[]",,,"NO_CONCEAL")
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
     7
 
$ cur_dev = f$parse(proc,,,"DEVICE","SYNTAX_ONLY")
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
     8
 
$ cur_dir = f$parse(proc,,,"DIRECTORY","SYNTAX_ONLY")
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
     9
 
$ cur_dir = f$extract(1,f$length(cur_dir)-2,cur_dir)
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
    10
 
$ cur_dir = cur_dir - "["
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
    11
 
$ cur_dir = cur_dir - "]"
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
    12
 
$ cur_dir = cur_dir - "<"
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
    13
 
$ cur_dir = cur_dir - ">"
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
    14
 
$
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
    15
 
$! remove trailing .VMS
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
    16
 
$ root_dir = f$extract(0,f$length(cur_dir)-4,cur_dir)
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
    17
 
$
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
    18
 
$ define/nolog 'p1' /trans=concealed mercurial_root 'cur_dev'['root_dir'.]
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
    19
 
$
44001e6f04de opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff changeset 
    20
 
$ exit
hg-stable