0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 70 79 74 68 6f #!/usr/bin/pytho
0010: 6e 0a 23 20 2d 2a 2d 20 63 6f 64 69 6e 67 3a 20 n.# -*- coding:
0020: 75 74 66 2d 38 20 2d 2a 2d 0a 23 23 23 23 23 23 utf-8 -*-.######
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0050: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0060: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0070: 23 23 0a 23 20 47 65 6e 65 72 61 6c 69 7a 65 64 ##.# Generalized
0080: 20 66 61 63 69 6c 69 74 79 20 74 6f 20 6d 61 6e facility to man
0090: 69 70 75 6c 61 74 65 20 6f 73 38 20 64 65 76 69 ipulate os8 devi
00a0: 63 65 20 69 6d 61 67 65 73 20 66 72 6f 6d 20 74 ce images from t
00b0: 68 65 20 50 4f 53 49 58 0a 23 20 28 68 6f 73 74 he POSIX.# (host
00c0: 29 20 73 69 64 65 20 75 73 69 6e 67 20 4f 53 2f ) side using OS/
00d0: 38 20 73 79 73 74 65 6d 20 70 72 6f 67 72 61 6d 8 system program
00e0: 73 20 75 6e 64 65 72 20 53 49 4d 48 2e 0a 23 0a s under SIMH..#.
00f0: 23 20 53 65 65 20 55 53 41 47 45 20 6d 65 73 73 # See USAGE mess
0100: 61 67 65 20 62 65 6c 6f 77 20 66 6f 72 20 64 65 age below for de
0110: 74 61 69 6c 73 2e 0a 23 0a 23 20 43 6f 70 79 72 tails..#.# Copyr
0120: 69 67 68 74 20 c2 a9 20 32 30 31 38 20 62 79 20 ight © 2018 by
0130: 42 69 6c 6c 20 43 61 74 74 65 79 20 61 6e 64 20 Bill Cattey and
0140: 57 61 72 72 65 6e 20 59 6f 75 6e 67 0a 23 0a 23 Warren Young.#.#
0150: 20 50 65 72 6d 69 73 73 69 6f 6e 20 69 73 20 68 Permission is h
0160: 65 72 65 62 79 20 67 72 61 6e 74 65 64 2c 20 66 ereby granted, f
0170: 72 65 65 20 6f 66 20 63 68 61 72 67 65 2c 20 74 ree of charge, t
0180: 6f 20 61 6e 79 20 70 65 72 73 6f 6e 20 6f 62 74 o any person obt
0190: 61 69 6e 69 6e 67 0a 23 20 61 20 63 6f 70 79 20 aining.# a copy
01a0: 6f 66 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 of this software
01b0: 20 61 6e 64 20 61 73 73 6f 63 69 61 74 65 64 20 and associated
01c0: 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 69 documentation fi
01d0: 6c 65 73 20 28 74 68 65 0a 23 20 22 53 6f 66 74 les (the.# "Soft
01e0: 77 61 72 65 22 29 2c 20 74 6f 20 64 65 61 6c 20 ware"), to deal
01f0: 69 6e 20 74 68 65 20 53 6f 66 74 77 61 72 65 20 in the Software
0200: 77 69 74 68 6f 75 74 20 72 65 73 74 72 69 63 74 without restrict
0210: 69 6f 6e 2c 20 69 6e 63 6c 75 64 69 6e 67 0a 23 ion, including.#
0220: 20 77 69 74 68 6f 75 74 20 6c 69 6d 69 74 61 74 without limitat
0230: 69 6f 6e 20 74 68 65 20 72 69 67 68 74 73 20 74 ion the rights t
0240: 6f 20 75 73 65 2c 20 63 6f 70 79 2c 20 6d 6f 64 o use, copy, mod
0250: 69 66 79 2c 20 6d 65 72 67 65 2c 20 70 75 62 6c ify, merge, publ
0260: 69 73 68 2c 0a 23 20 64 69 73 74 72 69 62 75 74 ish,.# distribut
0270: 65 2c 20 73 75 62 6c 69 63 65 6e 73 65 2c 20 61 e, sublicense, a
0280: 6e 64 2f 6f 72 20 73 65 6c 6c 20 63 6f 70 69 65 nd/or sell copie
0290: 73 20 6f 66 20 74 68 65 20 53 6f 66 74 77 61 72 s of the Softwar
02a0: 65 2c 20 61 6e 64 20 74 6f 0a 23 20 70 65 72 6d e, and to.# perm
02b0: 69 74 20 70 65 72 73 6f 6e 73 20 74 6f 20 77 68 it persons to wh
02c0: 6f 6d 20 74 68 65 20 53 6f 66 74 77 61 72 65 20 om the Software
02d0: 69 73 20 66 75 72 6e 69 73 68 65 64 20 74 6f 20 is furnished to
02e0: 64 6f 20 73 6f 2c 20 73 75 62 6a 65 63 74 20 74 do so, subject t
02f0: 6f 0a 23 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e o.# the followin
0300: 67 20 63 6f 6e 64 69 74 69 6f 6e 73 3a 0a 23 0a g conditions:.#.
0310: 23 20 54 68 65 20 61 62 6f 76 65 20 63 6f 70 79 # The above copy
0320: 72 69 67 68 74 20 6e 6f 74 69 63 65 20 61 6e 64 right notice and
0330: 20 74 68 69 73 20 70 65 72 6d 69 73 73 69 6f 6e this permission
0340: 20 6e 6f 74 69 63 65 20 73 68 61 6c 6c 20 62 65 notice shall be
0350: 0a 23 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 61 .# included in a
0360: 6c 6c 20 63 6f 70 69 65 73 20 6f 72 20 73 75 62 ll copies or sub
0370: 73 74 61 6e 74 69 61 6c 20 70 6f 72 74 69 6f 6e stantial portion
0380: 73 20 6f 66 20 74 68 65 20 53 6f 66 74 77 61 72 s of the Softwar
0390: 65 2e 0a 23 0a 23 20 54 48 45 20 53 4f 46 54 57 e..#.# THE SOFTW
03a0: 41 52 45 20 49 53 20 50 52 4f 56 49 44 45 44 20 ARE IS PROVIDED
03b0: 22 41 53 20 49 53 22 2c 20 57 49 54 48 4f 55 54 "AS IS", WITHOUT
03c0: 20 57 41 52 52 41 4e 54 59 20 4f 46 20 41 4e 59 WARRANTY OF ANY
03d0: 20 4b 49 4e 44 2c 0a 23 20 45 58 50 52 45 53 53 KIND,.# EXPRESS
03e0: 20 4f 52 20 49 4d 50 4c 49 45 44 2c 20 49 4e 43 OR IMPLIED, INC
03f0: 4c 55 44 49 4e 47 20 42 55 54 20 4e 4f 54 20 4c LUDING BUT NOT L
0400: 49 4d 49 54 45 44 20 54 4f 20 54 48 45 20 57 41 IMITED TO THE WA
0410: 52 52 41 4e 54 49 45 53 20 4f 46 0a 23 20 4d 45 RRANTIES OF.# ME
0420: 52 43 48 41 4e 54 41 42 49 4c 49 54 59 2c 20 46 RCHANTABILITY, F
0430: 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 ITNESS FOR A PAR
0440: 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 20 TICULAR PURPOSE
0450: 41 4e 44 20 4e 4f 4e 49 4e 46 52 49 4e 47 45 4d AND NONINFRINGEM
0460: 45 4e 54 2e 0a 23 20 49 4e 20 4e 4f 20 45 56 45 ENT..# IN NO EVE
0470: 4e 54 20 53 48 41 4c 4c 20 54 48 45 20 41 55 54 NT SHALL THE AUT
0480: 48 4f 52 53 20 4c 49 53 54 45 44 20 41 42 4f 56 HORS LISTED ABOV
0490: 45 20 42 45 20 4c 49 41 42 4c 45 20 46 4f 52 20 E BE LIABLE FOR
04a0: 41 4e 59 20 43 4c 41 49 4d 2c 0a 23 20 44 41 4d ANY CLAIM,.# DAM
04b0: 41 47 45 53 20 4f 52 20 4f 54 48 45 52 20 4c 49 AGES OR OTHER LI
04c0: 41 42 49 4c 49 54 59 2c 20 57 48 45 54 48 45 52 ABILITY, WHETHER
04d0: 20 49 4e 20 41 4e 20 41 43 54 49 4f 4e 20 4f 46 IN AN ACTION OF
04e0: 20 43 4f 4e 54 52 41 43 54 2c 20 54 4f 52 54 0a CONTRACT, TORT.
04f0: 23 20 4f 52 20 4f 54 48 45 52 57 49 53 45 2c 20 # OR OTHERWISE,
0500: 41 52 49 53 49 4e 47 20 46 52 4f 4d 2c 20 4f 55 ARISING FROM, OU
0510: 54 20 4f 46 20 4f 52 20 49 4e 20 43 4f 4e 4e 45 T OF OR IN CONNE
0520: 43 54 49 4f 4e 20 57 49 54 48 20 54 48 45 20 53 CTION WITH THE S
0530: 4f 46 54 57 41 52 45 0a 23 20 4f 52 20 54 48 45 OFTWARE.# OR THE
0540: 20 55 53 45 20 4f 52 20 4f 54 48 45 52 20 44 45 USE OR OTHER DE
0550: 41 4c 49 4e 47 53 20 49 4e 20 54 48 45 20 53 4f ALINGS IN THE SO
0560: 46 54 57 41 52 45 2e 0a 23 0a 23 20 45 78 63 65 FTWARE..#.# Exce
0570: 70 74 20 61 73 20 63 6f 6e 74 61 69 6e 65 64 20 pt as contained
0580: 69 6e 20 74 68 69 73 20 6e 6f 74 69 63 65 2c 20 in this notice,
0590: 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 74 68 65 the names of the
05a0: 20 61 75 74 68 6f 72 73 20 61 62 6f 76 65 0a 23 authors above.#
05b0: 20 73 68 61 6c 6c 20 6e 6f 74 20 62 65 20 75 73 shall not be us
05c0: 65 64 20 69 6e 20 61 64 76 65 72 74 69 73 69 6e ed in advertisin
05d0: 67 20 6f 72 20 6f 74 68 65 72 77 69 73 65 20 74 g or otherwise t
05e0: 6f 20 70 72 6f 6d 6f 74 65 20 74 68 65 20 73 61 o promote the sa
05f0: 6c 65 2c 0a 23 20 75 73 65 20 6f 72 20 6f 74 68 le,.# use or oth
0600: 65 72 20 64 65 61 6c 69 6e 67 73 20 69 6e 20 74 er dealings in t
0610: 68 69 73 20 53 6f 66 74 77 61 72 65 20 77 69 74 his Software wit
0620: 68 6f 75 74 20 70 72 69 6f 72 20 77 72 69 74 74 hout prior writt
0630: 65 6e 0a 23 20 61 75 74 68 6f 72 69 7a 61 74 69 en.# authorizati
0640: 6f 6e 20 66 72 6f 6d 20 74 68 6f 73 65 20 61 75 on from those au
0650: 74 68 6f 72 73 2e 0a 23 23 23 23 23 23 23 23 23 thors..#########
0660: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0670: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0680: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0690: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a ###############.
06a0: 0a 23 20 42 72 69 6e 67 20 69 6e 20 6a 75 73 74 .# Bring in just
06b0: 20 74 68 65 20 62 61 73 69 63 73 20 73 6f 20 77 the basics so w
06c0: 65 20 63 61 6e 20 62 72 69 6e 67 20 69 6e 20 6f e can bring in o
06d0: 75 72 20 6c 6f 63 61 6c 20 6d 6f 64 75 6c 65 73 ur local modules
06e0: 0a 69 6d 70 6f 72 74 20 6f 73 0a 69 6d 70 6f 72 .import os.impor
06f0: 74 20 67 6c 6f 62 0a 69 6d 70 6f 72 74 20 73 79 t glob.import sy
0700: 73 0a 69 6d 70 6f 72 74 20 73 74 72 69 6e 67 0a s.import string.
0710: 69 6d 70 6f 72 74 20 72 65 0a 69 6d 70 6f 72 74 import re.import
0720: 20 61 72 67 70 61 72 73 65 0a 0a 73 79 73 2e 70 argparse..sys.p
0730: 61 74 68 2e 69 6e 73 65 72 74 20 28 30 2c 20 6f ath.insert (0, o
0740: 73 2e 70 61 74 68 2e 64 69 72 6e 61 6d 65 20 28 s.path.dirname (
0750: 5f 5f 66 69 6c 65 5f 5f 29 20 2b 20 27 2f 2e 2e __file__) + '/..
0760: 2f 6c 69 62 27 29 0a 73 79 73 2e 70 61 74 68 2e /lib').sys.path.
0770: 69 6e 73 65 72 74 20 28 30 2c 20 6f 73 2e 67 65 insert (0, os.ge
0780: 74 63 77 64 20 28 29 20 2b 20 27 2f 6c 69 62 27 tcwd () + '/lib'
0790: 29 0a 0a 23 20 4f 75 72 20 6c 6f 63 61 6c 20 6d )..# Our local m
07a0: 6f 64 75 6c 65 73 0a 66 72 6f 6d 20 70 69 64 70 odules.from pidp
07b0: 38 69 20 69 6d 70 6f 72 74 20 2a 0a 66 72 6f 6d 8i import *.from
07c0: 20 73 69 6d 68 20 20 20 69 6d 70 6f 72 74 20 2a simh import *
07d0: 0a 0a 23 20 4f 74 68 65 72 20 67 6c 6f 62 61 6c ..# Other global
07e0: 20 50 79 74 68 6f 6e 20 6d 6f 64 75 6c 65 73 0a Python modules.
07f0: 69 6d 70 6f 72 74 20 67 6c 6f 62 0a 69 6d 70 6f import glob.impo
0800: 72 74 20 73 75 62 70 72 6f 63 65 73 73 0a 0a 0a rt subprocess...
0810: 23 23 23 23 20 47 4c 4f 42 41 4c 53 20 41 4e 44 #### GLOBALS AND
0820: 20 43 4f 4e 53 54 41 4e 54 53 20 23 23 23 23 23 CONSTANTS #####
0830: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0840: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0850: 23 23 23 23 23 23 23 23 0a 0a 70 72 6f 67 6d 73 ########..progms
0860: 67 20 3d 20 54 72 75 65 0a 44 45 42 55 47 20 3d g = True.DEBUG =
0870: 20 46 61 6c 73 65 0a 0a 23 20 72 65 67 65 78 20 False..# regex
0880: 66 6f 72 20 70 61 72 73 69 6e 67 20 61 6e 20 61 for parsing an a
0890: 72 67 75 6d 65 6e 74 20 73 74 72 69 6e 67 20 69 rgument string i
08a0: 6e 74 6f 20 61 20 73 79 73 20 64 65 76 69 63 65 nto a sys device
08b0: 0a 0a 5f 64 65 76 5f 61 72 67 5f 72 65 67 65 78 .._dev_arg_regex
08c0: 5f 73 74 72 20 3d 20 22 2d 28 72 6b 7c 74 64 7c _str = "-(rk|td|
08d0: 64 74 7c 72 78 29 28 5c 64 3f 29 28 73 29 3f 22 dt|rx)(\d?)(s)?"
08e0: 0a 5f 64 65 76 5f 61 72 67 5f 72 65 20 3d 20 72 ._dev_arg_re = r
08f0: 65 2e 63 6f 6d 70 69 6c 65 28 5f 64 65 76 5f 61 e.compile(_dev_a
0900: 72 67 5f 72 65 67 65 78 5f 73 74 72 29 0a 0a 23 rg_regex_str)..#
0910: 20 72 65 67 65 78 20 66 6f 72 20 70 61 72 73 69 regex for parsi
0920: 6e 67 20 61 6e 20 61 63 74 69 6f 6e 20 66 69 6c ng an action fil
0930: 65 20 61 74 74 20 73 74 72 69 6e 67 20 69 6e 74 e att string int
0940: 6f 20 61 20 73 79 73 20 64 65 76 69 63 65 0a 23 o a sys device.#
0950: 20 72 65 75 73 65 20 5f 64 65 76 5f 61 72 67 5f reuse _dev_arg_
0960: 72 65 67 65 78 5f 73 74 72 0a 0a 5f 64 65 76 5f regex_str.._dev_
0970: 61 63 74 66 69 6c 65 5f 72 65 67 65 78 5f 73 74 actfile_regex_st
0980: 72 20 3d 20 5f 64 65 76 5f 61 72 67 5f 72 65 67 r = _dev_arg_reg
0990: 65 78 5f 73 74 72 5b 31 3a 5d 20 20 20 23 20 73 ex_str[1:] # s
09a0: 74 72 69 70 20 2d 0a 5f 64 65 76 5f 61 63 74 66 trip -._dev_actf
09b0: 69 6c 65 5f 72 65 20 3d 20 72 65 2e 63 6f 6d 70 ile_re = re.comp
09c0: 69 6c 65 20 28 5f 64 65 76 5f 61 63 74 66 69 6c ile (_dev_actfil
09d0: 65 5f 72 65 67 65 78 5f 73 74 72 29 0a 0a 5f 6f e_regex_str).._o
09e0: 73 38 5f 66 72 6f 6d 5f 73 69 6d 68 5f 64 65 76 s8_from_simh_dev
09f0: 20 3d 20 7b 22 72 6b 22 20 3a 20 22 52 4b 22 2c = {"rk" : "RK",
0a00: 20 22 74 64 22 20 3a 20 22 44 54 41 22 2c 20 22 "td" : "DTA", "
0a10: 64 74 22 20 3a 20 22 44 54 41 22 2c 20 22 72 78 dt" : "DTA", "rx
0a20: 22 20 3a 20 22 52 58 22 7d 0a 5f 6f 73 38 5f 70 " : "RX"}._os8_p
0a30: 61 72 74 69 74 69 6f 6e 73 20 3d 20 7b 22 52 4b artitions = {"RK
0a40: 22 3a 20 5b 22 41 22 2c 20 22 42 22 5d 7d 0a 0a ": ["A", "B"]}..
0a50: 5f 6f 73 38 5f 66 69 6c 65 5f 72 65 67 65 78 5f _os8_file_regex_
0a60: 73 74 72 20 3d 20 22 28 5c 53 2b 29 3a 28 5c 53 str = "(\S+):(\S
0a70: 2b 29 3f 22 0a 5f 6f 73 38 5f 66 69 6c 65 5f 72 +)?"._os8_file_r
0a80: 65 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28 5f e = re.compile(_
0a90: 6f 73 38 5f 66 69 6c 65 5f 72 65 67 65 78 5f 73 os8_file_regex_s
0aa0: 74 72 29 0a 0a 5f 76 61 6c 69 64 5f 6f 70 74 69 tr).._valid_opti
0ab0: 6f 6e 73 20 3d 20 22 61 62 69 79 7a 22 0a 0a 5f ons = "abiyz".._
0ac0: 61 72 67 5f 74 6f 5f 6f 70 74 69 6f 6e 20 3d 20 arg_to_option =
0ad0: 7b 22 2d 61 22 20 3a 20 22 61 22 2c 20 22 2d 62 {"-a" : "a", "-b
0ae0: 22 20 3a 20 22 62 22 2c 20 22 2d 69 22 20 3a 20 " : "b", "-i" :
0af0: 22 69 22 2c 20 22 2d 79 22 20 3a 20 22 79 22 2c "i", "-y" : "y",
0b00: 20 22 2d 7a 22 20 3a 20 22 7a 22 20 7d 0a 5f 6f "-z" : "z" }._o
0b10: 70 74 69 6f 6e 5f 74 6f 5f 69 6e 66 6f 20 3d 20 ption_to_info =
0b20: 7b 22 61 22 20 3a 20 22 41 53 43 49 49 22 2c 20 {"a" : "ASCII",
0b30: 22 62 22 20 3a 20 22 62 69 6e 61 72 79 22 2c 20 "b" : "binary",
0b40: 22 69 22 20 3a 20 22 69 6d 61 67 65 22 2c 0a 20 "i" : "image",.
0b50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0b60: 20 20 20 22 79 22 20 3a 20 22 79 61 6e 6b 20 73 "y" : "yank s
0b70: 79 73 74 65 6d 20 68 65 61 64 22 2c 20 22 7a 22 ystem head", "z"
0b80: 20 3a 20 22 7a 65 72 6f 20 64 65 76 69 63 65 22 : "zero device"
0b90: 20 7d 0a 20 20 0a 0a 0a 0a 23 23 23 23 20 55 54 }. ....#### UT
0ba0: 49 4c 49 54 59 20 52 4f 55 54 49 4e 45 53 20 23 ILITY ROUTINES #
0bb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0bc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0bd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0be0: 23 0a 0a 64 65 66 20 66 65 74 63 68 5f 6f 6e 65 #..def fetch_one
0bf0: 20 28 73 2c 20 6f 73 38 64 65 76 2c 20 6f 6e 61 (s, os8dev, ona
0c00: 6d 65 29 3a 0a 20 20 69 66 20 64 65 62 75 67 3a me):. if debug:
0c10: 20 70 72 69 6e 74 20 22 5c 74 22 20 2b 20 6f 6e print "\t" + on
0c20: 61 6d 65 0a 20 20 66 6e 61 6d 65 2c 20 6f 70 74 ame. fname, opt
0c30: 69 6f 6e 20 3d 20 65 78 74 72 61 63 74 5f 6f 70 ion = extract_op
0c40: 74 69 6f 6e 28 6f 6e 61 6d 65 29 0a 20 20 69 66 tion(oname). if
0c50: 20 64 65 62 75 67 3a 20 70 72 69 6e 74 20 22 4f debug: print "O
0c60: 70 74 69 6f 6e 3a 20 22 20 2b 20 6f 70 74 69 6f ption: " + optio
0c70: 6e 20 2b 20 22 2c 20 66 6e 61 6d 65 3a 20 22 20 n + ", fname: "
0c80: 2b 20 66 6e 61 6d 65 0a 20 20 73 2e 6f 73 38 5f + fname. s.os8_
0c90: 66 65 74 63 68 5f 70 69 70 28 6f 73 38 64 65 76 fetch_pip(os8dev
0ca0: 2c 20 66 6e 61 6d 65 2c 20 6f 70 74 69 6f 6e 29 , fname, option)
0cb0: 0a 0a 64 65 66 20 73 65 6e 64 5f 6f 6e 65 20 28 ..def send_one (
0cc0: 73 2c 20 6f 73 38 64 65 76 2c 20 69 6e 61 6d 65 s, os8dev, iname
0cd0: 29 3a 0a 20 20 69 66 20 64 65 62 75 67 3a 20 70 ):. if debug: p
0ce0: 72 69 6e 74 20 22 5c 74 22 20 2b 20 69 6e 61 6d rint "\t" + inam
0cf0: 65 0a 20 20 66 6e 61 6d 65 2c 20 6f 70 74 69 6f e. fname, optio
0d00: 6e 20 3d 20 65 78 74 72 61 63 74 5f 6f 70 74 69 n = extract_opti
0d10: 6f 6e 28 69 6e 61 6d 65 29 0a 20 20 69 66 20 64 on(iname). if d
0d20: 65 62 75 67 3a 20 70 72 69 6e 74 20 22 4f 70 74 ebug: print "Opt
0d30: 69 6f 6e 3a 20 22 20 2b 20 6f 70 74 69 6f 6e 20 ion: " + option
0d40: 2b 20 22 2c 20 66 6e 61 6d 65 3a 20 22 20 2b 20 + ", fname: " +
0d50: 66 6e 61 6d 65 0a 20 20 73 2e 6f 73 38 5f 73 65 fname. s.os8_se
0d60: 6e 64 5f 70 69 70 28 6f 73 38 64 65 76 2c 20 66 nd_pip(os8dev, f
0d70: 6e 61 6d 65 2c 20 6f 70 74 69 6f 6e 29 0a 0a 23 name, option)..#
0d80: 23 23 23 20 61 62 6f 72 74 5f 70 72 6f 67 20 23 ### abort_prog #
0d90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0da0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0db0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0dc0: 23 23 23 23 23 23 23 0a 23 0a 23 20 50 72 69 6e #######.#.# Prin
0dd0: 74 20 65 72 72 5f 73 74 72 69 6e 67 20 61 6e 64 t err_string and
0de0: 20 65 78 69 74 20 77 69 74 68 20 2d 31 20 72 65 exit with -1 re
0df0: 74 75 72 6e 20 73 74 61 74 75 73 2e 0a 23 0a 0a turn status..#..
0e00: 64 65 66 20 61 62 6f 72 74 5f 70 72 6f 67 20 28 def abort_prog (
0e10: 65 72 72 5f 73 74 72 29 3a 0a 20 20 70 72 69 6e err_str):. prin
0e20: 74 20 22 41 62 6f 72 74 3a 20 22 20 2b 20 65 72 t "Abort: " + er
0e30: 72 5f 73 74 72 0a 20 20 73 79 73 2e 65 78 69 74 r_str. sys.exit
0e40: 28 2d 31 29 0a 0a 23 23 23 23 20 70 61 72 73 65 (-1)..#### parse
0e50: 5f 61 74 74 61 63 68 20 23 23 23 23 23 23 23 23 _attach ########
0e60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0e70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0e80: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 0a #############.#.
0e90: 23 20 50 61 72 73 65 72 20 66 6f 72 20 4f 53 2f # Parser for OS/
0ea0: 38 20 61 74 74 61 63 68 20 73 70 65 63 2e 0a 23 8 attach spec..#
0eb0: 0a 0a 64 65 66 20 70 61 72 73 65 5f 61 74 74 61 ..def parse_atta
0ec0: 63 68 20 28 61 63 74 69 6f 6e 5f 70 6c 61 6e 2c ch (action_plan,
0ed0: 20 6d 61 74 63 68 2c 20 69 6d 61 67 65 6e 61 6d match, imagenam
0ee0: 65 29 3a 0a 20 20 69 66 20 6d 61 74 63 68 2e 67 e):. if match.g
0ef0: 72 6f 75 70 28 32 29 20 3d 3d 20 4e 6f 6e 65 20 roup(2) == None
0f00: 6f 72 20 6d 61 74 63 68 2e 67 72 6f 75 70 28 32 or match.group(2
0f10: 29 20 3d 3d 20 22 22 3a 0a 20 20 20 20 61 62 6f ) == "":. abo
0f20: 72 74 5f 70 72 6f 67 20 28 22 4e 65 65 64 20 75 rt_prog ("Need u
0f30: 6e 69 74 20 6e 75 6d 62 65 72 20 66 6f 72 3a 20 nit number for:
0f40: 22 20 2b 20 6d 61 74 63 68 2e 67 72 6f 75 70 28 " + match.group(
0f50: 31 29 20 2b 20 22 2e 22 29 0a 0a 20 20 69 6d 61 1) + ".").. ima
0f60: 67 65 5f 73 70 65 63 20 3d 20 5b 6d 61 74 63 68 ge_spec = [match
0f70: 2e 67 72 6f 75 70 28 31 29 2c 20 6d 61 74 63 68 .group(1), match
0f80: 2e 67 72 6f 75 70 28 32 29 2c 20 69 6d 61 67 65 .group(2), image
0f90: 6e 61 6d 65 5d 0a 20 20 69 66 20 6d 61 74 63 68 name]. if match
0fa0: 2e 67 72 6f 75 70 28 33 29 20 3d 3d 20 27 73 27 .group(3) == 's'
0fb0: 3a 20 0a 20 20 20 20 69 66 20 61 63 74 69 6f 6e : . if action
0fc0: 5f 70 6c 61 6e 20 5b 22 73 79 73 22 5d 20 21 3d _plan ["sys"] !=
0fd0: 20 4e 6f 6e 65 3a 0a 20 20 20 20 20 20 70 72 69 None:. pri
0fe0: 6e 74 20 28 22 41 6c 72 65 61 64 79 20 73 70 65 nt ("Already spe
0ff0: 63 69 66 69 65 64 20 73 79 73 74 65 6d 20 64 65 cified system de
1000: 76 69 63 65 2e 20 49 67 6e 6f 72 69 6e 67 20 73 vice. Ignoring s
1010: 79 73 20 6d 6f 75 6e 74 20 6f 66 3a 20 22 20 2b ys mount of: " +
1020: 20 69 6d 61 67 65 6e 61 6d 65 29 0a 20 20 20 20 imagename).
1030: 65 6c 73 65 3a 0a 20 20 20 20 20 20 61 63 74 69 else:. acti
1040: 6f 6e 5f 70 6c 61 6e 5b 22 73 79 73 22 5d 20 3d on_plan["sys"] =
1050: 20 69 6d 61 67 65 5f 73 70 65 63 0a 20 20 65 6c image_spec. el
1060: 73 65 3a 0a 20 20 20 20 61 63 74 69 6f 6e 5f 70 se:. action_p
1070: 6c 61 6e 5b 22 6d 6f 75 6e 74 22 5d 2e 61 70 70 lan["mount"].app
1080: 65 6e 64 28 69 6d 61 67 65 5f 73 70 65 63 29 0a end(image_spec).
1090: 0a 20 20 0a 23 23 23 23 20 70 61 72 73 65 5f 61 . .#### parse_a
10a0: 63 74 69 6f 6e 5f 66 69 6c 65 20 23 23 23 23 23 ction_file #####
10b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
10c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
10d0: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 0a 23 ############.#.#
10e0: 20 54 68 69 73 20 6f 70 74 69 6f 6e 20 61 6c 6c This option all
10f0: 6f 77 73 20 63 72 65 61 74 69 6f 6e 20 6f 66 20 ows creation of
1100: 74 68 65 20 61 63 74 69 6f 6e 5f 70 6c 61 6e 20 the action_plan
1110: 66 72 6f 6d 20 61 20 66 69 6c 65 0a 23 20 69 6e from a file.# in
1120: 73 74 65 61 64 20 6f 66 20 62 79 20 69 6e 64 69 stead of by indi
1130: 76 69 74 75 61 6c 20 61 72 67 75 6d 65 6e 74 73 vitual arguments
1140: 2e 20 20 54 68 69 6e 6b 20 6f 66 20 69 74 20 61 . Think of it a
1150: 73 20 61 20 62 61 74 63 68 20 6d 6f 64 65 2e 0a s a batch mode..
1160: 23 0a 23 20 46 69 67 75 72 69 6e 67 20 6f 75 74 #.# Figuring out
1170: 20 68 6f 77 20 74 6f 20 6d 69 78 20 63 6f 6d 6d how to mix comm
1180: 61 6e 64 20 6c 69 6e 65 73 20 61 72 67 73 20 61 and lines args a
1190: 6e 64 20 74 68 65 20 61 63 74 69 6f 6e 5f 66 69 nd the action_fi
11a0: 6c 65 0a 23 20 77 6f 75 6c 64 20 62 65 20 74 72 le.# would be tr
11b0: 69 63 6b 79 20 73 69 6e 63 65 20 74 68 65 20 61 icky since the a
11c0: 72 67 73 20 61 72 65 20 67 6c 6f 62 62 65 64 2c rgs are globbed,
11d0: 20 61 6e 61 6c 79 7a 65 64 20 61 6e 64 20 74 68 analyzed and th
11e0: 65 6e 0a 23 20 74 75 72 6e 65 64 20 69 6e 74 6f en.# turned into
11f0: 20 61 6e 20 61 63 74 69 6f 6e 20 70 6c 61 6e 2e an action plan.
1200: 0a 23 0a 23 20 46 6f 72 20 6e 6f 77 2c 20 74 68 .#.# For now, th
1210: 65 20 61 63 74 69 6f 6e 20 66 69 6c 65 20 52 45 e action file RE
1220: 50 4c 41 43 45 53 20 74 68 65 20 61 63 74 69 6f PLACES the actio
1230: 6e 20 70 6c 61 6e 20 6f 66 20 61 6e 79 20 6f 74 n plan of any ot
1240: 68 65 72 0a 23 20 63 6f 6d 6d 61 6e 64 20 6c 69 her.# command li
1250: 6e 65 20 61 72 67 75 6d 65 6e 74 73 20 62 65 66 ne arguments bef
1260: 6f 72 65 20 2d 2d 61 63 74 69 6f 6e 2d 66 69 6c ore --action-fil
1270: 65 2c 20 61 6e 64 20 6e 6f 20 6f 74 68 65 72 0a e, and no other.
1280: 23 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20 61 # command line a
1290: 72 67 75 6d 65 6e 74 73 20 61 72 65 20 62 6f 74 rguments are bot
12a0: 68 65 72 65 64 20 77 69 74 68 2e 0a 23 0a 23 20 hered with..#.#
12b0: 54 68 65 20 61 63 74 69 6f 6e 20 66 69 6c 65 20 The action file
12c0: 69 73 20 33 20 63 6f 6c 75 6d 6e 73 20 73 65 70 is 3 columns sep
12d0: 61 72 61 74 65 64 20 62 79 20 6f 6e 65 20 6f 72 arated by one or
12e0: 20 6d 6f 72 65 20 77 68 69 74 65 70 61 63 65 20 more whitepace
12f0: 63 68 61 72 73 2e 0a 23 0a 23 20 49 66 20 74 68 chars..#.# If th
1300: 65 20 66 69 72 73 74 20 63 6f 6c 75 6d 6e 20 69 e first column i
1310: 73 20 22 61 74 74 22 20 69 74 27 73 20 61 6e 20 s "att" it's an
1320: 61 74 74 61 63 68 20 63 6f 6d 6d 61 6e 64 0a 23 attach command.#
1330: 20 61 6e 64 20 69 73 20 70 61 72 73 65 64 20 74 and is parsed t
1340: 68 65 20 73 61 6d 65 20 77 61 79 20 61 73 20 74 he same way as t
1350: 68 65 20 61 74 74 61 63 68 20 61 72 67 73 20 61 he attach args a
1360: 72 65 20 70 61 72 73 65 64 0a 23 20 28 45 78 63 re parsed.# (Exc
1370: 65 70 74 20 77 65 20 64 6f 6e 27 74 20 68 61 76 ept we don't hav
1380: 65 20 61 20 64 61 73 68 2e 29 0a 23 0a 23 20 4f e a dash.).#.# O
1390: 74 68 65 72 77 69 73 65 20 74 68 65 20 33 20 63 therwise the 3 c
13a0: 6f 6c 75 6d 6e 73 20 61 72 65 3a 0a 23 0a 23 20 olumns are:.#.#
13b0: 6f 70 74 69 6f 6e 20 20 20 20 20 73 6f 75 72 63 option sourc
13c0: 65 20 20 20 64 65 73 74 69 6e 61 74 69 6f 6e 0a e destination.
13d0: 23 0a 23 20 6f 70 74 69 6f 6e 20 69 73 20 6f 6e #.# option is on
13e0: 65 20 6f 66 20 74 68 65 20 76 61 6c 69 64 20 4f e of the valid O
13f0: 53 2f 38 20 66 69 6c 65 20 6f 70 74 69 6f 6e 73 S/8 file options
1400: 3a 0a 23 20 61 2c 20 62 2c 20 69 2c 20 79 2c 20 :.# a, b, i, y,
1410: 7a 0a 23 0a 23 20 45 78 61 6d 70 6c 65 3a 0a 23 z.#.# Example:.#
1420: 0a 23 20 61 74 74 09 72 6b 30 73 09 62 6f 6f 74 .# att.rk0s.boot
1430: 64 69 73 6b 2e 72 6b 30 35 0a 23 20 61 74 74 09 disk.rk05.# att.
1440: 74 64 30 09 62 6f 69 6e 67 2e 74 75 35 36 0a 23 td0.boing.tu56.#
1450: 20 61 09 70 69 64 70 38 69 2e 69 6e 09 44 54 41 a.pidp8i.in.DTA
1460: 30 3a 0a 23 20 62 09 61 63 2d 6d 71 2d 62 6c 69 0:.# b.ac-mq-bli
1470: 6e 6b 65 72 2e 70 61 6c 2e 70 74 09 44 54 41 30 nker.pal.pt.DTA0
1480: 3a 0a 0a 0a 64 65 66 20 70 61 72 73 65 5f 61 63 :...def parse_ac
1490: 74 69 6f 6e 5f 66 69 6c 65 28 66 6e 61 6d 65 29 tion_file(fname)
14a0: 3a 0a 20 20 74 72 79 3a 0a 20 20 20 20 6d 61 6e :. try:. man
14b0: 69 66 65 73 74 20 3d 20 6f 70 65 6e 28 66 6e 61 ifest = open(fna
14c0: 6d 65 2c 20 22 72 22 29 0a 20 20 65 78 63 65 70 me, "r"). excep
14d0: 74 20 49 4f 45 72 72 6f 72 3a 0a 20 20 20 20 70 t IOError:. p
14e0: 72 69 6e 74 20 66 6e 61 6d 65 20 2b 20 22 20 6e rint fname + " n
14f0: 6f 74 20 66 6f 75 6e 64 2e 20 53 6b 69 70 70 69 ot found. Skippi
1500: 6e 67 2e 22 0a 20 20 20 20 72 65 74 75 72 6e 20 ng.". return
1510: 4e 6f 6e 65 0a 0a 20 20 69 6f 6c 69 6e 65 5f 72 None.. ioline_r
1520: 65 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22 e = re.compile("
1530: 28 5c 53 2b 29 5c 73 2b 28 5c 53 2b 29 5c 73 2b (\S+)\s+(\S+)\s+
1540: 28 5c 53 2b 29 22 29 0a 0a 20 20 61 63 74 69 6f (\S+)").. actio
1550: 6e 5f 70 6c 61 6e 20 3d 20 7b 7d 0a 20 20 61 63 n_plan = {}. ac
1560: 74 69 6f 6e 5f 70 6c 61 6e 5b 22 73 79 73 22 5d tion_plan["sys"]
1570: 20 3d 20 4e 6f 6e 65 0a 20 20 61 63 74 69 6f 6e = None. action
1580: 5f 70 6c 61 6e 5b 22 6d 6f 75 6e 74 22 5d 20 3d _plan["mount"] =
1590: 20 5b 5d 0a 20 20 61 63 74 69 6f 6e 5f 70 6c 61 []. action_pla
15a0: 6e 5b 22 63 6f 70 79 22 5d 20 3d 20 5b 5d 0a 0a n["copy"] = []..
15b0: 20 20 66 6f 72 20 6c 69 6e 65 20 69 6e 20 6d 61 for line in ma
15c0: 6e 69 66 65 73 74 3a 0a 20 20 20 20 69 6f 6c 69 nifest:. ioli
15d0: 6e 65 20 3d 20 6c 69 6e 65 2e 73 74 72 69 70 28 ne = line.strip(
15e0: 29 0a 20 20 20 20 69 66 20 44 45 42 55 47 3a 20 ). if DEBUG:
15f0: 70 72 69 6e 74 20 22 70 61 72 73 65 5f 61 63 74 print "parse_act
1600: 69 6f 6e 5f 66 69 6c 65 3a 20 69 6f 6c 69 6e 65 ion_file: ioline
1610: 3a 20 22 20 2b 20 69 6f 6c 69 6e 65 0a 20 20 20 : " + ioline.
1620: 20 69 66 20 69 6f 6c 69 6e 65 20 3d 3d 20 22 22 if ioline == ""
1630: 3a 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20 20 69 : continue. i
1640: 66 20 69 6f 6c 69 6e 65 5b 30 5d 20 3d 3d 20 27 f ioline[0] == '
1650: 23 27 3a 20 63 6f 6e 74 69 6e 75 65 20 20 20 20 #': continue
1660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 #
1670: 41 6c 6c 6f 77 20 63 6f 6d 6d 65 6e 74 73 0a 0a Allow comments..
1680: 20 20 20 20 6d 3d 72 65 2e 6d 61 74 63 68 28 69 m=re.match(i
1690: 6f 6c 69 6e 65 5f 72 65 2c 20 69 6f 6c 69 6e 65 oline_re, ioline
16a0: 29 0a 20 20 20 20 69 66 20 6d 3d 3d 20 4e 6f 6e ). if m== Non
16b0: 65 3a 20 0a 20 20 20 20 20 20 70 72 69 6e 74 20 e: . print
16c0: 22 49 67 6e 6f 72 69 6e 67 20 6c 69 6e 65 3a 20 "Ignoring line:
16d0: 22 20 2b 20 69 6f 6c 69 6e 65 0a 20 20 20 20 20 " + ioline.
16e0: 20 63 6f 6e 74 69 6e 75 65 0a 0a 20 20 20 20 6f continue.. o
16f0: 70 74 69 6f 6e 20 3d 20 6d 2e 67 72 6f 75 70 28 ption = m.group(
1700: 31 29 0a 20 20 20 20 73 6f 75 72 63 65 20 3d 20 1). source =
1710: 6d 2e 67 72 6f 75 70 28 32 29 0a 20 20 20 20 64 m.group(2). d
1720: 65 73 74 69 6e 61 74 69 6f 6e 20 3d 20 6d 2e 67 estination = m.g
1730: 72 6f 75 70 28 33 29 0a 20 20 20 20 0a 20 20 20 roup(3). .
1740: 20 69 66 20 6f 70 74 69 6f 6e 20 3d 3d 20 22 61 if option == "a
1750: 74 74 22 3a 0a 20 20 20 20 20 20 6d 20 3d 20 72 tt":. m = r
1760: 65 2e 6d 61 74 63 68 28 5f 64 65 76 5f 61 63 74 e.match(_dev_act
1770: 66 69 6c 65 5f 72 65 2c 20 73 6f 75 72 63 65 29 file_re, source)
1780: 0a 20 20 20 20 20 20 69 66 20 6d 3d 3d 20 4e 6f . if m== No
1790: 6e 65 3a 0a 20 20 20 20 20 20 20 20 70 72 6f 67 ne:. prog
17a0: 5f 61 62 6f 72 74 20 28 22 43 6f 75 6c 64 20 6e _abort ("Could n
17b0: 6f 74 20 70 61 72 73 65 20 61 74 74 61 63 68 20 ot parse attach
17c0: 73 70 65 63 3a 20 22 20 2b 20 73 6f 75 72 63 65 spec: " + source
17d0: 29 0a 20 20 20 20 20 20 70 61 72 73 65 5f 61 74 ). parse_at
17e0: 74 61 63 68 20 28 61 63 74 69 6f 6e 5f 70 6c 61 tach (action_pla
17f0: 6e 2c 20 6d 2c 20 64 65 73 74 69 6e 61 74 69 6f n, m, destinatio
1800: 6e 29 0a 20 20 20 20 65 6c 73 65 3a 0a 20 20 20 n). else:.
1810: 20 20 20 69 66 20 6c 65 6e 28 6f 70 74 69 6f 6e if len(option
1820: 29 20 21 3d 20 31 3a 0a 20 20 20 20 20 20 20 20 ) != 1:.
1830: 70 72 69 6e 74 20 22 46 6f 72 6d 61 74 20 6f 70 print "Format op
1840: 74 69 6f 6e 73 20 61 72 65 20 6f 6e 6c 79 20 31 tions are only 1
1850: 20 6c 65 74 74 65 72 20 69 6e 20 73 69 7a 65 2e letter in size.
1860: 20 49 67 6e 6f 72 69 6e 67 20 6c 69 6e 65 3a 20 Ignoring line:
1870: 22 20 2b 20 69 6f 6c 69 6e 65 0a 20 20 20 20 20 " + ioline.
1880: 20 65 6c 69 66 20 6f 70 74 69 6f 6e 5b 30 5d 20 elif option[0]
1890: 6e 6f 74 20 69 6e 20 5f 76 61 6c 69 64 5f 6f 70 not in _valid_op
18a0: 74 69 6f 6e 73 3a 0a 20 20 20 20 20 20 20 20 70 tions:. p
18b0: 72 69 6e 74 20 22 55 6e 72 65 63 6f 67 6e 69 7a rint "Unrecogniz
18c0: 65 20 6f 70 74 69 6f 6e 20 69 6e 20 6c 69 6e 65 e option in line
18d0: 3a 20 22 20 2b 20 69 6f 6c 69 6e 65 0a 20 20 20 : " + ioline.
18e0: 20 20 20 65 6c 69 66 20 73 6f 75 72 63 65 20 3d elif source =
18f0: 3d 20 4e 6f 6e 65 3a 0a 20 20 20 20 20 20 20 20 = None:.
1900: 70 72 69 6e 74 20 22 4e 75 6c 6c 20 76 61 6c 75 print "Null valu
1910: 65 20 6f 66 20 73 6f 75 72 63 65 2e 20 49 67 6e e of source. Ign
1920: 6f 72 69 6e 67 20 6c 69 6e 65 3a 20 22 20 2b 20 oring line: " +
1930: 69 6f 6c 69 6e 65 0a 20 20 20 20 20 20 65 6c 69 ioline. eli
1940: 66 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 3d 3d f destination ==
1950: 20 4e 6f 6e 65 3a 0a 20 20 20 20 20 20 20 20 70 None:. p
1960: 72 69 6e 74 20 22 4e 75 6c 6c 20 76 61 6c 75 65 rint "Null value
1970: 20 6f 66 20 64 65 73 74 69 6e 61 74 69 6f 6e 2e of destination.
1980: 20 49 67 6e 6f 72 69 6e 67 20 6c 69 6e 65 3a 20 Ignoring line:
1990: 22 20 2b 20 69 6f 6c 69 6e 65 0a 20 20 20 20 20 " + ioline.
19a0: 20 65 6c 73 65 3a 0a 20 20 20 20 20 20 20 20 61 else:. a
19b0: 63 74 69 6f 6e 5f 70 6c 61 6e 5b 22 63 6f 70 79 ction_plan["copy
19c0: 22 5d 2e 61 70 70 65 6e 64 28 5b 6f 70 74 69 6f "].append([optio
19d0: 6e 2c 20 73 6f 75 72 63 65 2c 20 64 65 73 74 69 n, source, desti
19e0: 6e 61 74 69 6f 6e 5d 29 0a 0a 20 20 72 65 74 75 nation]).. retu
19f0: 72 6e 20 61 63 74 69 6f 6e 5f 70 6c 61 6e 0a 0a rn action_plan..
1a00: 64 65 66 20 69 73 5f 64 69 72 65 63 74 6f 72 79 def is_directory
1a10: 28 70 61 74 68 29 3a 0a 20 20 69 66 20 44 45 42 (path):. if DEB
1a20: 55 47 3a 20 22 69 73 5f 64 69 72 65 63 74 6f 72 UG: "is_director
1a30: 79 20 28 22 20 2b 20 70 61 74 68 20 2b 20 22 29 y (" + path + ")
1a40: 22 0a 20 20 6d 20 3d 20 72 65 2e 6d 61 74 63 68 ". m = re.match
1a50: 28 5f 6f 73 38 5f 66 69 6c 65 5f 72 65 2c 20 70 (_os8_file_re, p
1a60: 61 74 68 29 0a 20 20 69 66 20 6d 20 21 3d 20 4e ath). if m != N
1a70: 6f 6e 65 3a 0a 20 20 20 20 69 66 20 44 45 42 55 one:. if DEBU
1a80: 47 3a 20 70 72 69 6e 74 20 22 4f 53 2f 38 20 4d G: print "OS/8 M
1a90: 61 74 63 68 3a 20 44 45 56 3a 20 22 20 2b 20 6d atch: DEV: " + m
1aa0: 2e 67 72 6f 75 70 28 31 29 20 2b 20 22 2c 20 46 .group(1) + ", F
1ab0: 69 6c 65 3a 20 22 20 2b 20 73 74 72 28 6d 2e 67 ile: " + str(m.g
1ac0: 72 6f 75 70 28 32 29 29 0a 20 20 20 20 69 66 20 roup(2)). if
1ad0: 6d 2e 67 72 6f 75 70 28 32 29 20 3d 3d 20 4e 6f m.group(2) == No
1ae0: 6e 65 20 6f 72 20 6d 2e 67 72 6f 75 70 28 32 29 ne or m.group(2)
1af0: 20 3d 3d 20 22 22 3a 20 0a 20 20 20 20 20 20 72 == "": . r
1b00: 65 74 75 72 6e 20 54 72 75 65 20 20 20 20 20 23 eturn True #
1b10: 20 4a 75 73 74 20 61 20 64 65 76 69 63 65 20 73 Just a device s
1b20: 6f 20 79 65 73 20 69 74 27 73 20 61 20 64 69 72 o yes it's a dir
1b30: 65 63 74 6f 72 79 2e 0a 20 20 20 20 65 6c 73 65 ectory.. else
1b40: 3a 20 72 65 74 75 72 6e 20 46 61 6c 73 65 0a 20 : return False.
1b50: 20 69 66 20 68 61 73 5f 6f 73 38 5f 77 69 6c 64 if has_os8_wild
1b60: 63 61 72 64 73 28 70 61 74 68 29 3a 0a 20 20 20 cards(path):.
1b70: 20 69 66 20 44 45 42 55 47 3a 20 70 72 69 6e 74 if DEBUG: print
1b80: 20 22 48 61 73 20 77 69 6c 64 63 61 72 64 73 2e "Has wildcards.
1b90: 22 0a 20 20 20 20 72 65 74 75 72 6e 20 46 61 6c ". return Fal
1ba0: 73 65 0a 20 20 72 65 74 75 72 6e 20 6f 73 2e 70 se. return os.p
1bb0: 61 74 68 2e 69 73 64 69 72 28 70 61 74 68 29 0a ath.isdir(path).
1bc0: 0a 64 65 66 20 68 61 73 5f 6f 73 38 5f 77 69 6c .def has_os8_wil
1bd0: 64 63 61 72 64 73 20 28 66 69 6c 65 6e 61 6d 65 dcards (filename
1be0: 29 3a 0a 20 20 6f 73 38 5f 77 69 6c 64 5f 63 61 ):. os8_wild_ca
1bf0: 72 64 73 20 3d 20 22 2a 3f 22 0a 20 20 66 6f 72 rds = "*?". for
1c00: 20 63 68 61 72 20 69 6e 20 6f 73 38 5f 77 69 6c char in os8_wil
1c10: 64 5f 63 61 72 64 73 3a 0a 20 20 20 20 69 66 20 d_cards:. if
1c20: 63 68 61 72 20 69 6e 20 66 69 6c 65 6e 61 6d 65 char in filename
1c30: 3a 20 72 65 74 75 72 6e 20 54 72 75 65 0a 20 20 : return True.
1c40: 72 65 74 75 72 6e 20 46 61 6c 73 65 0a 0a 64 65 return False..de
1c50: 66 20 61 70 70 65 6e 64 5f 63 6f 70 79 28 61 63 f append_copy(ac
1c60: 74 69 6f 6e 5f 70 6c 61 6e 2c 20 6d 6f 64 65 2c tion_plan, mode,
1c70: 20 73 6f 75 72 63 65 2c 20 64 65 73 74 69 6e 61 source, destina
1c80: 74 69 6f 6e 29 3a 0a 20 20 69 66 20 22 3a 22 20 tion):. if ":"
1c90: 69 6e 20 73 6f 75 72 63 65 3a 0a 20 20 20 20 69 in source:. i
1ca0: 66 20 22 2f 22 20 69 6e 20 73 6f 75 72 63 65 3a f "/" in source:
1cb0: 0a 20 20 20 20 20 20 70 72 69 6e 74 20 22 49 6c . print "Il
1cc0: 6c 65 67 61 6c 20 4f 53 2f 38 20 66 69 6c 65 20 legal OS/8 file
1cd0: 73 70 65 63 20 63 6f 6e 74 61 69 6e 69 6e 67 20 spec containing
1ce0: 61 20 73 6c 61 73 68 3a 22 20 2b 20 73 6f 75 72 a slash:" + sour
1cf0: 63 65 0a 20 20 20 20 20 20 73 79 73 2e 65 78 69 ce. sys.exi
1d00: 74 28 2d 31 29 0a 20 20 20 20 73 6f 75 72 63 65 t(-1). source
1d10: 20 3d 20 73 6f 75 72 63 65 2e 75 70 70 65 72 28 = source.upper(
1d20: 29 0a 0a 20 20 69 66 20 22 3a 20 69 6e 20 64 65 ).. if ": in de
1d30: 73 74 69 6e 61 74 69 6f 6e 22 3a 0a 20 20 20 20 stination":.
1d40: 69 66 20 22 2f 22 20 69 6e 20 64 65 73 74 69 6e if "/" in destin
1d50: 61 74 69 6f 6e 3a 0a 20 20 20 20 20 20 70 72 69 ation:. pri
1d60: 6e 74 20 22 49 6c 6c 65 67 61 6c 20 4f 53 2f 38 nt "Illegal OS/8
1d70: 20 66 69 6c 65 20 73 70 65 63 20 63 6f 6e 74 61 file spec conta
1d80: 69 6e 69 6e 67 20 61 20 73 6c 61 73 68 3a 22 20 ining a slash:"
1d90: 2b 20 64 65 73 74 69 6e 61 74 69 6f 6e 0a 20 20 + destination.
1da0: 20 20 20 20 73 79 73 2e 65 78 69 74 28 2d 31 29 sys.exit(-1)
1db0: 0a 20 20 20 20 64 65 73 74 69 6e 61 74 69 6f 6e . destination
1dc0: 20 3d 20 64 65 73 74 69 6e 61 74 69 6f 6e 2e 75 = destination.u
1dd0: 70 70 65 72 28 29 0a 20 20 20 20 0a 20 20 63 6f pper(). . co
1de0: 70 79 73 70 65 63 20 3d 20 5b 6d 6f 64 65 2c 20 pyspec = [mode,
1df0: 73 6f 75 72 63 65 2c 20 64 65 73 74 69 6e 61 74 source, destinat
1e00: 69 6f 6e 5d 0a 20 20 61 63 74 69 6f 6e 5f 70 6c ion]. action_pl
1e10: 61 6e 5b 22 63 6f 70 79 22 5d 2e 61 70 70 65 6e an["copy"].appen
1e20: 64 20 28 63 6f 70 79 73 70 65 63 29 0a 20 20 0a d (copyspec). .
1e30: 0a 23 23 23 23 20 70 61 72 73 65 5f 61 72 67 73 .#### parse_args
1e40: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ###############
1e50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1e60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1e70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a ###############.
1e80: 23 0a 23 20 42 75 69 6c 64 73 20 74 68 65 20 61 #.# Builds the a
1e90: 63 74 69 6f 6e 20 70 6c 61 6e 20 66 72 6f 6d 20 ction plan from
1ea0: 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 the command line
1eb0: 20 61 72 67 75 6d 65 6e 74 73 20 61 6e 64 20 65 arguments and e
1ec0: 78 65 63 75 74 65 73 20 69 74 0a 23 0a 23 20 4e xecutes it.#.# N
1ed0: 6f 74 65 20 74 68 61 74 20 69 66 20 77 65 20 73 ote that if we s
1ee0: 70 65 63 69 66 79 20 74 68 65 20 2d 2d 61 63 74 pecify the --act
1ef0: 69 6f 6e 2d 66 69 6c 65 2c 20 74 68 65 0a 23 20 ion-file, the.#
1f00: 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 61 74 contents of that
1f10: 20 66 69 6c 65 20 52 45 50 4c 41 43 45 20 61 6e file REPLACE an
1f20: 79 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20 61 y command line a
1f30: 72 67 75 6d 65 6e 74 73 2e 0a 23 0a 23 20 41 6e rguments..#.# An
1f40: 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 element of the
1f50: 61 63 74 69 6f 6e 5f 70 6c 61 6e 5b 22 63 6f 70 action_plan["cop
1f60: 79 22 5d 20 61 72 72 61 79 20 69 73 20 69 74 73 y"] array is its
1f70: 65 6c 66 20 61 6e 20 61 72 72 61 79 0a 23 20 74 elf an array.# t
1f80: 68 61 74 20 6e 61 6d 65 73 20 61 20 66 69 6c 65 hat names a file
1f90: 20 66 6f 72 6d 61 74 2c 20 61 20 73 6f 75 72 63 format, a sourc
1fa0: 65 2c 20 61 6e 64 20 61 20 64 65 73 74 69 6e 61 e, and a destina
1fb0: 74 69 6f 6e 3a 0a 23 0a 23 20 20 20 20 5b 3c 66 tion:.#.# [<f
1fc0: 6f 72 6d 61 74 3e 2c 20 3c 73 6f 75 72 63 65 3e ormat>, <source>
1fd0: 2c 20 3c 64 65 73 74 69 6e 61 74 69 6f 6e 3e 5d , <destination>]
1fe0: 0a 23 0a 23 20 54 68 65 20 73 6f 75 72 63 65 20 .#.# The source
1ff0: 61 6e 64 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 and destination
2000: 66 69 6c 65 20 73 70 65 63 69 66 69 63 61 74 69 file specificati
2010: 6f 6e 73 20 61 72 65 20 69 6e 74 65 72 70 72 65 ons are interpre
2020: 74 65 64 20 61 73 20 69 6e 0a 23 20 74 68 65 20 ted as in.# the
2030: 55 53 41 47 45 20 6d 65 73 73 61 67 65 20 62 65 USAGE message be
2040: 6c 6f 77 2e 20 20 28 4c 6f 6f 6b 20 66 6f 72 20 low. (Look for
2050: 22 63 6f 6c 6f 6e 22 2e 29 0a 23 0a 0a 55 53 41 "colon".).#..USA
2060: 47 45 20 3d 20 27 75 73 61 67 65 3a 20 27 20 2b GE = 'usage: ' +
2070: 20 6f 73 2e 70 61 74 68 2e 62 61 73 65 6e 61 6d os.path.basenam
2080: 65 20 28 5f 5f 66 69 6c 65 5f 5f 29 20 2b 20 5c e (__file__) + \
2090: 0a 22 22 22 20 5b 2d 64 68 5d 20 5b 2d 2d 72 6b .""" [-dh] [--rk
20a0: 2c 2d 2d 72 78 5b 74 61 67 5d 20 72 6f 74 61 74 ,--rx[tag] rotat
20b0: 69 6e 67 2d 64 69 73 6b 5d 20 5b 2d 2d 64 74 2c ing-disk] [--dt,
20c0: 2d 2d 74 64 5b 74 61 67 5d 20 74 61 70 65 5d 0a --td[tag] tape].
20d0: 20 20 20 20 5b 5b 2d 61 62 69 79 7a 5d 20 73 72 [[-abiyz] sr
20e0: 63 2d 66 69 6c 65 73 5d 2e 2e 2e 20 5b 73 72 63 c-files]... [src
20f0: 2d 66 69 6c 65 73 5d 20 3c 64 65 73 74 3e 0a 0a -files] <dest>..
2100: 20 20 20 20 54 68 69 73 20 70 72 6f 67 72 61 6d This program
2110: 20 62 6f 6f 74 73 20 61 6e 20 4f 53 2f 38 20 65 boots an OS/8 e
2120: 6e 76 69 72 6f 6e 6d 65 6e 74 20 75 6e 64 65 72 nvironment under
2130: 6e 65 61 74 68 20 74 68 65 20 53 49 4d 48 20 50 neath the SIMH P
2140: 44 50 2d 38 0a 20 20 20 20 73 69 6d 75 6c 61 74 DP-8. simulat
2150: 6f 72 20 74 68 65 6e 20 74 72 69 65 73 20 74 6f or then tries to
2160: 20 62 65 68 61 76 65 20 6c 69 6b 65 20 74 68 65 behave like the
2170: 20 50 4f 53 49 58 20 70 72 6f 67 72 61 6d 20 77 POSIX program w
2180: 65 20 61 72 65 20 6e 61 6d 65 64 0a 20 20 20 20 e are named.
2190: 61 66 74 65 72 2c 20 65 69 74 68 65 72 20 63 6f after, either co
21a0: 70 79 69 6e 67 20 66 69 6c 65 73 20 66 72 6f 6d pying files from
21b0: 20 74 68 65 20 50 4f 53 49 58 20 28 68 6f 73 74 the POSIX (host
21c0: 29 20 73 69 64 65 20 69 6e 74 6f 20 74 68 65 0a ) side into the.
21d0: 20 20 20 20 73 69 6d 75 6c 61 74 65 64 20 4f 53 simulated OS
21e0: 2f 38 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 2c 20 /8 environment,
21f0: 63 6f 70 79 69 6e 67 20 66 69 6c 65 73 20 6f 75 copying files ou
2200: 74 20 6f 66 20 4f 53 2f 38 20 74 6f 20 74 68 65 t of OS/8 to the
2210: 20 50 4f 53 49 58 0a 20 20 20 20 73 69 64 65 2c POSIX. side,
2220: 20 6f 72 20 63 6f 70 79 69 6e 67 20 66 69 6c 6f or copying filo
2230: 65 73 20 77 69 74 68 69 6e 20 74 68 65 20 4f 53 es within the OS
2240: 2f 38 20 77 6f 72 6c 64 20 66 72 6f 6d 20 6f 6e /8 world from on
2250: 65 20 76 6f 6c 75 6d 65 20 74 6f 0a 20 20 20 20 e volume to.
2260: 61 6e 6f 74 68 65 72 2e 0a 0a 20 20 20 20 54 68 another... Th
2270: 65 20 63 6f 70 79 69 6e 67 20 64 69 72 65 63 74 e copying direct
2280: 69 6f 6e 20 69 73 20 64 65 74 65 72 6d 69 6e 65 ion is determine
2290: 64 20 62 79 20 77 68 69 63 68 20 66 69 6c 65 20 d by which file
22a0: 6e 61 6d 65 20 61 72 67 75 6d 65 6e 74 73 0a 20 name arguments.
22b0: 20 20 20 68 61 76 65 20 61 20 63 6f 6c 6f 6e 20 have a colon
22c0: 69 6e 20 74 68 65 6d 3a 0a 0a 20 20 20 20 2a 20 in them:.. *
22d0: 20 20 63 6f 70 79 2d 77 69 74 68 69 6e 3a 20 54 copy-within: T
22e0: 68 65 20 73 6f 75 72 63 65 20 61 6e 64 20 64 65 he source and de
22f0: 73 74 69 6e 61 74 69 6f 6e 20 66 69 6c 65 20 61 stination file a
2300: 72 67 75 6d 65 6e 74 73 20 68 61 76 65 0a 20 20 rguments have.
2310: 20 20 20 20 20 20 63 6f 6c 6f 6e 73 2c 20 73 6f colons, so
2320: 20 63 6f 70 79 20 77 69 74 68 69 6e 20 74 68 65 copy within the
2330: 20 4f 53 2f 38 20 65 6e 76 69 72 6f 6e 6d 65 6e OS/8 environmen
2340: 74 20 66 72 6f 6d 20 6f 6e 65 20 76 6f 6c 75 6d t from one volum
2350: 65 20 74 6f 0a 20 20 20 20 20 20 20 20 61 6e 6f e to. ano
2360: 74 68 65 72 2e 0a 0a 20 20 20 20 2a 20 20 20 63 ther... * c
2370: 6f 70 79 2d 69 6e 74 6f 3a 20 4f 6e 6c 79 20 74 opy-into: Only t
2380: 68 65 20 64 65 73 74 20 61 72 67 75 6d 65 6e 74 he dest argument
2390: 20 68 61 73 20 61 20 63 6f 6c 6f 6e 2c 20 73 6f has a colon, so
23a0: 20 61 73 73 75 6d 65 20 74 68 65 0a 20 20 20 20 assume the.
23b0: 20 20 20 20 73 6f 75 72 63 65 20 66 69 6c 65 20 source file
23c0: 6e 61 6d 65 73 20 61 72 65 20 50 4f 53 49 58 2d names are POSIX-
23d0: 73 69 64 65 20 61 6e 64 20 63 6f 70 79 20 74 68 side and copy th
23e0: 6f 73 65 20 66 69 6c 65 73 20 69 6e 74 6f 20 74 ose files into t
23f0: 68 65 0a 20 20 20 20 20 20 20 20 73 69 6d 75 6c he. simul
2400: 61 74 65 64 20 4f 53 2f 38 20 65 6e 76 69 72 6f ated OS/8 enviro
2410: 6e 6d 65 6e 74 2e 0a 0a 20 20 20 20 2a 20 20 20 nment... *
2420: 63 6f 70 79 2d 6f 75 74 3a 20 54 68 65 20 64 65 copy-out: The de
2430: 73 74 20 61 72 67 75 6d 65 6e 74 20 68 61 73 20 st argument has
2440: 6e 6f 20 63 6f 6c 6f 6e 20 62 75 74 20 74 68 65 no colon but the
2450: 20 73 6f 75 72 63 65 20 66 69 6c 65 0a 20 20 20 source file.
2460: 20 20 20 20 20 6e 61 6d 65 73 20 64 6f 2c 20 73 names do, s
2470: 6f 20 63 6f 70 79 20 74 68 65 20 6e 61 6d 65 64 o copy the named
2480: 20 4f 53 2f 38 20 66 69 6c 65 73 20 6f 75 74 20 OS/8 files out
2490: 6f 66 20 74 68 65 20 73 69 6d 75 6c 61 74 69 6f of the simulatio
24a0: 6e 2e 0a 0a 20 20 20 20 49 66 20 6e 6f 6e 65 20 n... If none
24b0: 6f 66 20 74 68 65 20 66 69 6c 65 20 61 72 67 75 of the file argu
24c0: 6d 65 6e 74 73 20 68 61 73 20 61 20 63 6f 6c 6f ments has a colo
24d0: 6e 20 69 6e 20 69 74 20 61 6e 64 20 79 6f 75 20 n in it and you
24e0: 67 69 76 65 20 65 78 61 63 74 6c 79 0a 20 20 20 give exactly.
24f0: 20 74 77 6f 20 73 75 63 68 20 61 72 67 75 6d 65 two such argume
2500: 6e 74 73 2c 20 77 65 20 6f 70 65 72 61 74 65 20 nts, we operate
2510: 69 6e 20 61 20 73 70 65 63 69 61 6c 20 63 61 73 in a special cas
2520: 65 20 6f 66 20 63 6f 70 79 2d 77 69 74 68 69 6e e of copy-within
2530: 0a 20 20 20 20 6d 6f 64 65 3a 20 74 68 65 20 73 . mode: the s
2540: 6f 75 72 63 65 20 61 6e 64 20 64 65 73 74 69 6e ource and destin
2550: 61 74 69 6f 6e 20 76 6f 6c 75 6d 65 73 20 61 72 ation volumes ar
2560: 65 20 61 73 73 75 6d 65 64 20 74 6f 20 62 65 20 e assumed to be
2570: 44 53 4b 3a 2c 20 73 6f 0a 20 20 20 20 74 68 65 DSK:, so. the
2580: 20 66 69 6c 65 20 69 73 20 73 69 6d 70 6c 79 20 file is simply
2590: 63 6f 70 69 65 64 20 77 69 74 68 69 6e 20 74 68 copied within th
25a0: 65 20 4f 53 2f 38 20 44 53 4b 3a 20 76 6f 6c 75 e OS/8 DSK: volu
25b0: 6d 65 20 66 72 6f 6d 20 6f 6e 65 20 6e 61 6d 65 me from one name
25c0: 0a 20 20 20 20 74 6f 20 74 68 65 20 6f 74 68 65 . to the othe
25d0: 72 2e 20 20 49 66 20 79 6f 75 20 67 69 76 65 20 r. If you give
25e0: 67 72 65 61 74 65 72 20 74 68 61 6e 20 74 77 6f greater than two
25f0: 20 66 69 6c 65 20 6e 61 6d 65 20 61 72 67 75 6d file name argum
2600: 65 6e 74 73 0a 20 20 20 20 77 69 74 68 6f 75 74 ents. without
2610: 20 61 20 63 6f 6c 6f 6e 20 69 6e 20 61 6e 79 20 a colon in any
2620: 6f 66 20 74 68 65 6d 2c 20 69 74 20 69 73 20 6e of them, it is n
2630: 6f 74 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 6d ot possible to m
2640: 61 6b 65 20 73 65 6e 73 65 20 6f 66 0a 20 20 20 ake sense of.
2650: 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 73 69 6e the command sin
2660: 63 65 20 77 65 20 64 6f 20 6e 6f 74 20 69 6e 74 ce we do not int
2670: 65 6e 64 20 74 6f 20 74 72 79 20 61 6e 64 20 72 end to try and r
2680: 65 70 6c 61 63 65 20 79 6f 75 72 20 70 65 72 66 eplace your perf
2690: 65 63 74 6c 79 0a 20 20 20 20 67 6f 6f 64 20 50 ectly. good P
26a0: 4f 53 49 58 20 63 70 20 69 6d 70 6c 65 6d 65 6e OSIX cp implemen
26b0: 74 61 74 69 6f 6e 2c 20 73 6f 20 69 74 20 65 72 tation, so it er
26c0: 72 6f 72 73 20 6f 75 74 2e 0a 0a 20 20 20 20 49 rors out... I
26d0: 66 20 79 6f 75 20 67 69 76 65 20 6f 6e 6c 79 20 f you give only
26e0: 6f 6e 65 20 66 69 6c 65 20 6e 61 6d 65 20 61 72 one file name ar
26f0: 67 75 6d 65 6e 74 2c 20 74 68 65 20 70 72 6f 67 gument, the prog
2700: 72 61 6d 20 61 6c 77 61 79 73 20 65 72 72 6f 72 ram always error
2710: 73 0a 20 20 20 20 6f 75 74 3a 20 69 74 20 72 65 s. out: it re
2720: 71 75 69 72 65 73 20 61 74 20 6c 65 61 73 74 20 quires at least
2730: 6f 6e 65 20 73 6f 75 72 63 65 20 61 6e 64 20 6f one source and o
2740: 6e 65 20 64 65 73 74 69 6e 61 74 69 6f 6e 2e 0a ne destination..
2750: 0a 20 20 20 20 54 68 65 20 2d 61 2c 20 2d 62 2c . The -a, -b,
2760: 20 2d 69 2c 20 2d 79 2c 20 61 6e 64 20 2d 7a 20 -i, -y, and -z
2770: 66 6c 61 67 73 20 63 6f 72 72 65 73 70 6f 6e 64 flags correspond
2780: 20 74 6f 20 74 68 65 20 4f 53 2f 38 20 50 49 50 to the OS/8 PIP
2790: 20 6f 70 74 69 6f 6e 73 0a 20 20 20 20 2f 41 2c options. /A,
27a0: 20 2f 42 2c 20 2f 49 2c 20 2f 59 2c 20 61 6e 64 /B, /I, /Y, and
27b0: 20 2f 5a 2c 20 77 68 69 63 68 20 61 72 65 20 70 /Z, which are p
27c0: 61 73 73 65 64 20 74 6f 20 50 49 50 20 61 73 2d assed to PIP as-
27d0: 69 73 2e 20 20 28 54 68 69 73 0a 20 20 20 20 70 is. (This. p
27e0: 72 69 6f 67 72 61 6d 20 63 75 72 72 65 6e 74 6c riogram currentl
27f0: 79 20 75 73 65 73 20 50 49 50 20 61 73 20 69 74 y uses PIP as it
2800: 73 20 70 72 69 6d 61 72 79 20 68 61 6e 64 6c 65 s primary handle
2810: 72 20 66 6f 72 20 74 68 65 20 4f 53 2f 38 20 73 r for the OS/8 s
2820: 69 64 65 0a 20 20 20 20 6f 66 20 74 68 65 20 77 ide. of the w
2830: 6f 72 6b 2e 29 20 20 54 68 65 79 20 6d 75 73 74 ork.) They must
2840: 20 62 65 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 be followed by
2850: 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 73 6f 75 at least one sou
2860: 72 63 65 20 66 69 6c 65 0a 20 20 20 20 6e 61 6d rce file. nam
2870: 65 2c 20 61 6e 64 20 74 68 65 79 20 61 66 66 65 e, and they affe
2880: 63 74 20 61 6c 6c 20 73 75 62 73 65 71 75 65 6e ct all subsequen
2890: 74 20 73 6f 75 72 63 65 20 66 69 6c 65 20 6e 61 t source file na
28a0: 6d 65 73 20 75 6e 74 69 6c 20 61 6e 6f 74 68 65 mes until anothe
28b0: 72 0a 20 20 20 20 73 75 63 68 20 6f 70 74 69 6f r. such optio
28c0: 6e 20 69 73 20 66 6f 75 6e 64 2e 20 20 46 6f 72 n is found. For
28d0: 20 65 78 61 6d 70 6c 65 3a 0a 0a 20 20 20 20 20 example:..
28e0: 20 20 20 24 20 6f 73 38 2d 63 70 20 2d 61 20 66 $ os8-cp -a f
28f0: 6f 6f 20 62 61 72 20 2d 62 20 71 75 78 20 73 79 oo bar -b qux sy
2900: 73 3a 0a 0a 20 20 20 20 46 69 6c 65 73 20 66 6f s:.. Files fo
2910: 6f 20 61 6e 64 20 62 61 72 20 61 72 65 20 63 6f o and bar are co
2920: 70 69 65 64 20 74 6f 20 53 59 53 3a 20 69 6e 20 pied to SYS: in
2930: 41 53 43 49 49 20 6d 6f 64 65 2c 20 6f 76 65 72 ASCII mode, over
2940: 72 69 64 69 6e 67 20 74 68 65 0a 20 20 20 20 64 riding the. d
2950: 65 66 61 75 6c 74 20 62 69 6e 61 72 79 20 6d 6f efault binary mo
2960: 64 65 2c 20 74 68 65 6e 20 62 69 6e 61 72 79 20 de, then binary
2970: 6d 6f 64 65 20 69 73 20 72 65 73 74 6f 72 65 64 mode is restored
2980: 20 66 6f 72 20 74 68 65 20 63 6f 70 79 20 6f 66 for the copy of
2990: 0a 20 20 20 20 66 69 6c 65 20 71 75 78 20 74 6f . file qux to
29a0: 20 74 68 65 20 53 59 53 3a 20 76 6f 6c 75 6d 65 the SYS: volume
29b0: 2e 0a 0a 20 20 20 20 42 65 77 61 72 65 20 74 68 ... Beware th
29c0: 61 74 20 2d 69 20 6d 65 61 6e 73 20 73 6f 6d 65 at -i means some
29d0: 74 68 69 6e 67 20 76 65 72 79 20 64 69 66 66 65 thing very diffe
29e0: 72 65 6e 74 20 74 6f 20 74 68 69 73 20 70 72 6f rent to this pro
29f0: 67 72 61 6d 20 74 68 61 6e 0a 20 20 20 20 69 74 gram than. it
2a00: 20 6d 65 61 6e 73 20 74 6f 20 50 4f 53 49 58 20 means to POSIX
2a10: 63 70 3a 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 cp: destination
2a20: 66 69 6c 65 73 20 77 69 6c 6c 20 62 65 20 75 6e files will be un
2a30: 63 65 72 65 6d 6f 6e 69 6f 75 73 6c 79 0a 20 20 ceremoniously.
2a40: 20 20 6f 76 65 72 77 72 69 74 74 65 6e 21 0a 0a overwritten!..
2a50: 20 20 20 20 49 66 20 2d 2d 72 6b 20 6f 72 20 2d If --rk or -
2a60: 2d 72 78 20 69 73 20 67 69 76 65 6e 2c 20 74 68 -rx is given, th
2a70: 65 20 6e 61 6d 65 64 20 72 6f 74 61 74 69 6e 67 e named rotating
2a80: 20 64 69 73 6b 20 69 6d 61 67 65 20 69 73 20 61 disk image is a
2a90: 74 74 61 63 68 65 64 0a 20 20 20 20 74 6f 20 74 ttached. to t
2aa0: 68 65 20 73 69 6d 75 6c 61 74 6f 72 20 6f 6e 20 he simulator on
2ab0: 74 68 65 20 66 69 72 73 74 20 66 72 65 65 20 64 the first free d
2ac0: 69 73 6b 20 63 6f 6e 74 72 6f 6c 6c 65 72 20 69 isk controller i
2ad0: 66 20 6e 6f 20 64 69 67 69 74 0a 20 20 20 20 66 f no digit. f
2ae0: 6f 6c 6c 6f 77 73 20 74 68 65 20 6c 65 74 74 65 ollows the lette
2af0: 72 73 2c 20 6f 72 20 74 6f 20 74 68 65 20 73 70 rs, or to the sp
2b00: 65 63 69 66 69 65 64 20 63 6f 6e 74 72 6f 6c 6c ecified controll
2b10: 65 72 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a 20 er otherwise...
2b20: 20 20 20 49 66 20 61 6e 20 22 73 22 20 69 73 20 If an "s" is
2b30: 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 61 6e at the end of an
2b40: 79 20 6f 66 20 74 68 65 20 61 62 6f 76 65 20 6d y of the above m
2b50: 65 64 69 61 20 69 6d 61 67 65 20 66 69 6c 65 20 edia image file
2b60: 6f 70 74 69 6f 6e 0a 20 20 20 20 6e 61 6d 65 73 option. names
2b70: 2c 20 74 68 61 74 20 6d 61 72 6b 73 20 74 68 65 , that marks the
2b80: 20 22 73 79 73 74 65 6d 20 64 69 73 6b 22 2c 20 "system disk",
2b90: 77 68 69 63 68 20 6f 76 65 72 72 69 64 65 73 20 which overrides
2ba0: 6f 75 72 20 64 65 66 61 75 6c 74 0a 20 20 20 20 our default.
2bb0: 62 6f 6f 74 20 6d 65 64 69 61 2c 20 24 70 72 65 boot media, $pre
2bc0: 66 69 78 2f 73 68 61 72 65 64 2f 6d 65 64 69 61 fix/shared/media
2bd0: 2f 6f 73 38 2f 6f 73 38 76 33 64 2d 70 61 74 63 /os8/os8v3d-patc
2be0: 68 65 64 2e 72 6b 30 35 2e 0a 0a 20 20 20 20 54 hed.rk05... T
2bf0: 68 65 72 65 66 6f 72 65 2c 20 74 68 65 20 66 6f herefore, the fo
2c00: 6c 6c 6f 77 69 6e 67 3a 0a 0a 20 20 20 20 20 20 llowing:..
2c10: 20 20 24 20 6f 73 38 2d 63 70 20 2d 2d 72 6b 20 $ os8-cp --rk
2c20: 6d 79 2e 72 6b 30 35 20 66 6f 6f 20 52 4b 41 31 my.rk05 foo RKA1
2c30: 3a 0a 0a 20 20 20 20 2e 2e 2e 77 69 6c 6c 20 62 :.. ...will b
2c40: 6f 6f 74 20 66 72 6f 6d 20 74 68 65 20 64 65 66 oot from the def
2c50: 61 75 6c 74 20 52 4b 30 35 20 64 69 73 6b 20 69 ault RK05 disk i
2c60: 6d 61 67 65 20 61 74 74 61 63 68 65 64 20 74 6f mage attached to
2c70: 20 52 4b 30 20 77 69 74 68 0a 20 20 20 20 6d 79 RK0 with. my
2c80: 2e 72 6b 30 35 20 61 74 74 61 63 68 65 64 20 74 .rk05 attached t
2c90: 6f 20 52 4b 31 2c 20 74 68 65 6e 20 63 6f 70 79 o RK1, then copy
2ca0: 20 50 4f 53 49 58 2d 73 69 64 65 20 66 69 6c 65 POSIX-side file
2cb0: 20 66 6f 6f 20 74 6f 20 52 4b 41 31 3a 46 4f 4f foo to RKA1:FOO
2cc0: 2e 0a 0a 20 20 20 20 20 20 20 20 24 20 6f 73 38 ... $ os8
2cd0: 2d 63 70 20 2d 2d 74 64 73 20 6d 79 2e 74 75 35 -cp --tds my.tu5
2ce0: 36 20 2d 2d 72 6b 20 6d 79 2e 72 6b 30 35 20 66 6 --rk my.rk05 f
2cf0: 6f 6f 20 44 53 4b 3a 0a 0a 20 20 20 20 2e 2e 2e oo DSK:.. ...
2d00: 77 69 6c 6c 20 62 6f 6f 74 20 66 72 6f 6d 20 6d will boot from m
2d10: 79 2e 74 75 35 36 2c 20 77 68 69 63 68 20 69 73 y.tu56, which is
2d20: 20 70 72 65 73 75 6d 65 64 20 74 6f 20 62 65 20 presumed to be
2d30: 61 20 62 6f 6f 74 61 62 6c 65 20 4f 53 2f 38 0a a bootable OS/8.
2d40: 20 20 20 20 44 45 43 74 61 70 65 20 61 74 74 61 DECtape atta
2d50: 63 68 65 64 20 74 6f 20 53 49 4d 48 20 64 65 76 ched to SIMH dev
2d60: 69 63 65 20 54 44 30 2e 20 20 54 68 65 20 52 4b ice TD0. The RK
2d70: 30 35 20 64 69 73 6b 20 69 6d 61 67 65 20 6d 79 05 disk image my
2d80: 2e 72 6b 30 35 0a 20 20 20 20 77 69 6c 6c 20 62 .rk05. will b
2d90: 65 20 61 74 74 61 63 68 65 64 20 74 6f 20 52 4b e attached to RK
2da0: 30 2c 20 73 69 6e 63 65 20 74 68 65 20 64 65 66 0, since the def
2db0: 61 75 6c 74 20 62 6f 6f 74 20 64 69 73 6b 20 69 ault boot disk i
2dc0: 73 20 6e 6f 74 20 61 74 74 61 63 68 65 64 0a 20 s not attached.
2dd0: 20 20 20 74 68 65 72 65 20 69 6e 20 74 68 69 73 there in this
2de0: 20 65 78 61 6d 70 6c 65 2e 20 20 49 74 20 77 69 example. It wi
2df0: 6c 6c 20 63 6f 70 79 20 50 4f 53 49 58 2d 73 69 ll copy POSIX-si
2e00: 64 65 20 66 69 6c 65 20 66 6f 6f 20 74 6f 20 44 de file foo to D
2e10: 53 4b 3a 46 4f 4f 0a 20 20 20 20 77 68 69 63 68 SK:FOO. which
2e20: 20 77 69 6c 6c 20 70 72 6f 62 61 62 6c 79 20 62 will probably b
2e30: 65 20 69 6e 74 65 72 70 72 65 74 65 64 20 61 73 e interpreted as
2e40: 20 44 54 41 30 3a 46 4f 4f 20 62 79 20 74 68 65 DTA0:FOO by the
2e50: 20 74 79 70 69 63 61 6c 20 42 55 49 4c 44 0a 20 typical BUILD.
2e60: 20 20 20 6f 70 74 69 6f 6e 73 20 66 6f 72 20 61 options for a
2e70: 20 62 6f 6f 74 61 62 6c 65 20 4f 53 2f 38 20 54 bootable OS/8 T
2e80: 55 35 36 20 44 45 43 74 61 70 65 2e 20 20 42 65 U56 DECtape. Be
2e90: 77 61 72 65 20 74 68 65 72 65 66 6f 72 65 20 6f ware therefore o
2ea0: 66 20 75 73 69 6e 67 0a 20 20 20 20 74 68 65 20 f using. the
2eb0: 67 65 6e 65 72 69 63 20 53 59 53 3a 20 61 6e 64 generic SYS: and
2ec0: 20 44 53 4b 3a 20 64 65 76 69 63 65 20 6e 61 6d DSK: device nam
2ed0: 65 73 21 20 20 59 6f 75 20 77 6f 75 6c 64 20 62 es! You would b
2ee0: 65 20 62 65 74 74 65 72 20 61 64 76 69 73 65 64 e better advised
2ef0: 0a 20 20 20 20 74 6f 20 75 73 65 20 44 54 41 30 . to use DTA0
2f00: 3a 2c 20 52 4b 41 30 3a 20 6f 72 20 52 4b 42 30 :, RKA0: or RKB0
2f10: 3a 20 61 73 20 74 68 65 20 64 65 73 74 69 6e 61 : as the destina
2f20: 74 69 6f 6e 20 69 6e 20 74 68 69 73 20 65 78 61 tion in this exa
2f30: 6d 70 6c 65 2e 0a 0a 20 20 20 20 20 20 20 20 24 mple... $
2f40: 20 6f 73 38 2d 63 70 20 2d 2d 74 64 73 20 6d 79 os8-cp --tds my
2f50: 2e 74 75 35 36 20 2d 2d 72 78 31 20 6d 79 2e 72 .tu56 --rx1 my.r
2f60: 78 30 31 20 66 6f 6f 20 52 58 41 31 3a 0a 0a 20 x01 foo RXA1:..
2f70: 20 20 20 54 68 69 73 20 6e 6f 74 20 6f 6e 6c 79 This not only
2f80: 20 66 69 78 65 73 20 74 68 65 20 61 6c 6d 6f 73 fixes the almos
2f90: 74 2d 63 65 72 74 61 69 6e 6c 79 20 69 6e 63 6f t-certainly inco
2fa0: 72 72 65 63 74 20 75 73 65 20 6f 66 20 44 53 4b rrect use of DSK
2fb0: 3a 20 69 6e 0a 20 20 20 20 74 68 65 20 70 72 69 : in. the pri
2fc0: 6f 72 20 65 78 61 6d 70 6c 65 2c 20 69 74 20 73 or example, it s
2fd0: 68 6f 77 73 20 68 6f 77 20 61 20 64 69 73 6b 20 hows how a disk
2fe0: 6d 61 79 20 62 65 20 6d 6f 75 6e 74 65 64 20 6f may be mounted o
2ff0: 6e 20 61 20 64 65 76 69 63 65 0a 20 20 20 20 6f n a device. o
3000: 74 68 65 72 20 74 68 61 6e 20 74 68 65 20 64 65 ther than the de
3010: 66 61 75 6c 74 20 62 79 20 67 69 76 69 6e 67 20 fault by giving
3020: 61 20 64 69 67 69 74 20 61 66 74 65 72 20 74 68 a digit after th
3030: 65 20 64 65 76 69 63 65 20 74 79 70 65 20 69 6e e device type in
3040: 0a 20 20 20 20 74 68 65 20 6f 70 74 69 6f 6e 20 . the option
3050: 6e 61 6d 65 2e 20 20 28 54 68 61 74 20 69 73 2c name. (That is,
3060: 20 2d 2d 72 78 31 20 69 6e 73 74 65 61 64 20 6f --rx1 instead o
3070: 66 20 6a 75 73 74 20 2d 2d 72 78 2c 20 77 68 69 f just --rx, whi
3080: 63 68 20 77 6f 75 6c 64 0a 20 20 20 20 62 65 20 ch would. be
3090: 74 68 65 20 73 61 6d 65 20 61 73 20 2d 2d 72 78 the same as --rx
30a0: 30 20 69 6e 20 74 68 69 73 20 65 78 61 6d 70 6c 0 in this exampl
30b0: 65 2e 29 0a 0a 20 20 20 20 54 68 65 20 2d 2d 64 e.).. The --d
30c0: 74 20 61 6e 64 20 2d 2d 74 64 20 6f 70 74 69 6f t and --td optio
30d0: 6e 73 20 61 72 65 20 68 61 6e 64 6c 65 64 20 73 ns are handled s
30e0: 69 6d 69 6c 61 72 6c 79 20 74 6f 20 74 68 65 20 imilarly to the
30f0: 2d 2d 72 2a 20 6f 70 74 69 6f 6e 73 2c 0a 20 20 --r* options,.
3100: 20 20 64 69 66 66 65 72 69 6e 67 20 6f 6e 6c 79 differing only
3110: 20 69 6e 20 77 68 65 74 68 65 72 20 77 65 20 75 in whether we u
3120: 73 65 20 74 68 65 20 53 49 4d 48 20 44 54 20 6f se the SIMH DT o
3130: 72 20 54 44 20 50 44 50 2d 38 20 64 65 76 69 63 r TD PDP-8 devic
3140: 65 73 2c 0a 20 20 20 20 77 68 69 63 68 20 63 6f es,. which co
3150: 72 72 65 73 70 6f 6e 64 20 74 6f 20 74 68 65 20 rrespond to the
3160: 54 43 30 38 20 6f 72 20 54 44 38 45 20 44 45 43 TC08 or TD8E DEC
3170: 74 61 70 65 20 63 6f 6e 74 72 6f 6c 6c 65 72 73 tape controllers
3180: 2e 20 20 57 68 69 63 68 20 6f 6e 65 0a 20 20 20 . Which one.
3190: 20 79 6f 75 20 67 69 76 65 20 64 65 70 65 6e 64 you give depend
31a0: 73 20 6f 6e 20 74 68 65 20 64 65 76 69 63 65 20 s on the device
31b0: 73 75 70 70 6f 72 74 20 62 75 69 6c 74 20 69 6e support built in
31c0: 74 6f 20 74 68 65 20 4f 53 2f 38 20 6d 65 64 69 to the OS/8 medi
31d0: 61 0a 20 20 20 20 79 6f 75 27 76 65 20 62 6f 6f a. you've boo
31e0: 74 65 64 20 66 72 6f 6d 2e 0a 0a 20 20 20 20 44 ted from... D
31f0: 65 73 74 69 6e 61 74 69 6f 6e 20 4f 53 2f 38 20 estination OS/8
3200: 76 6f 6c 75 6d 65 73 20 61 72 65 20 6d 6f 64 69 volumes are modi
3210: 66 69 65 64 20 69 6e 20 70 6c 61 63 65 2c 20 72 fied in place, r
3220: 61 74 68 65 72 20 74 68 61 6e 0a 20 20 20 20 72 ather than. r
3230: 65 63 72 65 61 74 65 64 2e 20 20 54 68 65 20 76 ecreated. The v
3240: 6f 6c 75 6d 65 20 6d 75 73 74 20 74 68 65 72 65 olume must there
3250: 66 6f 72 65 20 65 78 69 73 74 20 62 65 66 6f 72 fore exist befor
3260: 65 20 74 68 69 73 20 70 72 6f 67 72 61 6d 0a 20 e this program.
3270: 20 20 20 72 75 6e 73 2e 0a 0a 20 20 20 20 57 68 runs... Wh
3280: 65 6e 20 6f 6e 6c 79 20 61 20 64 65 73 74 69 6e en only a destin
3290: 61 74 69 6f 6e 20 64 65 76 69 63 65 2c 20 64 69 ation device, di
32a0: 72 65 63 74 6f 72 79 2c 20 6f 72 20 76 6f 6c 75 rectory, or volu
32b0: 6d 65 20 6e 61 6d 65 20 69 73 20 67 69 76 65 6e me name is given
32c0: 2c 0a 20 20 20 20 66 69 6c 65 20 6e 61 6d 65 73 ,. file names
32d0: 20 61 72 65 20 6e 6f 72 6d 61 6c 69 7a 65 64 20 are normalized
32e0: 77 68 65 6e 20 63 6f 70 69 6e 67 20 62 65 74 77 when coping betw
32f0: 65 65 6e 20 50 4f 53 49 58 20 61 6e 64 20 4f 53 een POSIX and OS
3300: 2f 38 0a 20 20 20 20 73 79 73 74 65 6d 73 2e 20 /8. systems.
3310: 20 46 69 6c 65 20 6e 61 6d 65 73 20 61 72 65 20 File names are
3320: 75 70 70 65 72 63 61 73 65 64 20 61 6e 64 20 74 uppercased and t
3330: 72 75 6e 63 61 74 65 64 20 74 6f 20 36 2e 32 20 runcated to 6.2
3340: 6c 69 6d 69 74 73 20 77 68 65 6e 0a 20 20 20 20 limits when.
3350: 63 6f 70 79 69 6e 67 20 66 72 6f 6d 20 50 4f 53 copying from POS
3360: 49 58 20 74 6f 20 4f 53 2f 38 2e 20 20 46 69 6c IX to OS/8. Fil
3370: 65 20 6e 61 6d 65 73 20 61 72 65 20 6c 6f 77 65 e names are lowe
3380: 72 63 61 73 65 64 20 6f 6e 20 63 6f 70 79 69 6e rcased on copyin
3390: 67 0a 20 20 20 20 66 72 6f 6d 20 4f 53 2f 38 20 g. from OS/8
33a0: 74 6f 20 74 68 65 20 50 4f 53 49 58 20 73 69 64 to the POSIX sid
33b0: 65 20 75 6e 6c 65 73 73 20 79 6f 75 20 67 69 76 e unless you giv
33c0: 65 20 74 68 65 20 2a 73 6f 75 72 63 65 2a 20 66 e the *source* f
33d0: 69 6c 65 20 6e 61 6d 65 0a 20 20 20 20 69 6e 20 ile name. in
33e0: 61 6c 6c 2d 75 70 70 65 72 63 61 73 65 3b 20 74 all-uppercase; t
33f0: 68 65 6e 2c 20 66 69 6c 65 20 6e 61 6d 65 20 63 hen, file name c
3400: 61 73 65 20 69 73 20 70 72 65 73 65 72 76 65 64 ase is preserved
3410: 2e 20 20 54 68 69 73 20 62 65 68 61 76 69 6f 72 . This behavior
3420: 0a 20 20 20 20 69 73 20 6f 76 65 72 72 69 64 64 . is overridd
3430: 65 6e 20 69 66 20 79 6f 75 20 67 69 76 65 20 61 en if you give a
3440: 20 63 6f 6d 70 6c 65 74 65 20 66 69 6c 65 20 6e complete file n
3450: 61 6d 65 20 66 6f 72 20 74 68 65 20 64 65 73 74 ame for the dest
3460: 69 6e 61 74 69 6f 6e 3a 0a 0a 20 20 20 20 20 20 ination:..
3470: 20 20 24 20 6f 73 38 2d 63 70 20 6d 79 2d 6c 6f $ os8-cp my-lo
3480: 6e 67 2d 66 69 6c 65 2d 6e 61 6d 65 2e 74 78 74 ng-file-name.txt
3490: 20 44 53 4b 3a 4d 4c 46 2e 46 44 0a 0a 20 20 20 DSK:MLF.FD..
34a0: 20 49 66 20 79 6f 75 20 67 61 76 65 20 22 44 53 If you gave "DS
34b0: 4b 3a 22 20 61 73 20 74 68 65 20 64 65 73 74 69 K:" as the desti
34c0: 6e 61 74 69 6f 6e 20 69 6e 73 74 65 61 64 2c 20 nation instead,
34d0: 79 6f 75 20 77 6f 75 6c 64 20 68 61 76 65 20 67 you would have g
34e0: 6f 74 74 65 6e 0a 20 20 20 20 22 4d 59 2d 4c 4f otten. "MY-LO
34f0: 4e 2e 54 58 22 20 61 73 20 74 68 65 20 64 65 73 N.TX" as the des
3500: 69 6e 74 61 74 69 6f 6e 20 66 69 6c 65 20 6e 61 intation file na
3510: 6d 65 20 69 6e 73 74 65 61 64 2e 0a 0a 20 20 20 me instead...
3520: 20 47 69 76 65 20 2d 64 20 74 6f 20 72 75 6e 20 Give -d to run
3530: 69 6e 20 64 65 62 75 67 20 6d 6f 64 65 2e 0a 0a in debug mode...
3540: 20 20 20 20 47 69 76 65 20 2d 68 20 74 6f 20 70 Give -h to p
3550: 72 69 6e 74 20 74 68 69 73 20 6d 65 73 73 61 67 rint this messag
3560: 65 2e 0a 22 22 22 0a 0a 64 65 66 20 70 61 72 73 e.."""..def pars
3570: 65 5f 61 72 67 73 20 28 29 3a 0a 20 20 67 6c 6f e_args ():. glo
3580: 62 61 6c 20 44 45 42 55 47 0a 0a 20 20 61 63 74 bal DEBUG.. act
3590: 69 6f 6e 5f 70 6c 61 6e 20 3d 20 7b 7d 0a 20 20 ion_plan = {}.
35a0: 61 63 74 69 6f 6e 5f 70 6c 61 6e 5b 22 73 79 73 action_plan["sys
35b0: 22 5d 20 3d 20 4e 6f 6e 65 0a 20 20 61 63 74 69 "] = None. acti
35c0: 6f 6e 5f 70 6c 61 6e 5b 22 6d 6f 75 6e 74 22 5d on_plan["mount"]
35d0: 20 3d 20 5b 5d 0a 20 20 61 63 74 69 6f 6e 5f 70 = []. action_p
35e0: 6c 61 6e 5b 22 63 6f 70 79 22 5d 20 3d 20 5b 5d lan["copy"] = []
35f0: 0a 0a 20 20 69 64 78 20 3d 20 31 0a 20 20 6e 75 .. idx = 1. nu
3600: 6d 61 72 67 73 20 3d 20 6c 65 6e 28 73 79 73 2e margs = len(sys.
3610: 61 72 67 76 29 0a 0a 20 20 66 69 6c 65 73 70 65 argv).. filespe
3620: 63 5f 73 65 65 6e 20 3d 20 30 0a 20 20 6d 6f 64 c_seen = 0. mod
3630: 65 5f 6f 70 74 20 3d 20 22 62 22 20 20 20 20 20 e_opt = "b"
3640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3650: 20 20 20 20 20 20 20 20 20 23 20 73 74 61 72 74 # start
3660: 20 6f 66 20 77 69 74 68 20 64 65 66 61 75 6c 74 of with default
3670: 20 6f 66 20 62 69 6e 61 72 79 2e 0a 20 20 66 69 of binary.. fi
3680: 72 73 74 5f 6d 6f 64 65 20 3d 20 6d 6f 64 65 5f rst_mode = mode_
3690: 6f 70 74 0a 20 20 73 6f 75 72 63 65 20 3d 20 22 opt. source = "
36a0: 22 0a 20 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 ". destination
36b0: 3d 20 22 22 0a 20 20 23 20 4b 65 65 70 20 66 69 = "". # Keep fi
36c0: 6c 65 5f 6c 69 73 74 20 61 6e 64 20 6d 6f 64 65 le_list and mode
36d0: 5f 6c 69 73 74 20 69 6e 20 73 79 6e 63 2e 0a 20 _list in sync..
36e0: 20 66 69 6c 65 5f 61 6e 64 5f 6d 6f 64 65 5f 6c file_and_mode_l
36f0: 69 73 74 20 3d 20 5b 5d 0a 20 20 0a 20 20 77 68 ist = []. . wh
3700: 69 6c 65 20 69 64 78 20 3c 20 6e 75 6d 61 72 67 ile idx < numarg
3710: 73 3a 0a 20 20 20 20 69 66 20 44 45 42 55 47 3a s:. if DEBUG:
3720: 20 70 72 69 6e 74 20 22 69 64 78 3a 20 22 20 2b print "idx: " +
3730: 20 73 74 72 28 69 64 78 29 0a 20 20 20 20 61 72 str(idx). ar
3740: 67 20 3d 20 73 79 73 2e 61 72 67 76 5b 69 64 78 g = sys.argv[idx
3750: 5d 0a 0a 20 20 20 20 23 20 46 69 72 73 74 20 74 ].. # First t
3760: 68 65 20 73 69 6d 70 6c 65 20 62 69 74 20 73 65 he simple bit se
3770: 74 20 6f 70 74 69 6f 6e 73 0a 20 20 20 20 69 66 t options. if
3780: 20 61 72 67 20 3d 3d 20 22 2d 64 22 3a 0a 20 20 arg == "-d":.
3790: 20 20 20 20 44 45 42 55 47 20 3d 20 54 72 75 65 DEBUG = True
37a0: 0a 20 20 20 20 65 6c 69 66 20 61 72 67 20 3d 3d . elif arg ==
37b0: 20 22 2d 68 22 3a 0a 20 20 20 20 20 20 70 72 69 "-h":. pri
37c0: 6e 74 20 55 53 41 47 45 0a 20 20 20 20 20 20 73 nt USAGE. s
37d0: 79 73 2e 65 78 69 74 28 30 29 0a 0a 20 20 20 20 ys.exit(0)..
37e0: 23 20 6c 6f 6f 6b 20 66 6f 72 20 6f 70 74 69 6f # look for optio
37f0: 6e 20 61 72 67 73 2e 0a 20 20 20 20 65 6c 69 66 n args.. elif
3800: 20 61 72 67 20 69 6e 20 5f 61 72 67 5f 74 6f 5f arg in _arg_to_
3810: 6f 70 74 69 6f 6e 3a 0a 20 20 20 20 20 20 6e 65 option:. ne
3820: 77 5f 6f 70 74 20 3d 20 5f 61 72 67 5f 74 6f 5f w_opt = _arg_to_
3830: 6f 70 74 69 6f 6e 5b 61 72 67 5d 0a 20 20 20 20 option[arg].
3840: 20 20 69 66 20 6d 6f 64 65 5f 6f 70 74 20 3d 3d if mode_opt ==
3850: 20 6e 65 77 5f 6f 70 74 3a 0a 20 20 20 20 20 20 new_opt:.
3860: 20 20 70 72 69 6e 74 20 22 57 61 72 6e 69 6e 67 print "Warning
3870: 20 72 65 64 75 6e 64 61 6e 74 20 72 65 73 65 74 redundant reset
3880: 20 6f 66 20 6d 6f 64 65 20 6f 70 74 69 6f 6e 20 of mode option
3890: 74 6f 20 22 20 2b 20 5c 0a 20 20 20 20 20 20 20 to " + \.
38a0: 20 20 20 5f 6f 70 74 69 6f 6e 5f 74 6f 5f 69 6e _option_to_in
38b0: 66 6f 5b 6e 65 77 5f 6f 70 74 5d 0a 20 20 20 20 fo[new_opt].
38c0: 20 20 6d 6f 64 65 5f 6f 70 74 20 3d 20 6e 65 77 mode_opt = new
38d0: 5f 6f 70 74 0a 0a 20 20 20 20 23 20 4e 6f 74 20 _opt.. # Not
38e0: 61 20 73 69 6d 70 6c 65 20 62 69 74 20 73 65 74 a simple bit set
38f0: 20 6f 70 74 69 6f 6e 2e 0a 20 20 20 20 0a 20 20 option.. .
3900: 20 20 65 6c 69 66 20 61 72 67 20 3d 3d 20 22 2d elif arg == "-
3910: 2d 61 63 74 69 6f 6e 2d 66 69 6c 65 22 3a 0a 20 -action-file":.
3920: 20 20 20 20 20 69 66 20 69 64 78 20 2b 20 31 20 if idx + 1
3930: 3d 3d 20 6e 75 6d 61 72 67 73 3a 20 20 20 20 20 == numargs:
3940: 20 20 20 20 20 20 20 20 23 20 4e 65 65 64 20 66 # Need f
3950: 69 6c 65 6e 61 6d 65 2c 20 62 75 74 20 6e 6f 20 ilename, but no
3960: 61 72 67 73 20 6c 65 66 74 2e 0a 20 20 20 20 20 args left..
3970: 20 20 20 61 62 6f 72 74 5f 70 72 6f 67 20 28 22 abort_prog ("
3980: 4e 6f 20 61 63 74 69 6f 6e 20 66 69 6c 65 20 6e No action file n
3990: 61 6d 65 2e 22 29 0a 20 20 20 20 20 20 61 72 67 ame."). arg
39a0: 66 69 6c 65 6e 61 6d 65 20 3d 20 73 79 73 2e 61 filename = sys.a
39b0: 72 67 76 5b 69 64 78 20 2b 20 31 5d 0a 20 20 20 rgv[idx + 1].
39c0: 20 20 20 72 65 74 76 61 6c 20 3d 20 70 61 72 73 retval = pars
39d0: 65 5f 61 63 74 69 6f 6e 5f 66 69 6c 65 28 61 72 e_action_file(ar
39e0: 67 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 gfilename).
39f0: 20 69 66 20 72 65 74 76 61 6c 20 3d 3d 20 4e 6f if retval == No
3a00: 6e 65 3a 0a 20 20 20 20 20 20 20 20 61 62 6f 72 ne:. abor
3a10: 74 5f 70 72 6f 67 20 28 22 4e 6f 20 61 63 74 69 t_prog ("No acti
3a20: 6f 6e 20 70 6c 61 6e 20 63 6f 75 6c 64 20 62 65 on plan could be
3a30: 20 6d 61 64 65 20 66 72 6f 6d 20 22 20 2b 20 61 made from " + a
3a40: 72 67 66 69 6c 65 6e 61 6d 65 20 2b 20 22 2e 22 rgfilename + "."
3a50: 29 0a 20 20 20 20 20 20 65 6c 73 65 3a 20 72 65 ). else: re
3a60: 74 75 72 6e 20 72 65 74 76 61 6c 0a 20 20 20 20 turn retval.
3a70: 20 20 0a 20 20 20 20 65 6c 73 65 3a 0a 20 20 20 . else:.
3a80: 20 20 20 23 20 50 61 72 73 65 72 20 66 6f 72 20 # Parser for
3a90: 4f 53 2f 38 20 61 74 74 61 63 68 20 73 70 65 63 OS/8 attach spec
3aa0: 2e 0a 20 20 20 20 20 20 6d 20 3d 20 72 65 2e 6d .. m = re.m
3ab0: 61 74 63 68 28 5f 64 65 76 5f 61 72 67 5f 72 65 atch(_dev_arg_re
3ac0: 2c 20 61 72 67 29 0a 20 20 20 20 20 20 69 66 20 , arg). if
3ad0: 6d 20 21 3d 20 4e 6f 6e 65 3a 0a 20 20 20 20 20 m != None:.
3ae0: 20 20 20 69 66 20 69 64 78 20 2b 20 31 20 3d 3d if idx + 1 ==
3af0: 20 6e 75 6d 61 72 67 73 3a 20 20 20 20 20 20 20 numargs:
3b00: 20 20 20 20 20 20 23 20 4e 65 65 64 20 66 69 6c # Need fil
3b10: 65 6e 61 6d 65 2c 20 62 75 74 20 6e 6f 20 61 72 ename, but no ar
3b20: 67 73 20 6c 65 66 74 2e 0a 20 20 20 20 20 20 20 gs left..
3b30: 20 20 20 61 62 6f 72 74 5f 70 72 6f 67 20 28 22 abort_prog ("
3b40: 4e 6f 20 69 6d 61 67 65 20 66 69 6c 65 20 6e 61 No image file na
3b50: 6d 65 2e 22 29 0a 20 20 20 20 20 20 20 20 69 64 me."). id
3b60: 78 20 2b 3d 31 0a 20 20 20 20 20 20 20 20 70 61 x +=1. pa
3b70: 72 73 65 5f 61 74 74 61 63 68 20 28 61 63 74 69 rse_attach (acti
3b80: 6f 6e 5f 70 6c 61 6e 2c 20 6d 2c 20 73 79 73 2e on_plan, m, sys.
3b90: 61 72 67 76 5b 69 64 78 5d 29 0a 0a 20 20 20 20 argv[idx])..
3ba0: 20 20 23 20 44 6f 20 66 69 6c 65 20 70 61 72 73 # Do file pars
3bb0: 65 72 20 69 66 20 77 65 20 64 69 64 6e 27 74 20 er if we didn't
3bc0: 67 65 74 20 61 6e 20 4f 53 2f 38 20 61 74 74 61 get an OS/8 atta
3bd0: 63 68 20 73 70 65 63 2e 0a 20 20 20 20 20 20 65 ch spec.. e
3be0: 6c 73 65 3a 0a 0a 20 20 20 20 20 20 20 20 69 66 lse:.. if
3bf0: 20 44 45 42 55 47 3a 20 70 72 69 6e 74 20 22 46 DEBUG: print "F
3c00: 69 6c 65 20 70 61 72 73 69 6e 67 20 6f 66 3a 20 ile parsing of:
3c10: 22 20 2b 20 61 72 67 0a 20 20 20 20 20 20 20 20 " + arg.
3c20: 0a 20 20 20 20 20 20 20 20 23 20 4e 65 65 64 20 . # Need
3c30: 74 6f 20 6b 6e 6f 77 20 69 66 20 61 72 67 20 69 to know if arg i
3c40: 73 20 4c 69 6e 75 78 2e 20 49 66 20 73 6f 2c 20 s Linux. If so,
3c50: 77 65 20 6e 65 65 64 20 74 6f 20 64 6f 20 67 6c we need to do gl
3c60: 6f 62 62 69 6e 67 2e 0a 20 20 20 20 20 20 20 20 obbing..
3c70: 23 20 49 66 20 79 6f 75 20 77 61 6e 74 20 4f 53 # If you want OS
3c80: 2f 38 20 67 6c 6f 62 62 69 6e 67 2c 20 73 70 65 /8 globbing, spe
3c90: 63 69 66 79 20 61 20 64 65 76 69 63 65 20 74 6f cify a device to
3ca0: 20 70 72 65 76 65 6e 74 20 67 6c 6f 62 62 69 6e prevent globbin
3cb0: 67 0a 20 20 20 20 20 20 20 20 23 20 66 72 6f 6d g. # from
3cc0: 20 62 65 69 6e 67 20 72 75 6e 2e 0a 20 20 20 20 being run..
3cd0: 20 20 20 20 6d 20 3d 20 72 65 2e 6d 61 74 63 68 m = re.match
3ce0: 28 5f 6f 73 38 5f 66 69 6c 65 5f 72 65 2c 20 61 (_os8_file_re, a
3cf0: 72 67 29 0a 20 20 20 20 20 20 20 20 69 66 20 6d rg). if m
3d00: 20 3d 3d 20 4e 6f 6e 65 3a 20 20 20 20 20 20 20 == None:
3d10: 20 20 20 23 20 59 75 70 2c 20 69 74 27 73 20 6c # Yup, it's l
3d20: 69 6e 75 78 2e 20 20 47 6c 6f 62 20 69 74 2e 0a inux. Glob it..
3d30: 20 20 20 20 20 20 20 20 20 20 6d 6f 72 65 5f 66 more_f
3d40: 69 6c 65 73 20 3d 20 67 6c 6f 62 2e 67 6c 6f 62 iles = glob.glob
3d50: 28 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 (arg).
3d60: 69 66 20 6d 6f 72 65 5f 66 69 6c 65 73 20 3d 3d if more_files ==
3d70: 20 5b 5d 3a 0a 20 20 20 20 20 20 20 20 20 20 20 []:.
3d80: 20 6d 6f 72 65 5f 66 69 6c 65 73 2e 61 70 70 65 more_files.appe
3d90: 6e 64 28 61 72 67 29 20 20 23 20 49 66 20 66 69 nd(arg) # If fi
3da0: 6c 65 20 6e 6f 74 20 66 6f 75 6e 64 20 6d 61 79 le not found may
3db0: 20 62 65 20 61 6e 20 4f 53 2f 38 20 69 6e 74 65 be an OS/8 inte
3dc0: 72 6e 61 6c 20 78 66 65 72 2e 0a 20 20 20 20 20 rnal xfer..
3dd0: 20 20 20 20 20 66 6f 72 20 6e 65 77 5f 66 69 6c for new_fil
3de0: 65 20 69 6e 20 6d 6f 72 65 5f 66 69 6c 65 73 3a e in more_files:
3df0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 . if
3e00: 66 69 6c 65 73 70 65 63 5f 73 65 65 6e 20 3d 3d filespec_seen ==
3e10: 20 30 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 0:.
3e20: 20 20 73 6f 75 72 63 65 20 3d 20 6e 65 77 5f 66 source = new_f
3e30: 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 ile.
3e40: 20 20 66 69 72 73 74 5f 6d 6f 64 65 20 3d 20 6d first_mode = m
3e50: 6f 64 65 5f 6f 70 74 0a 20 20 20 20 20 20 20 20 ode_opt.
3e60: 20 20 20 20 65 6c 69 66 20 66 69 6c 65 73 70 65 elif filespe
3e70: 63 5f 73 65 65 6e 20 3d 3d 20 31 3a 0a 20 20 20 c_seen == 1:.
3e80: 20 20 20 20 20 20 20 20 20 20 20 64 65 73 74 69 desti
3e90: 6e 61 74 69 6f 6e 20 3d 20 6e 65 77 5f 66 69 6c nation = new_fil
3ea0: 65 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 e .
3eb0: 65 6c 73 65 3a 0a 20 20 20 20 20 20 20 20 20 20 else:.
3ec0: 20 20 20 20 66 69 6c 65 5f 61 6e 64 5f 6d 6f 64 file_and_mod
3ed0: 65 5f 6c 69 73 74 2e 61 70 70 65 6e 64 28 5b 6d e_list.append([m
3ee0: 6f 64 65 5f 6f 70 74 2c 64 65 73 74 69 6e 61 74 ode_opt,destinat
3ef0: 69 6f 6e 5d 29 0a 20 20 20 20 20 20 20 20 20 20 ion]).
3f00: 20 20 20 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 destination
3f10: 3d 20 6e 65 77 5f 66 69 6c 65 0a 20 20 20 20 20 = new_file.
3f20: 20 20 20 20 20 20 20 66 69 6c 65 73 70 65 63 5f filespec_
3f30: 73 65 65 6e 20 2b 3d 20 31 0a 20 20 20 20 20 20 seen += 1.
3f40: 20 20 65 6c 73 65 3a 0a 20 20 20 20 20 20 20 20 else:.
3f50: 20 20 69 66 20 66 69 6c 65 73 70 65 63 5f 73 65 if filespec_se
3f60: 65 6e 20 3d 3d 20 30 3a 0a 20 20 20 20 20 20 20 en == 0:.
3f70: 20 20 20 20 20 73 6f 75 72 63 65 20 3d 20 61 72 source = ar
3f80: 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 69 g. fi
3f90: 72 73 74 5f 6d 6f 64 65 20 3d 20 6d 6f 64 65 5f rst_mode = mode_
3fa0: 6f 70 74 0a 20 20 20 20 20 20 20 20 20 20 65 6c opt. el
3fb0: 69 66 20 66 69 6c 65 73 70 65 63 5f 73 65 65 6e if filespec_seen
3fc0: 20 3d 3d 20 31 3a 0a 20 20 20 20 20 20 20 20 20 == 1:.
3fd0: 20 20 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 3d destination =
3fe0: 20 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 65 arg. e
3ff0: 6c 73 65 3a 0a 20 20 20 20 20 20 20 20 20 20 20 lse:.
4000: 20 66 69 6c 65 5f 61 6e 64 5f 6d 6f 64 65 5f 6c file_and_mode_l
4010: 69 73 74 2e 61 70 70 65 6e 64 28 5b 6d 6f 64 65 ist.append([mode
4020: 5f 6f 70 74 2c 20 64 65 73 74 69 6e 61 74 69 6f _opt, destinatio
4030: 6e 5d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 n]).
4040: 64 65 73 74 69 6e 61 74 69 6f 6e 20 3d 20 61 72 destination = ar
4050: 67 0a 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 g. file
4060: 73 70 65 63 5f 73 65 65 6e 20 2b 3d 20 31 0a 0a spec_seen += 1..
4070: 20 20 20 20 69 66 20 44 45 42 55 47 3a 20 70 72 if DEBUG: pr
4080: 69 6e 74 20 22 66 69 6c 65 73 70 65 63 5f 73 65 int "filespec_se
4090: 65 6e 3a 20 22 20 2b 20 73 74 72 28 66 69 6c 65 en: " + str(file
40a0: 73 70 65 63 5f 73 65 65 6e 29 0a 0a 20 20 20 20 spec_seen)..
40b0: 69 64 78 20 2b 3d 31 20 20 20 20 20 20 20 20 23 idx +=1 #
40c0: 20 42 6f 74 74 6f 6d 20 6f 66 20 74 68 65 20 77 Bottom of the w
40d0: 68 69 6c 65 20 6c 6f 6f 70 2e 20 49 6e 63 72 65 hile loop. Incre
40e0: 6d 65 6e 74 2e 0a 0a 20 20 69 66 20 66 69 6c 65 ment... if file
40f0: 73 70 65 63 5f 73 65 65 6e 20 3d 3d 20 30 3a 0a spec_seen == 0:.
4100: 20 20 20 20 61 62 6f 72 74 5f 70 72 6f 67 20 28 abort_prog (
4110: 22 4e 6f 20 66 69 6c 65 20 73 70 65 63 73 20 73 "No file specs s
4120: 65 65 6e 2e 20 20 4e 6f 74 68 69 6e 67 20 74 6f een. Nothing to
4130: 20 64 6f 2e 22 29 0a 20 20 65 6c 69 66 20 66 69 do."). elif fi
4140: 6c 65 73 70 65 63 5f 73 65 65 6e 20 3d 3d 20 31 lespec_seen == 1
4150: 3a 0a 20 20 20 20 61 62 6f 72 74 5f 70 72 6f 67 :. abort_prog
4160: 20 28 22 4f 6e 6c 79 20 31 20 66 69 6c 65 20 73 ("Only 1 file s
4170: 70 65 63 20 66 6f 75 6e 64 2e 20 4e 6f 74 68 69 pec found. Nothi
4180: 6e 67 20 74 6f 20 64 6f 2e 22 29 0a 20 20 23 20 ng to do."). #
4190: 4e 6f 77 20 69 74 20 67 65 74 73 20 61 20 6c 69 Now it gets a li
41a0: 74 74 6c 65 20 63 6f 6d 70 6c 69 63 61 74 65 64 ttle complicated
41b0: 2e 2e 2e 0a 20 20 23 20 49 66 20 6e 65 69 74 68 .... # If neith
41c0: 65 72 20 73 6f 75 72 63 65 20 6e 6f 72 20 64 65 er source nor de
41d0: 73 74 69 6e 61 74 69 6f 6e 20 69 73 20 4f 53 2f stination is OS/
41e0: 38 2c 20 70 72 65 74 65 6e 64 20 74 68 65 79 20 8, pretend they
41f0: 62 6f 74 68 20 77 65 72 65 20 4f 53 2f 38 20 22 both were OS/8 "
4200: 44 53 4b 3a 22 0a 20 20 23 20 49 66 20 73 6f 75 DSK:". # If sou
4210: 72 63 65 20 69 73 20 4f 53 2f 38 2c 20 61 6e 64 rce is OS/8, and
4220: 20 68 61 73 20 4f 53 2f 38 20 77 69 6c 64 20 63 has OS/8 wild c
4230: 61 72 64 73 2c 20 74 68 65 20 64 65 73 74 69 6e ards, the destin
4240: 61 74 69 6f 6e 20 6d 75 73 74 20 62 65 20 61 20 ation must be a
4250: 64 69 72 65 63 74 6f 72 79 2e 0a 20 20 65 6c 73 directory.. els
4260: 65 3a 0a 20 20 20 20 23 20 49 66 20 6d 6f 72 65 e:. # If more
4270: 20 74 68 61 6e 20 32 20 66 69 6c 65 73 2c 20 74 than 2 files, t
4280: 68 65 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 6d he destination m
4290: 75 73 74 20 62 65 20 65 69 74 68 65 72 20 61 6e ust be either an
42a0: 20 4f 53 2f 38 20 64 65 76 69 63 65 20 6f 72 20 OS/8 device or
42b0: 61 20 4c 69 6e 75 78 20 64 69 72 65 63 74 6f 72 a Linux director
42c0: 79 2e 0a 20 20 20 20 69 66 20 44 45 42 55 47 3a y.. if DEBUG:
42d0: 20 70 72 69 6e 74 20 22 44 65 73 74 69 6e 61 74 print "Destinat
42e0: 69 6f 6e 3a 20 22 20 2b 20 64 65 73 74 69 6e 61 ion: " + destina
42f0: 74 69 6f 6e 0a 20 20 20 20 69 66 20 66 69 6c 65 tion. if file
4300: 73 70 65 63 5f 73 65 65 6e 20 3e 20 32 20 61 6e spec_seen > 2 an
4310: 64 20 69 73 5f 64 69 72 65 63 74 6f 72 79 28 64 d is_directory(d
4320: 65 73 74 69 6e 61 74 69 6f 6e 29 20 3d 3d 20 46 estination) == F
4330: 61 6c 73 65 3a 0a 20 20 20 20 20 20 61 62 6f 72 alse:. abor
4340: 74 5f 70 72 6f 67 20 28 22 44 65 73 74 69 6e 61 t_prog ("Destina
4350: 74 69 6f 6e 20 6d 75 73 74 20 62 65 20 61 20 4c tion must be a L
4360: 69 6e 75 78 20 64 69 72 65 63 74 6f 72 79 20 6f inux directory o
4370: 72 20 4f 53 2f 38 20 64 65 76 69 63 65 20 66 6f r OS/8 device fo
4380: 72 20 6d 75 6c 74 69 70 6c 65 20 73 6f 75 72 63 r multiple sourc
4390: 65 20 66 69 6c 65 73 2e 22 29 0a 0a 20 20 20 20 e files.")..
43a0: 6d 31 20 3d 20 72 65 2e 6d 61 74 63 68 28 5f 6f m1 = re.match(_o
43b0: 73 38 5f 66 69 6c 65 5f 72 65 2c 20 73 6f 75 72 s8_file_re, sour
43c0: 63 65 29 0a 20 20 20 20 6d 32 20 3d 20 72 65 2e ce). m2 = re.
43d0: 6d 61 74 63 68 28 5f 6f 73 38 5f 66 69 6c 65 5f match(_os8_file_
43e0: 72 65 2c 20 64 65 73 74 69 6e 61 74 69 6f 6e 29 re, destination)
43f0: 0a 0a 20 20 20 20 23 20 49 66 20 73 6f 75 72 63 .. # If sourc
4400: 65 20 69 73 20 4f 53 2f 38 20 61 6e 64 20 69 74 e is OS/8 and it
4410: 20 68 61 73 20 77 69 6c 64 20 63 61 72 64 73 2c has wild cards,
4420: 20 62 75 74 20 64 65 73 74 69 6e 61 74 69 6f 6e but destination
4430: 20 69 73 20 61 20 66 69 6c 65 2c 20 6e 6f 74 20 is a file, not
4440: 61 20 64 65 76 69 63 65 2c 0a 20 20 20 20 23 20 a device,. #
4450: 69 74 27 73 20 61 20 66 61 74 61 6c 20 65 72 72 it's a fatal err
4460: 6f 72 2e 0a 20 20 20 20 69 66 20 6d 31 20 21 3d or.. if m1 !=
4470: 20 4e 6f 6e 65 20 61 6e 64 20 68 61 73 5f 6f 73 None and has_os
4480: 38 5f 77 69 6c 64 63 61 72 64 73 28 73 6f 75 72 8_wildcards(sour
4490: 63 65 29 20 61 6e 64 20 69 73 5f 64 69 72 65 63 ce) and is_direc
44a0: 74 6f 72 79 20 28 64 65 73 74 69 6e 61 74 69 6f tory (destinatio
44b0: 6e 29 20 3d 3d 20 46 61 6c 73 65 3a 0a 20 20 20 n) == False:.
44c0: 20 20 20 61 62 6f 72 74 5f 70 72 6f 67 20 28 22 abort_prog ("
44d0: 4e 6f 74 20 67 6f 69 6e 67 20 74 6f 20 63 6f 6e Not going to con
44e0: 63 61 74 69 6e 61 74 65 20 6d 75 6c 74 69 70 6c catinate multipl
44f0: 65 20 4f 53 2f 38 20 66 69 6c 65 73 20 69 6e 74 e OS/8 files int
4500: 6f 3a 20 22 20 2b 20 64 65 73 74 69 6e 61 74 69 o: " + destinati
4510: 6f 6e 20 2b 20 22 2e 22 29 0a 0a 20 20 20 20 69 on + ".").. i
4520: 66 20 6d 31 20 3d 3d 20 4e 6f 6e 65 20 61 6e 64 f m1 == None and
4530: 20 6d 32 20 3d 3d 20 4e 6f 6e 65 20 61 6e 64 20 m2 == None and
4540: 66 69 6c 65 73 70 65 63 5f 73 65 65 6e 20 3d 3d filespec_seen ==
4550: 20 32 3a 20 20 20 20 20 20 23 20 4e 6f 20 4f 53 2: # No OS
4560: 2f 38 20 64 65 76 20 6f 6e 20 74 77 6f 20 6e 61 /8 dev on two na
4570: 6d 65 73 2c 20 6c 6f 63 61 6c 20 44 53 4b 3a 20 mes, local DSK:
4580: 63 6f 70 79 2e 0a 20 20 20 20 20 20 73 6f 75 72 copy.. sour
4590: 63 65 20 3d 20 22 44 53 4b 3a 22 20 2b 20 73 6f ce = "DSK:" + so
45a0: 75 72 63 65 0a 20 20 20 20 20 20 64 65 73 74 69 urce. desti
45b0: 6e 61 74 69 6f 6e 20 3d 20 22 44 53 4b 3a 22 20 nation = "DSK:"
45c0: 2b 20 64 65 73 74 69 6e 61 74 69 6f 6e 0a 20 20 + destination.
45d0: 20 20 20 20 0a 20 20 20 20 61 70 70 65 6e 64 5f . append_
45e0: 63 6f 70 79 28 61 63 74 69 6f 6e 5f 70 6c 61 6e copy(action_plan
45f0: 2c 20 66 69 72 73 74 5f 6d 6f 64 65 2c 20 73 6f , first_mode, so
4600: 75 72 63 65 2c 20 64 65 73 74 69 6e 61 74 69 6f urce, destinatio
4610: 6e 29 0a 20 20 20 20 0a 20 20 20 20 66 6f 72 20 n). . for
4620: 6d 6f 64 65 5f 61 6e 64 5f 66 69 6c 65 20 69 6e mode_and_file in
4630: 20 66 69 6c 65 5f 61 6e 64 5f 6d 6f 64 65 5f 6c file_and_mode_l
4640: 69 73 74 3a 0a 20 20 20 20 20 20 66 69 6c 65 6e ist:. filen
4650: 61 6d 65 20 3d 20 6d 6f 64 65 5f 61 6e 64 5f 66 ame = mode_and_f
4660: 69 6c 65 5b 31 5d 0a 20 20 20 20 20 20 6d 33 20 ile[1]. m3
4670: 3d 20 72 65 2e 6d 61 74 63 68 28 5f 6f 73 38 5f = re.match(_os8_
4680: 66 69 6c 65 5f 72 65 2c 20 66 69 6c 65 6e 61 6d file_re, filenam
4690: 65 29 0a 20 20 20 20 20 20 69 66 20 6d 33 20 21 e). if m3 !
46a0: 3d 20 4e 6f 6e 65 20 61 6e 64 20 68 61 73 5f 6f = None and has_o
46b0: 73 38 5f 77 69 6c 64 63 61 72 64 73 28 66 69 6c s8_wildcards(fil
46c0: 65 6e 61 6d 65 29 20 61 6e 64 20 69 73 5f 64 69 ename) and is_di
46d0: 72 65 63 74 6f 72 79 20 28 64 65 73 74 69 6e 61 rectory (destina
46e0: 74 69 6f 6e 29 20 3d 3d 20 46 61 6c 73 65 3a 0a tion) == False:.
46f0: 20 20 20 20 20 20 20 20 61 62 6f 72 74 5f 70 72 abort_pr
4700: 6f 67 20 28 22 4e 6f 74 20 67 6f 69 6e 67 20 74 og ("Not going t
4710: 6f 20 63 6f 6e 63 61 74 69 6e 61 74 65 20 6d 75 o concatinate mu
4720: 6c 74 69 70 6c 65 20 4f 53 2f 38 20 66 69 6c 65 ltiple OS/8 file
4730: 73 20 69 6e 74 6f 3a 20 22 20 2b 20 64 65 73 74 s into: " + dest
4740: 69 6e 61 74 69 6f 6e 20 2b 20 22 2e 22 29 0a 20 ination + ".").
4750: 20 20 20 20 20 61 70 70 65 6e 64 5f 63 6f 70 79 append_copy
4760: 28 61 63 74 69 6f 6e 5f 70 6c 61 6e 2c 20 6d 6f (action_plan, mo
4770: 64 65 5f 61 6e 64 5f 66 69 6c 65 5b 30 5d 2c 20 de_and_file[0],
4780: 66 69 6c 65 6e 61 6d 65 2c 20 64 65 73 74 69 6e filename, destin
4790: 61 74 69 6f 6e 29 0a 0a 20 20 20 20 20 20 0a 20 ation).. .
47a0: 20 72 65 74 75 72 6e 20 61 63 74 69 6f 6e 5f 70 return action_p
47b0: 6c 61 6e 0a 0a 23 23 23 23 20 6d 61 69 6e 20 23 lan..#### main #
47c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
47d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
47e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
47f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 0a 64 #############..d
4800: 65 66 20 6d 61 69 6e 20 28 29 3a 0a 0a 20 20 61 ef main ():.. a
4810: 63 74 69 6f 6e 5f 70 6c 61 6e 20 3d 20 70 61 72 ction_plan = par
4820: 73 65 5f 61 72 67 73 28 29 0a 20 20 69 66 20 61 se_args(). if a
4830: 63 74 69 6f 6e 5f 70 6c 61 6e 20 3d 3d 20 4e 6f ction_plan == No
4840: 6e 65 3a 0a 20 20 20 20 70 72 6f 67 5f 61 62 6f ne:. prog_abo
4850: 72 74 20 28 22 4e 6f 20 61 63 74 69 6f 6e 20 70 rt ("No action p
4860: 6c 61 6e 20 77 61 73 20 70 61 72 73 65 64 2e 22 lan was parsed."
4870: 29 0a 20 20 69 66 20 44 45 42 55 47 3a 20 70 72 ). if DEBUG: pr
4880: 69 6e 74 20 73 74 72 28 61 63 74 69 6f 6e 5f 70 int str(action_p
4890: 6c 61 6e 29 0a 0a 20 20 23 20 43 72 65 61 74 65 lan).. # Create
48a0: 20 74 68 65 20 53 49 4d 48 20 63 68 69 6c 64 20 the SIMH child
48b0: 69 6e 73 74 61 6e 63 65 20 61 6e 64 20 74 65 6c instance and tel
48c0: 6c 20 69 74 20 77 68 65 72 65 20 74 6f 20 73 65 l it where to se
48d0: 6e 64 20 6c 6f 67 20 6f 75 74 70 75 74 0a 20 20 nd log output.
48e0: 74 72 79 3a 0a 20 20 20 20 73 20 3d 20 73 69 6d try:. s = sim
48f0: 68 20 28 64 69 72 73 2e 62 75 69 6c 64 2c 20 54 h (dirs.build, T
4900: 72 75 65 29 0a 20 20 65 78 63 65 70 74 20 28 52 rue). except (R
4910: 75 6e 74 69 6d 65 45 72 72 6f 72 29 20 61 73 20 untimeError) as
4920: 65 3a 0a 20 20 20 20 70 72 69 6e 74 20 22 43 6f e:. print "Co
4930: 75 6c 64 20 6e 6f 74 20 73 74 61 72 74 20 73 69 uld not start si
4940: 6d 75 6c 61 74 6f 72 3a 20 22 20 2b 20 65 2e 6d mulator: " + e.m
4950: 65 73 73 61 67 65 20 2b 20 27 21 27 0a 20 20 20 essage + '!'.
4960: 20 65 78 69 74 20 28 31 29 0a 20 20 73 2e 73 65 exit (1). s.se
4970: 74 5f 6c 6f 67 66 69 6c 65 20 28 6f 73 2e 66 64 t_logfile (os.fd
4980: 6f 70 65 6e 20 28 73 79 73 2e 73 74 64 6f 75 74 open (sys.stdout
4990: 2e 66 69 6c 65 6e 6f 20 28 29 2c 20 27 77 27 2c .fileno (), 'w',
49a0: 20 30 29 29 0a 0a 20 20 23 20 50 65 72 66 6f 72 0)).. # Perfor
49b0: 6d 20 73 79 73 20 61 74 74 61 63 68 0a 20 20 61 m sys attach. a
49c0: 74 74 5f 73 70 65 63 20 3d 20 61 63 74 69 6f 6e tt_spec = action
49d0: 5f 70 6c 61 6e 5b 22 73 79 73 22 5d 0a 20 20 73 _plan["sys"]. s
49e0: 69 6d 68 5f 62 6f 6f 74 5f 64 65 76 20 3d 20 61 imh_boot_dev = a
49f0: 74 74 5f 73 70 65 63 5b 30 5d 20 2b 20 61 74 74 tt_spec[0] + att
4a00: 5f 73 70 65 63 5b 31 5d 20 20 20 20 20 23 20 43 _spec[1] # C
4a10: 6f 6d 70 6f 73 65 20 73 69 6d 68 20 64 65 76 20 ompose simh dev
4a20: 66 72 6f 6d 20 6e 61 6d 65 20 61 6e 64 20 75 6e from name and un
4a30: 69 74 2e 0a 20 20 69 6d 61 67 65 6e 61 6d 65 20 it.. imagename
4a40: 3d 20 61 74 74 5f 73 70 65 63 5b 32 5d 0a 20 20 = att_spec[2].
4a50: 69 66 20 6e 6f 74 20 6f 73 2e 70 61 74 68 2e 65 if not os.path.e
4a60: 78 69 73 74 73 20 28 69 6d 61 67 65 6e 61 6d 65 xists (imagename
4a70: 29 3a 0a 20 20 20 20 61 62 6f 72 74 5f 70 72 6f ):. abort_pro
4a80: 67 20 28 22 52 65 71 75 65 73 74 65 64 20 62 6f g ("Requested bo
4a90: 6f 74 20 69 6d 61 67 65 20 66 69 6c 65 3a 20 22 ot image file: "
4aa0: 20 2b 20 69 6d 61 67 65 6e 61 6d 65 20 2b 20 22 + imagename + "
4ab0: 20 6e 6f 74 20 66 6f 75 6e 64 2e 22 29 0a 20 20 not found.").
4ac0: 0a 20 20 73 2e 73 65 6e 64 5f 63 6d 64 20 28 22 . s.send_cmd ("
4ad0: 61 74 74 20 22 20 2b 20 73 69 6d 68 5f 62 6f 6f att " + simh_boo
4ae0: 74 5f 64 65 76 20 2b 20 22 20 22 20 2b 20 69 6d t_dev + " " + im
4af0: 61 67 65 6e 61 6d 65 29 0a 0a 20 20 69 6d 61 67 agename).. imag
4b00: 65 73 5f 74 6f 5f 7a 65 72 6f 20 3d 20 5b 5d 0a es_to_zero = [].
4b10: 20 20 0a 20 20 23 20 41 74 74 61 63 68 20 6f 74 . # Attach ot
4b20: 68 65 72 20 6d 6f 75 6e 74 73 0a 20 20 66 6f 72 her mounts. for
4b30: 20 61 74 74 5f 73 70 65 63 20 69 6e 20 61 63 74 att_spec in act
4b40: 69 6f 6e 5f 70 6c 61 6e 5b 22 6d 6f 75 6e 74 22 ion_plan["mount"
4b50: 5d 3a 0a 20 20 20 20 73 69 6d 68 5f 64 65 76 20 ]:. simh_dev
4b60: 3d 20 61 74 74 5f 73 70 65 63 5b 30 5d 20 2b 20 = att_spec[0] +
4b70: 61 74 74 5f 73 70 65 63 5b 31 5d 20 20 20 20 20 att_spec[1]
4b80: 23 20 43 6f 6d 70 6f 73 65 20 73 69 6d 68 20 64 # Compose simh d
4b90: 65 76 20 66 72 6f 6d 20 6e 61 6d 65 20 61 6e 64 ev from name and
4ba0: 20 75 6e 69 74 2e 0a 20 20 20 20 69 6d 61 67 65 unit.. image
4bb0: 6e 61 6d 65 20 3d 20 61 74 74 5f 73 70 65 63 5b name = att_spec[
4bc0: 32 5d 0a 20 20 20 20 69 66 20 6f 73 2e 70 61 74 2]. if os.pat
4bd0: 68 2e 65 78 69 73 74 73 20 28 69 6d 61 67 65 6e h.exists (imagen
4be0: 61 6d 65 29 3a 0a 20 20 20 20 20 20 70 72 69 6e ame):. prin
4bf0: 74 20 22 4d 6f 64 69 66 79 69 6e 67 20 65 78 69 t "Modifying exi
4c00: 73 74 69 6e 67 20 22 20 2b 20 73 69 6d 68 5f 64 sting " + simh_d
4c10: 65 76 20 2b 20 22 20 69 6d 61 67 65 20 22 20 2b ev + " image " +
4c20: 20 69 6d 61 67 65 6e 61 6d 65 0a 20 20 20 20 65 imagename. e
4c30: 6c 73 65 3a 0a 20 20 20 20 20 20 70 72 69 6e 74 lse:. print
4c40: 20 22 57 69 6c 6c 20 63 72 65 61 74 65 20 61 20 "Will create a
4c50: 6e 65 77 20 69 6d 61 67 65 20 66 69 6c 65 20 6e new image file n
4c60: 61 6d 65 64 3a 20 22 20 2b 20 69 6d 61 67 65 6e amed: " + imagen
4c70: 61 6d 65 0a 20 20 20 20 20 20 23 20 53 61 76 65 ame. # Save
4c80: 20 74 68 69 73 20 61 74 74 5f 73 70 65 63 20 73 this att_spec s
4c90: 6f 20 77 65 20 63 61 6e 20 7a 65 72 6f 20 69 74 o we can zero it
4ca0: 20 6c 61 74 65 72 2e 0a 20 20 20 20 20 20 69 6d later.. im
4cb0: 61 67 65 73 5f 74 6f 5f 7a 65 72 6f 2e 61 70 70 ages_to_zero.app
4cc0: 65 6e 64 20 28 61 74 74 5f 73 70 65 63 29 0a 20 end (att_spec).
4cd0: 20 20 20 20 20 73 2e 73 65 6e 64 5f 63 6d 64 20 s.send_cmd
4ce0: 28 22 61 74 74 20 22 20 2b 20 73 69 6d 68 5f 64 ("att " + simh_d
4cf0: 65 76 20 2b 20 22 20 22 20 2b 20 69 6d 61 67 65 ev + " " + image
4d00: 6e 61 6d 65 29 0a 0a 20 20 70 72 69 6e 74 20 22 name).. print "
4d10: 42 6f 6f 74 69 6e 67 20 22 20 2b 20 73 69 6d 68 Booting " + simh
4d20: 5f 62 6f 6f 74 5f 64 65 76 20 2b 20 22 2e 2e 2e _boot_dev + "...
4d30: 22 0a 20 20 73 2e 73 65 6e 64 5f 63 6d 64 20 28 ". s.send_cmd (
4d40: 22 62 6f 6f 74 20 22 20 2b 20 73 69 6d 68 5f 62 "boot " + simh_b
4d50: 6f 6f 74 5f 64 65 76 29 0a 0a 20 20 66 6f 72 20 oot_dev).. for
4d60: 61 74 74 5f 73 70 65 63 20 69 6e 20 69 6d 61 67 att_spec in imag
4d70: 65 73 5f 74 6f 5f 7a 65 72 6f 3a 0a 20 20 20 20 es_to_zero:.
4d80: 6f 73 38 64 65 76 20 3d 20 5f 6f 73 38 5f 66 72 os8dev = _os8_fr
4d90: 6f 6d 5f 73 69 6d 68 5f 64 65 76 5b 61 74 74 5f om_simh_dev[att_
4da0: 73 70 65 63 5b 30 5d 5d 0a 20 20 20 20 69 66 20 spec[0]]. if
4db0: 6f 73 38 64 65 76 20 69 6e 20 5f 6f 73 38 5f 70 os8dev in _os8_p
4dc0: 61 72 74 69 74 69 6f 6e 73 3a 0a 20 20 20 20 20 artitions:.
4dd0: 20 66 6f 72 20 70 61 72 74 69 74 69 6f 6e 20 69 for partition i
4de0: 6e 20 5f 6f 73 38 5f 73 75 62 75 6e 69 74 73 5b n _os8_subunits[
4df0: 6f 73 38 64 65 76 5d 3a 0a 20 20 20 20 20 20 20 os8dev]:.
4e00: 20 6f 73 38 6e 61 6d 65 20 3d 20 6f 73 38 64 65 os8name = os8de
4e10: 76 20 2b 20 70 61 72 74 69 74 69 6f 6e 20 2b 20 v + partition +
4e20: 61 74 74 5f 73 70 65 63 5b 31 5d 20 2b 20 22 3a att_spec[1] + ":
4e30: 22 0a 20 20 20 20 20 20 20 20 70 72 69 6e 74 20 ". print
4e40: 22 49 6e 69 74 69 61 6c 69 7a 69 6e 67 20 64 69 "Initializing di
4e50: 72 65 63 74 6f 72 79 20 6f 66 20 22 20 2b 20 6f rectory of " + o
4e60: 73 38 6e 61 6d 65 20 2b 20 22 20 69 6e 20 22 20 s8name + " in "
4e70: 2b 20 69 6d 61 67 65 6e 61 6d 65 0a 20 20 20 20 + imagename.
4e80: 20 20 20 20 73 2e 6f 73 38 5f 73 65 6e 64 5f 63 s.os8_send_c
4e90: 6d 64 20 28 27 5c 5c 2e 27 2c 20 22 5a 45 52 4f md ('\\.', "ZERO
4ea0: 20 22 20 2b 20 6f 73 38 6e 61 6d 65 29 0a 20 20 " + os8name).
4eb0: 20 20 65 6c 73 65 3a 0a 20 20 20 20 20 20 6f 73 else:. os
4ec0: 38 6e 61 6d 65 20 3d 20 6f 73 38 64 65 76 20 2b 8name = os8dev +
4ed0: 20 61 74 74 5f 73 70 65 63 5b 31 5d 20 2b 20 22 att_spec[1] + "
4ee0: 3a 22 0a 20 20 20 20 20 20 70 72 69 6e 74 20 22 :". print "
4ef0: 49 6e 69 74 69 61 6c 69 7a 69 6e 67 20 64 69 72 Initializing dir
4f00: 65 63 74 6f 72 79 20 6f 66 20 22 20 2b 20 6f 73 ectory of " + os
4f10: 38 6e 61 6d 65 20 2b 20 22 20 69 6e 20 22 20 2b 8name + " in " +
4f20: 20 69 6d 61 67 65 6e 61 6d 65 0a 20 20 20 20 20 imagename.
4f30: 20 73 2e 6f 73 38 5f 73 65 6e 64 5f 63 6d 64 20 s.os8_send_cmd
4f40: 28 27 5c 5c 2e 27 2c 20 22 5a 45 52 4f 20 22 20 ('\\.', "ZERO "
4f50: 2b 20 6f 73 38 6e 61 6d 65 29 0a 0a 20 20 23 20 + os8name).. #
4f60: 50 65 72 66 6f 72 6d 20 63 6f 70 79 20 6f 70 65 Perform copy ope
4f70: 72 61 74 69 6f 6e 73 0a 20 20 66 6f 72 20 64 6f rations. for do
4f80: 5f 63 6f 70 79 20 69 6e 20 61 63 74 69 6f 6e 5f _copy in action_
4f90: 70 6c 61 6e 5b 22 63 6f 70 79 22 5d 3a 0a 20 20 plan["copy"]:.
4fa0: 20 20 6d 6f 64 65 5f 6f 70 74 20 3d 20 64 6f 5f mode_opt = do_
4fb0: 63 6f 70 79 5b 30 5d 0a 20 20 20 20 73 6f 75 72 copy[0]. sour
4fc0: 63 65 20 3d 20 64 6f 5f 63 6f 70 79 5b 31 5d 0a ce = do_copy[1].
4fd0: 20 20 20 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 destination
4fe0: 3d 20 64 6f 5f 63 6f 70 79 5b 32 5d 0a 0a 20 20 = do_copy[2]..
4ff0: 20 20 69 66 20 44 45 42 55 47 3a 20 70 72 69 6e if DEBUG: prin
5000: 74 20 22 53 6f 75 72 63 65 3a 20 22 20 2b 20 73 t "Source: " + s
5010: 6f 75 72 63 65 20 2b 20 22 2c 20 44 65 73 74 69 ource + ", Desti
5020: 6e 61 74 69 6f 6e 3a 20 22 20 2b 20 64 65 73 74 nation: " + dest
5030: 69 6e 61 74 69 6f 6e 20 2b 20 22 2c 20 4d 6f 64 ination + ", Mod
5040: 65 3a 20 22 20 2b 20 6d 6f 64 65 5f 6f 70 74 20 e: " + mode_opt
5050: 2b 20 22 2e 22 0a 20 20 20 20 23 20 49 73 20 74 + ".". # Is t
5060: 68 69 73 20 22 66 72 6f 6d 22 20 4f 53 2f 38 20 his "from" OS/8
5070: 74 6f 20 50 4f 53 49 58 2c 20 22 74 6f 22 20 4f to POSIX, "to" O
5080: 53 2f 38 20 66 72 6f 6d 20 50 4f 53 49 58 20 6f S/8 from POSIX o
5090: 72 20 22 6f 6e 22 20 4f 53 2f 38 3f 0a 20 20 20 r "on" OS/8?.
50a0: 20 23 20 22 74 6f 22 20 2d 2d 20 41 74 74 61 63 # "to" -- Attac
50b0: 68 20 73 6f 75 72 63 65 20 74 6f 20 73 69 6d 68 h source to simh
50c0: 20 70 74 72 0a 20 20 20 20 23 20 49 66 20 77 65 ptr. # If we
50d0: 20 61 72 65 20 6f 70 65 72 61 74 69 6e 67 20 22 are operating "
50e0: 66 72 6f 6d 22 20 61 6e 64 20 73 6f 75 72 63 65 from" and source
50f0: 20 68 61 73 20 77 69 6c 64 20 63 61 72 64 73 2c has wild cards,
5100: 0a 20 20 20 20 23 20 55 73 65 20 44 49 52 45 43 . # Use DIREC
5110: 54 20 74 6f 20 63 72 65 61 74 65 20 6c 69 73 74 T to create list
5120: 20 6f 66 20 66 69 6c 65 73 2e 0a 20 20 20 20 23 of files.. #
5130: 20 22 66 72 6f 6d 22 20 2d 2d 20 41 74 74 61 63 "from" -- Attac
5140: 68 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 74 6f h destination to
5150: 20 70 74 70 0a 20 20 20 20 23 20 22 6f 6e 22 20 ptp. # "on"
5160: 2d 2d 20 55 73 65 20 46 4f 54 50 2e 0a 20 0a 20 -- Use FOTP.. .
5170: 20 23 20 44 65 74 61 63 68 20 61 6c 6c 20 6d 6f # Detach all mo
5180: 75 6e 74 73 20 61 6e 64 20 74 68 65 6e 20 73 79 unts and then sy
5190: 73 2e 0a 20 20 73 2e 62 61 63 6b 5f 74 6f 5f 63 s.. s.back_to_c
51a0: 6d 64 20 28 27 5c 5c 2e 27 29 0a 20 20 66 6f 72 md ('\\.'). for
51b0: 20 61 74 74 5f 73 70 65 63 20 69 6e 20 61 63 74 att_spec in act
51c0: 69 6f 6e 5f 70 6c 61 6e 5b 22 6d 6f 75 6e 74 22 ion_plan["mount"
51d0: 5d 3a 0a 20 20 20 20 73 69 6d 68 5f 64 65 76 20 ]:. simh_dev
51e0: 3d 20 61 74 74 5f 73 70 65 63 5b 30 5d 20 2b 20 = att_spec[0] +
51f0: 61 74 74 5f 73 70 65 63 5b 31 5d 20 20 20 20 20 att_spec[1]
5200: 23 20 43 6f 6d 70 6f 73 65 20 73 69 6d 68 20 64 # Compose simh d
5210: 65 76 20 66 72 6f 6d 20 6e 61 6d 65 20 61 6e 64 ev from name and
5220: 20 75 6e 69 74 2e 0a 20 20 20 20 73 2e 73 65 6e unit.. s.sen
5230: 64 5f 63 6d 64 20 28 22 64 65 74 20 22 20 2b 20 d_cmd ("det " +
5240: 73 69 6d 68 5f 64 65 76 29 0a 20 20 73 2e 73 65 simh_dev). s.se
5250: 6e 64 5f 63 6d 64 20 28 22 64 65 74 20 22 20 2b nd_cmd ("det " +
5260: 20 73 69 6d 68 5f 62 6f 6f 74 5f 64 65 76 29 0a simh_boot_dev).
5270: 0a 20 20 23 20 41 6e 64 20 73 68 75 74 20 64 6f . # And shut do
5280: 77 6e 20 74 68 65 20 73 69 6d 75 6c 61 74 6f 72 wn the simulator
5290: 2e 0a 20 20 73 2e 73 65 6e 64 5f 63 6d 64 20 28 .. s.send_cmd (
52a0: 27 71 75 69 74 27 29 0a 0a 69 66 20 5f 5f 6e 61 'quit')..if __na
52b0: 6d 65 5f 5f 20 3d 3d 20 22 5f 5f 6d 61 69 6e 5f me__ == "__main_
52c0: 5f 22 3a 20 6d 61 69 6e 28 29 0a _": main().