File: plsubs.pp

package info (click to toggle)
fpc 1.0.4-2
  • links: PTS
  • area: main
  • in suites: woody
  • size: 30,924 kB
  • ctags: 25,487
  • sloc: pascal: 330,437; makefile: 65,491; xml: 8,493; yacc: 2,858; ansic: 2,206; lex: 648; sh: 256; perl: 87; asm: 63; csh: 25; sed: 21
file content (25 lines) | stat: -rw-r--r-- 584 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
program testsubs;

Type
  TSubStrFunc = 
    function(const CString:PChar;FromPos,ToPos: longint):PChar;cdecl;

Function dlopen(name: pchar;mode: longint):pointer;cdecl;external 'dl';
Function dlsym(lib: pointer; name: pchar):pointer;cdecl;external 'dl';
Function dlclose(lib: pointer):longint;cdecl;external 'dl';

var
  s: PChar;
  FromPos, ToPos: Integer;
  lib : pointer;
  SubStr : TSubStrFunc;
  
begin
  s := 'Test';
  FromPos := 2;
  ToPos := 3;
  lib:=dlopen('libsubs.so',1);
  Pointer(Substr):=dlsym(lib,'SubStr');
  WriteLn(SubStr(s, FromPos, ToPos));
  dlclose(lib);
end.