;
; KOMMANDOFIL LB:[1,2]DYNINS.CMD --- DYNINSA P] TASKARNA
;
;	VERSION 88-03-15 B-E TAPPER
;
;	ANV[NDES KOPIA AV INS -- XNS
;		GEMENSAMMA TASKAR
;
;
	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
	.SETF $PROUT
	.IFNDF $PROUT .ASK $PROUT Utskrivna kommandon
	.IFF $PROUT .ENABLE QUIET
	.IFT $PROUT .DISABLE QUIET
	.SETN RAKN 0
.TRYIGN:
	.IFNINS ...XNS INS $INS/TASK=...XNS
	.INC RAKN
	.IF RAKN LE 20 .GOTO TRYIGN
	.IFNINS ...XNS .DISABLE QUIET
	.IFNINS ...XNS ;XNS (=INS) KUNDE INTE DUBBBELINSTALLERAS
	.IFNINS ...XNS .EXIT
	.IFNINS ...LIU XNS $LIU/IOP=NO
	.IFNINS ...LIU .DISABLE QUIET
	.IFNINS ...LIU ;LIU KUNDE INTE INSTALLERAS
	.IFNINS ...LIU .EXIT
.;
.;	L[S REGISTERFILEN
.;
	.OPENR LB:[1,2]DYNTSK
.;
.NXTSK:
	.READ SLASK
	.IFT <EOF> .GOTO XIT
	.SETS STRT SLASK[1:1]
	.IF STRT EQ ";" .GOTO NXTSK
	.PARSE SLASK "-" SLASK1 SLASK2 SLASK3
	.IF <STRLEN> EQ 1 .GOTO TASKRE
	.IF <STRLEN> EQ 2 .GOTO PLATRE
	;'SLASK'
	.GOTO NXTSK
.;
.PLATRE:
	.SETS PLATS SLASK1
;Installering av taskar p} 'PLATS' f|r 'SLASK2'
	.TEST PLATS
	.IF <STRLEN> EQ 14 .GOTO NXTSK
.;
.FEL:
	.DISABLE QUIET
	;Fel format p} indata till DYNINS -- <STRLEN> = '<STRLEN>'
	;SLASK='SLASK'
	;PLATS='PLATS'
	.STOP
.;
.TASKRE:
	.PARSE SLASK ";" TASK SLASK1
	.IF <FILERR> EQ 1 .GOTO ROK
.;
	.DISABLE QUIET
	;L[SFEL VID DYNINS -- STOP
	.STOP
.;
.ROK:
	.IF <STRLEN> NE 2 .GOTO FEL
	;'SLASK1'
	.IFNINS 'TASK' .GOTO REMOK
	REM 'TASK'
	.DISABLE QUIET
	;'TASK' var installerat.
.;
.REMOK:
	LIU /TK:'TASK'/RE
	.IF <EXSTAT> EQ 1 .GOTO LREMOK	!FUNKAR INTE AV N]N ANLEDNING
	.DISABLE QUIET
	;'TASK' var inte dyninsat tidigare.
.;
.LREMOK:
	XNS 'PLATS''TASK'/CKP=YES
	.IF <EXSTAT> EQ 1 .GOTO INSOK
	.DISABLE QUIET
	;'PLATS''TASK' kunde inte installeras : Exit status '<EXSTAT>'
	.GOTO SLUTT
.;
.INSOK:
	LIU /TK:'TASK'/IN
	.IF <EXSTAT> EQ 1 .GOTO SLUTT
	.DISABLE QUIET
	;'TASK' kunde inte dyninsas : Exit status '<EXSTAT>'
.;
.SLUTT:
	REM 'TASK'
	.IFF $PROUT .ENABLE QUIET
	.GOTO NXTSK
.;
.;
.XIT:
	.CLOSE
	REM ...LIU
	.IF <EXSTAT> EQ 1 .GOTO XI2
	.DISABLE QUIET
	;LIU KUNDE INTE TAS BORT
.XI2:
	REM ...XNS
	.IF <EXSTAT> EQ 1 .GOTO XI3
	.DISABLE QUIET
	;XNS (=INS) KUNDE INTE TAS BORT
.XI3:
	VFU /CL
	.IF <EXSTAT> EQ 1 .EXIT
	.DISABLE QUIET
	;VFU /CL GAV FELKODEN '<EXSTAT>'
;
; <EOF> DYNINS.CMD
;