powertrain-build 1.13.1__py3-none-any.whl → 1.13.3.dev3__py3-none-any.whl

powertrain_build/matlab_scripts/helperFunctions/Read_Units.m

@@ -1,34 +1,34 @@
-% Copyright 2024 Volvo Car Corporation
-% Licensed under Apache 2.0.
-
-function Data = Read_Units()
-	% READ_UNITS Reads and return table in SPM_Units.xls sheet
-	% This function reads using xlsxread 'basic' mode, which does not require
-	% excel automation to run, i.e. it should never crash a server.
-
-	% Turn off warning due to using xlsread in 'basic' mode
-	wState = warning('off', 'MATLAB:xlsread:Mode');
-
-	ex = [];
-	try
-	    [~, rawData] = xlsread('SPM_Units', 'Sheet1', '', 'basic');
-	catch ex
-	end
-
-	% Restore warnings and re-raise possible errors
-	warning(wState);
-	if ~isempty(ex)
-	    rethrow(ex);
-	end
-
-	% Find data columns
-	[rHead, cAbbr] = find(strcmp(rawData, 'Abbreviation'), 1);
-	[~,     cMean] = find(strcmp(rawData, 'Meaning'), 1);
-	[~,     cUnit] = find(cellfun(@any, strfind(rawData, 'Unit')), 1); % contains 'Unit'
-
-	% Find start of data: first value in abbreviation column
-	rData = rHead + find(cellfun(@any, rawData(rHead+1:end,cAbbr)), 1);
-
-	% Return data structure as cell array
-	Data = strtrim(rawData(rData:end, [cAbbr, cMean, cUnit]));
-end
+% Copyright 2024 Volvo Car Corporation
+% Licensed under Apache 2.0.
+
+function Data = Read_Units()
+	% READ_UNITS Reads and return table in SPM_Units.xls sheet
+	% This function reads using xlsxread 'basic' mode, which does not require
+	% excel automation to run, i.e. it should never crash a server.
+
+	% Turn off warning due to using xlsread in 'basic' mode
+	wState = warning('off', 'MATLAB:xlsread:Mode');
+
+	ex = [];
+	try
+	    [~, rawData] = xlsread('SPM_Units', 'Sheet1', '', 'basic');
+	catch ex
+	end
+
+	% Restore warnings and re-raise possible errors
+	warning(wState);
+	if ~isempty(ex)
+	    rethrow(ex);
+	end
+
+	% Find data columns
+	[rHead, cAbbr] = find(strcmp(rawData, 'Abbreviation'), 1);
+	[~,     cMean] = find(strcmp(rawData, 'Meaning'), 1);
+	[~,     cUnit] = find(cellfun(@any, strfind(rawData, 'Unit')), 1); % contains 'Unit'
+
+	% Find start of data: first value in abbreviation column
+	rData = rHead + find(cellfun(@any, rawData(rHead+1:end,cAbbr)), 1);
+
+	% Return data structure as cell array
+	Data = strtrim(rawData(rData:end, [cAbbr, cMean, cUnit]));
+end

powertrain_build/matlab_scripts/helperFunctions/SetProjectTimeSamples.m

