Project

General

Profile

Statistics
| Revision:

root / lab4 / .minix-src / include / luaconf.h @ 13

History | View | Annotate | Download (21.6 KB)

1 13 up20180614
/*        $NetBSD: luaconf.h,v 1.14 2015/10/08 13:21:00 mbalmer Exp $        */
2
3
/*
4
** Id: luaconf.h,v 1.251 2015/05/20 17:39:23 roberto Exp
5
** Configuration file for Lua
6
** See Copyright Notice in lua.h
7
*/
8
9
10
#ifndef luaconf_h
11
#define luaconf_h
12
13
#ifndef _KERNEL
14
#include <limits.h>
15
#include <stddef.h>
16
#else
17
#include <machine/limits.h>
18
#include <sys/systm.h>
19
#endif
20
21
22
/*
23
** ===================================================================
24
** Search for "@@" to find all configurable definitions.
25
** ===================================================================
26
*/
27
28
29
/*
30
** {====================================================================
31
** System Configuration: macros to adapt (if needed) Lua to some
32
** particular platform, for instance compiling it with 32-bit numbers or
33
** restricting it to C89.
34
** =====================================================================
35
*/
36
37
/*
38
@@ LUA_32BITS enables Lua with 32-bit integers and 32-bit floats. You
39
** can also define LUA_32BITS in the make file, but changing here you
40
** ensure that all software connected to Lua will be compiled with the
41
** same configuration.
42
*/
43
/* #define LUA_32BITS */
44
45
46
/*
47
@@ LUA_USE_C89 controls the use of non-ISO-C89 features.
48
** Define it if you want Lua to avoid the use of a few C99 features
49
** or Windows-specific features on Windows.
50
*/
51
/* #define LUA_USE_C89 */
52
53
54
/*
55
** By default, Lua on Windows use (some) specific Windows features
56
*/
57
#if !defined(LUA_USE_C89) && defined(_WIN32) && !defined(_WIN32_WCE)
58
#define LUA_USE_WINDOWS  /* enable goodies for regular Windows */
59
#endif
60
61
62
#if defined(LUA_USE_WINDOWS)
63
#define LUA_DL_DLL        /* enable support for DLL */
64
#define LUA_USE_C89        /* broadly, Windows is C89 */
65
#endif
66
67
68
#if defined(LUA_USE_LINUX)
69
#define LUA_USE_POSIX
70
#define LUA_USE_DLOPEN                /* needs an extra library: -ldl */
71
#define LUA_USE_READLINE        /* needs some extra libraries */
72
#endif
73
74
75
#if defined(LUA_USE_MACOSX)
76
#define LUA_USE_POSIX
77
#define LUA_USE_DLOPEN                /* MacOS does not need -ldl */
78
#define LUA_USE_READLINE        /* needs an extra library: -lreadline */
79
#endif
80
81
82
/*
83
@@ LUA_C89_NUMBERS ensures that Lua uses the largest types available for
84
** C89 ('long' and 'double'); Windows always has '__int64', so it does
85
** not need to use this case.
86
*/
87
#if defined(LUA_USE_C89) && !defined(LUA_USE_WINDOWS)
88
#define LUA_C89_NUMBERS
89
#endif
90
91
92
93
/*
94
@@ LUAI_BITSINT defines the (minimum) number of bits in an 'int'.
95
*/
96
/* avoid undefined shifts */
97
#if ((INT_MAX >> 15) >> 15) >= 1
98
#define LUAI_BITSINT        32
99
#else
100
/* 'int' always must have at least 16 bits */
101
#define LUAI_BITSINT        16
102
#endif
103
104
105
/*
106
@@ LUA_INT_TYPE defines the type for Lua integers.
107
@@ LUA_FLOAT_TYPE defines the type for Lua floats.
108
** Lua should work fine with any mix of these options (if supported
109
** by your C compiler). The usual configurations are 64-bit integers
110
** and 'double' (the default), 32-bit integers and 'float' (for
111
** restricted platforms), and 'long'/'double' (for C compilers not
112
** compliant with C99, which may not have support for 'long long').
113
*/
114
115
/* predefined options for LUA_INT_TYPE */
116
#define LUA_INT_INT                1
117
#define LUA_INT_LONG                2
118
#define LUA_INT_LONGLONG        3
119
120
/* predefined options for LUA_FLOAT_TYPE */
121
#define LUA_FLOAT_FLOAT                1
122
#define LUA_FLOAT_DOUBLE        2
123
#define LUA_FLOAT_LONGDOUBLE        3
124
125
#if defined(LUA_32BITS)                /* { */
126
/*
127
** 32-bit integers and 'float'
128
*/
129
#if LUAI_BITSINT >= 32  /* use 'int' if big enough */
130
#define LUA_INT_TYPE        LUA_INT_INT
131
#else  /* otherwise use 'long' */
132
#define LUA_INT_TYPE        LUA_INT_LONG
133
#endif
134
#define LUA_FLOAT_TYPE        LUA_FLOAT_FLOAT
135
136
#elif defined(LUA_C89_NUMBERS)        /* }{ */
137
/*
138
** largest types available for C89 ('long' and 'double')
139
*/
140
#define LUA_INT_TYPE        LUA_INT_LONG
141
#define LUA_FLOAT_TYPE        LUA_FLOAT_DOUBLE
142
143
#endif                                /* } */
144
145
146
/*
147
** default configuration for 64-bit Lua ('long long' and 'double')
148
*/
149
#if !defined(LUA_INT_TYPE)
150
#define LUA_INT_TYPE        LUA_INT_LONGLONG
151
#endif
152
153
#if !defined(LUA_FLOAT_TYPE)
154
#define LUA_FLOAT_TYPE        LUA_FLOAT_DOUBLE
155
#endif                                                                /* } */
156
157
/* }================================================================== */
158
159
160
161
162
/*
163
** {==================================================================
164
** Configuration for Paths.
165
** ===================================================================
166
*/
167
168
/*
169
@@ LUA_PATH_DEFAULT is the default path that Lua uses to look for
170
** Lua libraries.
171
@@ LUA_CPATH_DEFAULT is the default path that Lua uses to look for
172
** C libraries.
173
** CHANGE them if your machine has a non-conventional directory
174
** hierarchy or if you want to install your libraries in
175
** non-conventional directories.
176
*/
177
#define LUA_VDIR        LUA_VERSION_MAJOR "." LUA_VERSION_MINOR
178
#if defined(_WIN32)        /* { */
179
/*
180
** In Windows, any exclamation mark ('!') in the path is replaced by the
181
** path of the directory of the executable file of the current process.
182
*/
183
#define LUA_LDIR        "!\\lua\\"
184
#define LUA_CDIR        "!\\"
185
#define LUA_SHRDIR        "!\\..\\share\\lua\\" LUA_VDIR "\\"
186
#define LUA_PATH_DEFAULT  \
187
                LUA_LDIR"?.lua;"  LUA_LDIR"?\\init.lua;" \
