-
- code = TREE_CODE (stmt);
- switch (code)
- {
- case LABEL_STMT:
- case CASE_LABEL:
- if (pp_needs_newline (ppi))
- pp_newline_and_indent (ppi, -3);
- else
- pp_indentation (ppi) -= 3;
- if (code == LABEL_STMT)
- pp_tree_identifier (ppi, DECL_NAME (LABEL_STMT_LABEL (stmt)));
- else if (code == CASE_LABEL)
- {
- if (CASE_LOW (stmt) == NULL_TREE)
- pp_identifier (ppi, "default");
- else
- {
- pp_c_identifier (ppi, "case");
- pp_c_whitespace (ppi);
- pp_conditional_expression (ppi, CASE_LOW (stmt));
- if (CASE_HIGH (stmt))
- {
- pp_identifier (ppi, "...");
- pp_conditional_expression (ppi, CASE_HIGH (stmt));
- }
- }
- }
- pp_colon (ppi);
- pp_indentation (ppi) += 3;
- pp_needs_newline (ppi) = true;
- break;
-
- case COMPOUND_STMT:
- if (pp_needs_newline (ppi))
- pp_newline_and_indent (ppi, 0);
- pp_c_left_brace (ppi);
- pp_newline_and_indent (ppi, 3);
- for (stmt = COMPOUND_BODY (stmt); stmt; stmt = TREE_CHAIN (stmt))
- pp_c_statement (ppi, stmt);
- pp_newline_and_indent (ppi, -3);
- pp_c_right_brace (ppi);
- pp_needs_newline (ppi) = true;
- break;
-
- case EXPR_STMT:
- case CLEANUP_STMT:
- if (pp_needs_newline (ppi))
- pp_newline_and_indent (ppi, 0);
- {
- tree e = code == EXPR_STMT
- ? EXPR_STMT_EXPR (stmt)
- : CLEANUP_EXPR (stmt);
- if (e)
- pp_c_expression (ppi, e);
- }
- pp_c_semicolon (ppi);
- pp_needs_newline (ppi) = true;
- break;
-
- case IF_STMT:
- if (pp_needs_newline (ppi))
- pp_newline_and_indent (ppi, 0);
- pp_c_identifier (ppi, "if");
- pp_c_whitespace (ppi);
- pp_c_left_paren (ppi);
- pp_c_expression (ppi, IF_COND (stmt));
- pp_c_right_paren (ppi);
- pp_newline_and_indent (ppi, 3);
- pp_statement (ppi, THEN_CLAUSE (stmt));
- pp_newline_and_indent (ppi, -3);
- if (ELSE_CLAUSE (stmt))
- {
- tree else_clause = ELSE_CLAUSE (stmt);
- pp_c_identifier (ppi, "else");
- if (TREE_CODE (else_clause) == IF_STMT)
- pp_c_whitespace (ppi);
- else
- pp_newline_and_indent (ppi, 3);
- pp_statement (ppi, else_clause);
- if (TREE_CODE (else_clause) != IF_STMT)
- pp_newline_and_indent (ppi, -3);
- }
- break;
-
- case SWITCH_STMT:
- if (pp_needs_newline (ppi))
- pp_newline_and_indent (ppi, 0);
- pp_c_identifier (ppi, "switch");
- pp_space (ppi);
- pp_c_left_paren (ppi);
- pp_c_expression (ppi, SWITCH_COND (stmt));
- pp_c_right_paren (ppi);
- pp_indentation (ppi) += 3;
- pp_needs_newline (ppi) = true;
- pp_statement (ppi, SWITCH_BODY (stmt));
- pp_newline_and_indent (ppi, -3);
- break;
-
- case WHILE_STMT:
- if (pp_needs_newline (ppi))
- pp_newline_and_indent (ppi, 0);
- pp_c_identifier (ppi, "while");
- pp_space (ppi);
- pp_c_left_paren (ppi);
- pp_c_expression (ppi, WHILE_COND (stmt));
- pp_c_right_paren (ppi);
- pp_newline_and_indent (ppi, 3);
- pp_statement (ppi, WHILE_BODY (stmt));
- pp_indentation (ppi) -= 3;
- pp_needs_newline (ppi) = true;
- break;
-
- case DO_STMT:
- if (pp_needs_newline (ppi))
- pp_newline_and_indent (ppi, 0);
- pp_c_identifier (ppi, "do");
- pp_newline_and_indent (ppi, 3);
- pp_statement (ppi, DO_BODY (stmt));
- pp_newline_and_indent (ppi, -3);
- pp_c_identifier (ppi, "while");
- pp_space (ppi);
- pp_c_left_paren (ppi);
- pp_c_expression (ppi, DO_COND (stmt));
- pp_c_right_paren (ppi);
- pp_c_semicolon (ppi);
- pp_needs_newline (ppi) = true;
- break;
-
- case FOR_STMT:
- if (pp_needs_newline (ppi))
- pp_newline_and_indent (ppi, 0);
- pp_c_identifier (ppi, "for");
- pp_space (ppi);
- pp_c_left_paren (ppi);
- if (FOR_INIT_STMT (stmt))
- pp_statement (ppi, FOR_INIT_STMT (stmt));
- else
- pp_c_semicolon (ppi);
- pp_needs_newline (ppi) = false;
- pp_c_whitespace (ppi);
- if (FOR_COND (stmt))
- pp_c_expression (ppi, FOR_COND (stmt));
- pp_c_semicolon (ppi);
- pp_needs_newline (ppi) = false;
- pp_c_whitespace (ppi);
- if (FOR_EXPR (stmt))
- pp_c_expression (ppi, FOR_EXPR (stmt));
- pp_c_right_paren (ppi);
- pp_newline_and_indent (ppi, 3);
- pp_statement (ppi, FOR_BODY (stmt));
- pp_indentation (ppi) -= 3;
- pp_needs_newline (ppi) = true;
- break;
-
- case BREAK_STMT:
- case CONTINUE_STMT:
- if (pp_needs_newline (ppi))
- pp_newline_and_indent (ppi, 0);
- pp_identifier (ppi, code == BREAK_STMT ? "break" : "continue");
- pp_c_semicolon (ppi);
- pp_needs_newline (ppi) = true;
- break;
-
- case RETURN_STMT:
- case GOTO_STMT:
- {
- tree e = code == RETURN_STMT
- ? RETURN_STMT_EXPR (stmt)
- : GOTO_DESTINATION (stmt);
- if (pp_needs_newline (ppi))
- pp_newline_and_indent (ppi, 0);
- pp_c_identifier (ppi, code == RETURN_STMT ? "return" : "goto");
- if (e)
- pp_c_expression (ppi, e);
- pp_c_semicolon (ppi);
- pp_needs_newline (ppi) = true;
- }
- break;