Mercurial > hg

annotate contrib/openvms/vms/logicals.com @ 51582:d8287e43540f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
phases: stop using `repo.set` in `remotephasessummary` The `repository.set` create changectx on the fly, an expensive operation. Using `repo.revs` and a direct rev-num → node-id translation will be significantly faster. This is especially true as we prepare ourself to no longer do the rev-num → node-id transalation there. The speedup is a bit lost in the overall noisyness of the slow phase discovery algorithm, but it save a small amount of time in my benchmark.
author Pierre-Yves David <pierre-yves.david@octobus.net>
date Fri, 05 Apr 2024 12:24:47 +0200
parents 44001e6f04de
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
51001
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