Index: mttroot/mtt/bin/trans/mtt_m2p
==================================================================
--- mttroot/mtt/bin/trans/mtt_m2p
+++ mttroot/mtt/bin/trans/mtt_m2p
@@ -13,10 +13,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.62  2000/12/03 17:15:18  peterg
+## *** empty log message ***
+##
 ## Revision 1.61  2000/11/10 14:46:53  peterg
 ## More fixes to avoid interpering variables as funs - basicly all
 ## functions now have at least ()
 ##
 ## Revision 1.60  2000/11/10 09:38:30  peterg
@@ -362,10 +365,12 @@
 	echo "    MTTi,MTTj,it,iLast: INTEGER;"
 	##echo "    mttSTEPFACTOR,mttWSTEPS,mttSTEPS,mttINPUT : INTEGER;"
 	## echo "    mttMETHOD : IntegrationMethod;"
 	echo "    open_switches  : StateVector;"
 	echo "    numparfile, statefile, simparfile  : TEXT;"
+        strip_comments <${Sys}_switch.txt |\
+          awk '{printf("%s_logic : REAL;\n", tolower($1))}' 
 	echo ""
         mtt_txt2declare $Sys sympar p
         mtt_txt2declare $Sys struc p
         ;;
 #    switchopen)