XHarbour - XHarbour

xHarbour это свободный мультиплатформенный расширенный Машинка для стрижки компилятор, предлагающий несколько графических терминалов (GT), включая драйверы консоли, GUI и гибридные консоли / GUI. xHarbour обратно совместим с Clipper и поддерживает множество расширений синтаксиса языка, значительно расширенные библиотеки времени выполнения и обширную поддержку сторонних разработчиков.

Как и большинство динамических языков, xHarbour также доступен как язык сценариев (отдельное приложение, подключаемая библиотека, движок MS ActiveScript [Windows Script Host, HTML, ASP]), использующий интерпретатор, написанный на языке xHarbour.

XHarbour Usenet группа новостей comp.lang.xharbour это активное сообщество для обсуждения вопросов, связанных с xHarbour.

Встроенные типы данных

xHarbour имеет 6 скалярных типов: Ноль, Строка, Дата, Логический, Число, Указатель и 4 сложных типа: Массив, Объект, CodeBlock, и Хеш. Скаляр содержит одно значение, например строку, число или ссылку на любой другой тип. Массивы - это упорядоченные списки скаляров или сложных типов, индексированные по номеру, начиная с 1. Хэши или ассоциативные массивы, являются неупорядоченными коллекциями значений любого типа, проиндексированных по их связанному ключу, который может быть любого скалярного или сложного типа.

Буквальное (статическое) представление скалярных типов:

Ноль: Ноль
Строка: «привет», «привет», [привет] или E «привет n»
Дата: ctod ("2005-03-17")
Логично: .T., .F.
Число: 1, 1.1, -1, 0xFF

Сложные типы также могут быть представлены как буквальные значения:

Массив: { "Строка", 1, { «Вложенный массив» }, .T., FunctionCall (), @FunctionPointer ()}
CodeBlock: {| Arg1, ArgN | Arg1: = ArgN + OuterVar + FunctionCall ()}
Хеш: { "Имя" => "Джон", 1 => «Цифровой ключ», "Имя2" => { "Вложенный" => "Хэш" } }

Хэши могут использовать Любые тип, включая другие хэши как Ключ для любого элемента. Хэши и массивы могут содержать Любые введите как Ценность любого члена, включая массивы вложенности и хэши.

Кодовые блоки могут иметь ссылки на переменные метода "процедура / функция>", в котором он был определен. Такие кодовые блоки могут быть возвращены как значение или с помощью переданного аргумента. ПО ССЫЛКЕ, в таком случае кодовый блок «переживет» подпрограмму, в которой он был определен, и любые переменные, на которые он ссылается, будут ОТДЕЛЕННЫЙ переменная.

Отсоединенные переменные будут сохранять свое значение до тех пор, пока существует ссылающийся на них кодовый блок. Такие значения будут использоваться совместно с любым другим кодовым блоком, который может иметь доступ к тем же переменным. Если кодовый блок не пережил содержащуюся в нем подпрограмму и будет оцениваться в течение времени жизни подпрограммы, в которой он определен, изменения в его Отдельные переменные(s) посредством своей оценки будут отражены в исходной программе.

Кодовые блоки можно оценивать любое количество раз с помощью Eval ( BlockExp ) функция.

Переменные

Все типы могут быть присвоены именованным переменным. Идентификаторы именованных переменных имеют длину от 1 до 63 символов, начинаются с [A-Z | _] и далее состоят из символов [A-Z | 0-9 | _], максимальная длина которых составляет 63 символа. Именованные переменные не чувствительны к регистру.

Переменные имеют одну из следующих областей:

