prmio.cpp

Go to the documentation of this file.

/*
** ----------------------------------------------------------------
** prmio.cpp  -  Primitive input/output class.
**
** ----------------------------------------------------------------
*/

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

#include "prm.h"
#include "quad.h"
#include "circ.h"
#include "prmio.h"

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

/*======================  PrmIO::NextLabel  ======================*/

int PrmIO::NextLabel( 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 );
}

/*=====================  PrmIO::GetColorCode  ====================*/

long int PrmIO::GetColorCode( 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 );
}

/*====================  PrmIO::GetColorLabel  ====================*/

void PrmIO::GetColorLabel( 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 class functions:
*/

/*======================  PrmIO::Interpret  ======================*/

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

 while( 1 )
 {
  if( NextLabel( 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 );
   switch( type )
   {
    case Prm::PRM_QUAD:
     prm = new Quad( );
     break;
    case Prm::PRM_CIRC:
     prm = new Circ( );
     break;
    default:
     return( 0 );
   }
  }
  else if( strcmp( label, "CREATE.BACK" ) == 0 )
  {
   int type;
   fscanf( fd, "%d", &type );
   switch( type )
   {
    case Prm::PRM_QUAD:
     prm = new Quad( 1 );
     break;
    case Prm::PRM_CIRC:
     prm = new Circ( 1 );
     break;
    default:
     return( 0 );
   }
  }
  else if( strcmp( label, "MOVE.FRONT" ) == 0 )
  {
   if( prm == NULL )
    return( 0 );
   prm->MoveFront( );
  }
  else if( strcmp( label, "MOVE.BACK" ) == 0 )
  {
   if( prm == NULL )
    return( 0 );
   prm->MoveBack( );
  }
  else if( strcmp( label, "SET.GEOM" ) == 0 )
  {
   if( prm == NULL )
    return( 0 );
   prm->Read( fd );
  }
  else if( strcmp( label, "SET.COLOR" ) == 0 )
  {
   char color_label[32];
   if( prm == NULL )
    return( 0 );
   fscanf( fd, "%s", color_label );
   prm->SetColor( GetColorCode( color_label ) );
  }
  else if( strcmp( label, "SET.HEIGHT" ) == 0 )
  {
   double height;
   if( prm == NULL )
    return( 0 );
   fscanf( fd, "%lg", &height );
   prm->SetHeight( height );
  }
  else if( strcmp( label, "TRANSLATE" ) == 0 )
  {
   double dx, dy;
   if( prm == NULL )
    return( 0 );
   fscanf( fd, "%lg %lg", &dx, &dy );
   prm->Translate( 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 );
   prm->TranslateVertex( 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 );
   prm->TranslateSide( id, dx, dy );
  }
  else if( strcmp( label, "END" ) == 0 )
   break;
  else             /* not a target label */
   continue;
 }

 return( 1 );
}

/*======================  PrmIO::WriteList  ======================*/

void PrmIO::WriteList( 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 = Prm::First( ); prm != NULL; prm = prm->Next( ) )
 {
  fprintf( fd, "\n%%CREATE.BACK " );
  fprintf( fd, "%d\n", prm->GetType( ) );

  fprintf( fd, "\n%%SET.GEOM\n" );
  prm->Write( fd );

  fprintf( fd, "\n%%SET.COLOR" );
  GetColorLabel( prm->GetColor( ), color_label );
  fprintf( fd, "\n%s\n", color_label );

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

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

---