188
                LUA_CDIR"?.lua;"  LUA_CDIR"?\\init.lua;" \
189
                LUA_SHRDIR"?.lua;" LUA_SHRDIR"?\\init.lua;" \
190
                ".\\?.lua;" ".\\?\\init.lua"
191
#define LUA_CPATH_DEFAULT \
192
                LUA_CDIR"?.dll;" \
193
                LUA_CDIR"..\\lib\\lua\\" LUA_VDIR "\\?.dll;" \
194
                LUA_CDIR"loadall.dll;" ".\\?.dll"
195
196
#else                        /* }{ */
197
198
#define LUA_ROOT        "/usr/local/"
199
#define LUA_LDIR        LUA_ROOT "share/lua/" LUA_VDIR "/"
200
#define LUA_CDIR        LUA_ROOT "lib/lua/" LUA_VDIR "/"
201
#define LUA_PATH_DEFAULT  \
202
                LUA_LDIR"?.lua;"  LUA_LDIR"?/init.lua;" \
203
                LUA_CDIR"?.lua;"  LUA_CDIR"?/init.lua;" \
204
                "./?.lua;" "./?/init.lua"
205
#define LUA_CPATH_DEFAULT \
206
                LUA_CDIR"?.so;" LUA_CDIR"loadall.so;" "./?.so"
