113 "/

   114 "/ generate a metrics report

   115 "/

   116 #(

   117 	    'stx:libbasic'

   118 	    'stx:libbasic2'

   119 	    'stx:libbasic3'

   120 	    'stx:libcomp'

   121 	    'stx:libview'

   122 	    'stx:libview2'

   123 	    'stx:libwidg'

   124 	    'stx:libwidg2'

   125 	    'stx:libtool'

   126 	    'stx:libtool2'

   127 	    'stx:libui'

   128 	    'stx:libhtml'

   129 	    'stx:libboss'

   130 	    'stx:libdb'

   131 	    'stx:libjavascript'

   132 	    'stx:goodies/xml/stx'

   133 	    'stx:goodies/xml/yaxo'

   134 	    'stx:goodies/xml/xsl'

   135 	    'stx:goodies/xml/xpath'

   136 	    'stx:goodies/net'

   137 	    'stx:goodies/communication'

   138 	    'stx:goodies/webServer'

   139 	    'stx:goodies/soap'

   140 ) do:[:p | Smalltalk loadPackage:p].

   141 

   142 (Smalltalk commandLineArguments includes:'--skipMetrics') ifTrue:[

   143     Stdout showCR:'Skipping metrics.'.

   144 ] ifFalse:[

   145     'metrics.xml' asFilename writingFileDo:[:stream |

   146 	MetricsReporter new

   147 	    stream: stream;

   148 	    packages:{

   149 		'stx:*'       .

   150 	    };

   151 	    classMetricNames: #();

   152 	    methodMetricNames: #();

   153 	    packageMetricNames: #( 'LOC' 'NOM' 'NOC');

   154 	    reportXml_metrics.

   155     ].

   156 ].

   157