#include <ctype.h>
#include "flexdef.h"
#include <assert.h>
#include <sys/types.h>

Include dependency graph for misc.c:

Macros
#define	isascii(c) ((c) <= 0177)

Functions
void	dataflush (void)

int	otoi (Char[])

void	action_out (void)

void *	allocate_array (int size, int element_size)

int	all_lower (Char *str)

int	all_upper (Char *str)

void	bubble (int v[], int n)

Char	clower (int c)

char *	copy_string (char *str)

Char *	copy_unsigned_string (Char *str)

void	cshell (Char *v, int n, int special_case_0)

void	dataend (void)

void	flexerror (char *msg)

void	flexfatal (char *msg)

char *	flex_gettime (void)

void	lerrif (char *msg, int arg)

void	lerrsf (char msg, char arg)

int	htoi (unsigned char *str)

int	is_hex_digit (int ch)

void	line_directive_out (FILE *output_file_name)

void	mk2data (int value)

void	mkdata (int value)

int	myctoi (Char *array)

Char	myesc (Char *array)

int	otoi (Char *str)

char *	readable_form (int c)

void *	reallocate_array (void *array, int size, int element_size)

void	skelout (void)

void	transition_struct_out (int element_v, int element_n)

Macro Definition Documentation

#define isascii ( c ) ((c) <= 0177)

Definition at line 43 of file misc.c.

Function Documentation

void action_out ( void )

Definition at line 62 of file misc.c.

 {
     char buf[MAXLINE];
 
     while ( fgets( buf, MAXLINE, temp_action_file ) != NULL )
         if ( buf[0] == '%' && buf[1] == '%' )
             break;
         else
             fputs( buf, stdout );
     }

int all_lower ( Char * str )

Definition at line 104 of file misc.c.

 {
     while ( *str )
         {
         if ( ! isascii( (int) *str ) || ! islower( (int) *str ) )
             return ( 0 );
         ++str;
         }
 
     return ( 1 );
     }

int all_upper ( Char * str )

Definition at line 125 of file misc.c.

 {
     while ( *str )
         {
         if ( ! isascii( (int) *str ) || ! isupper( (int) *str ) )
             return ( 0 );
         ++str;
         }
 
     return ( 1 );
     }

void* allocate_array	(	int	size,
		int	element_size
	)

Definition at line 76 of file misc.c.

 {
     void *mem;
 
     /* on 16-bit int machines (e.g., 80286) we might be trying to
      * allocate more than a signed int can hold, and that won't
      * work.  Cheap test:
      */
     if ( element_size * size <= 0 )
         flexfatal( "request for < 1 byte in allocate_array()" );
 
     mem = (void *) malloc( (unsigned) (element_size * size) );
 
     if ( mem == NULL )
         flexfatal( "memory allocation failed in allocate_array()" );
 
     return ( mem );
     }

void bubble	(	int	v[],
		int	n
	)

Definition at line 152 of file misc.c.

 {
     int i, j, k;
 
     for ( i = n; i > 1; --i )
         for ( j = 1; j < i; ++j )
             if ( v[j] > v[j + 1] )      /* compare */
                 {
                 k = v[j];       /* exchange */
                 v[j] = v[j + 1];
                 v[j + 1] = k;
                 }
     }

Char clower ( int c )

Definition at line 175 of file misc.c.

 {
     return ( (isascii( c ) && isupper( c )) ? tolower( c ) : c );
     }

char* copy_string ( char * str )

Definition at line 188 of file misc.c.

 {
     char *c;
     char *copy;
 
     /* find length */
     for ( c = str; *c; ++c )
         ;
 
     copy = malloc( (unsigned) ((c - str + 1) * sizeof( char )) );
 
     if ( copy == NULL )
         flexfatal( "dynamic memory failure in copy_string()" );
 
     for ( c = copy; (*c++ = *str++); )
         ;
 
     return ( copy );
     }

Char* copy_unsigned_string ( Char * str )

Definition at line 217 of file misc.c.

 {
     Char *c;
     Char *copy;
 
     /* find length */
     for ( c = str; *c; ++c )
         ;
 
     copy = (Char *) malloc( (unsigned) ((c - str + 1) * sizeof( Char )) );
 
     if ( copy == NULL )
         flexfatal( "dynamic memory failure in copy_unsigned_string()" );
 
     for ( c = copy; (*c++ = *str++); )
         ;
 
     return ( copy );
     }

