.;.MODULE SRCKIT.COM V05,07,<Generates source kit build files>
.GoTo Build
.CopyRi:
.Data #2 !
.Data #2 ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY  BE  USED
.Data #2 ! OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
.Data #2 !
.Data #2 !     COPYRIGHT 1989, 1992 BY DIGITAL EQUIPMENT CORPORATION
.Data #2 !                      ALL RIGHTS RESERVED
.Data #2 !
	.Return

.; To use:
.; $Set Kmon Ind
.; @SRCKIT device[ dir][ test][backup]
.;
.; device is the distribution device the command file is to be built for.
.;
.; dir if present generates kit maps
.; If dir is present it is used as the device on which to write the kit maps
.;
.; If test is specified as NO, no testing is done.
.; If test is present and specified as YES, another output device TST is also
.; required.  TST is initialized and loaded with the contents of all the
.; logical disks created on KIT.  TST is compared with a known good source kit
.; which is assigned to STD to "automatically" detect missing files (from KIT
.; device overflows). The SRC.DIF file should be examined to determine any
.; failures.
.; If test is present then KIT must be an output device large enough to
.; hold the source kit in the form of n logical disks each the size of the
.; specified kit media.  (For instance: for the RK05 kit, KIT would have to
.; be big enough to hold 4 logical disks each 4800 blocks in size.)
.;
.; If backup is present, BUP rather than PIP will be used to generate the
.; kit.  Further the source kit will be organized using savesets equivalent
.; to the logical disks in the LD style kit.  If backup is selected, the
.; logical device name TMP must point to a device available to hold the
.; largest logical disk.

.FilChk:
	.TestFile 'CkFile'
	.If <FilErr> = 1 .Return	; ok, found it
	.If <FilErr> <> 230 .GoTo UnkErr ; odd error
;?SRCKIT-F-File not found DK:'CkFile'
	.Exit <Severe>

.UnkErr:;?SRCKIT-F-Testfile DK:'CkFile' gave unexpected error code - '<FilErr>'
	.Exit <Severe>

.UnkTyp:;?SRCKIT-F-Media type specified not supported - 'KitDev'
	.Exit <Severe>

.BadVol:;?SRCKIT-F-Not able to find 'VolNam' record in 'SrcVol'
	.Exit <Severe>

.NoTest:;?SRCKIT-F-MT is "sizeless", so the TEST option is illogical;
	.Exit <Severe>

.NoCnt:;?SRCKIT-F-Missing file count on 'VolNam'
	.Exit <Severe>

.Build:	.Disable Octal
	.Enable	Escape
	.SetS SrcVol "SRCVOL.DAT"	; file with source volume map
	.SetS SrcFil "SRCKIT.DAT"	; file with source file map
	.SetS TmpFil "TMP.TMP"		; temp file used if backup specified
	.SetS LDOwn "RT-11 Source"	; Owner field for LD files
					.; VOLID is file[.DSK] name for LD
	.SetS Name "$$ERROR$$"		; bad VolID for checking
	.SetS BacRew "/Rewind"		; start with rewinding
	.SetN CtCMax 20			; number of copies between ^Cs
	.SetF NoQues			; assume interactive operation
	.SetF DoDir			; assume no kit maps
	.SetF DoBup			; assume not doing BUP savesets
	.SetF DoLogi			; assume not building logical kits
	.SetF DoTest			; assume not testing
	.SetS CkFile SrcVol		; is volume definition file avail.?
	.GoSub FilChk			; no return on error
	.SetS CkFile SrcFil		; is the file definition file avail.?
	.GoSub FilChk			; no return on error
	.If P4 <> "" .SetT DoBup	; non-blank fourth arg means do BUP
	.If P4 <> "" .SetS P1 "LD"	; force kit type to LD
	.If P3 <> "" .SetT DoLogi	; non-blank third arg means do logical
	.If P2 <> "" .SetT DoDir	; non-blank second arg means kitmaps
	.If P1 = "" .GoTo 5$		; no kit type specified
	.Disable LowerCase
	.SetS TempS P3			; assign uppercased P3 to TempS
	.SetS P2 P2			; assigned uppercased P2 to P2
	.SetS KitDev P1			; assign uppercased P1 to KitDev
	.Enable LowerCase
	.If TempS = "YES" .SetT DoTest
	.SetT NoQues			; else ask no questions

.5$:	.IfT NoQues .GoTo 30$
;	Type <ESC> for help
.10$:	.Disable LowerCase
	.AskS KitDev What media is to be used for the kit?
	.Enable LowerCase
	.IfF <Escape> .GoTo 30$		; help not requested
.20$:;	The possible media are:
.;ADD	LD MT RC25 RL02 RX50 MU ____
;	LD MT RC25 RL02 RX50 MU
	.GoTo 10$
