Небольшая коллекция самописных классов и процедур на REXX

Предлагаю вашему вниманию небольшую коллекцию самописных классов и процедур (20 Kb). Не судите сторого -- все это я сначала писал для себя, и только потом мне пришла в голову идея вынести все это на суд общественности.

CONFIG.CLASS

В этом файле содержится только один класс:

.config

Представляет собой достаточно умную читалку текстовых конфигов, выполненую в виде класса языка Object REXX. Поддерживает макроопределения, вложения файлов, значения по умолчанию для директив. Класс содержит следующие методы:

Методы ~read и ~getvalues возвращают структуру values, которая является классом .directory индексы которого соответствуют директивам, а значения полей, являются либо строками (для single), либо массивами строк (для multi).

метод ~new принимает структуру keys, которая также является классом .directory, индексами которого являются имена директив, а значениями параметры:

Например:
keys = .directory~new
keys~key1 = 'single,required'
keys~key2 = 'single,optional:default for key2'
keys~key3 = 'multi,required'
keys~key4 = 'multi,optional:default1 for key4;default2 for key4'
keys~key5 = 'single,optional'
keys~key6 = 'multi,optional'

Из конфигурационного файла будет прочитано следующее:

key1

будет прочитано последнее из указанных значений, причем если не попадется ни одного значения, работа скрипта будет остановлена.

key2

будет прочитано последнее из указанных значений, причем если не попадется ни одного значения, будет установлено значение 'default for key2'

key3

будут считаны в массив все значения, причем если не попадется ни одного значения, работа скрипта будет остановлена.

key4

будут считаны в массив все значения, причем если не попадется ни одного значения, будут установлены значения 'default1 for key4' и 'default2 for key4'
Если попадется хотя бы одно значение, то все значения по умолчанию будут проигнорированы.

key5 и key6

в принципе, аналогично key2/key4, но параметр по умолчанию отсутствует. Для key5 будет установлена пустая строка, а для key6 -- массив без элементов.

Кроме того, в конфигурационном файле поддерживаются следующие директивы:

PROGRESS.CLASS

В этом файле содержатся сразу 3 класса: .roller, .slider и .progressbar

К сожалению, классы писались в разное время и для разных целей, и потому не стандартизированы. Конечно их стоило бы наследовать от одного и того же абстрактного суперкласса, но переделывать все это мне что-то не хочется. Может быть, в следующий раз... :)

Эти классы представляют собой 3 растпространенных индикатора того, что в программе что-то происходит.

.roller

представляет собой крутящуюся палочку.

.slider

представляет собой индикатор предложеный IBM'ом. В системе он выводится при установке, в момент поиска p'n'p. По-моему неплохая альтернатива для: "Если ваш винчестер длительное время не подает признаков жизни..." (с)

.progressbar

ну тут комментарии излишни. Этот индикатор попадается решительно везде, где только можно.

Теперь подробнее:

.roller

Индикатор не зависит от хода выполнения основной программы. В этом смысле он пригоден скорее для развлечения пользователя, чем для определения, не повис ли скрипт. С другой стороны, покажите мне повисший скрипт на Rexx'е... :)

Индикатор сам определяет текущую (на момент ~start) позицию курсора на экране, и крутится в ней. Поэтому выводить что-либо на экран в процессе вращения индикатора лучше не надо.

.slider

Как и .roller, .slider не зависит от хода выполнения основной программы.

И так же как и для roller'а, не стоит выводить ничего на экран, пока индикатор рисует себя.

На самом деле, я знаю как это все исправить, и сделать очень удобно, но... в следующий раз. :)

.progressbar

Что такое "некоторая величина"? Например, Вам нужно скопировать 5 файлов. Тогда создание класса будет выглядеть следующим образом:

p = .progressbar~new(0,5,50)

Имеем:

значение 0%:

0 фалов скопировано.

значение 100%:

5 фалов скопировано.

размеры:

на индикатор отведено 50 символов по горизонтали. Учтите, что по вертикали .progressbar занимает 2 строки.

При этом метод ~step будет изменять показания прогрессбара на 20%.

Если Вы хотите вывести показания для момента завершения копирования 3-го файла, вызывайте:
p~stepto(3)

Как Вы, наверное, догадались, при использовании этого индикатора тоже не стоит ничего выводить на экран.

SEMS.CLASS

Этот файл содержит два крайне полезных, на мой взгляд, класса: .mutex и .event.

Из названий, думаю, понятно, что это обертки для системных семафоров, которые настолько упрощают работу с ними, что делают ее даже проще, чем работу с файлами-флагами.

.event

Содержит следующие методы:

Очень удобно использовать этот класс для организации общения между скриптами или между скриптом и программой, понимающей семафоры, например с T-Mail'ом.

.mutex

Содержит следующие методы:

Класс незаменим при организации совместного доступа скриптов (или нитей выполнения в скриптах) к каким-либо объектам. Например, у меня этот класс регулирует доступ к почтовой базе:

s = .mutex~new('\sem32\msgbase.sem')
s~request
...
...
s~release


Класс полностью гарантирует, что фрагмент, заключеный между ~request и ~release, будет выплняться в одиночестве, и все остальные (естественно, кто пытается выполнить ~request для семафора с тем же именем) будут дожидаться вызова ~release в скрипте, выполнившем ~request.

Класс полностью исключает ситуацию, которая вполне возможна с файлами-флагами, когда два скрипта, одновременно ждущие пропадения одного и того же флага, одновременно же определяют его пропадение.

Кроме того, класс успешно борется с ситуацией, когда скрипт выполнил ~request и по каким либо причинам не смог выполнить ~release. Такой "зомбированый" семафор автоматически будет пересоздан.

works.procs

Это сборник полезных, на мой взгляд, процедур. Ничего сложного, но удобно.

Если у Вас возникнут какие-нибудь глобальные идеи по поводу этих скриптов, или Вы захотите указать мне на мои ошибки, или Вы чего-то не поймете, то пишите мне.

Обсудить материал (число отзывов:0)