diff --git a/Projects/MMLLib/libmml.lpi b/Projects/MMLLib/libmml.lpi new file mode 100644 index 0000000..e884deb --- /dev/null +++ b/Projects/MMLLib/libmml.lpi @@ -0,0 +1,479 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Projects/MMLLib/libmml.lpr b/Projects/MMLLib/libmml.lpr new file mode 100644 index 0000000..52e2314 --- /dev/null +++ b/Projects/MMLLib/libmml.lpr @@ -0,0 +1,37 @@ +library libmml; + +{$mode objfpc}{$H+} + +uses + cmem,Classes,interfaces,graphics,client; + +{$R *.res} + +var + C: TClient; +function test: pchar; +begin + result := PChar('hello world'); +end; + +procedure init; +begin + C:=TCLient.Create(''); +end; + +function getmousepos: tpoint; +begin + C.IOManager.GetMousePos(result.x,result.y); +end; + + + +exports + test, + init, + getmousepos; + + +begin +end. + diff --git a/Projects/MMLLib/test.py b/Projects/MMLLib/test.py new file mode 100755 index 0000000..3aaeb15 --- /dev/null +++ b/Projects/MMLLib/test.py @@ -0,0 +1,19 @@ +#!/usr/bin/env python +from ctypes import * + +dll = CDLL('./libmml.so') +dll.test.restype = c_char_p +a = dll.test() +print a + +dll.init.restype = None +dll.init() + +class POINT(Structure): + _fields_ = [('x', c_int), + ('y', c_int)] + +dll.getmousepos.restype = POINT +b = dll.getmousepos() + +print b.x, b.y