list_character_set() modified to take a FILE to write to ...

diff --git a/ccl.c b/ccl.c
index 48addb3d900b18ff75284c6e58c1e3e58c27007d..7d1b552178fb4387a63abe713a6438f7df80493b 100644 (file)
--- a/ccl.c
+++ b/ccl.c
@@ -71,7 +71,7 @@ int cclinit()
     {
     if ( ++lastccl >= current_maxccls )
        {
-       current_maxccls += MAXCCLS_INCREMENT;
+       current_maxccls += MAX_CCLS_INCREMENT;
 
        ++num_reallocs;
 
@@ -118,21 +118,23 @@ int cclp;
  *
  * synopsis
  *     int cset[CSIZE + 1];
+ *     FILE *file;
  *     list_character_set( cset );
  *
- * writes to stderr a character-class representation of those characters
- * present in the given set.  A character is present if it has a non-zero
- * value in the set array.
+ * writes to the given file a character-class representation of those
+ * characters present in the given set.  A character is present if it
+ * has a non-zero value in the set array.
  */
 
-list_character_set( cset )
+list_character_set( file, cset )
+FILE *file;
 int cset[];
 
     {
     register int i;
     char *readable_form();
 
-    putc( '[', stderr );
+    putc( '[', file );
 
     for ( i = 1; i <= CSIZE; ++i )
        {
@@ -140,20 +142,20 @@ int cset[];
            {
            register int start_char = i;
 
-           putc( ' ', stderr );
+           putc( ' ', file );
 
-           fputs( readable_form( i ), stderr );
+           fputs( readable_form( i ), file );
 
            while ( ++i <= CSIZE && cset[i] )
                ;
 
            if ( i - 1 > start_char )
                /* this was a run */
-               fprintf( stderr, "-%s", readable_form( i - 1 ) );
+               fprintf( file, "-%s", readable_form( i - 1 ) );
 
-           putc( ' ', stderr );
+           putc( ' ', file );
            }
        }
 
-    putc( ']', stderr );
+    putc( ']', file );
     }