nielsad / lape Goto Github PK

With la-pe supporting overload, ovveride keyword its make
superior to the other pascal scripting engine like RemObjects
Pascal Script.

Well maybe you at least consider to add this supporting
feature.

# IUnknown and IDispatch support for COM object variant.
# varargs support for cdecl calling convention.

When the time it's come la-pe support these features,
I believe, La-pe will be the greatest Pascal Scripting
engine.

Hm, I only suggestting it and I don't mean to add an
burden to you. Just suggestion.

What will reproduce the problem?
  http://paste.villavu.com/show/x7iV1TALSkH1wzLwtYL1/

What is the expected output? What do you see instead?
  42, Exception

Which version are you using?
  r105

Please provide any additional information below.
  Only on Pointers of Records.

var CallMe: procedure of object;
type TFoo = type Pointer;
var Foo: TFoo;

procedure TFoo.Free; forward; //comment me to break shit.

procedure TFoo.Init;
begin
  CallMe := @Self.Free;
end;

procedure TFoo.Free;
begin
  Writeln('Free');
end;

begin
  Foo.Init;
  WriteLn(@CallMe);
  WriteLn(@Foo.Free);

  CallMe(); // Error: Access violation at line 22
end;       

procedure foo(x: integer = 111);
var
  y: Integer = 333;

  procedure nested;
  begin
    writeln(x, ' ', y);
    y := y + 1;
  end;

begin
  nested;
  x:= 999;
  nested;
end; 

If you create a custom type with a field which is a pointer to the same type, 
trying to Writeln a pointer to your type will produce a Duplicate declaration 
error, but only if you haven't already printed your type using Writeln.

Example code:
type
  PMyType = ^MyType;
  MyType = record
    toast: PMyType;
  end;

var
  myVar: PMyType;
begin
  New(myVar);
  //Writeln(myVar^); // Doesn't throw error if uncommented
  Writeln(myVar); // Throws error
end.

Uncommenting the line and leaving the second Writeln in results in the script 
running to completion without a problem.

What will reproduce the problem?
  {$IFDEF WTF}WriteLn('Hmmm');{$ENDIF}

What is the expected output? What do you see instead?
  Nothing, Hmmm

Which version are you using?
  r105

Please provide any additional information below.

https://github.com/SRL/SRL-6/commit/dc82f7ef0305b6862d37a78e643585db42545d5e#L2R
42

For actual code on the error.


<BraK> Just so you can see the code where the error accuors
<Wizzup> oh, a bug
<BraK> Lape allows us to declare Const and Var globally that way but it kills 
the function list.
<BraK> So I figured it was an issue in Simba.
<Wizzup> BraK, if pascalscript or another parser is used to parse the script 
(which it is), then it may not support all lape syntax and break
<Wizzup> best bug niels about this

for 1 to 10 do
begin
  if trySth() then
   break;
end else
begin
  writeln('tried 10 times but still failed!');
  TerminateScript();
end;

What will reproduce the problem?
var Arr:Array of Integer = [0,0];
begin
  Arr[ round(1) ];
end.

What is the expected output? What do you see instead?
Error: Don't know which overloaded method to call with params (Int32) at line 6

Which version are you using?
c96f612e0066    

Please provide any additional information below.
This happens whenever you try to index an array with the result of any 
overloaded method. If methods is not overloaded it works, IE: `Arr[ ceil(1) ]` 
works fine.

What will reproduce the problem?

running the following script:
http://paste.villavu.com/show/3667/

line 33 will cause the error. The first time I run it will cause no errors and 
the expected outcome. The second time will close simba.

What is the expected output? What do you see instead?

Simba closes. Lazarus directs me to: lpeval -> line 475

procedure _LapeToString_Extended(const Params: PParamArray; const Result: 
Pointer); {$IFDEF Lape_CDECL}cdecl;{$ENDIF}
begin
  PlpString(Result)^ := FloatToStr(PExtended(Params^[0])^);
end;  

Which version are you using?

Pulled the latest with git.

Gr,
Bart de Boer,
masterBB

Can we get the Functions from Math.simba in SRL5 added to LAPE Pretty please.

BTW have I told you I <3 Lape Lately. We started work on SRL6. :D

Refer to 
https://github.com/MerlijnWajer/Simba/issues/230

What will reproduce the problem?
  Don't define LCL, and try to compile.

