/**

  * $Id: util.c,v 1.8 2007-10-07 06:03:22 nkeynes Exp $

  *

  * Miscellaneous utility functions.

  *

  * Copyright (c) 2005 Nathan Keynes.

  *

  * This program is free software; you can redistribute it and/or modify

  * it under the terms of the GNU General Public License as published by

  * the Free Software Foundation; either version 2 of the License, or

  * (at your option) any later version.

  *

  * This program is distributed in the hope that it will be useful,

  * but WITHOUT ANY WARRANTY; without even the implied warranty of

  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

  * GNU General Public License for more details.

  */

 #include <ctype.h>

 #include "dream.h"

 void fwrite_string( const char *s, FILE *f )

 {

     uint32_t len = 0;

     if( s == NULL ) {

 	fwrite( &len, sizeof(len), 1, f );

     } else {

 	len = strlen(s)+1;

 	fwrite( &len, sizeof(len), 1, f );

 	fwrite( s, len, 1, f );

     }

 }

 int fread_string( char *s, int maxlen, FILE *f ) 

 {

     uint32_t len;

     fread( &len, sizeof(len), 1, f );

     if( len != 0 ) {

 	fread( s, len > maxlen ? maxlen : len, 1, f );

     }

     return len;

 }

 void fwrite_dump( unsigned char *data, unsigned int length, FILE *f ) 

 {

     unsigned int i, j;

     for( i =0; i<length; i+=16 ) {

 	fprintf( f, "%08X:", i);

 	for( j=i; j<i+16; j++ ) {

 	    if( (j % 4) == 0 )

 		fprintf( f, " " );

 	    if( j < length )

 		fprintf( f, " %02X", (unsigned int)(data[j]) );

 	    else

 		fprintf( f, "   " );

 	}

 	fprintf( f, "  " );

 	for( j=i; j<i+16 && j<length; j++ ) {

 	    fprintf( f, "%c", isprint(data[j]) ? data[j] : '.' );

 	}

 	fprintf( f, "\n" );

     }

 }

 void fwrite_dump32( unsigned int *data, unsigned int length, FILE *f ) 

 {

     fwrite_dump32v( data, length, 8, f );

 }

 void fwrite_dump32v( unsigned int *data, unsigned int length, int wordsPerLine, FILE *f ) 

 {

     unsigned int i, j;

     for( i =0; i<length>>2; i+=wordsPerLine ) {

 	fprintf( f, "%08X:", i);

 	for( j=i; j<i+wordsPerLine; j++ ) {

 	    if( j < length )

 		fprintf( f, " %08X", (unsigned int)(data[j]) );

 	    else

 		fprintf( f, "         " );

 	}

 	fprintf( f, "\n" );

     }

 }