SaberTalk
Эта статья нуждается в дополнительных цитатах для проверки . ( декабрь 2009 г. ) |
SabreTalk — это устаревший диалект PL/I для S/360, мэйнфреймов IBM работающих на платформе TPF . SabreTalk был разработан совместно компаниями American Airlines , Eastern Air Lines и IBM . SabreTalk известен как PL/TPF (язык программирования для TPF). [1]
В 1973 году компьютерное подразделение Eastern Air Lines продавало компилятор SabreTalk за 95 000 долларов США. [2]
Программы SabreTalk по-прежнему работают в системе управления полетами British Airways (FICO) под управлением ALCS с использованием коммерчески доступного автоматического конвертера для перевода программ SabreTalk в C. программы Обе системы поддержки бронирования и операций (OSS) Delta Air Lines были разработаны с использованием SabreTalk и IBM 360 Assembler. Хотя в настоящее время разработка ограничена C++ , большая часть программной платформы Delta оставалась на Sabretalk до недавнего времени, в 2010-х годах.
Из-за наличия переводчиков [3] [4] с SabreTalk на C и прекращение поддержки первоначальными разработчиками, несколько компаний начинают переход от SabreTalk к программам, основанным исключительно на C.
Пример кода:
ПРИМЕР : ПРОЦЕДУРА ; ОБЪЯВИТЬ МАССИВ ( 10 ) ДЕСЯТИЧНЫЙ ( 5 ) НА ОСНОВЕ ( ПУНКТУРА ) ; ОБЪЯВИТЬ СЧЕТЧИК ДВОИЧНЫЙ ( 15 ) ВЫРАВНИВАНИЕ ; ОБЪЯВИТЬ TOTAL BINARY ( 31 ) ALIGNED ; СТАРТ ( ПУНКТУР = # RG1 ) ; /* ПОЛУЧИМ УКАЗАТЕЛЬ НА МАССИВ В РЕГИСТРЕ 1 */ TOTAL = 0 ; LOOP : DO COUNTER = от 0 до 10 на 2 ; ИТОГО = ИТОГО + МАССИВ ( СЧЕТЧИК ) ; /* ПОДСЧЕТ ЧЕТНЫХ ЭЛЕМЕНТОВ */ END LOOP ; ЕСЛИ ИТОГО = 0 ТО /* ВЫЧИСЛЕННОЕ ЗНАЧЕНИЕ ИТОГО? */ ЭНТРК ОШИБКА ; /* N=ПРОВЕРКА ДЕЙСТВИТЕЛЬНОСТИ В ПРОГРАММЕ ОШИБКА С ОЖИДАЕМЫМ ВОЗВРАТОМ*/ BACKC ( # RAC = TOTAL ) ; /* НАЗАД К ВЫЗОВУ ПРОГРАММЫ ПЕРЕДАЕМ ЗНАЧЕНИЕ */ END SAMPLE ; /* ИТОГО В РЕГИСТРЕ RAC. */
Ссылки
[ редактировать ]- ^ С. Дж. Хобсон, «ALCS — высокопроизводительный монитор БД/DC с высокой доступностью», стр. 136 (сноска 2) в «Высокопроизводительные транзакционные системы», 2-й международный семинар, конференц-центр Асиломар, Пасифик-Гроув, Калифорния, США, 28-30 сентября 1987 г., Труды. Конспекты лекций по информатике 359, Springer 1989, ISBN 3-540-51085-0 .
- ^ "Sabretalk урезан на 100К" . Компьютерный мир . 7 (18). ИДГ Предприятие: 17. 02.05.1973.
{{cite journal}}
: CS1 maint: дата и год ( ссылка ) - ^ С. Дхинакар Джейкоб, Мадхучханда Дас, «TALK2C: Инструмент для автоматической миграции», icpc, стр. 288, 11-й международный семинар IEEE по пониманию программ (IWPC'03), 2003 г.
- ^ Ира Бакстер, «Подходы к модернизации кода» , собрание группы пользователей TPF, 2019 г.
Внешние ссылки
[ редактировать ]- Справочное руководство программиста Sabretalk на Wayback Machine (архивировано 21 октября 2012 г.)
- Робинсон, Джефф (март 2001 г.). «Переход от SabreTalk к «C». Часть 1: Как «процедуры» SabreTalk становятся функциями «C» (PDF) . ACP/TPF сегодня . Архивировано из оригинала (PDF) 26 марта 2012 г.