
[01;34mpackage[m Libsens[31m.[mVirtual[31m.[mPlugins [01;34mis[m      
   
   
   [31m--type Abstract_Plugin_Class is abstract tagged limited null record;[m
   [01;34mtype[m Abstract_Plugin_Class [01;34mis[m [01;34mabstract[m [01;34mtagged[m [01;34mnull[m [01;34mrecord[m[31m;[m
   
   [01;34mprocedure[m [01;30mPrint[m[31m([mFilename [31m:[m [01;34min[m [32mString[m[31m;[m Plug [31m:[m [01;34min[m Abstract_Plugin_Class[31m)[m [01;34mis[m [01;34mabstract[m[31m;[m   

   
   
   
   [01;34mtype[m [01;30mPlugin_Class[m[31m([mClass [31m:[m Plugin_Enum[31m)[m [01;34mis[m [01;34mnew[m Abstract_Plugin_Class [01;34mwith[m
      [01;34mrecord[m
	 Name      [31m:[m [01;34maccess[m [32mString[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
	 Id        [31m:[m Plugin_Num [31m:=[m [35m1[m[31m;[m	 	 
	 Device_ID [31m:[m Device_Num [31m:=[m [35m1[m[31m;[m
	 Ch_ID     [31m:[m Channel_Num [31m:=[m [35m1[m[31m;[m
	 
	 Form_ID   [31m:[m Form_Index_Type [31m:=[m [35m1[m[31m;[m
	 Cat_ID    [31m:[m Category_Index_Type [31m:=[m [35m1[m[31m;[m
	 
	 Opened    [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 Printed   [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 Mutted    [31m:[m [32mBoolean[m [31m:=[m False[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mprocedure[m [01;30mInitialize[m [31m([mPlug      [31m:[m [01;34min[m [01;34mout[m Plugin_Class[31m;[m
			 Id        [31m:[m [01;34min[m Plugin_num[31m;[m
			 Device    [31m:[m [01;34min[m Device_Num[31m;[m
			 Ch        [31m:[m [01;34min[m Channel_Num[31m;[m
			 Form      [31m:[m [01;34min[m Form_Index_Type[31m;[m
			 Cat       [31m:[m [01;34min[m Category_Index_Type[31m);[m
   
   [01;34mprocedure[m [01;30mSet_Id[m[31m([mPlug       [31m:[m [01;34min[m [01;34mout[m Plugin_Class[31m;[m
		    Id        [31m:[m [01;34min[m Plugin_Num[31m);[m
   
   [01;34mfunction[m [01;30mGet_Id[m[31m([mPlug        [31m:[m [01;34min[m Plugin_Class[31m)[m [01;34mreturn[m Plugin_Num[31m;[m
   
   [01;34mprocedure[m [01;30mSet_Device[m[31m([mPlug       [31m:[m [01;34min[m [01;34mout[m Plugin_Class[31m;[m
			Device    [31m:[m [01;34min[m Device_Num[31m);[m
   
   [01;34mfunction[m [01;30mGet_Device[m[31m([mPlug        [31m:[m [01;34min[m Plugin_Class[31m)[m [01;34mreturn[m Device_Num[31m;[m
   
   [01;34mprocedure[m [01;30mSet_Channel[m[31m([mPlug       [31m:[m [01;34min[m [01;34mout[m Plugin_Class[31m;[m
			 Ch        [31m:[m [01;34min[m Channel_Num[31m);[m
   
   [01;34mfunction[m [01;30mGet_Channel[m[31m([mPlug        [31m:[m [01;34min[m Plugin_Class[31m)[m [01;34mreturn[m Channel_Num[31m;[m
   
   [01;34mprocedure[m [01;30mSet_Form[m[31m([mPlug       [31m:[m [01;34min[m [01;34mout[m Plugin_Class[31m;[m
		      Form      [31m:[m [01;34min[m Form_Index_Type[31m);[m
   
   [01;34mfunction[m [01;30mGet_Form[m[31m([mPlug        [31m:[m [01;34min[m Plugin_Class[31m)[m [01;34mreturn[m Form_Index_Type[31m;[m
   
   
   [01;34mprocedure[m [01;30mSet_Category[m[31m([mPlug       [31m:[m [01;34min[m [01;34mout[m Plugin_Class[31m;[m
			  Cat       [31m:[m [01;34min[m Category_Index_Type[31m);[m
   
   [01;34mfunction[m [01;30mGet_Category[m[31m([mPlug        [31m:[m [01;34min[m Plugin_Class[31m)[m [01;34mreturn[m Category_Index_Type[31m;[m
   
   [01;34mprocedure[m [01;30mPrint[m [31m([mFilename [31m:[m [01;34min[m [32mString[m[31m;[m Plug [31m:[m [01;34min[m Plugin_Class[31m);[m      
   
[01;34mend[m Libsens[31m.[mVirtual[31m.[mPlugins[31m;[m