void cshell	(	Char *	v,
		int	n,
		int	special_case_0
	)

Definition at line 256 of file misc.c.

 {
     int gap, i, j, jg;
     Char k;
 
     for ( gap = n / 2; gap > 0; gap = gap / 2 )
         for ( i = gap; i < n; ++i )
             for ( j = i - gap; j >= 0; j = j - gap )
                 {
                 jg = j + gap;
 
                 if ( special_case_0 )
                     {
                     if ( v[jg] == 0 )
                         break;
 
                     else if ( v[j] != 0 && v[j] <= v[jg] )
                         break;
                     }
 
                 else if ( v[j] <= v[jg] )
                     break;
 
                 k = v[j];
                 v[j] = v[jg];
                 v[jg] = k;
                 }
     }

void dataend ( void )

Definition at line 292 of file misc.c.

 {
     if ( datapos > 0 )
         dataflush();
 
     /* add terminator for initialization */
     puts( "    } ;\n" );
 
     dataline = 0;
     datapos = 0;
     }

void dataflush ( void )

Definition at line 312 of file misc.c.

 {
     putchar( '\n' );
 
     if ( ++dataline >= NUMDATALINES )
         {
         /* put out a blank line so that the table is grouped into
          * large blocks that enable the user to find elements easily
          */
         putchar( '\n' );
         dataline = 0;
         }
 
     /* reset the number of characters written on the current line */
     datapos = 0;
     }

char* flex_gettime ( void )

Definition at line 381 of file misc.c.

 {
     time_t t, time(time_t *);
     char *result, *ctime(const time_t *), *copy_string(char *str);
 
     t = time( NULL );
 
     result = copy_string( ctime( &t ) );
 
     /* get rid of trailing newline */
     result[24] = '\0';
 
     return ( result );
     }

void flexerror ( char * msg )

Definition at line 337 of file misc.c.

 {
     fprintf( stderr, "%s: %s\n", program_name, msg );
 
     flexend( 1 );
     }

void flexfatal ( char * msg )

Definition at line 352 of file misc.c.

 {
     fprintf( stderr, "%s: fatal internal error, %s\n", program_name, msg );
     flexend( 1 );
     }

int htoi ( unsigned char * str )

Definition at line 437 of file misc.c.

 {
     int result;
 
     (void) sscanf( (char *) str, "%x", &result );
 
     return ( result );
     }

int is_hex_digit ( int ch )

Definition at line 456 of file misc.c.

 {
     if ( isdigit( ch ) )
         return ( 1 );
 
     switch ( clower( ch ) )
         {
         case 'a':
         case 'b':
         case 'c':
         case 'd':
         case 'e':
         case 'f':
             return ( 1 );
 
         default:
             return ( 0 );
         }
     }

void lerrif	(	char *	msg,
		int	arg
	)

Definition at line 405 of file misc.c.

 {
     char errmsg[MAXLINE];
     (void) sprintf( errmsg, msg, arg );
     flexerror( errmsg );
     }

void lerrsf	(	char *	msg,
		char *	arg
	)

Definition at line 420 of file misc.c.

 {
     char errmsg[MAXLINE];
 
     (void) sprintf( errmsg, msg, arg );
     flexerror( errmsg );
     }

void line_directive_out ( FILE * output_file_name )

Definition at line 479 of file misc.c.

 {
     if ( infilename && gen_line_dirs )
         fprintf( output_file_name, "# line %d \"%s\"\n", linenum, infilename );
     }

void mk2data ( int value )

Definition at line 494 of file misc.c.

 {
     if ( datapos >= NUMDATAITEMS )
         {
         putchar( ',' );
         dataflush();
         }
 
     if ( datapos == 0 )
         /* indent */
         fputs( "    ", stdout );
 
     else
         putchar( ',' );
 
     ++datapos;
 
     printf( "%5d", value );
     }

void mkdata ( int value )