МЕСТНЫЙ: Виден только в подпрограмме, которая его объявила. Значение теряется при выходе из процедуры.
СТАТИЧЕСКИЙ: Виден только в подпрограмме, которая его объявила. Значение сохраняется для последующих вызовов процедуры. Если переменная STATIC объявляется до определения какой-либо процедуры / функции / метода, она имеет МОДУЛЬ область видимости и видна в любой подпрограмме, определенной в том же исходном файле, она будет поддерживать свою жизнь в течение всего времени существования приложения.
ГЛОБАЛЬНЫЙ Виден внутри любой подпрограммы, определенной в том же исходном модуле, где объявлена переменная GLOBAL, а также любой подпрограммы любого другого исходного модуля, который явно объявляет ее, с помощью ГЛОБАЛЬНЫЙ ВНЕШНИЙ декларация. Объявления GLOBAL и GLOBAL EXTERNAL должны быть объявлены до определения любой процедуры / функции / метода.
ЧАСТНЫЙ: Виден внутри подпрограммы, которая ее объявила, и всех подпрограмм. называется по этой рутине.
ОБЩЕСТВЕННЫЙ: Видно все процедуры в том же приложении.

МЕСТНЫЙ, СТАТИЧЕСКИЙ, и ГЛОБАЛЬНЫЙ разрешаются во время компиляции и, следовательно, намного быстрее, чем ЧАСТНЫЙ и ОБЩЕСТВЕННЫЙ переменные, которые являются динамическими объектами, доступ к которым осуществляется посредством среды выполнения Таблица символов. По этой же причине МЕСТНЫЙ, СТАТИЧЕСКИЙ и ГЛОБАЛЬНЫЙ переменные не подвергаются компилятору макросов, и любой код макроса, который пытается ссылаться на них, вызовет ошибку времени выполнения.

Из-за динамического характера ЧАСТНЫЙ и ОБЩЕСТВЕННЫЙ переменные, они могут быть созданы и уничтожены во время выполнения, к ним можно получить доступ и изменить с помощью макросов времени выполнения, и к ним можно получить доступ и изменить кодовые блоки, созданные на лету.

Структуры управления

Базовые управляющие структуры включают в себя все стандартные dBase, и Машинка для стрижки управляющие структуры, а также дополнительные, вдохновленные C или Ява языки программирования:

Петли

[ДЕЛАТЬ ПОКА ConditionExp   ...   [LOOP] [EXIT] END [DO]

ДЛЯ Вар := InitExp К EndExp [ШАГ StepExp]   ...   [LOOP] [EXIT] NEXT

ДЛЯ КАЖДОГО Вар В CollectionExp   ...   [HB_EnumIndex ()] [LOOP] [EXIT] NEXT

В ... представляет собой последовательность одного или нескольких операторов xHarbour, а квадратные скобки [] обозначают необязательный синтаксис.
В HB_EnumIndex () при необходимости может использоваться для получения индекса текущей итерации (на основе 1).
В ПЕТЛЯ оператор перезапускает текущую итерацию структуры включающего цикла, и если включающий цикл является ДЛЯ или ДЛЯ КАЖДОГО цикл, он увеличивает итератор, переходя к следующей итерации цикла.
В ВЫХОД Оператор немедленно завершает выполнение структуры включающего цикла.
В СЛЕДУЮЩИЙ Оператор закрывает структуру управления и переходит к следующей итерации структуры цикла.

в ДЛЯ заявление, назначение выражение оценивается до первой итерации цикла. В К выражение оценивается и сравнивается со значением управляющей переменной перед каждой итерацией, и цикл завершается, если его вычисление дает числовое значение, большее, чем числовое значение управляющей переменной. Необязательный ШАГ выражение оценивается после каждой итерации, до принятия решения о выполнении следующей итерации.

В ДЛЯ КАЖДОГО, то Вар переменная будет иметь значение (скалярное или комплексное) соответствующего элемента в значении коллекции. Выражение коллекции может быть массивом (любого типа или комбинаций типов), хеш-таблицей или типом объекта.

IF заявления

ЕСЛИ CondExp   ...[ELSEIF] CondExp   ...[ELSE] ...КОНЕЦ [ЕСЛИ]

... представляет 0 или более заявления).

Выражение (я) условия должно оцениваться как ЛОГИЧЕСКИЙ ценность.

Операторы DO CASE

ДЕЛАТЬ КЕЙС CondExp      ...   [КЕЙС CondExp]      ...   [В ПРОТИВНОМ СЛУЧАЕ] ...КОНЕЦ [ДЕЛО]