@@ -1,27 +1,27 @@
-% Copyright 2024 Volvo Car Corporation
-% Licensed under Apache 2.0.
-
-function IncludedFunctions = SetProjectTimeSamples(MaxRefreshRate, Models)
-validModels = fieldnames(Models);
-includedModels = {};
-fields = fieldnames(MaxRefreshRate);
-ts = struct;
-for field = fields'
-    if strcmp(field{1}, 'SampleTimes')
-        continue
-    else
-        rasterName = field{1};
-    end
-    raster = MaxRefreshRate.(rasterName);
-    for included_function = raster'
-        if ismember(included_function, validModels)
-            includedModels{end+1,1} = included_function{1};
-            ts.(included_function{1}) = MaxRefreshRate.SampleTimes.(rasterName);
-        end
-    end
-end
-IncludedFunctions = struct();
-for included_model = unique(includedModels)'
-    IncludedFunctions.(included_model{1}) = struct;
-    IncludedFunctions.(included_model{1}).ts = ts.(included_model{1});
+% Copyright 2024 Volvo Car Corporation
+% Licensed under Apache 2.0.
+
+function IncludedFunctions = SetProjectTimeSamples(MaxRefreshRate, Models)
+validModels = fieldnames(Models);
+includedModels = {};
+fields = fieldnames(MaxRefreshRate);
+ts = struct;
+for field = fields'
+    if strcmp(field{1}, 'SampleTimes')
+        continue
+    else
+        rasterName = field{1};
+    end
+    raster = MaxRefreshRate.(rasterName);
+    for included_function = raster'
+        if ismember(included_function, validModels)
+            includedModels{end+1,1} = included_function{1};
+            ts.(included_function{1}) = MaxRefreshRate.SampleTimes.(rasterName);
+        end
+    end
+end
+IncludedFunctions = struct();
+for included_model = unique(includedModels)'
+    IncludedFunctions.(included_model{1}) = struct;
+    IncludedFunctions.(included_model{1}).ts = ts.(included_model{1});
 end

powertrain_build/matlab_scripts/helperFunctions/Strip_Suffix.m

@@ -1,16 +1,16 @@
-% Copyright 2024 Volvo Car Corporation
-% Licensed under Apache 2.0.
-
-function result = Strip_Suffix(fileName)
-    % Some file names have a version suffix, remove that first
-    underscoreIndex = strfind(fileName, '__');
-    if isempty(underscoreIndex)
-        result = fileName;
-    else
-        if strcmp(version('-release'),'2011b')
-            result = fileName(1:underscoreIndex-1);
-        else
-            result = extractBefore(fileName,underscoreIndex);
-        end
-    end
-end
+% Copyright 2024 Volvo Car Corporation
+% Licensed under Apache 2.0.
+
+function result = Strip_Suffix(fileName)
+    % Some file names have a version suffix, remove that first
+    underscoreIndex = strfind(fileName, '__');
+    if isempty(underscoreIndex)
+        result = fileName;
+    else
+        if strcmp(version('-release'),'2011b')
+            result = fileName(1:underscoreIndex-1);
+        else
+            result = extractBefore(fileName,underscoreIndex);
+        end
+    end
+end

powertrain_build/matlab_scripts/helperFunctions/followLink.m

