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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
// main.c: registers functions for use in janet
#include "jurl.h"
#undef JANET_REG
#define JANET_REG JANET_REG_D
#undef JANET_FN
#define JANET_FN JANET_FN_D
// errors.c
JANET_FN(jurl_strerror,
"(strerror :error/write-error)"
"\n"
"(strerror 1234)",
"Get an explanation string about a jurl error");
// getinfo.c
JANET_FN(jurl_getinfo,
"(getinfo handle :info)"
"\n"
"(getinfo handle 1234)",
"Get a curl info from handle");
// jurl.c
JANET_FN(jurl_dup,
"(dup handle)",
"Duplicate an existing jurl handle");
JANET_FN(jurl_global_init,
"(global-init)"
"\n"
"(global-init :ssl)",
"Run curl global init");
JANET_FN(jurl_global_cleanup,
"(global-cleanup)",
"Run curl global cleanup");
JANET_FN(jurl_new,
"(new)",
"Create new jurl handle");
JANET_FN(jurl_perform,
"(perform handle)",
"Perform the request associated with a handle");
JANET_FN(jurl_reset,
"(reset handle)",
"Reset an existing jurl handle");
// mime.c - mime
JANET_FN(jurl_mime_addpart,
"(mime-addpart mime)"
"\n"
"(:addpart mime)",
"Add a part to a mime form");
JANET_FN(jurl_mime_new,
"(mime-new)",
"Create a new mime form");
// mime.c - mimepart
JANET_FN(jurl_mime_data,
"(mime-data part string)"
"\n"
"(mime-data part buffer)",
"Set a string or buffer as the data source for the mimepart");
JANET_FN(jurl_mime_data_cb,
"(mime-data-cb part datasize (fn [mode size|offset &opt position]))",
"Set a callback as the data source for the mimepart");
JANET_FN(jurl_mime_encoder,
"(mime-encoder part :encoder)",
"Set a part to be encoded using :encoder.\n"
"Available encoders are:\n"
":binary :8bit :7bit :base64 :quoted-printable");
JANET_FN(jurl_mime_filedata,
"(mime-filedata part \"local.file\")",
"Set a file as the data source for the mimepart");
JANET_FN(jurl_mime_filename,
"(mime-filename part \"remote.file\")",
"Set a custom remote filename for the upload mimepart");
JANET_FN(jurl_mime_headers,
"(mime-headers part [headers...])",
"Set custom headers for the mimepart");
JANET_FN(jurl_mime_name,
"(mime-name part string)",
"Set a name for the mimepart");
JANET_FN(jurl_mime_subparts,
"(mime-attach mime part)",
"Attach mime to part as a subpart mime");
JANET_FN(jurl_mime_type,
"(mime-type part \"image/png\")",
"Set a custom mimetype for the mimepart");
// setopt.c
JANET_FN(jurl_setopt,
"(setopt handle :option value)"
"\n"
"(setopt handle 1234 value)",
"Set a curl option in a handle");
// util.c
JANET_FN(jurl_escape,
"(escape string)",
"Returns URL-encoded version of string");
JANET_FN(jurl_unescape,
"(unescape string)",
"Return URL-decoded version of string");
JANET_FN(jurl_wrap_error,
"(wrap-error :ok body)"
"\n"
"(wrap-error :err _)",
"Boxes an :ok signal with a body, else the error with its explanation in string form");
static const JanetRegExt cfuns[] = {
// errors.c
JANET_REG("strerror", jurl_strerror), // (strerror :ok)
// getinfo.c
JANET_REG("getinfo", jurl_getinfo), // (getinfo handle :tag), (get handle :tag), (:getinfo handle :tag)
// jurl.c
JANET_REG("dup", jurl_dup), // (:dup handle), (dup handle)
JANET_REG("global-init", jurl_global_init), // (global-init :tag?)
JANET_REG("global-cleanup", jurl_global_cleanup), // (global-cleanup)
JANET_REG("new", jurl_new), // (new)
JANET_REG("perform", jurl_perform), // (:perform handle), (perform handle)
JANET_REG("reset", jurl_reset), // (:reset handle), (reset handle)
// mime.c - mime
JANET_REG("addpart", jurl_mime_addpart), // (:addpart mime), (addpart mime)
JANET_REG("new-mime", jurl_mime_new), // (new-mime)
// mime.c - mimepart
JANET_REG("mime-data", jurl_mime_data), // (mime-data part data)
JANET_REG("mime-data-cb", jurl_mime_data_cb), // (mime-data-cb part cb)
JANET_REG("mime-encoder", jurl_mime_encoder), // (mime-encoder part encoder)
JANET_REG("mime-filedata", jurl_mime_filedata), // (mime-filedata part fdata)
JANET_REG("mime-filename", jurl_mime_filename), // (mime-filename part fname)
JANET_REG("mime-name", jurl_mime_name), // (mime-name part name)
JANET_REG("mime-subparts", jurl_mime_subparts), // (mime-subparts part mime)
JANET_REG("mime-type", jurl_mime_type), // (mime-type part type)
// setopt.c
JANET_REG("setopt", jurl_setopt), // (put handle :tag val), (:setopt handle :tag val), (setopt handle :tag val)
// util.c
JANET_REG("escape", jurl_escape), // (escape string)
JANET_REG("unescape", jurl_unescape), // (unescape string)
JANET_REG("wrap-error", jurl_wrap_error), // (wrap-error :tag)
JANET_REG_END,
};
JANET_MODULE_ENTRY(JanetTable *env) {
janet_cfuns_ext(env, "jurl/native", cfuns);
}
|
