Overview
| Comment: | Still some bugs (vector SS ports)?? |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
935e0f3fdad58dddf1dc99164d6b4f47 |
| User & Date: | gawthrop@users.sourceforge.net on 1998-07-28 19:06:43.000 |
| Other Links: | branch diff | manifest | tags |
Context
|
1998-07-28
| ||
| 19:07:48 | Writes out N_ports as well as n_ports check-in: 4ff8a799eb user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 19:06:43 | Still some bugs (vector SS ports)?? check-in: 935e0f3fda user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 19:06:11 | *** empty log message *** check-in: e27b94cba2 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/m/rbg2abg.m
from [70a07044a9]
to [1acc00e785].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | function [bonds,components] = rbg2abg(name,rbonds,rstrokes,rcomponents,\ port_coord,port_name,\ infofile,errorfile) % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ % %% Revision 1.35 1998/07/08 15:35:15 peterg % %% Added errorfile argument % %% % %% Revision 1.34 1998/07/02 19:41:29 peterg % %% Fixed empty port string bug - set to null string. % %% % %% Revision 1.33 1998/07/02 17:16:06 peterg | > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | function [bonds,components] = rbg2abg(name,rbonds,rstrokes,rcomponents,\ port_coord,port_name,\ infofile,errorfile) % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ % %% Revision 1.36 1998/07/28 10:30:50 peterg % %% Implemented vector SS ports. % %% % %% Revision 1.35 1998/07/08 15:35:15 peterg % %% Added errorfile argument % %% % %% Revision 1.34 1998/07/02 19:41:29 peterg % %% Fixed empty port string bug - set to null string. % %% % %% Revision 1.33 1998/07/02 17:16:06 peterg |
| ︙ | ︙ | |||
358 359 360 361 362 363 364 | end; end; bonds = causality; % Now expand vector ports [n_bonds,junk] = size(bonds); | | | 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 | end; end; bonds = causality; % Now expand vector ports [n_bonds,junk] = size(bonds); n_ports = length(port_bond); n_exp_ports=n_ports; exp_port_name=""; exp_port_bond = []; %exp_comps = []; for i=1:n_ports port_name_i = port_name(i,:) [subport,n_subports] = split_port(port_name_i, ','); % Find the components of the vector port |
| ︙ | ︙ | |||
386 387 388 389 390 391 392 |
mtt_error(['Vector ports ', port_name_i, ' and ', other_port_name, 'are not compatible'],errorfile);
end
else
mtt_error(['Vector port ', port_name_i, ' has no matching port'], errorfile);
end;
if other_bond_index>i %then its not been done yet
| | | | 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 |
mtt_error(['Vector ports ', port_name_i, ' and ', other_port_name, 'are not compatible'],errorfile);
end
else
mtt_error(['Vector port ', port_name_i, ' has no matching port'], errorfile);
end;
if other_bond_index>i %then its not been done yet
mtt_info(["Vector port: ", port_name_i],infofile);
mtt_info(["matching: ", other_port_name],infofile);
% Remove sign info.
bond_index = abs(signed_bond_index);
sig = sign(signed_bond_index);
% Put the first element of each port list in the expanded list
exp_port_name = [exp_port_name; subport(1,:)];
exp_port_name = [exp_port_name; other_subport(1,:)];
|
| ︙ | ︙ | |||
564 565 566 567 568 569 570 |
unsorted_port_list, port_list
if n_unsorted_ports==0
mtt_error(['Component ', comp_name, ' (', comp_type, ') has no labeled ports'], errorfile);
end;
%Write out the signed bond list in the correct order
unsorted_port_list
for j = 1:n_comp_bonds
| | | 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 |
unsorted_port_list, port_list
if n_unsorted_ports==0
mtt_error(['Component ', comp_name, ' (', comp_type, ') has no labeled ports'], errorfile);
end;
%Write out the signed bond list in the correct order
unsorted_port_list
for j = 1:n_comp_bonds
j
name_k = unsorted_port_list(j,:)
k = name_in_list(name_k, port_list);
% Check that it only appears once in port list
if length(k)>1
mtt_error(['Component ', comp_name, ' (', comp_type, ') has ports with the same name: ', name_k], errorfile);
end;
|
| ︙ | ︙ | |||
586 587 588 589 590 591 592 593 594 595 596 597 598 599 |
mtt_error(['Component ', comp_name, ' (', comp_type, ') has an unrecognised port: ', name_k], errorfile);
else
components(i,k) = signed_bond_list(j);
end;
end;
end;
end;
| > > > > > > > > > > > | 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 |
mtt_error(['Component ', comp_name, ' (', comp_type, ') has an unrecognised port: ', name_k], errorfile);
else
components(i,k) = signed_bond_list(j);
end;
end;
end;
end;
|