«Язык программирования Euphoria. Справочное руководство»

Язык программирования Euphoria. Справочное руководство (fb2) - Язык программирования Euphoria. Справочное руководство (Euphoria) 402K скачать: (fb2) - (epub) - (mobi) - Коллектив авторов

Язык программирования Euphoria

версия 3.1

Справочное руководство

(c) 2007 Rapid Deployment Software

Разрешено свободное копирование этого Руководства.

Источник данного текста:

Часть I - Ядро языка

1. Введение

Язык программирования Euphoria имеет следующие преимущества перед другими языками:

* исключительно простое, гибкое и мощное определение ядра, которое легко поддаётся изучению и дальнейшему использованию.

* динамическое распределение памяти. Переменные изменяются, не доставляя программисту забот о выделении под них и высвобождении участков памяти. Объекты любой размерности могут быть присвоены элементу ряда (массива) Euphoria.

* уникальный высокопроизводительный интерпретатор, который в 30 раз быстрее обычных интерпретаторов вроде Perl или Python.

* оптимизирующий транслятор с Euphoria на Си, ещё более разгоняющий вашу программу, часто от 2-х до 5-ти раз прибавляя ей скорости по сравнению с интерпретатором, и без того необыкновенно быстрым.

* широкая проверка правильности хода программы: контролируются индексы вне диапазона, неинициализированные переменные, неверные величины параметров библиотечных подпрограмм, недопустимые типы данных, присваиваемых переменным и т.п. Здесь практически не бывает загадочных машинных исключений -- вы всегда получаете полное описание на человеческом языке того, что случилось с вашей программой во время её прогона, плюс распечатку последовательности вызовов подпрограмм и значений всех переменных программы. Программа отлаживается быстро, просто и более досконально.

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

* в интерпретатор встроены полноэкранный отладчик исходного кода и профилировщик хода программы. В пакете имеется полноэкранный многофайловый редактор с цветной подсветкой правильного синтаксиса и автозавершением стандартных конструкций языка. Этот редактор написан на Euphoria, и его исходный код предоставляется вам без каких бы то ни было ограничений.

* программы Euphoria работают на платформах Linux, FreeBSD, 32-битной Windows и DOS любой версии, не имея никаких ограничений на объем доступной для использования памяти, в том числе, пресловутых 640K. Вы можете создавать программы, которые автоматически используют всю много-мегабайтную оперативную память вашей машины, плюс дисковый файл памяти, если оперативной оказывается недостаточно.

* вы можете трансформировать исходный код ваших программ в самостоятельные двоичные исполняемые файлы разнообразных типов и форматов.

* подпрограммы Euphoria естественным образом универсальны. Пример программы, который вы найдете чуть ниже, демонстрирует единственную подпрограмму, которая одинаково успешно сортирует данные любого типа : целые числа, числа с плавающей точкой, строки и т.д. При этом Euphoria не является "объектно-ориентированным" языком, а достигает многих преимуществ этих языков значительно более простым путём.

* система программирования Euphoria полностью свободна и открыта.

1.1 Пример программы

Здесь представлен пример завершённой программы Euphoria.

~~~~~~~~~~~

sequence list, sorted_list

function merge_sort(sequence x)

-- сортирует x в порядке возрастания методом рекурсивного слияния

integer n, mid

sequence merged, a, b

n = length(x)

if n = 0 or n = 1 then

return x -- тривиальный случай

end if

mid = floor(n/2)

a = merge_sort(x[1..mid]) -- сортируется первая половина x

b = merge_sort(x[mid+1..n]) -- сортируется вторая половина x

-- слияние двух отсортированных половинок

merged = {}

while length(a) 0 and length(b) 0 do

if compare(a[1], b[1]) then

merged = append(merged, a[1])

a = a[2..length(a)]

else

merged = append(merged, b[1])

b = b[2..length(b)]

end if

end while

return merged & a & b -- слитые данные плюс остатки

end function

procedure print_sorted_list()

-- генерирует sorted_list из list

list = {9, 10, 3, 1, 4, 5, 8, 7, 6, 2}

sorted_list = merge_sort(list)

? sorted_list

end procedure

print_sorted_list() -- эта команда запускает программу

~~~~~~~~~~~

Данный пример содержит 4 отдельные команды, которые выполняются последовательно. Первая объявляет две переменные: list и sorted_list как ряды (sequence) (гибкие массивы). Вторая определяет функцию merge_sort(). Третья определяет процедуру print_sorted_list(). Четвёртая и последняя команда вызывает процедуру print_sorted_list() на исполнение.

Программа печатает на экране:

{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}.

merge_sort() так же легко отсортирует {1.5, -9, 1e6, 100} или {"oranges", "apples", "bananas"} .

Данный пример имеется в каталоге Euphoria -- euphoria\tutorial\example.ex . Это не самый быстрый из методов сортировки, доступных в Euphoria. Перейдите в каталог -- euphoria\demo -- и введите команду "ex allsorts", чтобы проверить хронометраж различных алгоритмов сортировки при возрастании числа сортируемых объектов. Быстрый учебный пример программирования аналогичной функции на Euphoria вы можете также найти в -- euphoria\demo\bench\filesort.ex .

1.2 Установка

Чтобы установить систему Euphoria на своей машине, сначала прочтите инструкцию в файле install_r.doc . Установка заключается в простом копировании файлов euphoria на ваш жесткий диск в каталог (директорию) с именем "euphoria", и последующей модификации вашего файла autoexec.bat с таким расчётом, чтобы включить каталог euphoria\bin в путь поиска, а переменную окружения EUDIR установить на каталог euphoria.

После установки каталог euphoria на вашей машине будет выглядеть примерно так:

\euphoria readme.doc readme.htm License.txt \bin Интерпретаторы ex.exe и exw.exe. Трансляторы ec.exe и ecw.exe. Или на Linux/FreeBSD, интерпретатор exu и транслятор ecu. Здесь также будут служебные программы, такие как ed.bat, guru.bat и т.д. \include стандартные библиотеки, т.е. graphics.e и т.п. \source полный исходный код (интерпретатор, транслятор, биндер) \doc refman.doc, library.doc и другие файлы документации в простом текстовом формате \html файлы формата HTML, соответствующие каждому из файлов .doc в каталоге doc \tutorial небольшие учебные программы, которые помогут вам в изучении Euphoria \demo общие демо-программы, которые работают на всех платформах \dos32 демо-программы, специфические для DOS32 (может не быть) \win32 демо-программы, специфические для WIN32 (может не быть) \linux демо-программы, специфические для Linux/FreeBSD (может не быть) \langwar игра language war (пиксельно-графическая версия для DOS или текстовая версия для Linux/FreeBSD) \bench программы оценки производительности Подкаталог Linux не включается в пакет для DOS/Windows, а dos32 и win32 подкаталоги не включаютя в пакет для Linux/FreeBSD. В данном Руководстве каталоги показаны с использованием обратной косой черты. ( \ ). Пользователи Linux/FreeBSD должны помнить, что там действует обычная косая черта( / ).

1.3 Запуск программы

Программы Euphoria запускаются из командной строки вводом команды ex , exw или exu , сопровождаемой именем главного файла программы Euphoria. Вы также можете вводить здесь дополнительные слова (известные как аргументы командной строки ). Ваша программа может вызывать встроенную функцию command_line(), чтобы прочесть всю введённую вами командную строку. Версия интерпретатора Euphoria для DOS32 называется ex.exe . Версия для WIN32 называется exw.exe . Версия для Linux/FreeBSD называется exu . Как это здесь принято, главные файлы программ Euphoria имеют расширения .ex , .exw или .exu . Другие файлы Euphoria, предназначенные для включения в главную программу, имеют расширения .e или иногда .ew или .eu . Чтобы сократить команду, вы можете опускать ".ex", и интерпретатор ex будет подставлять это расширение для вас автоматически. exw.exe будет подставлять ".exw", а exu -- ".exu". Каждый из интерпретаторов перебирает и другие возможные расширения, если файл с основным расширением не нашёлся. Если файла с заданным именем, но ни с одним из условленных расширений, нет в текущем каталоге, проверяются каталоги из переменной окружения PATH (сначала с использованием основного расширения, а затем остальных).

Вы можете перенаправлять стандартные ввод и вывод из программы Euphoria, например:

ex filesort.ex sorted.txt

или просто,

ex filesort sorted.txt

В отличие от многих других компиляторов и интерпретаторов, здесь нет аргументов командной строки, предназначенных для изменения режима собственно интерпретаторов ex , exw или exu . Интерпретатор реагирует только на имя вашей программы Euphoria, и если вы не указали это имя, он пригласит вас к его вводу.

Для часто используемых программ под DOS/Windows вам могут пригодиться маленькие пакетные .bat файлы, к примеру, myprog.bat , содержащий пару команд наподобие показанных ниже:

@echo off

ex myprog.ex %1 %2 %3

Первая команда выключает отображение собственно команд на экране. Вторая - запускает ex myprog.ex с тремя или менее аргументами командной строки. Просмотрите описание функции command_line(), там есть пример, как можно читать эти аргументы по ходу вашей программы. Если вашей программе требуется большее число аргументов, нужно добавить %4 %5 и т.д. Наличие .bat-файла сэкономит вам несколько нажатий на клавиши при наборе ex (или exw ) каждый раз, когда вы запускаете свою любимую программу, т.е. вы можете просто ввести:

myprog

вместо:

ex myprog

К сожалению, DOS не позволяет перенаправление стандартных ввода и вывода, если вы используете .bat -файл.

Под Linux/FreeBSD, вы можете задать путь к интерпретатору Euphoria в первой строчке вашего главного файла. То есть, если ваша программа называется, например, foo.exu:

#!/home/me/euphoria/bin/exu

procedure foo()

? 2+2

end procedure

foo()

Затем вы делаете ваш файл исполняемым:

chmod +x foo.exu

А затем просто вызываете его на исполнение:

foo.exu

чтобы запустить свою программу. Вы можете даже укоротить имя программы до простого "foo". Интерпретатор Euphoria игнорирует первую строку, если она начинается с #! . А командный интерпретатор ОС Linux трактует такую строку как путь к программе (т.е. интерпретатору Euphoria), предназначенной для открытия (запуска) данного файла. Но будьте внимательны - эта первая строка должна заканчиваться в стиле Linux/FreeBSD символом перевода строки \n, а не в стиле DOS/Windows символами возврата каретки - перевода строки \r\n, иначе командный интерпретатор Linux/FreeBSD может сбиться. Если ваш файл окутан, вы должны указывать путь к backendu, а не к exu.

Что касается связанных файлов, их можно получить, запустив bind.bat (DOS32) или bindw.bat (WIN32), или bindu

(Linux/FreeBSD), чтобы связать вашу программу Euphoria с ex.exe , exw.exe или exu в единый самостоятельный двоичный исполняемый файл (типа .exe для DOS/Windows). С таким самостоятельным .exe -файлом вы можетеуже и перенаправлять стандартные ввод и вывод. Окутывание и связывание подробно обсуждаются в разделе 1.5 Распространение программы .

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

exu или ex.exe и exw.exe находятся в каталоге euphoria\bin , который должен быть в пути поиска. Переменная окружения EUDIR должна указывать на главный каталог Euphoria, т.е. c:\euphoria .

1.3.1 Запуск под Windows

Вы можете запускать программы Euphoria прямо из окружения Windows или из оболочки DOS, которую вы открыли из Windows. Ассоциируя .ex -файлы с интерпретатором ex.exe , а .exw -файлы с интерпретатором exw.exe , вы можете затем просто сделать двойной щелчок мышью на .ex - или .exw -файле, чтобы запустить их на исполнение. Под Windows вам следует задать новый тип файла для расширения .ex , последовательно щёлкнув на значке My Computer и опциях / view / options / file types. Несколько программ Euphoria могут исполняться одновременно в разных окнах. Если вы преобразовали свою программу в .exe -файл, вы можете запускать её двойным щелчком мыши на её значке - как и любую другую программу Windows.

1.3.2 Использование файла памяти

Если ваша программа Euphoria исполняется под Linux/FreeBSD или Windows (или в оболочке DOS под Windows) и ей недостаточно свободной оперативной памяти, она начинает использовать "виртуальную память". Операционная система предоставляет такую память вашей программе автоматически, выгружая часть менее актуального кода и данных из оперативной памяти на диск, в системный файл памяти (его ещё называют файлом "подкачки" или своп-файлом). Чтобы изменить размер файла памяти под Windows, щёлкните Control Panel / 386 Enhanced / "virtual memory...". Под OS/2 вы можете подстроить величину "DPMI_MEMORY_LIMIT", щёлкнув на значке виртуальной DOS-машины, "DOS Settings", чтобы выделить больше расширенной памяти для своей программы.

Под чистой DOS, вне Windows, системный файл памяти отсутствует, поэтому расширитель DOS, встроенный в интерпретатор ex.exe (DOS32), создаёт свой собственный файл памяти для использования вашей программой. Прочтите файл platform_r.doc, там есть кое-какие подробности на этот счёт.

1.4 Редактирование программы

Вы можете использовать любой текстовый редактор, предназначенный для программистов, чтобы редактировать программы Euphoria. Тем не менее, Euphoria поставляется со своим собственным специальным редактором, который написан полностью на Euphoria. Введите: ed , добавив полное имя файла, который вы желаете редактировать (расширения .ex/.exw/.exu также необходимо указывать). Вы можете здесь редактировать и любые другие файлы обычного текстового формата. Когда вы редактируете файл Euphoria, доступны некоторые преимущества, такие как цветное подсвечивание правильного синтаксиса и автозавершение ряда типовых конструкций языка - чтобы сделать вашу работу полегче.

Если во время компиляции или исполнения программы Euphoria возникает ошибка и выдаётся о ней сообщение, вы можете просто ввести с клавиатуры только ed , без имени файла, и редактор автоматически откроется с ошибочным файлом, позиционируясь в строку и колонку, где возникла ошибка, а сообщение об ошибке будет выведено в верхней строке экрана.

Под Windows вы можете ассоциировать ed.bat с разнообразными типами файлов обычного текстового формата, которые вам приходится редактировать. Цветная подсветка синтаксиса будет работать с файлами типов .ex , .exw , .exu , .e , .ew , .eu , и .pro ( файлы профиля ).

Редактор работает в режиме вставки символов в курсорную позицию. Клавиша Esc открывает строку меню со специальными командами. Клавиши со стрелкам и Insert/Delete/Home/End/PageUp/PageDown также активны. Под Linux/FreeBSD некоторые служебные клавиши могут быть недоступны, но для них назначены альтернативные клавиши с той же функциональностью. Прочтите инструкцию euphoria\doc\ed_r.doc ( euphoria\html\ed_r.htm ) по управлению редактором. Esc h (help) откроет для вас эту инструкцию ( ed.doc ) в отдельном окне во время сеанса редактирования.

Если вы захотите получше понять работу или изменить функционирование этого редактора по своему вкусу, вы можете в нём же редактировать файл программы редактора ed.ex , расположенный в каталоге euphoria\bin , (не забудьте сделать резервную копию, чтобы не потерять работоспособный редактор при неудачном его изменении). Если имя ed конфликтует с некоторой другой командой на вашей системе, просто переименуйте файл euphoria\bin\ed.bat на что-нибудь ещё. Поскольку этот редактор написан на Euphoria, его код замечательно краток и лёгок для понимания. Такой же по функциональности редактор, но воплощённый на языке вроде C, потянул бы намного больше строк кода.

ed -- это простой редактор текстового режима, который работает на консолях DOS, Linux, FreeBSD и Windows. Поинтересуйтесь также превосходным редактором ee.ex Дэвида Куни для DOS и Linux/FreeBSD. Вы можете получить ee.ex на сайте Euphoria . Имеются также редакторы для Windows, ориентированные на Euphoria. Их тоже можно здесь найти.

1.5 Распространение программы

Euphoria предлагает 4 различных пути распространения программы.

По первому методу вы просто снабжаете своих пользователей файлом ex.exe или exw.exe , или exu в совокупности со своим главным файлом Euphoria (.ex, .exw, или .exu) и любыми библиотечными файлами (.e), которые необходимы для работы вашей программы (включая любые стандартные из каталога euphoria\include ). Если файлы исходного кода Euphoria размещены все вместе в одном каталоге, а ex.exe, exw.exe или exu находятся там же или где-то по пути поиска, то ваш пользователь может запустить вашу программу, введя команду ex , ( exw ) или ( exu ) и сопроводив её путём к вашему главному файлу .ex, .exw, или .exu. Вы можете также сделать маленький .bat -файл, так чтобы люди не набирали при вводе лишнюю команду ex ( exw ). Этот метод предполагает, что вы не возражаете против того, чтобы поделиться исходным кодом своей программы со своими пользователями.

Биндер даёт вам ещё два метода распространения программы. Вы можете окутать свою программу, или вы можете связать свою программу. Окутывание объединяет все библиотечные .e-файлы, которые нужны вашей программе, вместе с вашим главным файлом в единственный .il-файл. Связывание объединяет вашу окутанную программу с backend.exe, backendw.exe или backendu в единственный, отдельный исполняемый (.exe) файл. Например, если ваша программа называется "myprog . ex", вы можете создать "myprog . exe", которая будет исполняться точно так же как и исходная. Прочтите подробные инструкции по окутыванию и связыванию -- bind_r.doc.

И, наконец, четвертый метод реализуется с помощью транслятора с Euphoria на Си, который транслирует вашу программу Euphoria на язык C, а затем компилирует результирующий код C компилятором C, создавая отдельный скоростной исполняемый файл (.exe), отличающийся от того, который производится посредством связывания.

1.5.1 Лицензия

Система программирования Euphoria является свободной и открытой и вобрала в себя труд многих людей. Вы имеете полное право распространять любую программу Euphoria, которую вы разработали, без каких бы то ни было авторских отчислений. Вы можете также распространять файлы ex.exe , exw.exe и exu , если они необходимы для запуска вашей программы. То же самое относится и к исполнительным блокам интерпретатора: backend.exe , backendw.exe и backendu . Вы можете окутывать или связывать ваши программы и распространять результирующие файлы также без авторских отчислений.

Вы можете присоединить любой файл исходного кода Euphoria, имеющийся в данном пакете, к своей программе "как есть", либо со своими модификациями. (Вам, вероятно, понадобится несколько стандартных файлов из каталога euphoria\include для создания любой большой программы).

Нам будет приятно, если вы скажете людям, что разработали свою программу с использованием Euphoria, и дадите им адрес нашего узла Web, но мы не требуем подобного рода изъявлений благодарности.

Файлы значков, такие как euphoria.ico из каталога euphoria\bin, могут распространяться с вашими изменениями или без них.

Высокоскоростная версия исполнительного блока интерпретатора Euphoria написана на ANSI C, и может быть откомпилирована с помощью многих различных компиляторов Си. Полный исходный код имеется в каталоге euphoria\source, вместе с execute.e, альтернативной версией написанного на Euphoria исполнительного блока. Наша весьма щедрая Лицензия открытого кода позволяет и персональное, и коммерческое использование кода, и, в отличие от многих других лицензий открытого кода, ваши изменения в этом коде не должны быть обязательно также открытыми.

Некоторые дополнительные ограничения со стороны третьих лиц могут иметь место, когда вы используете транслятор с Euphoria на Си .

2. Определение языка

2.1 Объекты

2.1.1 Атомы и ряды

Все данные, обрабатываемые в Euphoria, называются объектами, а объекты могут быть атомами или рядами. Каждый атом -- это единственное число. Каждый ряд -- это набор объектов.

Те объекты, которые содержатся в ряде, могут быть произвольной смесью атомов и рядов. Ряд представляется списком объектов, заключённым в фигурные скобки. Объекты в этом списке разделены запятыми. Атомы могут иметь любую величину в пределах от приблизительно -1e300 (минус 10 в степени 300) до +1e300 (10 в степени 300) с 15-ю значащими десятичными цифрами -- целую или двойной точности с плавающей точкой. Вот некоторые примеры объектов Euphoria:

-- примеры атомов:

0

1000

98.6

-1e6

-- примеры рядов:

{2, 3, 5, 7, 11, 13, 17, 19}

{1, 2, {3, 3, 3}, 4, {5, {6}}}

{{"jon", "smith"}, 52389, 97.25}

{} -- пустой ряд

Числа могут быть шестнадцатеричными. Например:

#FE -- 254

#A000 -- 40960

#FFFF00008 -- 68718428168

-#10 -- -16

В шестнадцатеричных числах разрешены только заглавные буквы A, B, C, D, E, F. Шестнадцатеричные числа всегда положительные, если только перед символом # не стоит знак минус. То есть, например, #FFFFFFFF - это громадное положительное число (4294967295), а *не* -1, как могут ожидать некоторые программисты, практикующие программирование на машинном языке.

Ряды могут быть вложенными на любую глубину, т.е. вы можете иметь ряды внутри рядов внутри рядов и так далее до любого уровня (пока будет хватать памяти на вашей машине). Фигурные скобки можно использовать, чтобы конструировать ряды из списка выражений. Эти выражения могут быть постоянными или вычисляться во время исполнения программы, например:

{x+6, 9, y*w+2, sin(0.5)}

Слова "Hierarchical Objects" - "Иерархические Объекты" в акрониме Euphoria отражают именно иерархическую многоуровневую структуру вложенных рядов. Не следует путать это с иерархией классов в некоторых объектно-ориентированных языках.

Почему же мы назвали их атомами? Почему не просто "числами"? Хорошо, нет проблемы, атом является просто числом, но мы хотели иметь отдельный термин, подчёркивающий тот факт, что атом принципиально отличается от ряда и не имеет неких более элементарных составляющих частей среди объектов Euphoria. Конечно, в мире физики "неделимые" атомы были расщеплены на элементарные частицы много лет назад, но в Euphoria они остаются основными строительными блоками для всех данных, которыми Euphoria манипулирует. Согласно же нашей "химической" аналогии, ряды можно представить себе как некие "молекулы", собранные из атомов и других молекул. Но лучшей аналогией являются каталоги и файлы на диске компьютера. Точно так же как каталог на диске может содержать и файлы, и другие каталоги, ряд может содержать и атомы, и другие ряды (а те ряды могут содержать атомы и другие ряды, и так далее).

Как вы скоро сами убедитесь, ряды делают Euphoria очень простой и очень мощной. Понимание атомов и рядов является ключом к пониманию Euphoria.

Примечание о производительности: Не означает ли это, что все атомы размещены в памяти как 8-байтовые числа с плавающей точкой? Нет. Интерпретатор Euphoria обычно размещает целочисленные атомы как машинные целые (4 байта), чтобы сэкономить память и увеличить скорость вычислений. Но когда результат становится дробным или число слишком увеличивается, автоматически производится преобразование к формату с плавающей точкой.

2.1.2 Строки символов и отдельные символы

Каждая строка символов -- это просто ряд символов. Строка может быть введена с использованием кавычек, например:

"ABCDEFG"

Со строками символов можно делать всё то же самое, что и с любыми другими рядами. Например, та строка, что вы видите выше, полностью эквивалентна ряду:

{65, 66, 67, 68, 69, 70, 71}

который содержит численные коды ASCII, соответствующие символам. Компилятор Euphoria немедленно преобразует "ABCDEFG" в показанный выше ряд чисел. В этом смысле в Euphoria нет "строк", а есть только ряды чисел. Строка в кавычках на самом деле является просто удобной формой записи, чтобы избавить вас от необходимости иметь под рукой таблицу со всеми кодами ASCII и от ввода текста как ряда чисел, разделённых запятыми.

Это означает, что "" эквивалентно {}. Обе записи представляют ряд длины 0, также известный как пустой ряд. Что касается стиля программирования, то естественно писать "", чтобы показать символьный ряд длины 0, и {}, чтобы показать некоторый другой сорт пустого ряда.

Каждый отдельный символ является атомом. Его следует вводить, используя одинарные кавычки. Имеется отличие отдельного символа (который является атомом) от строки символов, содержащей единственный символ, которая представляет собой ряд с длиной 1. То есть,

'B' -- эквивалентно атому 66 - код ASCII для B

"B" -- эквивалентно ряду {66}

Повторим, 'B' - это просто вариант записи, эквивалентный числу 66. В Euphoria, по сути, нет никаких символов, а есть только числа (атомы).

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

Существует несколько специальных символов, которые вводятся вместе с косой чертой как два знака, но имеют единственное значение как атом:

\n новая строка - перевод строки, LF

\r возврат каретки, CR

\t табуляция

\\ собственно косая черта (солидус)

\" двойная кавычка

\' одинарная кавычка

Например, "Hello, World!\n", или '\\'. Редактор Euphoria отображает строки символов и отдельные символы в зелёном цвете.

2.1.3 Комментарии

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

-- это комментарий

Комментарии игнорируются компилятором и никак не влияют на скорость исполнения программы. Редактор отображает комментарии в красном цвете.

В самой первой строке вашей программы (и только в ней) вы можете использовать специальный комментарий, начинающийся с #!, то есть,

#!/home/rob/euphoria/bin/exu

Подобный комментарий информирует командный интерпретатор Linux, что ваш файл следует исполнять под управлением интерпретатора Euphoria, и дает полный путь к интерпретатору Euphoria exu. Если вы измените атрибуты этого вашего файла, обозначив его как исполняемый, вы сможете запускать его, просто введя его имя в командной строке как это делается со стандартными командами Linux, то есть вам уже не нужно будет предварительно вводить "exu". Под DOS и Windows эта первая строка с #! трактуется просто как комментарий (хотя сервер Web Apache под Windows и распознает её). Если вы окутываете свой файл (.il), вместо exu следует указывать backendu.

2.2 Выражения

Подобно другим языкам программирования, Euphoria позволяет вам выполнять вычисления, просто записывая выражения для результатов. Однако в Euphoria вы можете выполнить вычисления на целом ряде данных в одном-единственном выражении, тогда как в большинстве других языков вам пришлось бы конструировать цикл. В Euphoria вы можете обрабатывать сразу весь ряд на манер отдельного числа. Ряд может быть скопирован, подан в подпрограмму и обсчитан как единое целое. Например,

{1,2,3} + 5

является выражением, в котором ряд {1,2,3} и атом 5 складываются и дают результирующий ряд {6,7,8}.

Чуть позже мы приведем множество других примеров.

2.2.1 Операции сравнения

Операции сравнения выполняются в выражениях с помощью операторов <, >, <=, >=, =, !=, результатом работы каждого из которых является 1 (истина, да) или 0 (ложь, нет).

8.8 < 8.7 -- 8.8 меньше чем 8.7 (0,нет)

-4.4 > -4.3 -- -4.4 больше чем -4.3 (0,нет)

8 <= 7 -- 8 меньше чем или равно 7 (0,нет)

4 >= 4 -- 4 больше чем или равно 4 (1, да)

1 = 10 -- 1 равно 10 (0, нет)

8.7 != 8.8 -- 8.7 не равно 8.8 (1, да)

Как мы скоро увидим, эти операции могут выполняться и с рядами.

2.2.2 Логические операции

Логические операции выполняются в выражениях с помощью операторов and (И), or (ИЛИ), xor (НО), и not (НЕ), результатом работы каждого из которых является "истинность" или "ложность" выражения, 1 или 0, то есть:

1 and 1 -- 1 (истина, да)

1 and 0 -- 0 (ложь, нет)

0 and 1 -- 0 (ложь, нет)

0 and 0 -- 0 (ложь, нет)

1 or 1 -- 1 (истина, да)

1 or 0 -- 1 (истина, да)

0 or 1 -- 1 (истина, да)

0 or 0 -- 0 (ложь, нет)

1 xor 1 -- 0 (ложь, нет)

1 xor 0 -- 1 (истина, да)

0 xor 1 -- 1 (истина, да)

0 xor 0 -- 0 (истина, да)

not 1 -- 0 (ложь, нет)

not 0 -- 1 (истина, да)

Вы можете применять эти операторы также к другим числам. Правило такое: нуль означает ложь (нет), не-нуль означает истину (да). Например:

5 and -4 -- 1 (истина, да)

not 6 -- 0 (ложь, нет)

Эти операции также могут применяться и к рядам. См. ниже.

В некоторых случаях выполняется так называемая укороченная проверка истинности. Укороченная проверка производится в выражениях, содержащих операторы and или or.

2.2.3 Арифметические операции

В выражениях Euphoria доступны обычные арифметические операции: сложение, вычитание, умножение, деление, унарный минус, унарный плюс.

3.5 + 3 -- 6.5

3 - 5 -- -2

6 * 2 -- 12

7 / 2 -- 3.5

-8.1 -- -8.1

+8 -- +8

Вычисление результата, который оказывается слишком большим (т.е. вне диапазона от -1e300 до +1e300), порождает один из специальных атомов +infinity (+бесконечность) или -infinity (-бесконечность). На экране эти атомы отображаются как inf или -inf, если результат выводится на печать. Возможно также получение nan или -nan. "nan" означает "not a number" - "не число", т.е. некоторая неопределенная величина (такая как inf деленная на inf). Эти специальные значения введены в Euphoria на основании стандарта IEEE по вычислениям с плавающей точкой. Если вы находите одну из этих специальных величин среди результатов счёта по вашей программе, то обычно это является признаком ошибки в логике вашей программы, хотя inf как промежуточный результат иногда и допустим. Например, 1/inf равно 0, и это может быть "правильным" ответом в вашем алгоритме.

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

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

2.2.4 Операции на рядах

Все операции (сравнения, логические и арифметические), описанные выше, равно как и математические подпрограммы, описанные в документе Часть II - Библиотека подпрограмм, могут быть применены к рядам и к отдельным числам (атомам).

Будучи применённой к ряду, унарная (для одного операнда) операция фактически применяется к каждому элементу ряда, и результирующий ряд имеет ту же самую длину. Если какой-то из элементов ряда сам по себе является рядом, это правило действует снова, рекурсивно, по отношению к каждому элементу вложенного ряда. То есть,

x = -{1, 2, 3, {4, 5}} -- x равно {-1, -2, -3, {-4, -5}}

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

x = {5, 6, 7, 8} + {10, 10, 20, 100}

-- x равно {15, 16, 27, 108}

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

y = {4, 5, 6}

w = 5 * y -- w равно {20, 25, 30}

x = {1, 2, 3}

z = x + y -- z равно {5, 7, 9}

z = x < y -- z равно {1, 1, 1}

w = {{1, 2}, {3, 4}, {5}}

w = w * y -- w равно {{4, 8}, {15, 20}, {30}}

w = {1, 0, 0, 1} and {1, 1, 1, 0} -- w равно {1, 0, 0, 0}

w = not {1, 5, -2, 0, 0} -- w равно {0, 0, 0, 1, 1}

w = {1, 2, 3} = {1, 2, 4} -- w равно {1, 1, 0}

-- обратите внимание, что первый символ '=' - это команда присваивания,

-- а второй символ '=' - это оператор сравнения, проверяющий равенство

-- соответствующих элементов рядов попарно с формированием ряда результатов

-- сравнения, полученных для каждой из пар элементов

Примечание: В вопросе сравнения рядов Euphoria имеется одна не вполне и не сразу заметная тонкость. Когда вы хотите сравнить две строки (или два других ряда), здесь, в отличие от некоторых других языков, не следует использовать оператор '=':

if "APPLE" = "ORANGE" then -- ОШИБКА!

В выражении, стоящем после команды "if" (если), символ '=' трактуется как бинарный оператор (сравнения), подобно другим бинарным операторам вроде '+', '*' и т.д., следовательно, он применяется к соответствующим парам элементов рядов, и эти ряды должны иметь одинаковую длину. Когда условие равенства длин операндов соблюдено, формируется ряд результатов сравнения, состоящий из нулей и единиц, но когда длины не равны, вы получите сообщение об ошибке в вашей программе. С другой стороны, команда "if" ожидает результат вычисления выражения, подаваемого в эту команду, в виде атома, а не ряда, то есть, и при равенстве длин рядов вы получите сообщение об ошибке в вашей программе. Для получения результата сравнения рядов в виде интегральной (число), а не поэлементной (ряд), характеристики, необходимо использовать встроенную функцию equal() (равно):

if equal("APPLE", "ORANGE") then -- ПРАВИЛЬНО

В общем-то, для несколько более полного сравнения рядов имеется ещё и встроенная функция compare() (сравнить):

if compare("APPLE", "ORANGE") = 0 then -- ПРАВИЛЬНО

Вы можете использовать compare() также и для других сравнений:

if compare("APPLE", "ORANGE") < 0 then -- ПРАВИЛЬНО

-- здесь "APPLE" меньше чем "ORANGE",

-- так как длина второго ряда больше (истина, 1)

2.2.5 Индексирование рядов

Единственный элемент ряда может быть отобран путём задания номера элемента ряда (индекса элемента) в квадратных скобках. Номера элементов (индексы) начинаются с 1. Не-целые индексы также допускаются, но при этом округляются вниз до ближайшего целого (отбрасывается дробная часть).

Например, если x содержит {5, 7.2, 9, 0.5, 13}, то x[2] равно 7.2. Предположим, что мы присвоили какое-то другое значение x[2]:

x[2] = {11,22,33}

Тогда x становится равным: {5, {11,22,33}, 9, 0.5, 13}. Теперь, если мы повторим индексирование x[2], то получим {11,22,33}, а если сделаем запрос x[2][3], то результатом будет атом 33. Если вы попытаетесь индексировать ряд числом, которое выходит за пределы диапазона от 1 до числа элементов ряда, вы получите сообщение об ошибке индексирования. Например, x[0], x[-99] или x[6] все вызовут ошибку. То же самое произойдет и для x[1][3], так как x[1] не является рядом в нашем примере. Как такового, предела на число индексов (размерность ряда) не существует, но тогда ряд должен быть достаточно глубоко вложенным. Двумерный массив, так широко распространённый в других языках, может быть легко представлен рядом рядов:

x = {

{5, 6, 7, 8, 9}, -- x[1]

{1, 2, 3, 4, 5}, -- x[2]

{0, 1, 0, 1, 0} -- x[3]

}

где мы записали числа таким образом, чтобы структура ряда проявилась более отчётливо. Выражение в форме x[i][j] даёт доступ к любому элементу.

Но измерения в этом ряде рядов, тем не менее, не вполне симметричны, так как любая "строка" целиком может быть отобрана как x[i], а столь же простого выражения для отбора целой "колонки" не существует. Другие логические структуры, такие как n-мерные массивы, массивы строк, структуры, массивы структур и т.д., могут быть обработаны легко и гибко:

3-D массив:

y = {

{{1,1}, {3,3}, {5,5}},

{{0,0}, {0,1}, {9,1}},

{{-1,9},{1,1}, {2,2}}

}

y[2][3][1] равно 9

Массив строк:

s = {"Hello", "World", "Euphoria", "", "Last One"}

s[3] равно "Euphoria"

s[3][1] равно 'E'

Структура:

employee = {

{"Джон","Смит"},

45000,

27,

185.5

}

Чтобы обращаться к "полям" или элементам внутри структуры в хорошем стиле программирования, целесообразно создать набор констант для имён различных полей структуры. Тогда вашу программу будет легко читать. Для примера выше можно было бы иметь:

constant NAME = 1

constant FIRST_NAME = 1, LAST_NAME = 2

constant SALARY = 2

constant AGE = 3

constant WEIGHT = 4

Тогда имя служащего можно получить как employee[NAME], а фамилию - как employee[NAME][LAST_NAME].

Массив структур:

employees = {

{{"John","Smith"}, 45000, 27, 185.5}, -- a[1]

{{"Bill","Jones"}, 57000, 48, 177.2}, -- a[2]

-- .... и так далее.

}

employees[2][SALARY] будет 57000.

Встроенная функция length() выдаёт длину поданного в неё ряда. Следовательно, последний элемент ряда s равен:

s[length(s)]

Имеется короткая форма записи, сокращение, для подобных операций:

s[$]

Аналогично,

s[length(s)-1]

может быть упрощено до:

s[$-1]

Символ $ равен длине ряда. Сокращение $ можно использовать только внутри квадратных скобок. Если ряды вложенные, то есть:

s[$ - t[$-1] + 1]

первый $ относится к длине s, а второй - к длине t (как вы, возможно, и ожидали). Ниже приведён пример, в котором $ может избавить вас от лишней работы, делая ваш код более ясным и, вероятно, даже более быстрым:

longname[$][$] -- последний элемент последнего элемента

Сравните с обычной формой записи той же самой операции:

longname[length(longname)][length(longname[length(longname)])]

Индексирование и функциональные побочные эффекты. Рассмотрим команду присваивания, когда в её левой части выполняется индексирование:

lhs_var[lhs_expr1][lhs_expr2]... = rhs_expr

Здесь все вычисления выражений и любое индексирование производится слева направо. В выражении из правой части команды присваивания или в любом их левых выражений возможно использование вызова функции. Если при вызове функции возникает побочный эффект, приводящий к модификации lhs_var, то теряется определённость, появятся ли эти модификации в lhs_var, когда выполнение команды присваивания будет завершено. Чтобы быть вполне уверенным в том, что ваши ожидания исполнятся именно так, как вы этого хотите, следует выполнять вызов функции в отдельной команде, а не пытаться модифицировать lhs_var двумя различными путями в одной и той же команде. В тех случаях, когда в левой части команды присваивания индексирование отсутствует, вы можете всегда считать, что окончательное значение lhs_var будет равно значению rhs_expr, вне зависимости от любых побочных эффектов, которые могли бы изменить lhs_var.

Структуры данных Euphoria имеют почти бесконечную гибкость. Массивы в других языках вынуждены иметь фиксированное число элементов, и эти элементы должны все быть одного и того же типа. Euphoria снимает оба эти ограничения. Вы можете легко добавить новую структуру в ряд employee (см.выше), или разместить необычайно длинное имя в поле NAME, и Euphoria позаботится обо всех этих изменениях автоматически. Если вы хотите, вы можете поместить множество различных "структур" employee, с различными размерами, все в один ряд.

Программа Euphoria не только легко представляет все обычные структуры данных, но вы можете создавать и новые очень полезные гибкие структуры, которые было бы экстремально трудно определить в другом языке. Прочтите 2.3 Euphoria против других языков.

Имейте в виду, что выражения в общем не могут быть индексированы, индексировать можно только переменные и константы. Например: {5+2,6-1,7*8,8+1}[3] не поддерживается. Нельзя делать и что-либо вроде date()[MONTH]. Вы должны присвоить значение ряда, выдаваемого date(), переменной или константе, а затем индексировать их обычным путём, чтобы получить желаемый результат.

2.2.6 Сечение рядов

Из ряда могут быть выделены несколько последовательных элементов путём задания в квадратных скобках номеров первого и последнего элементов выделяемого участка (отрезка). Например, если x равно {1, 1, 2, 2, 2, 1, 1, 1}, то отрезок x[3..5] будет представлять собой ряд {2, 2, 2}. x[3..3] будет равно ряду {2}. x[3..2] также разрешено, и выдает пустой ряд длины ноль {}. Если y имеет значение: {"fred", "george", "mary"}, то y[1..2] равно {"fred", "george"}.