207
#endif                        /* } */
208
209
210
/*
211
@@ LUA_DIRSEP is the directory separator (for submodules).
212
** CHANGE it if your machine does not use "/" as the directory separator
213
** and is not Windows. (On Windows Lua automatically uses "\".)
214
*/
215
#if defined(_WIN32)
216
#define LUA_DIRSEP        "\\"
217
#else
218
#define LUA_DIRSEP        "/"
219
#endif
220
221
/* }================================================================== */
222
223
224
/*
225
** {==================================================================
226
** Marks for exported symbols in the C code
227
** ===================================================================
228
*/
229
230
/*
231
@@ LUA_API is a mark for all core API functions.
232
@@ LUALIB_API is a mark for all auxiliary library functions.
233
@@ LUAMOD_API is a mark for all standard library opening functions.
234
** CHANGE them if you need to define those functions in some special way.
235
** For instance, if you want to create one Windows DLL with the core and
236
** the libraries, you may want to use the following definition (define
237
** LUA_BUILD_AS_DLL to get it).
238
*/
239
#if defined(LUA_BUILD_AS_DLL)        /* { */
240
241
#if defined(LUA_CORE) || defined(LUA_LIB)        /* { */
242
#define LUA_API __declspec(dllexport)
243
#else                                                /* }{ */
244
#define LUA_API __declspec(dllimport)
245
#endif                                                /* } */
246
247
#else                                /* }{ */
248
249
#define LUA_API                extern
250
251
#endif                                /* } */
252
253
254
/* more often than not the libs go together with the core */
255
#define LUALIB_API        LUA_API
256
#define LUAMOD_API        LUALIB_API
257
258
259
/*
260
@@ LUAI_FUNC is a mark for all extern functions that are not to be
261
** exported to outside modules.
262
@@ LUAI_DDEF and LUAI_DDEC are marks for all extern (const) variables
263
** that are not to be exported to outside modules (LUAI_DDEF for
264
** definitions and LUAI_DDEC for declarations).
265
** CHANGE them if you need to mark them in some special way. Elf/gcc
266
** (versions 3.2 and later) mark them as "hidden" to optimize access
267
** when Lua is compiled as a shared library. Not all elf targets support
268
** this attribute. Unfortunately, gcc does not offer a way to check
269
** whether the target offers that support, and those without support
270
** give a warning about it. To avoid these warnings, change to the
271
** default definition.
272
*/
273
#if defined(__GNUC__) && ((__GNUC__*100 + __GNUC_MINOR__) >= 302) && \
274
    defined(__ELF__)                /* { */
