Алексей Андрюнин
Pascal source
{==============================}unit O_LINE_A;{=============================}
{$D-,L-}
{*******************************}
{* Модуль для анализа строк, *}
{* задающих числовые интервалы *}
{* вида 1, 2, 6-9, 14 *}
{* вер. 1.0 *}
{*******************************}
{* Copyright (c) 1997 *}
{*******************************}
{* Андрюнин А. В. *}
{*******************************}
{---------------------------------------------------------------------------}
{$DEFINE UsePrefixes} {Директива указывает, что генерируется}
{код для работы с префиксами}
{---------------------------------------------------------------------------}
interface
uses
O_String;
{---------------------------------------------------------------------------}
const
(*Опции*)
{Разрешены ли пробелы}
nlAllowSpaces = $0100;
{Менять ли местами номера если второй больше первого}
nlExchangeNumbers = $0200;
{Игнорировать повторяющиеся символы-разделители}
nlIgnoreRepChars = $0400;
{Игнорировать символы разделители в начале/конце строки}
nlIgnoreBEDelims = $0800;
{Не размещать новый элемент списка для повторяющихся чисел}
nlMultiply2Single = $1000;
{$IFDEF UsePrefixes}
{Разрешать просто числа, когда используются префиксы}
nlEnableOnlyDigits = $2000;
{Разрешать использование префикса только перед первым числом: 'c10-20'}
nlEnableOnlyFPref = $4000;
|