Author: kjs
Date: Tue Apr 3 11:54:15 2007
New Revision: 17964
Modified:
trunk/compilers/pirc/src/pastout.c
trunk/compilers/pirc/src/pirout.c
trunk/compilers/pirc/src/pirparser.c
trunk/compilers/pirc/src/pirvtable.c
Log:
compilers/pirc:
* fix coding std tests (trailing spaces)
Modified: trunk/compilers/pirc/src/pastout.c
==============================================================================
--- trunk/compilers/pirc/src/pastout.c (original)
+++ trunk/compilers/pirc/src/pastout.c Tue Apr 3 11:54:15 2007
@@ -176,7 +176,7 @@
vtable->param_start = past_param;
vtable->param_end = past_close;
vtable->type = past_type;
- vtable->sub_flag = past_subflag;
+ vtable->sub_flag = past_subflag;
vtable->op_start = past_op;
vtable->expression = past_expr;
vtable->op_end = past_close;
@@ -185,6 +185,8 @@
return vtable;
}
+
+
/*
=back
Modified: trunk/compilers/pirc/src/pirout.c
==============================================================================
--- trunk/compilers/pirc/src/pirout.c (original)
+++ trunk/compilers/pirc/src/pirout.c Tue Apr 3 11:54:15 2007
@@ -90,8 +90,8 @@
}
static void
-pir_sub_flag(struct parser_state *p, int flag) {
- fprintf(OUT, "%s ", find_keyword(flag));
+pir_sub_flag(struct parser_state *p, int flag) {
+ fprintf(OUT, "%s ", find_keyword(flag));
}
static void
@@ -161,13 +161,15 @@
vtable->list_end = pir_list_end;
vtable->sub_flag_start = pir_sub_flag_start;
vtable->sub_flag_end = pir_sub_flag_end;
-
-
+
+
return vtable;
}
+
+
/*
=back
Modified: trunk/compilers/pirc/src/pirparser.c
==============================================================================
--- trunk/compilers/pirc/src/pirparser.c (original)
+++ trunk/compilers/pirc/src/pirparser.c Tue Apr 3 11:54:15 2007
@@ -1704,7 +1704,7 @@
int wantmore = 1;
emit_list_start(p);
-
+
match(p, T_LPAREN);
while (wantmore) {
switch (p->curtoken) {
@@ -1769,7 +1769,7 @@
int wantmore = 0; /* flag that is set when a ',' is parsed */
emit_sub_flag_start(p);
-
+
while (ok || wantmore) {
switch (p->curtoken) {
case T_ANON_FLAG:
@@ -1785,11 +1785,11 @@
break;
case T_OUTER_FLAG:
case T_VTABLE_FLAG: {
- emit_sub_flag(p, p->curtoken);
+ emit_sub_flag(p, p->curtoken);
next(p);
emit_list_start(p);
- match(p, T_LPAREN);
- emit_expr(p, get_current_token(p->lexer));
+ match(p, T_LPAREN);
+ emit_expr(p, get_current_token(p->lexer));
match(p, T_STRING_CONSTANT);
emit_list_end(p);
match(p, T_RPAREN);
@@ -1820,7 +1820,7 @@
wantmore = 1; /* after the optional comma we expect another sub
flag */
}
}
-
+
emit_sub_flag_end(p);
}
@@ -1909,7 +1909,7 @@
}
sub_flags(p);
- match(p, T_NEWLINE);
+ match(p, T_NEWLINE);
parameters(p);
emit_stmts_start(p); /* open stmts block */
instructions(p);
@@ -2118,6 +2118,7 @@
match(p, T_STRING_CONSTANT);
}
+
/*
=item *
Modified: trunk/compilers/pirc/src/pirvtable.c
==============================================================================
--- trunk/compilers/pirc/src/pirvtable.c (original)
+++ trunk/compilers/pirc/src/pirvtable.c Tue Apr 3 11:54:15 2007
@@ -80,7 +80,7 @@
vtable->param_start = not_implemented;
vtable->param_end = not_implemented;
vtable->type = not_implemented;
- vtable->sub_flag = not_implemented;
+ vtable->sub_flag = not_implemented;
vtable->expression = not_implemented;
vtable->next_expr = not_implemented;
vtable->op_start = not_implemented;
@@ -89,7 +89,7 @@
vtable->list_end = not_implemented;
vtable->sub_flag_start = not_implemented;
vtable->sub_flag_end = not_implemented;
-
+
return vtable;
}
@@ -102,6 +102,7 @@
*/
+
/*
* Local variables:
* c-file-style: "parrot"