275
#define LUAI_FUNC        __attribute__((visibility("hidden"))) extern
276
#else                                /* }{ */
277
#define LUAI_FUNC        extern
278
#endif                                /* } */
279
280
#define LUAI_DDEC        LUAI_FUNC
281
#define LUAI_DDEF        /* empty */
282
283
/* }================================================================== */
284
285
286
/*
287
** {==================================================================
288
** Compatibility with previous versions
289
** ===================================================================
290
*/
291
292
/*
293
@@ LUA_COMPAT_5_2 controls other macros for compatibility with Lua 5.2.
294
@@ LUA_COMPAT_5_1 controls other macros for compatibility with Lua 5.1.
295
** You can define it to get all options, or change specific options
296
** to fit your specific needs.
297
*/
298
#if defined(LUA_COMPAT_5_2)        /* { */
299
300
/*
301
@@ LUA_COMPAT_MATHLIB controls the presence of several deprecated
302
** functions in the mathematical library.
303
*/
304
#define LUA_COMPAT_MATHLIB
305
306
/*
307
@@ LUA_COMPAT_BITLIB controls the presence of library 'bit32'.
308
*/
309
#define LUA_COMPAT_BITLIB
310
311
/*
312
@@ LUA_COMPAT_IPAIRS controls the effectiveness of the __ipairs metamethod.
313
*/
314
#define LUA_COMPAT_IPAIRS
315
316
/*
317
@@ LUA_COMPAT_APIINTCASTS controls the presence of macros for
318
** manipulating other integer types (lua_pushunsigned, lua_tounsigned,
319
** luaL_checkint, luaL_checklong, etc.)
320
*/
321
#define LUA_COMPAT_APIINTCASTS
322
323
#endif                                /* } */
324
325
326
#if defined(LUA_COMPAT_5_1)        /* { */
327
328
/* Incompatibilities from 5.2 -> 5.3 */
329
#define LUA_COMPAT_MATHLIB
330
#define LUA_COMPAT_APIINTCASTS
331
332
/*
333
@@ LUA_COMPAT_UNPACK controls the presence of global 'unpack'.
334
** You can replace it with 'table.unpack'.
335
*/
336
#define LUA_COMPAT_UNPACK
337
338
/*
339
@@ LUA_COMPAT_LOADERS controls the presence of table 'package.loaders'.
340
** You can replace it with 'package.searchers'.
341
*/
342
#define LUA_COMPAT_LOADERS
343
344
/*
345
@@ macro 'lua_cpcall' emulates deprecated function lua_cpcall.
346
** You can call your C function directly (with light C functions).
347
*/
348
#define lua_cpcall(L,f,u)  \
349
        (lua_pushcfunction(L, (f)), \
350
         lua_pushlightuserdata(L,(u)), \
351
         lua_pcall(L,1,0,0))
