-------------------------------------------------------------------------------- -- -- -- File : multi_port.adb $Revision: 1.4 $ -- -- Abstract: -- -- Example of a multi port Ada S-Function. -- -- -- -- Author : Murali Yeddanapudi, 26-Jul-1999 -- -- -- -- Copyright 1990-2002 The MathWorks, Inc. -- -- -------------------------------------------------------------------------------- with Simulink; use Simulink; with Ada.Exceptions; use Ada.Exceptions; package body Multi_Port is -- Function: mdlCheckParameters --------------------------------------------- -- Abstract: -- -- procedure mdlCheckParameters(S: in SimStruct) is NumParamsPassedIn : Integer := ssGetNumParameters(S); begin if NumParamsPassedIn /= 1 then ssSetErrorStatus(S,"Parameter count mismatch. Expecting 1 parameter " & "while " & Integer'Image(NumParamsPassedIn) & " were provided in the block dialog box"); return; elsif not(ssGetParameterIsChar(S,0)) or ssGetParameterWidth(S,0) < 2 then ssSetErrorStatus(S, "The parameter to this S-Function must be a " & "string of at least two '+' or '-' characters"); return; else declare StrPrm : String := ssGetStringParameter(S,0); begin for I in StrPrm'Range loop if StrPrm(I) /= '+' and StrPrm(I) /= '-' then ssSetErrorStatus(S,"Invalid character in string parameter: " & StrPrm); end if; end loop; end; end if; exception when E : others => if ssGetErrorStatus(S) = "" then ssSetErrorStatus(S, "Exception occured in mdlCheckParameters. " & "Name: " & Exception_Name(E) & ", " & "Message: " & Exception_Message(E) & " and " & "Information: " & Exception_Information(E)); end if; end mdlCheckParameters; -- Function: mdlInitializeSizes --------------------------------------------- -- Abstract: -- -- procedure mdlInitializeSizes(S : in SimStruct) is NumInputPorts : Integer := ssGetParameterWidth(S,0); begin -- The signs parameter cannot be changed during simulation ssSetParameterTunable(S, 0, FALSE); ssSetParameterName(S, 0, "Signs"); -- Set the number of input ports and their attributes -- ssSetNumInputPorts(S, NumInputPorts); for I in 0 .. NumInputPorts-1 loop ssSetInputPortWidth( S, I, DYNAMICALLY_SIZED); ssSetInputPortDataType( S, I, SS_DOUBLE); ssSetInputPortOptimizationLevel(S, I, 3); ssSetInputPortOverWritable( S, I, FALSE); ssSetInputPortDirectFeedThrough(S, I, TRUE); end loop; -- Set the number of output ports and their attributes -- ssSetNumOutputPorts( S, 4); -- outport 1 is the sum of the inputs ssSetOutputPortWidth( S, 0, DYNAMICALLY_SIZED); ssSetOutputPortDataType(S, 0, SS_DOUBLE); ssSetOutputPortOptimizationLevel(S, 0, 3); -- Outport 2 is the min value of the first output ssSetOutputPortWidth( S, 1, DYNAMICALLY_SIZED); ssSetOutputPortDataType(S, 1, SS_DOUBLE); ssSetOutputPortOptimizationLevel(S, 1, 0); -- Outport 3 is the avg value of the first output ssSetOutputPortWidth( S, 2, DYNAMICALLY_SIZED); ssSetOutputPortDataType(S, 2, SS_DOUBLE); ssSetOutputPortOptimizationLevel(S, 2, 0); -- Outport 4 is the max value of the first output ssSetOutputPortWidth( S, 3, DYNAMICALLY_SIZED); ssSetOutputPortDataType(S, 3, SS_DOUBLE); ssSetOutputPortOptimizationLevel(S, 3, 0); -- Set the number of work vectors and their attributes -- ssSetNumWorkVectors(S, 2); ssSetWorkVectorName( S, 0, "Signs"); ssSetWorkVectorWidth( S, 0, NumInputPorts); ssSetWorkVectorDataType( S, 0, SS_INT32); ssSetWorkVectorUsedAsState(S, 0, FALSE); ssSetWorkVectorName( S, 1, "TickCounter"); ssSetWorkVectorWidth( S, 1, 1); ssSetWorkVectorDataType( S, 1, SS_INT32); ssSetWorkVectorUsedAsState(S, 1, FALSE); -- Set the block sample time -- ssSetSampleTime(S, INHERITED_SAMPLE_TIME); -- Allow block input ports to scalar expand -- ssSetOptionInputScalarExpansion(S, TRUE); exception when E : others => if ssGetErrorStatus(S) = "" then ssSetErrorStatus(S, "Exception occured in mdlInitializeSizes. " & "Name: " & Exception_Name(E) & ", " & "Message: " & Exception_Message(E) & " and " & "Information: " & Exception_Information(E)); end if; end mdlInitializeSizes; -- Function: mdlStart ------------------------------------------------------- -- Abstract: -- -- procedure mdlStart(S : in SimStruct) is NumInputPorts : Integer := ssGetNumInputPorts(S); StrPrm : String := ssGetStringParameter(S,0); Signs : array(StrPrm'Range) of Integer; for Signs'Address use ssGetWorkVectorAddress(S, 0); TickCounter : Integer; for TickCounter'Address use ssGetWorkVectorAddress(S, 1); Width : Integer := ssGetOutputPortWidth(S,0); Y1 : array(0 .. Width-1) of Standard.Long_Float; for Y1'Address use ssGetOutputPortSignalAddress(S,1); Y2 : array(0 .. Width-1) of Standard.Long_Float; for Y2'Address use ssGetOutputPortSignalAddress(S,2); Y3 : array(0 .. Width-1) of Standard.Long_Float; for Y3'Address use ssGetOutputPortSignalAddress(S,3); begin for I in StrPrm'Range loop if StrPrm(I) = '+' then Signs(I) := 1; else Signs(I) := -1; end if; end loop; TickCounter := 0; for Idx in 0 .. Width-1 loop -- minimum Y1(Idx) := Standard.Long_Float'Last; -- average Y2(Idx) := 0.0; -- maximum Y3(Idx) := Standard.Long_Float'First; end loop; exception when E : others => if ssGetErrorStatus(S) = "" then ssSetErrorStatus(S, "Exception occured in mdlStart. " & "Name: " & Exception_Name(E) & ", " & "Message: " & Exception_Message(E) & " and " & "Information: " & Exception_Information(E)); end if; end mdlStart; -- Function: mdlOutputs ----------------------------------------------------- -- Abstract: -- -- procedure mdlOutputs(S : in SimStruct; TID : in Integer) is NumInputPorts : Integer := ssGetNumInputPorts(S); Signs : array(0 .. NumInputPorts-1) of Integer; for Signs'Address use ssGetWorkVectorAddress(S, 0); Width : Integer := ssGetOutputPortWidth(S,0); Y0 : array(0 .. Width-1) of Standard.Long_Float; for Y0'Address use ssGetOutputPortSignalAddress(S,0); Y1 : array(0 .. Width-1) of Standard.Long_Float; for Y1'Address use ssGetOutputPortSignalAddress(S,1); Y2 : array(0 .. Width-1) of Standard.Long_Float; for Y2'Address use ssGetOutputPortSignalAddress(S,2); Y3 : array(0 .. Width-1) of Standard.Long_Float; for Y3'Address use ssGetOutputPortSignalAddress(S,3); NumTicks : Integer; for NumTicks'Address use ssGetWorkVectorAddress(S, 1); begin for Idx in 0 .. Width-1 loop Y0(Idx) := 0.0; end loop; for InPort in 0 .. NumInputPorts-1 loop declare InpWidth : Integer := ssGetInputPortWidth(S,InPort); Input : array(0 .. InpWidth-1) of Standard.Long_Float; for Input'Address use ssGetInputPortSignalAddress(S,InPort); SignVal : Standard.Long_Float := Standard.Long_Float(Signs(InPort)); begin if InpWidth = 1 then -- Scalar expand on the input signal for Idx in 0 .. Width-1 loop Y0(Idx) := Y0(Idx) + SignVal*Input(0); end loop; else -- InpWidth == OutWidth for Idx in 0 .. Width-1 loop Y0(Idx) := Y0(Idx) + SignVal*Input(Idx); end loop; end if; end; end loop; if ssIsMajorTimeStep(S) then NumTicks := Numticks + 1; for Idx in 0 .. Width-1 loop -- minimum if Y1(Idx) > Y0(Idx) then Y1(Idx) := Y0(Idx); end if; -- average: A(n) = [(n-1)*A(n-1)+Y(n)]/n Y2(Idx) := ( Y0(Idx) + Standard.Long_Float(NumTicks-1) * Y2(Idx) ) / Standard.Long_Float(NumTicks); -- maximum if Y3(Idx) < Y0(Idx) then Y3(Idx) := Y0(Idx); end if; end loop; end if; exception when E : others => if ssGetErrorStatus(S) = "" then ssSetErrorStatus(S, "Exception occured in mdlOutputs. " & "Name: " & Exception_Name(E) & ", " & "Message: " & Exception_Message(E) & " and " & "Information: " & Exception_Information(E)); end if; end mdlOutputs; end Multi_Port; -- EOF: multi_port.adb