Jump to content

SaberTalk

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. */ 
  1. ^ С. Дж. Хобсон, «ALCS — высокопроизводительный монитор БД/DC с высокой доступностью», стр. 136 (сноска 2) в «Высокопроизводительные транзакционные системы», 2-й международный семинар, конференц-центр Асиломар, Пасифик-Гроув, Калифорния, США, 28-30 сентября 1987 г., Труды. Конспекты лекций по информатике 359, Springer 1989, ISBN   3-540-51085-0 .
  2. ^ "Sabretalk урезан на 100К" . Компьютерный мир . 7 (18). ИДГ Предприятие: 17. 02.05.1973. {{cite journal}}: CS1 maint: дата и год ( ссылка )
  3. ^ С. Дхинакар Джейкоб, Мадхучханда Дас, «TALK2C: Инструмент для автоматической миграции», icpc, стр. 288, 11-й международный семинар IEEE по пониманию программ (IWPC'03), 2003 г.
  4. ^ Ира Бакстер, «Подходы к модернизации кода» , собрание группы пользователей TPF, 2019 г.
[ редактировать ]
Arc.Ask3.Ru: конец переведенного документа.
Arc.Ask3.Ru
Номер скриншота №: 2408dbe7c2625fbf714215cb4b14884d__1715418900
URL1:https://arc.ask3.ru/arc/aa/24/4d/2408dbe7c2625fbf714215cb4b14884d.html
Заголовок, (Title) документа по адресу, URL1:
SabreTalk - Wikipedia
Данный printscreen веб страницы (снимок веб страницы, скриншот веб страницы), визуально-программная копия документа расположенного по адресу URL1 и сохраненная в файл, имеет: квалифицированную, усовершенствованную (подтверждены: метки времени, валидность сертификата), открепленную ЭЦП (приложена к данному файлу), что может быть использовано для подтверждения содержания и факта существования документа в этот момент времени. Права на данный скриншот принадлежат администрации Ask3.ru, использование в качестве доказательства только с письменного разрешения правообладателя скриншота. Администрация Ask3.ru не несет ответственности за информацию размещенную на данном скриншоте. Права на прочие зарегистрированные элементы любого права, изображенные на снимках принадлежат их владельцам. Качество перевода предоставляется как есть. Любые претензии, иски не могут быть предъявлены. Если вы не согласны с любым пунктом перечисленным выше, вы не можете использовать данный сайт и информация размещенную на нем (сайте/странице), немедленно покиньте данный сайт. В случае нарушения любого пункта перечисленного выше, штраф 55! (Пятьдесят пять факториал, Денежную единицу (имеющую самостоятельную стоимость) можете выбрать самостоятельно, выплаичвается товарами в течение 7 дней с момента нарушения.)