352
353
354
/*
355
@@ LUA_COMPAT_LOG10 defines the function 'log10' in the math library.
356
** You can rewrite 'log10(x)' as 'log(x, 10)'.
357
*/
358
#define LUA_COMPAT_LOG10
359
360
/*
361
@@ LUA_COMPAT_LOADSTRING defines the function 'loadstring' in the base
362
** library. You can rewrite 'loadstring(s)' as 'load(s)'.
363
*/
364
#define LUA_COMPAT_LOADSTRING
365
366
/*
367
@@ LUA_COMPAT_MAXN defines the function 'maxn' in the table library.
368
*/
369
#define LUA_COMPAT_MAXN
370
371
/*
372
@@ The following macros supply trivial compatibility for some
373
** changes in the API. The macros themselves document how to
374
** change your code to avoid using them.
375
*/
376
#define lua_strlen(L,i)                lua_rawlen(L, (i))
377
378
#define lua_objlen(L,i)                lua_rawlen(L, (i))
379
380
#define lua_equal(L,idx1,idx2)                lua_compare(L,(idx1),(idx2),LUA_OPEQ)
381
#define lua_lessthan(L,idx1,idx2)        lua_compare(L,(idx1),(idx2),LUA_OPLT)
382
383
/*
384
@@ LUA_COMPAT_MODULE controls compatibility with previous
385
** module functions 'module' (Lua) and 'luaL_register' (C).
386
*/
387
#define LUA_COMPAT_MODULE
388
389
#endif                                /* } */
390
391
392
/*
393
@@ LUA_COMPAT_FLOATSTRING makes Lua format integral floats without a
394
@@ a float mark ('.0').
395
** This macro is not on by default even in compatibility mode,
396
** because this is not really an incompatibility.
397
*/
398
/* #define LUA_COMPAT_FLOATSTRING */
399
400
/* }================================================================== */
401
402
403
404
/*
405
** {==================================================================
406
** Configuration for Numbers.
407
** Change these definitions if no predefined LUA_FLOAT_* / LUA_INT_*
408
** satisfy your needs.
409
** ===================================================================
410
*/
411
412
#ifndef _KERNEL
413
/*
414
@@ LUA_NUMBER is the floating-point type used by Lua.
415
@@ LUAI_UACNUMBER is the result of an 'usual argument conversion'
416
@@ over a floating number.
417
@@ l_mathlim(x) corrects limit name 'x' to the proper float type
418
** by prefixing it with one of FLT/DBL/LDBL.
419
@@ LUA_NUMBER_FRMLEN is the length modifier for writing floats.
420
@@ LUA_NUMBER_FMT is the format for writing floats.
421
@@ lua_number2str converts a float to a string.
422
@@ l_mathop allows the addition of an 'l' or 'f' to all math operations.
423
@@ lua_str2number converts a decimal numeric string to a number.
424
*/
425
426
#if LUA_FLOAT_TYPE == LUA_FLOAT_FLOAT                /* { single float */
427
428
#define LUA_NUMBER        float
429
430
#define l_mathlim(n)                (FLT_##n)
431
432
#define LUAI_UACNUMBER        double
433
434
#define LUA_NUMBER_FRMLEN        ""
435
#define LUA_NUMBER_FMT                "%.7g"
436
437
#define l_mathop(op)                op##f
438
439
#define lua_str2number(s,p)        strtof((s), (p))
440
441
442
#elif LUA_FLOAT_TYPE == LUA_FLOAT_LONGDOUBLE        /* }{ long double */
443
444
#define LUA_NUMBER        long double
445
446
#define l_mathlim(n)                (LDBL_##n)
447
448
#define LUAI_UACNUMBER        long double
449
450
#define LUA_NUMBER_FRMLEN        "L"
451
#define LUA_NUMBER_FMT                "%.19Lg"
452
453
#define l_mathop(op)                op##l
454
455
#define lua_str2number(s,p)        strtold((s), (p))
456
457
#elif LUA_FLOAT_TYPE == LUA_FLOAT_DOUBLE        /* }{ double */
458
459
#define LUA_NUMBER        double
460
461
#define l_mathlim(n)                (DBL_##n)
462
463
#define LUAI_UACNUMBER        double
464
465
#define LUA_NUMBER_FRMLEN        ""
466
#define LUA_NUMBER_FMT                "%.14g"
467
468
#define l_mathop(op)                op
469
470
#define lua_str2number(s,p)        strtod((s), (p))
471
472
#else                                                /* }{ */
473
474
#error "numeric float type not defined"
475
476
#endif                                        /* } */
477
478
479
#define l_floor(x)                (l_mathop(floor)(x))
480
481
#define lua_number2str(s,n)        sprintf((s), LUA_NUMBER_FMT, (n))
482
483
484
/*
485
@@ lua_numbertointeger converts a float number to an integer, or
486
** returns 0 if float is not within the range of a lua_Integer.
487
** (The range comparisons are tricky because of rounding. The tests
488
** here assume a two-complement representation, where MININTEGER always
489
** has an exact representation as a float; MAXINTEGER may not have one,
490
** and therefore its conversion to float may have an ill-defined value.)
491
*/
492
#define lua_numbertointeger(n,p) \
493
  ((n) >= (LUA_NUMBER)(LUA_MININTEGER) && \
494
   (n) < -(LUA_NUMBER)(LUA_MININTEGER) && \
495
      (*(p) = (LUA_INTEGER)(n), 1))
