FPC LUA

[Снег Север]

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

Паскальскрипт - это подмножество языка паскаль. Он не обязан полностью совпадать с текущими версиями делфи или FPC.

[скалогрыз]

В делфи включается и отключается в параметрах проекта

я не могу себе такого представить.

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

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

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

[runewalsh]

Код: Выделить всё

{$B+} — complete boolean eval

[Снег Север]

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

Код: Выделить всё

{$B+} — complete boolean eval

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

[скалогрыз]

{$B+} — complete boolean eval

Красота же!
теперь

Код: Выделить всё

Program test;
{$BOOLEVAL ON}
{$RANGECHECKS ON}
{$LONGSTRINGS ON}
var
   s: string;
   i: integer;
begin
s:='123456789';
i:=1;
while (i<=length(s)) and (s[i]<>' ') do inc(i);
// writeln(IntToStr(i));
writeln(i);
end.


вылетает с run-time ошибкой! .

А теперь внимание!

Код: Выделить всё

  c := TPSPascalCompiler.Create;

    c.BooleanShortCircuit:=true;

    c.Compile(src).


и PascalScript работает как надо - приведённый ранее пример не вылетает с ошибкой, а возвращает "10"!
Война настроек по-умолчанию! (X хуже чем Y, потому что настройки по-умолчанию в X не такие как у Y)
всё таки PascalScript крут

[runewalsh]

Это локальный свич, можно хоть для отдельных выражений, как и {$rangechecks} {$overflowchecks}. Я иногда заворачиваю в

Код: Выделить всё

{$define unchecked := {$push} {$rangechecks off} {$overflowchecks off} {$define end_unchecked := {$pop} {$undef end_unchecked}}}

Код: Выделить всё

function Hash(const s: string): cardinal;
var
  i: integer;
begin
  result := 0;
  for i := 1 to length(s) do
    unchecked result := result * 101 + ord(s[i]); end_unchecked
end;

[скалогрыз]

ну вот, теперь ещё и макросы.
Код же стал... странным.

почему бы не?:

Код: Выделить всё

unchecked
function Hash(const s: string): cardinal;
var
  i: integer;
begin
  result := 0;
  for i := 1 to length(s) do
    result := result * 101 + ord(s[i]);
end;
end_unchecked


[runewalsh]

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

[CynicRus]

Раз уж зашла речь о скриптовых языках для FPC, рекоммендую обратить внимание на Lape. Интерпретатор паскалеподобных скриптов, на мой взгляд повеселее PascalScript, и главное - умеет указатели. В отличие от того же PS.

[zub]

CynicRus
object`ы умеет?

Добавлено спустя 3 минуты 37 секунд:
Нет, не умеет((

[CynicRus]

CynicRus
object`ы умеет?

Не совсем обжекты. Умеет типа классы через Record'ы. Например вот так:

Код: Выделить всё

type
  PTest = ^TTest;
  TTest = record
    __object: Integer;
    __parent: PTest;
  end;

procedure TTest.create(obj: Integer; parent : PTest);
begin
  self.__object := obj;
  self.__parent := parent;
end;

function TTest.test: Integer;
begin
  writeln(self.__parent^);
  result := self.__parent^.__object;
end;

var
  test: TTest;
  parent : TTest;

begin
  parent.create(50, nil);
  test.create(100, @parent);
  writeln(test);
  writeLn(test.__parent^);
end.


В результате будет:

Код: Выделить всё

Compiled successfully in 703 ms.
{__OBJECT = 100, __PARENT = "parent"::0x96B9AD0 ({__OBJECT = 50, __PARENT = nil})}
{__OBJECT = 50, __PARENT = nil}
Successfully executed.

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

[Alex2013]

"За что погибли мухи..."
А почему бы просто не соединить DLL + EXE (или в ресурсы спрятать ) ?