-
Notifications
You must be signed in to change notification settings - Fork 35
/
Copy pathdefault_port_property.m
149 lines (140 loc) · 5.91 KB
/
default_port_property.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
%------------------------------------------------------------------------------
% Simulink scrip for change ports property to default
% MATLAB version: R2017a
% Author : Shibo Jiang
% Version : 0.4
% Time : 2018/1/8
% Instructions : 修改bug，仅对模型root层输入输出端口进行修改 - 0.2
% 策略修改，仅还原能够使用信号线上后缀名字定义的数据
% 类型的端口 - 0.3
% 修改策略，针对上一版本修改的策略，这版同时恢复其它
% 端口的非数据类型 选项，例如 最大最小值范围等 - 0.4
%------------------------------------------------------------------------------
function default_ports_result = default_port_property()
paraModel = bdroot;
% Original matalb version is R2017a
% 检查Matlab版本是否为R2017a
CorrectVersion_win = '9.2.0.556344 (R2017a)'; % windows
CorrectVersion_linux = '9.2.0.538062 (R2017a)'; % linux
CurrentVersion = version;
if 1 ~= bitor(strcmp(CorrectVersion_win, CurrentVersion),...
strcmp(CorrectVersion_linux, CurrentVersion))
warning('Matlab version mismatch, this scrip should be used for Matlab R2017a');
end
% Original environment character encoding: GBK
% 脚本编码环境是否为GBK
% if ~strcmpi(get_param(0, 'CharacterEncoding'), 'GBK')
% warning('Simulink:EncodingUnMatched', 'The target character...
% encoding (%s) is different from the original (%s).',...
% get_param(0, 'CharacterEncoding'), 'GBK');
% end
DefaultPortProperty(paraModel, 'Inport');
DefaultPortProperty(paraModel, 'Outport');
DefaultPortProperty2(paraModel, 'Inport');
DefaultPortProperty2(paraModel, 'Outport');
default_ports_result = 'change port property to default value successful';
end
%-----------End of function----------------------------------------------------
%-----------Start of function--------------------------------------------------
function DefaultPortProperty(paraModel, block)
% find all inport block
inport_block = find_system(paraModel,'SearchDepth', '1','FindAll','on',...
'BlockType',block);
% Calculate parameter
if strcmp('Inport', block)
SigNamePar = 'OutputSignalNames';
elseif strcmp('Outport', block)
SigNamePar = 'InputSignalNames';
else
% Do nothing
end
% rename inport blocks to signals' name
length_inport = length(inport_block);
for i = 1:length_inport
current_out_sig_name = get(inport_block(i),SigNamePar);
% translate cell to string
current_out_sig_name = cell2mat(current_out_sig_name);
if 1 == isempty(current_out_sig_name)
% Do nothing. output line has no name defined.
else
% find if tag symbol '<' exit
if strcmp('<',current_out_sig_name(1))
% remove the tag symbol '< >'
current_out_sig_name = current_out_sig_name(2:end-1);
else
% Do nothing
end
% change ports property
try
% get parameters datatype
inport_datatype = current_out_sig_name(end-2:end);
set_datatype = CalculateDataType(inport_datatype);
if ~strcmp('None',set_datatype)
% define inport block property
set(inport_block(i),'OutDataTypeStr','Inherit: auto');
set(inport_block(i),'OutMin','[]');
set(inport_block(i),'OutMax','[]');
set(inport_block(i),'SampleTime','-1');
set(inport_block(i),'PortDimensions','-1');
else
set(inport_block(i),'OutMin','[]');
set(inport_block(i),'OutMax','[]');
set(inport_block(i),'SampleTime','-1');
set(inport_block(i),'PortDimensions','-1');
end
catch
% Do nothing
end
end
end
end
%-----------End of function----------------------------------------------------
%-----------Start of function--------------------------------------------------
function set_datatype = CalculateDataType(data_type_in)
% translate the upper to lower
data_type_in = lower(data_type_in);
% calculate the data type config
switch data_type_in
case '_u8'
set_datatype = 'uint8';
case 'u16'
set_datatype = 'uint16';
case 'u32'
set_datatype = 'uint32';
case 'f32'
set_datatype = 'single';
case 'f64'
set_datatype = 'double';
case '_s8'
set_datatype = 'int8';
case 's16'
set_datatype = 'int16';
case 's32'
set_datatype = 'int32';
case '_bl'
set_datatype = 'boolean';
otherwise
set_datatype = 'None';
end
end
%-----------------End of function----------------------------------------------
%-----------Start of function--------------------------------------------------
function DefaultPortProperty2(paraModel, block)
% Find the block
block = find_system(paraModel,'SearchDepth', '1','FindAll','on',...
'BlockType',block);
if ~isempty(block)
for i = 1:length(block)
try
% Set the block's porperty to default value
set(block(i),'OutMin','[]');
set(block(i),'OutMax','[]');
set(block(i),'SampleTime','-1');
set(block(i),'PortDimensions','-1');
catch
% Do nothing
end
end
end
end
%-----------------End of function----------------------------------------------