http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3 History/revisions of FreeSource/AltLinux/Sisyphus/Alterator/internals/3 en-us http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3/show?time=2006-10-31+17%3A03%3A14 <div class="pageBefore"><img src="http://freesource.info/wiki/images/z.gif" width="1" height="1" border="0" alt="" style="display:block" align="top" /></div><div class="page"> <b>Сравнение версий <a name=".altlinux.sisyphus.alterator.internals.3" href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3&" class="">/Alt&nbsp;Linux&nbsp;/&nbsp;Sisyphus&nbsp;/&nbsp;Alterator&nbsp;/&nbsp;internals&nbsp;/&nbsp;3</a> за <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3?time=2006-10-31+17%3A03%3A14">2006-10-31 17:03:14</a> и <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3">2008-03-06 15:11:04</a></b><br /> <br /> <b>Добавлено:</b><br /> <div class="additions"><div class="action" style="float:right; width:250px"><div class="action-content">Эта&nbsp;страница была перенесена на&nbsp;<a href="http://altlinux.org/Alterator/internals/3" target="_blank" title="" class="outerlink">altlinux.org</a>. Текст на&nbsp;freesource.info заморожен.</div></div><br /> (* (+ 1 2) 5)<!--notypo--><textarea class="code" rows="2" readonly="readonly">(g (lambda (x) (+ x x)))</textarea><!--/notypo--><br /> (define a&nbsp;4)%%<br /> (define elem1 (cons 3 elem2)) ; первый элемент содержит 3 и&nbsp;ссылается на&nbsp;второй<br /> Если захотим сделать список из&nbsp;трёх элементов <tt>1</tt>, <tt>2</tt> и&nbsp;<tt>3</tt>, то&nbsp;надо написать:</div><br /> <b>Удалено:</b><br /> <div class="deletions"><tt>(* (+ 1 2) 5)</tt><br /> <tt>(g (lambda (x) (+ x&nbsp;x)))</tt><br /> <tt>(define a&nbsp;4)</tt><br /> (define elem1 (cons 3 elem2)) ; первый эелемент содержит 3 и&nbsp;ссылается на&nbsp;второй<br /> Если захотим сделать список из&nbsp;трёх елементов <tt>1</tt>, <tt>2</tt> и&nbsp;<tt>3</tt>, то&nbsp;надо написать:</div></div> http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3/show?time=2006-09-26+14%3A40%3A01 <div class="pageBefore"><img src="http://freesource.info/wiki/images/z.gif" width="1" height="1" border="0" alt="" style="display:block" align="top" /></div><div class="page"> <b>Сравнение версий <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3&" class="">/Alt&nbsp;Linux&nbsp;/&nbsp;Sisyphus&nbsp;/&nbsp;Alterator&nbsp;/&nbsp;internals&nbsp;/&nbsp;3</a> за <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3?time=2006-09-26+14%3A40%3A01">2006-09-26 14:40:01</a> и <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3?time=2006-10-31+17%3A03%3A14">2006-10-31 17:03:14</a></b><br /> <br /> <b>Добавлено:</b><br /> <div class="additions"><a name="h5142-1"></a><h3> 6 Несколько замечаний про&nbsp;функции </h3><a name="h5142-2"></a><h3> 7 О&nbsp;символах </h3><a name="h5142-3"></a><h3>8 Универсальный клей </h3></div><br /> <b>Удалено:</b><br /> <div class="deletions"><a name="h5142-1"></a><h3> 2.6 Несколько замечаний про&nbsp;функции </h3><a name="h5142-2"></a><h3> 2.7 О&nbsp;символах </h3><a name="h5142-3"></a><h3>2.8 Универсальный клей </h3><a name="h5142-4"></a><h3> 2.9 Снова про&nbsp;alterator </h3> На&nbsp;конструкции языка можно смотреть как&nbsp;на&nbsp;последовательный вызов функций, а&nbsp;можно как&nbsp;на&nbsp;фразу на&nbsp;каком-то другом языке более высокого уровня<br /> <tt>(vbox (button &#8220;aaa&#8221;) (button &#8220;bbb&#8221;))</tt><br /> Можно прочитать как&nbsp;&laquo;вызвать функцию которая вернёт вертикальную группу с&nbsp;двумя параметрами, результатами вызова функций одна из&nbsp;которых создаст кнопку с&nbsp;именем <tt>aaa</tt>, а&nbsp;другая &ndash; с&nbsp;именем <tt>bbb</tt>. А&nbsp;можно как&nbsp;&laquo;вертикальная группа из&nbsp;кнопкок <tt>aaa</tt> и&nbsp;<tt>bbb</tt>&laquo;.<br /> На&nbsp;alterator можно смотреть как&nbsp;на&nbsp;сборище функций, а&nbsp;можно как&nbsp;на&nbsp;словарь. Когда вы&nbsp;решаете какую-нибудь задачу на&nbsp;alterator, вы&nbsp;просто формулируете проблему на&nbsp;некотором языке, а&nbsp;он её решает. Именно формулируете, а&nbsp;не программируете последовательный вызов функций.<br /> Давайте сделаем последовательность из&nbsp;двух диалогов, один спросит наше имя, а&nbsp;второй напечатает приглашение.<br /> Для&nbsp;того чтобы связать диалоги, надо присвоить им&nbsp;имена. В&nbsp;alterator каждый диалог имеет уникальный URL, и&nbsp;имеется таблица соответствий между этими URL&nbsp;и&nbsp;файлами которые содержат описания диалогов. Основной диалог, с&nbsp;которым происходит запуск приложения, всегда должен иметь имя&nbsp;<tt>/</tt>.<br /> Пусть описание диалога с&nbsp;вопросом будет жить в&nbsp;файле <tt>q.scm</tt>, а&nbsp;описание диалога с&nbsp;приглашением <tt>w.scm</tt>, назовём первый, как&nbsp;требуется правилами, <tt>/</tt>, а&nbsp;второй &mdash; <tt>/welcome</tt>.<br /> Описание будет выглядеть так:<br /> " начинаем с&nbsp;файла 'q.scm' (или / &ndash; это&nbsp;в&nbsp;файле 'q.scm)'<br /> <div class="indent">/welcome &ndash; это&nbsp;в&nbsp;файле 'w.scm'"</div> %%<br /> Что&nbsp;на&nbsp;языке mapper записывается как:<br /> (/ file &#8220;q.scm&#8221;)<br /> (/welcome file &#8220;w.scm&#8221;)<br /> Сохраним это&nbsp;в&nbsp;файле <tt>simple_map.scm</tt><br /> Теперь создадим описание диалога с&nbsp;приветствием: вертикальная группа в&nbsp;которую вставили:<br /> &ndash; метку &#8220;My first alterator dialog&#8221;<br /> &ndash; горизонтальная группа с&nbsp;меткой &#8220;Your name:" и&nbsp;полем редактирования по&nbsp;имени <tt>username</tt>, по&nbsp;умолчанию пустым.<br /> &ndash; кнопка &#8220;OK&#8221;, при&nbsp;нажатии на&nbsp;которую происходит перeключение на&nbsp;URL <tt>/welcome</tt> и&nbsp;передаётся параметр по&nbsp;имени name со&nbsp;значением взятом из&nbsp;поля редактирования <tt>username</tt>.<br /> Сначала разберём конструкции, с&nbsp;которыми ещё не&nbsp;сталкивались:<br /> <ol type="1"><li> Поле редактирования, по&nbsp;умолчанию пустое, описывается как: <tt>(edit &quot;&quot;)</tt> </li><li> Сказать, поле с&nbsp;именем username, это&nbsp;значит: <tt>(id 'username (edit &quot;&quot;))</tt> </li><li> Сказать что&nbsp;взять содержимое из&nbsp;поля по&nbsp;имени username, это: <tt>(username text)</tt> </li><li> Сказать, что&nbsp;&laquo;при нажатии перейти ...&raquo;, это&nbsp;значит: <tt>(when clicked (goto &laquo;/welcome&raquo; 'name (username text)))</tt></li></ol> Переключение диалога означает, что&nbsp;вы&nbsp;просто заменяете содержимое окна, то&nbsp;есть остаётесь на&nbsp;самом деле в&nbsp;том же&nbsp;самом диалоге, просто с&nbsp;другим содержимым.<br /> Обратите внимание на&nbsp;использование символов, когда мы&nbsp;обрабатываем фразы, содержащие &laquo;имя&raquo;. В&nbsp;конструкции с&nbsp;<tt>id</tt> мы&nbsp;имеем просто имя, когда уже&nbsp;забираем текст, у&nbsp;нас в&nbsp;наличие уже&nbsp;не&nbsp;просто имя, а&nbsp;имя связанное с&nbsp;конкретным виджетом, поэтому обращаться к&nbsp;нему можно уже&nbsp;без использования <tt>quote</tt>.<br /> Соединим всё это&nbsp;теперь вместе:<br /> (document:surround &laquo;/std/base&raquo;)<br /> (vbox<br /> <div class="indent">(label &#8220;My first alterator dialog&#8221;)<br /> (hbox<br /> <div class="indent">(label &#8220;Your name:&raquo;)<br /> (document:id username (edit &quot;&quot;)))<br /> </div>(button &#8220;OK&#8221;<br /> <div class="indent"><div class="indent"><div class="indent"><div class="indent">(when clicked (document:replace &laquo;/welcome&raquo; 'name (username text)))))</div></div></div></div></div> И&nbsp;сохраним в&nbsp;файл <tt>q.scm</tt><br /> Аргументы, которые передавались диалогу доступны через функцию <tt>global</tt>.<br /> Описание диалога приветствия:<br /> Вертикальная группа из:<br /> <ul><li> метки, текст которой есть соединение &#8220;Welcome " и&nbsp;значения переданного параметра по&nbsp;имени <tt>name</tt>. </li><li> кнопки &#8220;OK&#8221;, при&nbsp;нажатие на&nbsp;которую происходит завершение работы диалога (и соотв. завершение работы вообще)</li></ul> Вот&nbsp;содержимое файла <tt>w.scm</tt>:<br /> (document:surround &laquo;/std/base&raquo;)<br /> (vbox<br /> <div class="indent">(label (string-append &#8220;Welcome "<br /> <div class="indent"><div class="indent"><div class="indent"><div class="indent"><div class="indent"><div class="indent"><div class="indent"><div class="indent"><div class="indent"><div class="indent"><div class="indent">(global 'name)))<br /> </div></div></div></div></div></div></div></div></div></div></div>(button &#8220;OK&#8221;<br /> <div class="indent"><div class="indent"><div class="indent"><div class="indent">(when clicked (document:end))))</div></div></div></div></div> Замечание: document:surround &ndash; это&nbsp;инструкция загрузки стандартной среды документа, пока не&nbsp;обращайте на&nbsp;неё внимание.<br /> Теперь произведём запуск одной компоненты, alterator которая собственно занимается диалогом с&nbsp;пользователем:<br /> <tt>lookout -m simple_map.scm</tt>.<br /> Всё &ndash; ваше первое приложение под&nbsp;<tt>alterator</tt> готово. Согласитесь, что&nbsp;за&nbsp;три лекции мы&nbsp;уже кое-чему научились.</div></div> http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3/show?time=2006-09-26+14%3A36%3A48 <div class="pageBefore"><img src="http://freesource.info/wiki/images/z.gif" width="1" height="1" border="0" alt="" style="display:block" align="top" /></div><div class="page"> <b>Сравнение версий <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3&" class="">/Alt&nbsp;Linux&nbsp;/&nbsp;Sisyphus&nbsp;/&nbsp;Alterator&nbsp;/&nbsp;internals&nbsp;/&nbsp;3</a> за <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3?time=2006-09-26+14%3A36%3A48">2006-09-26 14:36:48</a> и <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3?time=2006-09-26+14%3A40%3A01">2006-09-26 14:40:01</a></b><br /> <br /> <b>Добавлено:</b><br /> <div class="additions"><ol type="1"><li> Сказать, что&nbsp;&laquo;при нажатии перейти ...&raquo;, это&nbsp;значит: <tt>(when clicked (goto &laquo;/welcome&raquo; 'name (username text)))</tt> <div class="indent"><div class="indent"><div class="indent"><div class="indent">(when clicked (document:replace &laquo;/welcome&raquo; 'name (username text)))))<br /> (when clicked (document:end))))</div></div></div></div></li></ol></div><br /> <b>Удалено:</b><br /> <div class="deletions"><ol type="1"><li> Сказать, что&nbsp;&laquo;при нажатии перейти ...&raquo;, это&nbsp;значит: <tt>(on-click (goto &laquo;/welcome&raquo; 'name (username text)))</tt> <div class="indent"><div class="indent"><div class="indent"><div class="indent">(on-click (document:replace &laquo;/welcome&raquo; 'name (username text)))))<br /> (on-click (document:end))))</div></div></div></div></li></ol></div></div> http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3/show?time=2005-09-26+16%3A13%3A31 <div class="pageBefore"><img src="http://freesource.info/wiki/images/z.gif" width="1" height="1" border="0" alt="" style="display:block" align="top" /></div><div class="page"> <b>Сравнение версий <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3&" class="">/Alt&nbsp;Linux&nbsp;/&nbsp;Sisyphus&nbsp;/&nbsp;Alterator&nbsp;/&nbsp;internals&nbsp;/&nbsp;3</a> за <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3?time=2005-09-26+16%3A13%3A31">2005-09-26 16:13:31</a> и <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3?time=2006-09-26+14%3A36%3A48">2006-09-26 14:36:48</a></b><br /> <br /> <b>Добавлено:</b><br /> <div class="additions">У&nbsp;длинного варианта записи <tt>(quote объект)</tt> существует сокращенный: <tt>'объект</tt><br /> То&nbsp;есть можно написать так: <tt>(define b&nbsp;'a)</tt><br /> Не&nbsp;сильно огорчайтесь, если чего-то сейчас не&nbsp;ясно, всё прояснится, когда мы&nbsp;чуть глубже поймём, как&nbsp;работает интерпретатор.<br /> Доступ к&nbsp;первому и&nbsp;второму элементу пар&nbsp;обеспечивают функции <tt>car</tt> и&nbsp;<tt>cdr</tt>: // <em>где-то видел мнемоническую историю...</em><br /> (define a&nbsp;(cons 'first 'second))<br /> Пары вполне достаточно, чтобы создать такую известную структуру как&nbsp;односвязный список.</div><br /> <b>Удалено:</b><br /> <div class="deletions">У&nbsp;длинного варианта записи:<br /> <tt>(quote объект)</tt><br /> Существует сокращенный вариант записи:<br /> <tt>'объект</tt><br /> То&nbsp;есть можно написать так:<br /> <tt>(define b&nbsp;'a)</tt><br /> Не&nbsp;сильно огорчайтесь, если чего-то сейчас не&nbsp;ясно, всё прояснится, когда мы&nbsp;чуть глубже поймём как&nbsp;работает интерпретатор.<br /> Доступ к&nbsp;первому и&nbsp;второму элементу пар&nbsp;обеспечивают функции <tt>car</tt> и&nbsp;<tt>cdr</tt>:<br /> (define a&nbsp;(car 'first 'second))<br /> Пары вполне достаточно чтобы создать такую известную структуру как&nbsp;односвязный список.</div></div> http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3/show?time=2005-09-26+16%3A09%3A49 <div class="pageBefore"><img src="http://freesource.info/wiki/images/z.gif" width="1" height="1" border="0" alt="" style="display:block" align="top" /></div><div class="page"> <b>Сравнение версий <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3&" class="">/Alt&nbsp;Linux&nbsp;/&nbsp;Sisyphus&nbsp;/&nbsp;Alterator&nbsp;/&nbsp;internals&nbsp;/&nbsp;3</a> за <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3?time=2005-09-26+16%3A09%3A49">2005-09-26 16:09:49</a> и <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3?time=2005-09-26+16%3A13%3A31">2005-09-26 16:13:31</a></b><br /> <br /> <b>Добавлено:</b><br /> <div class="additions"><div class="indent"><div class="indent">(document:id username (edit &quot;&quot;)))<br /> <div class="indent"><div class="indent"><div class="indent">(on-click (document:replace &laquo;/welcome&raquo; 'name (username text)))))<br /> (on-click (document:end))))</div></div></div></div></div></div><br /> <b>Удалено:</b><br /> <div class="deletions"><div class="indent"><div class="indent">(id 'username (edit &quot;&quot;)))<br /> <div class="indent"><div class="indent"><div class="indent">(on-click (goto &laquo;/welcome&raquo; 'name (username text)))))<br /> (on-click (end-dialog))))</div></div></div></div></div></div></div> http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3/show?time=2005-07-20+12%3A26%3A14 <div class="pageBefore"><img src="http://freesource.info/wiki/images/z.gif" width="1" height="1" border="0" alt="" style="display:block" align="top" /></div><div class="page"> <b>Сравнение версий <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3&" class="">/Alt&nbsp;Linux&nbsp;/&nbsp;Sisyphus&nbsp;/&nbsp;Alterator&nbsp;/&nbsp;internals&nbsp;/&nbsp;3</a> за <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3?time=2005-07-20+12%3A26%3A14">2005-07-20 12:26:14</a> и <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3?time=2005-09-26+16%3A09%3A49">2005-09-26 16:09:49</a></b><br /> <br /> <b>Добавлено:</b><br /> <div class="additions">(document:surround &laquo;/std/base&raquo;)<br /> Замечание: document:surround &ndash; это&nbsp;инструкция загрузки стандартной среды документа, пока не&nbsp;обращайте на&nbsp;неё внимание.</div></div> http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3/show?time=2005-07-20+00%3A48%3A34 <div class="pageBefore"><img src="http://freesource.info/wiki/images/z.gif" width="1" height="1" border="0" alt="" style="display:block" align="top" /></div><div class="page"> <b>Сравнение версий <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3&" class="">/Alt&nbsp;Linux&nbsp;/&nbsp;Sisyphus&nbsp;/&nbsp;Alterator&nbsp;/&nbsp;internals&nbsp;/&nbsp;3</a> за <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3?time=2005-07-20+00%3A48%3A34">2005-07-20 00:48:34</a> и <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3?time=2005-07-20+12%3A26%3A14">2005-07-20 12:26:14</a></b><br /> <br /> <b>Добавлено:</b><br /> <div class="additions"><a name="h5142-1"></a><h3> 2.6 Несколько замечаний про&nbsp;функции </h3> <tt>(define f&nbsp;(lambda (x y) ... ))</tt><br /> <tt>(define (f x&nbsp;y) ... )</tt><br /> <tt>(define (f) ... )</tt><br /> Вот, например, как&nbsp;можно было бы&nbsp;определить функцию &laquo;модуль числа&raquo;:<br /> <tt>(define (abs x) ((if (&lt; x&nbsp;0) &ndash; +) x))</tt><br /> (* a&nbsp;5)<!--notypo--><textarea class="code" rows="3" readonly="readonly">##(* (+ 1 2) 5)## (g f)</textarea><!--/notypo--><br /> <tt>(g (lambda (x) (+ x&nbsp;x)))</tt><a name="h5142-2"></a><h3> 2.7 О&nbsp;символах </h3> Из&nbsp;чего сделана переменная? Переменная &mdash; это&nbsp;некоторое &laquo;имя&raquo; и&nbsp;&laquo;связь&raquo; между этим именем и&nbsp;каким-то объектом, и&nbsp;прежде всего именно &laquo;связь&raquo; (связи может не&nbsp;быть, а&nbsp;имена есть всегда). То&nbsp;есть можно рассматривать по&nbsp;отдельности: отдельно имя, и&nbsp;отдельно некоторая таблица, которая ставит соответствие между именами и&nbsp;объектами, на&nbsp;которые они&nbsp;ссылаются.<br /> <tt>(define a&nbsp;4)</tt><br /> Это&nbsp;значит есть, имя&nbsp;<tt>a</tt> и&nbsp;оно ссылается на&nbsp;объект &ndash; число <tt>4</tt>.<br /> Когда интерпретатор видит выражение <tt>(define b&nbsp;a)</tt>, он&nbsp;обнаруживает наличие имени <tt>a</tt>, а&nbsp;потом производит поиск в&nbsp;своей таблице имён, отмечает, что&nbsp;<tt>a</tt> ссылается на&nbsp;объект &ndash; число <tt>4</tt> и&nbsp;производит подстановку, после которой выражение приобретает вид&nbsp;<tt>(define b&nbsp;4)</tt>.<br /> А&nbsp;что если мы&nbsp;хотим получить просто &laquo;имя&raquo;? Тогда мы&nbsp;говорим интерпретатору: пожалуйста, не&nbsp;надо размышлять над&nbsp;следующим выражением, дай&nbsp;мне его&nbsp;&laquo;как есть&raquo; &ndash; эта&nbsp;процедура носит имя&nbsp;<tt>quote</tt>.<br /> <tt>(define b&nbsp;(quote a))</tt> &ndash; назначит &laquo;имени&raquo; <tt>b</tt>, уже&nbsp;не&nbsp;не <tt>4</tt>, а&nbsp;просто &laquo;имя&raquo; <tt>a</tt>.<br /> <tt>(quote объект)</tt><br /> <tt>'объект</tt><br /> <tt>(define b&nbsp;'a)</tt><br /> Обратите внимание на&nbsp;то что&nbsp;переменной <tt>b</tt> нет&nbsp;(точнее связи нет), но&nbsp;&laquo;имя&raquo; <tt>b</tt> без&nbsp;связи с&nbsp;чем-либо замечательно интерпретируется.<br /> Не&nbsp;сильно огорчайтесь, если чего-то сейчас не&nbsp;ясно, всё прояснится, когда мы&nbsp;чуть глубже поймём как&nbsp;работает интерпретатор.<a name="h5142-3"></a><h3>2.8 Универсальный клей </h3> Практически нет&nbsp;программ, которые работали бы&nbsp;с базовыми типами предоставляемыми языком (строки, числа, символы), каждый язык предоставляет возможность разработчику создавать свои, новые типы, составленные из&nbsp;других типов (из базовых или&nbsp;других составных).<br /> (cons &#8220;aaa&#8221; &#8220;bbb&#8221;)<!--notypo--><textarea class="code" rows="3" readonly="readonly">Доступ к первому и второму элементу пар обеспечивают функции ##car## и ##cdr##: (cdr a) ; получить второй элемент пары, то есть &quot;имя&quot; &quot;second&quot;</textarea><!--/notypo--><br /> Для&nbsp;этого первый элемент пары будет ссылаться на&nbsp;содержимое элемента списка, а&nbsp;второй &ndash; на&nbsp;следующий элемент списка. Последний элемент списка должен ссылаться на&nbsp;&laquo;никого нет&raquo;, мы&nbsp;для этого введём специальное имя&nbsp;<tt>()</tt>. <br /> Вот&nbsp;например так&nbsp;создаётся список из&nbsp;двух элементов, содержащих <tt>3</tt> и&nbsp;<tt>4</tt>:<br /> <tt>(define elem1 (cons 3 (cons 4 '())))</tt><br /> Если захотим сделать список из&nbsp;трёх елементов <tt>1</tt>, <tt>2</tt> и&nbsp;<tt>3</tt>, то&nbsp;надо написать:<br /> <tt>(cons 1 (cons 2 (cons 3 '())))</tt><br /> Как&nbsp;видно конструкция очень громоздкая, поэтому есть более короткий вариант:<br /> <tt>(list 1 2 3)</tt><br /> Поскольку список склеен из&nbsp;пар, то&nbsp;и работать с&nbsp;ним можно при&nbsp;помощи при&nbsp;помощи тех&nbsp;же&nbsp;<tt>car</tt> и&nbsp;<tt>cdr</tt>.<br /> <tt>(define a&nbsp;(list 1 2 3))</tt><br /> Опять-таки для&nbsp;веера из&nbsp;<tt>car</tt> и&nbsp;<tt>cdr</tt> существует сокращенные варианты записи:<a name="h5142-4"></a><h3> 2.9 Снова про&nbsp;alterator </h3> <tt>(vbox (button &#8220;aaa&#8221;) (button &#8220;bbb&#8221;))</tt><br /> Можно прочитать как&nbsp;&laquo;вызвать функцию которая вернёт вертикальную группу с&nbsp;двумя параметрами, результатами вызова функций одна из&nbsp;которых создаст кнопку с&nbsp;именем <tt>aaa</tt>, а&nbsp;другая &ndash; с&nbsp;именем <tt>bbb</tt>. А&nbsp;можно как&nbsp;&laquo;вертикальная группа из&nbsp;кнопкок <tt>aaa</tt> и&nbsp;<tt>bbb</tt>&laquo;.<br /> Для&nbsp;того чтобы связать диалоги, надо присвоить им&nbsp;имена. В&nbsp;alterator каждый диалог имеет уникальный URL, и&nbsp;имеется таблица соответствий между этими URL&nbsp;и&nbsp;файлами которые содержат описания диалогов. Основной диалог, с&nbsp;которым происходит запуск приложения, всегда должен иметь имя&nbsp;<tt>/</tt>.<br /> Пусть описание диалога с&nbsp;вопросом будет жить в&nbsp;файле <tt>q.scm</tt>, а&nbsp;описание диалога с&nbsp;приглашением <tt>w.scm</tt>, назовём первый, как&nbsp;требуется правилами, <tt>/</tt>, а&nbsp;второй &mdash; <tt>/welcome</tt>.<br /> " начинаем с&nbsp;файла 'q.scm' (или / &ndash; это&nbsp;в&nbsp;файле 'q.scm)'<br /> <div class="indent">/welcome &ndash; это&nbsp;в&nbsp;файле 'w.scm'"</div> %%<br /> Сохраним это&nbsp;в&nbsp;файле <tt>simple_map.scm</tt><br /> Теперь создадим описание диалога с&nbsp;приветствием: вертикальная группа в&nbsp;которую вставили:<br /> &ndash; метку &#8220;My first alterator dialog&#8221;<br /> &ndash; горизонтальная группа с&nbsp;меткой &#8220;Your name:" и&nbsp;полем редактирования по&nbsp;имени <tt>username</tt>, по&nbsp;умолчанию пустым.<br /> &ndash; кнопка &#8220;OK&#8221;, при&nbsp;нажатии на&nbsp;которую происходит перeключение на&nbsp;URL <tt>/welcome</tt> и&nbsp;передаётся параметр по&nbsp;имени name со&nbsp;значением взятом из&nbsp;поля редактирования <tt>username</tt>.<br /> <ol type="1"><li> Поле редактирования, по&nbsp;умолчанию пустое, описывается как: <tt>(edit &quot;&quot;)</tt> </li><li> Сказать, поле с&nbsp;именем username, это&nbsp;значит: <tt>(id 'username (edit &quot;&quot;))</tt> </li><li> Сказать что&nbsp;взять содержимое из&nbsp;поля по&nbsp;имени username, это: <tt>(username text)</tt> </li><li> Сказать, что&nbsp;&laquo;при нажатии перейти ...&raquo;, это&nbsp;значит: <tt>(on-click (goto &laquo;/welcome&raquo; 'name (username text)))</tt></li></ol> Переключение диалога означает, что&nbsp;вы&nbsp;просто заменяете содержимое окна, то&nbsp;есть остаётесь на&nbsp;самом деле в&nbsp;том же&nbsp;самом диалоге, просто с&nbsp;другим содержимым.<br /> Обратите внимание на&nbsp;использование символов, когда мы&nbsp;обрабатываем фразы, содержащие &laquo;имя&raquo;. В&nbsp;конструкции с&nbsp;<tt>id</tt> мы&nbsp;имеем просто имя, когда уже&nbsp;забираем текст, у&nbsp;нас в&nbsp;наличие уже&nbsp;не&nbsp;просто имя, а&nbsp;имя связанное с&nbsp;конкретным виджетом, поэтому обращаться к&nbsp;нему можно уже&nbsp;без использования <tt>quote</tt>.<br /> <div class="indent">(label &#8220;My first alterator dialog&#8221;)<br /> (hbox<br /> <div class="indent">(label &#8220;Your name:&raquo;)<br /> (id 'username (edit &quot;&quot;)))<br /> </div>(button &#8220;OK&#8221;<br /> <div class="indent"><div class="indent"><div class="indent"><div class="indent">(on-click (goto &laquo;/welcome&raquo; 'name (username text)))))</div></div></div></div></div> И&nbsp;сохраним в&nbsp;файл <tt>q.scm</tt><br /> Аргументы, которые передавались диалогу доступны через функцию <tt>global</tt>.<br /> <ul><li> метки, текст которой есть соединение &#8220;Welcome " и&nbsp;значения переданного параметра по&nbsp;имени <tt>name</tt>. </li><li> кнопки &#8220;OK&#8221;, при&nbsp;нажатие на&nbsp;которую происходит завершение работы диалога (и соотв. завершение работы вообще)</li></ul> Вот&nbsp;содержимое файла <tt>w.scm</tt>:<br /> <div class="indent">(label (string-append &#8220;Welcome "<br /> <div class="indent"><div class="indent"><div class="indent"><div class="indent"><div class="indent"><div class="indent"><div class="indent"><div class="indent"><div class="indent"><div class="indent"><div class="indent">(global 'name)))<br /> </div></div></div></div></div></div></div></div></div></div></div>(button &#8220;OK&#8221;<br /> <div class="indent"><div class="indent"><div class="indent"><div class="indent">(on-click (end-dialog))))</div></div></div></div></div> Теперь произведём запуск одной компоненты, alterator которая собственно занимается диалогом с&nbsp;пользователем:<br /> <tt>lookout -m simple_map.scm</tt>.<br /> Всё &ndash; ваше первое приложение под&nbsp;<tt>alterator</tt> готово. Согласитесь, что&nbsp;за&nbsp;три лекции мы&nbsp;уже кое-чему научились.</div><br /> <b>Удалено:</b><br /> <div class="deletions"><a name="h5142-1"></a><h2> 2.6 Несколько замечаний про&nbsp;функции </h2> (define f&nbsp;(lambda (x y) ... ))<br /> (define (f x&nbsp;y) ... )<br /> (define (f) ... )<br /> Вот&nbsp;например как&nbsp;можно было бы&nbsp;определить функцию &laquo;модуль числа&raquo;:<br /> (define (abs x) <span class="missingpage">(&lt; x&nbsp;0) &ndash; +) x</span><a href="http://freesource.info/wiki/if/edit?add=1&" title="Создать эту страницу">?</a><br /> (* a&nbsp;5)<br /> (* (+ 1 2) 5)<br /> (g f)<br /> (g (lambda (x) (+ x&nbsp;x)))<a name="h5142-2"></a><h2> 2.7 О&nbsp;символах </h2> Из&nbsp;чего сделана переменная? Переменная это&nbsp;некоторое &laquo;имя&raquo; и&nbsp;&laquo;связь&raquo; между этим именем и&nbsp;каким-то объектом, и&nbsp;прежде всего именно &laquo;связь&raquo; (связи может не&nbsp;быть, а&nbsp;имена есть всегда). То&nbsp;есть можно рассматривать по-отдельности: отдельно имя, и&nbsp;отдельно некоторая таблица которая ставит соответствие между именами и&nbsp;объектами на&nbsp;которые они&nbsp;ссылаются.<br /> (define a&nbsp;4)<br /> Это&nbsp;значит есть, имя&nbsp;&#8220;a&#8221; и&nbsp;оно ссылается на&nbsp;объект &ndash; число 4.<br /> Когда интерпретатор видит выражение (define b&nbsp;a), он&nbsp;обнаруживает наличие имени &#8220;a&#8221;, а&nbsp;потом производит поиск в&nbsp;своей таблице имён, отмечает что&nbsp;&#8220;a&#8221; ссылается на&nbsp;объект  - число 4 и&nbsp;производит подстановку, после которой выражение приобретает вид&nbsp;(define b&nbsp;4).<br /> А&nbsp;что если мы&nbsp;хотим получить просто &laquo;имя&raquo;? Тогда мы&nbsp;говорим интерпретатору: пожалуйста, не&nbsp;надо размышлять над&nbsp;следующим выражением, дай&nbsp;мне его&nbsp;&laquo;как есть&raquo; &ndash; эта&nbsp;процедура носит имя&nbsp;quote.<br /> (define b&nbsp;(quote a))  - назначит &laquo;имени&raquo; b, уже&nbsp;не&nbsp;не 4, а&nbsp;просто &laquo;имя&raquo; a.<br /> (quote объект)<br /> 'объект.<br /> (define b&nbsp;'a).<br /> --<br /> --<br /> Обратите внимание на&nbsp;то что&nbsp;переменной b&nbsp;нет (точнее связи нет), но&nbsp;&laquo;имя&raquo; b&nbsp;без связи с&nbsp;чем-либо замечательно интерпретируется.<br /> Не&nbsp;сильно огорчайтесь, если чего-то сейчас не&nbsp;ясно, всё прояснится когда мы&nbsp;чуть глубже поймём как&nbsp;работает интерпретатор.<a name="h5142-3"></a><h2>2.8 Универсальный клей </h2> Практически нет&nbsp;программ которые работали бы&nbsp;с базовыми типами предоставляемыми языком (строки, числа, символы), каждый язык предоставляет возможность разработчику создавать свои, новые типы, составленные из&nbsp;других типов (из базовых или&nbsp;других составных).<br /> (cons &#8220;aaa&#8221; &#8220;bbb&#8221;)<br /> Доступ к&nbsp;первому и&nbsp;второму элементу пар&nbsp;обеспечивают функции car&nbsp;и&nbsp;cdr:<br /> (cdr a) ; получить второй элемент пары, то&nbsp;есть &laquo;имя&raquo; &#8220;second&#8221;<br /> Для&nbsp;этого первый элемент пары будет ссылаться на&nbsp;содержимое элемента списка, а&nbsp;второй &ndash; на&nbsp;следующий элемент списка. Последний элемент списка должен ссылаться на&nbsp;&laquo;никого нет&raquo;, мы&nbsp;для этого введём специальное имя&nbsp;"()". <br /> Вот&nbsp;например так&nbsp;создаётся список из&nbsp;двух элементов, содержащих 3 и&nbsp;4:<br /> (define elem1 (cons 3 (cons 4 '())))<br /> Если захотим сделать список из&nbsp;трёх елементов 1 2 и&nbsp;3, то&nbsp;надо написать:<br /> (cons 1 (cons 2 (cons 3 '())))<br /> Как&nbsp;видно конструкция очень громоздкая, поэтому есть более короткий<br /> вариант:<br /> (list 1 2 3)<br /> Поскольку список склеен из&nbsp;пар, то&nbsp;и работать с&nbsp;ним можно при&nbsp;помощи при&nbsp;помощи тех&nbsp;же&nbsp;car и&nbsp;cdr.<br /> (define a&nbsp;(list 1 2 3))<br /> Опять-таки для&nbsp;веера из&nbsp;&#8220;car&#8221; и&nbsp;&#8220;cdr&#8221; существует сокращенные варианты<br /> записи:<a name="h5142-4"></a><h2> 2.9 Снова про&nbsp;alterator </h2> (vbox (button &#8220;aaa&#8221;) (button &#8220;bbb&#8221;))<br /> Можно прочитать как&nbsp;&laquo;вызвать функцию которая вернёт вертикальную группу с&nbsp;двумя параметрами, результатами вызова функций одна из&nbsp;которых создаст<br /> кнопку с&nbsp;именем 'aaa', а&nbsp;другая &ndash; с&nbsp;именем 'bbb'". А&nbsp;можно как&nbsp;&laquo;вертикальная группа из&nbsp;кнопкок 'aaa' и&nbsp;'bbb'".<br /> Для&nbsp;того чтобы связать диалоги, надо присвоить им&nbsp;имена. В&nbsp;alterator каждый диалог имеет уникальный URL, и&nbsp;имеется таблица соответствий между<br /> этими URL&nbsp;и&nbsp;файлами которые содержат описания диалогов. Основной диалог, с&nbsp;которым происходит запуск приложения всегда должен иметь имя&nbsp;&laquo;/&raquo;<br /> Пусть описание диалога с&nbsp;вопросом будет жить в&nbsp;файле &#8220;q.scm&#8221;, а&nbsp;описание диалога с&nbsp;приглашением &#8220;w.scm&#8221;, назовём первый как&nbsp;требуется правилами &laquo;/&raquo;, а<br /> второй &laquo;/welcome&raquo;.<br /> " начинаем с&nbsp;файла 'q.scm' (или /  - это&nbsp;в&nbsp;файле 'q.scm)'<br />   /welcome  - это&nbsp;в&nbsp;файле 'w.scm'"<br /> --<br /> --<br /> Сохраним это&nbsp;в&nbsp;файле &#8220;simple_map.scm&#8221;<br /> Теперь создадим описание диалога с&nbsp;приветствием:<br /> &laquo;вертикальная группа в&nbsp;которую вставили:<br />  - метку &#8220;My first alterator dialog&#8221;<br />  - горизонтальная группа с&nbsp;меткой &#8220;Your name:&raquo; и&nbsp;полем редактирования по&nbsp; имени username, по&nbsp;умолчанию пустым.<br />  - кнопка &#8220;OK&#8221;, при&nbsp;нажатии на&nbsp;которую происходит перeключение на&nbsp;URL &laquo;/welcome&#8221; и&nbsp;передаётся параметр по&nbsp;имени name со&nbsp;значением взятом из&nbsp;поля редактирования  "username.&#8221;<br /> <div class="indent"> Поле редактирования, по&nbsp;умолчанию пустое, описывается как: <i>Formatter &laquo;highlight/edit&raquo; not&nbsp;found</i><br /> </div><ol type="1"><li> Сказать, поле с&nbsp;именем username, это&nbsp;значит: <!--notypo--><textarea class="code" rows="2" readonly="readonly">(id 'username (edit &quot;&quot;))</textarea><!--/notypo--> </li><li> Сказать что&nbsp;взять содержимое из&nbsp;поля по&nbsp;имени username, это: <i>Formatter &laquo;highlight/username&raquo; not&nbsp;found</i> </li><li> Сказать, что&nbsp;&laquo;при нажатии перейти ...&raquo;, это&nbsp;значит: <!--notypo--><textarea class="code" rows="2" readonly="readonly"> (on-click (goto &quot;/welcome&quot; 'name (username text)))</textarea><!--/notypo--></li></ol> Переключение диалога означает что&nbsp;вы&nbsp;просто заменяете содержимое окна, то&nbsp;есть остаётесь на&nbsp;самом деле в&nbsp;том же&nbsp;самом диалоге, просто с&nbsp;другим содержимым.<br /> Обратите внимание на&nbsp;использование символов, когда мы&nbsp;обрабатываем фразы, содержащие &laquo;имя&raquo;. В&nbsp;конструкции с&nbsp;&#8220;id&#8221; мы&nbsp;имеем просто имя, когда уже&nbsp;забираем текст, у&nbsp;нас в&nbsp;наличие уже&nbsp;не&nbsp;просто имя, а&nbsp;имя связанное с&nbsp;конкретным виджетом, поэтому обращаться к&nbsp;нему можно уже&nbsp;без использования quote.<br />   (label &#8220;My first alterator dialog&#8221;)<br />   (hbox<br />     (label &#8220;Your name:&raquo;)<br />     (id 'username (edit &quot;&quot;)))<br />   (button &#8220;OK&#8221;<br />           (on-click (goto &laquo;/welcome&raquo; 'name (username text)))))<br /> И&nbsp;сохраним в&nbsp;файл &#8220;q.scm&#8221;<br /> Аргументы, которые передавались диалогу доступны через функцию global.<br /> "<br />   &ndash; метки, текст которой есть соединение &#8220;Welcome " и&nbsp;значения переданного  параметра по&nbsp;имени name.<br />  - кнопки &#8220;OK&#8221;, при&nbsp;нажатие на&nbsp;которую происходит завершение работы  диалога (и соотв. завершение работы вообще)<br /> "<br /> Вот&nbsp;содержимое файла &#8220;w.scm&#8221;:<br />   (label (string-append &#8220;Welcome "<br />                         (global 'name)))<br />   (button &#8220;OK&#8221;<br />           (on-click (end-dialog))))<br /> Теперь произведём запуск одного комнонеты alterator которая собственно занимается диалогом с&nbsp;пользователем &#8220;lookout -m simple_map.scm&#8221;.<br /> Всё &ndash; ваше первое приложение под&nbsp;alterator готово. Согласитесь, что&nbsp;за&nbsp;три лекции мы&nbsp;уже кое-чему научились.</div></div> http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3/show?time=2005-07-20+00%3A45%3A10 <div class="pageBefore"><img src="http://freesource.info/wiki/images/z.gif" width="1" height="1" border="0" alt="" style="display:block" align="top" /></div><div class="page"> <b>Сравнение версий <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3&" class="">/Alt&nbsp;Linux&nbsp;/&nbsp;Sisyphus&nbsp;/&nbsp;Alterator&nbsp;/&nbsp;internals&nbsp;/&nbsp;3</a> за <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3?time=2005-07-20+00%3A45%3A10">2005-07-20 00:45:10</a> и <a href="http://freesource.info/wiki/AltLinux/Sisyphus/Alterator/internals/3?time=2005-07-20+00%3A48%3A34">2005-07-20 00:48:34</a></b><br /> <br /> <b>Добавлено:</b><br /> <div class="additions"><span class="missingpage">Продолжение будет ...</span><a href="http://freesource.info/wiki/4/edit?add=1&" title="Создать эту страницу">?</a></div><br /> <b>Удалено:</b><br /> <div class="deletions">Продолжение будет ...</div></div>