void set_with_selector__formatSource(caValue* source, Term* term) { Term* selector = term->input(1); if (selector->function != FUNCS.selector) { format_term_source_default_formatting(source, term); return; } // Don't call format_name_binding here format_source_for_input(source, term, 0, "", ""); selector_format_source(source, selector); append_phrase(source, term->stringProp("syntax:preEqualsSpace",""), term, tok_Whitespace); if (term->hasProperty("syntax:rebindOperator")) { append_phrase(source, term->stringProp("syntax:rebindOperator",""), term, tok_Equals); append_phrase(source, term->stringProp("syntax:postEqualsSpace",""), term, tok_Whitespace); format_source_for_input(source, term->input(2), 1, "", ""); } else { append_phrase(source, "=", term, tok_Equals); append_phrase(source, term->stringProp("syntax:postEqualsSpace",""), term, tok_Whitespace); format_source_for_input(source, term, 2, "", ""); } }
void formatSource(caValue* source, Term* term) { if (term->boolProp("syntax:brackets", false)) { format_name_binding(source, term); format_source_for_input(source, term, 0); append_phrase(source, "[", term, tok_LBracket); format_source_for_input(source, term, 1); append_phrase(source, "]", term, tok_LBracket); } else { format_term_source_default_formatting(source, term); } }
void get_with_selector__formatSource(caValue* source, Term* term) { Term* selector = term->input(1); if (selector->function != FUNCS.selector) { // Unusual case; bail out with default formatting. format_term_source_default_formatting(source, term); return; } format_name_binding(source, term); format_source_for_input(source, term, 0, "", ""); selector_format_source(source, selector); }