---

prmio.c

Go to the documentation of this file.

/*
** ----------------------------------------------------------------
** prmio.c  -  Primitive input/output module.
**
** ----------------------------------------------------------------
*/

/*
** ---------------------------------------------------------------
** Global variables and symbols:
*/
#include <stdio.h>
#include <string.h>

#include "prmio.h"
#include "prm.h"

/*
** ---------------------------------------------------------------
** Local variables and symbols:
*/


/*
** ---------------------------------------------------------------
** Private functions:
*/

/*======================  prmioNextLabel  ======================*/

static int prmioNextLabel( FILE *fd, char *label )
{
 int c;

 while( ( c = fgetc( fd ) ) != '%' )           /* finds next % */
 {
  if( c == EOF )
  return( 0 );
 }
 if( fscanf( fd, "%s", label ) != 1 )          /* scan label string */
  return( 0 );
 else
  return( 1 );
}

/*=====================  prmioGetColorCode  ====================*/

static long int prmioGetColorCode( char *color_label )
{
 long int color = PRM_BLACK;

 if( strcmp( color_label, "WHITE" ) == 0 )
  color = PRM_WHITE;
 else if( strcmp( color_label, "GRAY" ) == 0 )
  color = PRM_GRAY;
 else if( strcmp( color_label, "DARK_GRAY" ) == 0 )
  color = PRM_DARK_GRAY;
 else if( strcmp( color_label, "BLACK" ) == 0 )
  color = PRM_BLACK;
 else if( strcmp( color_label, "RED" ) == 0 )
  color = PRM_RED;
 else if( strcmp( color_label, "DARK_RED" ) == 0 )
  color = PRM_DARK_RED;
 else if( strcmp( color_label, "GREEN" ) == 0 )
  color = PRM_GREEN;
 else if( strcmp( color_label, "DARK_GREEN" ) == 0 )
  color = PRM_DARK_GREEN;
 else if( strcmp( color_label, "BLUE" ) == 0 )
  color = PRM_BLUE;
 else if( strcmp( color_label, "DARK_BLUE" ) == 0 )
  color = PRM_DARK_BLUE;
 else if( strcmp( color_label, "YELLOW" ) == 0 )
  color = PRM_YELLOW;
 else if( strcmp( color_label, "DARK_YELLOW" ) == 0 )
  color = PRM_DARK_YELLOW;
 else if( strcmp( color_label, "MAGENTA" ) == 0 )
  color = PRM_MAGENTA;
 else if( strcmp( color_label, "DARK_MAGENTA" ) == 0 )
  color = PRM_DARK_MAGENTA;
 else if( strcmp( color_label, "CYAN" ) == 0 )
  color = PRM_CYAN;
 else if( strcmp( color_label, "DARK_CYAN" ) == 0 )
  color = PRM_DARK_CYAN;

 return( color );
}

/*====================  prmioGetColorLabel  ====================*/

static void prmioGetColorLabel( long int color, char *color_label )
{
 switch( color )
 {
  case PRM_WHITE:
   sprintf( color_label, "WHITE" );
   break;
  case PRM_GRAY:
   sprintf( color_label, "GRAY" );
   break;
  case PRM_DARK_GRAY:
   sprintf( color_label, "DARK_GRAY" );
   break;
  case PRM_BLACK:
  default:
   sprintf( color_label, "BLACK" );
   break;
  case PRM_RED:
   sprintf( color_label, "RED" );
   break;
  case PRM_DARK_RED:
   sprintf( color_label, "DARK_RED" );
   break;
  case PRM_GREEN:
   sprintf( color_label, "GREEN" );
   break;
  case PRM_DARK_GREEN:
   sprintf( color_label, "DARK_GREEN" );
   break;
  case PRM_BLUE:
   sprintf( color_label, "BLUE" );
   break;
  case PRM_DARK_BLUE:
   sprintf( color_label, "DARK_BLUE" );
   break;
  case PRM_YELLOW:
   sprintf( color_label, "YELLOW" );
   break;
  case PRM_DARK_YELLOW:
   sprintf( color_label, "DARK_YELLOW" );
   break;
  case PRM_MAGENTA:
   sprintf( color_label, "MAGENTA" );
   break;
  case PRM_DARK_MAGENTA:
   sprintf( color_label, "DARK_MAGENTA" );
   break;
  case PRM_CYAN:
   sprintf( color_label, "CYAN" );
   break;
  case PRM_DARK_CYAN:
   sprintf( color_label, "DARK_CYAN" );
   break;
 }
}