496
497
#endif /*_KERNEL */
498
499
500
/*
501
@@ LUA_INTEGER is the integer type used by Lua.
502
**
503
@@ LUA_UNSIGNED is the unsigned version of LUA_INTEGER.
504
**
505
@@ LUAI_UACINT is the result of an 'usual argument conversion'
506
@@ over a lUA_INTEGER.
507
@@ LUA_INTEGER_FRMLEN is the length modifier for reading/writing integers.
508
@@ LUA_INTEGER_FMT is the format for writing integers.
509
@@ LUA_MAXINTEGER is the maximum value for a LUA_INTEGER.
510
@@ LUA_MININTEGER is the minimum value for a LUA_INTEGER.
511
@@ lua_integer2str converts an integer to a string.
512
*/
513
514
515
/* The following definitions are good for most cases here */
516
517
#define LUA_INTEGER_FMT                "%" LUA_INTEGER_FRMLEN "d"
518
#define lua_integer2str(s,n)        sprintf((s), LUA_INTEGER_FMT, (n))
519
520
#define LUAI_UACINT                LUA_INTEGER
521
522
/*
523
** use LUAI_UACINT here to avoid problems with promotions (which
524
** can turn a comparison between unsigneds into a signed comparison)
525
*/
526
#define LUA_UNSIGNED                unsigned LUAI_UACINT
527
528
529
/* now the variable definitions */
530
531
#if LUA_INT_TYPE == LUA_INT_INT                /* { int */
532
533
#define LUA_INTEGER                int
534
#define LUA_INTEGER_FRMLEN        ""
535
536
#define LUA_MAXINTEGER                INT_MAX
537
#define LUA_MININTEGER                INT_MIN
538
539
#elif LUA_INT_TYPE == LUA_INT_LONG        /* }{ long */
540
541
#define LUA_INTEGER                long
542
#define LUA_INTEGER_FRMLEN        "l"
543
544
#define LUA_MAXINTEGER                LONG_MAX
545
#define LUA_MININTEGER                LONG_MIN
546
547
#elif LUA_INT_TYPE == LUA_INT_LONGLONG        /* }{ long long */
548
549
#if defined(LLONG_MAX)                /* { */
550
/* use ISO C99 stuff */
551
552
#define LUA_INTEGER                long long
553
#define LUA_INTEGER_FRMLEN        "ll"
554
555
#define LUA_MAXINTEGER                LLONG_MAX
556
#define LUA_MININTEGER                LLONG_MIN
557
558
#elif defined(LUA_USE_WINDOWS) /* }{ */
559
/* in Windows, can use specific Windows types */
560
561
#define LUA_INTEGER                __int64
562
#define LUA_INTEGER_FRMLEN        "I64"
563
564
#define LUA_MAXINTEGER                _I64_MAX
565
#define LUA_MININTEGER                _I64_MIN
566
567
#else                                /* }{ */
568
569
#error "Compiler does not support 'long long'. Use option '-DLUA_32BITS' \
570
  or '-DLUA_C89_NUMBERS' (see file 'luaconf.h' for details)"
