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
111
112
113
114
115
116
117
118
119
120
121
|
/*
############################################################################
#
# File: ilists.c
#
# Subject: Icon-to-C interface for simple Icon lists
#
# Author: Kostas Oikonomou
#
# Date: April 26, 2002
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# This file provides three procedures for translating homogeneous
# lists of integers, reals, or strings to C arrays:
#
# IListVal(d) returns an array of C ints.
# RListVal(d) returns an array of C doubles.
# SListVal(d) returns an array of C char pointers (char *).
#
############################################################################
#
# Here is an example of using this interface:
#
# 1. gcc -I/opt/icon/ipl/cfuncs -shared -fPIC -o llib.so l.c
# where "l.c" is the C fragment below.
#
# #include "ilists.c"
# int example(int argc, descriptor argv[])
# {
# int *ia;
# double *ra;
# char *(*sa);
# int n; int i;
# ArgList(1); n = ListLen(argv[1]);
# ia = IListVal(argv[1]);
# for (i=0; i<n; i++) printf("%i ", ia[i]); printf("\n");
# ArgList(2); n = ListLen(argv[2]);
# ra = RListVal(argv[2]);
# for (i=0; i<n; i++) printf("%f ", ra[i]); printf("\n");
# ArgList(3); n = ListLen(argv[3]);
# printf("n = %i\n", n);
# sa = SListVal(argv[3]);
# for (i=0; i<n; i++) printf("%s ", sa[i]); printf("\n");
# Return;
# }
#
# 2. The Icon program that loads "example" from the library llib.so:
#
# procedure main()
# local e, L1, L2, L3
# e := loadfunc("./llib.so", "example")
# L1 := []
# every i := 1 to 5 do put(L1,10*i)
# L3 := ["abcd","/a/b/c","%&*()","","|"]
# e(L1,[1.1,2.2,-3.3,5.5555],L3)
# end
#
############################################################################
*/
#include "icall.h"
void cpslots(descriptor *, descriptor *, word, word);
/*
* Given a descriptor of an Icon list of integers, this function returns
* a C array containing the integers.
*
* "cpslots" is defined in src/runtime/rstruct.r. Using cpslots() shortens the
* necessary code, and takes care of lists that have been constructed or
* modified by put() and get(), etc.
* The reference to "cpslots" is satisfied in iconx.
*/
int *IListVal(descriptor d) /*: make int[] array from list */
{
int *a;
int n = ListLen(d);
descriptor slot[n];
int i;
cpslots(&d,&slot[0],1,n+1);
a = (int *) calloc(n, sizeof(int));
if (!a) return NULL;
for (i=0; i<n; i++) a[i] = IntegerVal(slot[i]);
return &a[0];
}
double *RListVal(descriptor d) /*: make double[] array from list */
{
double *a;
int n = ListLen(d);
descriptor slot[n];
int i;
cpslots(&d,&slot[0],1,n+1);
a = (double *) calloc(n, sizeof(double));
if (!a) return NULL;
for (i=0; i<n; i++) a[i] = RealVal(slot[i]);
return &a[0];
}
char **SListVal(descriptor d) /*: make char*[] array from list */
{
char *(*a);
int n = ListLen(d);
descriptor slot[n];
int i;
cpslots(&d,&slot[0],1,n+1);
/* array of n pointers to chars */
a = (char **) calloc(n, sizeof(char *));
if (!a) return NULL;
for (i=0; i<n; i++) a[i] = StringVal(slot[i]);
return &a[0];
}
|
