Кабінет психопатологічної евтаназіології (
euthanasepam) wrote2022-08-18 03:04 am
![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png)
Entry tags:
Ретроградсько-іноваційне: Rexx
Вчора випадково з’ясував, що програмувальна мова Rexx жива-живісінька (а не покинута й забута, як OS/2).
Мова та принаймні деякі її дистрибуції та засоби є вільним програмним забезпеченням. Принаймні одна з них — Regina Rexx — стандартизована інститутом ANSI. Можна використовувати Rexx як прикладну мову для написання сценаріїв та «клей» для системного адміністрування у різних операційних системах. Вчора я собі був інсталював об’єктно-орієнтований інтерпретатор Open Object Rexx (ooRexx) для забавок, а трішки згодом додав і Реґіну та, сповнившись зворушення від почуттів, оце пишу допис.
Переглядаючи документацію про мову на сайті rexxinfo.org та роблячи для одного зі своїх улюблених текстових редакторів сніпети й таке інше для Rexx’у, милуюся простотою та інтуїтивною, очевидною зрозумілістю засобів мови. Погляньте на цей простенький приклад:
/* Rexx */ text = "This is a text string. Let's try to reverse it!" SAY REVERSE(text) 'TYPE reverse.rex' EXIT
Програма переписує рядок задом наперед, а далі друкує в емуляторі терміналу текст самої себе (це Windows, CMD, TYPE):
>regina .\reverse.rex !ti esrever ot yrt s'teL .gnirts txet a si sihT /* Rexx */ text = "This is a text string. Let's try to reverse it!" SAY REVERSE(text) 'TYPE reverse.rex' EXIT
Давні комп’ютерні забавки дарують радість. :)