Commit 040abd8e authored by dcw's avatar dcw
Browse files

fred_is_bobble -> FredIsBobble naming convention..

parent e8e6b50b
......@@ -192,7 +192,7 @@ static void defn_onetype( d ) decln d;
n = 0;
for( s = d->shapes; s; s=s->next )
{
line( "%s_is_%s = %d;",
line( "%sIs%s = %d;",
d->name, s->name, n++ );
}
outdent();
......@@ -293,10 +293,10 @@ static void impln_onetype( d ) decln d;
{
line( "TYPE" );
indent();
line( "%s\t= POINTER TO %s_rec;", d->name, d->name );
line( "%s\t= POINTER TO %sRec;", d->name, d->name );
nl();
line( "%s_rec = RECORD", d->name );
line( "%sRec = RECORD", d->name );
indent();
if( d->Union )
......@@ -355,7 +355,7 @@ static void variantfields( d ) decln d;
for( s = d->shapes; s != NULL; s=s->next )
{
line( "|%s_is_%s:", d->name, s->name );
line( "|%sIs%s:", d->name, s->name );
indent();
for( p = s->params; p != NULL; p=p->next )
{
......@@ -391,7 +391,7 @@ static void consproc_header( name, s ) char *name; shape s;
paramlist p;
BOOL first;
fprintf( outfile, "PROCEDURE %s_%s( ", name, s->name );
fprintf( outfile, "PROCEDURE %s%s( ", name, s->name );
first = TRUE;
for( p = s->params; p != NULL ; p = p->next )
{
......@@ -424,13 +424,13 @@ static void consproc_body( d, s ) decln d; shape s;
line( "RETURN NIL;" );
} else if( ! d->Struct )
{
line( "RETURN %s_is_%s;", d->name, s->name );
line( "RETURN %sIs%s;", d->name, s->name );
} else
{
line( "NEW( new );", d->name );
if( d->TagField )
{
line( "new^.tag\t:= %s_is_%s;", d->name, s->name );
line( "new^.tag\t:= %sIs%s;", d->name, s->name );
}
for( p=s->params; p != NULL; p=p->next )
{
......@@ -440,7 +440,7 @@ static void consproc_body( d, s ) decln d; shape s;
}
outdent();
line( "END %s_%s;", d->name, s->name );
line( "END %s%s;", d->name, s->name );
nl();
nl();
}
......@@ -451,7 +451,7 @@ static void consproc_body( d, s ) decln d; shape s;
static void deconskind_header( name ) char *name;
{
line( "PROCEDURE getkind_%s( this : %s ) : INTEGER;", name, name );
line( "PROCEDURE GetKind%s( this : %s ) : INTEGER;", name, name );
}
......@@ -463,7 +463,7 @@ static void deconskind_body( d ) decln d;
indent();
deconskind_inner( d );
outdent();
line( "END getkind_%s;", d->name );
line( "END GetKind%s;", d->name );
nl();
nl();
}
......@@ -483,7 +483,7 @@ static void deconskind_inner( d ) decln d;
line( "IF this = NIL" );
line( "THEN" );
indent();
line( "RETURN %s_is_%s;", d->name, s->name );
line( "RETURN %sIs%s;", d->name, s->name );
outdent();
line( "END; (* IF *)" );
s = s->next;
......@@ -493,7 +493,7 @@ static void deconskind_inner( d ) decln d;
line( "RETURN this^.tag;" );
} else
{
line( "RETURN %s_is_%s;", d->name, s->name );
line( "RETURN %sIs%s;", d->name, s->name );
}
}
......@@ -505,7 +505,7 @@ static void deconsproc_header( name, s ) char *name; shape s;
{
paramlist p;
fprintf( outfile, "PROCEDURE get_%s_%s( this : %s ", name, s->name,
fprintf( outfile, "PROCEDURE Get%s%s( this : %s ", name, s->name,
name );
for( p = s->params; p != NULL ; p=p->next )
......@@ -532,7 +532,7 @@ static void deconsproc_body( d, s ) decln d; shape s;
}
outdent();
line( "END get_%s_%s;", d->name, s->name );
line( "END Get%s%s;", d->name, s->name );
nl();
nl();
}
......@@ -543,7 +543,7 @@ static void deconsproc_body( d, s ) decln d; shape s;
static void printproc_header( name ) char *name;
{
line( "PROCEDURE print_%s( f : File; this : %s );", name, name );
line( "PROCEDURE Print%s( f : File; this : %s );", name, name );
}
......@@ -579,7 +579,7 @@ static void printproc_body( d ) decln d;
print_using_case( "this", d->name, shapes );
}
outdent();
line( "END print_%s;", d->name );
line( "END Print%s;", d->name );
nl();
}
......@@ -589,14 +589,14 @@ static void print_using_case( tag, dname, s ) char *tag, *dname; shapelist s;
line( "CASE %s OF", tag );
for( ; s != NULL; s = s->next )
{
line( "|%s_is_%s:", dname, s->name );
line( "|%sIs%s:", dname, s->name );
indent();
print_all_params( dname, s );
outdent();
}
line( "ELSE" );
indent();
line( "Abort( \"print_%s: impossible tag\" );", dname );
line( "Abort( \"Print%s: impossible tag\" );", dname );
outdent();
line( "END; (* CASE *)" );
}
......@@ -719,7 +719,7 @@ static char *lookup_print_proc( typename ) char *typename;
predef = predefined_type( typename );
if( predef == -1 )
{
sprintf( tmp, "print_%s", typename );
sprintf( tmp, "Print%s", typename );
return tmp;
} else
{
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment