FreePascal: реальная альтернатива или OpenSource — блажь? [обсуждение темы БП]

Раньше его можно было не рассматривать в серьёз, так как FreePascal 1.06 находился где-то на уровне Delphi 2 без VCL, но он все растёт и крепчает, и последняя бета-версия компилятора (1.1), хоть и по-прежнему без визуальной части, но по набору возможностей языка уже соперничает с Delphi 6. Поддержка MMX во встроенном ассемблере, макросы, перегрузка операторов, функций и методов... Плюс пара-тройка GUI редакторов кода, хоть и кривоватых, но зато опенсурсных. Плюс, Линукс для него - родная среда.

Мне как-то Паскаль роднее, да и объектная модель у него удобнее.

Cheb

А что мешает использовать C++?

Кстати, как Вам Boost::spirit?

#include <iostream>
#include <tchar.h>
#include <boost\spirit.hpp>
#include <list>
#include <string>
using namespace boost::spirit;
std::list<double> stack;
void Push(double r)
{
stack.push_back(r);
}
double Pop()
{
double d=*stack.rbegin();
stack.pop_back();
return d;
}
void Mul(const char*, const char*)
{
Push(Pop()*Pop());
}
void Div(const char*, const char*)
{
double d=Pop();
Push(Pop()/d);
}
void Add(const char*, const char*)
{
Push(Pop()+Pop());
}
void Sub(const char*, const char*)
{
Push(-Pop()+Pop());
}
void Neg(const char*, const char*)
{
Push(-Pop());
}
struct calculator : public grammar<calculator>
{
template <typename ScannerT>
struct definition
{
definition(calculator const& /*self*/)
{
expression
= term
>> *( ('+' >> term)[&Add]
| ('-' >> term)[&Sub]
)
;

term
= factor
>> *( ('*' >> factor)[&Mul]
| ('/' >> factor)[&Div]
)
;

factor
= real_p[&Push]
| '(' >> expression >> ')'
| ('-' >> factor)[&Neg]
| ('+' >> factor)
;
}

rule<ScannerT> expression, term, factor;

rule<ScannerT> const&
start() const { return expression; }
};
};

int _tmain(int argc, _TCHAR* argv[])
{
std::string str="5/(1-2)";
calculator calc;
parse_info<> info = parse(str.c_str(), calc, space_p);
std::cout<<Pop()<<std::endl;
return 0;
}

Акжан Абдулин

Не спорю, Дельфи всем хорош. Но цена в $1300... У меня элементарно таких денег нет.
А ФриПаскаль - хорошая альтернатива пиратству.

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

Cheb

	"Knowledge itself is power" F.Bacon
Поиск \| Карта сайта \| Помощь \| О проекте \| ТТХ