Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

329 lines
9.1 KiB

#include "loc.h"
/* Statistic variables */
unsigned int lines; /* lines of text */
unsigned int locs; /* lines of code */
unsigned int semis; /* semicolons */
unsigned int clocs; /* commented lines of code */
unsigned int cls; /* comment lines */
unsigned int totfiles = 0; /* #files */
unsigned long totlines = 0L; /* total lines of text */
unsigned long totlocs = 0L; /* total lines of code */
unsigned long totsemis = 0L; /* total semicolons */
unsigned long totclocs = 0L; /* total commented lines of code */
unsigned long totcls = 0L; /* total comment lines */
char *pTotStr;
char linebuf[ 256 ];
int fBanner, fErr, fDetail, fRbrace;
FILE *locout;
FILE *fh;
char buf[2];
char ReadChar( void ) {
if (buf[0] != (char)EOF) {
buf[0] = buf[1];
buf[1] = (char)fgetc( fh );
}
return( buf[0] );
}
char PeekChar( void ) {
if (buf[0] != (char)EOF) {
return( buf[ 1 ] );
}
else {
return( (char)EOF );
}
}
void
ProcessFile(
char *pName,
struct findType *pbuf,
void *Args
)
{
unsigned int CommentFound, CommentLevel, CountChars;
register char *s;
char c, QuoteChar;
if (!(fh = fopen( pName, "rt" ))) {
fprintf( stderr, "*** Unable to read file - %s\n", pName );
fErr = TRUE;
return;
}
buf[0] = 0;
buf[1] = 0;
ReadChar();
if (!fBanner) {
fprintf( locout, "%-8s %7s %7s %9s %7s %7s %7s %8s %-s\n",
"",
"", "", "Commented",
"Comment", "Comment", "", "LOC/semi", "" );
fprintf( locout, "%-8s %7s %7s %9s %7s %7s %7s %8s %-s\n",
"",
"Lines", "LOCS", "LOCS",
"Lines", "Ratio", "Semis", "Ratio",
fDetail ? "File Name" : "Component Name");
fBanner = TRUE;
}
lines = 0;
locs = 0;
semis = 0;
clocs = 0;
cls = 0;
CommentLevel = 0;
QuoteChar = 0;
CountChars = 0;
CommentFound = FALSE;
while ((c = ReadChar()) != (char)EOF) {
if (c == '\n') {
lines++;
if (CountChars) {
if (CommentFound) {
clocs++;
}
locs++;
CountChars = 0;
}
else
if (CommentFound) {
cls++;
}
CommentFound = FALSE;
}
else
if (c == '/') {
if (PeekChar() == '*') {
CommentLevel++;
ReadChar();
while ((c = ReadChar()) != (char)EOF) {
if (c == '/') {
if (PeekChar() == '*') {
ReadChar();
CommentLevel++;
}
else {
CommentFound = TRUE;
}
}
else
if (c == '*') {
if (PeekChar() == '/') {
ReadChar();
if (!--CommentLevel) {
break;
}
}
else {
CommentFound = TRUE;
}
}
else
if (c == '\n') {
lines++;
if (CommentFound) {
cls++;
CommentFound = 0;
}
}
else
if (c > ' ') {
CommentFound = TRUE;
}
}
}
else
if (PeekChar() == '/') {
ReadChar();
while ((c = PeekChar()) != '\n') {
if (c == (char)EOF) {
break;
}
else
if (ReadChar() > ' ') {
CommentFound = TRUE;
}
}
}
else {
CountChars++;
}
}
else
if (c == '\'' || c == '\"') {
QuoteChar = c;
CountChars++;
while ((c = ReadChar()) != (char)EOF) {
CountChars++;
if (c == '\\') {
ReadChar();
}
else
if (c == QuoteChar) {
if (PeekChar() == QuoteChar) {
CountChars++;
ReadChar();
}
else {
break;
}
}
else
if (c == '\n') {
lines++;
locs++;
}
}
}
else
if (fRbrace && (c == '}')) {
if (CountChars) {
CountChars++;
}
}
else {
if (c == ';') {
semis++;
}
if (CountChars || c > ' ') {
CountChars++;
}
}
}
if (fDetail)
fprintf( locout, "%-8s %7u %7u %9u %7u %7.2f %7u %8.2f %s\n",
"",
lines, locs, clocs, cls,
((float) cls + (float) clocs / 2) / (float)( locs ? locs : 1),
semis,
(float) locs / (float)(semis ? semis : 1) , pName);
totfiles++;
totlines += lines;
totlocs += locs;
totsemis += semis;
totclocs += clocs;
totcls += cls;
fclose( fh );
}
void
DoTotals() {
if (totfiles)
fprintf( locout, "%-8s %7lu %7lu %9lu %7lu %7.2f %7lu %8.2f\n",
pTotStr ? pTotStr : "Totals",
totlines, totlocs, totclocs, totcls,
((float) totcls + (float) totclocs / 2) /
(float)(totlocs ? totlocs : 1),
totsemis,
(float) totlocs / (float)(totsemis ? totsemis : 1) );
if (pTotStr) {
free( pTotStr );
pTotStr = NULL;
}
totfiles = 0;
totlocs = 0L;
totsemis = 0L;
totclocs = 0L;
totcls = 0L;
}
int
__cdecl main( argc, argv )
int argc;
char *argv[];
{
FILE *fh;
char *p, buf[ 128 ], *p1;
int i;
ConvertAppToOem( argc, argv );
fErr = FALSE;
fDetail = TRUE;
fRbrace = TRUE;
pTotStr = NULL;
locout = stdout;
for (i=1; i<argc; i++) {
p = argv[ i ];
if (*p == '/' || *p == '-') {
while (*++p)
switch (toupper( *p )) {
case 'S': {
fDetail = FALSE;
break;
}
case 'B': {
fRbrace = FALSE;
break;
}
case 'F': {
strcpy( buf, argv[ ++i ] );
p1 = strbscan( buf, "." );
if (!*p1)
strcpy( p1, ".loc" );
if (fh = fopen( buf, "r" )) {
while (fgetl( buf, 128, fh )) {
if (buf[ 0 ] == '*') {
DoTotals();
pTotStr = MakeStr( strbskip( buf, "*" ) );
}
else
if (buf[ 0 ])
forfile( buf, -1, ProcessFile, NULL );
}
DoTotals();
fclose( fh );
}
else {
fprintf( stderr, "Unable to open response file - %s\n",
buf );
fErr = TRUE;
}
break;
}
default: {
fprintf( stderr, "*** Invalid switch - /%c\n", *p );
fErr = TRUE;
}
}
}
else
forfile( p, -1, ProcessFile, NULL );
}
if (fErr) {
fprintf( stderr, "Usage: LOC [/S] [/F responseFile] fileTemplates ...\n" );
fprintf( stderr, " /S - summary only (no individual file counts)\n" );
fprintf( stderr, " /B - old mode, counting lone } lines as LOCs\n" );
fprintf( stderr, " /F - read file templates from responseFile\n" );
}
else
DoTotals();
return( 0 );
}