ins

• Source

Source

.proc,ins*i,
  nom"=nom du produit a installer"=(*f),
  sysb"=doit-on ajouter sur sysb"=(*n=,*k=sysb).
.help
Cette procédure, à l'usage du Concierge de Bonjour, provoque la préparation
de l'un des produits de la logithèque sur le fichier SYSB.
.endhelp
return,inszsou,insznew,inszcom,inszpro.
ife,file(syss,.not.as),l.
  fp,/l=syss/r.
endif,l.
lib,l,inszsou,n=nom,f=syss,l=0.
rewind,inszsou.
update,i=inszsou,l=1,c=0,n=insznew.
update,f,i=inszupd,l=1,p=insznew,c=inszcom.
return,inszsou.
lib,l,inszpro,n=insparm,f=sysf,l=0.
txed,inszpro,b. /d=insztex
ife,$sysb$,l.
  inszpro,editlib.
else,l.
  inszpro.
endif,l.
return,inszsou,insznew,inszcom,inszpro,inszupd,insztex.
.data,inszupd
*ident,**ins**
*define,nosbe
.data,insztex
ssd=*deck,nom;ru*=.proc,inszpro,editlib=/sysb.;ss=*deck,;d*
ats*\compil,\i=inszcom,
/e