----------------------------------------------------------------------------------                                                                            ---- 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