Мы можем также использовать отрезки для переписывания порций ряда. После команды x[3..5] = {9, 9, 9} x будет равно {1, 1, 9, 9, 9, 1, 1, 1}. С тем же эффектом мы могли бы записать x[3..5] = 9. Предположим y равно {0, "Euphoria", 1, 1}. Тогда y[2][1..4] будет "Euph". Если мы напишем y[2][1..4]="ABCD", то y станет равным {0, "ABCDoria", 1, 1}.

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

В отношении пустых отрезков следует иметь в виду следующие детали. Рассмотрим отрезок s[i..j], где s имеет длину n. Отрезок от i до j, где j = i-1 и i >= 1 создает пустой ряд, даже если i = n+1. Таким образом, 1..0 и n+1..n, и все другие варианты внутри являются законными (пустыми) отрезками. Пустые отрезки весьма полезны во многих алгоритмах. Но отрезок от i до j, где j < i - 1 незаконен, т.е. "вывернутые" отрезки, такие как s[5..3], не разрешены.

С отрезками можно использовать сокращение $, то есть:

s[2..$]

s[5..$-2]

s[$-5..$]

s[$][1..floor($/2)] -- первая половина последнего элемента s

2.2.7 Сцепление рядов и атомов - операция &

Над любыми двумя объектами может быть произведена операция сцепления (конкатенации). Для этого служит оператор & - просто "и" в переводе на русский язык. Результатом операции является ряд, имеющий длину, равную сумме длин сцепленных объектов (здесь атомам как бы приписывается длина 1). То есть:

{1, 2, 3} & 4 -- {1, 2, 3, 4}

4 & 5 -- {4, 5}

{{1, 1}, 2, 3} & {4, 5} -- {{1, 1}, 2, 3, 4, 5}

x = {}

y = {1, 2}

y = y & x -- y всё ещё остается равным {1, 2}

Вы можете удалить элемент i любого ряда s, сцепив отрезки ряда до и после ненужного элемента i:

s = s[1..i-1] & s[i+1..length(s)]

Этот приём работает, даже когда i равно 1 или length(s), так как s[1..0] является законным пустым отрезком, так же как и s[length(s)+1..length(s)].

2.2.8 Формирование ряда

Операция формирования ряда записывается с помощью фигурных скобок и запятых:

{a, b, c, ... }

В ней участвует n операндов, где n равно 0 или более. В результате операции из величин элементов создается n-элементный ряд. То есть,

x = {apple, orange*2, {1,2,3}, 99/4+foobar}

Операция формирования ряда выполняется в последнюю очередь, см. Порядок операций.

2.2.9 Другие операции на рядах

Для обозначения некоторых других важных операций, которые вы можете выполнять, используются английские слова, а не специальные символы, о которых шла речь ранее. Эти операции выполняются с помощью функций, встроенных в интерпретаторы ex.exe/exw.exe/exu, следовательно, они всегда под рукой, следовательно, они очень быстрые. Они детально описаны в документе Часть II - Библиотека подпрограмм, но очень важны для программирования на Euphoria, поэтому мы должны упомянуть о них здесь, прежде чем продолжить разговор о других вещах. Эти операции запускаются на исполнение так, как если бы они были подпрограммами, хотя на самом деле их воплощение значительно более эффективно, чем обычных подпрограмм.

Функция length(s) выдаёт вам значение текущей длины ряда s. Это число элементов в ряде s. Некоторые из этих элементов сами могут быть рядами, содержащими другие элементы, но наша функция даёт число элементов самого "верхнего" уровня, считая каждый ряд на этом уровне за единственный элемент. При попытке определения длины атома выдаётся сообщение об ошибке, то есть,

length({5,6,7}) -- 3

length({1, {5,5,5}, 2, 3}) -- 4 (не 6!)

length({}) -- 0

length(5) -- ОШИБКА!

Функция repeat(item, count) выдает ряд, который состоит из элементов 'item', повторенных 'count' раз, то есть,

repeat(0, 100) -- {0,0,0,...,0} т.е. 100 нулей

repeat("Hello", 3) -- {"Hello", "Hello", "Hello"}

repeat(99,0) -- {}

Элемент, подлежащий повторению, может быть любым атомом или рядом.

Функция append(s, item) выдаёт новый ряд, добавляя элемент 'item' после конца ряда 's'. Функция prepend(s, item) выдаёт новый ряд, прибавляя элемент 'item' перед началом ряда 's', то есть,

append({1,2,3}, 4) -- {1,2,3,4}

prepend({1,2,3}, 4) -- {4,1,2,3}

append({1,2,3}, {5,5,5}) -- {1,2,3,{5,5,5}}

prepend({}, 9) -- {9}

append({}, 9) -- {9}

Длина нового ряда всегда на 1 больше, чем длина исходного ряда. Присоединяемый элемент может быть любым атомом или рядом.

Эти две встроенные функции, append() и prepend(), в чём-то похожи на оператор сцепления, &, но имеется и вполне ясное отличие, то есть,

-- присоединение ряда отличается

append({1,2,3}, {5,5,5}) -- {1,2,3,{5,5,5}}

{1,2,3} & {5,5,5} -- {1,2,3,5,5,5}

-- присоединение атома идентично

append({1,2,3}, 5) -- {1,2,3,5}

{1,2,3} & 5 -- {1,2,3,5}

2.2.10 Порядок операций

Порядок выполнения операций интерпретатором показан в таблице:

unary- unary+ not

* /

+ -

&

<= = = !=

and or xor

последняя очередь: { , , , }

Следовательно, 2+6*3 означает 2+(6*3), а не (2+6)*3. Операторы, расположенные в таблице в одной строке, имеют одинаковую очерёдность и поэтому выполняются в том порядке, как записаны в выражении слева направо. Вы можете задать любой другой необходимый вам порядок операций, воспользовавшись в вашем выражении круглыми скобками ( ).

Символ равенства '=', используемый для записи не только операции сравнения, но и команды присваивания, не создаёт двусмысленностей в программе, так как его конкретное назначение вполне ясно из контекста.

2.3 Euphoria против других языков

Положив в основу Euphoria ряды как единственную, простую, общую, рекурсивную структуру данных, удалось избежать громадного объёма сложностей, обычно присутствущих в языках программирования. Массивы, структуры, союзы, массивы записей, многомерные массивы и другие тому подобные объекты других языков все могут быть легко представлены рядами. И структуры высшего уровня, такие как списки, стеки, архивы, очереди, деревья и т.д., тоже не ушли от этой участи.

Более того, в Euphoria вы можете иметь ряды смешанного типа; вы можете присвоить значение любого объекта элементу ряда; и ряды легко растут и сокращаются без всяких дополнительных усилий со стороны программиста по поводу вопросов выделения и освобождения памяти. Точная заблаговременная раскладка данных в структуры не требуется и она может быть создана и изменена динамически по мере необходимости. Легко пишется код общего характера, где, например, вы подаёте и извлекаете из единственного стека объекты разнообразного рода данных. Создание гибкого списка, который содержит разнообразные объекты данных, тривиально в Euphoria, но требует десятков строк уродливого кода в других языках.

Манипуляции с данными весьма эффективны, так как интерпретатор Euphoria не копирует большие объекты, а указывает на уже существующий экземпляр.

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

В отличие от других языков, таких как LISP и Smalltalk, Euphoria выполняет "приборку" неиспользуемой памяти в непрерывном процессе, который никогда не вызывает случайных задержек в исполнении программы и не требует предварительного резервирования огромных участков памяти.

Определения обычных языков, таких как C, C++, Ada и т.д., очень сложны. Большинство программистов осваивает только некоторое подмножество возможностей языка. Стандарты ANSI на эти языки читаются как сложные своды законов.

Вас вынуждают писать разный код для разных типов данных, даже чтобы просто скопировать данные, получить текущую длину, сцепить их, сравнить их и т.д. Руководства по этим языкам переполнены функциями, такими как "strcpy", "strncpy", "memcpy", "strcat", "strlen", "strcmp", "memcmp", и т.п., каждая из которых работает только с одним из многих типов данных.

Слишком много сложностей вокруг вопроса о типах данных. Как определить новые типы? Какие типы данных могут быть смешанными? Как преобразовать один тип в другой, да ещё чтобы компилятор остался счастливым? Когда вам нужно что-то, требующее гибкости во время исполнения программы, вы часто находите себя за занятием, которое очень смахивает на попытки надувательства компилятора.

В этих языках численная величина 4 (к примеру) может иметь различный смысл в зависимости от того, что это за тип: int, char, short, double, int* и т.д. В Euphoria 4 - это атом 4, точка! В Euphoria есть кое-что, также названное типом, но это намного более простая концепция, как мы увидим чуть позже.

Вопросы динамического выделения и освобождения памяти занимают изрядный кусок времени на программирование и отладку в этих других языках, и делают результирующую программу значительно более трудной для понимания. Программы, предназначенные для продолжительного непрерывного исполнения, часто страдают "утечкой" памяти, избавление от которой требует высочайшей дисциплины безопасного и правильного освобождения блоков памяти, надобность в которых отпала. Euphoria автоматически следит за выделением и высвобождением памяти.

В других языках широко используются переменные-указатели (пойнтеры). Пойнтеры следовало бы назвать "goto" для структур данных. Они заставляют программиста думать о данных как о закреплённых в памяти огороженных участках, на которых производятся разного рода низкоуровневые, непереносимые на другие платформы трюки. Картина медных кишочек машины, на которой будет исполняться программа, то и дело всплывает в воображении программиста. В Euphoria нет пойнтеров и она не нуждается в них.

2.4 Объявления

2.4.1 Имена (идентификаторы)

Идентификаторы, к которым относятся имена переменных, подпрограмм и других структурных единиц программы, могут иметь любую длину. Строчные и заглавные буквы различаются. Имена должны начинаться с буквы, а затем могут содержать цифры и знаки подчерка - '_'. В системе существует группа занятых слов (их иногда ещё называют зарезервированными, резервными или ключевыми словами), имеющих особое значение в Euphoria, и которые не могут быть использованы в качестве имен:

and end include to

by exit not type

constant for or while

do function procedure with

else global return without

elsif if then xor

Редактор Euphoria отображает эти занятые слова в синем цвете.

Идентификаторы служат для объявления и последующего использования следующих структурных единиц (элементов) языка:

* процедур

* функций

* типов

* переменных

* констант (постоянных)

В процедурах выполняются разнообразные действия и они могут иметь список аргументов (параметров), то есть,

procedure empty()

end procedure

procedure plot(integer x, integer y)

position(x, y)

puts(1, '*')

end procedure

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

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

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

y = {1,2,3,4,5,6,7,8.5,"ABC"}

x = y

Команда присваивания x = y фактически не создает новую копию y, содержащуюся в x. После выполнения этой команды и x, и y будут просто "указывать" на один и тот же ряд, заданный выражением для y ранее. Если мы позже выполним x[3] = 9, то для x в памяти будет создана новая копия (хотя всё ещё будет только одна общая (для x и y) копия числа с плавающей точкой 8.5 и для внутреннего ряда "ABC"). Такой же приём работает по отношению к "копиям" аргументов, подаваемых в подпрограммы (подпрограмма - это общий термин для процедур, функций и типов).

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

function max(atom a, atom b)

if a = b then

return a

else

return b

end if

end function

Любой объект Euphoria может быть выдан функцией. Вы можете, по сути, иметь множество выдаваемых величин, записав выдачу ряда объектов, например,

return {x_pos, y_pos}

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

В Euphoria имеются специальные функции, которые используются для объявления допустимых величин переменных. Тип должен иметь строго один аргумент и выдавать атом, который может иметь два значения - истина (не-нуль) или ложь (нуль). Типы также могут быть вызваны подобно другим функциям. См. 2.4.3 Задание типа переменной.

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

-- x можно присвоить только целочисленную величину

integer x

x = 25

-- a, b и c можно присвоить *любую* величину

object a, b, c

a = {}

b = a

c = 3.14

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

Константы - это такие переменные, которым однажды присваивается некоторая начальная величина и изменить эту величину в дальнейшем уже невозможно, например,

constant MAX = 100

constant Upper = MAX - 10, Lower = 5

constant name_list = {"Fred", "George", "Larry"}

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

Константы не могут быть объявлены внутри объявления подпрограмм.

2.4.2 Сцена (область видимости)

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

В Euphoria имеется множество предопределённых (так сказать, заранее объявленных, а точнее, встроенных) процедур, функций и типов. Все они объявляются автоматически перед стартом любой программы. Редактор Euphoria отображает их имена в малиновом цвете. Эти предопределённые имена не являются занятыми словами, и вы можете переопределить их своими собственными подпрограммами.

Каждое новое имя в вашей программе перед его дальнейшим использованием должно быть объявлено, а структурная единица программы (переменная, подпрограмма, константа) фигурирующая под этим именем, должна быть вами определена. Такая дисциплина, действующая в Euphoria, позволяет вам читать программу последовательно от начала и до конца без необходимости забегания вперёд, чтобы раскрыть значение заинтриговавшего вас слова, которое уже вовсю используется автором программы, но действительный смысл которого ещё окутан тайной, которая скрывается где-то в дебрях кода, спутанного как итальянские макароны в кастрюле. Тем не менее, если необходимость в опережающей ссылке на подпрограмму существует и оправдана упрощением кода, вы можете предусмотреть вызов подпрограммы по особому её номеру, значение которого будет вычислено в вашей программе позже, но не по имени, которое ещё не объявлено. Для этого в Euphoria имеются специальная функция, routine_id(), и, соответственно, подпрограммы call_func() или call_proc(), одна для функций, а другая для процедур. См. Часть II - Библиотека подпрограмм - Динамические вызовы.

В процедурах, функциях и типах разрешены рекурсивные вызовы, когда подпрограмма вызывает саму себя. Взаимная рекурсия, где подпрограмма A вызывает подпрограмму B, которая прямо или косвенно вызывает подпрограмму A, также возможна, но требует использования механизма routine_id().

Имя считается известным интерпретатору от точки, в которой оно было объявлено, до границы его сцены. Сцена переменной, объявленной внутри подпрограммы (частной переменной) ограничена концом подпрограммы. Сцена всех других переменных, констант, процедур, функций и типов ограничена концом файла исходного кода, в котором они объявлены, и все они называются местными (локальными). Если объявлению на уровне файла предшествует ключевое слово global (глобальный), то сцена в этом случае может простираться за пределы файла, в котором записано объявление, но правила, по которым сцена ограничивается, становятся не слишком простыми.

Когда вы включаете библиотечный файл Euphoria в свой главный файл (см. 2.6 Специальные команды высшего уровня), то только переменные и подпрограммы, объявленные в библиотечном файле с использованием ключевого слова global, оказываются доступными или даже видимыми в вашем главном файле. Другие, не-глобальные, объявления в библиотечном файле видны интерпретатору только до конца библиотечного файла, и вы можете повторно использовать их имена, не опасаясь, что местные переменные, уже работающие в пределах библиотечного файла, будут в этом случае как-то задеты из вашего главного файла. И напротив, если вы попытаетесь обратиться к местной переменной или подпрограмме библиотечного файла по их именам из вашего главного файла, то получите аварийную остановку программы с сообщением об ошибке "not declared" - "не объявлено".

Имена, объявленные как global, могут действовать и вне того файла, где они объявлены. Но все другие имена действуют только внутри их собственного файла. Это обстоятельство очень полезно при сопровождении или усовершенствовании библиотечного файла или при изучении его работы и использования. Вы можете делать изменения в его внутренних (местных и частных) переменных и местных подпрограммах до тех пор, пока эти изменения не затрагивают работу глобальных переменных и подпрограмм, и вам не нужно будет заботиться о необходимости тестирования других файлов или извещать пользователей библиотеки.

Иногда, используя библиотеки, разработанные другими программистами, вы будете сталкиваться с возникающими конфликтами имён. Один из авторов библиотек, используемых вами совместно, может дать своей подпрограмме то же самое глобальное имя, которое уже было занято другими авторами. Если у вас имеется исходный код, вы можете просто отредактировать одну из библиотек и исправить ситуацию, но тогда вы должны будете повторять это редактирование снова и снова по мере выхода новых версий используемой вами библиотеки. В Euphoria имеется более простой путь для решения подобных проблем. Используя расширенную команду include, вы можете записать, например:

include johns_file.e as john

include bills_file.e as bill

john:x += 1

bill:x += 2

В этом случае глобальная переменная x была объявлена в двух разных файлах, но вы хотите использовать обе переменные в своей программе, не затрагивая исходные файлы. Используя идентификатор пространства имён (префикс, приставку), например, john или bill, вы можете присоединить к x соответствующий префикс, чтобы обозначить, какой именно x вы в данном конкретном случае имеете в виду. Мы иногда говорим в подобных случаях, что john относится к одному пространству имён, в то время как bill относится к другому, отличающемуся от первого, пространству. Вы можете прибавлять префиксы к именам любых переменных, констант или подпрограмм. Вы можете делать это, чтобы погасить реальный конфликт имён, или просто, чтобы сделать вещи более ясными. Имена собственно префиксов имеют местную сцену (в пределах файла). Префикс действует только внутри файла, в котором был объявлен, т.е. в том файле, который содержит соответствующую расширенную команду include. В различных файлах могут быть определены различные префиксы для обозначения одного и того же включенного файла.

Euphoria подталкивает вас к сужению сцены имён. Если бы все имена были автоматически глобальными для всей программы, у вас была бы масса конфликтов имён, особенно в программах, состоящих из файлов, написанных многими разными авторами. Конфликт имён должен вызывать сообщение об ошибке от компилятора, иначе он мог бы вести к очень скрытной ошибке, когда различные части программы встречно и случайно модифицируют одну и ту же переменную, не догадываясь об этом и никак не сигнализируя программисту о творящихся тайных безобразиях. Старайтесь использовать наиболее ограниченную сцену из всех, которые вы можете задать. Делайте переменные частными (только для подпрограммы) везде, где это возможно, а если это невозможно, делайте их местными (только для текущего файла), а не глобальными для целой программы.

Когда интерпретатор Euphoria ищет объявление имени, он в первую очередь проверяет текущую подпрограмму, затем текущий файл, а затем глобальные имена из включенных файлов. Имена, которые "более локальны", скажем так, будут затенять те имена, которые "более глобальны". За границей сцены более локального имени, более глобальное имя вновь выходит из тени и вновь становится видимым.

Объявления констант должны быть вне тела любых подпрограмм. Константы могут быть глобальными или местными (локальными), но не частными.

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

Объявления местных имён на уровне файла, вне тела любых подпрограмм, не должны находиться внутри тела команд циклов (for, while) или тела команды ветвления (if).

Управляющая переменная, используемая в команде цикла for, является особым случаем. Она автоматически объявляется перед началом циклических расчётов, и её сцена ограничена телом команды циклa. Если команда цикла расположена внутри тела подпрограммы, переменная цикла является частной переменной и должна иметь имя, отличающееся от всех других объявленных частных переменных данной подпрограммы (к которым относятся и переменные, объявляемые в списке аргументов). Когда команда цикла находится на уровне файла, вне тела любых подпрограмм, переменная цикла является местной (локальной) переменной и должна иметь имя, отличающееся от всех других уже объявленных местных переменных данного файла. Но вы можете использовать одно и то же имя переменной цикла для различных циклов, если циклы не являются вложенными один в другой. Вам не нужно объявлять тип переменной цикла так, как это делается с другими переменными. Диапазон значений переменной цикла, задаваемый в команде цикла, определяет и все её законные значения, следовательно, любое добавочное задание её типа было бы излишним и поэтому не предусмотрено.

2.4.3 Задание типа переменной

Мы уже видели несколько примеров, касающихся типов переменных, но теперь мы дадим типам более развёрнутое и точное определение.

Объявления переменных как таковые записываются в виде имени типа, сопровождаемого списком имён переменных данного типа, которые мы решили объявить как подлежащие дальнейшему использованию в программе. Например,

object a

global integer x, y, z

procedure fred(sequence q, sequence r)

Типы: object (объект), sequence (ряд), atom (число, атом) и integer (целое) являются предопределёнными. Переменная типа object может принимать любое значение. Те переменные, который объявлены с типом sequence, должны всегда быть рядами. Те переменные, которые объявлены с типом atom, должны всегда быть атомами. А те, которые объявлены с типом integer, должны быть атомами с целочисленной величиной в диапазоне от -1073741824 до +1073741823 включительно. Вы можете выполнять точные целочисленные расчёты с величинами, и выходящими из диапазона integer, вплоть до примерно 15 десятичных знаков, но тогда должны объявлять под них переменные типа atom, а не integer.

Примечание: В списке аргументов процедуры или функции, как это показано, к примеру, для процедуры fred(), имя типа должно сопровождаться единственным именем переменной-аргумента. Примечание о производительности: Вычисления с использованием переменных, объявленных как integer, будут обычно более быстрыми, чем вычисления с переменными, объявленными как atom. Если ваша машина имеет сопроцессор плавающей точки, Euphoria будет использовать его для работы с атомами, которые непредставимы как integer. Если на вашей машине сопроцессор отсутствует, Euphoria будет вызывать подпрограммы арифметики плавающей точки, которые имеются в интерпретаторе ex.exe (или у Windows). Вы можете заставить ex.exe обходить сопроцессор, установив переменную окружения:

SET NO87=1

При этом будут использованы сравнительно медленные встроенные подпрограммы, но здесь может быть и некоторое преимущество, если вы, к примеру, обеспокоены наличием ошибки сопроцессора в некоторых ранних версиях микросхем Pentium. Если предопределённые типы не вполне соответствуют вашей задаче, вы можете создать свои собственные типы. Всё, что нужно сделать для этого - написать функцию с единственным аргументом, но объявить её как type ... end type вместо function ... end function. Например,

type hour(integer x)

return x = 0 and x <= 23

end type

hour h1, h2

h1 = 10 -- ok

h2 = 25 -- ОШИБКА! Программа прерывается с сообщением

Переменным h1 и h2, объявленным с типом hour (час), может быть присвоена только целочисленная величина в диапазоне от 0 до 23 включительно. После каждого присваивания h1 или h2 интерпретатор будет вызывать тип hour(), подавая новую величину. Величина сначала будет проверена на соответствие типу integer (объявлена как "integer x"). Если соответствует, то будет вычисляться выражение, подаваемое в команду return, чтобы проверить значение x (т.е. новую величину h1 или h2). Если hour() выдаёт значение "истина", исполнение программы продолжается. Если hour() выдаёт значение "ложь", программа прерывается с соответствующим диагностическим сообщением.

Тип "hour" может использоваться также для объявления аргументов подпрограммы:

procedure set_time(hour h)

Процедура set_time() может быть вызвана только с подходящей величиной аргумента h, иначе программа будет прервана с сообщением.

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

В отличие от других языков, тип переменной не затрагивает никакие вычисления, производимые над переменной. В выражении играет роль только величина переменной. Тип служит только для проверки отсутствия ошибки, чтобы предотвратить любую "порчу" переменной.

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

Проверка типов может быть выключена или включена между подпрограммами с помощью специальных команд with type_check (с проверкой типа) или without type_check (без проверки типа). По умолчанию проверка типов включена при старте программы.

Примечания о проверках производительности: Сравнивая скорость программы Euphoria со скоростью программ, написанных на других языках, в начале программы Euphoria необходимо написать without type_check. Эта команда даёт интерпретатору Euphoria разрешение пропускать проверки типов во время исполнения программы, чтобы сэкономить некоторое время. Все остальные проверки будут при этом выполняться, т.е. по индексам, инициализации и т.п. Даже при выключенной вами проверке типов интерпретатор Euphoria оставляет за собой право делать эту проверку в стратегически важных местах, так как она на деле позволяет вашей программе исполняться быстрее во многих случаях. Следовательно, вы можете получить отказ по проверке типа, даже когда проверку выключаете. Включена проверка типов или выключена, вы никогда не получите исключительную ситуацию машинного уровня. У вас всегда будет внятное сообщение от Euphoria, если что-то пошло неправильным путём. (Конечно, и здесь можно нарваться на машинное исключение, например, когда вы делаете poke (размещаете данные непосредственно в памяти), или вызываете подпрограммы, написанные на C или в машинном коде. Но это уже совсем другая история - в этих случаях Euphoria просто уважает ваше неотъемлемое право давать вашей машине любые ваши команды.) Метод определения типов в Euphoria проще, чем те, которые вы найдёте в других языках, хотя Euphoria обеспечивает программиста значительно большей гибкостью в описании законных величин для типов данных. Вы можете использовать любой алгоритм для включения величин в допустимый диапазон или их исключения из него. Вы можете даже позволить переменной быть типа object, который означает допустимость любого значения. Подпрограммы могут быть написаны для работы с очень специфическими или с очень общими типами данных.

Но во многих программах забота о каких-то новых типах данных не приносит значительных преимуществ, и вам может вполне хватить четырёх имеющихся предопределённых типов. В отличие от других языков, механизм типов Euphoria даёт вам более свободный выбор. А с типом object вы можете и не вспоминать о наличии остальных трёх.

Тем не менее, для крупных программных проектов определение более конкретных типов может помочь в процессе отладки. Со строго конкретными типами данных логические ошибки отлавливаются вблизи места их зарождения и их распространение по скрытным путям в другие части программы пресекается. Более того, всегда проще размышлять о причинах неправильного поведения некоторого небольшого участка кода, когда у вас есть гарантия, что используемые здесь переменные всегда имели законную величину, а вот требуемый результат отсутствует.

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

Анекдот 1: Перенеся большую программу C на Euphoria, мы обнаружили ряд скрывавшихся ранее ошибок. Хотя данная программа C и заслужила большое доверие как якобы тотально "корректная", мы нашли: ситуацию, где считывалась неинициализированная переменная; место, где элемент номер "-1" одного из массивов беспрепятственно записывался и считывался; ситуацию, где что-то выводилось как раз мимо экрана. Эти проблемы вели к ошибкам, которые были не слишком заметны для не очень внимательного наблюдателя, и код C успешно прошёл тестирование. Анекдот 2: Алгоритм Quick Sort, представленный на странице 117 "Написания эффективных программ" Джона Бентли, имеет ошибку индексирования! Этот алгоритм будет иногда считывать элемент из памяти непосредственно перед началом сортируемого массива, и будет считывать из памяти элемент непосредственно после конца массива. Хотя и читается какой-то мусор, оставшийся от другой программы, алгоритм всё ещё работает - вероятно, поэтому ошибка никогда и не была обнаружена. Но что, если бы по тем адресам вне массива не было никакой (виртуальной) памяти? Бентли позже модифицировал алгоритм так, что эта ошибка уходит -- но он представлял и раннюю версию как правильную. Даже экспертам нужна проверка правильности индексирования! Примечания о производительности: Когда программист широко применяет свои собственные типы, их проверка интерпретатором добавляет ко времени исполнения программы всего 20..40 процентов. Оставляйте проверку включенной, если вам не нужна действительная экстра-скорость. Вы можете также предусмотреть её выключение только для нескольких особенно сильно загруженных вычислениями подпрограмм. Профилирование может помочь в принятии правильного решения.

2.5 Команды

В Euphoria предусмотрены следующие виды исполняемых команд:

* команда присваивания

* вызов подпрограммы

* команда if (если)

* команда while (пока)

* команда for (для, от)

* команда return (выдать, вернуться)

* команда exit (выйти)

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

2.5.1 команда присваивания

В Euphoria команда присваивания служит для придания величины, полученной при вычислении выражения, простой переменной или элементу ряда, или отрезку ряда, то есть,

x = a + b

y[i] = y[i] + 1

y[i..j] = {1, 2, 3}

По этой команде предыдущая величина переменной или элемента(ов) ряда, или отрезка ряда аннулируется, а новая вступает в действие. Например, предположим, что x был 1000-элементным рядом, который мы инициализировали следующим образом:

object x

x = repeat(0, 1000) -- ряд, состоящий из 1000 нулей

а затем мы присвоили x значение атома:

x = 7

Такое действие полностью законно, так как мы объявили x как object. Предыдущая величина x, а именно, 1000-элементный ряд, просто исчезнет. Одновременно то пространство, которое занимал в памяти 1000-элементный ряд, будет автоматически возвращено в резерв вашей программы, благодаря динамическому распределению памяти, работающему в Euphoria.

Заметьте, что символ равенства '=' используется и для записи команды, и как оператор при проверке равенства в выражениях. Но здесь никогда не возникает путаница, так как присваивание в Euphoria является только командой, и оно не может быть использовано в составе выражений (как это бывает в других языках).

Euphoria имеет также некоторые дополнительные формы команды присваивания.

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

+ - / * &

Например, вместо того, чтобы писать:

mylongvarname = mylongvarname + 1

вы можете записать:

mylongvarname += 1

вместо записи:

galaxy[q_row][q_col][q_size] = galaxy[q_row][q_col][q_size] * 10

будет работать:

galaxy[q_row][q_col][q_size] *= 10

а вместо:

accounts[start..finish] = accounts[start..finish] / 10

просто:

accounts[start..finish] /= 10

В общем случае, везде, где вы имеете присваивание в форме:

левая_часть = левая_часть оп выражение

вы можете записать:

левая_часть оп= выражение

где оп может быть одним из: + - * / &

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

2.5.2 вызов подпрограммы

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

plot(x, 23)

2.5.3 команда if (если)

Команда ветвления if (если) проверяет некоторое условие, убеждаясь в его истинности (не-нуль) или ложности (0), а затем обеспечивает переход к выполнению соответствующих тех или иных серий других команд. В команде if могут содержаться дополнительные пункты проверки elsif (а_если) и else (иначе), то есть,

if a then

x = 1

end if

if a = 9 and find(0, s) then

x = 4

y = 5

else

z = 8

end if

if char = 'a' then

x = 1

elsif char = 'b' or char = 'B' then

x = 2

elsif char = 'c' then

x = 3

else

x = -1

end if

Обратите внимание, что elsif хотя и является сокращением от else if, но это сокращение делает текст более ясным, так как отпадает необходимость в лишнем end if, которое пришлось бы ставить при несокращенной форме. А так имеется только одна закрывающая "скобка" end if для всего блока команды if, даже когда в нём содержится множество пунктов elsif.

Выражения, входящие в пункты if и elsif, проверяются с использованием укороченной проверки истинности.

2.5.4 команда while (пока)

Команда while (пока) проверяет сопровождающее её выражение на истинность, и пока выражение истинно, циклически выполняет те команды, которые записаны далее в её теле, то есть,

while x 0 do

a = a * 2

x = x - 1

end while

Когда выражение, проверяемое командами if, elsif или while содержит операторы and или or, то проводятся укороченные вычисления. Например,

if a < 0 and b > 0 then ...

если a < 0 ложно, то Euphoria не будет беспокоиться о второй проверке (не больше ли b чем 0). Будет решено, что общий результат уже и без того соответствует лжи. Аналогично,

if a < 0 or b > 0 then ...

если a < 0 истинно, то Euphoria немедленно решит, что общий результат соответствует истине и без проверки величины b.

В общем, каждый раз, когда мы ставим условие в форме:

A and B

где A и B могут быть двумя любыми выражениями, Euphoria завершит расчёт, если A ложно, и немедленно станет считать общий результат ложью, даже не взглянув на выражение B.

Аналогично, в случае:

A or B

когда A истинно, Euphoria пропустит вычисление выражения B и учтёт результат как истину.

Если выражение B содержит вызов функции, то из-за возможности наличия у функции побочных эффектов, т.е. и других действий, кроме простой выдачи величины, вы получите предупреждение во время компиляции. Более старые версии Euphoria (до 2.1) не имели укороченной проверки, поэтому возможно, что некоторый старый код будет работать неправильно, хотя поиск в архивах Euphoria и не выявил какие-либо программы, зависящие от побочных эффектов в этом смысле.

Выражение, B в данном случае, может содержать какие-либо дефекты кода, которые во время исполнения программы могли бы спровоцировать её аварийную остановку. Но если Euphoria пропускает вычисление B, ошибка не будет обнаружена, например,

if x != 0 and 1/x 10 then -- деление на нуль пропущено

while 1 or {1,2,3,4,5} do -- пропущен незаконный результат с рядом

Выражение B могло бы даже содержать неинициализированную переменную, индекс вне границ и другие недопустимые вещи.

Всё это может вызывать недоумение, так как выглядит подобно неряшливому программированию, но фактически часто позволяет вам написать многие вещи более простым и более ясным образом. Например:

if atom(x) or length(x)=1 then

Без укороченной проверки у вас была бы проблема, когда x является атомом, так как длина для атомов не определена. Но с укороченной проверкой length(x) будет проверяться, только когда x является рядом. Аналогично:

-- найти 'a' или 'A' в s

i = 1

while i <= length(s) and s[i] != 'a' and s[i] != 'A' do

i += 1

end while

В данном цикле переменная i может стать больше length(s). Без укороченной проверки вас поджидала бы ошибка индексирования, когда s[i] вычисляется в самом последнем цикле. Но с укороченной проверкой циклические вычисления будут немедленно прерваны, как только выражение i <= length(s) станет ложным. Euphoria не будет вычислять s[i] != 'a' и не будет вычислять s[i] != 'A'. И вы, тем самым, будете застрахованы от ошибки индексирования.

Укороченная проверка and и or имеет место только в командах if, elsif и while. Она не используется в других контекстах. Например, команда присваивания:

x = 1 or {1,2,3,4,5} -- x будет присвоено значение {1,1,1,1,1}

Если бы укороченная проверка была применена здесь, мы бы получили x равным 1, а интерпретатор даже не взглянул бы на {1,2,3,4,5}. Это было бы неправильным решением. Укороченная проверка может использоваться в командах if/elsif/while, поскольку там нас заботит лишь общий результат в виде да/нет, а этим командам только и нужен именно атом, как результат вычисления выражения для проверяемого условия.

2.5.5 команда for (для, от)

С помощью команды for устанавливается специальный цикл вычислений с управляющей переменной цикла, которая пробегает ряд значений, начиная от первой заданной величины, вверх или вниз до некоторой последней величины, то есть,

for i = 1 to 10 do

? i -- ? - это короткая форма для print()

end for

-- дробные числа также разрешены

for i = 10.0 to 20.5 by 0.3 do

for j = 20 to 10 by -2 do -- счёт вниз

? {i, j}

end for

end for

Переменная цикла объявляется автоматически и существует до конца циклических вычислений, предусмотренных данным циклом. Вне тела команды цикла переменная цикла не имеет величины и даже не может считаться объявленной. Если вам необходима её последняя величина, присвойте её величину некоторой заранее объявленной обычной переменной перед выходом из цикла. Компилятор не позволяет никаких присваиваний переменной цикла. Начальная величина, конечная величина и величина шага все должны быть атомами. Если величина шага не указана, считается, что шаг равен +1. Конечная величина и величина шага устанавливаются при входе в цикл и во время цикла никак не могут быть изменены. См. также о сцене переменной цикла в разделе 2.4.2 Сцена (область видимости).

2.5.6 команда return (выдать, вернуться)

Команда return приводит к немедленному выходу из подпрограммы. Если подпрограмма является функцией или типом, в команде должна быть предусмотрена выдаваемая такой подпрограммой величина. То есть,

return

return {50, "FRED", {}}

2.5.7 команда exit (выйти)

Команда exit может использоваться в цикле while или в цикле for. Она вызывает немедленное прерывание цикла с передачей управления первой команде, следующей после тела цикла. То есть,

for i = 1 to 100 do

if a[i] = x then

location = i

exit

end if

end for

Очень часто также можно видеть следующий вариант использования этой команды:

constant TRUE = 1

while TRUE do

...

if some_condition then

exit

end if

...

end while

То есть, это "бесконечный" цикл while, который прерывается командой exit в некоторой характерной точке в теле цикла.

Примечания о производительности: В Euphoria этот бесконечный тип цикла оптимизирован. Во время прогона программы никакие повторные проверки истинности выражения в команде while уже не выполняются, а совершается простой безусловный переход от end while обратно к первой команде внутри тела цикла. Если вам случится попасть в настоящий бесконечный цикл с интерпретатором ex.exe, когда не выполняются операции ввода/вывода, знайте, что простого пути остановить этот цикл не существует. Вы должны будете одновременно нажать клавиши Control-Alt-Delete, чтобы перезагрузиться под DOS, или прервать свой сеанс DOS под Windows. Если программа имела файлы, открытые на запись, будет полезно после перезагрузки запустить scandisk, чтобы проверить исправность своей файловой системы. Только если ваша программа ожидает ввода с клавиатуры, комбинация Control-c может прервать её исполнение (если вами не была выдана команда allow_break(0)).

С интерпретаторами exw.exe или exu комбинация control-c всегда работает и немедленно прервёт вашу программу, если у вас есть в этом необходимость.

2.6 Специальные команды высшего уровня

Перед тем, как исполнять любую из ваших команд, интерфейсный блок интерпретатора Euphoria быстро читает всю вашу программу полностью от начала и до конца. Все ваши команды проверяются синтаксически и преобразуются в низкоуровневый код на промежуточном языке (IL). Затем исполнительный блок интерпретатора немедленно приступает к исполнению кода IL, размещённого в оперативной памяти. Биндер/шроудер записывает код IL в файл .il на диск для последующих немедленных исполнений с отдельным исполнительным блоком. Транслятор преобразует код IL в код C и записывает программу C на диск. Во всех этих трёх методах преобразования текста исходного кода Euphoria используется один и тот же интерфейсный блок (написанный на Euphoria).

Если ваша программа содержит только объявления подпрограмм и переменных, но не имеет команд высшего уровня, то после её запуска не произойдёт ровно ничего (кроме, конечно, проверки синтаксиса и формирования кода IL). Поэтому в вашей программе должна быть хотя бы одна команда высшего уровня, например, вызывающая вашу главную подпрограмму на исполнение (см. 1.1 Пример программы). Возможны программы, в которых нет ничего, кроме исполняемых команд высшего уровня, без каких бы то ни было подпрограмм. Например, вы можете использовать Euphoria как простой калькулятор, записав просто несколько команд print() (или ?) с выражениями в файл, и затем исполняя его.

Как мы уже видели, на высшем уровне вы можете использовать почти любую команду Euphoria, включая циклы for, циклы while, команды if и так далее (но не return). Высший уровень - это уровень вашего главного файла на тех участках его текста, которые не относятся к определению подпрограмм, то есть вне тела любых ваших функций или процедур. Но имеется несколько специальных команд, которые могут появиться в вашей программе только на высшем уровне, это:

* include

* with / without

2.6.1 include (учесть, включить)

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

include filename По этой команде считывается (компилируется) необходимый вам файл исходного кода Euphoria, имеющий некоторое имя filename. Несколько примеров:

include graphics.e

include \mylib\myroutines.e

* Любой код, расположенный на высшем уровне включаемого файла, будет исполнен. Любые глобальные (global) имена, которые уже были объявлены и определены в вашем главном файле перед включением, будут видны и во включенном файле. Примечание: Но только те из имён, которые объявлены и определены во включаемом файле с ключевым словом global, будут видны и доступны в той части программы, которая следует за командой include. Если задано абсолютное имя файла filename, Euphoria просто откроет файл и начнёт в нём проверку правописания кода. Если задано относительное имя файла filename, Euphoria будет пытаться найти и открыть файл относительно следующих каталогов (директорий) в следующем порядке: Каталог, содержащий текущий файл исходного кода, т.е. файл, который содержит отрабатываемую в данный момент команду include ...

