Hello world

This commit is contained in:
Ludovic Jacomme 2002-05-02 12:59:12 +00:00
parent 5a2a971c94
commit 1b8f467609
1 changed files with 18 additions and 1 deletions

View File

@ -195,14 +195,31 @@ void viewctltype( Type )
ctltype_list *Type; ctltype_list *Type;
{ {
long Index;
fprintf( stdout, "\n--> Type" ); fprintf( stdout, "\n--> Type" );
viewctlline( Type->LINE ); viewctlline( Type->LINE );
fprintf( stdout, "\n\t\tNAME : %s", Type->NAME ); fprintf( stdout, "\n\t\tNAME : %s", Type->NAME );
fprintf( stdout, "\n\t\tINDEX : %ld", Type->INDEX );
fprintf( stdout, "\n\t\tLEFT : %ld", Type->LEFT ); fprintf( stdout, "\n\t\tLEFT : %ld", Type->LEFT );
fprintf( stdout, "\n\t\tRIGHT : %ld", Type->RIGHT ); fprintf( stdout, "\n\t\tRIGHT : %ld", Type->RIGHT );
/* TO BE DONE */ fprintf( stdout, "\n\t\tCLASS : %c" , Type->CLASS );
fprintf( stdout, "\n\t\tSIZE : %ld", Type->SIZE );
if ( Type->BASE != (ctltype_list *)0 )
{
fprintf( stdout, "\n\t\tBASE : %s", Type->BASE->NAME );
}
fprintf( stdout, "\n\t\tVALUE : " );
for ( Index = 0; Index < Type->SIZE; Index++ )
{
fprintf( stdout, "%s ", Type->VALUE[ Index ] );
}
fprintf( stdout, "\n\t\tFLAGS : %lx", Type->FLAGS ); fprintf( stdout, "\n\t\tFLAGS : %lx", Type->FLAGS );
fprintf( stdout, "\n\t\tUSER : %lx", (long)Type->USER ); fprintf( stdout, "\n\t\tUSER : %lx", (long)Type->USER );