Definition at line 524 of file misc.c.

 {
     if ( datapos >= NUMDATAITEMS )
         {
         putchar( ',' );
         dataflush();
         }
 
     if ( datapos == 0 )
         /* indent */
         fputs( "    ", stdout );
 
     else
         putchar( ',' );
 
     ++datapos;
 
     printf( "%5d", value );
     }

int myctoi ( Char * array )

Definition at line 554 of file misc.c.

 {
     int val = 0;
 
     (void) sscanf( (char *) array, "%d", &val );
 
     return ( val );
     }

Char myesc ( Char * array )

Definition at line 572 of file misc.c.

 {
     Char c, esc_char;
     int sptr;
 
     switch ( array[1] )
         {
         case 'a': return ( '\a' );
         case 'b': return ( '\b' );
         case 'f': return ( '\f' );
         case 'n': return ( '\n' );
         case 'r': return ( '\r' );
         case 't': return ( '\t' );
         case 'v': return ( '\v' );
 
         case '0':
         case '1':
         case '2':
         case '3':
         case '4':
         case '5':
         case '6':
         case '7':
         case '8':
         case '9':
             { /* <octal> */
             sptr = 1;
 
             while ( isascii( array[sptr] ) && isdigit( array[sptr] ) )
                 /* don't increment inside loop control because if
                  * isdigit() is a macro it might expand into multiple
                  * increments ...
                  */
                 ++sptr;
 
             c = array[sptr];
             array[sptr] = '\0';
 
             esc_char = otoi( array + 1 );
 
             array[sptr] = c;
 
             return ( esc_char );
             }
 
         case 'x':
             { /* \x<hex> */
             int sptr = 2;
 
             while ( isascii( array[sptr] ) && is_hex_digit( array[sptr] ) )
                 /* don't increment inside loop control because if
                  * isdigit() is a macro it might expand into multiple
                  * increments ...
                  */
                 ++sptr;
 
             c = array[sptr];
             array[sptr] = '\0';
 
             esc_char = htoi( array + 2 );
 
             array[sptr] = c;
 
             return ( esc_char );
             }
 
         default:
             return ( array[1] );
         }
     }

int otoi ( Char [] )

int otoi ( Char * str )

Definition at line 652 of file misc.c.

 {
     int result;
 
     (void) sscanf( (char *) str, "%o", &result );
 
     return ( result );
     }

char* readable_form ( int c )

Definition at line 672 of file misc.c.

 {
     static char rform[10];
 
     if ( (c >= 0 && c < 32) || c >= 127 )
         {
         switch ( c )
             {
             case '\n': return ( "\\n" );
             case '\t': return ( "\\t" );
             case '\f': return ( "\\f" );
             case '\r': return ( "\\r" );
             case '\b': return ( "\\b" );
 
             default:
                 (void) sprintf( rform, "\\%.3o", c );
                 return ( rform );
             }
         }
 
     else if ( c == ' ' )
         return ( "' '" );
 
     else
         {
         rform[0] = c;
         rform[1] = '\0';
 
         return ( rform );
         }
     }

void* reallocate_array	(	void *	array,
		int	size,
		int	element_size
	)

Definition at line 707 of file misc.c.

 {
     void *new_array;
 
     /* same worry as in allocate_array(): */
     if ( size * element_size <= 0 )
         flexfatal( "attempt to increase array size by less than 1 byte" );
 
     new_array =
         (void *) realloc( (char *)array, (unsigned) (size * element_size ));
 
     if ( new_array == NULL )
         flexfatal( "attempt to increase array size failed" );
 
     return ( new_array );
     }

void skelout ( void )

Definition at line 734 of file misc.c.

 {
     char buf[MAXLINE];
 
     while ( fgets( buf, MAXLINE, skelfile ) != NULL )
         if ( buf[0] == '%' && buf[1] == '%' )
             break;
         else
             fputs( buf, stdout );
     }

void transition_struct_out	(	int	element_v,
		int	element_n
	)

Definition at line 756 of file misc.c.

 {
     printf( "%7d, %5d,", element_v, element_n );
 
     datapos += TRANS_STRUCT_PRINT_LENGTH;
 
     if ( datapos >= 75 )
         {
         putchar( '\n' );
 
         if ( ++dataline % 10 == 0 )
             putchar( '\n' );
 
         datapos = 0;
         }
     }

Macros

Functions

Macro Definition Documentation

Function Documentation