1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#ifndef KIcore
#define KIcore
#include <k/type.h>
#include <k/io.h>
#include <k/str.h>
static void* const null = (void*)0;
typedef struct kvar {
ksraw name;
ksraw val;
char* platform;
} kvar;
typedef struct kenv {
kiochan std;
kiochan err;
sz argc; char** argv;
kvar* vars;
} kenv;
#endif
|
<
<
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
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
|
#ifndef KIcore
#define KIcore
#include <k/type.h>
#include <k/io.h>
#include <k/str.h>
typedef struct kvar {
ksraw name;
ksraw val;
char* platform;
} kvar;
typedef struct kenv {
kiochan std;
kiochan err;
sz argc; char** argv;
kvar* vars;
} kenv;
/* i'm really sorry okay */
typedef
#if (__STDC_VERSION__ >= 199901L)
_Bool bool;
#endif
enum
#if !(__STDC_VERSION__ >= 199901L)
bool /* enum bool { */
#endif
{
false = 0, no = 0,
true = 1, yes = 1
}
#if !(__STDC_VERSION__ >= 199901L)
bool /* } bool ; */
#endif
;
#ifndef KFclean
# if (__STDC_VERSION__ >= 199901L) ||\
(__cplusplus >= 201103L)
# define KVvm_args __VA_ARGS__
# define KVvm_spec ...
# define KFfeat_variadic_macro
# else
# define KVvm_args K_TEMP_M2QD52
# define KVvm_spec K_TEMP_M2QD52
# endif
# if defined(__GNUC__) || defined(__clang__)
# define KA(KVvm_spec) __attribute__((KVvm_args))
# else
# define KA(KVvm_spec)
# endif
# define KAformat(KVvm_spec) KA(format(KVvm_args))
# define KAexport(KVvm_spec) KA(visibility(KVvm_args))
# define KAunused KA(unused)
# define KAnoreturn KA(noreturn)
# define KApure KA(const)
# define KAinline KA(always_inline)
# define KAflatten KA(flatten)
# define KAexport_none KAexport("hidden")
# define KAexport_force KAexport("default")
/* now we define standard version flags,
* to make it easy for the user to write
* more portable code. */
# if (__STDC_VERSION__ >= 199901L)
# define KFstd_c89
# define KFstd_c99
# define KVstd c99
# else
# ifdef __STDC__
# define KFstd_c89
# define KVstd c89
# else
# define KVstd K&R /* UH OH */
# endif
# endif
# if (__STDC_VERSION__ >= 201103L)
# define KFstd_c11
# define KVstd c11
# endif
# ifdef __cplusplus
# define KFstd_cpp
# define KVstd c++
# if (__cplusplus >= 201103L)
# define KFstd_cpp11
# define KVstd c++11
# endif /* TODO: add more */
# endif
#endif
/* hooo boy. null. that one's got a storied
* history across the versions and dialects.
* below, we try to find the ideal way to
* offer a "null" "keyword" depending on
* dialect, version, and whether the user
* has asked for macros to be suspended.
* note that this may result in no "null"
* being defined in C++ or K&R C. */
#if defined (__cplusplus) && ! defined(KFclean)
# if __cplusplus >= 201103L
# define null nullptr
# else
# define null ((void*)0)
# endif
#elif defined __STDC__
enum { null = 0 };
/* believe it or not, this is actually
* completely legal. doesn't even raise
* a single warning. i was surprised too. */
#elif ! defined(KFclean)
# define null ((void*)0)
#endif
#ifdef __cplusplus
# define noreturn [[ noreturn ]]
#elif __STDC_VERSION__ >= 201103L
# define noreturn _Noreturn
#else
# define noreturn
#endif
noreturn void kstop(longstat code);
#ifdef KFclean
# undef noreturn
#endif
#endif
|