Вышеупомянутая конструкция логически эквивалентна:

ЕСЛИ CondExp   ...ELSEIF CondExp   ...[ELSEIF CondExp]   ...[ELSE] ...КОНЕЦ [ЕСЛИ]

SWITCH заявления

xHarbour поддерживает конструкцию SWITCH, вдохновленную реализацией switch () в языке C.

ПЕРЕКЛЮЧАТЕЛЬ SwitchExp   КЕЙС LiteralExp      ...      [ВЫХОД]

   [КЕЙС LiteralExp]      ...      [ВЫХОД] [ПО УМОЛЧАНИЮ] ...КОНЕЦ

В LiteralExp должно быть числовым выражением, разрешаемым во время компиляции, и может включать операторы, если такие операторы включают статическое значение времени компиляции.
В ВЫХОД Необязательный оператор является эквивалентом оператора C перерыв, и если присутствует, выполнение структуры SWITCH завершится, когда будет достигнута инструкция EXIT, в противном случае она продолжится с первой инструкции под следующей инструкцией CASE (провал).

Операторы BEGIN SEQUENCE

НАЧАТЬ ПОСЛЕДОВАТЕЛЬНОСТЬ ...   [BREAK] [Перерыв ([Опыт])] ВОССТАНОВЛЕНИЕ [ИСПОЛЬЗОВАНИЕ Вар]   ...КОНЕЦ [ПОСЛЕДОВАТЕЛЬНОСТЬ]

или:

НАЧАТЬ ПОСЛЕДОВАТЕЛЬНОСТЬ ...   [BREAK] [Break ()] END [SEQUENCE]

Структура BEGIN SEQUENCE допускает корректное прерывание любой последовательности, даже при пересечении вложенных процедур / функций. Это означает, что вызываемая процедура / функция может выдавать инструкцию BREAK или выражение Break (), чтобы принудительно развернуть любую вложенную процедуру / функцию, вплоть до первой внешней структуры BEGIN SEQUENCE, либо после соответствующего оператора END. или предложение RECOVER, если оно есть. Оператор Break может опционально передавать любой тип выражения, которое может быть принято оператором RECOVER, чтобы обеспечить дальнейшую обработку восстановления.

Дополнительно xHarbour Объект ошибки поддерживает canDefault, canRetry и canSubstitute properties, что позволяет обработчикам ошибок выполнить некоторую подготовку, а затем запросить Повторить операцию, а Продолжить, или вернуть Ценность для замены выражения, запускающего условие ошибки.

ПОПРОБУЙТЕ [CATCH] [НАКОНЕЦ] утверждения

ПЫТАТЬСЯ ...   [BREAK] [Перерыв ([Опыт])] [Бросить ([Опыт])]ЛОВИТЬ [Вар]   ...КОНЕЦ

ПЫТАТЬСЯ ...   [BREAK] [Перерыв ([Опыт])] [Бросить ([Опыт])]ЛОВИТЬ [Вар]   ...НУ НАКОНЕЦ ТО ...КОНЕЦ

или:

ПЫТАТЬСЯ ...   [BREAK] [Перерыв ([Опыт])] [Бросить ([Опыт])]НУ НАКОНЕЦ ТО ...КОНЕЦ

Конструкция TRY очень похожа на конструкцию BEGIN SEQUENCE, за исключением того, что она автоматически интегрирует обработку ошибок, так что любая ошибка будет перехвачена и восстановлена с помощью оператора CATCH или переадресована внешнему обработчику CATCH. Секция FINALLY гарантированно будет выполнена до управления потоком в секциях TRY или CATCH посредством RETURN, BREAK или THROW.

Процедуры / функции