What is the expected output? What do you see instead?
  It should compile, Errors.

Which version are you using?
  FPC 2.6.0
  Lape 5784e9fe0725fa8aff2b6144b7c76e59e3002c58

Please provide any additional information below.
  The Windows unit defines PBoolean as ^Byte for compatibility with Delphi.
  Add a redefinition of PBoolean as ^Boolean after the Windows unit is loaded.

todo: how to crete method/class method as global function (without usage global 
pameters)

class procedure TForm1.MyWrite1(S: string);
begin
  System.Write(...
end;

procedure TForm1.MyWrite2(S: string);
begin
  Memo.Lines.Add(...
end;

????:

Compiler.addGlobalFuncFromClass('function VarCreateOLEObject(const ClassName: 
string): Variant;', @TForm1.MyWrite1, TForm1);

Compiler.addGlobalFuncFromObject('function VarCreateOLEObject(const ClassName: 
string): Variant;', @TForm1.MyWrite2);

Does LaPe support Delphi as advertized?

I'm getting numerous warnings when compiling under Delphi XE, and compiling 
simple scripts (f.i. just "program test; const c = 1; end;" results in stack 
corruption of the host application.

What will reproduce the problem?
  Using addGlobalType to add a set like
    addGlobalType('(test1, test2)', 'TTest'); 

What is the expected output? What do you see instead?
  It should add the set, I get a exception on running a blank script.

Which version are you using?
  Revision 49

Please provide any additional information below.
  I can create types like that internally.

  type
    TTest = (test1, test2);

  This Works.

What will reproduce the problem?
http://paste.villavu.com/show/AWaEmivhUS0gfu7WcwLm/

What is the expected output?
nil
[]

What do you see instead?
Access violation

Which version are you using?
e2c7fdaf2bd7

Please provide any additional information below.
Using Simba build 150.

I can't find out how Unions work for anything.

Would also like to know if External should be working yet?
I see you have it as a keyword, tho it doesn't work for me.

Would also like to see inline added. =)

What will reproduce the problem?
-------
var i:Int32; 
begin
  for: i:=0 to 100 do Continue;

  //or ...
  case i of
    0: WriteLn('0');
    else: WriteLn('...');
  end;
end;


Expected output:
-------
-> Raise a proper exception when parsing "for:" as there is a colon there.


Version:
-------
-> The latest lape build for Simba


Additional information:
-------
Raises: "Error: Out of stack range" (no line number as well)
Now, this is just some bad/missing error handling. My guess is that Lape 
assumes "for:", or "else:" is a label, due to the colon, and handles it 
incorrectly.
Should raise a more proper error.

It's just a minor, almost irrelevant "issue" tho..

- slacky

I've been working on a FPC libffi unit, and some of the basic cases seem to 
work just fine. (See below)

My question is, how exactly do you want this integrated in lape?
Do you want to generate CIF's automatically when someone uses a specific 
keyword? The same goes for function wrappers, do you want to generate those 
automatically for lape functions? (You can even make a 
call-this-function-with-any-arguments-wrap-all function with libffi, or so I 
have read)


----------------------------------------
var
  Cif: TFFICif;
  s: TFFIStatus;
  ret: ptruint;
  int_type: TFFIType;     

begin
  writeln(fpgetpid());

  s := ffi_prep_cif(@cif, FFI_DEFAULT_ABI, 0, @ffi_type_uint64, nil);
  writeln('S:' + inttostr(PtrUInt(s)));

  if s = FFI_OK then
  begin
    writeln('Woo');
    ffi_call(@cif, @fpgetpid, @ret, nil);
    writeln('Result: ' + inttostr(ret));
  end;
end;

Results in:
$ ./project1
5853
S:0
Woo
Result: 5853

XE2 UP has a built-in implementation function (ReturnAddress). You can now 
write the cross-platform for "lpexceptions.pas":

implementation

{$IFDEF Delphi}
{$IF CompilerVersion < 21.00}
function ReturnAddress: Pointer;
asm
  MOV  EAX, [EBP+4]
end;
{$IFEND}
{$ENDIF}

procedure _LapeException(Msg: lpString); inline;
{$IFDEF FPC}
begin
...
end;
{$ELSE}
begin
  raise lpException.Create(Msg) at ReturnAddress;
end;
{$ENDIF}
...

type
  TFoo = record
    FField: Integer;
  end;


procedure TFoo.Bar;

  procedure Nested;
  begin
    //Writeln(Self.FField); // Unknown decl "Self"
    Writeln(FField); // Compiles but access violation
  end;

begin
  Nested();
end;

var
  Foo: TFoo;

begin
  Foo.Bar;
end;      

//
// file: main.pas
//
uses
  {+}
  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
  {+.}
...
  ,StrUtils
  {$IFDEF COM}
  ,ComObj {$IFDEF FPC},Ole2{$ENDIF}, ActiveX
  {$ENDIF COM}
;
...

{$IFDEF COM}
function CreateOLEObject(const ClassName: string): Variant;
begin
  Result := CreateOLEObject(ClassName);
end;
{$ENDIF COM}
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  CoInitializeEx(nil, 0);
end;
...
procedure Compile(Run, Disassemble: Boolean);
...
      Compiler.addGlobalFunc('function CreateOLEObject(const ClassName: string): Variant;', @CreateOLEObject);

//
// file: test\ole.lap
//
var
  s: string;
  xmlDoc: Variant;
begin
  s := 'MSXML2.DOMDocument';
  WriteLn('com(1):', s);
  xmlDoc := VarCreateOLEObject('MSXML2.DOMDocument');
  xmlDoc.validateOnParse := True; // *** LINE 8 ***
  xmlDoc.async := False;
  xmlDoc := Null;
  WriteLn('com(1)!', s);
end;

//
// error:
//
Compilation error: "Operator "Dot" not compatible with types "Variant" and 
"AnsiString" at line 8, column 9"

how to update existed repository?

What will reproduce the problem?

procedure Foo(var G);
begin
  Writeln(G);  // Produces error.
  Writeln(VarType(G));  // Produces same error.
  if(G = 10) then  
    Writeln('Blegh');
end;

What is the expected output? What do you see instead?
Expected output:
 * The value of the variable.
 * The type of the variable, as described in https://code.google.com/p/la-pe/source/browse/lpeval_import_variant.inc

Actual output:
"Exception in Script: Cannot invoke identifier"

Which version are you using?

Most recent (Simba build #493, http://l0.lt/builders/master/builds/493 )

Please provide any additional information below.

See post - http://villavu.com/forum/showthread.php?t=68613&p=1265797#post1265797

http://pastebin.com/Uz65K0yR

First I is 0, Second I is 42.

It should be 0 and 0, then X would be 42.

procedure Test(box: TBox);
begin
  writeln(box);
end;

begin
  Test([1, 2, 3, 4]);
end.

This works fine but adding any overloaded method would result in ambiguous 
call. Since the argument [1, 2, 3, 4] could only be either a TBox or 
TIntegerArray, adding an overloaded method with parameter not being 
TIntegerArray should work fine?

This post is more a newbie question than a bug report...
Thanks for your great job, looks very promising.

I have a question : how to call a procedure with parameters directly?

RunCode(Compiler.Emitter.Code);

runs all the script but I need to call only one declared procedure.
Any solution?

Please provide any additional information below.

Thanks 

What will reproduce the problem?

program new;
{$DEFINE BAR}
{$IFDEF FOO}
{$IFDEF BAR}
var gsb: integer;
{$ELSE}
var gsgss: integer;
{$ENDIF}
{$ENDIF}

begin
// this should not be possible. neither should exist!
gsgss := 42;
end.

What is the expected output? What do you see instead?

See above.

Which version are you using?

Latest in Simba.

1. Refer to http://villavu.com/forum/showthread.php?t=105747

2.
Can you make it possible to declare variables in arguments?
Eg. 
FindColors(var TPA, ...)
GetMousePos(var x, var y)
Would be so much more convenient :p

procedure Compile(Run, Disassemble: Boolean);

  function CombineDeclArray(a, b: TLapeDeclArray): TLapeDeclArray;
  var
    i, l: Integer;
  begin
    Result := a;
    l := Length(a);
    SetLength(Result, l + Length(b));
    for i := High(b) downto 0 do
      Result[l + i] := b[i];
  end;

type
  TArrayFunc = function(): TIntegerArray; cdecl;
  TStringFunc = function(): lpString; cdecl;
  TVariantFunc = function(): Variant; cdecl;
  TSimpleFunc = function(): Integer; cdecl;
var
  t: Cardinal;
  Parser: TLapeTokenizerBase;
  Compiler: TLapeCompiler;
  c: TImportClosure;
  SimpleExport, ArrayExport, StringExport, VariantExport: TExportClosure;
  a: TIntegerArray;
  i: Integer;
  s: lpString;
  v: Variant;
begin
  Parser := nil;
  Compiler := nil;
  with Form1 do
    try
      Parser := TLapeTokenizerString.Create({$IF DEFINED(Lape_Unicode)}UTF8Decode(e.Lines.Text){$ELSE}e.Lines.Text{$IFEND});
      Compiler := TLapeCompiler.Create(Parser);

      InitializePascalScriptBasics(Compiler, [psiTypeAlias]);
      ExposeGlobals(Compiler);

      Compiler.addGlobalMethod('procedure _write(s: string); override;', @MyWrite, Form1);
      Compiler.addGlobalMethod('procedure _writeln; override;', @MyWriteLn, Form1);
      Compiler.addGlobalFunc('function MyStupidProc: array of integer', @MyStupidProc);

      c := LapeImportWrapper(@StupidProc, Compiler, 'function(abc: array of integer): array of integer', FFI_SYSV);
      Compiler.addGlobalFunc('function StupidProc(abc: array of integer): array of integer', c.Func);

      Compiler.addGlobalType('array of Integer', 'TIntegerArray');
      Compiler.addDelayedCode('function StupidFunc: TIntegerArray; begin Exit([10, 20, 30, 40, 50]); end;');

      Compiler.addDelayedCode('function StupidFunc2: String; begin Exit(''testing''); end;');
      Compiler.addDelayedCode('function StupidFunc3: Variant; begin Exit(12345); end;');

      Compiler.addDelayedCode('function StupidFuncEx: Integer; begin Exit(12345); end;');

      try
        t := getTickCount;
        if Compiler.Compile() then
        begin
          SimpleExport := LapeExportWrapper(Compiler.Globals['StupidFuncEx'], FFI_SYSV);
          ArrayExport := LapeExportWrapper(Compiler.Globals['StupidFunc'], FFI_SYSV);
          StringExport := LapeExportWrapper(Compiler.Globals['StupidFunc2'], FFI_SYSV);
          VariantExport := LapeExportWrapper(Compiler.Globals['StupidFunc3'], FFI_SYSV);

          m.Lines.add('Compiling Time: ' + IntToStr(getTickCount - t) + 'ms.')
        end else
          m.Lines.add('Error!');
      except
        on E: Exception do
        begin
          m.Lines.add('Compilation error: "' + E.Message + '"');
          Exit;
        end;
      end;

      try
        if (Disassemble) then
          DisassembleCode(Compiler.Emitter.Code, CombineDeclArray(Compiler.ManagedDeclarations.getByClass(TLapeGlobalVar, bTrue), Compiler.GlobalDeclarations.getByClass(TLapeGlobalVar, bTrue)));

        if (Run) then
        begin
          t := getTickCount;
          RunCode(Compiler.Emitter.Code);
          m.Lines.add('Running Time: ' + IntToStr(getTickCount - t) + 'ms.');

          { works }
          i := TSimpleFunc(SimpleExport.Func)();
          writeln('Simple done');

          { fails - massive console mem leak spam }
          a := TArrayFunc(ArrayExport.Func)();
          Writeln('Array done');

          { runs but throws a exception later on? }
          //s := TStringFunc(StringExport.Func)();
          //Writeln('String done: ', s);

          { runs but throws a exception later on? }
          //v := TVariantFunc(VariantExport.Func)();
          //Writeln('Variant done: ', v);

        end;
      except
        on E: Exception do
        begin
          Writeln(e.Message);
          m.Lines.add(E.Message);
        end;
      end;
    finally
      if (Compiler <> nil) then
        Compiler.Free()
      else if (Parser <> nil) then
        Parser.Free();

      SimpleExport.Free;
      ArrayExport.Free;
      StringExport.Free;
      VariantExport.Free;
    end;
end;    

What will reproduce the problem?
  Compiling Lape on Linux with FPC 2.4.4

What is the expected output? What do you see instead?
  Compiled Sucessfully. Error.

Which version are you using?
  N/A, FPC 2.4.4

Please provide any additional information below.
  Your changes in 
  186015e8e9cd46073f69edf2ff3c74f86004710d and fd8825655b10340c37619e2d945c5d27d6343589
  broke compatibility with FPC 2.4.4. In 2.4.4 even on linux it should be stdcall.

  Here's an example of what it should be like: http://paste.villavu.com/show/9QAEdGLcjQgRfHu58ntt/

See patch for initial .rst lape tutorial.

If you don't want it hosted in the repo, let me know. Just looking for a place 
to host it right now.

You can build a basic version with rst2html, but that command doesn't support 
code-block's. I'll work on a simple command to build a .html and .pdf later.

Initializing a method pointer inside of the variable block doesn't work when 
the value is a script method.

Access Violation

http://pastebin.com/1i7kmzmn

procedure a(x: Boolean);
begin
end;

begin
  a(2); //works even though integer != boolean (doesnt work in fpc)
end.

I'm attempting to compile la-pe on OS X. I realize you haven't really built 
support for this yet and you have a todo in the ffi.pas file to do Mac support, 
but I was just having a go at it.

I was able to change a few IFDEF's in order to get the project to compile 
however now I'm running into some linking issues. When set to dynamically link 
everything compiles and links fine (obviously because it's not trying to link 
ffi at compile time). However, when I set it to static linking I'm getting 
errors with the linking.

Undefined symbols for architecture i386:
  "_ffi_closure_free", referenced from:
      _INIT$_FFI in ffi.o
  "_ffi_prep_closure_loc", referenced from:
      _INIT$_FFI in ffi.o
  "_ffi_closure_alloc", referenced from:
      _INIT$_FFI in ffi.o
ld: symbol(s) not found for architecture i386
An error occurred while linking 

I've made an extra directory under extensions/ffi/bin named "darwin" because 
that is where the linker is pointing. And I've added libffi.a and libffi.dylib 
to that folder but it's not helping. Apparently the linker is not finding it.

Just in case, I did a symbol dump on libffi.dylib and was able to find 
ffi_closure_free, ffi_prep_closure_loc, and ffi_closure_alloc in the list. 
Another interesting thing is that it's not complaining about not being able to 
find ffi_prep_cif or ffi_call which are also referenced from ffi.pas.

I don't specifically think this is necessarily a la-pe problem, I'm more 
leaning towards it might be something weird with how OS X does linking but I 
was just wondering if you might have any info or places you might start 
investigating.

What will reproduce the problem?
  http://pastebin.com/q3sePpqB

What is the expected output? What do you see instead?
  Should print "42" (It works in Laz)
  I get "Exception in Script: Unknown declaration "c" at line 8, column 15"

Which version are you using?
  http://nala.villavu.com/downloads/settings-form/a1e88941403676e79607acc0ee1d54630e90d1e9/

Please provide any additional information below.

What will reproduce the problem?
  if (SomeBool and True) then

What is the expected output? What do you see instead?
  I get "It's impossible!" (Line 706 of lpvartypes_ord.pas)

Which version are you using?
  c96f612e0066  

Please provide any additional information below.
  Seems to not be an issue if True is first.

Will allow people to use IntToHex with only one parameter.

I tested and seems to work fine.

A function (or procedure) declared inside a function cannot be recursive or 
call any other nested functions.

Test code here:
procedure Test;
  procedure Woof;
  begin
    Woof;
  end;
  procedure Meow;
  begin
    Woof;
  end;
begin
end;
begin
end.

Commenting out the recursive Woof call then gives the unknown declaration error 
on Meow's call of Woof.

Not sure if this is a bug, a bug/feature, or unsupported functionality, so 
hopefully I'm not being silly.

What will reproduce the problem?
  If you compile the test program with a handler for OnHandleDirective.
  Then have any {$IFDEF SomethingNoDefined}{$MyCustomDirective}{$ENDIF}

What is the expected output? What do you see instead?
  It shouldn't call handleDirective (or at least have a param stating were in a section of code that shouldn't be there...

Which version are you using?
  Latest

Please provide any additional information below.
  This is an issue for custom compiler defines being used inside of a IFDEF.

What will reproduce the problem?
  http://paste.villavu.com/show/543/

What is the expected output? What do you see instead?
  Before Try
  After Try
  In Finally (You don't get this.)

Which version are you using?
  r72