Mercurial > repos > tabletprog

comparison modules/dl.tp @ 264:cba0cb39517a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add module for interfacing with libdl
author Michael Pavone <pavone@retrodev.com>
date Mon, 14 Jul 2014 09:33:41 -0700
parents
children
comparison
equal deleted inserted replaced
263:98147071baf6 264:cba0cb39517a
1 #{
2 includeSystemHeader: "dlfcn.h"
3
4 llMessage: sym:from withVars: {
5 handle <- obj_uint64 ptr
6 name <- string ptr
7 intret <- obj_uint64 ptr
8 } andCode: :name :handle {
9 intret <- make_object: (addr_of: obj_int64_meta) NULL 0
10 intret num!: (dlsym: (handle num) (name data))
11 intret
12 }
13
14 llMessage: open:withFlags withVars: {
15 name <- string ptr
16 intret <- obj_uint64 ptr
17 flags <- obj_int32 ptr
18 } andCode: :name :flags {
19 intret <- make_object: (addr_of: obj_int64_meta) NULL 0
20 if: (name len) > 0 {
21 intret num!: (dlopen: (name data) (flags num))
22 } else: {
23 intret num!: (dlopen: NULL (flags num))
24 }
25 intret
26 }
27
28 llMessage: LAZY withVars: {
29 flagret <- obj_int32 ptr
30 } andCode: {
31 flagret <- make_object: (addr_of: obj_int64_meta) NULL 0
32 flagret num!: RTLD_LAZY
33 flagret
34 }
35
36 llMessage: NOW withVars: {
37 flagret <- obj_int32 ptr
38 } andCode: {
39 flagret <- make_object: (addr_of: obj_int64_meta) NULL 0
40 flagret num!: RTLD_NOW
41 flagret
42 }
43
44 main <- :args {
45 library <- ""
46 func <- "main"
47 if: (args length) > 2 {
48 library <- args get: 1
49 func <- args get: 2
50 } else: {
51 if: (args length) > 1 {
52 func <- args get: 1
53 }
54 }
55 handle <- open: library withFlags: NOW
56 print: "handle: " . handle . "\n"
57 address <- sym: func from: handle
58 if: (library length) > 0 {
59 print: library . " - " . func . ": " . address . "\n"
60 } else: {
61 print: func . ": " . address . "\n"
62 }
63 0
64 }
65 }