.30$:	.IfT NoQues .GoTo 40$
	.Ask DoDir Do you want kit maps
	.IfF DoDir .GoTo 40$
	.AskS P2 Device name for kitmaps to go to?
.40$:
	.SetF KitMT			; assume not Magtape
	.SetF KitLD			; assume not Logical disk
	.SetS TempS ""			; assume no match
					.;	SetT	KitSiz
	.If KitDev = "LD"	.SetS TempS	"KitLD	-1"
	.If KitDev = "MT"	.SetS TempS	"KitMT	-1"
	.If KitDev = "RC25"	.SetS TempS	"Kit1VL	50902"
	.If KitDev = "RL02"	.SetS TempS	"Kit1VL	20480"
	.If KitDev = "RX50"	.SetS TempS	"KitMVL	800"
	.If KitDev = "MU"	.SetS TempS	"KitMT	-1"
.;ADD	.If KitDev = "____"	.SetS TempS	"Kit___"
	.If TempS = "" .GoTo 20$	; no match
	.Parse TempS "	" Flag KitSiz
	.SetS VolNam "$'KitDev'"	; volume record in SRCVOL.DAT
	.SetS TempS "'KitDev'S.COM"	; use kitname+S as file name
	.SetT 'Flag'			; set Kit___ true
	.IfT DoBup .SetT DoLogi
	.IfT DoBup .SetS MouDev "Tmp"
	.IfF DoBup .SetS MouDev "Kit"
	.IfT DoLogi .SetS TempS "'KitDev'SL.COM"
	.IfF DoTest .GoTo NoTst1
	.IfT KitMT  .GoTo NoTest
	.SetS TempS "'KitDev'SX.COM"
.NoTst1:
	.Open #2 'TempS'
	.GoSub CopyRi			; include copyright statement
	.Data #2 ! 'TempS' command file used to build source kits
	.Data #2 ! Created on '<Date>' at '<Time>'
	.Data #2 !
	.IfF DoTest .GoTo NoTst0
	.Data #2 $Ini/Que TST:
.NoTst0:.SetS Option "/Pro/Ver"		;Assume not creating magtape kit
	.IfT KitMT .SetS Option "/Pos:-1"
	.IfT DoBup .SetS Option "/Pro"
	.IfF KitLD .SetS OutDsk "Kit"
	.IfT KitLD .SetS OutDsk "LD7"
	.IfT DoLogi .SetS OutDsk "LD7"
	.Data #2 $Load SRC,KIT,'OutDsk'
	.IfT DoBup .Data #2 $Load Tmp
	.IfT DoBup .Data #2 $Bup Kit:/Z/Y
	.SetN CtCCnt 0
	.SetN CurVol 0
	.SetT DidFil
	.OpenR #0 'SrcVol'
	.Read #0 KitBuf			; read .MODULE and ignore it
	.OpenR #1 'SrcFil'
	.Read #1 FilBuf			; read .MODULE and ignore it
	.IfT DoBup .Open #3 'TmpFil'

.VolLp1:
	.IfT KitLD .GoTo VolLD1		; Get LD volume info from SRCKIT.DAT
	.Read #0 KitBuf			; get a volume description
	.IfT <EOF> .GoTo BadVol		; can't find volume record
	.SetS TempS KitBuf[1:1]		; get first char of buffer
	.If TempS = ";" .GoTo VolLp1	; skip comments
	.If TempS <> "$" .GoTo VolLp1	; look for volume delimiter records
	.Parse KitBuf "	" VolId Rem
	.If VolNam <> VolId .GoTo VolLp1 ; if not a match, keep looking
	.GoTo FilLup
.VolLup:
	.IfT KitLD .GoTo VolLD		; Get LD volume info from SRCKIT.DAT
	.Read #0 KitBuf			; get a volume description
	.IfT <EOF> .GoTo Done		; all done
	.SetS TempS KitBuf[1:1]		; get first char of buffer
	.If TempS = ";" .GoTo VolLup	; skip comments
	.If TempS = "$" .GoTo Done	; volume delimiter record is "EOF"
	.Parse KitBuf "	" VolId Owner
	.If VolId = "$EOF" .GoTo Done	; done
	.GoTo VolCmn
.VolLD:
	.SetS Owner LDOwn
	.SetS VolId Name
.VolCmn:
	.Inc CurVol			; number the volumes
	.IfF DidFil .GoTo Empty		; Empty (fileless) volume
	.SetF DidFil
	.If CtCCnt = 0 .GoTo NoCtC	; put in a ^C before format/init
	.Data #2 ^C
	.SetN CtCCnt 0
