author | Matt Harbison <matt_harbison@yahoo.com> |
Sat, 28 Sep 2024 19:11:39 -0400 | |
changeset 51932 | d94e21b5b693 |
parent 51001 | 44001e6f04de |
permissions | -rwxr-xr-x |
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 |
$! Mercurial startup file |
44001e6f04de
opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff
changeset
|
3 |
$! |
44001e6f04de
opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff
changeset
|
4 |
$ proc = f$environment("PROCEDURE") |
44001e6f04de
opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff
changeset
|
5 |
$ 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
|
6 |
$ 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
|
7 |
$! |
44001e6f04de
opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff
changeset
|
8 |
$! Define logicals |
44001e6f04de
opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff
changeset
|
9 |
$! |
44001e6f04de
opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff
changeset
|
10 |
$ @'cur_dev''cur_dir'logicals "/system/exec" |
44001e6f04de
opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff
changeset
|
11 |
$ |
44001e6f04de
opemvms: add specific files and utilities
Jean-Francois Pieronne <jf.pieronne@laposte.net>
parents:
diff
changeset
|
12 |
$ exit |