[СТАТИЧЕСКАЯ] ПРОЦЕДУРА SomeProcedureName[СТАТИЧЕСКАЯ] ПРОЦЕДУРА SomeProcedureName() [СТАТИЧЕСКАЯ] ПРОЦЕДУРА SomeProcedureName( Param1 '[, ParamsN] )

НАЧАЛЬНАЯ ПРОЦЕДУРА SomeProcedureNameПРОЦЕДУРА ВЫХОДА SomeProcedureName

[СТАТИЧЕСКАЯ] ФУНКЦИЯ SomeProcedureName[СТАТИЧЕСКАЯ] ФУНКЦИЯ SomeProcedureName() [СТАТИЧЕСКАЯ] ФУНКЦИЯ SomeProcedureName( Param1 '[, ParamsN] )

Процедуры / функции в xHarbour можно указать с помощью ключевые слова ПРОЦЕДУРА, или НАЗНАЧЕНИЕ. Правила именования такие же, как и для Переменные (до 63 символов без учета регистра). И процедуры, и функции могут быть квалифицированы квалификатором области действия. СТАТИЧЕСКИЙ чтобы ограничить их использование областью модуля, где они определены.

В В ЭТОМ или ВЫХОД необязательные квалификаторы, будут отмечать процедуру, которая будет автоматически вызываться непосредственно перед вызовом процедуры запуска приложения или сразу после выхода из приложения, соответственно. Параметры переданные в процедуру / функцию появляются в подпрограмме как локальные переменные и могут принимать любой тип, включая ссылки.

Изменения переменных аргументов не отражаются в соответствующих переменных, передаваемых вызывающей процедурой / функцией / методом, если они явно не переданы ПО ССЫЛКЕ с использованием @ приставка.

ПРОЦЕДУРА не имеет возвращаемого значения, и при использовании в контексте выражения выдаст Ноль ценность.

FUNCTION может возвращать любой тип с помощью оператора RETURN в любом месте тела его определения.

Ниже приводится пример определения процедуры и вызова функции:

 Икс : = Куб (2) НАЗНАЧЕНИЕ Куб (сущ.) ВЕРНУТЬ n ** 3

Поддержка базы данных

xHarbour расширяет Машинка для стрижки Подход с заменой драйверов баз данных (RDD). Он предлагает несколько RDD, таких как DBF, DBFNTX, DBFCDX, DBFDBT и DBFFPT. В xHarbour несколько RDD могут использоваться в одном приложении, а новые логические RDD могут быть определены из комбинации других RDD. Архитектура СДР допускает наследование, так что данный СДР может расширять функциональные возможности других существующих СДР. Сторонние RDD, такие как RDDSQL, RDDSIX, RMDBFCDX, Сервер базы данных Advantage, и Посредник проиллюстрировать некоторые особенности архитектуры RDD.

xHarbour также предлагает поддержку ODBC с помощью синтаксиса OOP и поддержку ADO с помощью OLE.

Оператор макроса (компилятор времени выполнения)

Одной из самых мощных функций языков xBase является оператор MACRO '&'. Реализация макроса xHarbour позволяет выполнять компиляцию любого допустимого выражения xHarbour во время выполнения. Такое скомпилированное выражение может использоваться как ЗНАЧЕНИЕ, то есть правая сторона присвоения, но такое скомпилированное выражение может использоваться для разрешения ЛЕВОЙ стороны присвоения, то есть ЧАСТНЫХ, или ПУБЛИЧНЫХ переменных, или ПОЛЯ базы данных.

Кроме того, оператор макроса может компилировать и выполнять вызовы функций, завершать назначения или даже список аргументов, а результат макроса может использоваться для разрешения любого из вышеупомянутых контекстов в скомпилированном приложении. IOW, любое приложение xHarbour может быть расширено и / или изменено во время выполнения для компиляции и выполнения дополнительного кода по запросу.

Реализация этой функции в xHarbour настолько совершенна, что интерпретатор xHarbour, xbScript, активно использует ее для компиляции скриптов xHarbour.

Синтаксис:

 &( ... )

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

 & SomeId

это краткая форма для & (SomeId).

 & SomeId.postfix

является сокращенной формой & (SomeId + "постфикс").

Пример кода

Привет мир!

Типичный "Привет мир "программа будет:

 ? "Привет мир!"

Или:

 QOut («Привет, мир!»)