.NoCtC:
	.IfT KitMT .GoTo IsMT
	.If FilBuf = "$EOF" .GoTo Done
	.If Count = "" .GoTo NoCnt
	.SetN TempN 'Count'
	.SetN SegCnt (TempN+36)/37
	.IfT KitLD .GoTo Mount
	.IfF DoLogi .GoTo IsDK
	.SetS Name "'KitDev''CurVol'"
	.SetS Size KitSiz
.Mount:	.SetS DelNam Name
	.Data #2 $Cre 'MouDev':'Name'.DSK/Alloc:'Size'
	.Data #2 $Mou LD7: 'MouDev':'Name'
	.Data #2 $Ini/NoQue/Vol/Seg:'SegCnt' LD7:
	.GoTo VolOwn
.IsMT:
	.Data #2 $Ini/Que/Vol/Bad Kit:
	.GoTo VolOwn
.IsDK:
	.Data #2 $Ini/Que/Vol/Bad/Seg:'SegCnt' Kit:
	.GoTo VolOwn

.VolOwn:
	.Data #2 'VolId'
	.Data #2 'Owner'

.FilLup:
.VolLD1:
	    .Read #1 FilBuf		; read a file description
	    .IfT <EOF> .GoTo FilLpX	; at EOF check for doing DIR
	    .SetS TempS FilBuf[1:1]	; get first char of buffer
	    .If TempS = ";" .GoTo FilLup ; skip comments
	    .Parse FilBuf "	" File Count Size Name Rem
	    .If File = VolNam .GoTo FilLpX ; do another volume
	    .If TempS = "$" .GoTo FilLup ; skip other volume $ records
	    .If VolNam <> "$RX50" .GoTo CopIt ; special option for RX50 only
	    .If Count = "BUP" .GoTo BupIt ; too big for single floppy?
.CopIt:
	    .Data #2 $Cop Src:'File' 'OutDsk':'Option'
	    .GoTo CopBup
.BupIt:
	    .Data #2 $Bac Src:'File' 'OutDsk':'Size'/Verify/Init
.CopBup:
	    .SetT DidFil
	    .Inc CtCCnt
	    .If CtCCnt <> CtCMax .GoTo FilLup
	    .Data #2 ^C
	    .SetN CtCCnt 0
	    .GoTo FilLup

.Empty:	;?SRCKIT-W-Empty volume 'CurVol'
.FilLpX:
	.If CurVol = 0 .GoTo VolLup
	.IfF DoBup .GoTo NoBup
	.Data #2 $Bac LD7:*.* Kit:'DelNam'/SaveSet/NoQuery/NoRewind
	.Data #2 $UnPro Tmp:'DelNam'.DSK
	.Data #2 $Del Tmp:'DelNam'.DSK
	.Data #3 ^C
	.Data #3 $Bac/Res/Ver:Onl Kit:'DelNam'/SaveSet,*.* Src:/NoQuery'BacRew'
	.SetS BacRew "/NoRewind"
	.GoTo VolLup

.NoBup:	.IfF DoDir .GoTo NoDir
	.IfF KitLD .GoTo NLDDir
	.Data #2 $Dir/Brief/Vol/Out:'P2':'VolId'.Dir 'OutDsk':
	.GoTo NoDir
.NLDDir:
	.Data #2 $Dir/Vol/Out:'P2':'KitDev''CurVol'.Dir 'OutDsk':
.NoDir:	.IfF DoTest .GoTo VolLup	; not testing
	.Data #2 $Cop 'OutDsk':*.*/Sys/NoRep Tst:
	.GoTo VolLup			; try for another volume record

.Done:	.IfF DoDir .GoTo Done1
	.IfT DoBUP .GoTo BUPDir
	.Data #2 $Dir/Vol/Out:'P2':'KitDev'NN.Dir Kit:
	.GoTo Done1

.BUPDir:
	.Data #2 $Bac/Dir/Out:'P2':'KitDev'NN.Dir Kit:
.Done1:	.IfF DoTest .GoTo Done2
	.Data #2 $Dir/Out:Tst.Dir Tst:/Sort:Nam/Col:1/Bri
	.Data #2 $Dir/Out:Std.Dir Std:/Sort:Nam/Col:1/Bri
	.Data #2 $Dif/Out:Src.Dif (Std,Tst).Dir
.Done2:	.IfF DoBup .GoTo Done4
	.Close #3
	.OpenR #3 'TmpFil'
.CpyLup:
	.Read #3 Buffer
	.IfT <EOF> .GoTo Done3
	.Data #2 'Buffer'
	.GoTo CpyLup
.Done3:
	.Close #3
.Done4:	.Data #2 $Unload SRC,KIT,'OutDsk'
	.Close #0
	.Close #1
	.Close #2
	.Exit