--------------------------------------------------------------------------------
--                                                                            --
-- File    : simple_lookup.ads                              $Revision: 1.3 $  --
-- Abstract:                                                                  --
--      Spec for the Ada S-Function: ada_simple_lookup                        --
--                                                                            --
-- Author  : Murali Yeddanapudi and Tom Weis, 28-Jul-1999                     --
--                                                                            --
-- Copyright 1990-2002 The MathWorks, Inc.
--                                                                            --
--------------------------------------------------------------------------------

with Simulink; use Simulink;

package Simple_Lookup is

   -- The "ada_" prefix for the S-Function name makes it easy to identify
   -- this example S-Function in the MATLAB workspace. Normally you would
   -- use the same name for S_FUNCTION_NAME and the package.
   S_FUNCTION_NAME : constant String := "ada_simple_lookup";

   procedure mdlCheckParameters(S : in SimStruct);
   pragma Export(C, mdlCheckParameters, "mdlCheckParameters");

   procedure mdlInitializeSizes(S : in SimStruct);
   pragma Export(C, mdlInitializeSizes, "mdlInitializeSizes");

   procedure mdlStart(S : in SimStruct);
   pragma Export(C, mdlStart, "mdlStart");

   procedure mdlOutputs(S : in SimStruct; TID : in Integer);
   pragma Export(C, mdlOutputs, "mdlOutputs");

end Simple_Lookup;

-- EOF: simple_lookup.ads