* Каталог, содержащий главный файл, заданный в командной строке интерпретатора, транслятора или биндера (шроудера) ...

Если вы задали на своей машине переменную окружения EUINC, Euphoria будет проверять каждый из каталогов, перечисленных в EUINC (слева направо). Переменная EUINC должна задавать список каталогов, отделённых один от другого точкой с запятой (двоеточием на Linux/FreeBSD), подобно тому, как это делается для переменной PATH. Переменная EUINC может быть добавлена в набор переменных окружения вашей операционной системы Linux/FreeBSD или DOS/Windows. (Через Control Panel/Performance & Maintenance/System/Advanced на XP, или AUTOEXEC.BAT на более старых версиях Windows), то есть,

SET EUINC=C:\EU\MYFILES;C:\EU\WIN32LIB

* Переменная EUINC позволяет вам организовать свою систему библиотек Euphoria в соответствии с потребностями конкретных программных проектов, не забивая многочисленными нестандартными библиотеками официальный каталог euphoria\include.

* И, наконец, если заданный в команде include файл всё ещё не найден, Euphoria проверит каталог euphoria\include. Этот каталог содержит стандартные официальные включаемые файлы (библиотеки) Euphoria. Переменная окружения EUDIR подскажет Euphoria, где искать (и под каким именем вы назначили) главный каталог, содержащий систему Euphoria, на ваших дисках (это может быть, если вы хотите, не euphoria, а eu или RDS_EU, или ещё какой-то каталог, который вам более удобен).

Включаемый файл может в свою очередь также включать другие файлы. Фактически вы можете использовать до 30 последовательных уровней "вложения" включаемых файлов. Включаемый файл обычно имеет расширение .e, но иногда это может быть .ew или .eu (когда файл предназначен именно для платформы Windows или Linux/FreeBSD). Так просто принято, но это не обязательное требование. Если filename (или путь) содержат в имени символы пробела, вы должны заключить filename в двойные кавычки. В других случаях кавычки необязательны. Не забывайте сдваивать косую черту. Например:

include "c:\\program files\\myfile.e"

Если не задан специальный идентификатор пространства имён (см. ниже), команда include будет безмолвно игнорировать те полностью идентичные файлы, которые уже однажды были в программу включены. Команда include должна быть записана в отдельной строке. В той же строке допускается только комментарий, но не другие команды. Вторая форма команды include записывается следующим образом:

include filename as namespace_identifier Ко всем свойствам обычной include во второй форме прибавляется возможность объявления префикса пространства имён, который может быть прибавлен перед глобальными именами, объявленными в данном включаемом файле, когда к ним производится обращение из текущего главного файла. Эти префиксы могут быть необходимыми, чтобы исключить двусмысленности с некоторыми именами, или вы находите, что ваш код становится с ними более ясным. См. раздел 2.4.2 Сцена (область видимости), чтобы вспомнить другие детали об этих префиксах.

2.6.2 with / without (с / без)

Эти специальные команды (метакоманды) управляют способами, которыми Euphoria транслирует вашу программу во внутреннюю форму (IL). Они не меняют общую логику вашей программы, но влияют на диагностическую информацию, которую вы получаете при исполнении вашей программы. См. также раздел 3. Отладка и профилирование, там есть дополнительные сведения об этих командах.

with Данная команда включает исполнение программы в один из режимов: profile (профиль), profile_time (профиль_времени), trace (трасса), warning (предупреждение) или type_check (проверка_типа) . Режимы warning и type_check включены по умолчанию, тогда как profile, profile_time и trace по умолчанию выключены. Все предупреждения, скопившиеся во время исполнения вашей программы, выводятся на экран после окончания исполнения кода программы. Предупреждения указывают на очень незначительные погрешности в коде и никогда не прерывают выполнение программы. without Данная команда выключает один из отмеченных выше режимов. Имеется также редкий в настоящее время режим with, который обозначается кодовым числом, следующим непосредственно за словом with. В предыдущих версиях Euphoria эти кодовые числа использовались исключительно RDS для сброса счётчика числа команд в редакции "Public Domain".

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

Во включенном файле наследуются заданные установки with/without по состоянию на тот момент, в той точке, где записана команда include. Во включенном файле эти установки могут измениться, но они вернутся к своему оригинальному состоянию по окончании исполнения включенного файла. Например, библиотечный файл может выключить предупреждения для себя самого и (в первый момент) для всех библиотек, которые он сам использует, но он не может выключить таким же образом предупреждения, если они включены и действуют в главном файле.

...

3. Отладка и профилирование

3.1 Отладка

Отладка программ в Euphoria значительно проще, чем в большинстве других языков программирования. Широкие проверки правильности работы программы, обеспечиваемые интерпретатором Euphoria, отлавливают множество таких ошибок, которые могли бы в других языках занять у вас часы на их выявление и исправление. Когда интерпретатор останавливает вашу программу из-за возникшей ошибки, вы всегда получаете на экране краткое сообщение о причине остановки и детальный отчёт в файле, который называется ex.err. В совокупности это сообщение и файл дают полное описание того, что случилось, плюс всю цепочку вызовов подпрограмм, приведшую к аварии. В файле ex.err будет также распечатка величин всех переменных вашей программы и, при необходимости, перечень последних выполненных команд. Слишком длинные ряды распечатываются частично. Если файл ex.err вам почему-то не очень удобен, вы можете выбрать другое имя файла, расположив его в любом месте на вашей системе, но для этого придётся вызвать процедуру crash_file().

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

Иногда программа будет вести себя неправильно, но все проверки, выполняемые интерпретатором во время её работы, будут проходить нормально, не вызывая аварийных остановок. В любом языке программирования в таких случаях может быть хорошей идеей просто ещё раз изучить исходный код и ещё раз продумать алгоритм, который вы запрограммировали. Может оказаться полезной простая вставка команд печати в стратегических точках, чтобы проследить в них внутреннюю логику программы. Этот подход особенно удобен в интерпретируемых языках, подобных Euphoria, так как вы можете просто отредактировать код и перезапустить программу без необходимости каждый раз ожидать перекомпиляции/перекомпоновки.

Интерпретатор обеспечивает вас дополнительными мощными инструментами для отладки. Используя команду trace(1), вы можете наблюдать трассу исполнения вашей программы на одном экране, а на другом - следить за выводимыми ею численными, текстовыми или графическими данными. Команда trace(2) даёт тот же эффект, что и trace(1), но экран трассировки будет монохромным. Наконец, trace(3) выводит все выполненные команды в файл журнала, который называется ctrace.out.

Специальные команды with trace / without trace задают те части вашей программы, которые вы решили трассировать. Часто вы будете просто вставлять команду with trace в самом начале своего исходного кода, чтобы предусмотреть сквозную трассировку всей программы. Но иногда будет лучше, если вы поставите первую with trace после всех ваших собственных типов, так, чтобы не попадать при трассировке внутрь тела типов после каждого присваивания новой величины каждой из ваших переменных. В некоторых других случаях вы будете точно знать, какую подпрограмму или подпрограммы желательно было бы трассировать, и вам будет необходимо отобрать для трассировки только именно их. Конечно, находясь в окне трассировки (на экране трассировки), вы можете пропустить просмотр исполнения любой подпрограммы, нажав на клавиатуре клавишу со стрелкой вниз вместо Enter.

В файле ctrace.out или в файле ex.err для трассируемых строк кода предусмотрен вывод сообщения "Traced lines leading up to the failure" - "Трассируемые строки, предшествовавшие отказу", если во время работы программы произойдёт аварийная остановка из-за обнаруженной ошибки. Если вам необходима эта информация, но вы не получаете её, необходимо вставить в код команду with trace, а затем перезапустить программу. Работа программы замедляется на тех участках кода, которые откомпилированы с метакомандой with trace, особенно, когда для включения (активации) трассировки используется команда trace(3).

После того, как участок кода, подлежащий трассировке, выделен метакомандами, ваша программа должна затем динамически активировать (включать) процесс трассировки командой trace(). Вы можете просто написать:

with trace

trace(1)

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

if x then

trace(1)

end if

Аналогично, вы можете выключить (деактивировать) трассировку командой trace(0). Вы можете также выключить трассировку интерактивно, с клавиатуры, нажав клавишу 'q'. Не забывайте, что метакоманда with trace должна быть записана вне тела подпрограммы, т.е. на высшем уровне кода, в то время как команды активации trace() можно писать и внутри подпрограмм, и вне их.

Иногда вам будет необходимо активировать трассировку изнутри типа. Предположим, что вы запускаете программу, а она останавливается с файлом ex.err, из которого следует, что одна из ваших переменных приняла некоторое странное значение, величина которого хотя и законна, но вас удивляет, как это вообще могло произойти. Просто создайте тип для этой переменной, в котором команда trace(1) выполняется, если присваиваемая переменной величина принимает то странное значение, которое так вас заинтересовало, то есть,

type positive_int(integer x)

if x = 99 then

trace(1) -- как это может быть???

return 1 -- продолжать

else

return x 0

end if

end type

Когда positive_int() завершится, вы увидите именно ту команду, которая присвоила вашей переменной странное значение, и тогда сможете проверить величины других переменных, вовлечённых в это действо. Вы сможете также проверить выходной экран вашей программы, чтобы увидеть, что происходит именно в этот момент. Если вы определите positive_int() так, чтобы для странной величины (99) выдавался 0 вместо 1, это вызовет остановку программы с распечаткой диагностической информации в файл ex.err.

3.1.1 Экран трассировки

Когда команды trace(1) или trace(2) исполняются интерпретатором, главный экран вашей программы сохраняется в памяти и на отображение выводится экран трассировки. На нём показан текст вашей программы; команда, которая подлежит исполнению на следующем шаге, выделена в тексте; одновременно в обычном цвете показаны несколько предшествующих и последующих команд. Несколько строк внизу экрана оставлены для отображения имён переменных и их значений. В самой верхней строке (меню) показаны команды, которые вы можете в данной точке ввести с клавиатуры:

F1

-

отобразить главный экран программы - для просмотра той информации, которую выводит ваша программа

F2

-

вернуться на экран трассировки. Нажмите эту клавишу, если после просмотра главного экрана программы вам необходимо снова вывести экран трассировки.

Enter

-

исполнить только выделенную в тексте программы команду

стрелка-вниз

-

продолжить исполнение и прервать его, когда придёт время исполнить команду, следующую в листинге исходного кода высшего уровня за данной командой. Этот пункт меню позволяет вам пропускать трассировку внутренних команд подпрограмм, а также останавливаться на первой команде, следующей за окончанием циклов for и while, если нет необходимости смотреть на все подряд шаги циклов.

?

-

отобразить величину переменной. После нажатия на клавишу ? вы будете приглашены ко вводу имени переменной. Многие переменные отображаются для вас автоматически по мере присваивания им очередных величин. Если переменная в данный момент не видна, или видна только частично, вы можете вызвать её на отображение отдельно. Длинные ряды ограничиваются одной строкой экрана, но когда вы вызываете ряд на отображение, экран очистится и вы сможете прокрутить ряд, выведенный на отображение с помощью pretty_print(). Затем отображение вернётся в обычный режим с одной строкой под переменную. Переменные, ещё не объявленные в данной точке программы, не могут быть показаны. Переменные, которые ещё не инициализированы, после имени обозначаются как "". Отображаются только переменные, но не общие выражения. По мере вашего продвижения по программе, система обновляет все величины, выведенные на экран. Периодически она будет удалять с экрана переменные, сцена которых закончилась или которые довольно долго (в сравнении с быстроменяющимися) не изменяли своего значения.

q

-

прервать трассировку и возобновить обычное исполнение. Трассировка восстановится, когда интерпретатор встретит очередную команду trace(1) и исполнит её.

Q

-

прервать трассировку и позволить программе исполняться в обычном порядке до самого завершения. Команды trace() интерпретатором будут игнорироваться.

!

-

команда немедленно прерывает вашу программу. Трасса недавних последних команд программы и распечатка величин переменных выводятся в файл ex.err.

По мере трассировки вашей программы, имена переменных и их величины будут автоматически появляться в нижней части экрана. Когда переменной присвоено новое значение, вы увидите её имя и новую величину в нижней строке. Отображаемая величина переменной всегда соответствует её текущему значению. Частные переменные автоматически стираются с экрана, как только подпрограмма закончилась. Когда область, выделенная для показа переменных, заполняется, наиболее давние переменные удаляются с экрана, чтобы освободить место для новых. Величины элементов в длинных рядах не отображаются, если уходили бы на экране за пределы 80-ой колонки.

Для вашего удобства, числа, которые находятся в диапазоне кодов символов (32-127) таблицы ASCII, отображаются вместе с собственно символом ASCII. Символ ASCII подсвечивается другим цветом (или забирается в кавычки на монохромном дисплее). Такое преобразование делается для всех переменных, так как Euphoria "не знает", о чём вы на самом деле думаете, о числах или о символах ASCII. Символы ASCII (в кавычках) также выводятся и в файл ex.err. Это дублирование несколько переполняет экран, но информация ASCII часто бывает очень полезной.

Экран трассировки адаптируется к тому графическому режиму, который действует для главного экрана программы. Адаптация делает переключение между экранами более быстрым и лёгким.

Когда по ходу дела в трассируемой программе требуется ввод данных с клавиатуры, открывается главный экран, чтобы дать вам возможность произвести ввод данных так, как вы это обычно делаете. Этот приём хорошо работает с подпрограммой gets(), обеспечивающей ввод (чтение одной строки). А когда задействована подпрограмма get_key() (быстрый опрос клавиатуры), вам даётся 8 секунд, чтобы нажать необходимую клавишу, и если клавиша не нажата, считается, что по данному вызову get_key() ввода не последовало. Этот приём даёт вам возможность проверить случай, когда ввод был, и случай, когда ввода по get_key() не было.

3.1.2 Файл трассировки

Когда ваша программа вызывает trace(3), активируется трассировка в файл. В текущем каталоге открывается файл ctrace.out. В нём записываются последние 500 команд Euphoria, которые выполнены по вашей программе. Здесь работает круговой буфер, в котором содержится максимум 500 команд. Когда достигнут конец ctrace.out, следующая исполненная команда записывается в начале файла. Самая последняя исполненная команда всегда сопровождается строкой "=== THE END ===". Поскольку буфер круговой, запись о последней исполненной команде может появиться в любом месте файла ctrace.out. Команда, записанная перед строкой "=== THE END ===" в уже очень длинном файле, является 500-ой в буфере, последней.

Данная форма трассировки поддержана и интерпретатором, и транслятором с Euphoria на Си. Она бывает особенно полезна, когда случается аврийная остановка на машинном уровне, препятствующая Euphoria в записи обычного диагностического файла ex.err. Взглянув на последнюю перед аварией выполненную команду, вы можете составить обоснованное предположение о причине аварии. Возможно, этой последней командой был вызов poke() по незаконному адресу в памяти. Возможно, это был вызов подпрограммы Си. В некоторых случаях это может быть сигналом о наличии ошибки в собственно интерпретаторе или трансляторе.

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

3.2 Профилирование

Профилирование включается командой with profile (DOS32, WIN32, Linux, FreeBSD) или командой with profile_time (только DOS32). В результате профилирования вашей программы вы получите специальную её распечатку, которая называется профиль и которая по окончании работы программы вырабатывается интерпретатором и записывается в специальном файле листинга ex.pro. Файл листинга располагается в текущем каталоге.

Имеется два режима профилирования: по счётчику, и по времени. Первый режим, по счётчику, работает, когда вы пишете with profile. Второй режим, по времени, работает, когда вы пишете with profile_time. Вы не можете смешивать эти два режима в единственном прогоне своей программы. Чтобы получить оба профиля, вам потребуется два отдельных её прогона.

Мы осуществили прогон нашей программы sieve8k.ex (программа проверки производительности из каталога demo\bench) и в том, и в другом режиме профилирования. Результаты можно видеть в файлах sieve8k.pro (по счётчику) и sieve8k.pro2 (по времени).

Профилирование по счётчику показывает совершенно точно, сколько раз за время работы вашей программы была выполнена каждая из заданных в ней команд. Если команда не была ни разу выполнена, поле показаний счётчика остаётся пустым.

Профилирование по времени (только для DOS32) показывет приближённую оценку процента общего времени, израсходованного программой на выполнение каждой команды. Если команда ни разу не попала в выборку, поле для записи процента времени останется пустым. Если вы видите в этом поле 0.00, это означает, что команда в выборку попадала, но процент времени, затраченный на её выполнение, не достигает 0.01.

В файл листинга попадут только те команды, которые откомпилированы после записи with profile или with profile_time. Обычно вы будете указывать with profile или with profile_time в самом начале вашего главного файла .ex, чтобы получить в листинге полный отчёт по всем командам. В редакторе Euphoria этот файл имеет раскрашенный синтаксис.

Профилирование может во многом помочь вам отполировать вашу программу до блеска:

* позволяет вам ясно видеть команды, которые исполняются наиболее напряжённо и требуют к себе особого внимания с точки зрения оптимизации и ускорения кода

* даёт вам возможность убедиться, что ваша программа на самом деле работает именно так, как вы это задумали

* может снабдить вас статистикой по входным данным

* покажет вам, какие участки кода никогда не были даже проверены - не пускайте ваших пользователей впереди себя в очереди за такой пикантной новостью!

Иногда вы захотите сосредоточить своё внимание на детальном разборе определённого действия, выполняемого вашей программой. Например, в игре Language War мы обнаружили, что игра, в общем-то достаточно быстрая, сильно тормозится во время отображения взрыва планеты, разбрасывая 2500 пикселов по всем возможным направлениям. Мы решили, что неплохо было бы разогнать подпрограмму взрыва. Нас не заботил остальной код, так как там скорость была вполне сносной. Мы дали команду profile(0) в самом начале игры, сразу после метакоманды with profile_time, чтобы остановить профилирование, а затем мы вставили команду profile(1) в начале подпрограммы взрыва и команду profile(0) в конце этой подпрограммы. Таким образом, мы могли исполнять игру, создавая многочисленные взрывы и журналируя множество выборок исключительно по эффекту взрыва. Если выборки изменялись и по другим подпрограммам более низкого уровня, мы знали, что те выборки были взяты во время взрыва. Если бы мы просто отслеживали профиль для целой программы, картина не была бы слишком ясной, так как подпрограммы более низкого уровня также использовались для передвижения кораблей, рисования трасс фазоров и т.д. Команда profile() может помочь точно таким же манером, когда вы производите и профилирование по счётчику.

3.2.1 Примечания о профилировании по времени

С каждым тиком и таком системных часов генерируется так называемое прерывание от таймера. Когда вы пишете with profile_time, Euphoria будет брать выборки из вашей программы и смотреть, какая команда выполнялась на момент каждого прерывания от таймера.

Эти прерывания обычно поступают с частотой 18.2 раза в секунду, но если вы вызвали подпрограмму tick_rate(), вы можете выбрать намного более высокую частоту прерываний и, таким образом, получить более точный профиль по времени, так как он будет базироваться на большем числе выборок. По умолчанию, если вы не вызвали tick_rate(), автоматически будет вызвано tick_rate(100), как только вы начали профилирование. Вы можете установить частоту ещё более высокой (скажем, до 1000), но тогда не исключено, что производительность вашей программы снизится.

Каждая выборка требует 4-х байтов в памяти и буфер организуется обычно под 25000 выборок. Если вам необходимо больше, чем 25000 выборок, вы можете затребовать необходимый объём буфера:

with profile_time 100000

В этом случае зарезервируется пространство под 100000 выборок (к примеру). Если буфер переполняется, выдаётся предупреждение (в начале файла ex.pro). На частоте 100 выборок в секунду ваша программа может исполняться 250 секунд, пока не будет израсходован стандартный буфер на 25000 выборок. В Euphoria нет возможности динамического увеличения объёма буфера во время обработки прерывания. Именно поэтому вы должны задавать увеличение буфера сверх стандартного объёма в своей программе. Но после завершения каждой исполняемой команды высшего уровня Euphoria будет обрабатывать накопленные выборки, освобождая буфер для других выборок. Таким образом, профиль может базироваться на большем числе выборок, чем то, под которое вы фактически зарезервировали пространство.

Процент, показанный на левом поле в файле ex.pro, расчитывается путём отнесения числа выборок, пришедшихся на каждую данную команду, к общему числу взятых выборок, следовательно, если на команду пришлось 50 выборок из общего числа 500 выборок, то в поле, относящемся к этой команде, появится величина 10.0 (10 процентов). Когда профилирование остановлено командой profile(0), прерывания игнорируются, выборки не берутся, и общее число выборок не нарастает.

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

while time() do

end while

x += 1 -- эта команда не будет давать выборок

Иногда вы можете встретить значительный процент времени, уходящий на команду return. Такое обычно случается из-за освобождения большого объёма памяти, выделенного под временные и частные переменные, используемые внутри подпрограммы. Значительное время может занимать также процесс высвобождения памяти, когда присваивается новая величина большому ряду.

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

...

Часть II - Библиотека подпрограмм

1. Введение

В этом документе вы найдёте описание множества подпрограмм. Некоторые из них встроены непосредственно в интерпретаторы ex.exe, exw.exe и exu. Другие написаны на Euphoria и, чтобы воспользоваться ими, вы должны будете включать в свою программу стандартные библиотечные .e-файлы, расположенные в каталоге euphoria\include. В этих случаях необходимый библиотечный файла указывается в графе "Синтаксис" описания подпрограммы. Конечно, библиотечный файл требует только однократного включения в вашу программу. Встроенные подпрограммы, не требующие библиотечных файлов, отображаются редактором в малиновом цвете. Вы можете переопределять эти встроенные подпрограммы, создавая свои собственные подпрограммы под теми же самыми именами. Интерпретатор предупредит вас о переопределении сообщением, вывод которого может быть вами отменён.

Чтобы показать, какой тип объекта должен быть подан в подпрограмму или выдаётся ею, в описаниях используются следующие обозначения, непосредственно к синтаксису не относящиеся:

x

- общий объект (object) (атом или ряд)

s

- ряд (sequence)

a

- атом (atom)

i

- целое (integer)

fn

- целое (integer), используемое как номер файла

st

- символьный ряд, строка (sequence), или односимвольный атом

Некоторые подпрограммы доступны только на одной или двух из четырёх платформ. В описаниях такие подпрограммы обозначены как "Платформа: DOS32" или "Платформа: WIN32" или "Платформа: Linux". В некоторых других местах вы можете встретить пометки (DOS32) или (WIN32) или (Linux). Подпрограммы, работающие на Linux, в общем случае работают и на FreeBSD. Единственное исключение относится к управлению мышью.

Если в подпрограмму будет подан аргумент с недопустимой величиной, работа вашей программы прервётся с сообщением об ошибке.

2. Предназначение подпрограмм

2.1 Стандартные типы

Предопределённые стандартные типы служат не только для объявления с ними переменных, но вы можете также вызывать их подобно обычным функциям, чтобы проверить, что переменная принадлежит к данному типу.

integer (целое)

- проверяет, что объект имеет тип integer

atom (число)

- проверяет, что объект имеет тип atom

sequence (ряд)

- проверяет, что объект имеет тип sequence

object (объект)

- проверяет, что объект имеет тип object (всегда истина)

2.2 Манипулирование рядами

length (длина)

- выдаёт длину ряда

repeat (повторить)

- повторяет элемент n раз и выдаёт ряд длины n

reverse (повернуть)

- поворачивает ряд так, что первые элементы занимают место последних

append (добавить)

- добавляет новый элемент после конца ряда

prepend (прибавить)

- прибавляет новый элемент перед началом ряда

2.3 Сравнение, поиск и сортировка

compare (сравнить)

- сравнивает два объекта

equal (равно)

- проверяет два объекта на идентичность

find (найти)

- ищет объект в ряде - начало поиска с первого элемента

find_from (найти_от)

- ищет объект в ряде - начало поиска с заданного элемента

match (сопоставить)

- ищет ряд как отрезок другого ряда - начало поиска с первого элемента

match_from (сопоставить_от)

- ищет ряд как отрезок другого ряда - начало поиска с заданного элемента

sort (сортировать)

- сортирует элементы ряда в порядке возрастания

custom_sort (сортировать_как)

- сортирует элементы ряда, основываясь на заданной вами функции сравнения

2.4 Преобразование и сопоставление образцов

lower (нижний_регистр)

- преобразует атом или ряд к нижнему регистру

upper (верхний_регистр)

- преобразует атом или ряд к верхнему регистру

wildcard_match (искать_в_строке_с_догадками)

- сопоставляет строку с заданным образцом, содержащим символы догадок ? и *

wildcard_file (искать_имя_файла_с_догадками)

- сопоставляет имя файла с заданным образцом, содержащим символы догадок

2.5 Математика

Эти подпрограммы работают с отдельными атомами или рядами величин. См. Часть I - Ядро языка - Операции на рядах.

sqrt (корень)

- вычисляет квадратный корень объекта

rand (случайные_числа)

- выдаёт случайные числа

sin (синус)

- вычисляет синус угла

arcsin (арксинус)

- вычисляет угол для данного синуса

cos (косинус)

- вычисляет косинус угла

arccos (арккосинус)

- вычисляет угол для данного косинуса

tan (тангенс)

- вычисляет тангенс угла

arctan (арктангенс)

- вычисляет угол для данного тангенса

log (логарифм)

- вычисляет натуральный логарифм

floor (целая_часть)

- округляет вниз до ближайшего целого

remainder (остаток)

- вычисляет остаток от деления двух чисел

power (степень)

- вычисляет число, возведённое в степень

PI (Пи)

- число PI (Пи) (3.14159...)

2.6 Битовые логические операции

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

and_bits (И_побитно)

- выполняет логическое AND (И) над соответствующими битами

or_bits (ИЛИ_побитно)

- выполняет логическое OR (ИЛИ) над соответствующими битами

xor_bits (НО_побитно)

- выполняет логическое XOR (исключающее ИЛИ, НО) над соответствующими битами

not_bits (НЕ_побитно)

- выполняет логическое NOT (НЕ) над всеми битами

2.7 Ввод/вывод для файлов и устройств

Чтобы произвести операции ввода/вывода в файл или на устройство, вы должны сначала открыть файл или устройство для этих операций, а уже затем применять подпрограммы, описываемые ниже, для ввода и вывода (записи и чтения). По окончании операций чтения или записи вы должны закрыть файл или устройство. Подпрограмма open() выдаст вам номер файла, который вы должны использовать как первый аргумент в других подпрограммах ввода/вывода. Ряд вполне определенных файлов/устройств открыт для вас автоматически (на манер текстовых файлов):

0 - стандартный ввод 1 - стандартный вывод 2 - стандартная ошибка Если вы не переопределили направление в командной строке, стандартный ввод производится с клавиатуры, стандартный вывод и стандартная ошибка поступают на экран. Когда вы пишете что-либо на экране, запись выполняется немедленно без какой бы то ни было буферизации. Если же вы пишете в файл, символы сначала поступают в буфер, сформированный в оперативной памяти, пока не накопится пакет, который затем весь быстро выводится в файл. Когда вы применяете к файлу или устройству процедуры close() или flush(), все находящиеся в буфере символы, даже если пакет не накопился, немедленно выводятся. Ввод из файлов также производится через буфер. Когда ваша программа завершается, все файлы, остававшиеся к этому моменту открытыми, закрываются автоматически. Примечание: Если при исполнении программы (написанной на Euphoria или любом другом языке) имелись файлы, открытые на запись, а вы, не выходя из программы, произвели сброс и перезагрузку компьютера (или это произошло по любой другой причине, например, при исчезновении питания в силовой сети), необходимо немедленно по окончании загрузки запустить программу scandisk для исправления возможных в таких ситуациях повреждений файловой системы на тех дисках, куда выполнялась запись в момент сброса вашей машины. Современные операционные системы в таких случаях могут автоматически запускать scandisk или аналогичное средство. Никогда не отказывайтесь, если операционная система предлагает проверить ваши диски.

open (открыть)

- открывает файл или устройство

close (закрыть)

- закрывает файл или устройство

flush (вытолкнуть_буфер_в_)

- выталкивает остаток данных из буфера в файл или на устройство

lock_file (запереть_файл)

- запирает файл или устройство (для других программ)

unlock_file (отпереть_файл)

- отпирает файл или устройство (для других программ)

print (печатать)

- печатает объект Euphoria вместе со скобками и запятыми, {,,}, чтобы показать его структуру

pretty_print (печатать_столбцом)

- печатает объект Euphoria в удобной для просмотра форме, располагая элементы в несколько строк столбцом с соответствующими отступами

? x

- короткий вариант для pretty_print(1, x, {})

sprint (печатать_в_строковый_ряд)

- выдаёт отпечатанный объект Euphoria в виде символьного ряда

printf (печатать_в_формате)

- выполняет форматированную печать в файл или на устройство

sprintf (печатать_в_ряд_в_формате)

- выдаёт отформатированный отпечатанный объект Euphoria в виде символьного ряда

puts (вывести)

- выводит символьный ряд (ряд байтов) в файл или на устройство

getc (получить_байт)

- читает следующий очередной символ (байт) из файла или с устройства

gets (получить_строку)

- читает следующую очередную строку из файла или с устройства

get_bytes (получить_байты)

- читает следующие очередные n байтов из файла или с устройства

prompt_string (ввести_строку)

- приглашает пользователя к вводу строки символов (текста) с клавиатуры

get_key (получить_клавишу)

- проверяет, какая клавиша была нажата на клавиатуре, не ждет нажатия

wait_key (ждать_клавишу)

- ждет нажатия на клавишу

get (получить)

- читает следующий очередной объект Euphoria из файла

prompt_number (ввести_число)

- приглашает пользователя к вводу числа с клавиатуры

value (величина)

- читает строковое представление объекта Euphoria, преобразует в величину

seek (перейти)

- переходит на заданную байтовую позицию в открытом файле

where (где)

- выдаёт текущую байтовую позицию в открытом файле

current_dir (текущий_каталог)

- выдаёт имя текущего каталога (директории, фолдера, папки)

chdir (изменить_каталог)

- делает заданный каталог текущим

dir (каталог)

- выдаёт полную информацию по всем файлам в каталоге

walk_dir (пройти_каталог)

- рекурсивно проходит все файлы в каталоге, обрабатывая их

allow_break (разрешить_стоп)

- разрешает остановку вашей программы по нажатию клавиш control-c / control-Break или запрещает её

check_break (проверить_стоп)

- проверяет, нажимались ли клавиши control-c или control-Break

2.8 Управление мышью (DOS32)

Примечание: На платформе Windows XP, если вы хотите, чтобы мышь DOS работала в окне (не-полный-экран), вы должны выключить режим QuickEdit, воспользовавшись опцией Properties для окна DOS.

get_mouse (что_с_мышью)

- выдаёт информацию о "мышиных событиях" (щелчки, движения)

mouse_events (отслеживать_мышь_по_)

- задаёт мышиные события, подлежащие отслеживанию

mouse_pointer (указатель_мыши)

- включает или выключает отображение указателя (курсора) мыши

2.9 Взаимодействие с операционной системой

time (время)

- выдаёт время в секундах, прошедшее от момента старта данной программы

tick_rate (частота_часов)

- устанавливает число прерываний от таймера в секунду (DOS32)

date (дата)

- выдаёт в виде ряда информацию о текущих дате и времени

command_line (командная_строка)

- выдаёт командную строку, которой запущена данная программа

getenv (получить_окружение)

- выдаёт значение заданной переменной окружения

system (команда_ОС)

- запускает на исполнение командную строку операционной системы

system_exec (внешняя_программа)

- запускает на исполнение дочернюю программу и выдаёт код её завершения

abort (прервать)

- прерывает исполнение данной программы

sleep (спать)

- приостанавливает исполнение данной программы на заданное время

platform (платформа)

- выдаёт код операционной системы, на которой исполняется данная программа

2.10 Специальные низкоуровневые подпрограммы

machine_func (машинная_функция)

- выполняет специализированные внутрибиблиотечные операции с выдачей величины

machine_proc (машинная_процедура)

- выполняет специализированные внутрибиблиотечные операции без выдачи величины

2.11 Отладка

trace (трасса)

- динамически включает и выключает трассировку

profile (профиль)

- динамически включает и выключает профилирование

2.12 Графика и звук

Подпрограммы этой группы позволяют вам отображать информацию на экране. Под DOS экран может быть включен в разнообразные графические режимы. Все доступные графические режимы распадаются на два основных типа. В текстовых режимах экран делится на строки, в каждой из которых может быть размещено определённое число символов. В текстовых режимах вы можете отображать текстовую и цифровую информацию и пользоваться символами псевдографики для формирования таблиц, выбирая цвета фона и переднего плана. В пиксельных режимах экран делится на множество точек, вплотную прилегающих одна к другой, так называемых "пикселов". Пикселам можно назначать различные цвета. В пиксельных режимах вы можете отображать линии, окружности, точки, но одновременно и текст, и псевдографику. Те пикселы, координаты которых лежали бы за пределами экрана в заданном режиме, автоматически исключаются из изображения, не вызывая аварийной остановки программы. Но попытка напечатать символ за пределами числа строк и столбцов, допускаемых заданным текстовым или пиксельным режимом, приводит к аварийной остановке программы. Текстовые режимы работают многократно быстрее пиксельных, но не обеспечивают доступ к каждому отдельному пикселу, а только к целым символам.

Для DOS32 имеется подпрограмма, которая может генерировать звуки на встроенном громкоговорителе вашего компьютера. Чтобы извлекать из машины практически любые необходимые вам звуки, получите библиотеку Sound Blaster, разработанную Жаком Дешеном. Она доступна на Web-узле RDS.

Нижеследующие подпрограммы работают во всех текстовых и пиксельных режимах:

clear_screen (очистить_экран)

- очищает экран

position (знакоместо)

- устанавливает курсор на заданной строке в заданный столбец

get_position (выдать_позицию)

- выдаёт текущие строку и столбец, где находится курсор

graphics_mode (режим_экрана)

- включает новый экранный пиксельный или текстовый режим (DOS32)

video_config (видео_конфигурация)

- выдаёт параметры текущего экранного режима видеосистемы

scroll (прокрутка)

- прокручивает текст на экране вверх или вниз

wrap (перенос)

- задаёт поведение строки при достижении ею правой границы экрана

text_color (цвет_текста)

- задаёт цвет символов текста

bk_color (цвет_фона)

- задаёт цвет фона под текстом

palette (палитра)

- изменяет на экране цвет одного заданного номера на другой заданный цвет (DOS32)

all_palette (вся_палитра)

- изменяет на экране цвета всех номеров на другие заданные цвета (DOS32)

get_all_palette (получить_всю_палитру)

- выдаёт величины составляющих цветов для всех цветов текущей палитры (DOS32)

read_bitmap (читать_биткарту)

- читает биткарту (.bmp-файл) и выдаёт её палитру и двухмерный ряд пикселов

save_bitmap (сохранить_ряд_как_биткарту)

- создаёт биткарту (.bmp-файл), заданную палитрой и двухмерным рядом пикселов

get_active_page (получить_активную_страницу)

- выдаёт номер текущей активной страницы экрана (той, на которую ведётся запись) (DOS32)

set_active_page (установить_активную_страницу)

- переключает заданную по номеру страницу экрана в активное состояние (на запись) (DOS32)

get_display_page (получить_отображаемую_страницу)

- выдаёт номер текущей отображаемой страницы экрана (той, которая видна на экране) (DOS32)

set_display_page (установить_отображаемую_страницу)

- переключает заданную по номеру страницу экрана на отображение (DOS32)

sound (звук)

- генерирует заданный звук на встроенном излучателе компьютера (DOS32)

Нижеследующие подпрограммы работают только в текстовых режимах:

cursor (курсор)

- задаёт форму курсора клавиатуры (каретки)

text_rows (число_строк)

- задаёт число строк на текстовом экране

get_screen_char (получить_символ_с_экрана)

- выдаёт код и атрибут символа, расположенного на экране в заданной позиции

put_screen_char (поместить_символ_на_экран)

- выводит один или более символов на экран в заданной позиции с заданными атрибутами

save_text_image (сохранить_образ_текста_в_ряде)

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

display_text_image (вывести_образ_текста)

- выводит текст, содержащийся в заданном образе, на текстовый экран

Нижеследующие подпрограммы работают только в пиксельных режимах (DOS32):

pixel (точки)

- включает заданный пиксел или ряд пикселов в заданном цвете или цветах

get_pixel (цвет_точек)

- выдаёт текущий цвет заданного пиксела или ряда пикселов

draw_line (линия)

- соединяет заданные точки на экране линией

polygon (многоугольник)

- вычерчивает заданную n-стороннюю фигуру

ellipse (эллипс)

- вычерчивает заданный эллипс или круг

save_screen (сохранить_экран_в_файле)

- записывает содержимое экрана в файл биткарты (.bmp-файл)

save_image (сохранить_изображение_в_ряде)

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

display_image (вывести_изображение)

- выводит изображение, образ которого содержится в заданном ряде, на пиксельный экран

2.13 Интерфейс уровня машины

Здесь сгруппированы подпрограммы, которые пригодятся вам, если вы решите поработать со своей машиной на уровне машинных кодов. Предлагаемый интерфейс низкого уровня позволяет вам читать и записывать данные и код непосредственно в оперативной памяти. Это значит, что вы можете разрабатывать свои собственные подпрограммы в кодах машин 386+ и вызывать их на исполнение.

Некоторые из подпрограмм, перечисленных ниже, не являются безопасными в том смысле, что Euphoria не сможет подстраховать вас при некорректном их использовании. Вы рискуете "подвесить" свою программу, операционную систему или даже машину, если сделаете что-то не так, как следовало бы. Если под DOS32 вы обратитесь к негодным адресам в памяти, то в дело вступит расширитель DOS CauseWay, и вы получите от него на экране сообщение об ошибке плюс распечатку информации на машинной тарабарщине в файле cw.err. Под WIN32 операционная система выдаст вам обычную свою табличку о прерывании прогона вашей программы со скупым диагностическим сообщением плюс информацию из регистров процессора. Под Linux в типовом случае вы получите аварийную остановку программы и сообщение о нарушении сегментации.

Примечание: Чтобы помочь программистам в этих рискованных занятиях, мы поставляем библиотечный файл safe.e, как отладочную замену файла machine.e. Если вы скопируете safe.e из каталога euphoria\include\ в каталог, содержащий вашу программу, и переименуете safe.e как machine.e в этом вашем рабочем каталоге, ваша программа будет исполняться с использованием более безопасного, но и более медленного, варианта обычных подпрограмм низкого уровня. Этот safe.e может отловить многие ошибки, в том числе и такие, как запись в память по негодным адресам. Просмотрите комментарии в начале файла safe.e, чтобы получить полную инструкцию по его применению и оптимальному его конфигурированию под вашу программу. Подпрограммы интерфейса уровня машины очень важны для продвинутого программирования, так как они позволяют Euphoria-программистам получить доступ ко всем ресурсам, заложенным на низком уровне в ваше оборудование и вашу операционную систему. В некоторых особо ответственных случаях данная возможность может иметь решающее значение.

