# <s>------------------------------------------------------------------</s>
# EXAMPLE: appointment schedule widget
# <s>------------------------------------------------------------------</s>
# Effective Tcl/Tk Programming
# Mark Harrison, DSC Communications Corp.
# Michael McLennan, Bell Labs Innovations for Lucent Technologies
# Addison-Wesley Professional Computing Series
# ======================================================================
# Copyright © 1996–1997 Lucent Technologies Inc. and Mark Harrison
# ======================================================================

#  USAGE:  appointment_create <win>
#
#  Creates one page in an appointment book.  This includes a text
#  widget with some special tags and bindings, and a scrollbar.
#  Information is loaded into the page via appointment_load.
# ----------------------------------------------------------------------
proc appointment_create {win} {
   frame $win -class Appointment

   scrollbar $win.sbar -command "$win.text yview"
   pack $win.sbar -side right -fill y

    #Тут создаётся текстовый виджет (аналог RichTextEdit)
    # с вертикальным скролбаром с двумя колонками: 
    # одна 2 сантиметра от левого края и с 
    # правым выравниванием, другая - 2,4 см с левым.
    #
   text $win.text -background white -wrap word \
       -cursor left_ptr -tabs {2c right 2.4c left} \
       -yscrollcommand "$win.sbar set"
   pack $win.text -side left -expand yes -fill both

   #
   # Set up tags for the various text styles...
   #
     # Тэги - это нечто вроде стилей
     # Они имеют ряд свойст, которые исменяют
     # как внешний вид так и поведение элементов,
     # к которым эти теги привязаны. То есть,
     # изменени некого визуального атрибута в тэге
     # изменяет внешний вид всех элементов к которым
     # этот тег привязан. К одному элементу можно
     # привязывать много тегов.
     #
     # Тут конфигурируются теги title, date, hour, 
     # comment, stripe, space.
     # 
     # Строчка 'option get $win titleFont Font' это
     # получение значений из внешних конфигов.
     # На 'X' это родной механизм, по виндами - эмуляция
     
   $win.text tag configure title \
       -font [option get $win titleFont Font]

   $win.text tag configure date \
       -font [option get $win dateFont Font]

   $win.text tag configure hour \
       -font [option get $win hourFont Font]

   $win.text tag configure comment \
       -lmargin1 2.4c -lmargin2 2.4c \
       -font [option get $win commentFont Font]

   $win.text tag configure stripe \
       -background [option get $win stripeBackground Background] \
       -foreground [option get $win stripeForeground Foreground]

   $win.text tag configure space -spacing1 5

   #
   # Set up bindings to handle appointment editing...
   #
   set btags [bindtags $win.text]
   set i [lsearch $btags Text]
   if {$i >= 0} {
       set btags [lreplace $btags $i $i]
   }
   bindtags $win.text $btags

    #Тут ничего необычного - обработка событий клавиатуры...
   bind $win.text <KeyPress> "appointment_insert $win %W %A"
   bind $win.text <Control-KeyPress-h> "appointment_backspace $win %W"
   bind $win.text <KeyPress-BackSpace> "appointment_backspace $win %W"
   bind $win.text <KeyPress-Delete> "appointment_delete $win %W"
   bind $win.text <KeyPress-Tab> "appointment_next $win %W; break"
   bind $win.text <KeyPress-Down> "appointment_next $win %W; break"
   bind $win.text <KeyPress-Up> "appointment_prev $win %W; break"
   bind $win.text <KeyPress-Left> "appointment_left $win %W; break"
   bind $win.text <KeyPress-Right> "appointment_right $win %W; break"

   #
   # Bind to the "comment" fields to let the user position
   # the cursor...
   #
    #... и нажатий мыши
   $win.text tag bind comment <ButtonPress-1> "
       focus %W
       %W mark set insert @%x,%y
   "

   return $win
}

# ----------------------------------------------------------------------
#  USAGE:  appointment_load_slot <win> <slot> <appmt> <allSlots>
#
#  Adds a single line to the appointment book <win>.  Each line
#  represents one time slot.  <slot> contains the hour like "8:00am".
#  <appmt> is a list containing the alarm setting and the comment
#  message.  <allSlots> is a list of all of the slots, in the order
#  that they are displayed on the page.
# ----------------------------------------------------------------------
proc appointment_load_slot {win slot appmt allSlots} {
   if {[string match "*:00" $slot]} {
       set htags "hour space"
   } else {
       set htags "hour"
   }
     # htags - это набор тэтов, согласно которым
     # меняется внешний вид текста
     # Текст добавляется уже с тэгами (последняя переменная).
   $win.text insert end "\t$slot\t" $htags

   appointment_load_bell $win $slot $appmt

   set pos [lsearch $allSlots $slot]
   if {$pos % 2 != 0} {
       set ctags "comment stripe"
   } else {
       set ctags "comment"
   }
   set mesg [lindex $appmt 1]
   $win.text insert end "$mesg\n" $ctags
}

