summaryrefslogtreecommitdiffstats
path: root/Demo/scripts/mkrcs.py
diff options
context:
space:
mode:
Diffstat (limited to 'Demo/scripts/mkrcs.py')
-rwxr-xr-xDemo/scripts/mkrcs.py61
1 files changed, 0 insertions, 61 deletions
diff --git a/Demo/scripts/mkrcs.py b/Demo/scripts/mkrcs.py
deleted file mode 100755
index 317647a..0000000
--- a/Demo/scripts/mkrcs.py
+++ /dev/null
@@ -1,61 +0,0 @@
-#! /usr/bin/env python
-
-# A rather specialized script to make sure that a symbolic link named
-# RCS exists pointing to a real RCS directory in a parallel tree
-# referenced as RCStree in an ancestor directory.
-# (I use this because I like my RCS files to reside on a physically
-# different machine).
-
-import os
-
-def main():
- rcstree = 'RCStree'
- rcs = 'RCS'
- if os.path.islink(rcs):
- print('%r is a symlink to %r' % (rcs, os.readlink(rcs)))
- return
- if os.path.isdir(rcs):
- print('%r is an ordinary directory' % (rcs,))
- return
- if os.path.exists(rcs):
- print('%r is a file?!?!' % (rcs,))
- return
- #
- p = os.getcwd()
- up = ''
- down = ''
- # Invariants:
- # (1) join(p, down) is the current directory
- # (2) up is the same directory as p
- # Ergo:
- # (3) join(up, down) is the current directory
- #print 'p =', repr(p)
- while not os.path.isdir(os.path.join(p, rcstree)):
- head, tail = os.path.split(p)
- #print 'head = %r; tail = %r' % (head, tail)
- if not tail:
- print('Sorry, no ancestor dir contains %r' % (rcstree,))
- return
- p = head
- up = os.path.join(os.pardir, up)
- down = os.path.join(tail, down)
- #print 'p = %r; up = %r; down = %r' % (p, up, down)
- there = os.path.join(up, rcstree)
- there = os.path.join(there, down)
- there = os.path.join(there, rcs)
- if os.path.isdir(there):
- print('%r already exists' % (there, ))
- else:
- print('making %r' % (there,))
- makedirs(there)
- print('making symlink %r -> %r' % (rcs, there))
- os.symlink(there, rcs)
-
-def makedirs(p):
- if not os.path.isdir(p):
- head, tail = os.path.split(p)
- makedirs(head)
- os.mkdir(p, 0o777)
-
-if __name__ == "__main__":
- main()