Mercurial > hg
annotate contrib/openvms/vms/logicals.com @ 51582:d8287e43540f
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 |
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 |