Mercurial > mm7

annotate lib/swig/swigwin-2.0.11/vms/logicals.com @ 1933:5fcf6023f9c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DamageMonsterFromParty some additional vars removed, changed the ordering part to something more readable
author Grumpy7
date Wed, 23 Oct 2013 21:13:28 -0700
parents b3009adc0e2f
children
rev   line source
1899
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
1 $!
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
2 $!
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
3 $!
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
4 $ proc = f$environment("PROCEDURE")
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
5 $ proc = f$parse(proc,"sys$disk:[]",,,"NO_CONCEAL")
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
6 $ cur_dev = f$parse(proc,,,"DEVICE","SYNTAX_ONLY")
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
7 $ cur_dir = f$parse(proc,,,"DIRECTORY","SYNTAX_ONLY")
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
8 $ cur_dir = f$extract(1,f$length(cur_dir)-2,cur_dir)
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
9 $ cur_dir = cur_dir - "["
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
10 $ cur_dir = cur_dir - "]"
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
11 $ cur_dir = cur_dir - "<"
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
12 $ cur_dir = cur_dir - ">"
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
13 $
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
14 $! remove trealing .VMS
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
15 $ root_dir = f$extract(0,f$length(cur_dir)-4,cur_dir)
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
16 $
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
17 $ define 'p1' /trans=concealed swig_root 'cur_dev'['root_dir'.]
b3009adc0e2f Adding swig, gitignore, hgignore
Nomad
parents:
diff changeset
18