//: Calls can take ingredients just like primitives. To access a recipe's //: ingredients, use 'next-ingredient'. :(scenario next_ingredient) recipe main [ f 2 ] recipe f [ 12:number <- next-ingredient 13:number <- add 1, 12:number ] +mem: storing 3 in location 13 :(scenario next_ingredient_missing) recipe main [ f ] recipe f [ _, 12:number <- next-ingredient ] +mem: storing 0 in location 12 :(before "End call Fields") vector<vector<double> > ingredient_atoms; vector<reagent> ingredients; long long int next_ingredient_to_process; :(before "End call Constructor") next_ingredient_to_process = 0; :(before "End Call Housekeeping") for (long long int i = 0; i < SIZE(ingredients); ++i) { current_call().ingredient_atoms.push_back(ingredients.at(i)); reagent ingredient = call_instruction.ingredients.at(i); canonize_type(ingredient); current_call().ingredients.push_back(ingredient); } :(before "End Primitive Recipe Declarations") NEXT_INGREDIENT, :(before "End Primitive Recipe Numbers") put(Recipe_ordinal, "next-ingredient", NEXT_INGREDIENT); :(before "End Primitive Recipe Checks") case NEXT_INGREDIENT: { if (!inst.ingredients.empty()) { raise_error << maybe(get(Recipe, r).name) << "'next-ingredient' didn't expect any ingredients in '" << inst.to_string() << "'void append_to_empty(void **state); void append_wide_to_empty(void **state); void append_to_single(void **state); void append_wide_to_single_non_wide(void **state); void append_non_wide_to_single_wide(void **state); void append_wide_to_single_wide(void **state); void append_non_wide_when_overrun(void **state); void insert_non_wide_to_non_wide(void **state); void insert_single_non_wide_when_pad_scrolled(void **state); void insert_many_non_wide_when_pad_scrolled(void **state); void insert_single_non_wide_last_column(void **state); void insert_many_non_wide_last_column(void **state); void ctrl_left_when_no_input(void **state); void ctrl_left_when_at_start(void **state); void ctrl_left_when_in_first_word(void **state); void ctrl_left_when_in_first_space(void **state); void ctrl_left_when_at_start_of_second_word(void **state); void ctrl_left_when_in_second_word(void **state); void ctrl_left_when_at_end_of_second_word(void **state); void ctrl_left_when_in_second_space(void **state); void ctrl_left_when_at_start_of_third_word(void **state); void ctrl_left_when_in_third_word(void **state); void ctrl_left_when_at_end_of_third_word(void **state); void ctrl_left_when_in_third_space(void **state); void ctrl_left_when_at_end(void **state); void ctrl_left_when_in_only_whitespace(void **state); void ctrl_left_when_start_whitespace_start_of_word(void **state); void ctrl_left_when_start_whitespace_middle_of_word(void **state); void ctrl_left_in_whitespace_between_words(void **state); void ctrl_left_in_whitespace_between_words_start_of_word(void **state); void ctrl_left_in_whitespace_between_words_middle_of_word(void **state); void ctrl_left_when_word_overrun_to_left(void **state); void ctrl_right_when_no_input(void **state); void ctrl_right_when_at_end(void **state); void ctrl_right_one_word_at_start(void **state); void ctrl_right_one_word_in_middle(void **state); void ctrl_right_one_word_at_end(void **state); void ctrl_right_two_words_from_middle_first(void **state); void ctrl_right_two_words_from_end_first(void **state); void ctrl_right_two_words_from_space