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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
/*
* COPYRIGHT
*
* pcb-rnd, interactive printed circuit board design
* Copyright (C) 2018 Tibor 'Igor2' Palinkas
*
* This module, debug, was written and is Copyright (C) 2016 by Tibor Palinkas
* this module is also subject to the GNU GPL as described below
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*
* Contact:
* Project page: http://repo.hu/projects/pcb-rnd
* lead developer: http://repo.hu/projects/pcb-rnd/contact.html
* mailing list: pcb-rnd (at) list.repo.hu (send "subscribe")
*/
/* Fungw engine for loading and runnign "scripts" written in C. The .so files
are loaded with puplug low level */
#include <libfungw/fungw.h>
#include <puplug/os_dep.h>
#include <stdlib.h>
#include "fptr_cast.h"
static fgw_error_t fgws_c_call_script(fgw_arg_t *res, int argc, fgw_arg_t *argv)
{
fgw_error_t rv;
fgw_func_t *fnc = argv[0].val.func;
rv = fnc->func(res, argc, argv);
fgw_argv_free(fnc->obj->parent, argc, argv);
return rv;
}
int fgws_c_load(fgw_obj_t *obj, const char *filename, const char *opts)
{
pup_plugin_t *library = calloc(sizeof(pup_plugin_t), 1);
typedef int (*init_t)(fgw_obj_t *obj, const char *opts);
init_t init;
if (pup_load_lib(&script_pup, library, filename) != 0) {
pcb_message(PCB_MSG_ERROR, "Can't dlopen() %s\n", filename);
free(library);
return -1;
}
init = (init_t)pcb_cast_d2f(pup_dlsym(library, "pcb_rnd_init"));
if (init == NULL) {
pcb_message(PCB_MSG_ERROR, "Can't find pcb_rnd_init() in %s - not a pcb-rnd c \"script\".\n", filename);
free(library);
return -1;
}
if (init(obj, opts) != 0) {
pcb_message(PCB_MSG_ERROR, "%s pcb_rnd_init() returned error\n", filename);
free(library);
return -1;
}
library->name = pcb_strdup(filename);
obj->script_data = library;
return 0;
}
int fgws_c_unload(fgw_obj_t *obj)
{
pup_plugin_t *library = obj->script_data;
typedef void (*uninit_t)(fgw_obj_t *obj);
uninit_t uninit;
uninit = (uninit_t)pcb_cast_d2f(pup_dlsym(library, "pcb_rnd_uninit"));
if (uninit != NULL)
uninit(obj);
pup_unload_lib(library);
free(library->name);
free(library);
return 0;
}
static fgw_eng_t pcb_fgw_c_eng = {
"pcb_rnd_c",
fgws_c_call_script,
NULL,
fgws_c_load,
fgws_c_unload,
NULL, NULL
};
static void pcb_c_script_init(void)
{
fgw_eng_reg(&pcb_fgw_c_eng);
}
|
