Lines Matching refs:op
651 free_object (struct object *op)
653 if (op->type == t_symbol || op->type == t_string)
655 free_token (op->token);
656 free (op->token);
662 string_of_object (const struct object *op)
667 if (!(op->type == t_symbol || op->type == t_string))
669 n = op->token->charcount;
671 memcpy (str, op->token->chars, n);
681 read_object (struct object *op, flag_context_ty outer_context)
690 op->type = t_eof;
753 op->type = t_other;
812 op->type = t_other;
820 op->type = t_close;
844 op->type = t_other;
856 op->type = t_other;
870 op->type = t_other;
877 op->type = t_other;
895 op->type = t_other;
925 op->type = t_other;
932 op->type = t_other;
970 op->type = t_other;
978 op->token = XMALLOC (struct token);
980 init_token (op->token);
1003 grow_token (op->token);
1004 op->token->chars[op->token->charcount++] = c;
1007 op->type = t_symbol;
1022 op->type = t_other;
1033 op->type = t_other;
1062 op->type = t_other;
1069 op->type = t_other;
1079 op->token = XMALLOC (struct token);
1080 init_token (op->token);
1081 op->line_number_at_start = line_number;
1125 grow_token (op->token);
1126 op->token->chars[op->token->charcount++] = c;
1128 op->type = t_string;
1135 pos.line_number = op->line_number_at_start;
1136 remember_a_message (mlp, NULL, string_of_object (op),
1147 op->token = XMALLOC (struct token);
1148 read_token (op->token, c);
1149 if (op->token->charcount == 1 && op->token->chars[0] == '.')
1151 free_token (op->token);
1152 free (op->token);
1153 op->type = t_dot;
1155 else if (is_number (op->token))
1158 free_token (op->token);
1159 free (op->token);
1160 op->type = t_other;
1165 op->type = t_symbol;
1173 op->token = XMALLOC (struct token);
1174 read_token (op->token, c);
1175 op->type = t_symbol;