Index: mttroot/mtt/lib/comp/simple/comp_ports.m
==================================================================
--- mttroot/mtt/lib/comp/simple/comp_ports.m
+++ mttroot/mtt/lib/comp/simple/comp_ports.m
@@ -12,23 +12,30 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.1  1997/08/02 19:35:47  peterg
+% %% Initial revision
+% %%
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 
+junctions = '-zero-one-';
 one_ports = '-SS-R-C-I-';
-two_ports = '-TF-GY-AE-AF-FMR-';
+two_ports = '-TF-GY-AE-AF-FMR-RS-';
 
 comp_type = ['-', comp_type, '-'];
 
-if length(findstr(comp_type,one_ports))==1
+if length(findstr(comp_type,junctions))==1
+  ports = ['undefined]'];
+elseif length(findstr(comp_type,one_ports))==1
   ports = ['in'];
 elseif length(findstr(comp_type,two_ports))==1
   ports = ['in';'out'];
-elseif length(findstr(comp_type,'-EMTF-'))==1
+elseif length(findstr(comp_type,'[-EMTF-]'))==1
   ports = ['in';'out';'mod'];
 end;
+