@@ -1,119 +1,119 @@
-% Copyright 2024 Volvo Car Corporation
-% Licensed under Apache 2.0.
-
-function [res_blk, res_ports] = followLink(startBlock, startPort)
-    % Follow the links until a block is found
-    % or multiple paths are encountered
-    if nargin == 1
-        tmpDstBlock = getDstBlocks(startBlock);
-        tmpPort = get(getDstLines(startBlock), 'DstPortHandle');
-        if iscell(tmpPort)
-            tmpPort = vertcat(tmpPort{:});
-        end
-    else
-        tmpDstBlock = startBlock;
-        tmpPort = startPort;
-    end
-    while 1
-        %% Check for invalid handle
-        if tmpDstBlock < 0
-            disp(['Warning: Port not connected: ' ...
-                  getPath(startBlock)])
-            res_blk = -1;
-            res_ports = -1;
-            break;
-        %% If multiple links were found
-        elseif length(tmpDstBlock) > 1
-            res_blk = tmpDstBlock;
-            res_ports = tmpPort;
-            break;
-        %% If the block is a inport
-        elseif strcmp(get_param(tmpDstBlock, 'blocktype'), 'Inport')
-            tmp=get_param(get_param(tmpDstBlock,'parent'), 'linehandles');
-            tmpPort=get_param(tmp.Inport(str2num(get_param(tmpDstBlock,'port'))), 'srcporthandle');
-            tmpDstBlock=get_param(tmp.Inport(str2num(get_param(tmpDstBlock,'port'))), 'srcblockhandle');
-        %% If the block is a outport
-        elseif strcmp(get_param(tmpDstBlock, 'blocktype'), 'Outport')
-            tmpParent=get_param(tmpDstBlock, 'parent');
-            % If were about to exit a block with an action port. Stop!
-            ph=get_param(tmpParent, 'PortHandles');
-            if ~isempty(ph.Ifaction) || ~isempty(ph.Enable)
-                res_blk = tmpDstBlock;
-                res_ports = tmpPort;
-                break;
-            end
-            tmp=get_param(tmpParent, 'linehandles');
-            tmpOutport = tmp.Outport(str2num(get_param(tmpDstBlock, 'port')));
-            if tmpOutport < 0
-                % Not connected. Stop!
-                res_blk = tmpDstBlock;
-                res_ports = tmpPort;
-                break;
-            end
-            tmpPort=get_param(tmpOutport, 'dstporthandle');
-            tmpDstBlock=get_param(tmpOutport, 'dstblockhandle');
-        %% If the block is a From-block
-        elseif strcmp(get_param(tmpDstBlock, 'blocktype'), 'Goto')
-            From=find_system(get_param(tmpDstBlock, 'parent'),'lookundermasks', ...
-                             'on','searchdepth',1,'Findall','on', 'blocktype', ...
-                             'From','GotoTag', get_param(tmpDstBlock,'GotoTag'));
-            if length(From > 0)
-                tmp=get_param(From, 'linehandles');
-                tmpLen = length(tmp);
-                %hanterar att det finns flera from block!!!
-                if tmpLen > 1
-                    tmpPort = [];
-                    tmpDstBlock = [];
-                    for i=1:tmpLen
-                        tmpPort = [tmpPort; get_param(tmp{i}.Outport, 'dstporthandle')];
-                        tmpDstBlock = [tmpDstBlock; get_param(tmp{i}.Outport, 'dstblockhandle')];
-                    end
-                else
-                    tmpPort=get_param(tmp.Outport, 'dstporthandle');
-                    tmpDstBlock=get_param(tmp.Outport, 'dstblockhandle');
-                end
-            else
-                disp(['Warning: Goto-block, without from here:' ...
-                      getPath(tmpDstBlock)])
-                res_blk = -1;
-                res_ports = -1;
-                break;
-            end
-        %% If non masked subsystem
-        elseif checkSubsystem(tmpDstBlock) && ~strcmp(get(tmpPort,'PortType'), 'enable')
-            % kolla om subsystemet är maskat, eller om inporten är en enable port,
-            % om så är fallet hantera som ett vanligt block
-            inport=find_system(tmpDstBlock,'lookundermasks','on', ...
-                                'searchdepth', 1, 'FindAll', 'on', ...
-                                'blocktype','Inport', ...
-                                'port', num2str(get(tmpPort,'PortNumber')));
-            tmpPort=get_param(getDstLines(inport), 'dstporthandle');
-            tmpDstBlock=getDstBlocks(inport);
-        else
-            res_blk = tmpDstBlock;
-            res_ports = tmpPort;
-            break;
-        end
-    end
-end
-
-function follow = checkSubsystem(block)
-    % checkSubsystem returns a bool
-    % true if followLink should continue inside the subsystem
-    % false if followLink should not continue inside the subsystem
-    follow = false;
-    % If the block is not a SubSystem, stop.
-    if strcmp(get_param(block,'blocktype'), 'SubSystem')
-        if isempty(get_param(block,'MaskType'))
-            % If the block is not masked, continue
-            follow = true;
-        else
-            blockFields = fields(get(block));
-            if ismember('FollowLinks', blockFields)
-                % If the block is masked, but has FollowLinks property
-                % 'on': continue
-                 follow = strcmp(get_param(block,'FollowLinks'), 'on');
-            end
-        end
-    end
+% Copyright 2024 Volvo Car Corporation
+% Licensed under Apache 2.0.
+
+function [res_blk, res_ports] = followLink(startBlock, startPort)
+    % Follow the links until a block is found
+    % or multiple paths are encountered
+    if nargin == 1
+        tmpDstBlock = getDstBlocks(startBlock);
+        tmpPort = get(getDstLines(startBlock), 'DstPortHandle');
+        if iscell(tmpPort)
+            tmpPort = vertcat(tmpPort{:});
+        end
+    else
+        tmpDstBlock = startBlock;
+        tmpPort = startPort;
+    end
+    while 1
+        %% Check for invalid handle
+        if tmpDstBlock < 0
+            disp(['Warning: Port not connected: ' ...
+                  getPath(startBlock)])
+            res_blk = -1;
+            res_ports = -1;
+            break;
+        %% If multiple links were found
+        elseif length(tmpDstBlock) > 1
+            res_blk = tmpDstBlock;
+            res_ports = tmpPort;
+            break;
+        %% If the block is a inport
+        elseif strcmp(get_param(tmpDstBlock, 'blocktype'), 'Inport')
+            tmp=get_param(get_param(tmpDstBlock,'parent'), 'linehandles');
+            tmpPort=get_param(tmp.Inport(str2num(get_param(tmpDstBlock,'port'))), 'srcporthandle');
+            tmpDstBlock=get_param(tmp.Inport(str2num(get_param(tmpDstBlock,'port'))), 'srcblockhandle');
+        %% If the block is a outport
+        elseif strcmp(get_param(tmpDstBlock, 'blocktype'), 'Outport')
+            tmpParent=get_param(tmpDstBlock, 'parent');
+            % If were about to exit a block with an action port. Stop!
+            ph=get_param(tmpParent, 'PortHandles');
+            if ~isempty(ph.Ifaction) || ~isempty(ph.Enable)
+                res_blk = tmpDstBlock;
+                res_ports = tmpPort;
+                break;
+            end
+            tmp=get_param(tmpParent, 'linehandles');
+            tmpOutport = tmp.Outport(str2num(get_param(tmpDstBlock, 'port')));
+            if tmpOutport < 0
+                % Not connected. Stop!
+                res_blk = tmpDstBlock;
+                res_ports = tmpPort;
+                break;
+            end
+            tmpPort=get_param(tmpOutport, 'dstporthandle');
+            tmpDstBlock=get_param(tmpOutport, 'dstblockhandle');
+        %% If the block is a From-block
+        elseif strcmp(get_param(tmpDstBlock, 'blocktype'), 'Goto')
+            From=find_system(get_param(tmpDstBlock, 'parent'),'lookundermasks', ...
+                             'on','searchdepth',1,'Findall','on', 'blocktype', ...
+                             'From','GotoTag', get_param(tmpDstBlock,'GotoTag'));
+            if length(From > 0)
+                tmp=get_param(From, 'linehandles');
+                tmpLen = length(tmp);
+                %hanterar att det finns flera from block!!!
+                if tmpLen > 1
+                    tmpPort = [];
+                    tmpDstBlock = [];
+                    for i=1:tmpLen
+                        tmpPort = [tmpPort; get_param(tmp{i}.Outport, 'dstporthandle')];
+                        tmpDstBlock = [tmpDstBlock; get_param(tmp{i}.Outport, 'dstblockhandle')];
+                    end
+                else
+                    tmpPort=get_param(tmp.Outport, 'dstporthandle');
+                    tmpDstBlock=get_param(tmp.Outport, 'dstblockhandle');
+                end
+            else
+                disp(['Warning: Goto-block, without from here:' ...
+                      getPath(tmpDstBlock)])
+                res_blk = -1;
+                res_ports = -1;
+                break;
+            end
+        %% If non masked subsystem
+        elseif checkSubsystem(tmpDstBlock) && ~strcmp(get(tmpPort,'PortType'), 'enable')
+            % kolla om subsystemet är maskat, eller om inporten är en enable port,
+            % om så är fallet hantera som ett vanligt block
+            inport=find_system(tmpDstBlock,'lookundermasks','on', ...
+                                'searchdepth', 1, 'FindAll', 'on', ...
+                                'blocktype','Inport', ...
+                                'port', num2str(get(tmpPort,'PortNumber')));
+            tmpPort=get_param(getDstLines(inport), 'dstporthandle');
+            tmpDstBlock=getDstBlocks(inport);
+        else
+            res_blk = tmpDstBlock;
+            res_ports = tmpPort;
+            break;
+        end
+    end
+end
+
+function follow = checkSubsystem(block)
+    % checkSubsystem returns a bool
+    % true if followLink should continue inside the subsystem
+    % false if followLink should not continue inside the subsystem
+    follow = false;
+    % If the block is not a SubSystem, stop.
+    if strcmp(get_param(block,'blocktype'), 'SubSystem')
+        if isempty(get_param(block,'MaskType'))
+            % If the block is not masked, continue
+            follow = true;
+        else
+            blockFields = fields(get(block));
+            if ismember('FollowLinks', blockFields)
+                % If the block is masked, but has FollowLinks property
+                % 'on': continue
+                 follow = strcmp(get_param(block,'FollowLinks'), 'on');
+            end
+        end
+    end
 end