Подпрограммы в машинных кодах могут быть написаны вручную или же получены путем дизассемблирования выходных файлов компиляторов Си или некоторых других языков. Пит Эберлейн написал "мини-ассемблер" для использования с Euphoria. Просмотрите Архив файлов. Не забывайте, что ваш машинный код будет исполняться в 32-разрядном защищённом режиме. Просмотрите файл demo\dos32\callmach.ex, чтобы получить более конкретное представление о деталях этого дела.

peek (читать_из_памяти)

- выдаёт один или более байтов из памяти с заданного адреса

peek4s (читать_из_памяти_4_байта_и_знак)

- выдаёт 4-х байтовую величину со знаком из памяти с заданного адреса

peek4u (читать_из_памяти_4_байта_без_знака)

- выдаёт 4-х байтовую величину без знака из памяти с заданного адреса

poke (записать_в_память)

- записывает один или более байтов в память, начиная с заданного адреса

poke4 (записать_в_память_4_байта)

- записывает 4-х байтовую величину в память по заданному адресу

mem_copy (копировать_память)

- копирует в памяти последовательность байтов с одного заданного адреса по другому

mem_set (заполнить_память)

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

call (вызвать)

- вызывает на исполнение подпрограмму, написанную в машинных кодах

dos_interrupt (прерывание_dos)

- вызывает подпрограмму обработки прерывания DOS (DOS32)

allocate (выделить_память)

- выдаёт адрес свободного участка памяти заданного объёма

free (освободить_память)

- освобождает участок памяти, ранее выделенный по команде allocate

allocate_low (выделить_память_внизу)

- выдаёт адрес свободного участка нижней памяти (адреса менее 1Mb) (DOS32)

free_low (освободить_память_внизу)

- освобождает участок памяти, ранее выделенный по команде allocate_low (DOS32)

allocate_string (поместить_строку_в_память)

- размещает в памяти заданную строку с нуль-терминатором и выдаёт её адрес

register_block (учесть_блок)

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

unregister_block (вычеркнуть_блок)

- вычёркивает из списка безопасных ранее зарегистрированный блок памяти (см. выше)

get_vector (получить_адрес_вектора)

- выдаёт адрес обработчика прерывания (DOS32)

set_vector (установить_адрес_вектора)

- устанавливает адрес обработчика прерывания (DOS32)

lock_memory (запереть_память)

- предохраняет заданный блок памяти от перенесения на диск при работе виртуальной памяти (DOS32)

int_to_bytes (байты_из_целого)

- выдаёт 4 байта, соответствующие заданному целому

bytes_to_int (целое_из_байтов)

- выдаёт целое, соответствующее заданным 4 байтам

int_to_bits (биты_из_целого)

- выдаёт ряд битов, соответствующий заданному целому

bits_to_int (целое_из_битов)

- выдаёт целое, соответствующее заданному ряду битов

atom_to_float64 (атом_в_плавающее_64_бит)

- выдаёт ряд из 8 байтов, соответствующий заданному атому, в 64-битном формате IEEE для чисел с плавающей точкой

atom_to_float32 (атом_в_плавающее_32_бит)

- выдаёт ряд из 8 байтов, соответствующий заданному атому, в 32-битном формате IEEE для чисел с плавающей точкой

float64_to_atom (плавающее_64_бит_в_атом)

- выдаёт атом, соответствующий ряду из 8 байтов в 64-битном формате IEEE для чисел с плавающей точкой

float32_to_atom (плавающее_32_бит_в_атом)

- выдаёт атом, соответствующий ряду из 4 байтов в 32-битном формате IEEE для чисел с плавающей точкой

set_rand (установить_датчик_случайных_чисел)

- устанавливает датчик случайных чисел в режим выдачи помеченной серии чисел с восстанавливаемым порядком

use_vesa (использовать_vesa)

- переключает интерпретатор Euphoria в режим выполнения рекомендаций видеостандарта VESA (DOS32)

crash_file (файл_отчета_об_авосте)

- определяет файл для записи диагностической информации, если Euphoria обнаруживает ошибку в вашей программе

crash_message (сообщение_об_авосте)

- определяет сообщение об ошибке, которое будет выводиться, если Euphoria обнаруживает ошибку в вашей программе

crash_routine (подпрограмма_по_авосту)

- определяет подпрограмму, которая должна быть вызвана перед аварийной остановкой, если Euphoria обнаруживает ошибку в вашей программе

2.14 Динамические вызовы

Данные подпрограммы позволяют вам вызывать процедуры и функции Euphoria с использованием вместо обычного имени уникального целого числа, известного как идентификационный номер подпрограммы.

routine_id (подпрограмма_номер)

- выдаёт уникальный идентификационный номер, автоматически присваиваемый заданной подпрограмме Euphoria

call_proc (вызвать_процедуру)

- вызывает процедуру Euphoria по заданному идентификационному номеру

call_func (вызвать_функцию)

- выдаёт результат функции Euphoria, вызванной по заданному идентификационному номеру

2.15 Вызов функций Си (WIN32 и Linux)

Просмотрите файл platform_r.htm, где подробно описано программирование на Euphoria для операционных систем WIN32 и Linux.

open_dll (открыть_dll)

- открывает динамически подключаемую библиотеку Windows (.dll-файл) или общую библиотеку Linux (.so-файл)

define_c_proc (определить_процедуру_Си)

- определяет номер функции Си типа VOID, которая не выдаёт величины, или же когда ваша программа, используя данную функцию Си, игнорирует величину, выдаваемую этой функцией

define_c_func (определить_функцию_Си)

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

define_c_var (определить_переменную_Си)

- выдаёт адрес в памяти для заданной переменной Си

c_proc (процедура_Си)

- вызывает функцию Си, игнорируя выдаваемую ею величину

c_func (функция_Си)

- вызывает функцию Си и выдаёт её величину

call_back (обратный_вызов)

- выдаёт 32-битный машинный адрес подпрограммы Euphoria по заданному её номеру для использования в качестве адреса обратного её вызова из операционной системы

message_box (табличка_сообщения)

- выводит диалоговое окно для получения от пользователя ответа Да/Нет/Сброс

free_console (освободить_консоль)

- удаляет текстовое окно консоли

instance (экземпляр)

- выдаёт идентификатор состояния текущей программы

2.16 Многозадачность

Набор подпрограмм данного раздела позволяет вам организовывать в своей программе множественные независимые задачи, решаемые в режиме разделения времени. Каждая задача имеет свою собственную текущую исполняемую команду, свой собственный стек вызовов и своё собственное множество частных переменных. Локальные (местные) и глобальные переменные программы являются общими для всех задач. Когда в задаче вызывается подпрограмма task_yield(), выполнение задачи приостанавливается, управление передаётся диспетчеру задач Euphoria, и он решает, какую задачу из общей очереди следует поставить на дальнейшее исполнение.

Демонстрационная игра The Language War, lw.ex, широко использует механизм многозадачности для создания модели боя, в котором участвуют многочисленные независимо движущиеся корабли, торпеды, фазоры и т.д. Просмотрите также демо-программу taskwire.exw для Windows, и демо-программу news.exu для Linux и FreeBSD.

task_clock_start (задача_часы_старт)

- перезапускает часы диспетчера задач

task_clock_stop (задача_часы_стоп)

- останавливает часы диспетчера задач

task_create (задача_новая)

- создаёт новую задачу

task_list (задача_список)

- выдаёт список всех задач

task_schedule (задача_план)

- задаёт диспетчеру план решения задачи

task_self (задача_какая)

- выдаёт идентификатор текущей задачи (номер)

task_status (задача_состояние)

- выдаёт текущее состояние задачи (активна, приостановлена, прервана)

task_suspend (задача_стоп)

- приостанавливает решение задачи

task_yield (задача_другая)

- управление задачами передаётся диспетчеру, запускающему на исполнение другую задачу.

...

3. Алфавитный справочник по стандартным подпрограммам

от A до B

?

Синтаксис:

? x

Описание:

Это просто короткая форма записи для команды: pretty_print(1, x, {}), по которой на экране осуществляется печать величины объекта, заданного выражением. Для более наглядного отображения структуры объекта печать производится в столбик со скобками, запятыми и отступами. Единственное отличие от pretty_print() заключается в том, что печать по команде ? завершается ещё и автоматическим переводом курсора в начало новой строки.

Пример:

? {1, 2} + {3, 4} -- будет напечатано {4, 6}

См. также:

pretty_print, print

abort

Синтаксис:

abort(i)

Описание:

Прерывает исполнение программы. Аргумент i представляет собой небольшую целочисленную величину кода окончания программы, выдаваемого в операционную систему. Код окончания 0 в общем случае соответствует успешному завершению программы. Другие коды используются для указания на характер ошибки, по которой программа прервана. Пакетные программы DOS (.bat-файлы) могут считывать величину этого кода с помощью команды errorlevel. Программы Euphoria могут считывать эту величину, если дочерняя программа была запущена из подпрограммы system_exec().

Комментарии:

Подпрограмма abort() бывает особенно полезна, когда необходимо немедленно прервать исполнение программы изнутри глубоко вложенных вызовов подпрограмм, например, из-за обнаруженной опасной ошибки.

Если вы не применяете abort(), а программа завершается естественным порядком, интерпретаторы ex.exe/exw.exe/exu выдают в операционную систему код окончания 0. Если ваша программа прерывается по обнаруженной Euphoria ошибке времени компиляции или времени исполнения, выдаётся код 1.

Пример:

if x = 0 then

puts(ERR, "не могу делить на 0 !!!\n")

abort(1)

else

z = y / x

end if

См. также:

crash_message, system_exec

all_palette

Платформа:

DOS32

Синтаксис:

include graphics.e

all_palette(s)

Описание:

Задаёт новые интенсивности цветов для всего набора цветов текущего графического режима. Аргумент s является рядом формы: {{r,g,b}, {r,g,b}, ..., {r,g,b}}

Каждый элемент ряда задаёт новую интенсивность цвета {красный, зелёный, синий} для соответствующего номера цвета, начиная с номера 0. Величины для красного (r), зелёного (g) и синего (b) должны быть в пределах от 0 до 63.

Комментарии:

Данная процедура исполняется значительно быстрее, чем если бы вы использовали palette() для задания новых интенсивностей цвета поочерёдно. Эта процедура может быть использована с read_bitmap() для быстрого вывода изображения на экран.

Пример программы:

demo\dos32\bitmap.ex

См. также:

get_all_palette, palette, read_bitmap, video_config, graphics_mode

allocate

Синтаксис:

include machine.e

a = allocate(i)

Описание:

Подготавливает участок памяти, включающий i последовательных байтов. Выдаёт начальный адрес этого участка или 0, если память не может быть выделена. Выданный адрес позволит, как минимум, разместить очередные 4 байта, то есть, память выделяется участками, длина которых кратна 4, даже если i не кратно 4.

Комментарии:

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

Пример:

buffer = allocate(100)

for i = 0 to 99 do

poke(buffer+i, 0)

end for

См. также:

free, allocate_low, peek, poke, mem_set, call

allocate_low

Платформа:

DOS32

Синтаксис:

include machine.e

i2 = allocate_low(i1)

Описание:

Подготавливает i1 последовательных байтов в нижней памяти, т.е. в стандартной памяти (адрес ниже 1 мегабайта). Выдаёт начальный адрес участка памяти или 0, если память не может быть выделена.

Комментарии:

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

Пример программы:

demo\dos32\dosint.ex

См. также:

dos_interrupt, free_low, allocate, peek, poke

allocate_string

Синтаксис:

include machine.e

a = allocate_string(s)

Описание:

Подготавливает в памяти пространство для строкового (символьного) ряда s. Копирует ряд s в это пространство, заканчивая строку служебным символом 0, и трактуя каждый элемент ряда как единственный байт. Такой формат требуется для Си-строк. Выдаёт начальный адрес строки в памяти. Если участок памяти достаточного размера недоступен, выдаёт 0.

Комментарии:

Для освобождения пространства, отведённого под строку, используйте free() с адресом строки в качестве аргумента.

Пример:

atom title

title = allocate_string("The Wizard of Oz")

Пример программы:

demo\win32\window.exw

См. также:

allocate, free

allow_break

Синтаксис:

include file.e

allow_break(i)

Описание:

Если аргумент i = 1 (истина), команды control-c и control-Break получают возможность прервать вашу программу, когда она пытается в очередной раз обратиться к клавиатуре.

Если i = 0 (ложь), ваша программа не будет реагировать на команды control-c или control-Break.

Комментарии:

При нажатии клавиш control-c или control-Break DOS будет выводить ^C на экран, даже если ваша программа не может быть прервана.

Изначально ваша программа может быть прервана в любой точке, где она пытается читать с клавиатуры. Она может быть также прервана другими операциями ввода/вывода в зависимости от режима, установленного пользователем в его файле config.sys (уточните по руководству MS-DOS особенности команды BREAK). Но для некоторых типов программ возможность такого внезапного прерывание с клавиатуры может иметь некоторые негативные последствия и даже приводить в результате к потере данных. Вызов allow_break(0) позволяет вам избежать подобных опасных ситуаций.

И вы можете проверять, не нажимал ли пользователь control-c или control-Break, чтобы продуманно отреагировать на это нажатие и безопасно прервать программу. Для такой проверки служит функция check_break().

Пример:

allow_break(0) -- не дайте пользователю прикончить меня!

См. также:

check_break

and_bits

Синтаксис:

x3 = and_bits(x1, x2)

Описание:

Выполняет логическую операцию AND над соответствующими битами в x1 и x2. Бит в x3 устанавливается в 1, только если соответствующие биты в x1 и x2 оба равны 1.

Комментарии:

Аргументами данной функции могут быть атомы и ряды. Если аргументы являются рядами, применяются правила операций на рядах.

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

Если вы намерены манипулировать полными 32-битными величинами, вы должны объявить переменные как atom, но не как integer. В Euphoria тип integer ограничен 31-битом.

Результат трактуется как число со знаком. Оно будет отрицательным, когда старший бит является 1.

Для лучшего понимания двоичного представления числа вы можете вызвать его на отображение в шестнадцатеричной записи. Используйте для этого команду printf() с форматом %x.

Пример 1:

