Lines Matching refs:op
406 free_object (struct object *op)
408 if (op->type == t_symbol || op->type == t_string)
410 free_token (op->token);
411 free (op->token);
417 string_of_object (const struct object *op)
422 if (!(op->type == t_symbol || op->type == t_string))
424 n = op->token->charcount;
426 memcpy (str, op->token->chars, n);
619 read_object (struct object *op, bool first_in_list, bool new_backquote_flag,
631 op->type = t_eof;
668 op->type = t_other;
728 op->type = t_other;
735 op->type = t_listclose;
750 op->type = t_other;
764 op->type = t_other;
771 op->type = t_vectorclose;
785 op->type = t_other;
802 op->type = t_other;
826 op->type = t_other;
857 op->token = XMALLOC (struct token);
858 init_token (op->token);
859 op->line_number_at_start = line_number;
883 grow_token (op->token);
884 op->token->chars[op->token->charcount++] = c;
889 grow_token (op->token);
890 op->token->chars[op->token->charcount++] = c;
893 op->type = t_string;
900 pos.line_number = op->line_number_at_start;
901 remember_a_message (mlp, NULL, string_of_object (op),
928 op->type = t_other;
938 op->type = t_other;
961 op->type = t_other;
974 op->type = t_other;
981 op->type = t_other;
1008 op->type = t_other;
1023 op->type = t_other;
1051 op->type = t_other;
1064 op->type = t_other;
1081 op->type = t_other;
1086 read_object (op, false, new_backquote_flag, outer_context);
1092 op->type = t_other;
1108 op->type = t_other;
1113 op->type = t_other;
1131 op->type = t_other;
1144 op->type = t_other;
1163 op->type = t_other;
1179 op->type = t_dot;
1194 op->token = XMALLOC (struct token);
1195 symbol = read_token (op->token, c);
1198 op->type = t_symbol;
1204 free_token (op->token);
1205 free (op->token);
1206 op->type = t_other;