Package list libmawk / 2f032b3
New upstream version 1.0.1 Bdale Garbee 2 years ago
37 changed file(s) with 723 addition(s) and 132 deletion(s). Raw diff Collapse all Expand all
0 libmawk author is Tibor 'Igor2' Palinkas
1 contact: http://igor2.repo.hu/contact.html
2
3 Original mawk, from which libmawk forked:
4 Mike Brennan, brennan@whidbey.com.
00 Changelog for libmawk
11 ~~~~~~~~~~~~~~~~~~~~~
2 libmawk 1.0.1 (released: 2019-02-26, r1307)
3 [build] -Fix: don't daisy-chain so symlinks (debian patch applied)
4 [build] -Add: install (3) and (7) manual pages
5 [build] -Add: scconfig --libarchdir, for /usr/lib64
6 [build] -Add: install awklib in non-arch-dependent lib dir
7 [doc] -Add: AUTHORS file
8 [doc] -Update: COPYING: fsf address and formatting
9 [libmawk] -Add: handle --help and --version
10 [da_bin] -Fix: don't depend on sizeof(long) == 4
11 [math] -Fix: if the result of non-NaN arithmetics is nan in emulated nan, rather make it DBL_MAX so it doesn't look like NaN
12 [math] -Fix: protect all basic math functions from nan input in emulated nan setup
13 [math] -Fix: for systems with unsafe NaN: manual atan2 arg validation
14 [math] -Fix: print and printf treats nan specially to make sure "nan" is printed on all platforms (including emulated NaN)
15 [math] -Fix: emulated nan strtonum: set endptr propery on nan
16 [math] -Fix: when there's no safe nan support, manual convert "nan" to nan on str->num conversion
17 -Cleanup: replace #warning with portable macro
18
219 libmawk 1.0.0 (released: 2018-11-11, r1276)
320 [API] -Change: resume capable function call entries
421 [build] -Fix: make clean should remove custom C test objects and executables
2222 will use symlinks instead of actual copying of files which is useful if
2323 you develop libmawk, the library itself.
2424
25 Debian package can be installed from http://repo.hu/debian.
26
2725 4. Compatibility with mawk
2826
2927 Compatibility with mawk is maintained to some degree. Currently libmawk
0 Release notes for libmawk 1.0.0
0 Release notes for libmawk 1.0.1
11
2 This release introduces runlimits, better floating point handling on
3 corner cases (i.e. NaN) and memory leak cleanups.
2 Minor bugfix release; main focus is on fixing all packaging
3 related bugs learned in 1.0.0 and NaN related bugs on less common
4 architectures.
45
66
77 #define VER1 "1"
88 #define VER2 "0"
9 #define VER3 "0"
9 #define VER3 "1"
1010
1111 static void help(void)
1212 {
2020 printf(" --profile build profiling version if available (-pg)\n");
2121 printf(" --symbols include symbols (add -g, but no -O0 or extra asserts)\n");
2222 printf(" --numeric=int change the internal numeric type (default is double)\n");
23 printf(" --libarchdir=relpath relative path under prefix for arch-lib-dir (e.g. lib64)\n");
2324 printf("\n");
2425 }
2526
4142 }
4243 if (strcmp(key, "profile") == 0) {
4344 put("/local/profile", strue);
45 return 1;
46 }
47 if (strcmp(key, "libarchdir") == 0) {
48 put("/local/libarchdir", value);
4449 return 1;
4550 }
4651 if (strcmp(key, "numeric") == 0) {
7782 put("/local/debug", sfalse);
7883 put("/local/symbols", sfalse);
7984 put("/local/profile", sfalse);
85 put("/local/libarchdir", "lib");
8086
8187 report("Configuring libmawk.\n");
8288 logprintf(0, "Configuring libmawk.\n");
104110 put("/local/version/1", VER1);
105111 put("/local/version/2", VER2);
106112 put("/local/version/3", VER3);
113
107114
108115 /* if there was no custom requirement from the command line, run all requirements in non-fatal mode */
109116 if (num_custom_reqs < 1) {
136143 require("cc/fpic", 0, 1);
137144 require("cc/soname", 0, 0);
138145 require("cc/rdynamic", 0, 0);
146 require("cc/pragma_message", 0, 0);
139147 require("fstools/chmodx", 0, 1);
140148 require("fstools/cp", 0, 1);
141149 require("fstools/rm", 0, 1);
128128 int export(const char *fn, int export_empty, const char *root)
129129 {
130130 FILE *f;
131 int ret;
131 int ret = 0;
132132 /* ht_t *table; */
133133 ht_entry_t *h;
134134
5151 dep_add("cc/declspec/dllimport/*", find_declspec_dllimport);
5252 dep_add("cc/declspec/dllexport/*", find_declspec_dllexport);
5353 dep_add("cc/argmachine/*", find_cc_argmachine);
54 dep_add("cc/pragma_message/*", find_cc_pragma_message);
55 dep_add("cc/static_libgcc/*", find_cc_static_libgcc);
56
5457 dep_add("libs/ldl", find_lib_ldl);
5558 dep_add("libs/LoadLibrary/*", find_lib_LoadLibrary);
5659 dep_add("libs/lpthread", find_lib_lpthread);
7073 dep_add("libs/proc/_spawnvp/*", find_proc__spawnvp);
7174 dep_add("libs/proc/fork/*", find_proc_fork);
7275 dep_add("libs/proc/wait/*", find_proc_wait);
76 dep_add("libs/proc/_getpid/*", find_proc__getpid);
77 dep_add("libs/proc/CreateProcessA/*",find_proc_CreateProcessA);
78 dep_add("libs/proc/getexecname/*", find_proc_getexecname);
79 dep_add("libs/proc/GetModuleFileNameA/*",find_proc_GetModuleFileNameA);
80 dep_add("libs/proc/shmget/*", find_proc_shmget);
81 dep_add("libs/proc/CreateFileMappingA/*",find_proc_CreateFileMappingA);
7382 dep_add("libs/fs/realpath/*", find_fs_realpath);
7483 dep_add("libs/fs/_fullpath/*", find_fs__fullpath);
7584 dep_add("libs/fs/readdir/*", find_fs_readdir);
111120 dep_add("libs/time/_mkgmtime/*", find_time_mkgmtime);
112121 dep_add("libs/time/gmtime_r/*", find_time_gmtime_r);
113122 dep_add("libs/time/gmtime_s/*", find_time_gmtime_s);
123 dep_add("libs/time/localtime_r/*", find_time_localtime_r);
124 dep_add("libs/time/localtime_s/*", find_time_localtime_s);
114125 dep_add("libs/env/main_3arg/*", find_main_arg3);
115126 dep_add("libs/env/putenv/*", find_putenv);
116127 dep_add("libs/env/setenv/*", find_setenv);
160171 dep_add("sys/types/void_ptr/*", find_types_void_ptr);
161172 dep_add("str/strcasecmp/*", find_strcasecmp);
162173 dep_add("str/strncasecmp/*", find_strncasecmp);
174 dep_add("str/stricmp/*", find_stricmp);
175 dep_add("str/strnicmp/*", find_strnicmp);
163176
164177 dep_add("/internal/filelist/cmd", find_filelist);
165178 dep_add("/internal/filelist/method", find_filelist);
2323 int find_ldflags_so(const char *name, int logdepth, int fatal);
2424 int find_alloca(const char *name, int logdepth, int fatal);
2525 int find__exit(const char *name, int logdepth, int fatal);
26 int find_cc_pragma_message(const char *name, int logdepth, int fatal);
27 int find_cc_static_libgcc(const char *name, int logdepth, int fatal);
2628
2729 /* libs */
2830 int find_lib_ldl(const char *name, int logdepth, int fatal);
7577 int find_proc__spawnvp(const char *name, int logdepth, int fatal);
7678 int find_proc_fork(const char *name, int logdepth, int fatal);
7779 int find_proc_wait(const char *name, int logdepth, int fatal);
80 int find_proc__getpid(const char *name, int logdepth, int fatal);
81 int find_proc_CreateProcessA(const char *name, int logdepth, int fatal);
82 int find_proc_getexecname(const char *name, int logdepth, int fatal);
83 int find_proc_GetModuleFileNameA(const char *name, int logdepth, int fatal);
84 int find_proc_shmget(const char *name, int logdepth, int fatal);
85 int find_proc_CreateFileMappingA(const char *name, int logdepth, int fatal);
7886
7987 /* fstools */
8088 int find_fstools_cp(const char *name, int logdepth, int fatal);
105113 /* find_str.c */
106114 int find_strcasecmp(const char *name, int logdepth, int fatal);
107115 int find_strncasecmp(const char *name, int logdepth, int fatal);
116 int find_stricmp(const char *name, int logdepth, int fatal);
117 int find_strnicmp(const char *name, int logdepth, int fatal);
108118
109119 /* find_sys.c */
110120 int find_sys_ptrwidth(const char *name, int logdepth, int fatal);
128138 int find_time_mkgmtime(const char *name, int logdepth, int fatal);
129139 int find_time_gmtime_s(const char *name, int logdepth, int fatal);
130140 int find_time_gmtime_r(const char *name, int logdepth, int fatal);
141 int find_time_localtime_s(const char *name, int logdepth, int fatal);
142 int find_time_localtime_r(const char *name, int logdepth, int fatal);
131143
132144 /* find_types.c */
133145 int find_types_stdint(const char *name, int logdepth, int fatal);
10341034 return 1;
10351035 }
10361036
1037 int find_cc_pragma_message(const char *name, int logdepth, int fatal)
1038 {
1039 const char *test_c =
1040 NL "#include <stdio.h>"
1041 NL "#define DO_PRAGMA(arg) _Pragma(#arg)"
1042 NL "#define TODO(x) DO_PRAGMA(message(\"TODO: \" #x))"
1043 NL "TODO(test)"
1044 NL "int main()"
1045 NL "{"
1046 NL " puts(\"OK\");"
1047 NL "}"
1048 NL;
1049
1050 require("cc/cc", logdepth, fatal);
1051
1052 report("Checking for _Pragma(message)... ");
1053 logprintf(logdepth, "find_cc_pragma_message: trying to find pragma_message...\n");
1054 logdepth++;
1055 if (try(logdepth, NULL, test_c, "OK")) {
1056 put("cc/pragma_message", strue);
1057 report("Found.\n");
1058 return 0;
1059 }
1060 put("cc/pragma_message", sfalse);
1061 report("Not found.\n");
1062 return 1;
1063 }
1064
1065 int find_cc_static_libgcc(const char *name, int logdepth, int fatal)
1066 {
1067 const char *test_c = test_hello_world;
1068 const char *key = "cc/static_libgcc";
1069
1070 require("cc/cc", logdepth, fatal);
1071
1072 report("Checking for -static-libgcc... ");
1073 logprintf(logdepth, "find_cc_static_libgcc: trying to find -static-libgcc...\n");
1074 logdepth++;
1075
1076 if (try_icl(logdepth, key, test_c, NULL, NULL, "-static-libgcc")) return 0;
1077 return try_fail(logdepth, key);
1078 }
104104 NL " if (found == 1)"
105105 NL " puts(\"OK\");"
106106 NL " return 0;"
107 NL "}";
107 NL "}"
108 NL;
108109 char *includes[] = {
109110 "#include <dirent.h>",
110111 "#include <sys/dir.h>", /* 4.2BSD */
144145 NL " if (found > 0)"
145146 NL " puts(\"OK\");"
146147 NL " return 0;"
147 NL "}";
148 NL "}"
149 NL;
148150
149151 require("cc/cc", logdepth, fatal);
150152
4747 if (try_icl(logdepth, "libs/proc/_spawnvp", test_c, "#include <process.h>", NULL, NULL)) return 0;
4848
4949 return try_fail(logdepth, "libs/proc/_spawnvp");
50 }
51
52 int find_proc_CreateProcessA(const char *name, int logdepth, int fatal)
53 {
54 const char *key = "libs/proc/CreateProcessA";
55 char *test_c =
56 NL "#include <stdlib.h>"
57 NL "char buf[2000];"
58 NL "int main() {"
59 NL " const char *cmd;"
60 NL " STARTUPINFOA si;"
61 NL " PROCESS_INFORMATION pi;"
62 NL " cmd = getenv(\"COMSPEC\");"
63 NL " if (cmd == NULL) { /* fallback to guessing */"
64 NL " UINT len = GetWindowsDirectoryA(buf, sizeof(buf));"
65 NL " strcpy(buf+len, \"\\\\system32\\\\cmd.exe\");"
66 NL " cmd = buf;"
67 NL " }"
68 NL " memset(&si, 0, sizeof(si)); si.cb = sizeof(si);"
69 NL " if (!CreateProcessA(cmd, \"/c \\\"echo OK\\\"\","
70 NL " NULL, NULL, TRUE,"
71 NL " 0, NULL, NULL, &si, &pi))"
72 NL " return 1;"
73 NL " if (WaitForSingleObject(pi.hProcess, INFINITE) != WAIT_OBJECT_0)"
74 NL " abort();"
75 NL " return 0;"
76 NL "}"
77 NL ;
78
79 require("cc/cc", logdepth, fatal);
80
81 report("Checking for CreateProcessA... ");
82 logprintf(logdepth, "find_proc_CreateProcessA: trying to find CreateProcessA...\n");
83 logdepth++;
84
85 if (try_icl(logdepth, key, test_c, "#include <windows.h>", NULL, NULL)) return 0;
86
87 return try_fail(logdepth, key);
5088 }
5189
5290
134172
135173 return try_fail(logdepth, "libs/proc/wait");
136174 }
175
176 int find_proc__getpid(const char *name, int logdepth, int fatal)
177 {
178 const char *key = "libs/proc/_getpid";
179 const char *test_c =
180 NL "#include <stdio.h>"
181 NL "int main()"
182 NL "{"
183 NL no_implicit(int, "_getpid", "_getpid")
184 NL " if (_getpid() != (-1))"
185 NL " puts(\"OK\");"
186 NL " return 0;"
187 NL "}"
188 NL;
189
190 require("cc/cc", logdepth, fatal);
191
192 report("Checking for _getpid()... ");
193 logprintf(logdepth, "find_proc__getpid: trying to find _getpid()...\n");
194 logdepth++;
195
196 if (try_icl(logdepth, key, test_c, "#include <process.h>", NULL, NULL))
197 return 0;
198
199 return try_fail(logdepth, key);
200 }
201
202 int find_proc_getexecname(const char *name, int logdepth, int fatal)
203 {
204 const char *key = "libs/proc/getexecname";
205 const char *test_c =
206 NL "void my_puts(const char *s);"
207 NL "int main()"
208 NL "{"
209 NL no_implicit(const char*, "getexecname", "getexecname")
210 NL " getexecname();"
211 NL " my_puts(\"OK\");"
212 NL " return 0;"
213 NL "}"
214 NL "#include <stdio.h>"
215 NL "void my_puts(const char *s)"
216 NL "{"
217 NL " puts(s);"
218 NL "}"
219 NL;
220
221 require("cc/cc", logdepth, fatal);
222
223 report("Checking for getexecname()... ");
224 logprintf(logdepth, "find_proc_getexecname: trying to find getexecname()...\n");
225 logdepth++;
226
227 if (try_icl(logdepth, key, test_c, "#include <stdlib.h>", NULL, NULL))
228 return 0;
229
230 return try_fail(logdepth, key);
231 }
232
233 int find_proc_GetModuleFileNameA(const char *name, int logdepth, int fatal)
234 {
235 const char *key = "libs/proc/GetModuleFileNameA";
236 const char *test_c =
237 NL "void my_puts(const char *s);"
238 NL "char path_buffer[5000];"
239 NL "int main()"
240 NL "{"
241 NL " HMODULE hModule = GetModuleHandleA(NULL);"
242 NL " if (GetModuleFileNameA(hModule, path_buffer, sizeof(path_buffer)) != 0)"
243 NL " my_puts(\"OK\");"
244 NL " return 0;"
245 NL "}"
246 NL "#include <stdio.h>"
247 NL "void my_puts(const char *s)"
248 NL "{"
249 NL " puts(s);"
250 NL "}"
251 NL;
252
253 require("cc/cc", logdepth, fatal);
254
255 report("Checking for GetModuleFileNameA()... ");
256 logprintf(logdepth, "find_proc_GetModuleFileNameA: trying to find GetModuleFileNameA()...\n");
257 logdepth++;
258
259 if (try_icl(logdepth, key, test_c, "#include <windows.h>", NULL, NULL))
260 return 0;
261 if (try_icl(logdepth, key, test_c, "#include <windows.h>", NULL, "-lkernel32"))
262 return 0;
263
264 return try_fail(logdepth, key);
265 }
266
267 int find_proc_shmget(const char *name, int logdepth, int fatal)
268 {
269 const char *key = "libs/proc/shmget";
270 const char *test_c =
271 NL "void my_puts(const char *s);"
272 NL "int main()"
273 NL "{"
274 NL " int shmid;"
275 NL " char *addr;"
276 NL " shmid = shmget(IPC_PRIVATE, 4096, IPC_CREAT|IPC_EXCL|0600);"
277 NL " if (shmid < 0)"
278 NL " return 1;"
279 NL " addr = (char *)shmat(shmid, (void *)0, 0);"
280 NL " if (addr == (char *)0) {"
281 NL " shmctl(shmid, IPC_RMID, (void *)0);"
282 NL " return 1;"
283 NL " }"
284 NL " if (shmctl(shmid, IPC_RMID, (void *)0) != 0)"
285 NL " return 1;"
286 NL " if (addr[2] != 0)"
287 NL " return 1;"
288 NL " addr[0] = 'O'; addr[1] = 'K';"
289 NL " my_puts(addr);"
290 NL " return 0;"
291 NL "}"
292 NL "#include <stdio.h>"
293 NL "void my_puts(const char *s)"
294 NL "{"
295 NL " puts(s);"
296 NL "}"
297 NL;
298
299 require("cc/cc", logdepth, fatal);
300
301 report("Checking for shmget()... ");
302 logprintf(logdepth, "find_proc_shmget: trying to find shmget()...\n");
303 logdepth++;
304
305 if (try_icl(logdepth, key, test_c, "#include <sys/ipc.h>\n#include <sys/shm.h>", NULL, NULL))
306 return 0;
307
308 return try_fail(logdepth, key);
309 }
310
311 int find_proc_CreateFileMappingA(const char *name, int logdepth, int fatal)
312 {
313 const char *key = "libs/proc/CreateFileMappingA";
314 const char *test_c =
315 NL "void my_puts(const char *s);"
316 NL "#define MAP_BUF_SIZE 4096"
317 NL "int main()"
318 NL "{"
319 NL " char *addr;"
320 NL " HANDLE hMap = CreateFileMappingA("
321 NL " INVALID_HANDLE_VALUE,"
322 NL " NULL,"
323 NL " PAGE_READWRITE,"
324 NL " 0,"
325 NL " MAP_BUF_SIZE,"
326 NL " NULL);"
327 NL " if (hMap == NULL)"
328 NL " return 1;"
329 NL " addr = (char *)MapViewOfFile(hMap, FILE_MAP_ALL_ACCESS,"
330 NL " 0, 0, MAP_BUF_SIZE);"
331 NL " if (addr == NULL) {"
332 NL " CloseHandle(hMap);"
333 NL " return 1;"
334 NL " }"
335 NL " if (addr[2] != 0) {"
336 NL " UnmapViewOfFile(addr);"
337 NL " CloseHandle(hMap);"
338 NL " return 1;"
339 NL " }"
340 NL " addr[0] = 'O'; addr[1] = 'K';"
341 NL " my_puts(addr);"
342 NL " UnmapViewOfFile(addr);"
343 NL " CloseHandle(hMap);"
344 NL " return 0;"
345 NL "}"
346 NL "#include <stdio.h>"
347 NL "void my_puts(const char *s)"
348 NL "{"
349 NL " puts(s);"
350 NL "}"
351 NL;
352
353 require("cc/cc", logdepth, fatal);
354
355 report("Checking for CreateFileMappingA()... ");
356 logprintf(logdepth, "find_proc_CreateFileMappingA: trying to find CreateFileMappingA()...\n");
357 logdepth++;
358
359 if (try_icl(logdepth, key, test_c, "#include <windows.h>", NULL, NULL))
360 return 0;
361 if (try_icl(logdepth, key, test_c, "#include <windows.h>", NULL, "-lkernel32"))
362 return 0;
363
364 return try_fail(logdepth, key);
365 }
7373 return try_fail(logdepth, "str/strncasecmp");
7474 }
7575
76
77 int find_stricmp(const char *name, int logdepth, int fatal)
78 {
79 const char *test_c =
80 NL "#include <string.h>"
81 NL "#include <stdio.h>"
82 NL "int main() {"
83 NL " if ((stricmp(\"foo\", \"FoO\") == 0) && (stricmp(\"foo\", \"bar\") != 0))"
84 NL " puts(\"OK\");"
85 NL " return 0;"
86 NL "}"
87 NL;
88
89 require("cc/cc", logdepth, fatal);
90
91 report("Checking for stricmp()... ");
92 logprintf(logdepth, "find_fs_stricmp: trying to find stricmp...\n");
93 logdepth++;
94
95 if (try_icl(logdepth, "str/stricmp", test_c, NULL, NULL, NULL)) return 0;
96 return try_fail(logdepth, "str/stricmp");
97 }
98
99
100 int find_strnicmp(const char *name, int logdepth, int fatal)
101 {
102 const char *test_c =
103 NL "#include <string.h>"
104 NL "#include <stdio.h>"
105 NL "int main() {"
106 NL " if ((strnicmp(\"foo1\", \"FoO2\", 3) == 0) && (strnicmp(\"foo1\", \"bar2\", 3) != 0))"
107 NL " puts(\"OK\");"
108 NL " return 0;"
109 NL "}"
110 NL;
111
112 require("cc/cc", logdepth, fatal);
113
114 report("Checking for strnicmp()... ");
115 logprintf(logdepth, "find_fs_strnicmp: trying to find strnicmp...\n");
116 logdepth++;
117
118 if (try_icl(logdepth, "str/strnicmp", test_c, NULL, NULL, NULL)) return 0;
119 return try_fail(logdepth, "str/strnicmp");
120 }
121
244244 return 0;
245245 return try_fail(logdepth, "libs/time/gmtime_s");
246246 }
247
248 int find_time_localtime_r(const char *name, int logdepth, int fatal)
249 {
250 const char *key = "libs/time/localtime_r";
251 const char test_c[] =
252 NL "void my_puts(const char *s);"
253 NL "int main() {"
254 NL " time_t tim = 1543645850;"
255 NL " struct tm tm;"
256 NL " if (localtime_r(&tim, &tm)" /* returns '&tm' */
257 NL " && 0!=tm.tm_sec" /* depends on TZ: sadly we can't sure in anything */
258 NL " && 0!=tm.tm_min"
259 NL " && 0!=tm.tm_hour)"
260 NL " my_puts(\"OK\");"
261 NL " return 0;"
262 NL "}"
263 NL "#include <stdio.h>"
264 NL "void my_puts(const char *s)"
265 NL "{"
266 NL " puts(s);"
267 NL "}"
268 NL;
269
270 require("cc/cc", logdepth, fatal);
271
272 report("Checking for localtime_r()... ");
273 logprintf(logdepth, "find_time_localtime_r: trying to find localtime_r...\n");
274 logdepth++;
275
276 if (try_icl(logdepth, key, test_c, "#include <time.h>", NULL, NULL))
277 return 0;
278 return try_fail(logdepth, key);
279 }
280
281 int find_time_localtime_s(const char *name, int logdepth, int fatal)
282 {
283 const char *key = "libs/time/localtime_s";
284 const char test_c[] =
285 NL "void my_puts(const char *s);"
286 NL "int main() {"
287 NL " time_t tim = 1543645850;"
288 NL " struct tm tm;"
289 NL " if (0==localtime_s(&tm, &tim)" /* returns errno */
290 NL " && 0!=tm.tm_sec" /* depends on TZ: sadly we can't sure in anything */
291 NL " && 0!=tm.tm_min"
292 NL " && 0!=tm.tm_hour)"
293 NL " my_puts(\"OK\");"
294 NL " return 0;"
295 NL "}"
296 NL "#include <stdio.h>"
297 NL "void my_puts(const char *s)"
298 NL "{"
299 NL " puts(s);"
300 NL "}"
301 NL;
302
303 require("cc/cc", logdepth, fatal);
304
305 report("Checking for localtime_s()... ");
306 logprintf(logdepth, "find_time_localtime_s: trying to find localtime_s...\n");
307 logdepth++;
308
309 if (try_icl(logdepth, key, test_c, "#include <time.h>", NULL, NULL))
310 return 0;
311 return try_fail(logdepth, key);
312 }
291291 {
292292 char **pkg_ver, **s;
293293 int num_pkg_ver;
294 int res;
294 int res = 0;
295295 (void) includes; /* not used */
296296
297297 run_pkg_config_lst(logdepth, pkgpat, &num_pkg_ver, &pkg_ver);
129129 sum += len[v];
130130 }
131131
132 /* first string is NULL; return a new allocation that is a simple \0, empty string to avoid a nasty corner case */
133 if (sum == 0)
134 return calloc(1, 1);
135
132136 sl = strlen(sep);
133137 sum += (v-1) * sl + 1; /* + a sep between each two strings and a terminator at the end */
134138 o = out = malloc(sum);
182182 put(addr, val);
183183 free(addr);
184184 free(val);
185 }
186
187 static void instr_resolve(tmpasm_t *ctx, char *iname, int argc, tmpasm_arg_t *argv[])
188 {
189 char *dst, *srca;
190 const char *src;
191 (void) iname; /* not used */
192 if (argc != 2) {
193 char str[16];
194 sprintf(str, "%d", argc);
195 tmpasm_runtime_error(ctx, -1, str);
196 return;
197 }
198
199 dst = tmpasm_arg2str(ctx, argv[0], 1);
200 srca = tmpasm_arg2str(ctx, argv[1], 0);
201 src = scc_get(ctx, srca);
202 if (*dst != '\0')
203 put(dst, src);
204 free(dst);
205 free(srca);
185206 }
186207
187208
521542 /* TODO: make this a hash */
522543 if (strcmp(name, "put") == 0)
523544 return instr_put;
545 if (strcmp(name, "resolve") == 0)
546 return instr_resolve;
524547 if (strcmp(name, "append") == 0)
525548 return instr_append;
526549 if (strcmp(name, "print") == 0)
00 all:
11 cd libmawk && $(MAKE)
2 cd awklib && $(MAKE)
23 # cd example_apps && $(MAKE) all
34
45 test:
67
78 install:
89 cd libmawk && $(MAKE) install
10 cd awklib && $(MAKE) install
911 # cd example_apps && $(MAKE) install
1012
1113 uninstall:
1214 cd libmawk && $(MAKE) uninstall
15 cd awklib && $(MAKE) uninstall
1316 # cd example_apps && $(MAKE) uninstall
1417
1518 linstall:
1619 cd libmawk && $(MAKE) linstall
20 cd awklib && $(MAKE) linstall
1721 # cd example_apps && $(MAKE) linstall
1822
1923 clean:
22
33 print [@
44 # Generated by scconfig from Makefile.in
5 LIBPATH=$(install_root)/usr/lib/libmawk
5 PREFIX=@/local/prefix@
6 LIBPATH=$(DESTDIR)$(install_root)$(PREFIX)/lib/libmawk
67
78 all:
89
0 GNU GENERAL PUBLIC LICENSE
1 Version 2, June 1991
2
3 Copyright (C) 1989, 1991 Free Software Foundation, Inc.
4 675 Mass Ave, Cambridge, MA 02139, USA
0 GNU GENERAL PUBLIC LICENSE
1 Version 2, June 1991
2
3 Copyright (C) 1989, 1991 Free Software Foundation, Inc.,
4 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
55 Everyone is permitted to copy and distribute verbatim copies
66 of this license document, but changing it is not allowed.
77
8 Preamble
8 Preamble
99
1010 The licenses for most software are designed to take away your
1111 freedom to share and change it. By contrast, the GNU General Public
1414 General Public License applies to most of the Free Software
1515 Foundation's software and to any other program whose authors commit to
1616 using it. (Some other Free Software Foundation software is covered by
17 the GNU Library General Public License instead.) You can apply it to
17 the GNU Lesser General Public License instead.) You can apply it to
1818 your programs, too.
1919
2020 When we speak of free software, we are referring to freedom, not
5454
5555 The precise terms and conditions for copying, distribution and
5656 modification follow.
57
58 GNU GENERAL PUBLIC LICENSE
57
58 GNU GENERAL PUBLIC LICENSE
5959 TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
6060
6161 0. This License applies to any program or other work which contains
109109 License. (Exception: if the Program itself is interactive but
110110 does not normally print such an announcement, your work based on
111111 the Program is not required to print an announcement.)
112
112
113113 These requirements apply to the modified work as a whole. If
114114 identifiable sections of that work are not derived from the Program,
115115 and can be reasonably considered independent and separate works in
167167 access to copy the source code from the same place counts as
168168 distribution of the source code, even though third parties are not
169169 compelled to copy the source along with the object code.
170
170
171171 4. You may not copy, modify, sublicense, or distribute the Program
172172 except as expressly provided under this License. Any attempt
173173 otherwise to copy, modify, sublicense or distribute the Program is
224224
225225 This section is intended to make thoroughly clear what is believed to
226226 be a consequence of the rest of this License.
227
227
228228 8. If the distribution and/or use of the Program is restricted in
229229 certain countries either by patents or by copyrighted interfaces, the
230230 original copyright holder who places the Program under this License
254254 of preserving the free status of all derivatives of our free software and
255255 of promoting the sharing and reuse of software generally.
256256
257 NO WARRANTY
257 NO WARRANTY
258258
259259 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
260260 FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
276276 PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
277277 POSSIBILITY OF SUCH DAMAGES.
278278
279 END OF TERMS AND CONDITIONS
280
281 Appendix: How to Apply These Terms to Your New Programs
279 END OF TERMS AND CONDITIONS
280
281 How to Apply These Terms to Your New Programs
282282
283283 If you develop a new program, and you want it to be of the greatest
284284 possible use to the public, the best way to achieve this is to make it
290290 the "copyright" line and a pointer to where the full notice is found.
291291
292292 <one line to give the program's name and a brief idea of what it does.>
293 Copyright (C) 19yy <name of author>
293 Copyright (C) <year> <name of author>
294294
295295 This program is free software; you can redistribute it and/or modify
296296 it under the terms of the GNU General Public License as published by
302302 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
303303 GNU General Public License for more details.
304304
305 You should have received a copy of the GNU General Public License
306 along with this program; if not, write to the Free Software
307 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
305 You should have received a copy of the GNU General Public License along
306 with this program; if not, write to the Free Software Foundation, Inc.,
307 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
308308
309309 Also add information on how to contact you by electronic and paper mail.
310310
311311 If the program is interactive, make it output a short notice like this
312312 when it starts in an interactive mode:
313313
314 Gnomovision version 69, Copyright (C) 19yy name of author
314 Gnomovision version 69, Copyright (C) year name of author
315315 Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
316316 This is free software, and you are welcome to redistribute it
317317 under certain conditions; type `show c' for details.
334334 This General Public License does not permit incorporating your program into
335335 proprietary programs. If your program is a subroutine library, you may
336336 consider it more useful to permit linking proprietary applications with the
337 library. If this is what you want to do, use the GNU Library General
337 library. If this is what you want to do, use the GNU Lesser General
338338 Public License instead of this License.
+0
-47
src/libmawk/INSTALL less more
0 Look at the file config.user and edit to set user defines.
1
2 if your system is one of
3 apollo
4 convex
5 mips
6 sgi
7 ultrix-mips
8 cray
9 hpux (read below)
10 unixware (read below)
11
12 and you don't have gcc or prefer to use cc, then you may want to
13 copy config-user/your_system to config.user and edit that.
14
15 run
16
17 configure
18 make
19
20
21 If you have problems, please report it. If you can fix the problem, by
22 changing config.user, please send the results. Else send output from
23 configure, make and config.h. Send to brennan@whidbey.com.
24
25
26
27 DOS:
28 Look at the file msdos/INSTALL
29
30
31 HPUX:
32 Evidently there is more than one compiler and/or math library. Some
33 configurations work out of the box (configure/make). Others need
34 CFLAGS='+O2 +FPZO'. On HPUX 9.05 with the ansi compiler HP92453-01
35 A.09.77 set CFLAGS='-Ae +O2 +FPZO'. Thanks to Dr. Rafael R.
36 Pappalardo<rafapa@mozart.us.es> for this info.
37
38
39
40 UNIXWARE:
41 On some but not all versions, configure might decide you don't have
42 memcpy. Remove #define NO_MEMCPY 1 from config.h.
43 If the fpe_test check fails, change the definition of TURN_ON_FPE_TRAPS
44 to
45
46 #define TURN_ON_FPE_TRAPS() fpsetmask(fpgetmask()|FP_X_DZ|FP_X_OFL|FP_X_INV)
121121 install_ : lmawk libmawk.so
122122 $(MKDIR) $(BINDIR)
123123 $(MKDIR) $(MANDIR)
124 $(MKDIR) $(MAN3DIR)
125 $(MKDIR) $(MAN7DIR)
124126 $(MKDIR) $(INCDIR)
125 $(MKDIR) $(LIBDIR)
127 $(MKDIR) $(LIBARCHDIR)
126128 $(CP) $(PWD)/lmawk $(BINDIR)
127129 $(CHMODX) $(BINDIR)/lmawk
128130 $(CP) $(PWD)/man/lmawk.1 $(MAWKMAN)
131 $(CP) $(PWD)/man/libmawk_append_input.3libmawk $(MAN3DIR)/libmawk_append_input.3libmawk
132 $(CP) $(PWD)/man/libmawk_call_function.3libmawk $(MAN3DIR)/libmawk_call_function.3libmawk
133 $(CP) $(PWD)/man/libmawk_cell_destroy.3libmawk $(MAN3DIR)/libmawk_cell_destroy.3libmawk
134 $(CP) $(PWD)/man/libmawk_get_var.3libmawk $(MAN3DIR)/libmawk_get_var.3libmawk
135 $(CP) $(PWD)/man/libmawk_initialize.3libmawk $(MAN3DIR)/libmawk_initialize.3libmawk
136 $(CP) $(PWD)/man/libmawk_initialize_stage.3libmawk $(MAN3DIR)/libmawk_initialize_stage.3libmawk
137 $(CP) $(PWD)/man/libmawk_register_function.3libmawk $(MAN3DIR)/libmawk_register_function.3libmawk
138 $(CP) $(PWD)/man/libmawk_run_main.3libmawk $(MAN3DIR)/libmawk_run_main.3libmawk
139 $(CP) $(PWD)/man/libmawk_set_cell.3libmawk $(MAN3DIR)/libmawk_set_cell.3libmawk
140 $(CP) $(PWD)/man/libmawk_uninitialize.3libmawk $(MAN3DIR)/libmawk_uninitialize.3libmawk
141 $(CP) $(PWD)/man/example.7libmawk $(MAN7DIR)/example.7libmawk
129142 $(CHMOD) 0644 $(MAWKMAN)
130 $(CP) $(PWD)/libmawk.so $(LIBDIR)/libmawk.so.$(SOVER1).$(SOVER2).$(SOVER3)
131 rm $(LIBDIR)/libmawk.so.$(SOVER1).$(SOVER2) $(LIBDIR)/libmawk.so.$(SOVER1) 2>/dev/null ; true
132 ln -s libmawk.so.$(SOVER1).$(SOVER2).$(SOVER3) $(LIBDIR)/libmawk.so.$(SOVER1).$(SOVER2)
133 ln -s libmawk.so.$(SOVER1).$(SOVER2) $(LIBDIR)/libmawk.so.$(SOVER1)
134 ln -s libmawk.so.$(SOVER1) $(LIBDIR)/libmawk.so
143 $(CP) $(PWD)/libmawk.so $(LIBARCHDIR)/libmawk.so.$(SOVER1).$(SOVER2).$(SOVER3)
144 rm $(LIBARCHDIR)/libmawk.so.$(SOVER1).$(SOVER2) $(LIBARCHDIR)/libmawk.so.$(SOVER1) 2>/dev/null ; true
145 ln -s libmawk.so.$(SOVER1).$(SOVER2).$(SOVER3) $(LIBARCHDIR)/libmawk.so.$(SOVER1).$(SOVER2)
146 ln -s libmawk.so.$(SOVER1).$(SOVER2).$(SOVER3) $(LIBARCHDIR)/libmawk.so.$(SOVER1)
147 ln -s libmawk.so.$(SOVER1) $(LIBARCHDIR)/libmawk.so
135148 for h in $(IHEADERS); do $(CP) $(PWD)/$$h $(INCDIR)/$$h; done
136149 $(CP) $(PWD)/../libmawk.h $(INCDIR)/../libmawk.h
137150
2121 # where to put mawk
2222 BINDIR = $(DESTDIR)$(install_root)$(PREFIX)/bin
2323 # where to put libraries
24 LIBARCHDIR = $(DESTDIR)$(install_root)$(PREFIX)/@/local/libarchdir@
2425 LIBDIR = $(DESTDIR)$(install_root)$(PREFIX)/lib
2526 # where to put include files
2627 INCDIR = $(DESTDIR)$(install_root)$(PREFIX)/include/libmawk
2728 # where to put the man pages
2829 MANDIR = $(DESTDIR)$(install_root)$(PREFIX)/share/man/man1
30 MAN3DIR = $(DESTDIR)$(install_root)$(PREFIX)/share/man/man3
31 MAN7DIR = $(DESTDIR)$(install_root)$(PREFIX)/share/man/man7
2932 # where to put the doc
3033 DOCDIR = $(DESTDIR)$(install_root)$(PREFIX)/share/doc/libmawk
3134 MANEXT = 1
268268 }
269269
270270 #ifndef MAWK_NO_FLOAT
271
272 #ifndef MAWK_HAVE_SAFE_NAN
273 # define handle_nan_1arg() \
274 if (P_isnan((sp)->d.dval)) { \
275 sp->d.dval = P_nan(); \
276 return sp; \
277 }
278 #else
279 # define handle_nan_1arg()
280 #endif
281
282
271283 mawk_cell_t *mawk_bi_sin(mawk_state_t *MAWK, mawk_cell_t *sp)
272284 {
273285 #if ! STDC_MATHERR
274286 if (sp->type != C_NUM)
275287 mawk_cast1_to_num(MAWK, sp);
288 handle_nan_1arg();
276289 sp->d.dval = sin(sp->d.dval);
277290 return sp;
278291 #else
281294 errno = 0;
282295 if (sp->type != C_NUM)
283296 mawk_cast1_to_num(MAWK, sp);
297
298 handle_nan_1arg();
299
284300 x = sp->d.dval;
285301 sp->d.dval = sin(sp->d.dval);
286302 if (errno)
294310 #if ! STDC_MATHERR
295311 if (sp->type != C_NUM)
296312 mawk_cast1_to_num(MAWK, sp);
313 handle_nan_1arg();
297314 sp->d.dval = cos(sp->d.dval);
298315 return sp;
299316 #else
302319 errno = 0;
303320 if (sp->type != C_NUM)
304321 mawk_cast1_to_num(MAWK, sp);
322 handle_nan_1arg();
305323 x = sp->d.dval;
306324 sp->d.dval = cos(sp->d.dval);
307325 if (errno)
312330
313331 mawk_cell_t *mawk_bi_atan2(mawk_state_t *MAWK, mawk_cell_t *sp)
314332 {
333
315334 #if ! STDC_MATHERR
316335 sp--;
317336 if (TEST2(sp) != TWO_NUMS)
318337 mawk_cast2_to_num(MAWK, sp);
338
339 #ifndef MAWK_HAVE_SAFE_NAN
340 if (P_isnan(sp->d.dval) || P_isnan((sp+1)->d.dval)) {
341 sp->d.dval = P_nan();
342 return sp;
343 }
344 #endif
345
319346 sp->d.dval = atan2(sp->d.dval, (sp + 1)->d.dval);
320347 return sp;
321348 #else
324351 sp--;
325352 if (TEST2(sp) != TWO_NUMS)
326353 mawk_cast2_to_num(MAWK, sp);
354
355
356 #ifndef MAWK_HAVE_SAFE_NAN
357 if (P_isnan(sp->d.dval) || P_isnan((sp+1)->d.dval)) {
358 sp->d.dval = P_nan();
359 return sp;
360 }
361 #endif
362
327363 sp->d.dval = atan2(sp->d.dval, (sp + 1)->d.dval);
328364 if (errno)
329365 mawk_rt_error(MAWK, "atan2(0,0) : domain error");
338374 errno = 0;
339375 if (sp->type != C_NUM)
340376 mawk_cast1_to_num(MAWK, sp);
377
378 handle_nan_1arg();
379
341380 x = sp->d.dval;
342381 PM_BEGIN
343382 sp->d.dval = P_log(sp->d.dval);
351390
352391 mawk_cell_t *mawk_bi_exp(mawk_state_t *MAWK, mawk_cell_t *sp)
353392 {
393
354394 #if ! STDC_MATHERR
355395 if (sp->type != C_NUM)
356396 mawk_cast1_to_num(MAWK, sp);
397 handle_nan_1arg();
357398 sp->d.dval = exp(sp->d.dval);
358399 return sp;
359400 #else
362403 errno = 0;
363404 if (sp->type != C_NUM)
364405 mawk_cast1_to_num(MAWK, sp);
406 handle_nan_1arg();
365407 x = sp->d.dval;
366408 sp->d.dval = exp(sp->d.dval);
367409 if (errno && sp->d.dval)
376418 {
377419 if (sp->type != C_NUM)
378420 mawk_cast1_to_num(MAWK, sp);
421 handle_nan_1arg();
379422 sp->d.dval = mawk_num_int(sp->d.dval);
380423 return sp;
381424 }
386429
387430 if (sp->type != C_NUM)
388431 mawk_cast1_to_num(MAWK, sp);
432
433 handle_nan_1arg();
389434
390435 x = sp->d.dval;
391436
918963 else
919964 mawk_set_errno(MAWK, "2 object is not a function");
920965
921 #warning this should be some common code in execute.c?
966 TODO("this should be some common code in execute.c?")
922967 for (i = 0; i < numargs; i++) {
923968 mawk_cell_destroy(MAWK, &sp[i]);
924969 sp[i].type = C_NOINIT;
10151060
10161061 sp -= numargs;
10171062 sp--;
1018 #warning TODO: cell destroy all the allocated but unused args?
1063 TODO(": cell destroy all the allocated but unused args?")
10191064 return sp;
10201065
10211066 error:;
6969 cons: zmalloc's uninit will throw them out in less cpu cycles.
7070 */
7171 /* #define MAWK_MEM_PEDANTIC */
72 @]
73
74 print {\n/* Code warnings for TODO, portable (unlike #warning) */}
75 if ?cc/pragma_message
76 then
77 print [@
78 #define DO_PRAGMA(arg) _Pragma(#arg)
79 #define TODO(x) DO_PRAGMA(message("TODO: " #x))
80 @]
81 else
82 print {\n/* Not available */\n#define TODO(x)\n}
83 end
84
85 print [@
7286 #endif
7387
7488 @]
2424 #include "vars.h"
2525 #include "f2d.h"
2626 #include <string.h>
27
28 typedef long int da_word;
2729
2830 /* for load sanity checks declare large maximums; without these a malformed
2931 binary may cause libmawk to allocate a lot of memory */
534536 return 0;
535537 }
536538
537 static int save_bin_sect(mawk_state_t * MAWK, void *fd, int (*write)(void *fd, const void *buff, size_t len), INST *b, int len)
538 {
539 if (write(fd, &len, 4) != 4)
539 static int save_bin_sect(mawk_state_t * MAWK, void *fd, int (*write)(void *fd, const void *buff, size_t len), INST *b, da_word len)
540 {
541 if (write(fd, &len, sizeof(da_word)) != sizeof(da_word))
540542 return -1;
541543 if (b != NULL) {
542544 int l;
552554 header_t h;
553555 link_t l;
554556 int n;
555 long int len, begin_len, end_len, main_len, num_func;
557 long int begin_len, end_len, main_len;
558 da_word num_func, len;
556559 long int *flen;
557560 struct mawk_fdump **fps;
558561 struct mawk_fdump *fp;
598601
599602 /* L1: save nums */
600603 len = l.numsu;
601 write(fd, &len, 4);
604 write(fd, &len, sizeof(da_word));
602605 write(fd, l.nums, sizeof(mawk_num_t) * l.numsu);
603 write(fd, &num_func, 4);
606 write(fd, &num_func, sizeof(da_word));
604607
605608 /* L2: save strings */
606609 len = l.strsu;
607 write(fd, &len, 4);
610 write(fd, &len, sizeof(da_word));
608611 for(n = 0; n < l.strsu; n++) {
609612 len = safe_strlen(l.strs[n]);
610 write(fd, &len, 4);
613 write(fd, &len, sizeof(da_word));
611614 if (len > 0)
612615 write(fd, l.strs[n], len);
613616 }
614617
615618 /* L3: save vars */
616619 len = l.varsu;
617 write(fd, &len, 4);
620 write(fd, &len, sizeof(da_word));
618621 for(n = 0; n < l.varsu; n++) {
619622 const char *name;
620623 SYMTAB *stp;
632635
633636 /* save name len and name*/
634637 len = strlen(name);
635 write(fd, &len, 4);
638 write(fd, &len, sizeof(da_word));
636639 write(fd, name, len);
637640
638641 /* save value len and content - empty for now */
639642 len = 0;
640 write(fd, &len, 4);
643 write(fd, &len, sizeof(da_word));
641644 }
642645
643646 /* L4: save begin/end/main sections */
654657 fp = fps[n];
655658 len = strlen(fp->fbp->name);
656659 /* fprintf(stderr, "da_bin function %s/%d len=%d\n", fp->fbp->name, len,flen[n]); */
657 write(fd, &len, 4);
660 write(fd, &len, sizeof(da_word));
658661 write(fd, fp->fbp->name, len);
659662 /* fprintf(stderr, "NARGS=%d %d\n", fp->fbp->nargs, fp->fbp->typev[0]); */
660663 write(fd, &fp->fbp->nargs, 2);
675678 #ifndef MAWK_NO_EXEC
676679 static int bin_load_func(mawk_state_t *MAWK, void *fd, int (*read)(void *fd, void *buff, size_t len), FBLOCK *fbp)
677680 {
678 int len;
679 read(fd, &len, 4);
681 da_word len;
682 read(fd, &len, sizeof(da_word));
680683 if (len > 0) {
681684 if (len > BIN_CODE_MAXLEN)
682685 return -1;
689692
690693 static int bin_load_sect(mawk_state_t *MAWK, void *fd, int (*read)(void *fd, void *buff, size_t len), int scope)
691694 {
692 int len;
693
694 read(fd, &len, 4);
695 da_word len;
696
697 read(fd, &len, sizeof(da_word));
695698 if (len > 0) {
696699 MAWK->scope = scope;
697700 if ((scope == SCOPE_BEGIN) || (scope == SCOPE_END))
727730 SYMTAB *stp;
728731 header_t h;
729732 link_t l;
730 int n, num_func;
731 long int len;
733 int n;
734 da_word num_func, len;
732735 int ret;
733736
734737 memset(&l, 0, sizeof(l));
775778
776779
777780 /* L1: load nums */
778 read(fd, &len, 4);
781 len = 0;
782 read(fd, &len, sizeof(da_word));
779783 l.numsa = l.numsu = len;
780784 len = sizeof(*l.nums) * l.numsa;
781785 if (len > BIN_MAXVARS)
782786 goto err;
783787 l.nums = malloc(len);
784788 read(fd, l.nums, len);
785 read(fd, &num_func, 4);
789 read(fd, &num_func, sizeof(da_word));
786790
787791 /* L2: load strings */
788 read(fd, &len, 4);
792 read(fd, &len, sizeof(da_word));
789793 l.strsa = l.strsu = len;
790794 len = sizeof(*l.strs) * l.strsa;
791795 if (len > BIN_MAXSTRS)
794798 for(n = 0; n < l.strsu; n++) {
795799 char *name;
796800
797 read(fd, &len, 4);
801 read(fd, &len, sizeof(da_word));
798802 if (len > BIN_NAME_MAXLEN)
799803 goto err;
800804 if (len > 0) {
813817 }
814818
815819 /* L3: load vars */
816 read(fd, &len, 4);
820 read(fd, &len, sizeof(da_word));
817821 l.varsa = l.varsu = len;
818822 len = sizeof(*l.vars) * l.varsa;
819823 if (l.varsa > BIN_MAXVARS)
829833 read(fd, &stype, 1);
830834
831835 /* load name len and name*/
832 read(fd, &len, 4);
836 read(fd, &len, sizeof(da_word));
833837 if (len > BIN_NAME_MAXLEN)
834838 goto err;
835839 name = mawk_zmalloc(MAWK, len+1);
865869
866870 /* fprintf(stderr, "LOAD var name='%s' type=%d len=%d: %d -> %p\n", name, type, len, n, l.vars[n].cp); */
867871 /* load value len and content - empty for now */
868 read(fd, &len, 4);
872 read(fd, &len, sizeof(da_word));
869873 if (len != 0) {
870874 ret = MAWK_EWRONGVAL;
871875 goto err2;
889893 char *name;
890894 FBLOCK *fbp;
891895
892 read(fd, &len, 4);
896 read(fd, &len, sizeof(da_word));
893897 /* fprintf(stderr, "LOAD function len=%d\n", len); */
894898 if (len > BIN_NAME_MAXLEN)
895899 goto err;
1515
1616 #include "conf.h"
1717
18 #warning this should be gone:
18 TODO("this should be gone:")
1919 #include <stdio.h>
2020
2121 #include "mawk.h"
4545 FNR->d.dval = MAWK_NUM_ZERO;
4646 MAWK->rt_fnr = 0;
4747 MAWK->main_input = mawk_file_find_(MAWK, "/dev/stdin", F_IN, 1);
48 #warning TODO: abstract
48 TODO(": abstract")
4949 MAWK->main_input->fin->flags |= MAWK_INPF_MAIN;
5050 }
5151
9898 mawk_errmsg(MAWK, errno, "cannot open %s", string(cp)->str);
9999 mawk_exitval(MAWK, 2, NULL);
100100 }
101 #warning TODO abstract this
101 TODO("TODO abstract this")
102102 MAWK->main_input->fin->flags |= MAWK_INPF_MAIN;
103103
104104 /* success -- set FILENAME and FNR */
340340 if (MAWK->rs_shadow.type == SEP_MLR) {
341341 char *s;
342342 /* trim blank lines from front of file */
343 #warning TODO: probably accept \r as well
343 TODO(": probably accept \r as well")
344344 for(s = fin->next; *s == '\n'; s++) ;
345345 if (*s == '\0') {
346346 /* emptied the buffer with all the \n's... so get back to initial state */
1515 #include "conf.h"
1616 #include <stdlib.h>
1717 #include <string.h>
18 #include <stdio.h>
1819 #include <ctype.h>
1920 #include "mawk.h"
2021 #include "code.h"
422423 break;
423424
424425 case '-':
425 if (argv[i][2] != 0)
426 if (argv[i][2] != 0) {
427 if ((strcmp(argv[i], "--version") == 0) || (strcmp(argv[i], "--help") == 0)) {
428 printf("\nlmawk is libmawk " LMAWK_VER "\nFor more info, see the manual page for lmawk(1) and\nhttp://repo.hu/projects/libmawk.\n\n");
429 exit(0);
430 }
426431 bad_option(MAWK, argv[i]);
432 }
427433 i++;
428434 goto no_more_opts;
429435 #ifndef MAWK_NO_COMP
5454 m2 = mawk_initialize_argv(m, argc, argv);
5555
5656 if (m2 == NULL) {
57 #warning TODO: cleanup m
57 TODO(": cleanup m")
5858 return NULL;
5959 }
6060 m = m2;
311311 else
312312 fbp = fs->stval.fbp;
313313
314 #warning TODO: check if we need to grow the stack
314 TODO(": check if we need to grow the stack")
315315
316316 orig_sp = MAWK->sp;
317317 va_start(ap, argtypes);
359359 else
360360 fbp = fs->stval.fbp;
361361
362 #warning TODO: check if we need to grow the stack
362 TODO(": check if we need to grow the stack")
363363
364364 orig_sp = MAWK->sp;
365365 for(numargs = 0;*argtypes != '\0';argtypes++,numargs++,args++) {
404404 else
405405 fbp = fs->stval.fbp;
406406
407 #warning TODO: check if we need to grow the stack
407 TODO(": check if we need to grow the stack")
408408
409409 for(n = 0; n< argc; n++) {
410410 inc_mawksp();
452452 break;
453453 case C_STRNUM:
454454 case C_MBSTRN:
455 #warning TODO: we should be able to convert the above two
455 TODO(": we should be able to convert the above two")
456456 case C_RE:
457457 case C_SPACE:
458458 case C_SNULL:
0 .\" Copyright 2009 Tibor Palinkas (mawk@inno.bme.hu)
1 .\"
2 .\" Permission is granted to make and distribute verbatim copies of this
3 .\" manual provided the copyright notice and this permission notice are
4 .\" preserved on all copies.
5 .\"
6 .\" Permission is granted to copy and distribute modified versions of this
7 .\" manual under the conditions for verbatim copying, provided that the
8 .\" entire resulting derived work is distributed under the terms of a
9 .\" permission notice identical to this one.
10 .\"
11 .\" Formatted or processed versions of this manual, if unaccompanied by
12 .\" the source, must acknowledge the copyright and authors of this work.
13 .\"
14 .TH EXAMPLE 7 2009-08-10 "libmawk" "libmawk manual"
15 .SH NAME
16 libmawk example \- how to use the library
17 .SH SYNOPSIS
18 .nf
19 .B #include <libmawk.h>
20 .sp
21 .SH DESCRIPTION
22 Libmawk is a library that lets applications to embed awk scripts using the
23 code of the popular implementation
24 .B mawk.
25 The normal process is to call libmawk_initialize() to set up a new mawk
26 context (with script(s) loaded), then in the main loop feed it using
27 libmawk_append_input(). For "out of band" communication, the program
28 may also call functions implemented in awk and read (or modify) global
29 variables of the awk script. The hos tapplication usally will also bind
30 some of its functions to the context using libmawk_register_function, which
31 allows the awk script to call the host applicaiton's functions directly as
32 they were awk builtins or user defined functions. After the main loop, the
33 application destroys the context freeing up all memory allocated for
34 the script(s).
35 .sp
36 One context is for one awk program. One awk program may consist of multiple
37 script files (just as with command line awk, with multiple -f filename
38 arguments). Libmawk is instance safe, the host application may create
39 multiple instances of contexts with the same or with different set of
40 awk scripts loaded. These contexts are totally separate, no variables,
41 functions or any sort of states are shared. However, the host application
42 may provide means of communication between those scripts by custom functions
43 or by copying variable contents between them.
44 .SH Example application
45 The following example application creates a single context to demonstrate
46 all the above mentioned functionality.
47 .nf
48 .fi
5858 # define P_isnan_manual(x) 0
5959
6060 #else
61 #include <float.h>
6162 /* broken or missing NAN support, always have to check manually */
6263 # define P_nansafe1(dest, operation, operand) \
6364 do { \
6465 if (P_isnan(operand) || P_isnan(dest)) (dest) = P_nan(); \
65 else (dest) = (operation); \
66 else { \
67 (dest) = (operation); \
68 if (P_isnan(dest)) \
69 (dest) = DBL_MAX; \
70 } \
6671 } while(0)
6772 # define P_isnan_manual P_isnan
6873 #endif
6565 PM_END
6666 return r;
6767 }
68
69 #ifndef MAWK_HAVE_SAFE_NAN
70 double mawk_strtonum_(const char *nptr, char **endptr)
71 {
72 if (((nptr[0] == 'n') || (nptr[0] == 'N')) && ((nptr[1] == 'a') || (nptr[1] == 'A')) && ((nptr[2] == 'n') || (nptr[2] == 'N'))) {
73 if (endptr != NULL)
74 *endptr = (char *)(nptr+3);
75 return P_nan();
76 }
77 return strtod(nptr, endptr);
78 }
79 #endif
1616 #ifdef MAWK_HAVE_SAFE_NAN
1717 #define P_isnan(x) isnan(x)
1818 #define P_nan() nan("nan")
19 #define strtonum(nptr, endptr) strtod(nptr, endptr)
1920 #else
2021 #define NUM_NAN HUGE_VAL
2122 #define P_isnan(x) ((x) == NUM_NAN)
2223 #define P_nan() (NUM_NAN)
24 #define strtonum(nptr, endptr) mawk_strtonum_(nptr, endptr)
25 double mawk_strtonum_(const char *nptr, char **endptr);
2326 #endif
2427
2528 double mawk_num_pow(double x, double y);
2629 double P_fmod(double x, double y);
2730
28 #define strtonum(nptr, endptr) strtod(nptr, endptr)
2931
32
7171 {
7272 Int ival = mawk_d_to_I(p->d.dval);
7373 const char *txt;
74
75 if (P_isnan(p->d.dval)) {
76 mawk_vio_write_str(MAWK, fnode->vf, "nan");
77 break;
78 }
7479
7580 txt = mawk_num_print_spec(ival);
7681 if (txt != NULL)
398403 bad_conversion(MAWK, num_conversion, who, format);
399404 if (cp->type != C_NUM)
400405 mawk_cast1_to_num(MAWK, cp);
401 pf_type = PF_F;
406 if (P_isnan(cp->d.dval)) {
407 cp->ptr = (PTR) mawk_new_STRING(MAWK, "nan");
408 cp->type = C_STRING;
409 cp->d.dval = 42;
410 p = "%s";
411 pf_type = PF_S;
412 }
413 else
414 pf_type = PF_F;
402415 break;
403416 #endif
404417
2020 ../examples/gdecl.dab\
2121 ../examples/nocomment.dab\
2222 ../examples/primes.dab\
23 ../examples/qsort.dab\
23 ../examples/qsort.dab
7171 mawk_vio_fifo_t *v = (mawk_vio_fifo_t *)vf;
7272 if (!v->is_awk2app)
7373 return -1;
74 #warning TODO
74 TODO("TODO")
7575 abort();
7676 return -1;
7777 }
161161
162162
163163
164 #warning TODO print runtime warnings
164 TODO("TODO print runtime warnings")
165165 mawk_vio_t *mawk_vio_orig_open(mawk_state_t *MAWK, const char *name, mawk_vio_open_mode_t mode)
166166 {
167167 mawk_vio_orig_t *vf;
286286 close(remote_fd);
287287 /* we could deadlock if future child inherit the local fd ,
288288 set close on exec flag */
289 #warning TODO: better do this by hand - close on exec is not really portable
289 TODO(": better do this by hand - close on exec is not really portable")
290290 CLOSE_ON_EXEC(local_fd);
291291 break;
292292 }