a = and_bits(#0F0F0000, #12345678)

-- a равно #02040000

Пример 2:

a = and_bits(#FF, {#123456, #876543, #2211})

-- a равно {#56, #43, #11}

Пример 3:

a = and_bits(#FFFFFFFF, #FFFFFFFF)

-- a равно -1

-- заметьте, что #FFFFFFFF является положительным числом,

-- но результат побитовой логической операции трактуется

-- как 32-битное число со знаком, так что он отрицателен.

См. также:

or_bits, xor_bits, not_bits, int_to_bits

append

Синтаксис:

s2 = append(s1, x)

Описание:

Создаёт на базе s1 новый ряд, с x, добавленным в конец ряда s1 в качестве последнего элемента ряда s2. Длина ряда s2 будет равна length(s1) + 1, то есть, на один элемент больше длины исходного ряда s1.

Комментарии:

Если x является атомом, операция эквивалентна s2 = s1 & x Если x является рядом, - не эквивалентна.

Необходимая дополнительная память выделяется автоматически и очень эффективно, благодаря динамическому распределению памяти, работающему в Euphoria. Случай, когда s1 и s2 в действительности являются одним и тем же рядом (как в Примере 1 ниже), особенно оптимален.

Пример 1:

Вы можете применить append() для динамического удлинения ряда, т.е.

sequence x

x = {}

for i = 1 to 10 do

x = append(x, i)

end for

-- x теперь равен {1,2,3,4,5,6,7,8,9,10}

Пример 2:

Любой объект Euphoria может быть добавлен к ряду, т.е.

sequence x, y, z

x = {"fred", "barney"}

y = append(x, "wilma")

-- y теперь равен {"fred", "barney", "wilma"}

z = append(append(y, "betty"), {"bam", "bam"})

-- z теперь равен {"fred", "barney", "wilma", "betty", {"bam", "bam"}}

См. также:

prepend, оператор сцепления &, оператор формирования ряда

arccos

Синтаксис:

include misc.e

x2 = arccos(x1)

Описание:

Выдаёт угол, косинус которого равен x1.

Комментарии:

Аргумент, x1, должен быть в пределах от -1 до +1 включительно.

Результат, выраженный в радианах, будет находиться между 0 и PI.

Данная функция может быть применена к атому или ко всем элементам ряда.

Функция arccos() вычисляется не так быстро, как arctan().

Пример:

s = arccos({-1,0,1})

-- s равно {3.141592654, 1.570796327, 0}

См. также:

cos, arcsin, arctan

arcsin

Синтаксис:

include misc.e

x2 = arcsin(x1)

Описание:

Выдаёт угол, синус которого равен x1.

Комментарии:

Аргумент, x1, должен быть в пределах от -1 до +1 включительно.

Результат, выраженный в радианах, будет находиться между -PI/2 и +PI/2.

Данная функция может быть применена к атому или ко всем элементам ряда.

Функция arcsin() вычисляется не так быстро, как arctan().

Пример:

s = arcsin({-1,0,1})

-- s равно {-1.570796327, 0, 1.570796327}

См. также:

sin, arccos, arctan

arctan

Синтаксис:

x2 = arctan(x1)

Описание:

Выдаёт угол, тангенс которого равен x1.

Комментарии:

Результат, выраженный в радианах, будет между -PI/2 и PI/2.

Данная функция может быть применена к атому или ко всем элементам ряда.

Функция arctan() вычисляется быстрее, чем arcsin() или arccos().

Пример:

s = arctan({1,2,3})

-- s равно {0.785398, 1.10715, 1.24905}

См. также:

tan, arcsin, arccos

atom

Синтаксис:

i = atom(x)

Описание:

Выдаёт 1, если x является атомом, иначе выдаёт 0.

Комментарии:

Данная команда, в основном, служит для объявления переменных типа atom. Но вы можете также применять её подобно вызову функции, чтобы определить, не является ли объект атомом.

Пример 1:

atom a

a = 5.99

Пример 2:

object line

line = gets(0)

if atom(line) then

puts(SCREEN, "конец файла\n")

end if

См. также:

sequence, object, integer, атомы и ряды

atom_to_float32

Синтаксис:

include machine.e

s = atom_to_float32(a1)

Описание:

Преобразует атом Euphoria в ряд из 4-х однобайтовых величин. Эти 4 байта содержат представление числа с плавающей точкой в 32-х битном формате по стандарту IEEE.

Комментарии:

Атомы Euphoria могут иметь величины, соответствующие 64-битным числам с плавающей точкой стандарта IEEE, так что вы можете потерять точность при преобразовании их к 32-битным числам (16 значащих цифр против 7). Диапазон показателей экспонент также намного шире для 64-битных чисел, чем в 32-битном формате (308 против 38), поэтому некоторые атомы могут оказаться слишком большими или слишком маленькими для представления их в 32-битном формате. В этом случае вы получите одну из специальных 32-битных величин: inf или -inf (бесконечность или -бесконечность). Чтобы избежать этих ограничений, вы можете применить atom_to_float64().

Целочисленные величины также могут быть преобразованы в 32-битный формат с плавающей точкой.

Пример:

fn = open("numbers.dat", "wb")

puts(fn, atom_to_float32(157.82)) -- запись 4-х байтов в файл

См. также:

atom_to_float64, float32_to_atom

atom_to_float64

Синтаксис:

include machine.e

s = atom_to_float64(a1)

Описание:

Преобразует атом Euphoria в ряд, состоящий из 8 однобайтовых величин. Эти 8 байтов содержат представление числа с плавающей точкой в 64-битном формате по стандарту IEEE.

Комментарии:

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

Целочисленные величины также могут быть преобразованы в 64-битный формат с плавающей точкой.

Пример:

fn = open("numbers.dat", "wb")

puts(fn, atom_to_float64(157.82)) -- запись 8 байтов в файл

См. также:

atom_to_float32, float64_to_atom

bits_to_int

Синтаксис:

include machine.e

a = bits_to_int(s)

Описание:

Преобразует ряд, состоящий из единиц и нулей, дающих двоичное представление числа, в положительное десятичное число. Младший значащий "бит" должен быть первым членом ряда, s[1].

Комментарии:

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

Пример:

a = bits_to_int({1,1,1,0,1})

-- a равно 23 (двоичное 10111)

См. также:

int_to_bits, операции на рядах

bk_color

Синтаксис:

include graphics.e

bk_color(i)

Описание:

Устанавливает цвет фона в один из 16 стандартных цветов. В пиксельных режимах весь экран перекрашивается немедленно. В текстовых режимах любые новые символы, которые вы печатаете, будут появляться на фоне с новым цветом. В некоторых текстовых режимах для фона доступны только 8 различных цветов.

Комментарии:

16 стандартных цветов определены как константы в файле graphics.e.

В пиксельных режимах цвет 0, который обычно соответствует чёрному (BLACK), будет установлен в то самое значение палитры {r,g,b}, что и цвет номера i.

В некоторых пиксельных режимах на краю экрана появляется цветной бордюр. В 256-цветных режимах цвет бордюра соответствует 17-ому цвету палитры. Вы можете управлять цветом бордюра подобно всем другим цветам, используя процедуру palette().

В текстовых режимах для того, чтобы восстановить исходный цвет фона, когда ваша программа заканчивается, т.е. 0 - ЧЁРНЫЙ, вы должны вызвать процедуру bk_color(0). Если курсор находится на нижней строке экрана, целесообразно напечатать что-нибудь перед остановкой вашей программы. Напечатайте хотя бы '\n', и этого может быть достаточно.

Пример:

bk_color(BLACK)

См. также:

text_color, palette

bytes_to_int

Синтаксис:

include machine.e

a = bytes_to_int(s)

Описание:

Преобразует 4-х элементный ряд, состоящий из байтов, в атом. Элементы ряда s должны находиться в порядке, предусмотренном для 32-битных целых чисел на машинах 386+, т.е. младший значащий байт первый - s[1].

Комментарии:

Результат может быть больше, чем допускает тип integer, поэтому вы должны присваивать его значение атому.

Ряд s будет обычно содержать положительные величины, которые ранее были прочитаны оператором peek() из 4-х последовательных ячеек памяти.

Пример:

atom int32

int32 = bytes_to_int({37,1,0,0})

-- int32 равно 37 + 256*1 = 293

См. также:

int_to_bytes, bits_to_int, peek, peek4s, peek4u, poke

...

от C до D

call

Синтаксис:

call(a)

Описание:

Вызывает подпрограмму на машинном языке, участок памяти с кодом которой начинается по адресу a. Подпрограмма должна запомнить содержимое всех регистров, которые она использует, а затем восстановить их в первоначальное состояние. Для обратной передачи управления интерпретатору Euphoria в этой подпрограмме должна быть предусмотрена инструкция RET (#C3).

Комментарии:

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

Пример программы:

demo\callmach.ex

См. также:

allocate, free, peek, poke, poke4, c_proc, define_c_proc

call_back

Платформа:

WIN32, Linux, FreeBSD

Синтаксис:

include dll.e

a = call_back(i)

или

a = call_back({i1, i})

Описание:

Выдаёт машинный адрес для Euphoria-подпрограммы по её идентификатору (номеру) i. Этот адрес может затем использоваться или Windows, или внешней функцией Си (из динамически подгружаемой библиотеки (.dll) Windows или общей библиотеки (.so) Linux/FreeBSD) как 32-битный "обратный" адрес для вызова вашей Euphoria-подпрограммы. Под Windows вы можете также задать i1, доопределив тем самым формат (соглашение о форме) вызова Си для вашей подпрограммы. Если i1 записано как '+', будет применён формат cdecl. По умолчанию применяется формат stdcall. На платформах Linux и FreeBSD следует использовать только первую форму (без i1), так как там, в отличие от Windows, действует лишь стандартный формат, stdcall.

Комментарии:

Вы можете установить столько "обратных" подпрограмм, сколько вам нужно, но все они должны быть Euphoria-функциями (или типами) с числом аргументов от 0 до 9. Если ваша подпрограмма не расчитана на выдачу какого-то результата (являлась бы фактически процедурой), просто (скажем так) задайте return 0, а вызывающая функция Си может игнорировать результат.

Когда ваша подпрограмма вызвана, все аргументы будут 32-битными числами без знака (положительными), поэтому вы должны объявить каждый аргумент в вашей подпрограмме как atom, независимо от вашего желания устроить более жесткий контроль. Ваша подпрограмма должна выдавать 32-битную целочисленную величину.

Вы можете также использовать адрес обратного вызова, чтобы задать подпрограмму Euphoria в качестве обработчика исключения в функции signal() под Linux/FreeBSD, когда, например, вам необходимо принять сигнал SIGTERM и произвести аккуратное завершение вашей программы. Да, действительно, иногда некоторые серверы Web выдают сигнал SIGTERM тому процессу CGI, который захватил слишком много машинного времени, и ваша программа должна быть готовой к такому повороту событий.

Подпрограмма обратного вызова, использующая соглашение cdecl и выдающая результат с плавающей точкой, может не работать с exw. Это происходит из-за особенностей компилятора Watcom C (с ним строится exw), который в формате cdecl нестандартным образом обходится с результатами, имеющими тип с плавающей точкой.

Пример программы:

demo\win32\window.exw, demo\linux\qsort.exu

См. также:

routine_id, platform_r.htm

c_func

Платформа:

WIN32, Linux, FreeBSD

Синтаксис:

x = c_func(i, s)

Описание:

Вызывает Си-функцию, или функцию машинного кода, или транслированную/ компилированную функцию Euphoria, имеющую идентификатор (номер) функции i. Аргумент i должен быть разрешённым номером, выданным функцией define_c_func(). Аргумент s является рядом длины n, содержащим значения аргументов занумерованной функции, где n - число аргументов, требуемых функцией номер i. В переменной x будет содержаться результат, выданный Си-функцией.

Комментарии:

Если Си-функция не требует подачи никаких аргументов, тогда ряд s должен быть пустым рядом {}.

Если в качестве аргумента вы подаёте величину, которая содержит дробную часть, в то время как Си-функция ожидает целочисленный тип Си, аргумент будет округлен в сторону нуля, т.е. 5.9 будет подано как 5, а -5.9 будет подано как -5.

Функция Си может входить в состав библиотеки .dll или .so, созданной транслятором с Euphoria на Си. В этом случае выдаваемая ею величина могла бы быть типа атом или ряд Euphoria. Но функции Си и функции машинного кода могут выдавать только целочисленные величины или, в более общем случае, атомы (числа с плавающей точкой по стандарту IEEE).

Пример:

atom user32, hwnd, ps, hdc

integer BeginPaint

-- открыть user32.dll - она содержит Си-функцию BeginPaint

user32 = open_dll("user32.dll")

-- Си-функция BeginPaint принимает аргументы типа C int и

-- типа C pointer, и выдаёт величину типа C int в качестве результата:

BeginPaint = define_c_func(user32, "BeginPaint",

{C_INT, C_POINTER}, C_INT)

-- вызвать BeginPaint, подавая hwnd и ps в качестве аргументов,

-- присвоить результат hdc:

hdc = c_func(BeginPaint, {hwnd, ps})

См. также:

c_proc, define_c_func, open_dll, platform_r.htm

c_proc

Платформа:

WIN32, Linux, FreeBSD

Синтаксис:

c_proc(i, s)

Описание:

Вызывает Си-функцию или процедуру машинного кода, используя идентификатор (номер) процедуры i. Аргумент i должен быть разрешенным идентификатором процедуры, выданным функцией define_c_proc(). Аргумент s является рядом длины n, содержащим величины аргументов вызываемой Си-функции (процедуры), где n - число аргументов, требуемых Си-функцией (процедурой).

Комментарии:

Если Си-функция не требует подачи никаких аргументов, тогда ряд s должен быть пустым рядом {}.

Если в качестве аргумента вы подаёте величину, которая содержит дробную часть, в то время как Си-функция ожидает целочисленный тип Си, аргумент будет округлен в сторону нуля, т.е. 5.9 будет подано как 5, а -5.9 будет подано как -5.

Функция Си может входить в состав библиотеки .dll или .so, созданной транслятором с Euphoria на Си.

Пример:

atom user32, hwnd, rect

integer GetClientRect

-- открыть user32.dll - здесь содержится Си-функция GetClientRect

user32 = open_dll("user32.dll")

-- GetClientRect - это Си-функция типа VOID, у которой два аргумента - типа C int

-- и типа C pointer:

GetClientRect = define_c_proc(user32, "GetClientRect",

{C_INT, C_POINTER})

-- подать hwnd и rect в качестве аргументов

c_proc(GetClientRect, {hwnd, rect})

См. также:

c_func, call, define_c_proc, open_dll, platform_r.htm

call_func

Синтаксис:

x = call_func(i, s)

Описание:

Вызывает определенную программистом Euphoria-функцию с идентификатором (номером) подпрограммы i. Аргумент i должен быть разрешенным идентификатором (номером), выданным routine_id(). Аргумент s является рядом длины n, содержащим аргументы занумерованной функции, где n - число аргументов, требуемых функцией номер i. Переменная x будет содержать результат, выданный функцией номер i.

Комментарии:

Если функция номер i не требует подачи никаких аргументов, тогда ряд s должен быть пустым рядом {}.

Пример программы:

demo\csort.ex

См. также:

call_proc, routine_id

call_proc

Синтаксис:

call_proc(i, s)

Описание:

Вызывает определенную программистом Euphoria-процедуру с идентификатором (номером) подпрограммы i. Аргумент i должен быть разрешенным идентификатором (номером), выданным routine_id(). Аргумент s является рядом длины n, содержащим аргументы занумерованной процедуры, где n - число аргументов, требуемых процедурой номер i.

Комментарии:

Если процедура номер i не требует подачи никаких аргументов, тогда ряд s должен быть пустым рядом {}.

Пример:

global integer foo_id

procedure x()

call_proc(foo_id, {1, "Hello World\n"})

end procedure

procedure foo(integer a, sequence s)

puts(a, s)

end procedure

foo_id = routine_id("foo")

x()

См. также:

call_func, routine_id

chdir

Синтаксис:

include file.e

i = chdir(s)

Описание:

Изменяет текущий каталог (директорию, фолдер, папку) по пути, который задан рядом s. Аргумент s должен содержать имя каталога, существующего на данной машине. В случае успешного изменения каталога chdir() выдаёт 1. Если перейти в заданный каталог не удалось, chdir() выдаёт 0.

Комментарии:

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

Функция current_dir() выдаёт имя текущего каталога.

Под DOS32 и WIN32 текущий каталог является общим для всех программ и процессов, исполняемых в одной оболочке (т.е. под управлением одного и того же или единственного экземпляра интерпретатора команд ОС).

Под Linux/FreeBSD дочерние программы могут изменять текущий каталог для своих нужд, но эти изменения не будут относиться к текущему каталогу родительской программы.

Пример:

if chdir("c:\\euphoria") then

f = open("readme.doc", "r")

else

puts(1, "Ошибка: отсутствует каталог euphoria?\n")

end if

См. также:

current_dir

check_break

Синтаксис:

include file.e

i = check_break()

Описание:

Выдаёт число нажатий сочетания клавиш control-c или control-Break, имевших место с момента последнего вызова check_break(), или с начала программы, если этот вызов первый.

Комментарии:

Данная функция полезна, если в вашей программе была исполнена команда allow_break(0), которая запрещает прерывание вашей программы по нажатию сочетания клавиш control-c и control-Break. Вы можете использовать check_break(), чтобы выяснить, не нажимал ли всё-таки пользователь одно из этих аварийных сочетаний клавиш. Затем вы можете сделать всё то, что требуется для аккуратного и безошибочного завершения вашей программы без малейшего риска потери данных и повреждений файловой системы на диске.

В этих условиях ни control-c, ни control-Break не будут выданы как управляющие символы в операционную систему, если даже вы читаете состояние клавиатуры. Вы сможете только обнаружить, что нажатия состоялись, вызвав check_break().

Пример:

k = get_key()

if check_break() then

temp = graphics_mode(-1)

puts(1, "Программа завершается ...")

save_all_user_data()

abort(1)

end if

См. также:

allow_break, get_key

clear_screen

Синтаксис:

clear_screen()

Описание:

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

Комментарии:

Процедура работает во всех текстовых и пиксельных режимах.

См. также:

bk_color, graphics_mode

close

Синтаксис:

close(fn)

Описание:

Закрывает файл или устройство, завершив вывод символов, если они ещё оставались в буфере к данному моменту.

Комментарии:

Когда ваша программа заканчивается при нормальном её течении, все открытые файлы и устройства закрываются автоматически, если не были закрыты ранее с помощью команды close(fn).

См. также:

open, flush

command_line

Синтаксис:

s = command_line()

Описание:

Выдаёт ряд, состоящий из строк, в котором каждая строка является словом, введённым в командную строку, с которой была запущена ваша программа. В первом слове будет путь к интерпретатору Euphoria ex.exe, exw.exe или exu, или к вашему связанному исполняемому файлу. В следующем слове будет или имя вашего Euphoria .ex файла, или (опять же) путь к вашему связанному исполняемому файлу. Затем будут идти все те дополнительные слова, которые были введены вами. Вы можете использовать эти слова в вашей программе, например, задавая тот или иной режим её работы. Серии слов можно забирать в кавычки, чтобы тем самым превратить серию слов в единственный аргумент.

Комментарии:

Собственно интерпретаторы Euphoria не используют никаких аргументов командной строки. Но вы можете использовать любые аргументы по своему усмотрению для своих собственных программ.

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

Пример 1:

-- Пользователь вводит: ex myprog myfile.dat 12345 "the end"

cmd = command_line()

-- cmd будет равно:

{"C:\EUPHORIA\BIN\EX.EXE",

"myprog",

"myfile.dat",

"12345",

"the end"}

Пример 2:

-- Ваша программа окутана, её имя "myprog.exe",

-- и помещена в каталог c:\myfiles

-- Пользователь вводит: myprog myfile.dat 12345 "the end"

cmd = command_line()

-- cmd будет равно:

{"C:\MYFILES\MYPROG.EXE",

"C:\MYFILES\MYPROG.EXE", -- заполнитель места

"myfile.dat",

"12345",

"the end"

}

-- Заметьте, что все аргументы остались теми же, что и в примере 1,

-- исключая первые два. Второй аргумент теперь повторяет первый,

-- и служит просто для того, чтобы сохранить постоянной нумерацию

-- остальных аргументов, независимо от того, имеет ваша программа

-- форму .exe, или нет.

См. также:

getenv

compare

Синтаксис:

i = compare(x1, x2)

Описание:

Выдаёт 0, если объекты x1 и x2 идентичны, 1, если x1 больше чем x2, -1, если x1 меньше чем x2. Считается, что атомы меньше рядов. Ряды сравниваются поэлементно, начиная с первого элемента, до момента, пока не найдено первое различие.

Пример 1:

x = compare({1,2,{3,{4}},5}, {2-1,1+1,{3,{4}},6-1})

-- идентичны, x равно 0

Пример 2:

if compare("ABC", "ABCD") < 0 then -- -1

-- результатом будет истина: ряд ABC считается "меньшим", так как он короче

end if

Пример 3:

x = compare({12345, 99999, -1, 700, 2},

{12345, 99999, -1, 699, 3, 0})

-- x будет равно 1, так как 700 699

Пример 4:

x = compare('a', "a")

-- x будет равно -1, так как 'a' является атомом,

-- в то время как "a" является рядом длины 1

См. также:

equal, операции сравнения, операции на рядах

cos

Синтаксис:

x2 = cos(x1)

Описание:

Вычисляет и выдаёт косинус x1, где x1 выражено в радианах.

Комментарии:

Данная функция применима к атомам или ко всем элементам ряда.

Пример:

x = cos({.5, .6, .7})

-- x равно {0.8775826, 0.8253356, 0.7648422}

См. также:

sin, tan, log, sqrt

crash_file

Синтаксис:

include machine.e

crash_file(s)

Описание:

Задаёт представленное в виде ряда s имя файла, предназначенного для вывода диагностической информации, когда Euphoria вынуждена аварийно остановить вашу программу из-за ошибки, обнаруженной во время компиляции или во время работы.

Комментарии:

Обычно Euphoria печатает диагностическое сообщение вроде "syntax error" или "divide by zero" на экране, одновременно выводя отладочную информацию в файл ex.err, который всегда располагается в текущем каталоге.

Вызывая crash_file(), вы можете управлять именами файла и каталога, в которых будет записываться отладочная информация.

Ряд s может быть пустым, т.е. "". В этом случае диагностическая или отладочная информация не будет выводиться ни на экран, ни в файл. Ряд s может также иметь форму "NUL" или "/dev/null", в этом случае диагностическая информация будет выводиться на экран, но в файл ex.err ничего не будет записано.

Вы можете вызывать crash_file() столько раз, сколько это нужно, в различных частях вашей программы. В случае таких многократных вызовов будет использоваться тот файл, который был задан в последней команде crash_file(), стоящей перед точкой возникновения ошибки .

Пример:

crash_file("\\tmp\\mybug")

См. также:

abort, crash_message, crash_routine, отладка и профилирование

crash_message

Синтаксис:

include machine.e

crash_message(s)

Описание:

Задаёт сообщение, представленное в виде ряда s, которое будет выведено на экран в случае, если Euphoria аварийно остановит вашу программу из-за ошибки, обнаруженной во время работы.

Комментарии:

Обычно Euphoria печатает диагностическое сообщение на экране, например, "subscript out of bounds" (индекс вне границ) или "divide by zero" (деление на ноль), сопровождая его распечаткой отладочной информации в файле ex.err. Эти сообщения об ошибках будут малопонятны для тех ваших пользователей, которые сами не являются программистами Euphoria. Но вызывая crash_message(), вы сможете управлять содержимым сообщений, появляющихся на экране, чтобы наиболее полно учесть уровень понимания аварийной ситуации пользователями вашей программы. При этом вся отладочная информация будет ещё и распечатываться в файле ex.err, так что вы не потеряете никаких данных об ошибке, пользуясь этой дополнительной возможностью и подправляя стандартные сообщения.

Ряд s может содержать '\n', символы новой строки, поэтому ваше сообщение легко сделать исчерпывающе подробным, причем на вашем родном языке, а не на английском, на котором Euphoria выводит свои собственные сообщения. Перед выводом вашего сообщения Euphoria переключит экран в текстовый режим и начнет печать с верхней строки чистого экрана.

Вы можете вызывать crash_message() столько раз из различных участков вашей программы, сколько это необходимо. Будет выведено только одно сообщение, то, которое задано последним перед точкой возникновения ошибки.

Пример:

crash_message("Произошла неизвестная ранее ошибка!\n" &

"Свяжитесь с john_doe@whoops.com\n" &

"Не удаляйте файл \"ex.err\".\n")

См. также:

abort, crash_file, crash_routine, отладка и профилирование

crash_routine

Синтаксис:

include machine.e

crash_routine(i)

Описание:

Задаёт номер аварийной функции, которая, по вашему замыслу, должна быть вызвана Euphoria в случае обнаружения ошибки, из-за которой работа вашей программы прервалась бы с аварийным сообщением. Ваша аварийная функция должна иметь один аргумент типа object. Этот аргумент в настоящее время автоматически всегда равен 0 (рассматривается возможность наличия в будущих выпусках Euphoria и более содержательных аргументов). Вы можете вызывать crash_routine много раз с различными аварийными функциями. В момент, когда Euphoria должна была бы прервать вашу программу, будет вызвана та ваша аварийная функция, которая задана в самой последней команде crash_routine(), а затем начнётся отработка всей цепочки аварийных функций по направлению к вызванной в первой команде crash_routine(). Обычно каждая из предусмотренных аварийных функций должна выдавать 0. Если любая из функций этой цепочки выдаст не-нулевую величину, цепочка вызовов будет немедленно прервана, а программа завершена с сообщением об аварийной остановке (авосте).

Комментарии:

Определяя аварийные функции, вы даёте своей программе шанс отреагировать на фатальные ошибки (такие, например, как индекс вне границ), возникающие во время её работы, наиболее безопасным для ваших данных способом. Вы можете записать некоторые критичные данные на диск. Вы можете проинформировать пользователя о том, что случилось и что он должен в первую очередь сделать. Вы можете также записать ключевую отладочную информацию. Фактически, когда ваша аварийная функция вызвана, файл ex.err уже будет записан. Ваша функция может перезаписать ex.err ещё где-то, или даже открыть его и извлечь из него необходимую информацию, например, сообщение об ошибке.

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

Разработчику библиотеки может понадобиться вызов crash_routine() в библиотеке. Это позволит более упорядоченно обращаться с данными, закрывая файлы, отпирая запертые файлы, высвобождая ресурсы и т.п. Но разработчик главной программы может иметь и свои собственные crash_routine(). И все аварийные функции будут отработаны Euphoria, если первая вызванная (последняя назначенная) и все последующие выдадут 0.

Аварийная функция не может продолжить исполнение программы из точки останова, исправив ошибку. Но других ограничений на то, что она может делать, практически не существует. Она не может и не должна возвращаться вспять по программе, но она может перезапустить эту программу, например, с откорректированными аргументами командной строки.

Если во время исполнения аварийной функции случится другая ошибка, снова вызывается распечатка отладочной информации, но имя файла в этом случае будет уже ex_crash.err, а не ex.err. С этого момента запрещаются любые новые вызовы аврийных функций, а вы остаётесь наедине с ex.err и ex_crash.err, чтобы с ними в руках попытаться найти причину всех несчастий.

Пример:

function crash(object x)

-- в случае пожара ...

-- (под Linux) отправить сообщение e-mail, содержащее файл ex.err

system("mail -s \"crash!\" myname@xxx.com < ex.err > /dev/null", 2)

return 0

end function

crash_routine(routine_id("crash"))

См. также:

abort, crash_file, crash_message, отладка и профилирование

current_dir

Синтаксис:

include file.e

s = current_dir()

Описание:

Выдаёт имя текущего рабочего каталога (директории, папки, фолдера).

Комментарии:

После имени текущего каталога не будет ни косой черты, ни обратной косой черты, за исключением случая под DOS/Windows, в корневом каталоге диска, где вы получите, например, C:\

Пример:

sequence s

s = current_dir()

-- s будет равно "C:\EUPHORIA\DOC", если вы находитесь в этом каталоге

См. также:

dir, chdir, getenv

cursor

Платформа:

WIN32, DOS32

Синтаксис:

include graphics.e

cursor(i)

Описание:

Задаёт форму курсора. Библиотека graphics.e содержит глобальные константы:

global constant NO_CURSOR = #2000,

UNDERLINE_CURSOR = #0607,

THICK_UNDERLINE_CURSOR = #0507,

HALF_BLOCK_CURSOR = #0407,

BLOCK_CURSOR = #0007

Вторая и четвертая шестнадцатиричные цифры (слева) дают номера верхнего и нижнего рядов пикселов в изображении курсора. От первой цифры зависит, будет курсор видимым или нет. Например, #0407 включает с 4-го по 7-ой ряд пикселов.

Комментарии:

В пиксельных экранных режимах курсор не отображается, только в текстовых.

Пример:

cursor(BLOCK_CURSOR)

См. также:

graphics_mode, text_rows

custom_sort

Синтаксис:

include sort.e

s2 = custom_sort(i, s1)

Описание:

Сортирует элементы ряда s1, используя заданную сравнивающую функцию с номером (идентификатором) i. Выдаёт отсортированный ряд.

Комментарии:

Заданная вами заказная сравнивающая функция должна быть функцией двух аргументов наподобие Euphoria-функции compare(). Она должна сравнивать два объекта и выдавать -1, 0 или +1.

Пример программы:

demo\csort.ex

См. также:

sort, compare, routine_id

date

Синтаксис:

s = date()

Описание:

Выдаёт ряд со следующей информацией:

{год, -- начиная с 1900

месяц, -- январь = 1

день, -- день месяца, начиная с 1

час, -- от 0 до 23

минута, -- от 0 до 59

секунда, -- от 0 до 59

день недели, -- воскресенье = 1

день года} -- 1 января = 1

Пример:

now = date()

-- now равно: {95,3,24,23,47,38,6,83}

-- т.е. пятница, 24 марта 1995 года, 23 часа 47 минут 38 секунд, 83-ий день года

Комментарии:

Величина, выдаваемая для года, является числом лет, начиная с 1900, а не последними 2-мя цифрами года. В 2000 году эта величина составила 100. В 2001 это было 101 и т.д. Естественно, часы и календарь вашего компьютера должны быть правильно установлены на текущие время и дату.

См. также:

time

define_c_func

Синтаксис:

include dll.e

i1 = define_c_func(x1, x2, s1, i2)

Описание:

Выдаёт номер (идентификатор) подпрограммы для заданной Си-функции или же функции машинного кода. Аргументами служат характеристики заданной функции. Выданный номер i1 используется далее в качестве первого аргумента при вызове подпрограммы c_func(), которая и запускает заданную внешнюю функцию на исполнение из Euphoria.

Когда вы задаёте характеристики Си-функции, аргумент x1 должен представлять собой адрес системной библиотеки, содержащей эту Си-функцию. Адрес библиотеки вы должны получить, заранее вызвав функцию open_dll(). Аргумент x2 задаёт имя Си-функции, которая вас интересует. Если define_c_func() не находит заданную Си-функцию, в качестве номера она выдаёт -1. На платформе Windows вы можете перед именем функции добавить символ '+'. Он показывает Euphoria, что для вызова Си-функции предусмотрены правила соглашения cdecl. По умолчанию Euphoria считает, что подпрограммы Си вызываются по правилам соглашения stdcall.

Когда вы задаёте характеристики функции машинного кода, аргумент x1 должен быть пустым рядом, "" или {}, а x2 - содержать адрес функции машинного кода. Байты машинного кода должны быть заранее размещены в участке памяти, выделенном функцией allocate(), которая и выдаёт адрес, используемый далее для размещения функции машинного кода и задания её характеристик. На платформе Windows функции машинного кода обычно следуют правилам соглашения stdcall, но если вам вместо этого необходимо использование правил cdecl, вы можете записать x2 как ряд {'+', адрес} вместо подачи значения адреса как атома.

Аргумент s1 представляет собой список типов аргументов функции. Аргумент i2 задаёт тип величины, выдаваемой функцией. Полный список типов Си, содержащий их определения, находится в библиотеке dll.e, и эти же типы могут быть использованы для назначения типов данных для функции машинного кода:

global constant C_CHAR = #01000001,

C_UCHAR = #02000001,

C_SHORT = #01000002,

C_USHORT = #02000002,

C_INT = #01000004,

C_UINT = #02000004,

C_LONG = C_INT,

C_ULONG = C_UINT,

C_POINTER = C_ULONG,

C_FLOAT = #03000004,

C_DOUBLE = #03000008

Си-функция, характеристики которой вы задаёте с использованием define_c_func(), может быть создана с помощью транслятора с Euphoria на Си. В этом случае вы сможете подавать в неё данные типов Euphoria, а она сможет выдавать данные типов Euphoria. Полный список типов Euphoria с их определениями находится в библиотеке dll.e:

global constant

E_INTEGER = #06000004,

E_ATOM = #07000004,

E_SEQUENCE= #08000004,

E_OBJECT = #09000004

Комментарии:

Аргументы Си-функций могут быть любого целочисленного типа Си и типа указателя (пойнтера) Си. Величины этих же типов и выдаются Си-функциями. Если аргументы Си-функции имеют тип двойной точности или с плавающей точкой, то в их качестве могут использоваться атомы Euphoria, а если Си-функция выдаёт величину такого типа, то эта величина может быть использована далее как атом Euphoria.

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

В настоящее время не существует метода подачи в Си-функцию структуры Си по величине или получения структуры Си в качестве результата. Вы можете подать как аргумент лишь указатель на исходную структуру и получить результат в виде указателя на модифицированную структуру.

Если вы не заинтересованы в получении и использовании величины, выдаваемой Си-функцией, вам следует обратиться к паре подпрограмм define_c_proc() и c_proc().

Если вы используете интерпретатор exw.exe для вызова по правилам cdecl Си-функции, которая выдаёт величину типа с плавающей точкой, такая комбинация может не сработать. Это обусловлено особенностями компилятора Watcom C (используемого для генерации exw.exe), который нестандартным образом обходится с выдаваемыми величинами типа с плавающей точкой при работе по правилам cdecl.

Подача величин с плавающей точкой в подпрограмму машинного кода будет выполняться быстрее, если вы используете для вызова подпрограммы c_func(), а не call(), так как в этом случае нет необходимости вызывать ещё и atom_to_float64() и poke(), чтобы разместить величины с плавающей точкой в памяти.

Интерпретатор ex.exe (DOS) для обработки величин с плавающей точкой осуществляет вызовы подпрограмм Watcom (а эти подпрограммы уже сами обращаются к математическому сопроцессору, если он доступен), поэтому величины с плавающей точкой обычно подаются и считываются в паре целочисленных регистров, а не в регистрах плавающей точки. Вам, видимо, нужно будет дизассемблировать какой-нибудь код, выработанный Watcom, чтобы посмотреть в точности, как он работает, если вы решите программировать в машинных кодах.

Пример:

atom user32

integer LoadIcon

-- открываем системную библиотеку user32.dll - она содержит Си-функцию LoadIconA

user32 = open_dll("user32.dll")

-- Си-функция принимает указатель Си и целое Си в качестве аргументов.

-- Си-функция выдаёт целое Си в качестве результата.

LoadIcon = define_c_func(user32, "LoadIconA",

{C_POINTER, C_INT}, C_INT)

-- Мы использовали здесь "LoadIconA", так как знаем, что LoadIconA

-- работает по правилам stdcall, как работают

-- все стандартные подпрограммы .dll в системе WIN32 API.

-- Чтобы задать правила cdecl, мы бы использовали "+LoadIconA".

if LoadIcon = -1 then

puts(1, "LoadIconA не найдена!\n")

end if

См. также:

euphoria\demo\callmach.ex, c_func, define_c_proc, c_proc, open_dll, platform_r.htm

define_c_proc

Синтаксис:

include dll.e

i1 = define_c_proc(x1, x2, s1)

Описание:

Выдаёт номер (идентификатор) подпрограммы для заданной Си-функции или же подпрограммы машинного кода, которые подлежат вызову в качестве процедур Euphoria. Аргументами служат характеристики заданной функции (подпрограммы). Выданный номер i1 используется далее в качестве первого аргумента при вызове подпрограммы c_proc(), которая и запускает заданную внешнюю подпрограмму на исполнение из Euphoria как процедуру.

Когда вы задаёте характеристики Си-функции, аргумент x1 должен представлять собой адрес системной библиотеки, содержащей эту Си-функцию. Адрес библиотеки вы должны получить, заранее вызвав функцию open_dll(). Аргумент x2 задаёт имя Си-функции, которая вас интересует. Если define_c_proc() не находит заданную Си-функцию, в качестве номера она выдаёт -1. На платформе Windows вы можете перед именем функции добавить символ '+'. Он показывает Euphoria, что для вызова Си-функции предусмотрены правила соглашения cdecl. По умолчанию Euphoria считает, что подпрограммы Си вызываются по правилам соглашения stdcall.

Когда вы задаёте характеристики подпрограммы машинного кода, аргумент x1 должен быть пустым рядом, "" или {}, а x2 - содержать адрес подпрограммы машинного кода. Байты машинного кода должны быть заранее размещены в участке памяти, выделенном функцией allocate(), которая и выдаёт адрес, используемый далее для размещения подпрограммы машинного кода и задания её характеристик. На платформе Windows подпрограммы машинного кода обычно следуют правилам соглашения stdcall, но если вам вместо этого необходимо использование правил cdecl, вы можете записать x2 как ряд {'+', адрес} вместо подачи значения адреса как атома.

Аргумент s1 представляет собой список типов аргументов функции (подпрограммы). Полный список типов Си, содержащий их определения, находится в библиотеке dll.e и показан выше. Эти же типы могут быть использованы при назначении типов аргументов для подпрограммы машинного кода.

Си-функция, характеристики которой вы задаёте с использованием define_c_proc(), может быть создана с помощью транслятора с Euphoria на Си. В этом случае вы сможете подавать в неё данные типов Euphoria. Полный список типов Euphoria с их определениями находится в библиотеке dll.e и показан выше.

Комментарии:

Аргументы Си-функций могут быть любого целочисленного типа Си и типа указателя (пойнтера) Си. Если аргументы Си-функции имеют тип двойной точности или с плавающей точкой, то в их качестве могут использоваться атомы Euphoria.

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

В настоящее время не существует метода подачи в Си-функцию структуры Си по величине. Вы можете подать как аргумент лишь указатель на структуру

Заданная вами Си-функция может выдавать величину, но эта величина будет игнорироваться. Если вы заинтересованы в получении и использовании величины, выдаваемой Си-функцией, вам следует обратиться к паре подпрограмм define_c_func() и c_func().

Пример:

atom user32

integer ShowWindow

-- Открываем системную библиотеку user32.dll - в ней находится Си-функция ShowWindow.

user32 = open_dll("user32.dll")

-- Си-функция требует 2-х аргументов, оба типа C int.

ShowWindow = define_c_proc(user32, "ShowWindow", {C_INT, C_INT})

-- Если бы ShowWindow работала по правилам cdecl,

-- мы записали бы здесь "+ShowWindow"

if ShowWindow = -1 then

puts(1, "ShowWindow не найдена!\n")

end if

См. также:

c_proc, define_c_func, c_func, open_dll, platform_r.htm

define_c_var

Платформа:

WIN32, Linux, FreeBSD

Синтаксис:

include dll.e

a1 = define_c_var(a2, s)

Описание:

Выдаёт адрес переменной Си, загруженной в память. Аргумент a2 является адресом общей библиотеки .so Linux, FreeBSD или .dll Windows, выданным функцией open_dll(). Ряд s задает имя глобальной переменной Си, определенной внутри системной библиотеки. В переменной a1 будет содержаться значение адреса переменной s в памяти.

Комментарии:

Как только вы получили адрес переменной Си, и если вы знаете её тип, вы можете далее использовать подпрограммы peek() и poke(), чтобы считывать или записывать в памяти величину этой переменной.

Пример программы:

euphoria/demo/linux/mylib.exu

См. также:

c_proc, define_c_func, c_func, open_dll, platform_r.htm

dir

Синтаксис:

include file.e

x = dir(st)

Описание:

Выдаёт информацию о каталоге или о файле с именем st. Если такой каталог или файл не существует, выдаёт -1. Под Windows и DOS st может содержать символы догадок * и ?, что позволяет получать данные о нескольких файлах с похожими именами.

Выдаваемая информация похожа на ту, которую вы получаете по команде DIR под DOS. Ряд, формируемый функцией, содержит вложенные ряды (записи), каждый из которых описывает один файл или подкаталог.

Если в st задано имя каталога (директории, папки, фолдера), вы можете получить записи для "." и "..", точно так же, как и по команде DIR под DOS. Если же в st задано имя файла, тогда x будет иметь только одну запись, т.е. length(x) будет равна 1. Если в st содержатся символы догадок (шаблоны), вы можете получить многочисленные записи.

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

global constant D_NAME = 1, -- имя

D_ATTRIBUTES = 2, -- атрибуты

D_SIZE = 3, -- размер

D_YEAR = 4, -- год

D_MONTH = 5, -- месяц

D_DAY = 6, -- день

D_HOUR = 7, -- час

D_MINUTE = 8, -- минута

D_SECOND = 9 -- секунда

Элемент атрибутов является строковым рядом, содержащим символы, выбранные из следующего перечня:

'd' -- каталог

'r' -- файл только для чтения

'h' -- скрытый файл

's' -- системный файл

'v' -- метка тома

'a' -- файл, подлежащий архивированию

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

Комментарии:

Каталог высшего уровня, корневой, т.е. c:\, не содержит записей "." или "..".

Данная функция часто используется просто для проверки, существует ли заданный файл или каталог.

На платформе WIN32 в st могут содержаться длинные имена файлов или каталогов в любом месте полного пути.

На платформах Linux/FreeBSD в настоящее время доступен только атрибут 'd'.

DOS32: Имя файла, выдаваемое в элементе D_NAME, будет стандартным DOS-именем формата 8.3 (посетите Web-страницу Архива файлов, если вас интересует лучшее решение).

WIN32: Имя файла, выдаваемое в элементе D_NAME, будет длинным именем.

Пример:

d = dir(current_dir())

-- ряд d мог бы быть, например, равным:

{

{".", "d", 0 1994, 1, 18, 9, 30, 02},

{"..", "d", 0 1994, 1, 18, 9, 20, 14},

{"fred", "ra", 2350, 1994, 1, 22, 17, 22, 40},

{"sub", "d", 0, 1993, 9, 20, 8, 50, 12}

}

-- тогда d[3][D_NAME] было бы "fred"

Пример программы:

bin\search.ex

См. также:

wildcard_file, current_dir, open

display_image

Платформа:

DOS32

Синтаксис:

include image.e

display_image(s1, s2)

Описание:

Выводит в точке s1 на пиксельном экране 2-мерный ряд пикселов, описание которых содержится в s2. Аргумент s1 - двухэлементный ряд вида {x, y}. Аргумент s2 содержит ряды, каждый из которых представляет горизонтальную строчку значений цветов пикселов, которые необходимо включить на экране. Первый пиксел первого ряда расположен в точке s1. Это верхний левый пиксел. Все остальные пикселы расположены правее или ниже этого первого.

Комментарии:

Ряд s2 может быть результатом предшествовавшего вызова save_image() или вызова read_bitmap(), или тем, что секундой ранее вы рисовали в своем воображении.

Ряды (строчки) изображения могут быть разной длины.

Пример:

display_image({20,30}, {{7,5,9,4,8},

{2,4,1,2},

{1,0,1,0,4,6,1},

{5,5,5,5,5,5}})

-- Процедура выведет на экран небольшое изображение, состоящее

-- из 4-х горизонтальных рядов пикселов. Первый пиксел (цвет номер 7)

-- будет включен в точке {20,30}. Верхний ряд состоит из 5 пикселов.

-- Последний (нижний) ряд состоит из 6 пикселов цвета номер 5

-- и заканчивается в точке {25,33}.

Пример программы:

demo\dos32\bitmap.ex

См. также:

save_image, read_bitmap, display_text_image

display_text_image

Синтаксис:

include image.e

display_text_image(s1, s2)

Описание:

Выводит на экран 2-мерный ряд символов c заданными атрибутами, начиная с заданной экранной позиции. Аргумент s1 является двухэлементным рядом, содержащим координаты начальной экранной позиции - строка s1[1], колонка s1[2]. Аргумент s2 состоит из вложенных рядов, каждый из которых является строкой выводимых символов и их атрибутов. Верхний левый символ выводится в позиции s1. Другие символы появляются правее и ниже этой позиции. Атрибут следует за символом и своим кодом указывает цвет символа и цвет фона на котором символ должен быть отображён. Под DOS32 атрибут представляет собой сумму номера цвета и умноженного на 16 номера цвета фона.

Комментарии:

Ряд s2 обычно будет результатом предшествующего вызова функции save_text_image(), хотя вы можете сконструировать этот ряд и сами.

Данная процедура работает только в текстовых экранных режимах.

Пара подпрограмм save_text_image() и display_text_image() пригодится вам для организации в текстовом режиме графического пользовательского интерфейса с всплывающими диалогами и выпадающими меню, которые появляются и исчезают без потери того, что было на экране до них.

Строки текстового изображения могут иметь разную длину.

Пример:

clear_screen()

display_text_image({1,1}, {{'A', WHITE, 'B', GREEN},

{'C', RED+16*WHITE},

{'D', BLUE}})

-- начиная с верхнего левого угла экрана, выводится:

AB

C

D

-- 'A' - белого цвета на чёрном (0) фоне,

-- 'B' - зелёного цвета на чёрном фоне,

-- 'C' - красного цвета на белом фоне и

-- 'D' - синего цвета на чёрном фоне.

См. также:

save_text_image, display_image, put_screen_char

dos_interrupt

Платформа:

DOS32

Синтаксис:

include machine.e

s2 = dos_interrupt(i, s1)

Описание:

Вызывает программное прерывание DOS номер i. Аргумент s1 является 10-элементным рядом 16-битных значений, заносимых в регистры процессора перед входом в процедуру прерывания. Ряд s2 аналогичен 10-элементному ряду s1, в нем будут содержаться значения регистров после выхода из процедуры прерывания. В файле machine.e имеется следующее объявление констант, из которого ясно расположение значений регистров во входном и выходном рядах s1 и s2:

global constant REG_DI = 1,

REG_SI = 2,

REG_BP = 3,

REG_BX = 4,

REG_DX = 5,

REG_CX = 6,

REG_AX = 7,

REG_FLAGS = 8,

REG_ES = 9,

REG_DS = 10

Комментарии:

Значения регистров, выдаваемые в s2, всегда являются положительными целыми числами между 0 и #FFFF (65535).

Значения флагов в s1[REG_FLAGS] на входе игнорируются. На выходе младший значащий бит в s2[REG_FLAGS] соответствует флагу состояния, который обычно указывает на неудачу, если он установлен в 1.

Некоторые прерывания требуют, чтобы вы указывали адреса участков памяти. Эти адреса должны относиться к стандартной (нижней) памяти. Вы можете подготовить/освободить нижнюю память с помощью функций allocate_low() и free_low().

С программными прерываниями DOS вы имеете доступ ко всему широкому кругу специализированных операций, любых, от форматирования вашего флоппи-диска до перезагрузки компьютера. Документацию по этим прерываниям можно найти в книге Питера Нортона "Библия программиста PC", или в файле "Список прерываний" на странице Web Ральфа Брауна по адресу:

Пример:

sequence registers

registers = repeat(0, 10) -- установка значений регистров не требуется

-- вызывается прерывание номер 5 DOS: Print Screen - Печатать Экран

registers = dos_interrupt(#5, registers)

Пример программы:

demo\dos32\dosint.ex

См. также:

allocate_low, free_low

draw_line

Платформа:

DOS32

Синтаксис:

include graphics.e

draw_line(i, s)

Описание:

Чертит на экране в пиксельном режиме линию, соединяющую две или более точек с координатами, заданными в s, используя цвет номер i.

Пример:

draw_line(WHITE, {{100, 100}, {200, 200}, {900, 700}})

-- Белой линией будут соединены три точки

-- от {100, 100} до {200, 200}

-- и от {200, 200} до {900, 700}.

См. также:

polygon, ellipse, pixel

...

от E до G

ellipse

Платформа:

DOS32

Синтаксис:

include graphics.e

ellipse(i1, i2, s1, s2)

Описание:

Вычерчивает на экране в пиксельном режиме эллипс цвета номер i1. Эллипс будет вписан в воображаемый прямоугольник, определённый диагональными точками s1 {x1, y1} и s2 {x2, y2}. Если прямоугольник равносторонний (квадрат), эллипс становится кругом. Эллипс будет заполненным, когда аргумент i2 равен 1, и незаполненным, когда i2 равно 0.

Пример:

ellipse(MAGENTA, 0, {10, 10}, {20, 20})

-- Процедура вычерчивает окружность пурпурного (малинового) цвета,

-- которая является вписанной в воображаемый квадрат

-- с координатами вершин: {10, 10}, {10, 20}, {20, 20}, {20, 10}.

Пример программы:

demo\dos32\sb.ex

См. также:

polygon, draw_line

equal

Синтаксис:

i = equal(x1, x2)

Описание:

Сравнивает два объекта Euphoria для проверки их идентичности. Выдаёт 1 (истина), если объекты идентичны, 0 (ложь), если имеется отличие.

Комментарии:

Данная операция эквивалентна выражению: compare(x1, x2) = 0

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

Пример 1:

if equal(PI, 3.14) then

puts(1, "дайте мне более точное значение для PI!\n")

end if

Пример 2:

if equal(name, "George") or equal(name, "GEORGE") then

puts(1, "его имя - George\n")

end if

См. также:

compare, операции сравнения (=)

find

Синтаксис:

i = find(x, s)

Описание:

Ищет объект x как элемент ряда s. В случае первого же успеха выдаёт индекс (номер) текущего элемента в ряде s, который совпадает по величине с x, и прекращает дальнейший поиск. При неудаче поиска выдаёт 0.

Пример 1:

location = find(11, {5, 8, 11, 2, 3})

-- индекс location будет равен 3

Пример 2:

names = {"fred", "rob", "george", "mary", ""}

location = find("mary", names)

-- индекс location будет равен 4

См. также:

find_from, match, match_from, compare

find_from

Синтаксис:

i1 = find_from(x, s, i2)

Описание:

Ищет объект x как элемент ряда s, начиная поиск с индекса (номера) i2. В случае первого же успеха выдаёт индекс (номер) текущего элемента в ряде s, который совпадает по величине с x, и прекращает дальнейший поиск. При неудаче поиска выдаёт 0. Индекс i2 может иметь любую величину в диапазоне от 1 до длины ряда s плюс 1 - аналогично первому индексу сечения (отрезка) ряда s.

Пример 1:

location = find_from(11, {11, 8, 11, 2, 3}, 2)

-- индекс location будет равен 3

Пример 2:

names = {"mary", "rob", "george", "mary", ""}

location = find_from("mary", names, 3)

-- индекс location будет равен 4

См. также:

find, match, match_from, compare

float32_to_atom

Синтаксис:

include machine.e

a1 = float32_to_atom(s)

Описание:

Преобразует ряд, состоящий из 4 байтов, в атом. Считается, что эти 4 байта должны содержать число с плавающей точкой в 32-битном формате по стандарту IEEE.

Комментарии:

Любая 4-х байтовая величина, выражающая 32-битное число с плавающей точкой в формате IEEE, может быть преобразована в атом.

Пример:

f = repeat(0, 4)

fn = open("numbers.dat", "rb") -- побайтовое чтение

f[1] = getc(fn)

f[2] = getc(fn)

f[3] = getc(fn)

f[4] = getc(fn)

a = float32_to_atom(f)

См. также:

float64_to_atom, atom_to_float32

float64_to_atom

Синтаксис:

include machine.e

a1 = float64_to_atom(s)

Описание:

Преобразует ряд, состоящий из 8 байтов, в атом. Считается, что эти 8 байтов должны содержать число с плавающей точкой в 64-битном формате по стандарту IEEE.

Комментарии:

Любая 8-ми байтовая величина, выражающая 64-битное число с плавающей точкой в формате IEEE, может быть преобразована в атом.

Пример:

f = repeat(0, 8)

fn = open("numbers.dat", "rb") -- побайтовое чтение

for i = 1 to 8 do

f[i] = getc(fn)

end for

a = float64_to_atom(f)

См. также:

float32_to_atom, atom_to_float64

floor

Синтаксис:

x2 = floor(x1)

Описание:

Выдаёт наибольшее целое, меньшее или равное x1 (округляет вниз до целого, то есть, отбрасывая дробную часть у положительных чисел или считая дробную часть за полную -1 у отрицательных чисел).

Комментарии:

Эта функция может быть применена к атому или ко всем элементам ряда.

Пример:

y = floor({0.5, -1.6, 9.99, 100})

-- y будет равно {0, -2, 9, 100}

См. также:

remainder

flush

Синтаксис:

include file.e

flush(fn)

Описание:

Когда вы записываете данные в файл, обычно Euphoria сначала размещает данные в буфере, организованном в оперативной памяти, пока не будет накоплен достаточно большой объём этих данных. Этот сравнительно большой объём данных может быть затем очень быстро и эффективно записан на диск. Иногда у вас может возникнуть необходимость форсировать, ускорить немедленный вывод данных на диск, хотя оптимальный буфер ещё не заполнен. Чтобы сделать это досрочное выталкивание данных, и предназначена процедура flush(fn), где fn является номером файла, который был открыт вами для записи или дополнения.

Комментарии:

Когда файл закрывается, (см. close()), все данные, остающиеся в буфере, выводятся в файл именно так, как это делает процедура flush(). Когда программа заканчивается, во все открытые файлы выводятся данные, остающиеся в буфере, и файлы закрываются автоматически.

Используйте flush(), когда, например, другому процессу необходимо видеть все данные уже записанными на диск, но вы ещё не готовы закрыть файл.

Пример:

f = open("logfile", "w")

puts(f, "Record#1\n")

puts(1, "По готовности нажмите Enter\n")

flush(f) -- Команда выталкивает "Record #1" в файл "logfile" на диске.

-- Без этой команды "logfile" будет ещё пустым,

-- когда мы уже закончим ввод с клавиатуры.

s = gets(0) -- ожидание ввода с клавиатуры

См. также:

close, lock_file

free

Синтаксис:

include machine.e

free(a)

Описание:

Освобождает ранее занятый участок памяти, ориентируясь по начальному адресу этого участка, т.е. адресу, полученному от функции allocate() при подготовке участка к использованию.

Комментарии:

Не пренебрегайте функцией free() для освобождения и повторного использования программой участков памяти, занятых вами в дополнение к автоматическому её распределению во время работы программы. Это снизит вероятность нехваток оперативной памяти или чрезмерного обмена с дисковой виртуальной. Не обращайтесь по тем адресам, которые были освобождены. Когда ваша программа завершается, вся занятая ею память будет возвращена операционной системе автоматически.

Не вызывайте free(), чтобы освободить память, занятую в нижних адресах с помощью функции allocate_low(). Для этого имеется специальная процедура free_low().

Пример программы:

demo\callmach.ex

См. также:

allocate, free_low

free_console

Платформа:

WIN32, Linux, FreeBSD

Синтаксис:

include dll.e

free_console()

Описание:

Закрывает (удаляет) консольное окно, связанное с вашей программой (если оно существует).

Комментарии:

Эта процедура используется, если вы получаете нежелательное сообщение "Press Enter" в конце исполнения вашей программы на платформах Windows или Linux/FreeBSD.

См. также:

clear_screen, platform_r.htm

free_low

Платформа:

DOS32

Синтаксис:

include machine.e

free_low(i)

Описание:

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

Комментарии:

Процедуру free_low() следует использовать для возвращения участков стандартной памяти в резерв программы во время её работы. Это снизит вероятность исчерпания стандартной памяти. Не обращайтесь к тем участкам памяти, которые были освобождены. Когда ваша программа завершается, вся занятая ею память, включая резервы программы, возвращается в распоряжение операционной системы.

Не используйте free_low() для освобождения той памяти, которая была выделена с помощью функции allocate(). Для этого случая существует своя собственная процедура free().

Пример программы:

demo\dos32\dosint.ex

См. также:

allocate_low, dos_interrupt, free

get

Синтаксис:

include get.e

s = get(fn)

Описание:

Считывает из файла fn строковое (текстовое) представление объекта Euphoria. Преобразует строковое представление в численное значение данного объекта, которое может быть затем присвоено переменной. Выдаваемый функцией ряд является 2-х элементным рядом вида: {результат чтения, значение объекта}.

Коды, обозначающие результат чтения (константы определены в файле get.e):

GET_SUCCESS -- объект прочитан успешно (0)

GET_EOF -- файл закончился до прочтения объекта (-1)

GET_FAIL -- объект синтаксически некорректен (1)

Функция get() может считывать объекты Euphoria произвольной сложности. В файле могут содержаться длинные ряды величин, разделённых запятыми, в фигурных скобках и величины в кавычках, например, {23, {49, 57}, 0.5, -1, 99, 'A', "john"}. Единственный вызов get() будет читать данные в этом входном тексте и выдавать значение объекта как результат.

Каждый последующий вызов get() находит место, где остановился предыдущий. Например, серия из 5 вызовов get() будет нужна для прочтения следующей серии объектов:

99 5.2 {1,2,3} "Hello" -1.

Здесь, начиная с шестого вызова get() и во всех последующих, вы будете получать результат чтения GET_EOF. А если во входном тексте у вас будет что-либо вроде:

{1, 2, xxx} или {1+1, 2*2, 3-2},

то вы получите результат чтения GET_FAIL, так как xxx не является строковым представлением объекта Euphoria, а выражения на входе функции get() не допускаются.

Объекты "высшего уровня" во входном тексте должны быть отделены друг от друга одним или более символов "пробела" (пробел, знак табуляции, \r или \n). Эти "пробелы" игнорируются Euphoria внутри текстового представления объектов высшего уровня. Каждый вызов get() будет читать один входной объект высшего уровня плюс один добавочный символ "пробела", имеющегося между объектами.

Комментарии:

Комбинация процедур print() и get() очень удобна для записи Euphoria-объектов на диск и последующего их чтения. Эта техника может быть использована для организации базы данных как одного или нескольких больших рядов Euphoria, размещённых в дисковых файлах. Ряды могут быть считаны в переменные, обновлены и затем записаны на диск после каждой завершённой серии транзакций. Не забывайте выводить символ "пробела" (используя puts()) после каждого вызова print().

Выдаваемые данные всегда имеют маловыразительный числовой формат, в котором строки представлены кодами ASCII.

Если результат чтения НЕ соответствует состоянию GET_SUCCESS (объект прочитан успешно), значение объекта не имеет смысла.

Пример:

Предположим, ваша программа предлагает пользователю ввести числа с клавиатуры.

-- если пользователь наберёт 77.5, функция get(0) выдаст:

{GET_SUCCESS, 77.5}, точнее {0, 77.5}

-- в то время как функция gets(0) выдала бы результат, эквивалентный:

"77.5\n"

Пример программы:

demo\mydata.ex

См. также:

print, value, gets, getc, prompt_number, prompt_string

get_active_page

Платформа:

DOS32

Синтаксис:

include image.e

i = get_active_page()

Описание:

Большинство видеоплат имеет графические режимы со множественными страницами памяти. Это позволяет вам записывать экранную информацию на одну страницу, а отображать в это же время другую страницу, уже готовую к просмотру. Функция get_active_page() выдаёт номер текущей страницы, на которую экранная информация записывается.

Комментарии:

По умолчанию номер активной и отображаемой страницы один и тот же и равен 0, то есть пользователь видит собственно процесс записи экранной информации.

Функция video_config() покажет вам, сколько страниц доступно в текущем графическом режиме.

См. также:

set_active_page, get_display_page, video_config

get_all_palette

Платформа:

DOS32

Синтаксис:

include image.e

s = get_all_palette()

Описание:

Выдаёт ряд интенсивностей полного набора цветов в текущем графическом режиме. Ряд s имеет следующую форму:

{{r,g,b}, {r,g,b}, ..., {r,g,b}}

Каждый элемент содержит характеристику интенсивности цвета {красный (r), зелёный (g), синий (b)} для соответствующего номера цвета, начиная с номера 0. Величины для красного, зеленого и синего будут в пределах от 0 до 63. Заметьте, первый элемент ряда содержит характеристику цвета номер 0.

Комментарии:

Эта функция может применяться, чтобы получить данные о палитре, необходимые для процедуры save_bitmap(). Не забудьте умножить эначения составляющих цветов на 4 перед вызовом save_bitmap(), так как save_bitmap() ожидает величин в пределах от 0 до 255.

См. также:

palette, all_palette, read_bitmap, save_bitmap, save_screen

get_bytes

Синтаксис:

include get.e

s = get_bytes(fn, i)

Описание:

Читает следующие i байтов из файла номер fn. Выдаёт байты в виде ряда. Ряд будет иметь длину i, исключая случаи, когда в файле для чтения остаётся меньше, чем i байтов.

Комментарии:

Когда i > 0 и length(s) < i, это означает, что вы достигли конца файла. В конечном итоге функция выдаёт пустой ряд.

Эта функция обычно используется с файлами, открытыми на чтение в двоичном режиме, "rb". Данный приём позволяет избежать путаницы текстового режима "r", в котором DOS пребразует пары управляющих символов CR и LF в LF ("возврат каретки" + "перевод строки" в "перевод строки").

Пример:

include get.e

integer fn

fn = open("temp", "rb") -- существующий файл

sequence whole_file

whole_file = {}

sequence chunk

while 1 do

chunk = get_bytes(fn, 100) -- читает отрывок в 100 байтов за один вызов

whole_file &= chunk -- отрывок может быть пустым, это нормально

if length(chunk) < 100 then

exit

end if

end while

close(fn)

? length(whole_file) -- должно совпадать с размером "temp", выдаваемым по команде DIR

См. также:

getc, gets

get_display_page

Платформа:

DOS32

Синтаксис:

include image.e

i = get_display_page()

Описание:

Большинство видеоплат имеет графические режимы со множественными страницами памяти. Это позволяет вам записывать экранную информацию на одну страницу, а отображать в это же время другую страницу, уже готовую к просмотру. Функция get_display_page() выдаёт номер текущей страницы, которая отображается на мониторе.

Комментарии:

По умолчанию номер активной и отображаемой страницы один и тот же и равен 0, то есть пользователь видит собственно процесс записи экранной информации.

Функция video_config() покажет вам, сколько страниц доступно в текущем графическом режиме.

См. также:

set_display_page, get_active_page, video_config

get_key

Синтаксис:

i = get_key()

Описание:

Выдаёт код клавиши, которая была нажата пользователем, но не ожидает нажатия. Выдает -1, если ни одна из клавиш не была нажата. Специальные коды выдаются для функциональных клавиш, клавиш со стрелками и т.д.

Комментарии:

Операционная система может хранить некоторое не слишком большое количество кодов последовательных нажатий на клавиши в своём буфере клавиатуры. Функция get_key() будет выдавать данные из буфера о каждом следующем нажатии на клавишу или -1, если буфер пуст.

Запустите программу key.bat, чтобы увидеть, какие коды генерируются при нажатии на каждую из клавиш именно вашей клавиатуры, так как возможны отличия.

См. также:

wait_key, getc

get_mouse

Платформа:

DOS32

Синтаксис:

include mouse.e

x1 = get_mouse()

Описание:

Выдаёт данные о последнем мышином событии по форме: {событие, x, y} или выдаёт -1, если никаких событий с момента последнего вызова get_mouse() не было.

В файле mouse.e определены глобальные константы для следующих возможных мышиных событий (нажатий на кнопки):

global constant MOVE = 1, -- движение

LEFT_DOWN = 2, -- левая нажата

LEFT_UP = 4, -- левая отпущена

RIGHT_DOWN = 8, -- правая нажата

RIGHT_UP = 16, -- правая отпущена

MIDDLE_DOWN = 32, -- средняя нажата

MIDDLE_UP = 64 -- средняя отпущена

Величины x и y являются координатами курсора мыши на момент произошедшего события. Функция get_mouse() выдаёт немедленно или -1, или событие. Функция не ожидает событий. Вы должны проверять обстановку на мыши достаточно часто, чтобы избежать пропуска событий. Когда случается очередное событие, данные о предыдущем теряются, если вы не успели прочитать их. На практике несложно отследить практически все события. Потеря события MOVE в общем случае не очень критична, так как следующие MOVE покажут вам, где находится курсор мыши.

Информация о нескольких событиях, происходящих одновременно, также может выдаваться. Например, если мышь передвигается с нажатой левой кнопкой, get_mouse() будет выдавать величину события LEFT_DOWN + MOVE, т.е. 2 + 1, что равно 3. По этой причине вы должны проверять информацию и выделять частные события с помощью and_bits(). Просмотрите примеры ниже, чтобы уяснить детали.

Комментарии:

В пиксельных режимах с шириной экрана 320 пикселов вам необходимо будет делить значение координаты x на 2, чтобы получать правильную позицию курсора на экране (странная особенность DOS.)

В текстовых режимах DOS32 вам необходимо масштабировать координаты x и y, чтобы получить позицию по строкам и колонкам.

Чтобы использовать get_mouse() под DOS32, вам необходим загруженный драйвер DOS для программной связи с подключенной к порту мышью.

Вы можете вызывать get_mouse() в большинстве текстовых и пиксельных режимов.

Первый вызов get_mouse(), который вы делаете, включает курсор мыши или подсвечивает позицию символа, в которой находится курсор.

DOS в общем случае не обеспечивает использование мыши в графических режимах SVGA (экраны с числом пикселов более 640x480). Это ограничение снято в Windows 95 (DOS 7.0). Грэм Барки, Питер Блю и другие программисты распространяют подпрограммы для мыши, которые решают проблемы, связанные с использованием мыши в SVGA. Посетите в Интернет страницу Архива файлов Euphoria.

Координаты x и y, выдаваемые функцией, будут совпадать с положением острия курсора мыши или могут относиться к ближайшему пикселу, на который это острие указывает. Проверьте это, если вы пытаетесь прочесть цвет пиксела с помощью функции get_pixel(). Может оказаться, что вам нужны координаты x-1, y-1 вместо x, y.

Пример 1:

Выданные величины:

{2, 100, 50}

говорят о том, что в данный момент левая кнопка нажата, а курсор мыши находится на экране в точке с координатами x=100, y=50.

Пример 2:

Чтобы проверить LEFT_DOWN, т.е. не нажата ли левая кнопка, напишите программу наподобие следующей:

object event

while 1 do

event = get_mouse()

if sequence(event) then

if and_bits(event[1], LEFT_DOWN) then

-- левая кнопка была нажата

exit

end if

end if

end while

См. также:

mouse_events, mouse_pointer, and_bits

get_pixel

Платформа:

DOS32

Синтаксис:

x = get_pixel(s)

Описание:

Когда s является 2-х элементным рядом экранных координат {x, y}, get_pixel() выдаёт номер цвета пиксела на пиксельном экране в этой точке (небольшое целое число).

Когда s является 3-х элементным рядом формы {x, y, n}, get_pixel() выдаёт ряд из n номеров цветов для точек, начиная с {x, y} и с шагом 1 вправо, {x+1, y}, {x+2, y} и т.д.

Точки за пределами экрана имеют непредсказуемые номера цветов.

Комментарии:

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

Пример:

object x

x = get_pixel({30,40})

-- x даёт значение цвета в точке x=30, y=40

x = get_pixel({30,40,100})

-- x даёт ряд из 100 номеров цвета, представляющих

-- строчку пикселов, начинающуюся в точке {30,40} и идущую вправо

См. также:

pixel, graphics_mode, get_position

get_position

Синтаксис:

include graphics.e

s = get_position()

Описание:

Выдаёт номера текущих строки и колонки позиции, в которой находится курсор, как 2-х элементный ряд вида {строка, колонка}.

Комментарии:

Функция get_position() работает в обоих режимах - текстовом и пиксельном. В пиксельных режимах курсор не будет виден, но get_position() будет выдавать строку и колонку, в которых появится следующий символ.

Система координат, в которой отображаются символы, отличается от той, в которой отображаются пикселы. Пикселы отображаются так, что верхний левый находится в точке (x=0,y=0) и первая координата управляет горизонтальным положением, слева направо. Для символов же первая координата управляет вертикальным положением, сверху вниз, а верхний левый находится в позиции 1,1. В пиксельных режимах вы можете одновременно выводить на экран и пикселы, и текст. Функция get_position() выдаёт текущие строку и колонку для выводимого вами текста, а не для пиксела, который вы собираетесь включить. Соответствующая функция для получения текущей позиции пиксела в языке Euphoria отсутствует.

См. также:

position, get_pixel

get_screen_char

Синтаксис:

include image.e

s = get_screen_char(i1, i2)

Описание:

Выдаёт 2-элементный ряд s в форме {код ascii, атрибут} для символа на экране в строке i1, колонке i2. Ряд s состоит из двух атомов. Первый даёт код ASCII для символа. Второй же содержит информацию о цветах символа и фона и, возможно, другие данные, относящиеся к внешнему виду символа на экране.

Комментарии:

С помощью подпрограмм get_screen_char() и put_screen_char() вы можете запоминать и выводить на экран символы с их атрибутами.

Пример:

-- запоминает в ряде s символ и его атрибут из верхнего левого угла экрана

s = get_screen_char(1,1)

-- выводит из ряда s символ с его атрибутом в позицию строка 25, колонка 10

put_screen_char(25, 10, {s})

См. также:

put_screen_char, save_text_image

get_vector

Платформа:

DOS32

Синтаксис:

include machine.e

s = get_vector(i)

Описание:

Выдаёт текущий дальний адрес защищенного режима для обработчика прерывания номер i. Ряд s будет иметь 2 элемента: {16-битный сегмент, 32-битное смещение}.

Пример:

s = get_vector(#1C)

-- s будет содержать дальний адрес обработчика

-- прерывания от таймера, например: {59, 808}

Пример программы:

demo\dos32\hardint.ex

См. также:

set_vector, lock_memory

getc

Синтаксис:

i = getc(fn)

Описание:

Считывает и выдаёт следующий символ (байт) из файла или с устройства fn. Коды символов будут иметь величину от 0 до 255. При достижении конца файла выдаётся -1.

Комментарии:

Ввод из файла с использованием функции getc() буферизируется, т.е. getc() не обращается к диску за каждым очередным символом. Напротив, большой блок символов сразу считывается в буфер, но из памяти буфера символы выдаются по одному.

Когда getc() читает с клавиатуры, никакие символы не будут видны, пока пользователь не нажмёт Enter. Заметьте, что набранное пользователем на клавиатуре сочетание control-Z трактуется операционной системой как "конец файла". В этом случае вместо кода символа будет выдана -1.

См. также:

gets, get_key, wait_key, open

getenv

Синтаксис:

x = getenv(s)

Описание:

Выдаёт значение переменной окружения DOS. Если переменная с именем, заданным в строковом ряде s, не определена, выдает -1.

Комментарии:

Так как функция может выдавать или ряд, или атом (-1), переменная, которой присваивается значение функции, должна быть объявлена как объект.

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

Пример:

e = getenv("EUDIR")

-- e будет равно "C:\EUPHORIA" -- или, возможно, D:, E: и т.д.

См. также:

command_line

gets

Синтаксис:

x = gets(fn)

Описание:

Считывает и выдаёт очередной ряд символов из файла или с устройства fn (одну строку, включая '\n'). Коды символов будут иметь величины от 0 до 255. При достижении конца файла выдаётся атом -1.

Комментарии:

Так как функция выдаёт или ряд, или атом (-1), вы должны объявить как объект переменную, которой будет присвоено значение функции.

После чтения строки текста с клавиатуры вы обычно должны будете вывести символ окончания строки, '\n', т.е. подать команду puts(1, '\n'), прежде чем печатать что-либо другое. Иначе печать не начнётся от левого края экрана, а будет продолжаться вслед за той строкой, которая была введена с клавиатуры. Только при достижении конца последней строки экрана операционная система автоматически произведёт прокрутку экрана и переведёт курсор в начало следующей строки.

Последняя строка файла может не иметь символа перевода строки '\n' в конце.

Заметьте, что когда ваша программа читает с клавиатуры, набранное пользователем на клавиатуре сочетание control-Z трактуется операционной системой как "конец файла". В этом случае вместо кода символа будет выдана -1.

В режимах SVGA DOS может устанавливать неверную позицию курсора после вызова gets(0) для чтения с клавиатуры. Вы должны установить необходимую вам позицию сами, применив процедуру position().

Пример 1:

sequence buffer

object line

integer fn

-- читает текстовый файл в ряд

fn = open("myfile.txt", "r")

if fn = -1 then

puts(1, "Не могу открыть myfile.txt\n")

abort(1)

end if

buffer = {}

while 1 do

line = gets(fn)

if atom(line) then

exit -- -1 выдана в конце файла

end if

buffer = append(buffer, line)

end while

Пример 2:

object line

puts(1, "Как вас зовут?\n")

line = gets(0) -- читает стандартный вход (клавиатуру)

line = line[1..length(line)-1] -- удаляет символ \n в конце

puts(1, '\n') -- необходимо

puts(1, line & " - хорошее имя.\n")

См. также:

getc, puts, open

graphics_mode

Платформа:

DOS32

Синтаксис:

include graphics.e

i1 = graphics_mode(i2)

Описание:

Включает видеорежим i2. Просмотрите файл graphics.e, в котором имеется список доступных под управлением Euphoria пиксельных и текстовых видеорежимов. Если заданный режим включен успешно, i1 устанавливается в 0, в противном случае i1 устанавливается в 1.

Комментарии:

Некоторые видеорежимы называются текстовыми, так как в них может отображаться только текст и псевдографика. Другие видеорежимы называются пиксельными, потому что в них вы можете включать отдельные пикселы (элементы разрешения экрана), вычерчивать линии, эллипсы и т.д. и одновременно печатать текст.

Для более четкого возвращения в среду операционной системы обычно целесообразно перед завершением вашей программы перейти из пиксельного режима в стандартный исходный текстовый режим. Это можно сделать, вызвав функцию graphics_mode(-1). Если графическая программа приводит ваш экран в какое-то необычное беспорядочное состояние, вы можете очистить его с помощью команды DOS CLS, а также запустив интерпретатор ex.exe или редактор ed.

Некоторые видеоплаты иногда могут быть не в состоянии обеспечить вполне правильную работу в отдельных режимах SVGA, хотя при программном включении этого режима вы и получили величину i1, соответствующую успешному включению. Данную ошибку крайне трудно выявить без тестирования программы на конкретном оборудовании, так как стандартизация режимов SVGA и параметров новейших видеоплат далека от завершения.

На платформах WIN32 и Linux/FreeBSD Euphoria исполняет команду graphics_mode(), для любого i2 выводя обычную текстовую консоль, если этой консоли ещё нет. Функция всегда выдаёт 0, не имеет значения, какое i2 в неё подано.

Пример:

if graphics_mode(18) then

puts(SCREEN, "требуется графика VGA!\n")

abort(1)

end if

draw_line(BLUE, {{0,0}, {50,50}})

См. также:

text_rows, video_config

...

от H до O

instance

Платформа:

WIN32

Синтаксис:

include misc.e

i = instance()

Описание:

Выдаёт идентификатор текущей программы.

Комментарии:

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

В языке Си это первый аргумент при вызове функции WinMain().

На платформах DOS32 и Linux/FreeBSD instance() всегда выдаёт 0.

См. также:

platform.doc

int_to_bits

Синтаксис:

include machine.e

s = int_to_bits(a, i)

Описание:

Выдаёт i младших битов атома a как ряд единиц и нулей. В этом ряде младшие значащие биты идут первыми. Для отрицательных чисел выдаётся двоичное дополнение.

Комментарии:

, , and/or/xor/not

Вы можете использовать индексирование, сечение, операторы and/or/xor/not для обработки выходного ряда, т.е. манипулировать рядами битов по своему усмотрению. При необходмости могут быть легко осуществлены обычные и циклические сдвиги битов, а также другие преобразования.

Пример:

s = int_to_bits(177, 8)

-- s будет равно {1,0,0,0,1,1,0,1} -- "обратный" порядок

См. также:

bits_to_int, and_bits, or_bits, xor_bits, not_bits, операции на рядах

int_to_bytes

Синтаксис:

include machine.e

s = int_to_bytes(a)

Описание:

Преобразует целое в ряд, состоящий из 4 байтов. Эти байты идут в порядке, предусмотренном на машинах 386+, т.е. младший значащий байт идет первым.

Комментарии:

Вы можете воспользоваться этой процедурой перед засылкой 4 байтов в память при работе с программой на машинном языке.

Целое может быть отрицательным. При этом будут выданы отрицательные значения для величин байтов, но после засылки их в память вы получите правильное представление (двоичное дополнение), принятое на машинах 386+.

Эта функция будет правильно преобразовывать целочисленные величины, включая 32-битные и менее. Для больших величин преобразуются только младшие 32 бита. Тип целых в Euphoria может иметь величину не более 31 бита, так что объявляйте ваши переменные как атом, если вам нужны более широкие пределы величин.

Пример 1:

s = int_to_bytes(999)

-- s будет равно {231, 3, 0, 0}

Пример 2:

s = int_to_bytes(-999)

-- s будет равно {-231, -4, -1, -1}

См. также:

bytes_to_int, int_to_bits, bits_to_int, peek, poke, poke4

integer

Синтаксис:

i = integer(x)

Описание:

Выдаёт 1, если x является целым в пределах от -1073741824 до +1073741823. В противном случае выдаёт 0.

Комментарии:

Данная команда служит для объявления переменной типа integer. Вы можете также использовать её и как функцию для проверки, какого типа объект перед вами, не целое ли это число.

Пример 1:

integer z

z = -1

Пример 2:

if integer(y/x) then

puts(SCREEN, "y кратно x")

end if

См. также:

atom, sequence, floor

length

Синтаксис:

i = length(s)

Описание:

Выдаёт длину ряда s. Переменная s должна быть именно типа ряд. В случае, если s является атомом, возникает ошибка времени исполнения с остановкой программы и выводом сообщения.

Комментарии:

Значение текущей длины каждого ряда сохраняется интерпретатором во внутреннем формате для осуществления быстрого доступа.

Пример 1:

length({{1,2}, {3,4}, {5,6}}) -- 3

Пример 2:

length("") -- 0

Пример 3:

length({}) -- 0

См. также:

sequence

lock_file

Синтаксис:

include file.e

i1 = lock_file(fn, i2, s)

Описание:

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

lock_file() как раз и запирает открытый файл, fn, чтобы предотвратить параллельный доступ других процессов к файлу в то время, когда ваша программа читает файл или пишет в него. Под Linux/FreeBSD имеется два типа замков, которые вы можете выбрать, используя параметр i2. (Под DOS32 и WIN32 параметр i2 игнорируется, но должен быть типа integer.) Выбирайте shared (общий) замок, когда вам необходимо читать из файла и вы хотите временно заблокировать другие процессы от записи в этот файл. Выбирайте exclusive (исключительный) замок, когда вам необходима запись в файл и требуется временная блокировка других процессов и от записи, и от чтения вашего файла. Один и тот же файл может иметь общие замки от многих процессов, но только один процесс может ставить исключительный замок, и это может быть только в том случае, когда ни один другой процесс не имеет никакого замка для этого файла. Библиотечный файл file.e содержит следующее объявление:

global constant LOCK_SHARED = 1,

LOCK_EXCLUSIVE = 2

Под DOS32 и WIN32 вы можете запирать назначенную часть файла, используя аргумент s. Переменная s должна быть типа ряд и иметь форму: {первый_байт, последний_байт}. Ряд обозначает первый и последний байты участка в файле, к которому применен замок. Задавайте пустой ряд {}, если вы хотите запереть весь файл. В данном выпуске для Linux/FreeBSD может быть заперт только весь файл, поэтому в качестве аргумента s вы должны задавать {}.

Если функция выполнена успешно, lock_file() выдаёт 1. Если запирание не удалось, выдаётся 0. lock_file() не ожидает, пока другие процессы снимут свои замки. Вам могут понадобиться повторные вызовы данной функции, прежде чем запрос замка будет удовлетворен.

Комментарии:

Под Linux/FreeBSD эти замки называются "консультативными", податливыми замками, это означает, что они осуществляются не операционной системой. Они указывают, как процессы могут использовать отдельные особые файлы во взаимодействии со всеми другими процессами. Процесс может получить доступ к файлу без предварительного его запирания для других процессов. Под WIN32 и DOS32 запирание файлов осуществляется операционной системой.

Под DOS32 lock_file() более полезна, когда доступ к файлам общий. Вне Windows, под чистой MS-DOS, функция обычно выдаёт 0 (неуспешно).

Пример:

include misc.e

include file.e

integer v

atom t

v = open("visitor_log", "a") -- открыт для дополнения

t = time()

while not lock_file(v, LOCK_EXCLUSIVE, {}) do

if time() t + 60 then

puts(1, "Уже прошла целая минута ... Я не могу ждать вечно!\n")

abort(1)

end if

sleep(5) -- позволим идти другим процессам

end while

puts(v, "Ещё один посетитель\n")

unlock_file(v, {})

close(v)

См. также:

unlock_file, flush, sleep

lock_memory

Платформа:

DOS32

Синтаксис:

include machine.e

lock_memory(a, i)

Описание:

Предохраняет участок виртуальной памяти, начинающийся по адресу a, имеющий длину i, от перекачки на диск.

Комментарии:

Используйте данную процедуру, чтобы быть уверенным, что весь код и данные, необходимые для обработки прерываний, хранятся в памяти во всё время исполнения вашей программы. lock_memory() может потребоваться только в крайне специальной ситуации, когда вы установили свой собственный обработчик машинного прерывания DOS, использующий машинный код. Когда машинное прерывание срабатывает, у операционной системы теряется всякая возможность обратиться к коду или данным, которые были выгружены на диск, поэтому вам нужна защита всех участков памяти с машинным кодом или данными, которые будут необходимыми при обслуживании прерывания.

Пример программы:

demo\dos32\hardint.ex

См. также:

get_vector, set_vector

log

Синтаксис:

x2 = log(x1)

Описание:

Выдаёт натуральный логарифм x1.

Комментарии:

Эта функция может быть применена к атому или ко всем элементам ряда. Заметьте, что логарифм определён только для положительных чисел. Ваша программа будет прервана с сообщением об ошибке, если вы попытаетесь взять логарифм отрицательного числа или нуля.

Пример:

a = log(100)

-- a будет равно 4.60517

См. также:

sin, cos, tan, sqrt

lower

Синтаксис:

include wildcard.e

x2 = lower(x1)

Описание:

Преобразует атом или ряд на латинском алфавите к нижнему регистру.

Пример:

s = lower("Euphoria")

-- s будет равно "euphoria"

a = lower('B')

-- a будет равно 'b'

s = lower({"Euphoria", "Programming"})

-- s будет равно {"euphoria", "programming"}

См. также:

upper

machine_func

Синтаксис:

x1 = machine_func(a, x)

Описание:

См. machine_proc() ниже

machine_proc

Синтаксис:

machine_proc(a, x)

Описание:

Выполняет специфические машинные операции, такие как графика или звуковые эффекты. Эти процедуры обычно вызываются косвенно через одну из соответствующих библиотечных процедур, имеющихся во включаемых файлах пакета Euphoria. Прямой вызов может повлечь за собой зависание машины или другие тяжелые последствия, если выполнен некорректно.

См. также:

machine_func

match

Синтаксис:

i = match(s1, s2)

Описание:

Пытается найти совпадение s1 и последовательных отрезков s2. Если удалось, выдаёт номер элемента s2, которым начинается (первый) совпадающий отрезок, иначе выдаёт 0.

Пример:

location = match("pho", "Euphoria")

-- location будет равно 3

См. также:

find, find_from, compare, match_from, wildcard_match

match_from

Синтаксис:

i1 = match_from(s1, s2, i2)

Описание:

Пытается найти совпадение s1 и последовательных отрезков s2, начиная с индекса i2. Если удалось, выдаёт номер элемента s2, которым начинается (первый) совпадающий отрезок, иначе выдаёт 0. i2 может иметь любую величину в пределах от 1 до длины s плюс 1. (Совершенно аналогично первому индексу при сечении s.)

Пример:

location = match_from("pho", "phoEuphoria", 4)

-- location будет равно 6

См. также:

find, find_from, match, compare, wildcard_match

mem_copy

Синтаксис:

mem_copy(a1, a2, i)

Описание:

Копирует участок в памяти, включающий i байтов, с адреса a2 по адресу a1.

Комментарии:

Байты в памяти будут скопированы правильно, даже если участок по адресу a2 частично перекрывает участок по адресу a1.

mem_copy(a1, a2, i) эквивалентно: poke(a1, peek({a2, i})), но выполняется значительно быстрее.

Пример:

dest = allocate(50)

src = allocate(100)

poke(src, {1,2,3,4,5,6,7,8,9})

mem_copy(dest, src, 9)

См. также:

mem_set, peek, poke, allocate, allocate_low

mem_set

Синтаксис:

mem_set(a1, i1, i2)

Описание:

Устанавливает i2 байтов в памяти, начиная с адреса a1, в значение i1.

Комментарии:

Младшие 8 битов i1 будут размещены в каждом байте.

mem_set(a1, i1, i2) эквивалентно: poke(a1, repeat(i1, i2)) но выполняется значительно быстрее.

Пример:

destination = allocate(1000)

mem_set(destination, ' ', 1000)

-- 1000 последовательных байтов в памяти будут установлены в 32

-- (ASCII-код для ' ')

См. также:

mem_copy, peek, poke, allocate, allocate_low

message_box

Платформа:

WIN32

Синтаксис:

include msgbox.e

i = message_box(s1, s2, x)

Описание:

Выводит окно с заголовком s2, содержащее строку сообщения s1. x определяет комбинацию кнопок, которые будут доступны для нажатия пользователем, и некоторые другие характеристики. x может быть атомом или рядом. Если функция выдаёт 0, это говорит об ошибке при попытке вывести окно.

Комментарии:

Просмотрите msgbox.e, где имеется полный перечень возможных величин для x и i.

Пример:

response = message_box("Желаете продолжить?",

"Моя программа",

MB_YESNOCANCEL)

if response = IDCANCEL or response = IDNO then

abort(1)

end if

Пример программы:

demo\win32\email.exw

mouse_events

Платформа:

DOS32

Синтаксис:

include mouse.e

mouse_events(i)

Описание:

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

Комментарии:

Хорошей практикой является игнорирование тех событий, которые вас не интересуют, кроме обычно очень частого события MOVE, чтобы снизить вероятность пропуска события, имеющего большое значение в вашей программе.

Первый вызов mouse_events(), который вы сделаете, включит курсор мыши или подсвеченный символ.

Пример:

mouse_events(LEFT_DOWN + LEFT_UP + RIGHT_DOWN)

-- ограничит данные get_mouse() информацией о нажатии

-- и отпускании левой кнопки и о нажатии правой кнопки.

-- Все остальные события будут игнорироваться.

См. также:

get_mouse, mouse_pointer

mouse_pointer

Платформа:

DOS32

Синтаксис:

include mouse.e

mouse_pointer(i)

Описание:

Если i равно 0, выключает курсор мыши, в противном случае включает его. Множественные выключения курсора требуют такого же числа включений. Первый вызов get_mouse() или mouse_events() также включит курсор (один раз).

Комментарии:

Временное выключение курсора мыши может быть необходимым, если на экран выводится новая информация.

После вызова text_rows() вам может понадобиться вызов mouse_pointer(1), чтобы курсор мыши стал снова видимым.

См. также:

get_mouse, mouse_events

not_bits

Синтаксис:

x2 = not_bits(x1)

Описание:

Выполняет логическую операцию NOT над каждым битом в x1. Бит в x2 будет равен 1, когда соответствующий бит в x1 равен 0, и будет равен 0, когда соответствующий бит в x1 равен 1.

Комментарии:

Аргументом для данной функции может быть атом или ряд. Применяются правила операций на рядах.

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

Если вы предполагаете манипулировать с полными 32-битными величинами, вы должны объявить ваши переменные как atom, а не как integer. Тип integer Euphoria ограничен 31-м битом.

Результаты трактуются как числа со знаком. Они будут отрицательными, если старший бит равен 1.

Пример:

a = not_bits(#000000F7)

-- a будет равно -248 (т.е. FFFFFF08 интерпретируется как отрицательное число)

См. также:

and_bits, or_bits, xor_bits, int_to_bits

object

Синтаксис:

i = object(x)

Описание:

Проверяет, является ли x объектом. Это всегда будет истиной, так что object() всегда выдаёт 1.

Комментарии:

Все предопределенные и пользовательские типы могут также быть использованы для проверки, принадлежит ли величина данному типу. Функция object() включена только для комплектности. Она всегда выдаёт 1.

Пример:

? object({1,2,3}) -- всегда печатает 1

См. также:

integer, atom, sequence

open

Синтаксис:

fn = open(st1, st2)

Описание:

Открывает файл или устройство, выдаёт номер файла, который служит аргументом для подпрограмм ввода/вывода. Если открытие не состоялось, выдаётся -1. Ряд st1 содержит путь к файлу или устройству. Ряд st2 задаёт режим, в котором файл должен быть открыт. Возможны следующие режимы:

"r" - открыть текстовый файл для чтения

"rb" - открыть двоичный файл для чтения

"w" - создать текстовый файл для записи

"wb" - создать двоичный файл для записи

"u" - открыть текстовый файл для обновления (чтение и запись)

"ub" - открыть двоичный файл для обновления

"a" - открыть текстовый файл для добавления

"ab" - открыть двоичный файл для добавления

Файлы, открываемые для чтения или обновления, должны уже существовать. Файлы, открытые для записи или добавления, будут созданы, если необходимо. Файл, открытый для записи, будет установлен на 0-ой (самый первый) байт. Вывод в файл, открытый для добавления, начнётся в конце существующего файла.

Вывод в текстовые файлы будет иметь символы возврата каретки, автоматически добавляемые перед символами перевода строки. На входе эти символы возврата каретки удаляются. Символ control-Z (ASCII 26) является сигналом немедленного окончания файла. Примечание: на некоторых версиях DOS ввод пользователем control-Z может вызывать сбой стандартного ввода, устраняемый только закрытием окна DOS.

Ввод/вывод в двоичных файлах никак не модифицируется. Любая величина байта от 0 до 255 может быть считана или записана.

Некоторые типовые устройства, которые вы можете открыть под DOS или Windows :

"CON" - консоль (экран)

"AUX" - вспомогательный последовательный порт

"COM1" - последовательный порт 1

"COM2" - последовательный порт 2

"PRN" - принтер, подключенный к параллельному порту

"NUL" - несуществующее устройство, поглощающее вывод

В настоящее время доступна работа с файлами размером до 2 Gb. За этой границей некоторые файловые операции могут выполняться некорректно. Данный лимит со временем может быть пересмотрен.

Комментарии:

DOS32: При исполнении программы под Windows 95 или более новой ОС этого семейства вы можете открыть любой существующий файл, который имеет длинное своё имя (т.е. длиннее, чем стандартный формат 8.3 DOS) или длинные имена каталогов в его пути, используя любой режим (чтение, запись и т.д.). Тем не менее, если вы попытаетесь создать новый файл с длинным именем (открыть в режиме "w" или "a" файл, который ещё не существует), это имя будет усечено до необходимого формата 8.3. Мы надеемся добавить возможность создания новых файлов с длинными именами в будущих версиях Euphoria.

WIN32, Linux and FreeBSD: Работа с длинными именами файлов полностью обеспечивается при чтении, записи и создании.

DOS32: Тщательно избегайте использования имён устройств в качестве имён файлов, даже если вы добавляете к ним расширение имени, т.е. CON.TXT, CON.DAT, CON.JPG и т.д. - все подобные имена относятся только к устройству CON, но не к файлам, существование которых невозможно.

Пример:

integer file_num, file_num95

sequence first_line

constant ERROR = 2

file_num = open("myfile", "r")

if file_num = -1 then

puts(ERROR, "не могу открыть myfile\n")

else

first_line = gets(file_num)

end if

file_num = open("PRN", "w") -- открывает принтер для вывода

-- под Windows 95:

file_num95 = open("bigdirectoryname\\verylongfilename.abcdefg",

"r")

if file_num95 != -1 then

puts(1, "это работает!\n")

end if

См. также:

close, lock_file

open_dll

Платформа:

WIN32, Linux, FreeBSD

Синтаксис:

include dll.e

a = open_dll(st)

Описание:

Открывает файл библиотеки динамического связывания Windows(.dll) или файл общей библиотеки Linux или FreeBSD(.so). Выдаёт 32-битный адрес или 0, если файл .dll не найден. В ряде st должно содержаться относительное или абсолютное имя файла. Windows будет использовать обычный системный путь поиска для доступа к файлам .dll.

Комментарии:

Значение адреса, выданное open_dll(), служит аргументом для подпрограмм define_c_proc(), define_c_func() и define_c_var().

Вы можете открыть один и тот же файл .dll или .so несколько раз. Для этого не потребуется лишней памяти и вы будете получать одно и то же значение адреса при каждом открытии.

Euphoria закрывает библиотеки .dll автоматически в конце исполнения программы.

Пример:

atom user32

user32 = open_dll("user32.dll")

if user32 = 0 then

puts(1, "Не могу открыть user32.dll!\n")

end if

См. также:

define_c_func, define_c_proc, define_c_var, c_func, c_proc, platform.doc

or_bits

Синтаксис:

x3 = or_bits(x1, x2)

Описание:

Выполняет логическую операцию OR над соответствующими битами в x1 и x2. Бит в x3 будет равен 1, когда соответствующий бит или в x1, или в x2 равен 1.

Комментарии:

Аргументами данной функции могут быть атомы или ряды. Применяются правила операций на рядах.

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

Если вы намерены манипулировать полными 32-битными величинами, вы должны объявить ваши переменные как atom, а не как integer. Тип integer в Euphoria ограничен 31-м битом.

Результаты трактуются как числа со знаком. Они будут отрицательными, когда старший бит равен 1.

Пример 1:

a = or_bits(#0F0F0000, #12345678)

-- a будет равно #1F3F5678

Пример 2:

a = or_bits(#FF, {#123456, #876543, #2211})

-- a будет равно {#1234FF, #8765FF, #22FF}

См. также:

and_bits, xor_bits, not_bits, int_to_bits

...

от P до R

palette

Платформа:

DOS32

Синтаксис:

include graphics.e

x = palette(i, s)

Описание:

Изменяет оттенок для цвета номер i на s, где s является рядом интенсивностей составляющих цветов оттенка: {красный, зелёный, синий}. Каждая из составляющих s может иметь величину от 0 до 63. В случае успешного изменения выдаёт 3-х элементный ряд, содержащий величины составляющих цветов исходного цвета i, а все пикселы на экране, имевшие цвет i, приобретают новый оттенок. Если операция не удалась, выдаётся атом -1.

Пример:

x = palette(0, {15, 40, 10})

-- цвет номер 0 (обычно чёрный) изменён на оттенок

-- зеленоватого цвета.

См. также:

all_palette

peek

Синтаксис:

i = peek(a)

или ...

s = peek({a, i})

Описание:

Выдаёт величину байта (в пределах от 0 до 255), считанного из памяти по машинному адресу a, или выдаёт ряд, содержащий i последовательных байтовых величин, начинающихся в памяти с адреса a.

Комментарии:

Так как значения адресов выражаются 32-битными числами, они могут быть больше величины, представимой типом integer (31 бит). Поэтому переменные, которые содержат адреса, должны объявляться как atom.

Более быстрым, чем побайтное считывание в цикле, является чтение нескольких байтов сразу с использованием второй формы peek().

Помните, что в функцию peek() подаётся единственный аргумент, который во второй форме является двухэлементным рядом.

Пример:

Следующие записи равнозначны:

-- метод 1

s = {peek(100), peek(101), peek(102), peek(103)}

-- метод 2

s = peek({100, 4})

См. также:

poke, peek4s, peek4u, allocate, free, allocate_low, free_low, call

peek4s

Синтаксис:

a2 = peek4s(a1)

или ...

s = peek4s({a1, i})

Описание:

Выдаёт 4-х байтную (32 бита) величину со знаком в диапазоне от -2147483648 до +2147483647, считанную с машинного адреса a1, или ряд, содержащий i последовательных 4-байтных величин со знаком, начинающихся с адреса a1 в памяти.

Комментарии:

32-х битные величины, выдаваемые функцией peek4s(), могут превышать допустимые для типа integer в Euphoria (31-бит), поэтому вы должны использовать переменные типа atom.

Так как машинные адреса являются 32-х битными числами, их величина может превышать допустимую для типа integer Euphoria. Поэтому переменные, в которых записываются адреса, должны быть объявлены как atom.

Более быстрым, чем поочерёдное чтение 4-байтных величин в цикле, является чтение нескольких 4-байтных величин сразу с использованием второй формы peek4s().

Не забывайте, что peek4s() требует единственного аргумента, который во второй форме является 2-х элементным рядом.

Пример:

Следующие записи равнозначны:

-- метод 1

s = {peek4s(100), peek4s(104), peek4s(108), peek4s(112)}

-- метод 2

s = peek4s({100, 4})

См. также:

peek4u, peek, poke4, allocate, free, allocate_low, free_low, call

peek4u

Синтаксис:

a2 = peek4u(a1)

или ...

s = peek4u({a1, i})

Описание:

Выдаёт 4-х байтную (32 бита) величину без знака в диапазоне от 0 до 4294967295, расположенную по машинному адресу a1, или выдаёт ряд из i таких величин, начинающийся с адреса a1 в памяти.

Комментарии:

32-х битная величина, выдаваемая peek4u(), может превышать допустимую для типа integer в Euphoria (31 бит), поэтому вы должны использовать переменные типа atom.

Так как машинные адреса являются 32-битными числами, они также могут быть за пределами типа integer Euphoria. Переменные, в которых содержатся адреса, должны быть объявлены как тип atom.

Более быстрым является чтение нескольких 4-х байтных величин сразу с использованием второй формы peek4u(), чем поочерёдное чтение таких величин в цикле.

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

Пример:

Следующие записи равнозначны:

-- метод 1

s = {peek4u(100), peek4u(104), peek4u(108), peek4u(112)}

-- метод 2

s = peek4u({100, 4})

См. также:

peek4s, peek, poke4, allocate, free, allocate_low, free_low, call

PI

Синтаксис:

include misc.e

PI

Описание:

PI (3.14159...) число Пи определено как глобальная константа.

Комментарии:

Принятое в определении число знаков Пи обеспечивает максимальную точность вычислений, возможную для типа atom в Euphoria.

Пример:

x = PI -- x будет равно 3.14159...

См. также:

sin, cos, tan

pixel

Платформа:

DOS32

Синтаксис:

pixel(x1, s)

Описание:

Включает один или несколько пикселов на пиксельно-графическом экране, начиная с точки s, где s является 2-х элементным рядом экранных координат {x, y}. Если x1 является атомом, включается один пиксел с цветом x1. Если x1 является рядом, включается ряд пикселов, начиная с точки s и вправо (возрастает x, y постоянное).

Комментарии:

Когда x1 является рядом, применяется весьма быстрый алгоритм включения пикселов на экране. Он значительно быстрее, чем поочередное включение одиночных пикселов через вызовы pixel() в цикле. Задавая сразу ряд цветов пикселов, вы заметно быстрее нарисуете их на экране.

В графическом режиме 19 процедура pixel() особенно быстрая.

Те пикселы, координаты которых уходят за пределы экрана, игнорируются интерпретатором.

Пример 1:

pixel(BLUE, {50, 60})

-- в точке {50,60} включится пиксел с цветом BLUE(синий)

Пример 2:

pixel({BLUE, GREEN, WHITE, RED}, {50,60})

-- {50,60} включится BLUE (синий)

-- {51,60} включится GREEN (зелёный)

-- {52,60} включится WHITE (белый)

-- {53,60} включится RED (красный)

См. также:

get_pixel, graphics_mode

platform

Синтаксис:

i = platform()

Описание:

Значение, выдаваемое функцией platform(), встроено в интерпретатор. Это значение показывает, с каким именно интерпретатором запущена программа, с интерпретатором для DOS32, WIN32, Linux или FreeBSD.

Комментарии:

Когда работает ex.exe, считается, что операционная система DOS32. Когда работает exw.exe, операционная система WIN32. Когда работает exu, операционная система Linux (или FreeBSD).

В библиотеке misc.e определены следующие глобальные константы:

global constant DOS32 = 1,

WIN32 = 2,

LINUX = 3,

FREEBSD = 3

Используйте функцию platform(), когда вам необходимо исполнять различный код в зависимости от операционной системы, в среде которой запущена ваша программа.

Дополнительные значения констант будут вводиться в Euphoria по мере освоения других машин и операционных систем.

Вызов функции platform() не влечёт никаких расходов. Во время компиляции просто вырабатывается соответствующая целочисленная величина: 1, 2 или 3.

Пример:

if platform() = WIN32 then

-- вызов системной подпрограммы Beep под Windows

err = c_func(Beep, {0,0})

elsif platform() = DOS32 then

-- запуск звука на встроенном динамике под DOS

sound(500)

t = time()

while time() do

end while

sound(0)

else

-- пропуск команды под Linux/FreeBSD

end if

См. также:

platformr.doc

poke

Синтаксис:

poke(a, x)

Описание:

Если x является атомом, в память по адресу a записывается один байт. Если же x является рядом, в память, начиная с адреса a, записывается последовательность байтов, представленная этим рядом.

Комментарии:

В память записываются младшие 8 битов величины x, т.е. remainder(x, 256), а не сама величина х.

Запись в память ряда байтов является значительно более быстрой, чем поочерёдная запись отдельных байтов в цикле.

Вывод в экранную память с помощью poke() может быть намного быстрее, чем стандартная запись на экран с помощью процедур puts() или printf(), но программирование такого вывода заметно сложнее. В большинстве случаев сверхвысокая скорость не требуется. Например, в редакторе ed.ex из пакета Euphoria poke() никогда не используется.

Пример:

a = allocate(100) -- выделяется 100 байтов в памяти

-- заносится в память один байт за один вызов poke():

poke(a, 97)

poke(a+1, 98)

poke(a+2, 99)

-- заносится 3 байта сразу:

poke(a, {97, 98, 99})

Пример программы:

demo\callmach.ex

См. также:

peek, poke4, allocate, free, allocate_low, free_low, call, safe.e

poke4

Синтаксис:

poke4(a, x)

Описание:

Если x является атомом, в память по адресу a записывается 4 байта (32 бита).

Если x является рядом, в память, начиная с адреса a, записывается последовательность 4-байтовых величин, представленная этим рядом.

Комментарии:

Величина или величины, предназначенные к записи, не должны превышать 32-битного значения.

Более быстрой является процедура записи сразу нескольких 4-байтовых величин, чем поочерёдная запись этих величин в цикле.

Записываемые 4-байтовые величины могут быть положительными или отрицательными. Считаны они могут быть затем с помощью или peek4s(), или peek4u().

Пример:

a = allocate(100) -- выделяется 100 байтов в памяти

-- записывается одна 4-байтовая величина за каждый вызов poke4():

poke4(a, 9712345)

poke4(a+4, #FF00FF00)

poke4(a+8, -12345)

-- записывается три 4-байтовых величины сразу:

poke4(a, {9712345, #FF00FF00, -12345})

См. также:

peek4u, peek4s, poke, allocate, allocate_low, call

polygon

Платформа:

DOS32

Синтаксис:

include graphics.e

polygon(i1, i2, s)

Описание:

Вычерчивается многоугольник с 3-мя или более вершинами, заданными в s, на пиксельно-графическом экране с использованием цвета i1. Внутренняя область закрашивается, если i2 равно 1. Не закрашивается, если i2 равно 0.

Пример:

polygon(GREEN, 1, {{100, 100}, {200, 200}, {900, 700}})

-- вычерчивается сплошной зелёный треугольник.

См. также:

draw_line, ellipse

position

Синтаксис:

position(i1, i2)

Описание:

Перемещает курсор на строку i1, в колонку i2, верхний левый угол экрана соответствует строке 1, колонке 1. Символ, выводимый на экран после этой команды, появится именно в назначенном месте. position() сообщит об ошибке, если предпринимается попытка задания знакоместа за пределами экрана.

Комментарии:

position() работает и в текстовом, и в пиксельно-графическом режимах.

Система координат при отображении текста отличается от системы координат при отображении пикселов. Пикселы отображаются так, что верхний левый угол экрана соответствует координатам (x=0,y=0), а первая координата задает положение по горизонтали, слева направо. В пиксельно-графических режимах вы можете отображать и текст, и пикселы. Процедура position() устанавливает только строку и колонку для текста, положением пикселов она не управляет. Аналогичной процедуры для назначения следующей пиксельной позиции не существует.

Пример:

position(2,1)

-- курсор устанавливается в начало второй строки сверху

См. также:

get_position, puts, print, printf

power

Синтаксис:

x3 = power(x1, x2)

Описание:

Возводит x1 в степень x2, выдаёт результат.

Комментарии:

Аргументами данной функции могут быть атомы или ряды. В последнем случае применяются правила операций на рядах.

Степени 2 вычисляются очень быстро.

Пример 1:

? power(5, 2)

-- печатается 25

Пример 2:

? power({5, 4, 3.5}, {2, 1, -0.5})

-- печатается {25, 4, 0.534522}

Пример 3:

? power(2, {1, 2, 3, 4})

-- {2, 4, 8, 16}

Пример 4:

? power({1, 2, 3, 4}, 2)

-- {1, 4, 9, 16}

См. также:

log, sqrt

prepend

Синтаксис:

s2 = prepend(s1, x)

Описание:

Присоединяет x к началу ряда s1. Длина s2 будет равна length(s1) + 1.

Комментарии:

Если x атом, эта операция дает то же, что и s2 = x & s1. Если же x ряд, то результат будет иным.

Случай, когда s1 и s2 являются одной и той же переменной, обрабатывается очень эффективно.

Пример 1:

prepend({1,2,3}, {0,0}) -- {{0,0}, 1, 2, 3}

-- Сравните со сцеплением (конкатенацией):

{0,0} & {1,2,3} -- {0, 0, 1, 2, 3}

Пример 2:

s = {}

for i = 1 to 10 do

s = prepend(s, i)

end for

-- s будет равно {10,9,8,7,6,5,4,3,2,1}

См. также:

append, concatenation operator &, sequence-formation operator

pretty_print

Синтаксис:

include misc.e

pretty_print(fn, x, s)

Описание:

Печатает в файле или на устройстве fn объект x, используя скобки { , , , }, отступы и последовательные строки, чтобы показать структуру объекта x в удобном для вас представлении s.

Доступен ряд режимов печати, отличающихся представлением s. Подавайте вместо s {}, если хотите воспользоваться режимом по умолчанию (исходным), или задавайте свой любимый режим в элементах ряда s как указано ниже (в квадратных скобках номер элемента ряда s):

[1] показывать символы ASCII:

* 0: никогда

* 1: вместе с любыми целыми в диапазоне ASCII 32..127 (исходный)

* 2: подобно 1, плюс показывать как "строку", когда все целые ряда находятся в диапазоне ASCII

* 3: подобно 2, но показывать *только* буквы в кавычках, а не числа, для любых целых в диапазоне ASCII, а также символы пробела: \t \r \n

[2] число отступов для каждого уровня вложения ряда - исходный: 2

[3] колонка, в которой начинается печать - исходный: 1

[4] область колонки, где начинается перенос строки - исходный: 78

[5] формат для вывода целых - исходный: "%d"

[6] формат для вывода чисел с плавающей точкой - исходный: "%.10g"

[7] минимальная величина кода для символов ASCII - исходный: 32

[8] максимальная величина кода для символов ASCII - исходный: 127

[9] максимальное число выводимых строк.

Если длина s меньше 8, все незаданные опции до конца ряда будут иметь величины по умолчанию, исходные, т.е. {0, 5} даст "никогда не показывать ASCII", плюс 5-символьный отступ, а все остальные величины будут исходными.

Комментарии:

Отображение начнётся из текущей позиции курсора. Обычно вы ожидаете, что печать начинается в колонке 1, но чтобы так было при вызове pretty_print(), необходимо иметь курсор уже именно в первой колонке. Этого можно добиться, просто выведя символ '\n' перед вызовом pretty_print(). Если вы хотите, чтобы печать началась в другой колонке, вам нужно вызвать position() и задать необходимую величину для режима [3]. Тем самым будет обеспечено вертикальное выравнивание скобок в заданном столбце.

Задавая формат для вывода чисел, целых и с плавающей точкой, можно добавить некоторые украшения, т.е. "(%d)" или "$ %.2f".

Пример 1:

pretty_print(1, "ABC", {})

{65'A',66'B',67'C'}

Пример 2:

pretty_print(1, {{1,2,3}, {4,5,6}}, {})

{

{1,2,3},

{4,5,6}

}

Пример 3:

pretty_print(1, {"Euphoria", "Programming", "Language"}, {2})

{

"Euphoria",

"Programming",

"Language"

}

Пример 4:

puts(1, "word_list = ") -- курсор остановится в колонке 13

pretty_print(1,

{{"Euphoria", 8, 5.3},

{"Programming", 11, -2.9},

{"Language", 8, 9.8}},

{2, 4, 13, 78, "%03d", "%.3f"}) -- первые 6 из 8 подрежимов

word_list = {

{

"Euphoria",

008,

5.300

},

{

"Programming",

011,

-2.900

},

{

"Language",

008,

9.800

}

}

См. также:

?, print, puts, printf

print

Синтаксис:

print(fn, x)

Описание:

Выводит в файл или на устройство fn объект x со скобками { , , , }, чтобы показать (сохранить) его структуру.

Пример 1:

print(1, "ABC") -- выводится: {65, 66, 67}

puts(1, "ABC") -- выводится: ABC

Пример 2:

print(1, repeat({10,20}, 3))

-- выводится: {{10,20},{10,20},{10,20}}

См. также:

?, pretty_print, puts, printf, get

printf

Синтаксис:

printf(fn, st, x)

Описание:

Выводит x в файл или на устройство fn, используя строку формата st. Если x является рядом, то очередные элементы формата из st применяются к соответствующим элементам ряда x. Если x является атомом, тогда обычно st будет содержать единственный элемент формата, который будет применён к x, однако, если элементов формата несколько, каждый элемент формата будет применён к единственной величине x. Таким образом, printf() всегда ожидает точно 3 аргумента. Только длина последнего аргумента, содержащего выводимые величины, будет изменяться. Изменения могут происходить и в строке формата. Основные форматы:

%d - печатать атом как десятичное целое

%x - печатать атом как шестнадцатеричное целое. Отрицательные числа печатаются как двоичное дополнение, т.е. -1 будет выведено как FFFFFFFF

%o - печатать атом как восьмеричное целое

%s - печатать ряд как строку символов, или печатать атом как отдельный символ

%e - печатать атом как число с плавающей точкой в экспоненциальной форме

%f - печатать атом как число с плавающей точкой в форме с десятичной точкой, а не в экспоненциальной

%g - печатать атом как число с плавающей точкой в наиболее подходящем формате, исходя из величины числа

%% - печатать собственно символ '%'

К основным форматам может быть добавлена ширина полей, т.е. %5d, %8.2f, %10.4s. Число перед десятичной точкой даёт минимальную ширину поля. Число после десятичной точки даёт число точных знаков.

Если ширина поля отрицательная, т.е. %-5d, тогда величина будет выравниваться по левой границе поля внутри поля. Обычно выравнивание производится по правой границе поля. Если ширина поля начинается с нуля, т.е. %08d, поле будет спереди заполняться до заданной ширины нулями. Если ширина поля предваряется знаком '+', т.е. %+7d, тогда положительные величины будут начинаться со знака '+'.

Комментарии:

Обратите внимание на следующую общую ошибку:

name="John Smith"

printf(1, "%s", name) -- ошибка!

В этом случае будет напечатан только первый символ имени, J, так как каждый из символов имени форматируется как отдельная величина. Чтобы вывести всё имя, вы должны вместо предыдущей дать команду:

name="John Smith"

printf(1, "%s", {name}) -- правильно

Теперь третий аргумент, поданный в printf(), является одноэлементным рядом, содержащим всё то, что должно быть отформатировано.

Пример 1:

rate = 7.875

printf(myfile, "The interest rate is: %8.2f\n", rate)

The interest rate is: 7.88

Пример 2:

name="John Smith"

score=97

printf(1, "%15s, %5d\n", {name, score})

John Smith, 97

Пример 3:

printf(1, "%-10.4s $ %s", {"ABCDEFGHIJKLMNOP", "XXX"})

ABCD $ XXX

Пример 4:

printf(1, "%d %e %f %g", 7.75) -- одна и та же величина в разных форматах

7 7.750000e+000 7.750000 7.75

См. также:

sprintf, puts, open

profile

Синтаксис:

profile(i)

Описание:

Включает или выключает режим профилирования во время исполнения программы. Команда действует в отношении обоих профилей, профиля команд (операций) и профиля времени. Если i равно 1, профилирование включается, генерируется отчёт. Если i равно 0, профилирование выключается, отчёт не создаётся.

Комментарии:

По командам "with profile" ("с профилем операций") или "with profile_time" ("с профилем времени") профилирование включается автоматически. Используйте profile(0), чтобы выключить его. Используйте затем profile(1) для включения профилирования именно в том месте программы, начиная с которого оно вам необходимо.

Пример 1:

with profile_time

profile(0)

...

procedure slow_routine()

profile(1)

...

profile(0)

end procedure

См. также:

trace, profiling, special top-level statements

prompt_number

Синтаксис:

include get.e

a = prompt_number(st, s)

Описание:

Приглашает пользователя ввести число с клавиатуры. st является текстовой строкой с приглашением, которая отображается на экране. s является рядом, состоящим из двух величин {меньшая, большая}, определяющих диапазон величин, которые пользователь вправе ввести. Если пользователь выйдет из этого диапазона допустимых значений, приглашение повторяется. s может быть пустым рядом, {}, если ограничений нет.

Комментарии:

Если данная процедура слишком проста и не отвечает вашим потребностям, не стесняйтесь скопировать её и затем сделать из неё свою собственную более специализированную версию.

Пример 1:

age = prompt_number("Сколько вам лет? ", {0, 150})

Пример 2:

t = prompt_number("Введите температуру по Цельсию:\n", {})

См. также:

get, prompt_string

prompt_string

Синтаксис:

include get.e

s = prompt_string(st)

Описание:

Приглашает пользователя ввести строку текста. st включает в себя текст приглашения, отображаемый на экране. Строка, которую ввёл пользователь, размещается в ряде s за вычетом любых служебных символов перевода строки и возврата каретки.

Комментарии:

Если пользователь введет control-Z (метка конца файла), s получит значение "" - пустого ряда.

Пример:

name = prompt_string("Как вас зовут? ")

См. также:

gets, prompt_number

put_screen_char

Синтаксис:

include image.e

put_screen_char(i1, i2, s)

Описание:

Выводит ноль или более символов на экран вместе с их атрибутами. i1 определяет строку, а i2 - колонку, где должен быть выведен первый из символов. Ряд s выглядит следующим образом: {ascii-код1, атрибут1, ascii-код2, атрибут2, ...}. Каждая пара элементов ряда описывает один символ. Атом ascii-код содержит код ASCII символа. Атом атрибутов содержит информацию о цвете символа, цвете фона и, возможно, другие платформенно-зависимые данные, управляющие внешним видом символа на экране.

Комментарии:

Длина s должна быть кратна 2. Если s имеет длину 0, на экран не будет ничего выводиться. Более быстро выводятся несколько символов в одном вызове put_screen_char(), чем поочерёдно в цикле по одному на вызов.

Пример:

-- записывает AZ в верхний левый угол экрана

-- (атрибуты зависят от платформы)

put_screen_char(1, 1, {'A', 152, 'Z', 131})

См. также:

get_screen_char, display_text_image

puts

Синтаксис:

puts(fn, x)

Описание:

Выводит в файл или на устройство fn единственный байт (атом) или ряд байтов. Выводятся только младшие 8 битов каждой из величин, подаваемых в процедуру. Если fn - экран, вы увидите вывод символов текста.

Комментарии:

Когда выводится ряд байтов, внутри ряда не должно быть вложенных рядов. Этот ряд должен состоять только лишь из атомов. (В типовом случае ряд кодов ASCII).

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

Не забывайте, что если файл для вывода был открыт в текстовом режиме, DOS и Windows будут заменять \n (10) на \r\n (13 10). Открывайте файл в двоичном режиме, если вам не нужны подобные услуги.

Пример 1:

puts(SCREEN, "Введите своё имя: ")

Пример 2:

puts(output, 'A') -- на вывод будет послан единственный байт 65

См. также:

printf, gets, open

rand

Синтаксис:

x2 = rand(x1)

Описание:

Выдаёт случайное целое в пределах от 1 до x1, где x1 может быть от 1 до наибольшей допустимой положительной величины типа integer (1073741823).

Комментарии:

Данная функция применима к атому или ко всем элементам ряда.

Пример:

s = rand({10, 20, 30})

-- s может быть: {5, 17, 23} или {9, 3, 12} и т.д.

См. также:

set_rand

read_bitmap

Синтаксис:

include image.e

x = read_bitmap(st)

Описание:

Читает файл изображения в ряд. st является именем .bmp-файла - "биткарты". Файл должен быть именно в формате bitmap. Поддерживается большинство общих вариаций этого формата. Если файл прочитан успешно, результатом будет 2-элементный ряд. Первым элементом будет палитра, содержащая величины интенсивностей цветов в диапазоне от 0 до 255. Вторым элементом будет 2-х мерный ряд, содержащий собственно пиксельно-графическое изображение. Вы можете подать полученную палитру в процедуру all_palette() (после деления её на 4 для правильного масштабирования). Ряд с изображением может быть подан в процедуру display_image() для вывода на экран.

Поддерживаются биткарты с 2, 4, 16 или 256 цветами. Если файл имеет негодный формат, вместо изображения выдаётся код ошибки (atom):

global constant BMP_OPEN_FAILED = 1,

BMP_UNEXPECTED_EOF = 2,

BMP_UNSUPPORTED_FORMAT = 3

Комментарии:

Необходимые вам изображения в формате bitmap вы можете создавать, используя графический редактор Paintbrush из пакета Windows или многие другие графические программы. Эти изображения затем могут быть включены в ваши программы, написанные на Euphoria.

Пример:

x = read_bitmap("c:\\windows\\arcade.bmp")

-- примечание: двойная косая черта в адресе файла необходима,

-- чтобы в операционную систему была выдана штатная одинарная

Пример программы:

demo\dos32\bitmap.ex

См. также:

palette, all_palette, display_image, save_bitmap

register_block

Синтаксис:

include machine.e (or safe.e)

register_block(a, i)

Описание:

Регистрирует (добавляет) участок памяти в списке безопасных блоков, поддерживаемом библиотекой safe.e (отладочная версия machine.e). Блок начинается с адреса a. Длина блока составляет i байтов.

Комментарии:

Данная процедура предназначена только для отладочных целей. Библиотека safe.e регистрирует и отслеживает блоки памяти, которые вашей программе разрешено использовать в подпрограммах peek(), poke(), mem_copy() и т.п. Процедура нормально работает только с теми участками памяти, которые выделены вами для своих целей путем выполнения команд Euphoria allocate() или allocate_low() и которые еще не освобождены с помощью команд Euphoria free() или free_low(). В некоторых случаях вы можете затребовать добавочные, внешние, участки памяти, например, в результате вызова функции Си. Если вы отлаживаете вашу программу с использованием safe.e, вы должны также регистрировать эти внешние участки памяти, иначе safe.e будет препятствовать вашему доступу к ним. Когда вы закончите использование внешнего блока, вы сможете отменить его регистрацию с помощью команды unregister_block().

Когда вы включаете machine.e, у вас вызываются другие версии процедур register_block() и unregister_block(), которые не производят никаких операций. Подобный приём делает простыми и лёгкими переходы между отладочным и штатным режимами исполнения вашей программы.

Пример :

atom addr

addr = c_func(x, {})

register_block(addr, 5)

poke(addr, "ABCDE")

unregister_block(addr)

См. также:

unregister_block, safe.e

remainder

Синтаксис:

x3 = remainder(x1, x2)

Описание:

Вычисляет остаток от деления x1 на x2. Результат будет иметь тот же знак, что и x1, а величина результата будет меньше, чем величина x2.

Комментарии:

Аргументы, подаваемые в эту функцию, могут быть атомами или рядами. В случае рядов применяются правила действий с рядами.

Пример 1:

a = remainder(9, 4)

-- a будет равно 1

Пример 2:

s = remainder({81, -3.5, -9, 5.5}, {8, -1.7, 2, -4})

-- s будет равно {1, -0.1, -1, 1.5}

Пример 3:

s = remainder({17, 12, 34}, 16)

-- s будет равно {1, 12, 2}

Пример 4:

s = remainder(16, {2, 3, 5})

-- s будет равно {0, 1, 1}

См. также:

floor

repeat

Синтаксис:

s = repeat(x, a)

Описание:

Создаёт ряд длины a, где каждый элемент является x.

Комментарии:

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

Пример 1:

repeat(0, 10) -- {0,0,0,0,0,0,0,0,0,0}

Пример 2:

repeat("JOHN", 4) -- {"JOHN", "JOHN", "JOHN", "JOHN"}

-- интерпретатор создаст только одну копию "JOHN"

-- в памяти

См. также:

append, prepend, оператор формирования ряда

reverse

Синтаксис:

include misc.e

s2 = reverse(s1)

Описание:

Оборачивает порядок элементов в ряде.

Комментарии:

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

Пример 1:

reverse({1,3,5,7}) -- {7,5,3,1}

Пример 2:

reverse({{1,2,3}, {4,5,6}}) -- {{4,5,6}, {1,2,3}}

Пример 3:

reverse({99}) -- {99}

Пример 4:

reverse({}) -- {}

См. также:

append, prepend, repeat

routine_id

Синтаксис:

i = routine_id(st)

Описание:

Функция выдаёт целое число i, известное как номер (идентификатор) подпрограммы, который присваивается процедуре или функции Euphoria, уже определённой программистом. Имя подпрограммы задаётся символьным рядом st. Если подпрограмма с таким именем ещё не определена, выдаётся -1.

Комментарии:

Полученный с помощью данной функции номер подпрограммы может подаваться в call_proc() или call_func() для непрямого (косвенного) вызова подпрограммы с именем st.

Подпрограмма с именем st должна быть видимой, т.е. доступной для вызова в той точке вашей программы, где вызвана функция routine_id() для получения номера подпрограммы. Непрямые вызовы подпрограмм по неким неизвестным пока их номерам могут появляться в программе ранее собственно определения подпрограмм, но конкретное численное значение каждого номера может быть выработано только после определения конкретной подпрограммы - внимательно просмотрите пример 2 ниже.

Правильный номер подпрограммы, как только ему присвоено конкретное значение, будет работать в любом месте вашей программы при косвенных вызовах подпрограммы по этому её номеру через call_proc() / call_func().

Некоторые типовые применения номеров, вырабатываемых routine_id():

1. Указание на подпрограмму, которая в программе будет определена позже.

2. Создание подпрограммы, которая вызывает другую подпрограмму через численный аргумент - см. Пример 2 ниже.

3. Использование ряда, состоящего из номеров подпрограмм, для создания команды переключения по условиям.

4. Установка объектно-ориентированной системы.

5. Обеспечение работы с call_back() - см. platformr.doc.

Обратите внимание, что функции Си, вызов которых возможен в Euphoria, также имеют свои номера подпрограммы - см. define_c_proc() и define_c_func().

Пример 1:

procedure foo()

puts(1, "Hello World\n")

end procedure

integer foo_num

foo_num = routine_id("foo")

call_proc(foo_num, {}) -- то же самое, что и вызов foo()

Пример 2:

function apply_to_all(sequence s, integer f)

-- функция применяется ко всем элементам ряда

sequence result

result = {}

for i = 1 to length(s) do

-- мы уже можем предусмотреть здесь вызов, например,

-- add1() через некоторый, пока неизвестный, номер f,

-- хотя определение самой add1() и численное значение

-- номера f появятся по ходу программы позже

result = append(result, call_func(f, {s[i]}))

end for

return result

end function

function add1(atom x)

return x + 1

end function

-- функция add1() теперь видна, поэтому мы можем запросить

-- для неё номер подпрограммы, который подаётся затем в

-- ранее определённую функцию apply_to_all(), которая,

-- на момент её определения, ещё ничего "не знала" о функции

-- add1(), но уже предусматривала вызов некой, неизвестной

-- тогда, функции по её номеру f.

? apply_to_all({1, 2, 3}, routine_id("add1"))

-- отображается {2,3,4}

См. также:

call_proc, call_func, call_back, define_c_func, define_c_proc, platformr.doc

...

от S до T

save_bitmap

Синтаксис:

include image.e

i = save_bitmap(s, st)

Описание:

Создаёт bitmap-файл (.bmp) из 2-х элементного ряда s. Ряд st является именем .bmp-файла. s[1] является палитрой:

{{r,g,b}, {r,g,b}, ..., {r,g,b}}

Каждая из величин r, g, или b должна быть в диапазоне от 0 до 255. s[2] является двумерным рядом рядов, содержащих пиксельно-графическое изображение. Ряды, содержащиеся в s[2], должны все иметь одинаковую длину. s имеет тот же самый формат, что и величина, выдаваемая функцией read_bitmap().

Индикатор результата операции i может принимать одно из следующих значений:

global constant BMP_SUCCESS = 0,-- успех операции

BMP_OPEN_FAILED = 1,-- файл не открылся на запись

BMP_INVALID_MODE = 4 -- неверный графический формат

-- или неверный аргумент

Комментарии:

Если вы использовали get_all_palette() для получения палитры перед вызовом этой функции, вы должны умножить величины интенсивностей на 4 перед вызовом save_bitmap().

Вы можете использовать save_image(), чтобы получить двумерный ряд для s[2], содержащий изображение.

Функция save_bitmap() вырабатывает файлы биткарт с 2, 4, 16, или 256 цветами, так что все они могут быть затем прочитаны с помощью read_bitmap(). Программа Paintbrush из пакета Windows и некоторые другие графические редакторы не поддерживают 4-х цветные биткарты.

Пример:

paletteData = get_all_palette() * 4

code = save_bitmap({paletteData, imageData},

"c:\\example\\a1.bmp")

См. также:

save_image, read_bitmap, save_screen, get_all_palette

save_image

Платформа:

DOS32

Синтаксис:

include image.e

s3 = save_image(s1, s2)

Описание:

Переписывает в ряд прямоугольное изображение с пиксельно-графического экрана. Результатом является двумерный ряд рядов, содержащий данные обо всех пикселах изображения. Вы можете затем снова вывести это изображение с использованием процедуры display_image(). Ряд s1 является 2-х элементным рядом {x1,y1}, задающим координаты верхнего левого угла изображения, s2 задаёт {x2,y2} - координаты правого нижнего угла.

Пример:

s = save_image({0,0}, {50,50})

display_image({100,200}, s)

display_image({300,400}, s)

-- записывает в ряд квадратный участок размером 51x51 из верхнего левого угла экрана,

-- а затем выводит его в позиции {100,200} и в позиции {300,400}

См. также:

display_image, save_text_image

save_screen

Платформа:

DOS32

Синтаксис:

include image.e

i = save_screen(x1, st)

Описание:

Сохраняет весь экран или прямоугольную область экрана в файле типа Windows bitmap - .bmp-файле. Чтобы записать в файл весь экран, подайте в функцию 0 для x1. Чтобы записать прямоугольную область экрана, x1 должен быть рядом двух рядов: {{topLeftXPixel, topLeftYPixel}, {bottomRightXPixel, bottomRightYPixel}}, где {topLeftXPixel, topLeftYPixel} равно {Xверхний левый, Yверхний левый}, а {bottomRightXPixel, bottomRightYPixel} равно {Xнижний правый, Yнижний правый}

Ряд st - имя вашего .bmp-файла, в который будет записана биткарта.

Индикатор результата операции i может принимать одно из следующих значений:

global constant BMP_SUCCESS = 0,-- успех операции

BMP_OPEN_FAILED = 1,-- файл не открылся на запись

BMP_INVALID_MODE = 4 -- неверный графический формат

-- или неверный аргумент

Комментарии:

save_screen() вырабатывает биткарты с 2, 4, 16, или 256 цветами, которые могут быть прочитаны с помощью read_bitmap(). Программа Paintbrush из пакета Windows и некоторые другие графические редакторы не поддерживают 4-х цветные биткарты.

save_screen() работает только в пиксельно-графических режимах, но не в текстовых.

Пример 1:

-- записывается весь экран:

code = save_screen(0, "c:\\example\\a1.bmp")

Пример 2:

-- записывается часть экрана:

err = save_screen({{0,0},{200, 15}}, "b1.bmp")

См. также:

save_image, read_bitmap, save_bitmap

save_text_image

Синтаксис:

include image.e

s3 = save_text_image(s1, s2)

Описание:

Записывает в ряд прямоугольную область экрана в текстовом режиме. Результатом будет ряд рядов, содержащий символы ASCII и их атрибуты с экрана. Вы сможете затем перевывести этот текст с помощью процедуры display_text_image(). s1 является двухэлементным рядом вида {строка1, колонка1}, в котором определена позиция (знакоместо) верхнего левого символа. s2 - ряд вида {строка2, колонка2}, определяющий позицию (знакоместо) правого нижнего символа.

Комментарии:

Поскольку сохраняются и атрибуты, вы будете получать правильные цвета фона, символов и другие свойства для каждого символа при перевыводе сохранённого текста.

Под DOS32 байт атрибута состоит из двух 4-битных полей, в которых содержится информация о цвете фона и символа для каждого знакоместа. Старшие 4 бита определяют цвет фона, а младшие 4 бита дают цвет символа на этом фоне.

Эта подпрограмма работает только в текстовых режимах.

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

Под DOS32, если вы применяете чередование видеостраниц, имейте в виду, что данная функция производит чтение с текущей активной страницы.

Пример:

Если на двух верхних строках экрана имеется:

Hello

World

и вы исполните:

s = save_text_image({1,1}, {2,5})

тогда s будет иметь вид:

{"H-e-l-l-o-",

"W-o-r-l-d-"}

символ '-' здесь обозначает некие байты атрибутов.

См. также:

display_text_image, save_image, set_active_page, get_screen_char

scroll

Синтаксис:

include graphics.e

scroll(i1, i2, i3)

Описание:

Прокручивает участок текста на экране вверх (если i1 положительное) или вниз (если i1 отрицательное) на i1 строк. Участок текста - это последовательность строк на экране от i2 (верхняя строка) до i3 (нижняя строка) включительно. Сверху или снизу будут появляться новые пустые строки.

Комментарии:

Вы могли бы выполнять прокручивание экрана, используя серии вызовов puts(), но scroll() работает намного быстрее.

Позиция курсора после прокрутки не определена.

Пример программы:

bin\ed.ex

См. также:

clear_screen, text_rows

seek

Синтаксис:

include file.e

i1 = seek(fn, a1)

Описание:

Переход на позицию байта с номером a1 в файле fn или в конец файла, если a1 равно -1. Для каждого из открытых файлов у системы имеется информация о текущей байтовой позиции, которая обновляется в результате выполнения на файле операций ввода/вывода. Начальная позиция равна 0 для файлов, открытых на чтение, запись или обновление. Начальная позиция равна концу файла для файлов, открытых на добавление. Величина i1, выдаваемая функцией seek(), равна 0, если переход в заданную позицию завершился успешно, и не равна 0, если переходу что-то помешало. Возможен переход за границу имеющегося файла, в некоторую позицию за его концом. Если вы перешли за конец файла и записываете данные, в зазор между имевшимся концом файла и вашими новыми данными будут вставлены неопределённые байты.

Комментарии:

После перехода в заданную позицию и чтения (записи) последовательности байтов вам может потребоваться новый явный вызов seek() непосредственно перед переключением на запись (чтение) байтов, даже если позиция в файле уже была именно та, которая вам необходима.

Эта функция обычно используется с файлами, открытыми в двоичном режиме. В текстовом режиме DOS преобразует CR LF в LF на входе, и LF в CR LF на выходе, что может вызывать великую путаницу, когда вы пытаетесь подсчитывать байты.

Пример:

include file.e

integer fn

fn = open("mydata", "rb")

-- читает и отображает первую строку файла 3 раза:

for i = 1 to 3 do

puts(1, gets(fn))

if seek(fn, 0) then

puts(1, "перемотка не сработала!\n")

end if

end for

См. также:

where, open

sequence

Синтаксис:

i = sequence(x)

Описание:

Выдаёт 1, если x является рядом, иначе выдаёт 0.

Комментарии:

Основное назначение команды - определение переменных типа ряд. Но вы можете вызывать её как обычную функцию, чтобы проверить, является ли объект действительно рядом.

Пример 1:

sequence s

s = {1,2,3}

Пример 2:

if sequence(x) then

sum = 0

for i = 1 to length(x) do

sum = sum + x[i]

end for

else

-- x должен быть атомом

sum = x

end if

См. также:

atom, object, integer, atoms and sequences

set_active_page

Платформа:

DOS32

Синтаксис:

include image.e

set_active_page(i)

Описание:

Выбирает видеостраницу номер i для всех выводов на экран.

Комментарии:

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

Функция video_config() сообщит вам, как много видео страниц доступно в текущем графическом режиме на вашей видеоплате.

По умолчанию активная страница и отображаемая страница обе имеют номер 0.

Всё это работает под DOS или в полноэкранном окне DOS. В окнах, занимающих часть экрана, вы не можете манипулировать номерами активной страницы.

Пример:

include image.e

-- активная и отображаемая страницы сначала обе имеют номер 0

puts(1, "\nЭто страница 0\n")

set_active_page(1) -- экранный вывод теперь пойдёт на страницу 1

clear_screen()

puts(1, "\nТеперь мы перешли на страницу 1\n")

if getc(0) then -- ожидание нажатия клавиши

end if

set_display_page(1) -- "Теперь мы ..." становится видимым

if getc(0) then -- ожидание нажатия клавиши

end if

set_display_page(0) -- "Это ..." становится видимым снова

set_active_page(0)

См. также:

get_active_page, set_display_page, video_config

set_display_page

Платформа:

DOS32

Синтаксис:

include image.e

set_display_page(i)

Описание:

Делает видеостраницу номер i отображаемой на экране.

Комментарии:

С несколькими видеостраницами вы можете моментально изменять содержимое всего экрана без дрожаний и мельканий. Вы можете также спрятать содержимое экрана, а затем быстро вернуть его на прежнее место.

Функция video_config() сообщит вам, сколько видеостраниц доступно в текущем видеорежиме на вашей видеоплате.

По умолчанию в качестве и активной, и отображаемой страницы используется видеостраница под номером 0.

Эта процедура работает под DOS или в полноэкранном окне DOS. В окнах, занимающих часть экрана, вы не можете манипулировать номерами видеостраниц.

Пример:

See set_active_page() example.

См. также:

get_display_page, set_active_page, video_config

set_rand

Синтаксис:

include machine.e

set_rand(i1)

Описание:

Устанавливает генератор случайных чисел в определённое состояние, i1, так что вы будете получать одинаковые серии квазислучайных чисел при последовательных запусках своей программы с вызовами rand().

Комментарии:

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

Пример:

sequence s, t

s = repeat(0, 3)

t = s

set_rand(12345)

s[1] = rand(10)

s[2] = rand(100)

s[3] = rand(1000)

set_rand(12345) -- та же величина для set_rand()

t[1] = rand(10) -- те же аргументы для rand(), что и ранее

t[2] = rand(100)

t[3] = rand(1000)

-- в этой точке s и t будут идентичными

См. также:

rand

set_vector

Платформа:

DOS32

Синтаксис:

include machine.e

set_vector(i, s)

Описание:

Устанавливает s в качестве нового адреса для обработчика прерывания номер i. Ряд s должен содержать дальний адрес защищённого режима в форме: {16-битный сегмент, 32-битное смещение}.

Комментарии:

Перед вызовом set_vector() вы должны разместить машинный код подпрограммы обработчика прерывания в памяти по адресу s.

16-битный сегмент может быть сегментом кода, используемым Euphoria. Чтобы получить значение для этого сегмента, см. demo\dos32\hardint.ex. Смещение может быть 32-битной величиной, выдаваемой функцией allocate(). Euphoria исполняется в защищённом режиме с сегментами кода и данных, расположенными в одной и той же физической памяти, но с различными режимами доступа.

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

После отработки подпрограммы прерывания ваш обработчик может вернуть управление вызвавшей прерывание программе, выполнив инструкцию iretd, или путем перехода на оригинальный обработчик. Обработчик должен сохранять и затем восстанавливать состояние всех регистров, значения которых он переписывает.

Вы должны заблокировать память, занимаемую вашим обработчиком, чтобы быть уверенным, что он никогда не будет перенесен на диск при использовании виртуальной памяти. См. lock_memory().

Настоятельно рекомендуем изучить работу файла demo\dos32\hardint.ex, прежде чем пытаться устанавливать собственный обработчик прерывания.

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

Вы можете вызвать set_vector() с дальним адресом, выданным get_vector(), если возникла необходимость восстановить исходный оригинальный обработчик.

Пример:

set_vector(#1C, {code_segment, my_handler_address})

Пример программы:

demo\dos32\hardint.ex

См. также:

get_vector, lock_memory, allocate

sin

Синтаксис:

x2 = sin(x1)

Описание:

Выдаёт синус x1, где x1 выражено в радианах.

Комментарии:

Данная функция может быть применена к атому или ко всем элементам ряда.

Пример:

sin_x = sin({.5, .9, .11})

-- sin_x равен {.479, .783, .110}

См. также:

cos, tan

sleep

Синтаксис:

include misc.e

sleep(i)

Описание:

Приостанавливает исполнение программы на i секунд.

Комментарии:

Под WIN32 и Linux/FreeBSD операционная система будет приостанавливать вашу программу и отдавать управление другим запущенным программам. Под DOS32 ваша программа будет исполнять занятый цикл в течение i секунд, во время которых другие программы могут выполняться, но на конкурентной основе за обладание процессором.

При работе в режиме многозадачности приостанавливается вся программа, а не только текущая задача. Чтобы приостановить текущую задачу, вы можете вызвать task_schedule(task_self(), {i, i}), а затем исполнить task_yield().

Пример:

puts(1, "Остановка на 15 секунд ...\n")

sleep(15)

puts(1, "Остановка закончена.\n")

См. также:

lock_file, abort, time

sort

Синтаксис:

include sort.e

s2 = sort(s1)

Описание:

Сортирует ряд s1 в порядке возрастания, используя быстрый алгоритм сортировки. Элементы s1 могут быть любой смесью атомов или рядов. Атомы идут перед рядами, а ряды сортируются в "алфавитном" порядке, так, что сначала сортировка выполняется по первым элементам (полям), затем, если первые эквивалентны, по вторым и т.д. Выдаёт отсортированный ряд.

Пример 1:

x = 0 & sort({7,5,3,8}) & 0

-- x становится равным {0, 3, 5, 7, 8, 0}

Пример 2:

y = sort({"Smith", "Jones", "Doe", 5.5, 4, 6})

-- y равно {4, 5.5, 6, "Doe", "Jones", "Smith"}

Пример 3:

database = sort({{"Smith", 95.0, 29},

{"Jones", 77.2, 31},

{"Clinton", 88.7, 44}})

-- 3 "записи" в базе данных будут отсортированы по первому "полю",

-- т.е. по имени. Там, где первые поля (элементы) эквивалентны,

-- сортировка будет производиться по второму полю и т.д.

-- после сортировки база данных примет вид:

{{"Clinton", 88.7, 44},

{"Jones", 77.2, 31},

{"Smith", 95.0, 29}}

См. также:

custom_sort, compare, match, find

sound

Платформа:

DOS32

Синтаксис:

include graphics.e

sound(i)

Описание:

Включает системный громкоговоритель (звукоизлучатель) PC на частоте i Гц. Если подать аргумент i, равный 0, громкоговоритель будет выключен.

Комментарии:

Под WIN32 и Linux/FreeBSD звуки этой процедурой не генерируются.

Пример:

sound(1000) -- включается непрерывный высокий тон частотой 1000 Гц

sprint

Синтаксис:

include misc.e

s = sprint(x)

Описание:

Выдаёт представление x как символьной строки. Это точно то же самое, что и print(fn, x), но вывод производится не в файл и не на устройство (экран), а в ряд. x может быть любым объектом Euphoria. The representation of x as a string of characters is returned. This is exactly the same as print(fn, x), except that the output is returned as a sequence of characters, rather than being sent to a file or device. x can be any Euphoria object.

Комментарии:

Атомы, содержащиеся в x, будут выведены максимум с 10 значащими цифрами, как и при помощи print().

Пример 1:

s = sprint(12345)

-- s равно "12345"

Пример 2:

s = sprint({10,20,30}+5)

-- s равно "{15,25,35}"

См. также:

print, sprintf, value, get

sprintf

Синтаксис:

s = sprintf(st, x)

Описание:

Эта функция делает точно то же самое, что и printf(), но вывод производится не в файл и не на устройство (экран), а в ряд. Ряд st является строкой формата, x - величина или ряд, подлежащие форматированию. printf(fn, st, x) является эквивалентом для puts(fn, sprintf(st, x)).

Комментарии:

Некоторые типовые применения sprintf():

1. Преобразование чисел в строки.

2. Создание строк для подачи в system().

3. Создание форматированных сообщений об ошибках, которые могут быть поданы в обработчик общих сообщений об ошибках.

Пример:

s = sprintf("%08d", 12345)

-- s равно "00012345"

См. также:

printf, value, sprint, get, system

sqrt

Синтаксис:

x2 = sqrt(x1)

Описание:

Выдаёт квадратный корень x1.

Комментарии:

Данная функция может быть применена к атому или ко всем элементам ряда.

Попытка извлечь квадратный корень из отрицательного числа вызовет аварийное завершение вашей программы с сообщением об ошибке времени исполнения.

Пример:

r = sqrt(16)

-- r равно 4

См. также:

log, power

system

Синтаксис:

system(st, i)

Описание:

Подаёт командную строку st в интерпретатор команд операционной системы для немедленного исполнения. Аргумент i необходим для указания способа возвращения из дочерней программы, запущенной командой system():

Когда i равно 0, предыдущий графический режим восстанавливается и экран очищается.

Когда i равно 1, выдаётся звуковой сигнал и программа ждет нажатия пользователя на клавишу, прежде чем восстановить предыдущий графический режим.

Когда i равно 2, графический режим не восстанавливается и экран не очищается.

Комментарии:

i = 2 должно использоваться, только когда известно, что команда, выполняемая system(), не будет изменять графический режим.

Вы можете использовать Euphoria как мощнейший "пакетный" (.bat) язык, задавая нужные вам вызовы system() и system_exec().

system() запускает новую копию интерпретатора команд DOS или Linux/FreeBSD.

system() позволяет вам использовать из командной строки перенаправление стандартных входа и выхода, задавая его в строке st.

Под DOS32 программа Euphoria стартует без использования расширенной памяти, но после старта начинает её использовать. Если для исполнения программы расширенной памяти перестанет хватать, программа начнёт занимать остатки стандартной памяти. При исчерпании и стандартной памяти начнётся использование виртуальной памяти, т.е. пересылка кода и данных на диск. Команда DOS, запущенная на исполнение с помощью system(), прервётся, если для её исполнения окажется недостаточно стандартной памяти. Чтобы избежать подобных ситуаций, вы можете зарезервировать некоторый объём стандартной (нижней) памяти, выполнив команду:

SET CAUSEWAY=LOWMEM:xxx

где xxx есть число K (килобайт) стандартной памяти, отводимой в резерв DOS. Резервирование должно быть выполнено до запуска вашей программы. Вы можете производить резервирование из вашего файла autoexec.bat или из .bat-файла, запускающего вашу программу. Например:

SET CAUSEWAY=LOWMEM:80

ex myprog.ex

По данной команде будет зарезервировано 80K стандартной памяти, которых достаточно для исполнения простых команд DOS вроде COPY, MOVE, MKDIR и т.п., если вы их потом подадите из своей программы myprog.ex.

Пример 1:

system("copy temp.txt a:\\temp.bak", 2)

-- не забывайте писать двойную косую черту в вашей команде, чтобы в DOS

-- передавалась штатная одинарная

Пример 2:

system("ex \\test\\myprog.ex outdata", 2)

-- исполняется myprog, при этом её стандартные вход и выход

-- перенаправлены

См. также:

system_exec, dir, current_dir, getenv, command_line

system_exec

Синтаксис:

i1 = system_exec(st, i2)

Описание:

Пытается выполнить команду, заданную в строке st. Ряд st должен содержать команду запуска исполняемой программы, возможно, с некоторыми параметрами командной строки. Если программа может исполняться, в i1 будет записан код возврата из программы после её завершения. Если запуск программы невозможен, функция system_exec() выдаёт -1. В i2 должен быть указан код, дающий способ действий с текущим графическим режимом после завершения программы, вызванной system_exec(). Эти коды имеют те же самые значения, что и для функции system():

Когда i2 равно 0, восстанавливается предыдущий графический режим и экран очищается.

Когда i2 равно 1, подаётся звуковой сигнал, программа ждёт нажатия на клавишу перед восстановлением предыдущего графического режима.

Когда i2 равно 2, графический режим не восстанавливается и экран не очищается.

Комментарии:

Под DOS32 или WIN32 system_exec() запускает только .exe и .com программы. Для запуска пакетных файлов .bat или встроенных команд DOS следует пользоваться system() - некоторые команды DOS, такие как DEL и т.п., не являются отдельными программами, фактически они встроены в командный интерпретатор операционной системы.

Под DOS32 и WIN32 system_exec() не позволяет осуществлять перенаправление стандартных входа и выхода в командной строке st. Не разрешается также забирать в кавычки строки, которые содержат пробелы в именах каталогов и файлов.

Коды возврата из программ DOS или Windows обычно находятся в пределах от 0 до 255, 0 соответствует "нормальному завершению".

Вы можете запускать и дочерние программы Euphoria с использованием функции system_exec(). Программы Euphoria могут выдавать код возврата по команде abort().

system_exec() не запускает новую копию командного интерпретатора DOS.

Пример 1:

integer exit_code

exit_code = system_exec("xcopy temp1.dat temp2.dat", 2)

if exit_code = -1 then

puts(2, "\n не могу запустить xcopy.exe\n")

elsif exit_code = 0 then

puts(2, "\n успешное выполнение xcopy\n")

else

printf(2, "\n отказ xcopy с кодом ошибки %d\n", exit_code)

end if

Пример 2:

-- исполняет myprog с двумя именами файлов в качестве аргументов

if system_exec("ex \\test\\myprog.ex indata outdata", 2) then

puts(2, "отказ!\n")

end if

См. также:

system, abort

tan

Синтаксис:

x2 = tan(x1)

Описание:

Выдаёт тангенс x1, когда x1 выражен в радианах.

Комментарии:

Данная функция может быть применена к атому или ко всем элементам ряда.

Пример:

t = tan(1.0)

-- t равно 1.55741

См. также:

sin, cos, arctan

task_clock_start

Синтаксис:

task_clock_start()

Описание:

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

Комментарии:

Команды task_clock_stop() и task_clock_start() предназначены для приостановки и возобновления выполнения задач реального времени.

Вызов task_clock_start() корректирует плановое время всех задач реального времени на тот промежуток времени, который прошёл с момента вызова task_clock_stop(). Это позволяет игре, модели или другой программе продолжаться плавно за счёт того, что часы диспетчера задач оказываются развязанными от общесистемных часов.

Задачи общего времени при этом не затрагиваются.

Пример:

-- приостановить игру, пока игрок отвечает на телефонный звонок

task_clock_stop()

while get_key() = -1 do

end while

task_clock_start()

См. также:

task_clock_stop, task_schedule, task_yield, task_suspend

task_clock_stop

Синтаксис:

task_clock_stop()

Описание:

Останавливает часы диспетчера, ответственные за выполнение плана задач реального времени. Выполнение плана возобновится по команде task_clock_start(). Задачи общего времени могут продолжать выполняться. Текущая задача также может продолжать выполняться, но если это задача реального времени, управление от неё будет передано диспетчеру.

Комментарии:

Вызывайте task_clock_stop(), когда вам необходимо, чтобы диспетчер задач приостановил выполнение задач реального времени. Например, когда вы хотите временно остановить игру или программную модель, чтобы затем, после некоторого перерыва, продолжить её исполнение из точки остановки.

Функция time() этой командой не затрагивается, команда действует только в отношении часов диспетчера многозадачности Euphoria.

См. также:

task_clock_start, task_schedule, task_yield, task_suspend

task_create

Синтаксис:

a2 = task_create(i1, s)

Описание:

Оформляет заданную процедуру как новую задачу для передачи её диспетчеру многозадачности. Аргумент i1 представляет собой номер процедуры Euphoria, составляющей новую задачу. Ряд s - это список аргументов, которые будут поданы в процедуру-задачу, когда начнётся её исполнение. Выдаваемый результат, a2, является номером задачи, под которым она будет фигурировать в системе многозадачности Euphoria.

Комментарии:

Функция task_create() позволяет оформить новую задачу, но не запускает её на исполнение.

Каждая из задач имеет свой набор частных переменных и свой собственный стек вызова. Глобальные и местные переменные действуют для всех задач.

При обнаружении ошибки во время исполнения, отчёт будет включать информацию по всем задачам, с ошибочной задачей, идущей в списке первой.

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

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

Каждая задача имеет уникальный номер. Функция task_create() никогда не выдаёт повторный номер задачи, как это было ранее. Номера задач являются атомами с величиной вплоть до наибольшей доступной целочисленной величины (15 цифр).

Пример:

mytask = task_create(routine_id("myproc"), {5, 9, "ABC"})

См. также:

task_schedule, task_yield, task_suspend, task_self

task_list

Синтаксис:

s = task_list()

Описание:

Выдаёт ряд, содержащий номера всех активных или приостановленных задач.

Комментарии:

Эта функция позволяет вам определить, какие задачи существуют в данный момент. Номера задач, которые были прекращены, в ряд не включаются. Вы можете уточнить состояние конкретной задачи, подав её номер в функцию task_status().

Пример:

sequence tasks

tasks = task_list()

for i = 1 to length(tasks) do

if task_status(tasks[i]) 0 then

printf(1, "задача %d активна\n", tasks[i])

end if

end for

См. также:

task_status, task_create, task_schedule, task_yield, task_suspend

task_schedule

Синтаксис:

task_schedule(a, x)

Описание:

Включает задачу номер a в план диспетчера, задаваемый аргументом x. Аргумент a должен быть получен как результат из функции task_create(). Если x является положительным атомом, это означает, что задача a является задачей общего времени и диспетчер должен x раз подряд обеспечить её выполнение, прежде чем перейти к другим задачам. Если x является рядом, это должен быть двухэлементный ряд {min, max}, в котором оба элемента больше нуля или равны нулю, а min и max дают минимальное и максимальное время, в секундах, которое необходимо выждать перед исполнением задачи реального времени a. Величины min и max также устанавливают временной интервал между последовательными запусками задачи a, если он не будет изменён повторным вызовом task_schedule() или task_suspend().

Комментарии:

Диспетчер задач, встроенный в систему исполнения программы Euphoria, будет использовать аргумент плана x как руководство к действию при работе с данной задачей. Может случиться так, что не всегда окажутся возможными заданное число последовательных запусков или заданные временные рамки задачи. Например, задача может решаться так долго перед отдачей управления диспетчеру, что другая задача не получит заданного временного окна.

Задачи реального времени имеют более высокий приоритет. Задачи общего времени выполняются, когда нет задач реального времени, готовых к выполнению. Задача может переключаться между режимами выполнения реального и общего времени. Это всё зависит от последнего вызова task_schedule() для данной задачи. Диспетчер никогда не запустит задачу реального времени до открытия её временного окна (величина min), и он пытается не допустить пропуска временного окна (величина max).

Чтобы повысить точность временных рамок, вы можете задать одну и ту же величину для min и для max. Тем не менее, задавая некоторый промежуток, вы добавляете диспетчеру гибкости. Это позволяет ему выполнять план задач более эффективно, избегая непродуктивных задержек. Когда диспетчеру требуется задержка, он вызывает sleep(), если задержка не слишком короткая. Использование sleep() позволяет операционной системе выполнять другие программы.

Величины min и max могут быть дробными. Если величина min меньше, чем разрешение часов диспетчера (в настоящее время 0.01 секунды под Windows и Linux/FreeBSD, и 0.55 секунды под DOS, если не вызывалась tick_rate()), точное диспетчирование не может быть выполнено, но диспетчер будет пытаться запустить задачу несколько раз подряд, чтобы приблизиться к заданному плану. Например, если вы задали время min равным 0.002 секунды, диспетчер будет пытаться запустить вашу задачу .01/.002 = 5 раз подряд, прежде чем ждать следующего тика часов через .01 секунды. Во время следующих 0.01 секунды он будет выполнять вашу задачу ещё (до) следующих 5 раз и так далее, считая, что ваша задача может быть завершена 5 раз за один тик его часов.

Для задач общего времени увеличение аргумента x будет увеличивать процент времени процессора, отдаваемого для выбранной задачи, при уменьшении этого процента для других задач общего времени. При этом эффективность программы в целом возрастёт, так как каждое переключение задач само по себе требует некоторого небольщого времени. Вызов task_yield(), когда та же самая задача продолжает выполняться, занимает меньше времени. Тем не менее, данный приём не всегда применим, так как может блокировать выполнение других задач общего времени на длительные периоды времени. Имейте в виду, что задачи реального времени всегда имеют приоритет перед любым task_yield(), если достигнуто время их активации.

По старту программы исполняется единственная задача. Её номер равен 0, и изначально это задача общего времени, которой разрешен 1 запуск на task_yield(). Другие задачи не могут выполняться, пока задача номер 0 не выполнит task_yield().

Если задача номер 0 (высшего уровня) достигает конца главного файла, вся программа считается исполненной и останавливается, независимо от того, что другие задачи всё ещё могут быть активными.

Если диспетчер не находит активных задач, т.е. в программе не осталось задач, которые следует поставить вновь на выполнение (в плане нет даже задачи номер 0), он останавливает программу с кодом окончания 0, наподобие abort(0).

Пример:

-- Задача t1 будет выполнена до 10 раз подряд, прежде чем

-- другим задачам общего времени будет отдано управление. Если управление

-- требуется задаче реального времени, t1 потеряет управление в её пользу.

task_schedule(t1, 10)

-- Задача t2 будет выполняться некоторое время между 4-ой и 5-ой секундами,

-- наступившими после текущего момента. Если не изменить план для t2, она будет

-- запускаться через каждые 4..5 секунд и в дальнейшем.

task_schedule(t2, {4, 5})

См. также:

task_create, task_yield, task_suspend, task_suspend

task_self

Синтаксис:

a = task_self()

Описание:

Выдаёт номер текущей задачи.

Комментарии:

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

Пример:

-- перепланировать себя

task_schedule(task_self(), {5.9, 6.0})

См. также:

task_create, task_schedule, task_yield, task_suspend

task_status

Синтаксис:

i2 = task_status(a)

Описание:

Выдаёт код состояния задачи. Значения кода могут быть 1 (активна), 0 (приостановлена) и -1 (задача не существует).

Комментарии:

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

Величина кода состояния -1 показывает, что задача никогда не существовала либо задача завершилась естественным путём, либо была прекращена.

Пример:

integer s

s = task_status(tid)

if s = 1 then

puts(1, "АКТИВНА\n")

elsif s = 0 then

puts(1, "ПРИОСТАНОВЛЕНА\n")

else

puts(1, "НЕ СУЩЕСТВУЕТ\n")

end if

См. также:

task_list, task_create, task_schedule, task_suspend

task_suspend

Синтаксис:

task_suspend(a)

Описание:

Приостанавливает выполнение задачи номер a.

Комментарии:

Подача команды приостанавливает выполнение задачи номер a. Задача a не будет в дальнейшем выполняться, если для неё не будет снова подана команда task_schedule(). Номер a - это номер, который выдаёт функция task_create().

Любая задача может приостанавливать любую другую задачу. Если задача приостанавливает саму себя, остановка начнётся по вызову task_yield().

Пример:

-- приотановить задачу 15

task_suspend(15)

-- приостановить текущую задачу

task_suspend(task_self())

См. также:

task_create, task_schedule, task_self, task_yield

task_yield

Синтаксис:

task_yield()

Описание:

Передаёт управление задачами диспетчеру. Диспетчер может выбрать другую задачу для продолжения работы или, возможно, разрешить текущей задаче продолжить работу.

Комментарии:

В задачах должен быть предусмотрен периодический вызов task_yield(), чтобы другие задачи получали шанс быть решёнными. Только если в задаче подана команда task_yield(), диспетчер получит управление над задачами. Эта схема осуществления многозадачности известна как кооперативная многозадачность.

Задача может иметь вызовы task_yield() во многих различных местах её кода, и на любой глубине вызова подпрограмм.

Диспетчер будет использовать текущую величину {min, max} или оставшееся текущее число последовательных вызовов, определяя, когда следует вернуться к текущей задаче.

Когда управление возвращается в задачу, её выполнение продолжается с команды, которая следует за task_yield(). Стек вызова и все частные переменные останутся теми, какими они были перед вызовом task_yield(). Глобальные и местные переменные могут измениться при выполнении других задач.

Задачи должны пытаться вызывать task_yield() достаточно часто, чтобы не затруднять попадание задач реального времени в их временные окна и не блокировать задачи общего времени на слишком большие периоды времени. С другой стороны, на вызов task_yield() тратится некоторое время, и это время слегка больше, когда имеет место действительное переключение на другую задачу.

Задача должна избегать вызова task_yield(), когда она находится в процессе выполнения некоторой деликатной операции, требующей исключительного доступа к данным. В противном случае может возникнуть нечто вроде гонки между задачами, когда операция в одной задаче интерферируют с аналогичной операцией в другой. В некоторых случаях задаче может потребоваться маркировка данных как "запертых", чтобы предотвратить их встречную модификацию другой задачей. Правда, с кооперативной многозадачностью эти конкурентные вопросы составляют намного меньшую проблему, чем с вытесняющей, которая поддерживается другими языками.

Пример:

-- Из игры Language war.

-- Эта небольшая задача имитирует расходование запасов энергии

-- на корабле Euphoria и на его челноке.

-- Задача представляется "вечной" в бесконечном цикле,

-- но на самом деле это задача реального времени, которая вызывается

-- с периодом 1.7 - 1.8 секунды на протяжении всей игры.

-- Каждый раз при её вызове расходуется 3 или 13 единиц энергии.

global procedure task_life()

-- независимая задача: вычитание из запасов энергии

while TRUE do

if shuttle then

p_energy(-3)

else

p_energy(-13)

end if

task_yield()

end while

end procedure

См. также:

task_create, task_schedule, task_suspend task_suspend

text_color

Синтаксис:

include graphics.e

text_color(i)

Описание:

Устанавливает цвет символов текста. Увеличив i на 16, в некоторых графических режимах можно получить мерцающий текст заданного i цвета. См. в graphics.e список возможных цветов.

Комментарии:

Текст, который вы печатаете на экране после вызова text_color(), будет иметь заданный цвет.

Когда ваша программа завершается, последний цвет, выбранный вами для текста и выводившийся на экран, сохраняется в действии. Поэтому вам может понадобиться напечатать что-то, можно просто '\n', в белом цвете (WHITE), чтобы восстановить белый цвет текста операционной системы, особенно, если курсор находится в нижней строке экрана в готовности к прокрутке вверх.

Пример:

text_color(BRIGHT_BLUE)

См. также:

bk_color

text_rows

Платформа:

DOS32, WIN32

Синтаксис:

include graphics.e

i2 = text_rows(i1)

Описание:

Устанавливает число строк на экране в текстовом режиме, если заданное значение i1 возможно. i2 принимает значение действительного нового числа строк.

Комментарии:

Число строк 25, 28, 43 и 50 поддерживается большинством видеоплат.

См. также:

graphics_mode

tick_rate

Платформа:

DOS32

Синтаксис:

include machine.e

tick_rate(a)

Описание:

Задаёт число прерываний в секунду от таймера. Тем самым устанавливается точность библиотечной функции time() и частота дискретизации при профилировании времени.

Комментарии:

tick_rate() игнорируется под WIN32 и Linux/FreeBSD. Дискретность счёта времени под WIN32 всегда равна 100 прерываниям в секунду.

На PC прерывания от таймера идут обычно с частотой 18.2 прерываний в секунду. tick_rate() позволяет вам увеличить эту частоту, но не уменьшить её.

tick_rate(0) восстановит нормальную частоту 18.2. Euphoria восстанавливает нормальную частоту автоматически при завершении вашей программы, даже при аварийной остановке по обнаруженной ошибке.

Когда программа исполняется в окне DOS с частотой таймера иной, чем 18.2, функция time() не будет убегать вперед, если данное окно не является активным окном.

С частотой таймера, отличающейся от 18.2, функция time() под DOS занимает примерно 1/100 от обычного времени её исполнения. Под Windows и FreeBSD функция time() всегда исполняется очень быстро.

До тех пор, пока ex.exe исполняется, система будет поддерживать правильное время дня. Но если произойдет отказ ex.exe (т.е. вы увидите сообщение об ошибке "CauseWay..."), когда частота таймера установлена высокая, вам (или вашему пользователю) может потребоваться перезапуск машины, чтобы восстановить правильную исходную частоту. Если не сделать этого, системное время будет быстро опережать реальное. Эта проблема не свойственна Windows 95/98/NT и имеет место только под DOS или Windows 3.1. Но вы всегда можете вернуться к правильному времени, поддерживаемому батарейными часами вашей машины, перезагрузив машину.

Пример:

tick_rate(100)

-- time() идёт с шагом .01 секунды

-- вместо обычных .055 секунды

См. также:

time, time profiling

time

Синтаксис:

a = time()

Описание:

Выдаёт число секунд, прошедших от некоторого фиксированного момента в прошлом.

Комментарии:

Если вам нужно измерить, например, сколько времени ушло на выполнение какого-то участка кода вашей программы, найдите разность между двумя отсчетами time(), взятыми в начале и в конце данного участка кода.

Разрешение под DOS32 обычно около 0.05 секунды. Под WIN32 и Linux/FreeBSD разрешение около 0.01 секунды.

Под DOS32 вы можете улучшить разрешение, вызвав процедуру tick_rate() с необходимым параметром.

Под DOS32 период времени, который вы можете так измерить, ограничен 24 часами. После этого величина, выдаваемая time() будет переустановлена и начнётся новый счёт. Если, тем не менее, вы вызывали tick_rate(), и частота часов была выше обычной 18.2/сек, результат time() будет оставаться правильным намного дольше, так как в этом случае Euphoria обрабатывает прерывания от часов прямо и накапливает отсчёты в более ёмкой переменной, 32-битной.

Эмуляция DOS под Windows XP не вполне совершенна. Когда вы производите профилирование времени (with profile_time), функция time() может иметь погрешность до нескольких процентов. Эта проблема не имеет места под Windows ME/98/95.

На некоторых машинах функция time() может выдавать отрицательное число. Тем не менее, вы можете использовать разность отсчётов от time(), чтобы измерять истекшее время.

Пример:

constant ITERATIONS = 1000000

integer p

atom t0, loop_overhead

t0 = time()

for i = 1 to ITERATIONS do

-- время пустого цикла

end for

loop_overhead = time() - t0

t0 = time()

for i = 1 to ITERATIONS do

p = power(2, 20)

end for

? (time() - t0 - loop_overhead)/ITERATIONS

-- вычисление времени (в секундах) одного возведения в степень

См. также:

date, tick_rate

trace

Синтаксис:

with trace

trace(i)

Описание:

Если i равно 1 или 2, включается полноэкранная интерактивная трассировка/отладка исполнения команд программой. Если i равно 3, включается трассировка команд в файл протокола с именем ctrace.out. Если i равно 0, трассировка выключается. Когда i равно 1, отображение на экране трассировки цветное. Когда i равно 2, трассировка отображается в монохромном режиме. Трассироваться будут только те подпрограммы, которые были откомпилированны с метакомандой "with trace". Процедура trace() не будет давать эффекта, если вызвана вне участка вашей программы, на котором действует команда "with trace".

См. Часть I - 3.1 Отладка и профилирование, чтобы уяснить детали по вопросам трассировки и отладки.

Комментарии:

Используйте trace(2), если цветное отображение на вашей системе затруднено.

Все формы trace() поддерживаются интерпретатором.

Транслятором с Euphoria на Си поддерживается только trace(3).

Пример:

if x then

-- да, этот участок требует отладки...

trace(1)

-- и т.д.

...

end if

См. также:

profile, debugging and profiling

...

от U до Z

unlock_file

Синтаксис:

include file.e

unlock_file(fn, s)

Описание:

Отпирает открытый файл fn или участок файла fn. Данный файл должен быть перед этим заперт с использованием lock_file(). Под DOS32 и WIN32 вы можете отпереть некоторый участок внутри файла, задавая аргумент s в виде {первый_байт, последний_байт}. Этот же самый участок в файле должен быть перед этим заперт с использованием lock_file(). Под Linux/FreeBSD в данной версии вы можете запирать и отпирать только весь файл целиком. Аргумент s должен быть пустым рядом {}, если отпирается весь файл. Под Linux/FreeBSD аргумент s всегда должен быть пустым рядом {}.

Комментарии:

Вы должны отпереть запертый вами файл при первой же возможности, чтобы сделать доступным его использование другими программами (процессами).

Любые файлы, которые вы запираете из своей программы, будут автоматически отперты при завершении вашей программы.

См. lock_file() для изучения дальнейших комментариев и примера.

См. также:

lock_file

unregister_block

Синтаксис:

include machine.e (or safe.e)

unregister_block(a)

Описание:

Удаляет блок памяти из списка безопасных блоков, поддерживаемого safe.e (отладочной версией machine.e). Участок памяти, занятый этим блоком, начинается по адресу a.

Комментарии:

Данная процедура предназначена для использования только в отладочных целях. Применяйте её для вычеркивания блоков памяти, которые вы ранее внесли в список с помощью процедуры register_block(). Вычеркивая (удаляя) блок, вы исключаете его из списка безопасных блоков, поддерживаемого safe.e. Это предохраняет вашу программу от любых последующих операций чтения-записи по адресам внутри блока.

См. register_block() для уяснения деталей и изучения примера.

См. также:

register_block, safe.e

upper

Синтаксис:

include wildcard.e

x2 = upper(x1)

Описание:

Преобразует атом или ряд символов на латинском алфавите к верхнему регистру.

Пример:

s = upper("Euphoria")

-- s равно "EUPHORIA"

a = upper('g')

-- a равно 'G'

s = upper({"Euphoria", "Programming"})

-- s равно {"EUPHORIA", "PROGRAMMING"}

См. также:

lower

use_vesa

Платформа:

DOS32

Синтаксис:

include machine.e

use_vesa(i)

Описание:

use_vesa(1) переведет Euphoria в режим подчинения рекомендациям графического стандарта VESA. Это может улучшить работу программ Euphoria в режимах SVGA графики с некоторыми видеоплатами. use_vesa(0) восстановит оригинальный метод, применяемый Euphoria при работе с видеоплатами.

Комментарии:

Большинство пользователей Euphoria может не обращать на эту процедуру внимания. Однако, если возникли трудности при переходе в графические режимы SVGA, вы можете попытаться выполнить use_vesa(1) в начале вашей программы перед любыми вызовами функции graphics_mode().

Аргументы в use_vesa(), отличающиеся от 0 или 1, не должны использоваться.

Пример:

use_vesa(1)

fail = graphics_mode(261)

См. также:

graphics_mode

value

Синтаксис:

include get.e

s = value(st)

Описание:

Читает строковое представление объекта Euphoria и рассчитывает его величину. Выдаёт 2-х элементный ряд вида {error_status, величина}, где элемент error_status может быть одним из:

GET_SUCCESS -- найдено законное представление объекта

GET_EOF -- конец строки обнаружен слишком быстро

GET_FAIL -- неправильный синтаксис

Комментарии:

Данная функция работает точно так же как и get(), но чтение производится из строки, которую вы подаёте, а не из файла и не с устройства.

После прочтения одного законного представления объекта Euphoria value() приостанавливает дальнейшее чтение и игнорирует любые добавочные символы в строке. Например, "36" и "36P" - оба случая дадут вам {GET_SUCCESS, 36}.

Пример 1:

s = value("12345"}

-- s равно {GET_SUCCESS, 12345}

Пример 2:

s = value("{0, 1, -99.9}")

-- s равно {GET_SUCCESS, {0, 1, -99.9}}

Пример 3:

s = value("+++")

-- s равно {GET_FAIL, 0}

См. также:

get, sprintf, print

video_config

Синтаксис:

include graphics.e

s = video_config()

Описание:

Выдаёт ряд величин, описывающих конфигурацию вашей видеоподсистемы:

{цветной монитор?, графический режим, число строк текста, число колонок текста, число пикселов по горизонтали, число пикселов по вертикали, число цветов, число страниц}.

В библиотечном файле graphics.e определены следующие константы:

global constant

VC_COLOR = 1,

VC_MODE = 2,

VC_LINES = 3,

VC_COLUMNS = 4,

VC_XPIXELS = 5,

VC_YPIXELS = 6,

VC_NCOLORS = 7,

VC_PAGES = 8

Комментарии:

Данная функция помогает вам так выбрать видеопараметры при исполнении вашей программы, что она будет работать правильно во многих графических режимах (с различными видеоплатами на различных машинах).

На компьютерах можно встретить два типа графических режимов. Первый тип, текстовый режим, позволяет выводить на экран только лишь текст. Второй тип, пиксельно-графический режим, позволяет выводить пикселы, или точки, в различных цветах, а одновременно и текст. Вы можете сказать, что система находится в текстовом режиме, если элементы текущей конфигурации VC_XPIXELS и VC_YPIXELS равны 0. Такие библиотечные процедуры как polygon(), draw_line() и ellipse() работают только в пиксельно-графическом режиме.

Пример:

vc = video_config() -- в режиме 3 с 25-ю строками текста:

-- vc равно {1, 3, 25, 80, 0, 0, 32, 8}

См. также:

graphics_mode

wait_key

Синтаксис:

include get.e

i = wait_key()

Описание:

Выдаёт код клавиши, нажатой пользователем на клавиатуре. Код выдаётся в момент нажатия клавиши.

Комментарии:

Вы можете получить тот же самый результат с get_key(), если напишете:

while 1 do

k = get_key()

if k != -1 then

exit

end if

end while

Однако на многозадачных системах, подобных Windows или Linux/FreeBSD, такое "занятое ожидание" с get_key() будет снижать производительность системы. Функция же wait_key() позволяет операционной системе выполнять другую полезную работу, пока ваша программа ожидает нажатия на клавишу.

Вы можете использовать также getc(0), так как файлу номер 0 соответствует ввод с клавиатуры, но при этом не будут вырабатываться специальные коды от функциональных клавиш, клавиш со стрелками, коды клавиш на русском регистре и т.п. Данное ограничение для getc(0) действует только в официальных интерпретаторах RDS при вводе с клавиатуры, в двуязычных интерпретаторах оно снято.

См. также:

get_key, getc

walk_dir

Синтаксис:

include file.e

i1 = walk_dir(st, i2, i3)

Описание:

Данная подпрограмма "пройдётся" по каталогу, имя которого задано в ряде st, и будет в этом каталоге обрабатывать файлы. i2 является номером той функции, которую вы хотите применить для обработки файлов каталога. walk_dir() может вызывать вашу функцию обработки файлов для каждого файла и подкаталога в st. Если i3 не равно 0 (TRUE), подкаталоги в st будут пройдены рекурсивно.

Функция, которую вы применяете для обработки файлов, должна воспринимать имена путей и входы dir() для каждого файла и подкаталога. Она должна также выдавать 0 для продолжения прохождения после успешного окончания работы с файлом или не-ноль, чтобы остановить выполнение walk_dir().

Комментарии:

Данный механизм позволяет вам написать простую функцию для требуемой обработки каждого из файлов, в то время как walk_dir() обеспечит процесс автоматической навигации по файлам и подкаталогам.

По умолчанию файлы и каталоги будут пройдены в алфавитном порядке. Если вам необходим другой порядок, установите соответствующим образом глобальную переменную my_dir для номера своей собственной модифицированной функции dir(), которая должна сортировать входы каталога в необходимом вам порядке. Просмотрите для уяснения деталей текст исходной функции dir() в файле file.e.

Имя пути, которое вы подаёте в walk_dir(), не должно содержать символов догадок (* или ?). При каждом вызове функция работает только с единственным каталогом (и его подкаталогами), имя которого подано в неё в качестве аргумента.

Пример:

function look_at(sequence path_name, sequence entry)

-- данная функция воспринимает два ряда как аргументы

printf(1, "%s\\%s: %d\n",

{path_name, entry[D_NAME], entry[D_SIZE]})

return 0 -- проход продолжается

end function

exit_code = walk_dir("C:\\MYFILES", routine_id("look_at"), TRUE)

Пример программы:

euphoria\bin\search.ex

См. также:

dir, current_dir

where

Синтаксис:

include file.e

a1 = where(fn)

Описание:

Данная функция выдаёт текущую байтовую позицию в файле fn. Байтовая позиция обновляется при чтении, записи или переходах в файле. Эта позиция даёт место в файле, где очередной байт буден прочитан или записан.

См. также:

seek, open

wildcard_file

Синтаксис:

include wildcard.e

i = wildcard_file(st1, st2)

Описание:

Выдаёт 1 (истина), если имя файла st2 совпало с вашей догадкой (маской, шаблоном) st1. Выдаёт 0 (ложь) в противном случае. Данная функция похожа на ту, которая имеется в DOS для шаблонных операций, но в некоторых случаях лучше неё. Символ догадки '*' означает 0 или более символов, допустимых в именах файлов, символ догадки '?' означает единственный любой из допустимых символов. Под Linux и FreeBSD сравнение символов чувствительно к регистру, то есть, строчные и прописные буквы не равнозначны. Под DOS и Windows - не чувствительно, строчные и прописные буквы равнозначны.

Комментарии:

Вы можете использовать эту функцию для проверки выходных данных функции dir(), чтобы выделять именно те файлы, которые требуются пользователю вашей программы.

В функции DOS "*ABC.*" дает шаблон для всех файлов. Функция же wildcard_file("*ABC.*", s) выделит те файлы, имя которых заканчивается буквами "ABC" (как вы и ожидаете).

Пример 1:

i = wildcard_file("AB*CD.?", "aB123cD.e")

-- i будет равно 1 под DOS или Windows, но будет равно 0 под Linux или FreeBSD

Пример 2:

i = wildcard_file("AB*CD.?", "abcd.ex")

-- i будет равно 0 под всеми системами, так как расширение имени

-- файла содержит 2 символа, а не 1.

Пример программы:

bin\search.ex

См. также:

wildcard_match, dir

wildcard_match

Синтаксис:

include wildcard.e

i = wildcard_match(st1, st2)

Описание:

Данная функция выполняет общее сравнение строки с образцом, который может содержать и символы догадок '*' и '?'. Функция выдаёт 1 (истина), если строка st2 совпадает с образцом st1. В противном случае выдаётся 0 (ложь). Символ догадки '*' означает любые 0 или более символов. Символ догадки '?' означает любой единственный символ. Сравнение чувствительно к регистру, то есть, строчные и прописные буквы различаются.

Комментарии:

Если вам необходимо нечувствительное к регистру сравнение, подайте оба ряда st1 и st2 в функцию upper() или lower() перед вызовом wildcard_match().

Если вам необходимо обнаружить образец в любом месте внутри исследуемой строки, добавьте символ '*' к обоим концам образца:

i = wildcard_match('*' & pattern & '*', string)

В настоящее время нет пока способа задать собственно символы '*' или '?' в образце так, чтобы они не выполняли свою роль догадок.

Пример 1:

i = wildcard_match("A?B*", "AQBXXYY")

-- i будет равно 1 (TRUE)

Пример 2:

i = wildcard_match("*xyz*", "AAAbbbxyz")

-- i будет равно 1 (TRUE)

Пример 3:

i = wildcard_match("A*B*C", "a111b222c")

-- i будет равно 0 (FALSE), так как верхний/нижний регистры не совпадают.

Пример программы:

bin\search.ex

См. также:

wildcard_file, match, upper, lower, compare

wrap

Синтаксис:

include graphics.e

wrap(i)

Описание:

Разрешает в тексте перенос на следующую строку при достижении правого поля (i = 1) или отсекает слишком длинные строки (i = 0).

Комментарии:

По умолчанию разрешён перенос.

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

Пример:

puts(1, repeat('x', 100) & "\n\n")

-- имеем строку из 80 'x', а ниже строку из 20 'x'

wrap(0)

puts(1, repeat('x', 100) & "\n\n")

-- имеем только одну строку из 80 'x'.

См. также:

puts, position

xor_bits

Синтаксис:

x3 = xor_bits(x1, x2)

Описание:

Выполняет логическую операцию XOR (исключающее ИЛИ) над соответствующими битами в x1 и x2. Бит x3 будет равен 1, когда один из соответствующих битов в x1 или x2 равен 1, в других случаях будет равен 0.

Комментарии:

Аргументы данной функции могут быть атомами или рядами. В случае рядов применяются правила операций на рядах.

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

Если вы намерены манипулировать полными 32-битными величинами, вы должны объявить ваши переменные как atom, но не как integer. Тип integer в Euphoria ограничен 31-м битом.

Результаты трактуются как числа со знаком. Они будут отрицательными, когда старший бит равен 1.

Пример:

a = xor_bits(#0110, #1010)

-- a будет равно #1100

См. также:

and_bits, or_bits, not_bits, int_to_bits, int_to_bytes

...

Оглавление

Язык программирования Euphoria

  Часть I - Ядро языка

    1. Введение

      1.1 Пример программы

      1.2 Установка

      1.3 Запуск программы

        1.3.1 Запуск под Windows

        1.3.2 Использование файла памяти

      1.4 Редактирование программы

      1.5 Распространение программы

        1.5.1 Лицензия

    2. Определение языка

      2.1 Объекты

        2.1.1 Атомы и ряды

        2.1.2 Строки символов и отдельные символы

        2.1.3 Комментарии

      2.2 Выражения

        2.2.1 Операции сравнения

        2.2.2 Логические операции

        2.2.3 Арифметические операции

        2.2.4 Операции на рядах

        2.2.5 Индексирование рядов

        2.2.6 Сечение рядов

        2.2.7 Сцепление рядов и атомов - операция &

        2.2.8 Формирование ряда

        2.2.9 Другие операции на рядах

        2.2.10 Порядок операций

      2.3 Euphoria против других языков

      2.4 Объявления

        2.4.1 Имена (идентификаторы)

        2.4.2 Сцена (область видимости)

        2.4.3 Задание типа переменной

      2.5 Команды

        2.5.1 команда присваивания

        2.5.2 вызов подпрограммы

        2.5.3 команда if (если)

        2.5.4 команда while (пока)

        2.5.5 команда for (для, от)

        2.5.6 команда return (выдать, вернуться)

        2.5.7 команда exit (выйти)

      2.6 Специальные команды высшего уровня

        2.6.1 include (учесть, включить)

        2.6.2 with / without (с / без)

    3. Отладка и профилирование

      3.1 Отладка

        3.1.1 Экран трассировки

        3.1.2 Файл трассировки

      3.2 Профилирование

        3.2.1 Примечания о профилировании по времени

  Часть II - Библиотека подпрограмм

    1. Введение

    2. Предназначение подпрограмм

      2.1 Стандартные типы

      2.2 Манипулирование рядами

      2.3 Сравнение, поиск и сортировка

      2.4 Преобразование и сопоставление образцов

      2.5 Математика

      2.6 Битовые логические операции

      2.7 Ввод/вывод для файлов и устройств

      2.8 Управление мышью (DOS32)

      2.9 Взаимодействие с операционной системой

      2.10 Специальные низкоуровневые подпрограммы

      2.11 Отладка

      2.12 Графика и звук

      2.13 Интерфейс уровня машины

      2.14 Динамические вызовы

      2.15 Вызов функций Си (WIN32 и Linux)

      2.16 Многозадачность

    3. Алфавитный справочник по стандартным подпрограммам

      от A до B

      от C до D

      от E до G

      от H до O

      от P до R

      от S до T

      от U до Z Fueled by Johannes Gensfleisch zur Laden zum Gutenberg