/*
** ---------------------------------------------------------------
** Public functions:
*/

/*======================  prmioInterpret  ======================*/

int prmioInterpret( FILE *fd )
{
 static char label[80]; /* command label */
 Prm *prm = NULL;    /* pointer to current primitive being created */

 while( 1 )
 {
  if( prmioNextLabel( fd, label ) == 0 )
  {
   printf( "\n Invalid primitive file or label END doesn't exist.\n\n" );
   return( 0 );
  }
  else if( strcmp( label, "CREATE.FRONT" ) == 0 )
  {
   int    type;
   fscanf( fd, "%d", &type );
   prm = prmCreateFront( (PrmType)type );
  }
  else if( strcmp( label, "CREATE.BACK" ) == 0 )
  {
   int    type;
   fscanf( fd, "%d", &type );
   prm = prmCreateBack( (PrmType)type );
  }
  else if( strcmp( label, "MOVE.FRONT" ) == 0 )
  {
   if( prm == NULL )
    return( 0 );
   prmMoveFront( prm );
  }
  else if( strcmp( label, "MOVE.BACK" ) == 0 )
  {
   if( prm == NULL )
    return( 0 );
   prmMoveBack( prm );
  }
  else if( strcmp( label, "SET.GEOM" ) == 0 )
  {
   if( prm == NULL )
    return( 0 );
   prmRead( prm, fd );
  }
  else if( strcmp( label, "SET.COLOR" ) == 0 )
  {
   char color_label[32];
   if( prm == NULL )
    return( 0 );
   fscanf( fd, "%s", color_label );
   prmSetColor( prm, prmioGetColorCode( color_label ) );
  }
  else if( strcmp( label, "SET.HEIGHT" ) == 0 )
  {
   double height;
   if( prm == NULL )
    return( 0 );
   fscanf( fd, "%lg", &height );
   prmSetHeight( prm, height );
  }
  else if( strcmp( label, "TRANSLATE" ) == 0 )
  {
   double dx, dy;
   if( prm == NULL )
    return( 0 );
   fscanf( fd, "%lg %lg", &dx, &dy );
   prmTranslate( prm, dx, dy );
  }
  else if( strcmp( label, "TRANSLATE.VERTEX" ) == 0 )
  {
   int    id;
   double dx, dy;
   if( prm == NULL )
    return( 0 );
   fscanf( fd, "%d %lg %lg", &id, &dx, &dy );
   prmTranslateVertex( prm, id, dx, dy );
  }
  else if( strcmp( label, "TRANSLATE.SIDE" ) == 0 )
  {
   int    id;
   double dx, dy;
   if( prm == NULL )
    return( 0 );
   fscanf( fd, "%d %lg %lg", &id, &dx, &dy );
   prmTranslateSide( prm, id, dx, dy );
  }
  else if( strcmp( label, "END" ) == 0 )
   break;
  else             /* not a target label */
   continue;
 }

 return( 1 );
}

/*======================  prmioWriteList  ======================*/

void prmioWriteList( FILE *fd )
{
 Prm    *prm;                /* pointer to current primitive in list */
 char   color_label[32];     /* primitive color label */

 fprintf( fd, "%%HEADER.TITLE\n'List of primitives.'\n" );

 for( prm = prmFirst( ); prm != NULL; prm = prmNext( prm ) )
 {
  fprintf( fd, "\n%%CREATE.BACK " );
  fprintf( fd, "%d\n", prmGetType( prm ) );

  fprintf( fd, "\n%%SET.GEOM\n" );
  prmWrite( prm, fd );

  fprintf( fd, "\n%%SET.COLOR" );
  prmioGetColorLabel( prmGetColor( prm ), color_label );
  fprintf( fd, "\n%s\n", color_label );

  fprintf( fd, "\n%%SET.HEIGHT " );
  fprintf( fd, "%g\n", prmGetHeight( prm ) );
 }

 fprintf ( fd, "\n%%END\n" );
}

f( fd, "\n%%SET.GEOM\n" );
  prmWrite( prm, fd );

  fprintf( fd, "\n%%SET.COLOR" );
  prmioGetColorLabel( prmGetColor( prm ), color_label );
  fprintf( fd, "\n%s\n", color_label );

  fprintf( fd, "\n%%SET.HEIGHT " );
  fprintf( fd, "%g\n", prmGetHeight( prm ) );
 }

 fprintf ( fd, "\n%%END\n" );
}

---