view stitch/stypes.c @ 0:5242703e91d3 tip

Initial checkin for AIM92 aimR8.2 (last updated May 1997).

/*
    stypes.c
    ======

    defines types for sources operations


*/

#include <string.h>

#include "stitch.h"
#include "source.h"
#include "stypes.h"
#include "ops.h"

char   VoidIdent[] =   "void" ;
char   CharIdent[] =   "char" ;
char  ShortIdent[] =  "short" ;
char    IntIdent[] =    "int" ;
char  FloatIdent[] =  "float" ;
char DoubleIdent[] = "double" ;

Source SourceSource( source )
Source source ;
{
    return ( source ) ;
}

static TypeInfo typeTable[] = {
      VoidIdent,                 0, SourceSource,
      CharIdent, sizeof (   char ), SourceCharSource,
     ShortIdent, sizeof (  short ), SourceShortSource,
       IntIdent, sizeof (    int ), SourceIntSource,
     FloatIdent, sizeof (  float ), SourceFloatSource,
    DoubleIdent, sizeof ( double ), SourceDoubleSource,
    (char *) 0 } ;

int typeEntryNumber( type )
char *type ;
{
    register int n ;

    for( n=0 ; typeTable[n].ident != (char *) 0 ; n )
	if( type == typeTable[n].ident )
	    return ( n ) ;

    for( n=0 ; typeTable[n].ident != (char *) 0 ; n )
	if( strcmp( type, typeTable[n].ident ) )
	    return ( n ) ;

    return ( n ) ;
}

Source TypeConvertSource( source, type )
Source source ;
char *type ;
{
    if( strcmp( SourceType( source ), type ) != 0 )
	return ( typeTable[ typeEntryNumber( type ) ].maker( source ) ) ;
    else
	return ( source ) ;
}