powertrain_build/matlab_scripts/helperFunctions/getCodeSwitches.m

@@ -1,50 +1,50 @@
-% Copyright 2024 Volvo Car Corporation
-% Licensed under Apache 2.0.
-
-function out = getCodeSwitches(handle, in)
-    % recursivly find if there are any configuration switches affecting
-    % the block "handle"
-    if nargin == 1
-        in = {};
-    end
-    parent = get_param(handle, 'Parent');
-    if ~isempty(strfind(parent, '/'))
-        ph = get_param(parent, 'PortHandles');
-        if ~isempty(ph.Ifaction)
-            l=get_param(ph.Ifaction,'Line');
-            sbh=get_param(l,'SrcBlockHandle');
-            sbp=get_param(l,'SrcPort');
-            %hilite_system(sbh);
-            mt=get_param(sbh,'MaskType');
-            if strcmp(mt,'TL_PreProcessorIf')
-                ports = get_param(sbh, 'PortHandles');
-                l=get_param(ports.Inport, 'Line');
-                blk = get_param(l, 'SrcBlockHandle');
-                if strcmp(get_param(blk, 'BlockType'), 'Inport')
-                    tmp=get_param(get_param(blk, 'Parent'), 'LineHandles');
-                    blk=get_param(tmp.Inport(str2num(get_param(blk, 'Port'))), 'SrcBlockHandle');
-                end
-                if_exp = tl_get(sbh, 'ifexpression');
-                if str2num(sbp)==2
-                    if_exp = ['!(' if_exp ')'];
-                end
-                exp = strrep(if_exp,'u1',get_param(blk, 'const_name'));
-                in = [in; exp];
-            end
-        elseif ~isempty(ph.Enable)
-            l=get_param(ph.Enable,'Line');
-            sbh=get_param(l,'SrcBlockHandle');
-            mt=get_param(sbh,'MaskType');
-            if strcmp(mt,'PreProcessorName')
-                exp = get_param(sbh, 'const_name');
-                in = [in; exp];
-            end
-        end
-        in = getCodeSwitches(parent, in);
-    end
-    if length(in) > 0
-        out = in;
-    else
-        out = {'all'};
-    end
-end
+% Copyright 2024 Volvo Car Corporation
+% Licensed under Apache 2.0.
+
+function out = getCodeSwitches(handle, in)
+    % recursivly find if there are any configuration switches affecting
+    % the block "handle"
+    if nargin == 1
+        in = {};
+    end
+    parent = get_param(handle, 'Parent');
+    if ~isempty(strfind(parent, '/'))
+        ph = get_param(parent, 'PortHandles');
+        if ~isempty(ph.Ifaction)
+            l=get_param(ph.Ifaction,'Line');
+            sbh=get_param(l,'SrcBlockHandle');
+            sbp=get_param(l,'SrcPort');
+            %hilite_system(sbh);
+            mt=get_param(sbh,'MaskType');
+            if strcmp(mt,'TL_PreProcessorIf')
+                ports = get_param(sbh, 'PortHandles');
+                l=get_param(ports.Inport, 'Line');
+                blk = get_param(l, 'SrcBlockHandle');
+                if strcmp(get_param(blk, 'BlockType'), 'Inport')
+                    tmp=get_param(get_param(blk, 'Parent'), 'LineHandles');
+                    blk=get_param(tmp.Inport(str2num(get_param(blk, 'Port'))), 'SrcBlockHandle');
+                end
+                if_exp = tl_get(sbh, 'ifexpression');
+                if str2num(sbp)==2
+                    if_exp = ['!(' if_exp ')'];
+                end
+                exp = strrep(if_exp,'u1',get_param(blk, 'const_name'));
+                in = [in; exp];
+            end
+        elseif ~isempty(ph.Enable)
+            l=get_param(ph.Enable,'Line');
+            sbh=get_param(l,'SrcBlockHandle');
+            mt=get_param(sbh,'MaskType');
+            if strcmp(mt,'PreProcessorName')
+                exp = get_param(sbh, 'const_name');
+                in = [in; exp];
+            end
+        end
+        in = getCodeSwitches(parent, in);
+    end
+    if length(in) > 0
+        out = in;
+    else
+        out = {'all'};
+    end
+end

