/* SnapAv.pkg : editeur du plugin snapav - sept 99 - Sylvain Huet */

typeof plugin=S;;
typeof class=S;;

fun testinst(l,c)=
 if l==nil then 0 else let l->[a n] in
 if !strcmp a.classInst c then 1
 else testinst n c;;

proto save=fun [ [Inst r1] ] [[S r1] [S r1] [[S r1]r1] [[S r1]r1]];;

fun save(l)=
 [
  nil /* registerF */
  nil /* register */
  ("plugin"::plugin::nil)::nil /* supplemental Dat */
  ("zoneC"::"SnapAv"::nil)::("zoneC"::"SnapAvInterface"::nil)::nil /* supplemental Dmi */
 ];;

fun IniPlug(file)=
 set plugin=file;
 set class=getInfo strextr _getpack _checkpack file "name"; 
 PlugRegister class @save nil nil nil;;