Помилка.ц

взяти визначення МаМа;

секція МаМа {
  місцева дія виділити_місцезнаходження_падіння(М: адреса<Машина>, шлях_до_файлу: ю8, рядок: позитивне): адреса<МісцезнаходженняПадіння> {
    ціль місцезнаходження_падіння = виділити<МісцезнаходженняПадіння>(М);
    якщо виділити_копію_ю8_цілі(М, шлях_до_файлу, місцезнаходження_падіння.шлях_до_файлу::адреса) == ні {
      ПОМЕРТИ(М, ю8"Не вдалося виділити копію Ю8");
    }
    місцезнаходження_падіння.рядок = рядок;
    вернути місцезнаходження_падіння;
  }

  місцева дія виділити_місцезнаходження_падіння_з_вказівки_або_пусто(М: адреса<Машина>, код: адреса<Код>, позиція_вказівки: позитивне): адреса<МісцезнаходженняПадіння> {
    ціль місцезнаходження_вказівки = знайти_місцезнаходження_вказівки(код, позиція_вказівки);
    якщо місцезнаходження_вказівки != пусто {
      вернути виділити_місцезнаходження_падіння(М, код.шлях_до_файлу, місцезнаходження_вказівки.рядок);
    }
    вернути пусто;
  }

  місцева дія звільнити_місцезнаходження_падіння(М: адреса<Машина>, місцезнаходження_падіння: адреса<МісцезнаходженняПадіння>) {
    звільнити(М, місцезнаходження_падіння.шлях_до_файлу.дані як адреса);
    звільнити(М, місцезнаходження_падіння);
  }

  місцева дія виділити_предмет_тексту_помилки_невірний_тип_аргумента(М: адреса<Машина>, назва: ю8, очікується: Накопичувач<адреса<ПредметСтруктури>>, отримано: адреса<ПредметСтруктури>): адреса<Предмет> {
    ціль накопичувач_ю8 = зробити_накопичувач_ю8(М);
    покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8"Невірний тип аргумента \"");
    покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, назва);
    покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8"\"");
    покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8": очікується ");
    змінна ціль пп: позитивне = 0;
    поки пп < очікується.розмір {
      ціль тип = очікується.дані[пп];
      якщо тип == пусто {
        покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8"\"пусто\"");
      } інакше {
        якщо тип.назва == пусто {
          покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8"<структура без назви>");
        } інакше {
          покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8"\"");
          ціль назва_ю8 = ю8 { пусто, 0 };
          якщо виділити_ю8_з_назви(М, тип.назва, назва_ю8::адреса) == ні {
            ПОМЕРТИ(М, ю8"Не вдалось отримати ю8 з назви");
          }
          покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, назва_ю8);
          звільнити(М, назва_ю8.дані як адреса);
          покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8"\"");
        }
      }
      якщо пп < очікується.розмір - 1 {
        покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8" або ");
      }
      пп += 1;
    }
    покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8", отримано ");
    якщо отримано == пусто {
      покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8"\"пусто\"");
    } інакше {
      якщо отримано.назва == пусто {
        покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8"<структура без назви>");
      } інакше {
        покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8"\"");
          ціль назва_ю8 = ю8 { пусто, 0 };
        якщо виділити_ю8_з_назви(М, отримано.назва, назва_ю8::адреса) == ні {
          ПОМЕРТИ(М, ю8"Не вдалось отримати ю8 з назви");
        }
        покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, назва_ю8);
        звільнити(М, назва_ю8.дані як адреса);
        покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8"\"");
      }
    }
    ціль значення_ю8 = виділити_ю8_з_накопичувача_ю8(М, накопичувач_ю8::адреса);
    звільнити_значення_накопичувача_ю8(М, накопичувач_ю8);
    ціль предмет_тексу = виділити_предмет_юнікоду_з_ю8(М, значення_ю8);
    звільнити(М, значення_ю8.дані як адреса);
    вернути предмет_тексу як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_виконати_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо виконати \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_отримати_властивість_з_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо отримати властивість з \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_змінити_властивість_в_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо змінити властивість в \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_видалити_властивість_з_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо видалити властивість в \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_додати_до_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо додати до \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_відняти_від_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо відняти від \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_помножити_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо помножити \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_поділити_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо поділити \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_отримати_остачу_ділення_від_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо отримати остачу ділення від \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_отримати_частку_ділення_від_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо отримати частку ділення від \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_піднести_до_степеня_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо піднести до степеня \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_зсунути_вліво_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо зсунути вліво \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_зсунути_вправо_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо зсунути вправо \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_зсунути_вправо_зі_заповненням_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо зсунути вправо зі заповненням \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_виконати_двійкове_і_для_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо виконати двійкове І для \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_виконати_двійкове_або_для_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо виконати двійкове АБО для \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_виконати_двійкове_виключне_або_для_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо виконати двійкове ВИКЛЮЧНЕ АБО для \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_виконати_двійкове_не_для_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо виконати двійкове НЕ для \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_виконати_перевірку_на_більше_для_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо виконати перевірку на більше для \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_виконати_перевірку_на_менше_для_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо виконати перевірку на менше для \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_виконати_перевірку_чи_містить_для_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо виконати перевірку чи містить для \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_виконати_відʼємне_для_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо виконати відʼємне для \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_виконати_числове_для_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо виконати числове для \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_виконати_збільшення_для_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо виконати збільшення для \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_виконати_зменшення_для_пусто(М: адреса<Машина>): адреса<Предмет> {
    ціль предмет_тексту = виділити_предмет_тексту_з_ю8(М, ю8"Неможливо виконати зменшення для \"пусто\"");
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_неможливо_виконати_чародію_предмета(М: адреса<Машина>, назва_чародії: адреса<Назва>, предмет: адреса<Предмет>): адреса<Предмет> {
    ціль назва_чародії_ю8 = ю8 { пусто, 0 };
    якщо виділити_ю8_з_назви(М, назва_чародії, назва_чародії_ю8::адреса) == ні {
      ПОМЕРТИ(М, ю8"Не вдалось отримати ю8 з назви");
    }
    ціль накопичувач_ю8 = зробити_накопичувач_ю8(М);
    покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8"Неможливо виконати властивість \"");
    покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, назва_чародії_ю8);
    покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8"\"");
    ціль значення_ю8 = виділити_ю8_з_накопичувача_ю8(М, накопичувач_ю8::адреса);
    ціль предмет_тексту = виділити_предмет_юнікоду_з_ю8(М, значення_ю8);
    звільнити(М, значення_ю8.дані як адреса);
    звільнити_значення_накопичувача_ю8(М, накопичувач_ю8);
    звільнити(М, назва_чародії_ю8.дані як адреса);
    вернути предмет_тексту як адреса<Предмет>;
  }

  місцева дія виділити_предмет_тексту_помилки_пропущено_аргумент(М: адреса<Машина>, назва: адреса<Назва>): адреса<Предмет> {
    ціль назва_ю8 = ю8 { пусто, 0 };
    якщо виділити_ю8_з_назви(М, назва, назва_ю8::адреса) == ні {
      ПОМЕРТИ(М, ю8"Не вдалось отримати ю8 з назви");
    }
    ціль накопичувач_ю8 = зробити_накопичувач_ю8(М);
    покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8"Пропущено аргумент \"");
    покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, назва_ю8);
    покласти_ю8_в_накопичувач_ю8(М, накопичувач_ю8::адреса, ю8"\"");
    ціль значення_ю8 = виділити_ю8_з_накопичувача_ю8(М, накопичувач_ю8::адреса);
    ціль предмет_тексту = виділити_предмет_юнікоду_з_ю8(М, значення_ю8);
    звільнити(М, значення_ю8.дані як адреса);
    звільнити_значення_накопичувача_ю8(М, накопичувач_ю8);
    звільнити(М, назва_ю8.дані як адреса);
    вернути предмет_тексту як адреса<Предмет>;
  }
}