571
572
#endif                                /* } */
573
574
#else                                /* }{ */
575
576
#error "numeric integer type not defined"
577
578
#endif                                /* } */
579
580
/* }================================================================== */
581
582
583
/*
584
** {==================================================================
585
** Dependencies with C99 and other C details
586
** ===================================================================
587
*/
588
589
/*
590
@@ lua_strx2number converts an hexadecimal numeric string to a number.
591
** In C99, 'strtod' does that conversion. Otherwise, you can
592
** leave 'lua_strx2number' undefined and Lua will provide its own
593
** implementation.
594
*/
595
#if !defined(LUA_USE_C89)
596
#define lua_strx2number(s,p)        lua_str2number(s,p)
597
#endif
598
599
600
/*
601
@@ lua_number2strx converts a float to an hexadecimal numeric string.
602
** In C99, 'sprintf' (with format specifiers '%a'/'%A') does that.
603
** Otherwise, you can leave 'lua_number2strx' undefined and Lua will
604
** provide its own implementation.
605
*/
606
#if !defined(LUA_USE_C89)
607
#define lua_number2strx(L,b,f,n)        sprintf(b,f,n)
608
#endif
609
610
611
/*
612
** 'strtof' and 'opf' variants for math functions are not valid in
613
** C89. Otherwise, the macro 'HUGE_VALF' is a good proxy for testing the
614
** availability of these variants. ('math.h' is already included in
615
** all files that use these macros.)
616
*/
617
#if defined(LUA_USE_C89) || (defined(HUGE_VAL) && !defined(HUGE_VALF))
618
#undef l_mathop  /* variants not available */
619
#undef lua_str2number
620
#define l_mathop(op)                (lua_Number)op  /* no variant */
621
#define lua_str2number(s,p)        ((lua_Number)strtod((s), (p)))
622
#endif
623
624
625
/*
626
@@ LUA_KCONTEXT is the type of the context ('ctx') for continuation
627
** functions.  It must be a numerical type; Lua will use 'intptr_t' if
628
** available, otherwise it will use 'ptrdiff_t' (the nearest thing to
629
** 'intptr_t' in C89)
630
*/
631
#define LUA_KCONTEXT        ptrdiff_t
632
633
#if !defined(LUA_USE_C89) && defined(__STDC_VERSION__) && \
634
    __STDC_VERSION__ >= 199901L
635
#include <stdint.h>
636
#if defined(INTPTR_MAX)  /* even in C99 this type is optional */
637
#undef LUA_KCONTEXT
638
#define LUA_KCONTEXT        intptr_t
639
#endif
640
#endif
641
642
643
/*
644
@@ lua_getlocaledecpoint gets the locale "radix character" (decimal point).
645
** Change that if you do not want to use C locales. (Code using this
646
** macro must include header 'locale.h'.)
647
*/
648
#if !defined(lua_getlocaledecpoint)
649
#define lua_getlocaledecpoint()                (localeconv()->decimal_point[0])
650
#endif
651
652
/* }================================================================== */
653
654
655
/*
656
** {==================================================================
657
** Language Variations
658
** =====================================================================
659
*/
660
661
/*
662
@@ LUA_NOCVTN2S/LUA_NOCVTS2N control how Lua performs some
663
** coercions. Define LUA_NOCVTN2S to turn off automatic coercion from
664
** numbers to strings. Define LUA_NOCVTS2N to turn off automatic
665
** coercion from strings to numbers.
666
*/
667
/* #define LUA_NOCVTN2S */
668
/* #define LUA_NOCVTS2N */
669
670
671
/*
672
@@ LUA_USE_APICHECK turns on several consistency checks on the C API.
673
** Define it as a help when debugging C code.
674
*/
675
#if defined(LUA_USE_APICHECK)
676
#include <assert.h>
677
#define luai_apicheck(l,e)        assert(e)
678
#endif
679
680
/* }================================================================== */
681
682
683
/*
684
** {==================================================================
685
** Macros that affect the API and must be stable (that is, must be the
686
** same when you compile Lua and when you compile code that links to
687
** Lua). You probably do not want/need to change them.
688
** =====================================================================
689
*/
690
691
/*
692
@@ LUAI_MAXSTACK limits the size of the Lua stack.
693
** CHANGE it if you need a different limit. This limit is arbitrary;
694
** its only purpose is to stop Lua from consuming unlimited stack
695
** space (and to reserve some numbers for pseudo-indices).
696
*/
697
#if LUAI_BITSINT >= 32
698
#define LUAI_MAXSTACK                1000000
699
#else
700
#define LUAI_MAXSTACK                15000
701
#endif
702
703
704
/*
705
@@ LUA_EXTRASPACE defines the size of a raw memory area associated with
706
** a Lua state with very fast access.
707
** CHANGE it if you need a different size.
708
*/
709
#define LUA_EXTRASPACE                (sizeof(void *))
710
711
712
/*
713
@@ LUA_IDSIZE gives the maximum size for the description of the source
714
@@ of a function in debug information.
715
** CHANGE it if you want a different size.
716
*/
717
#define LUA_IDSIZE        60
718
719
720
/*
721
@@ LUAL_BUFFERSIZE is the buffer size used by the lauxlib buffer system.
722
** CHANGE it if it uses too much C-stack space. (For long double,
723
** 'string.format("%.99f", 1e4932)' needs ~5030 bytes, so a
724
** smaller buffer would force a memory allocation for each call to
725
** 'string.format'.)
726
*/
727
#if defined(LUA_FLOAT_LONGDOUBLE)
728
#define LUAL_BUFFERSIZE                8192
729
#else
730
#define LUAL_BUFFERSIZE   ((int)(0x80 * sizeof(void*) * sizeof(lua_Integer)))
731
#endif
732
733
/* }================================================================== */
734
735
736
/*
737
@@ LUA_QL describes how error messages quote program elements.
738
** Lua does not use these macros anymore; they are here for
739
** compatibility only.
740
*/
741
#define LUA_QL(x)        "'" x "'"
742
#define LUA_QS                LUA_QL("%s")
743
744
745
746
747
/* =================================================================== */
748
749
/*
750
** Local configuration. You can use this space to add your redefinitions
751
** without modifying the main part of the file.
752
*/
753
754
#if defined(__NetBSD__) || defined(__minix)
755
756
/* Integer types */
757
#undef LUA_INTEGER
758
#undef LUA_INTEGER_FRMLEN
759
#undef LUA_UNSIGNED
760
#undef LUA_MAXUNSIGNED
761
#undef LUA_MAXINTEGER
762
#undef LUA_MININTEGER
763
764
#define LUA_INTEGER                intmax_t
765
#define LUA_INTEGER_FRMLEN        "j"
766
#define LUA_UNSIGNED                uintmax_t
767
#define LUA_MAXUNSIGNED                UINTMAX_MAX
768
#define LUA_MAXINTEGER                INTMAX_MAX
769
#define LUA_MININTEGER                INTMAX_MIN
770
771
/* Path */
772
#undef LUA_ROOT
773
#undef LUA_PATH_DEFAULT
774
#undef LUA_CPATH_DEFAULT
775
776
#define LUA_ROOT        "/usr/"
777
#define LUA_PATH_DEFAULT  \
778
                LUA_LDIR"?.lua;"  LUA_LDIR"?/init.lua;" \