# ----------------------------------------------------------------------
#  USAGE:  appointment_next <twin>
#
#  Moves to the next appointment slot on the text widget <twin>.
# ----------------------------------------------------------------------
proc appointment_next {win twin} {
   set range [$twin tag nextrange hour insert]
   if {$range != ""} {
       set index [lindex $range 0]
       set range [$twin tag nextrange comment $index]
       set index [lindex $range 0]
       $twin mark set insert $index
   }
   $twin see insert
}

VD>Ну, и чем вы тут хвастались? Убогостью? Ее и так кругом хватает.

Кактусы приносят человеку весьма разнообразную пользу. Многие виды доставляют съедобные и некоторые — даже довольно вкусные плоды. Под тропиками ягоды Cereus triangularis, имеющие величину кулака, предпочитаются даже всяким другим фруктам, поэтому это растение часто возделывается. Также славятся своими весьма сладкими ягодами Cereus giganteus и Cereus Thurberi, растущие в Мексике, Техасе и Аризоне. В некоторых местностях Мексики обильно разводят Cereus pruinosus. Почти каждая хижина в этих местах окружена зарослями этого кактуса, называемого также Cereus edulis. В южной Европе (в Италии, Испании, Португалии) и в особенности в Сицилии плоды Opuntia Ficus Indica — индийской смоковницы — составляют главную пищу бедных классов народа. Сок этих плодов (индийской фиги) имеет свойство окрашивать мочу в красный цвет, не причиняя, однако, никакого вреда для здоровья; только неумеренное употребление этих плодов вызывает холеровидные заболевания. В Мексике сладко-кислые и ароматичные стебли некоторых видов Echinocactus употребляются как компот. Мясистые, богатые водою ветви Opuntia даются в Техасе и Мексике скоту для утоления жажды, для этой же цели служат стебли Echinocactus, в особенности в сухое время года.

INTERNATIONAL
STANDARD
ISO/IEC
14882
Second edition
2003-10-15
Programming languages — C++

CString fun(std::string s)
{
    return (LPCTSTR)CComBSTR((BSTR)_bstr_t(s.c_str()));
}

E> В комитет по C++ входят люди с разными интересами, ожиданиями и подготовкой. ... Одни используют C++, другие -- нет.

IT>Вот как он эти задачи решает

IT>CString fun(std::string s)
IT>{
IT>    return (LPCTSTR)CComBSTR((BSTR)_bstr_t(s.c_str()));
IT>}
IT>

void f(CORBA::Octet o);
void f(CORBA::Boolean b); // Ambiguous
cout << ref—>getString(); // Leak
r1—>putString(r2—>getString()); // Leak
char *p = getString();
delete p; // Heap corruption
std::string s(ref—>getString()); // Leak
if(ref1 == ref2) ... // Undefined

binder.Object = person;

module.run(person)

file_name = asksaveasfilename(filetypes = [("levels", "*.lev")], initialfile = def_name)

void process( const Actor & a ) { ... }

Право слово, доисторический код какой-то. Так уже никто не пишет.

int a[] = {1, 2, 3, 2, 4, 5, 7, 6, 7, 2};
typedef map<int, int> map_t;
typedef map_t::value_type val_t;
map_t occur;

for_each(begin(a), end(a),
        if_(_1 < 7) [ bind(&map_t::operator[], &occur, _1)++ ]);

for_each(begin(occur), end(occur),
        cout << bind(&val_t::first, _1) << ":" << bind(&val_t::second, _1) << "\n");

using Nemerle.Utility;

[Record]
class PropTest
{
    [Accessor(flags = WantSetter)]
    private mutable n : int;
}

def changeProp(setter : int->void)
{
    setter(10)
}

def p = PropTest(4);
changeProp(x.set_N);