powertrain_build/matlab_scripts/helperFunctions/getConsumerBlocks.m

@@ -1,30 +1,30 @@
-% Copyright 2024 Volvo Car Corporation
-% Licensed under Apache 2.0.
-
-function dstBlocks = getConsumerBlocks(startBlock, port)
-%% Find the blocks where the Input port variable are consumed
-%% Returns an array with blockids
-
-    %Only use handles in this function
-    if ischar(startBlock)
-        startBlock = get_param(startBlock,'Handle');
-    end
-    dstBlocks = [];
-    if nargin == 1
-        %in = [];
-        [dstBlks, dstPorts] = followLink(startBlock);
-    else
-        [dstBlks, dstPorts] = followLink(startBlock, port);
-    end
-
-    dstBlksLen = length(dstBlks);
-    if dstBlksLen > 1
-        for i=1:dstBlksLen
-            res = getConsumerBlocks(dstBlks(i), dstPorts(i));
-            dstBlocks = [dstBlocks res];
-        end
-    % only add a dst block if they exists.
-    elseif dstBlks > 0
-        dstBlocks = dstBlks;
-    end
-end
+% Copyright 2024 Volvo Car Corporation
+% Licensed under Apache 2.0.
+
+function dstBlocks = getConsumerBlocks(startBlock, port)
+%% Find the blocks where the Input port variable are consumed
+%% Returns an array with blockids
+
+    %Only use handles in this function
+    if ischar(startBlock)
+        startBlock = get_param(startBlock,'Handle');
+    end
+    dstBlocks = [];
+    if nargin == 1
+        %in = [];
+        [dstBlks, dstPorts] = followLink(startBlock);
+    else
+        [dstBlks, dstPorts] = followLink(startBlock, port);
+    end
+
+    dstBlksLen = length(dstBlks);
+    if dstBlksLen > 1
+        for i=1:dstBlksLen
+            res = getConsumerBlocks(dstBlks(i), dstPorts(i));
+            dstBlocks = [dstBlocks res];
+        end
+    % only add a dst block if they exists.
+    elseif dstBlks > 0
+        dstBlocks = dstBlks;
+    end
+end

