Mercurial > hg
view contrib/openvms/vms/logicals.com @ 51350:670e68729aa7
delta-find: stop using heuristic to determine if we are creating a snapshot
This avoid assuming a changeset is a snapshot when it is actually something
simpler.
author | Pierre-Yves David <pierre-yves.david@octobus.net> |
---|---|
date | Sun, 07 Jan 2024 03:13:36 +0100 |
parents | 44001e6f04de |
children |
line wrap: on
line source
$! $! 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