A final bit of cleanup. All the perl is gone.

This commit is contained in:
ehouse 2006-04-13 04:04:03 +00:00
parent d6dc4bf30c
commit b70bee3d53

View file

@ -550,9 +550,6 @@ printWords( std::vector<char*>* strings )
fprintf( stderr, "%s\n", buf ); fprintf( stderr, "%s\n", buf );
++iter; ++iter;
} }
// for ( int i = 0; i < strings->size(); ++i ) {
// char* str = strings[i];
// }
} }
/***************************************************************************** /*****************************************************************************
@ -669,9 +666,6 @@ makeTableHash( void )
{ {
int i; int i;
FILE* TABLEFILE = fopen( gTableFile, "r" ); FILE* TABLEFILE = fopen( gTableFile, "r" );
// open TABLEFILE, "< $gTableFile";
//splice @gRevMap; // empty it
for ( i = 0; ; ++i ) { for ( i = 0; ; ++i ) {
int ch = getc(TABLEFILE); int ch = getc(TABLEFILE);
@ -686,7 +680,6 @@ makeTableHash( void )
break; break;
} }
// push @gRevMap, $ch;
gRevMap.push_back(ch); gRevMap.push_back(ch);
if ( ch == 0 ) { // blank if ( ch == 0 ) { // blank
@ -791,14 +784,12 @@ printOneLevel( int index, char* str, int curlen )
{ {
int inlen = curlen; int inlen = curlen;
for ( ; ; ) { for ( ; ; ) {
// char* newStr = str;
Node node = gNodes[index++]; Node node = gNodes[index++];
assert( TrieNodeGetLetter(node) < gRevMap.size() ); assert( TrieNodeGetLetter(node) < gRevMap.size() );
char lindx = gRevMap[TrieNodeGetLetter(node)]; char lindx = gRevMap[TrieNodeGetLetter(node)];
if ( (int)lindx >= 0x20 ) { if ( (int)lindx >= 0x20 ) {
// newStr .= "$lindx";
str[curlen++] = lindx; str[curlen++] = lindx;
} else { } else {
#ifdef DEBUG #ifdef DEBUG
@ -806,7 +797,6 @@ printOneLevel( int index, char* str, int curlen )
fprintf( stderr, "sub space\n" ); fprintf( stderr, "sub space\n" );
} }
#endif #endif
// $newStr .= "\\" . chr('0'+$lindx);
str[curlen++] = '\\'; str[curlen++] = '\\';
str[curlen++] = '0' + lindx; str[curlen++] = '0' + lindx;
} }