...Перед комитетом по C++ стояли довольно трудные задачи:
* определение языка должно быть точным и полным;
* необходимо принять во внимание совместимость с C;
* нужно рассмотреть расширения, выходящие за пределы текущей практики применения C++;
* должны быть рассмотрены библиотеки.
Ко всему прочему сообщество пользователей C++ было очень неоднородным и совершенно неорганизованным, поэтому комитету по стандартизации пришлось стать его центром. В краткосрочной перспективе именно это и было самой важной его целью:
Комитет по C++ -- это место, где разработчики компиляторов и инструментальных средств, их коллеги и представители могут обсудить проблемы определения языка и -- насколько позволяет коммерческая конкуренция -- его реализации. Таким образом, комитет уже сослужил добрую службу обществу: помог сблизить различные реализации, предоставив площадку для дискуссий. В противном случае разработчики компиляторов вместе с немногими коллегами или в одиночестве строили бы догадки относительно тех вопросов, на которые нет ответа в ARM. Возможно, они связались бы со мной, но я не в состоянии один справиться со всеми возникающими проблемами. Отсутствие общения неизбежно ведет к появлению диалектов. Комитет противостоит таким тенденциям.
Стандартизация -- непростой процесс. В комитет входили люди, стремившиеся сохранить status quo; мечтавшими вернуться на несколько лет назад; были такие, кто хотел "порвать с проклятым прошлым" и спроектировать совершенно новый язык; те, кого волновал лишь один конкретный класс систем; люди, чьи голоса были куплены их работодателями, и представлявшие лишь себя; специалисты, озабоченные в основном теоретическими взглядами на программирование вообще и языки в частности; нетерпеливые и требовавшие принять стандарт немедленно, даже если некоторые детали останутся неразрешенными, и наоборот, те, которых не устраивало ничего, кроме идеального определения языка. Были такие, кто полагал, что C++ -- совсем новый язык, у которого и пользователей-то почти нет, и представители организаций, написавших за минувшее десятилетие миллионы строк кода и т.д. Но в соответствии с правилами стандартизации нам всем предстояло прийти к более или менее одинаковому мнению. Мы должны были достичь консенсуса (обычно под этим словом понимают подавляющее большинство). Это разумные правила, они имеют национальный и интернациональный характер. Все интересы законны, и если позволить большинству ущемлять интересы меньшинства, то получится стандарт, полезный лишь ограниченному кругу пользователей. Поэтому каждому члену комитета предстоит научиться уважать другие, чуждые ему точки зрения и идти на компромиссы. И это вполне соответствует стилю C++.

В комитет по C++ входят люди с разными интересами, ожиданиями и подготовкой. Одни работают на персональных компьютерах, другие на UNIX-машинах, третьи -- на мейнфреймах и т.д. Одни используют C++, другие -- нет. Кто-то хочет, чтобы C++ стал более объектно-ориентированным языком (причем "объектной ориентированности" даются очень разные определения), других бы больше устроило, если бы эволюция C остановилась на ANSI C. Многие, но не все работали с C. Некоторые имеют опыт работы над стандартами, но их меньшинство. Есть профессиональные программисты. Одни обслуживают интересы конечных пользователей, другие поставляют на рынок инструментальные средства. Некоторым интересны крупные проекты. Кому-то необходима совместимость с языком C, кому-то -- нет.
Если не считать того, что все входящие в комитет -- добровольцы, не получающие за свою работу в нем ни копейки (хотя некоторые представляют компании), то трудно выделить какие-то черты, присущие всем без исключения. И это хорошо: только очень разношерстная группа людей может выразить интересы весьма неоднородного сообщества пользователей C++. Правда, из-за этого дискуссии бывают не очень конструктивными и занимают много времени. Меня беспокоит также, что голос пользователей C++ (программистов и проектировщиков) может быть не услышан в хоре языковых пуристов, так называемых проектировщиков языков, бюрократов от стандартизации, разработчиков компиляторов и т.д.

Я уверен, что стремление добавить языку то или иное расширение неизбежно, и лучше, чтобы это происходило открыто, на публичном форуме, где есть хоть какие-то формальные правила. Альтернатива -- схватка за признание собственных идей через привлечение на свою сторону пользователей на рынке. Такой механизм не способствует спокойным размышлениям, открытым дискуссиям и попыткам удовлетворить потребностям всех пользователей. В результате мы получаем язык, распавшийся на диалекты.
Очевидные опасности, присущие рассмотрению указанного вопроса, лучще, чем хаос, который воцарится в противном случае. Большинство членов комитета согласилось со мной, но мы шли к той точке, когда работа над расширениями в том виде, в котором она ведется сейчас, должна была прекратиться, поскольку приближался момент принятия стандарта и все направили усилия на его критическое изучение.
Со временем кто-то переключился на другие языки, кто-то занялся экспериментальной работой, кто-то посвятил себя созданию библиотек. Интересно отметить, что группы по стандартизации, как и любые другие организации, расформировываются с большой неохотой. Часто такая группа возрождается, пусть даже в виде бюрократического механизма для создания стандарта следующего уровня, то есть комитета по проектированию нового языка или диалекта. Примерами подобного явления служат комитеты по языкам Algol, Fortran, Pascal и даже ANSI C. Тем временем я стараюсь обезопасить себя от попыток проектирования чего-либо самим комитетом, посвящая много времени каждому поступившему предложению. Стратегия эта хоть как-то защищает от принятия взаимоисключающих средств, и язык, возможно, не утратит внутреннюю целостность.