powertrain_build/matlab_scripts/helperFunctions/getDefBlock.m

@@ -1,40 +1,40 @@
-% Copyright 2024 Volvo Car Corporation
-% Licensed under Apache 2.0.
-
-function tmpSrcBlock = getDefBlock(varargin)
-%% Find the blocks where the input variables are defined
-    if length(varargin) == 1
-        startBlock = varargin{1};
-        tmpSrcBlock = getSrcBlocks(startBlock);
-        tmpPort = get(getSrcLines(startBlock),'srcporthandle');
-    elseif length(varargin) == 2
-        tmpSrcBlock = varargin{1};
-        tmpPort = varargin{2};
-    else
-        error('Wrong number of input arguments')
-    end
-
-    while 1
-        %% If the block is a inport, but not a TL-port
-        if strcmp(get_param(tmpSrcBlock,'blocktype'),'Inport') && isempty(get_param(tmpSrcBlock,'MaskType'))
-            tmp=get_param(get_param(tmpSrcBlock,'parent'),'linehandles');
-            tmpPort=get_param(tmp.Inport(str2num(get_param(tmpSrcBlock,'port'))),'srcporthandle');
-            tmpSrcBlock=get_param(tmp.Inport(str2num(get_param(tmpSrcBlock,'port'))),'srcblockhandle');
-
-        %% If the block is a From-block
-        elseif strcmp(get_param(tmpSrcBlock,'blocktype'),'From')
-            goto=find_system(get_param(tmpSrcBlock,'parent'),'lookundermasks','on','searchdepth',1,'blocktype','Goto','GotoTag',get_param(tmpSrcBlock,'GotoTag'));
-            tmp=get_param(goto{1},'linehandles');
-            tmpPort=get_param(tmp.Inport,'srcporthandle');
-            tmpSrcBlock=get_param(tmp.Inport,'srcblockhandle');
-
-        %% If subsystem
-        elseif strcmp(get_param(tmpSrcBlock,'blocktype'),'SubSystem')
-            outport=find_system(tmpSrcBlock,'followlinks', 'on', 'lookundermasks','on','searchdepth',1,'blocktype','Outport','port', num2str(get(tmpPort,'PortNumber')));
-            tmpPort=get_param(getSrcLines(outport),'srcporthandle');
-            tmpSrcBlock=getSrcBlocks(outport);
-        else
-            break
-        end
-    end
+% Copyright 2024 Volvo Car Corporation
+% Licensed under Apache 2.0.
+
+function tmpSrcBlock = getDefBlock(varargin)
+%% Find the blocks where the input variables are defined
+    if length(varargin) == 1
+        startBlock = varargin{1};
+        tmpSrcBlock = getSrcBlocks(startBlock);
+        tmpPort = get(getSrcLines(startBlock),'srcporthandle');
+    elseif length(varargin) == 2
+        tmpSrcBlock = varargin{1};
+        tmpPort = varargin{2};
+    else
+        error('Wrong number of input arguments')
+    end
+
+    while 1
+        %% If the block is a inport, but not a TL-port
+        if strcmp(get_param(tmpSrcBlock,'blocktype'),'Inport') && isempty(get_param(tmpSrcBlock,'MaskType'))
+            tmp=get_param(get_param(tmpSrcBlock,'parent'),'linehandles');
+            tmpPort=get_param(tmp.Inport(str2num(get_param(tmpSrcBlock,'port'))),'srcporthandle');
+            tmpSrcBlock=get_param(tmp.Inport(str2num(get_param(tmpSrcBlock,'port'))),'srcblockhandle');
+
+        %% If the block is a From-block
+        elseif strcmp(get_param(tmpSrcBlock,'blocktype'),'From')
+            goto=find_system(get_param(tmpSrcBlock,'parent'),'lookundermasks','on','searchdepth',1,'blocktype','Goto','GotoTag',get_param(tmpSrcBlock,'GotoTag'));
+            tmp=get_param(goto{1},'linehandles');
+            tmpPort=get_param(tmp.Inport,'srcporthandle');
+            tmpSrcBlock=get_param(tmp.Inport,'srcblockhandle');
+
+        %% If subsystem
+        elseif strcmp(get_param(tmpSrcBlock,'blocktype'),'SubSystem')
+            outport=find_system(tmpSrcBlock,'followlinks', 'on', 'lookundermasks','on','searchdepth',1,'blocktype','Outport','port', num2str(get(tmpPort,'PortNumber')));
+            tmpPort=get_param(getSrcLines(outport),'srcporthandle');
+            tmpSrcBlock=getSrcBlocks(outport);
+        else
+            break
+        end
+    end
 end