/dports/lang/gnu-apl/apl-1.8/src/ |
H A D | Quad_TF.cc | 536 if (tos[2].get_Class() != TC_VALUE) return UCS_string(); in tf2_inv() 545 tos[0].get_Class() == TC_VALUE && in tf2_inv() 547 tos[2].get_Class() == TC_VALUE) in tf2_inv() 553 if (tok.get_Class() == TC_VALUE) // ⎕FX successful in tf2_inv() 566 if (tos[1].get_Class() != TC_VALUE) return UCS_string(); in tf2_inv() 785 tos[s].get_Class() == TC_VALUE; ++s) in tf2_remove_UCS() 810 tos[s ].get_Class() != TC_VALUE || // not A in tf2_remove_RHO() 812 tos[s + 2].get_Class() != TC_VALUE) // not B in tf2_remove_RHO() 859 tos[s + 1].get_Class() == TC_VALUE) // B in tf2_remove_COMMA() 1141 tos[s + 1].get_Class() == TC_VALUE && in tf2_remove_parentheses() [all …]
|
H A D | TokenEnums.hh | 55 TC_VALUE = 0x0F, ///< APL value enumerator 89 SN_A = TC_VALUE, 91 SN_B = TC_VALUE,
|
H A D | Token.def | 63 TD(TOK_NO_VALUE , TC_VALUE , TV_NONE , ID_NO_VALUE ) 221 TD(TOK_VARIABLE , TC_VALUE , TV_SYM , ID_VARIABLE ) 222 TD(TOK_APL_VALUE1 , TC_VALUE , TV_VAL , ID_APL_VALUE1 ) // grouped 223 TD(TOK_APL_VALUE2 , TC_VALUE , TV_VAL , ID_APL_VALUE2 ) // assigned 224 TD(TOK_APL_VALUE3 , TC_VALUE , TV_VAL , ID_APL_VALUE3 ) // strand 227 TD(TOK_CHARACTER , TC_VALUE , TV_CHAR , ID_CHARACTER ) 228 TD(TOK_INTEGER , TC_VALUE , TV_INT , ID_INTEGER ) 229 TD(TOK_REAL , TC_VALUE , TV_FLT , ID_REAL ) 230 TD(TOK_COMPLEX , TC_VALUE , TV_CPX , ID_COMPLEX )
|
H A D | Bif_OPER2_POWER.cc | 74 Assert(result_LO.get_Class() == TC_VALUE); in eval_form_2() 80 Assert(result_RO.get_Class() == TC_VALUE); in eval_form_2() 163 Assert(result.get_Class() == TC_VALUE); in eval_form_1()
|
H A D | Bif_F12_SORT.hh | 173 if (ret.get_Class() == TC_VALUE) return ret; in eval_B() 200 if (ret.get_Class() == TC_VALUE) return ret; in eval_B()
|
H A D | Prefix.cc | 57 if (tok.get_Class() == TC_VALUE) in clean_up() 90 if (tok.get_Class() == TC_VALUE) in syntax_error() 194 if (next == TC_VALUE && in is_value_parenthesis() 241 if (tok1.get_Class() == TC_VALUE) return true; in is_value_bracket() 246 return sym->resolve_class(left_sym) == TC_VALUE; in is_value_bracket() 376 case TC_VALUE: return true; in value_expected() 727 if (at0().get_Class() == TC_VALUE) in dont_reduce() 733 else if (next == TC_VALUE) // A B in dont_reduce() 769 if (tok.get_Class() != TC_VALUE) continue; in replace_AB() 789 if (at0().get_Class() == TC_VALUE) return &at0(); in locate_L() [all …]
|
H A D | Bif_OPER1_EACH.cc | 152 if (result.get_Class() == TC_VALUE) in eval_ALB() 231 if (result.get_Class() == TC_VALUE) in eval_LB() 268 if (result.get_Class() == TC_VALUE) in eval_LB()
|
H A D | Token.cc | 90 tcc(TC_VALUE) in operator <<() 195 case TC_VALUE: return token.print_value(out); in operator <<() 581 case TC_VALUE: in canonical() 670 case TC_VALUE: return "VAL"; in short_class_name() 725 tcn( TC_VALUE ) in class_name()
|
H A D | PrimitiveOperator.cc | 42 if (tok.get_Class() != TC_VALUE) return tok; in fill()
|
H A D | Prefix.hh | 245 case TC_VALUE: in set_action()
|
H A D | Bif_OPER2_OUTER.cc | 125 if (result.get_Class() == TC_VALUE) in eval_ALRB()
|
H A D | Bif_OPER1_REDUCE.cc | 332 Assert(result.get_Class() == TC_VALUE); in do_reduce()
|
H A D | Parser.cc | 545 case TC_VALUE: // e.g. 5/ in check_if_value()
|
H A D | Executable.cc | 386 if (body[pc_from_to.low].get_Class() == TC_VALUE) in set_error_info()
|
H A D | Tokenizer.cc | 120 case TC_VALUE: in do_tokenize()
|
H A D | Symbol.cc | 759 return (left) ? TC_SYMBOL : TC_VALUE; in resolve_class()
|
H A D | QuadFunction.cc | 842 if (tok.get_Class() != TC_VALUE) DOMAIN_ERROR; in eval_XB()
|
H A D | PrimitiveFunction.cc | 2029 if (result.get_Class() == TC_VALUE) // success in disclose() 2599 fun->get_body()[0].get_Class() == TC_VALUE) in execute_statement()
|
H A D | Command.cc | 352 if (token.get_Class() == TC_VALUE || token.get_tag() == TOK_VOID ) in finish_context()
|
/dports/lang/gnu-apl/apl-1.8/tools/ |
H A D | phrase_gen.def | 26 A, B: TC_VALUE
|
H A D | phrase_gen.cc | 107 case TC_VALUE: len += fprintf(out, " VAL "); break; in print_phrase()
|