779
                LUA_CDIR"?.lua;"  LUA_CDIR"?/init.lua"
780
#define LUA_CPATH_DEFAULT \
781
                LUA_CDIR"?.so;" LUA_CDIR"loadall.so"
782
783
#ifndef _KERNEL
784
785
#include <stdint.h>
786
787
#else /* _KERNEL */
788
789
#define LUA_NUMBER                LUA_INTEGER
790
#define LUA_NUMBER_FMT                LUA_INTEGER_FMT
791
792
/* setjmp.h */
793
#define LUAI_THROW(L,c)                longjmp(&((c)->b))
794
#define LUAI_TRY(L,c,a)                if (setjmp(&((c)->b)) == 0) { a }
795
#define luai_jmpbuf                label_t
796
797
/* time.h */
798
#include <sys/time.h>
799
#define time(p)                        (time_uptime)
800
801
/* stdio.h */
802
#define lua_writestring(s,l)        printf("%s", (s))
803
#define lua_writeline()                printf("\n")
804
805
#define sprintf(s,fmt,...)        snprintf(s, sizeof(s), fmt, __VA_ARGS__)
806
807
/* string.h */
808
#define strcoll strcmp
809
810
/* stdlib.h */
811
#define abort()                        panic("Lua has aborted!")
812
813
#endif /* _KERNEL */
814
815
#endif /* __NetBSD__ || __minix */
816
817
#endif