E>public boolean getCurrentEdge( Edge edges[] ) throws Exception
E>  {
E>    Edge current = new Edge();
E>    edges[ 0 ] = current;
E>    ...
E>    current.setLength( calculatedLength );
E>    ...
E>    current.setWidth( calculatedWidth );
E>    ...
E>    return result;
E>  }
E>...
E>Edge current[] = new Edge[1];
E>getCurrentEdge( current );
E>...
E>

class EdgeBean
{
    private Edge edge;
    public void setEdge(Edge edge) { this.edge = edge; }
    public Edge getEdge()          { return this.edge; }
}

public boolean getCurrentEdge(EdgeBean bean)
{
    bean.setEdge(new Edge());
    return true;
}

items.inject( {} ) { bla-bla-bla }.sort { bla-bla-bla }.collect { bla-bla-bla }.each { bla-bla-bla }

def do_import( params, inserter )
  ... inserter.call( data ) ...
end

def initiate_import( params )
  inserter = if params.dry_run # реального импорта быть не должно
      lambda { puts "inserting " + ... }
    else
      # Для реального импорта используем SQL.
      lambda { dbh.execute "INSERT INTO ..." }
    end
  do_import( params, inserter )
end

def factory klass, *args
    klass.new *args
end

class A
    def hello
        "#{self.class.name}: hello"
    end
end

class B
    def initialize greeting
        @greeting = greeting
    end

    def hello
        "#{self.class.name}: #{@greeting}"
    end
end

class C
    def initialize greeting, a, b
        @greeting = greeting
        @a = a
        @b = b
    end

    def hello
        "#{self.class.name}: #{@greeting}, and: #{@a.hello} and #{@b.hello}"
    end
end

objs = [
    factory( A ),
    factory( B, 'have a nice day' ),
    factory( C, 'kill yourself!', factory( B, 'good morning' ), factory( A ) )
]

objs.each { |o| puts o.hello }

A: hello
B: have a nice day
C: kill yourself!, and: B: good morning and A: hello

gdmd.pl akk.d -O -release -inline -ofakk-gdc.exe

E>>Может быть это от незнания того, что такое Application Server?

E>>

Application Server: A software platform that provides the services and infrastructure required to develop and deploy middle-tier applications. Middle-tier applications perform the business logic necessary to provide web clients with access to enterprise information systems. In a multi-tier architecture, an application server sits beside a web server or between a web server and enterprise information systems. Application servers provide the middleware for enterprise systems.

Application server. Also called an appserver. A program that handles all application operations between users and an organization's backend business applications or databases. Application servers are typically used for complex transaction-based applications. To support high-end needs, an application server has to have built-in redundancy, monitors for high-availability, high-performance distributed application services and support for complex database access.

Application server definition

An application server is a component-based product that resides in the middle-tier of a server centric architecture. It provides middleware services for security and state maintenance, along with data access and persistence.

J2EE Server

The J2EE server provides the following services:

* Naming and Directory — allows programs to locate services and components through the Java Naming and Directory InterfaceTM (JNDI) API
* Authentication — enforces security by requiring users to log in
* HTTP — enables Web browsers to access servlets and JavaServer PagesTM (JSP) files
* EJB — allows clients to invoke methods on enterprise beans

EJB Container

Enterprise bean instances run within an EJB container. The container is a runtime environment that controls the enterprise beans and provides them with important system-level services. Since you don't have to develop these services yourself, you are free to concentrate on the business methods in the enterprise beans. The container provides the following services to enterprise beans:

* Transaction Management
* Security
* Remote Client Connectivity
* Life Cycle Management
* Database Connection Pooling

public partial class EditPersonForm : BizEntityForm
{
    public EditPersonForm(Person person)
    {
        InitializeComponent();
        binder.Object = person;
    }
}

И не надо никакой привязки к редактируемому объекту. Круто!

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

VD>>А кто тебе, кстати, такое сказал? Может через 12 лет ты будешь все рассказывать, что сразу увидел в Немерле божью искру, а разные Вольфхаунты тебе мозги пудрили.

FR>

FR>Ты бы спроcил меня двенадцать лет назад про форт, да я тогда был готов за него всех в землю закопать

Edge edge = getEdge();