/* [<][>][^][v][top][bottom][index][help] */
DEFINITIONS
This source file includes following definitions.
- fcntlib_sys_fcntl
- Scm_Init_fcntlib
1 /* Generated by genstub. Do not edit. */
2 #include <gauche.h>
3 #if defined(__CYGWIN__) || defined(__MINGW32__)
4 #define SCM_CGEN_CONST /*empty*/
5 #else
6 #define SCM_CGEN_CONST const
7 #endif
8 #include "gauche/fcntl.h"
9 static SCM_DEFINE_STRING_CONST(fcntlib_F_DUPFD__VAR__NAME, "F_DUPFD", 7, 7);
10 static ScmObj fcntlib_F_DUPFD__VAR = SCM_UNBOUND;
11 static SCM_DEFINE_STRING_CONST(fcntlib_F_GETFD__VAR__NAME, "F_GETFD", 7, 7);
12 static ScmObj fcntlib_F_GETFD__VAR = SCM_UNBOUND;
13 static SCM_DEFINE_STRING_CONST(fcntlib_F_SETFD__VAR__NAME, "F_SETFD", 7, 7);
14 static ScmObj fcntlib_F_SETFD__VAR = SCM_UNBOUND;
15 static SCM_DEFINE_STRING_CONST(fcntlib_F_GETFL__VAR__NAME, "F_GETFL", 7, 7);
16 static ScmObj fcntlib_F_GETFL__VAR = SCM_UNBOUND;
17 static SCM_DEFINE_STRING_CONST(fcntlib_F_SETFL__VAR__NAME, "F_SETFL", 7, 7);
18 static ScmObj fcntlib_F_SETFL__VAR = SCM_UNBOUND;
19 static SCM_DEFINE_STRING_CONST(fcntlib_F_GETLK__VAR__NAME, "F_GETLK", 7, 7);
20 static ScmObj fcntlib_F_GETLK__VAR = SCM_UNBOUND;
21 static SCM_DEFINE_STRING_CONST(fcntlib_F_SETLK__VAR__NAME, "F_SETLK", 7, 7);
22 static ScmObj fcntlib_F_SETLK__VAR = SCM_UNBOUND;
23 static SCM_DEFINE_STRING_CONST(fcntlib_F_SETLKW__VAR__NAME, "F_SETLKW", 8, 8);
24 static ScmObj fcntlib_F_SETLKW__VAR = SCM_UNBOUND;
25 static SCM_DEFINE_STRING_CONST(fcntlib_F_RDLCK__VAR__NAME, "F_RDLCK", 7, 7);
26 static ScmObj fcntlib_F_RDLCK__VAR = SCM_UNBOUND;
27 static SCM_DEFINE_STRING_CONST(fcntlib_F_WRLCK__VAR__NAME, "F_WRLCK", 7, 7);
28 static ScmObj fcntlib_F_WRLCK__VAR = SCM_UNBOUND;
29 static SCM_DEFINE_STRING_CONST(fcntlib_F_UNLCK__VAR__NAME, "F_UNLCK", 7, 7);
30 static ScmObj fcntlib_F_UNLCK__VAR = SCM_UNBOUND;
31 #if defined(F_GETOWN)
32 static SCM_DEFINE_STRING_CONST(fcntlib_F_GETOWN__VAR__NAME, "F_GETOWN", 8, 8);
33 static ScmObj fcntlib_F_GETOWN__VAR = SCM_UNBOUND;
34 #endif /*defined(F_GETOWN)*/
35 #if defined(F_SETOWN)
36 static SCM_DEFINE_STRING_CONST(fcntlib_F_SETOWN__VAR__NAME, "F_SETOWN", 8, 8);
37 static ScmObj fcntlib_F_SETOWN__VAR = SCM_UNBOUND;
38 #endif /*defined(F_SETOWN)*/
39 #if defined(F_GETSIG)
40 static SCM_DEFINE_STRING_CONST(fcntlib_F_GETSIG__VAR__NAME, "F_GETSIG", 8, 8);
41 static ScmObj fcntlib_F_GETSIG__VAR = SCM_UNBOUND;
42 #endif /*defined(F_GETSIG)*/
43 #if defined(F_SETSIG)
44 static SCM_DEFINE_STRING_CONST(fcntlib_F_SETSIG__VAR__NAME, "F_SETSIG", 8, 8);
45 static ScmObj fcntlib_F_SETSIG__VAR = SCM_UNBOUND;
46 #endif /*defined(F_SETSIG)*/
47 #if defined(F_GETLEASE)
48 static SCM_DEFINE_STRING_CONST(fcntlib_F_GETLEASE__VAR__NAME, "F_GETLEASE", 10, 10);
49 static ScmObj fcntlib_F_GETLEASE__VAR = SCM_UNBOUND;
50 #endif /*defined(F_GETLEASE)*/
51 #if defined(F_SETLEASE)
52 static SCM_DEFINE_STRING_CONST(fcntlib_F_SETLEASE__VAR__NAME, "F_SETLEASE", 10, 10);
53 static ScmObj fcntlib_F_SETLEASE__VAR = SCM_UNBOUND;
54 #endif /*defined(F_SETLEASE)*/
55 #if defined(F_NOTIFY)
56 static SCM_DEFINE_STRING_CONST(fcntlib_F_NOTIFY__VAR__NAME, "F_NOTIFY", 8, 8);
57 static ScmObj fcntlib_F_NOTIFY__VAR = SCM_UNBOUND;
58 #endif /*defined(F_NOTIFY)*/
59 #if defined(FD_CLOEXEC)
60 static SCM_DEFINE_STRING_CONST(fcntlib_FD_CLOEXEC__VAR__NAME, "FD_CLOEXEC", 10, 10);
61 static ScmObj fcntlib_FD_CLOEXEC__VAR = SCM_UNBOUND;
62 #endif /*defined(FD_CLOEXEC)*/
63 static SCM_DEFINE_STRING_CONST(fcntlib_O_ACCMODE__VAR__NAME, "O_ACCMODE", 9, 9);
64 static ScmObj fcntlib_O_ACCMODE__VAR = SCM_UNBOUND;
65 static SCM_DEFINE_STRING_CONST(fcntlib_O_RDONLY__VAR__NAME, "O_RDONLY", 8, 8);
66 static ScmObj fcntlib_O_RDONLY__VAR = SCM_UNBOUND;
67 static SCM_DEFINE_STRING_CONST(fcntlib_O_WRONLY__VAR__NAME, "O_WRONLY", 8, 8);
68 static ScmObj fcntlib_O_WRONLY__VAR = SCM_UNBOUND;
69 static SCM_DEFINE_STRING_CONST(fcntlib_O_RDWR__VAR__NAME, "O_RDWR", 6, 6);
70 static ScmObj fcntlib_O_RDWR__VAR = SCM_UNBOUND;
71 static SCM_DEFINE_STRING_CONST(fcntlib_O_APPEND__VAR__NAME, "O_APPEND", 8, 8);
72 static ScmObj fcntlib_O_APPEND__VAR = SCM_UNBOUND;
73 static SCM_DEFINE_STRING_CONST(fcntlib_O_CREAT__VAR__NAME, "O_CREAT", 7, 7);
74 static ScmObj fcntlib_O_CREAT__VAR = SCM_UNBOUND;
75 static SCM_DEFINE_STRING_CONST(fcntlib_O_EXCL__VAR__NAME, "O_EXCL", 6, 6);
76 static ScmObj fcntlib_O_EXCL__VAR = SCM_UNBOUND;
77 #if defined(O_NOCTTY)
78 static SCM_DEFINE_STRING_CONST(fcntlib_O_NOCTTY__VAR__NAME, "O_NOCTTY", 8, 8);
79 static ScmObj fcntlib_O_NOCTTY__VAR = SCM_UNBOUND;
80 #endif /*defined(O_NOCTTY)*/
81 #if defined(O_NONBLOCK)
82 static SCM_DEFINE_STRING_CONST(fcntlib_O_NONBLOCK__VAR__NAME, "O_NONBLOCK", 10, 10);
83 static ScmObj fcntlib_O_NONBLOCK__VAR = SCM_UNBOUND;
84 #endif /*defined(O_NONBLOCK)*/
85 #if defined(O_ASYNC)
86 static SCM_DEFINE_STRING_CONST(fcntlib_O_ASYNC__VAR__NAME, "O_ASYNC", 7, 7);
87 static ScmObj fcntlib_O_ASYNC__VAR = SCM_UNBOUND;
88 #endif /*defined(O_ASYNC)*/
89 static SCM_DEFINE_STRING_CONST(fcntlib_O_TRUNC__VAR__NAME, "O_TRUNC", 7, 7);
90 static ScmObj fcntlib_O_TRUNC__VAR = SCM_UNBOUND;
91 #if defined(F_NOTIFY)
92 static SCM_DEFINE_STRING_CONST(fcntlib_DN_ACCESS__VAR__NAME, "DN_ACCESS", 9, 9);
93 static ScmObj fcntlib_DN_ACCESS__VAR = SCM_UNBOUND;
94 #endif /*defined(F_NOTIFY)*/
95 #if defined(F_NOTIFY)
96 static SCM_DEFINE_STRING_CONST(fcntlib_DN_MODIFY__VAR__NAME, "DN_MODIFY", 9, 9);
97 static ScmObj fcntlib_DN_MODIFY__VAR = SCM_UNBOUND;
98 #endif /*defined(F_NOTIFY)*/
99 #if defined(F_NOTIFY)
100 static SCM_DEFINE_STRING_CONST(fcntlib_DN_CREATE__VAR__NAME, "DN_CREATE", 9, 9);
101 static ScmObj fcntlib_DN_CREATE__VAR = SCM_UNBOUND;
102 #endif /*defined(F_NOTIFY)*/
103 #if defined(F_NOTIFY)
104 static SCM_DEFINE_STRING_CONST(fcntlib_DN_DELETE__VAR__NAME, "DN_DELETE", 9, 9);
105 static ScmObj fcntlib_DN_DELETE__VAR = SCM_UNBOUND;
106 #endif /*defined(F_NOTIFY)*/
107 #if defined(F_NOTIFY)
108 static SCM_DEFINE_STRING_CONST(fcntlib_DN_RENAME__VAR__NAME, "DN_RENAME", 9, 9);
109 static ScmObj fcntlib_DN_RENAME__VAR = SCM_UNBOUND;
110 #endif /*defined(F_NOTIFY)*/
111 #if defined(F_NOTIFY)
112 static SCM_DEFINE_STRING_CONST(fcntlib_DN_ATTRIB__VAR__NAME, "DN_ATTRIB", 9, 9);
113 static ScmObj fcntlib_DN_ATTRIB__VAR = SCM_UNBOUND;
114 #endif /*defined(F_NOTIFY)*/
115 #if defined(F_NOTIFY)
116 static SCM_DEFINE_STRING_CONST(fcntlib_DN_MULTISHOT__VAR__NAME, "DN_MULTISHOT", 12, 12);
117 static ScmObj fcntlib_DN_MULTISHOT__VAR = SCM_UNBOUND;
118 #endif /*defined(F_NOTIFY)*/
119 static ScmObj fcntlib_sys_fcntl(ScmObj *SCM_FP, int SCM_ARGCNT, void *data_)
120 {
121 ScmObj port_or_fd_scm;
122 ScmObj port_or_fd;
123 ScmObj op_scm;
124 int op;
125 ScmObj arg_scm;
126 ScmObj arg;
127 ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
128 SCM_ENTER_SUBR("sys-fcntl");
129 if (Scm_Length(SCM_OPTARGS) > 1)
130 Scm_Error("too many arguments: up to 1 is expected, %d given.", Scm_Length(SCM_OPTARGS));
131 port_or_fd_scm = SCM_ARGREF(0);
132 port_or_fd = (port_or_fd_scm);
133 op_scm = SCM_ARGREF(1);
134 if (!SCM_INTP(op_scm)) Scm_Error("small integer required, but got %S", op_scm);
135 op = SCM_INT_VALUE(op_scm);
136 if (SCM_NULLP(SCM_OPTARGS)) arg_scm = SCM_UNBOUND;
137 else {
138 arg_scm = SCM_CAR(SCM_OPTARGS);
139 SCM_OPTARGS = SCM_CDR(SCM_OPTARGS);
140 }
141 arg = (arg_scm);
142 {
143 {
144 ScmObj SCM_RESULT;
145 SCM_RESULT = Scm_SysFcntl(port_or_fd, op, arg);
146 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
147 }
148 }
149 }
150
151 static SCM_DEFINE_STRING_CONST(fcntlib_sys_fcntl__NAME, "sys-fcntl", 9, 9);
152 static SCM_DEFINE_SUBR(fcntlib_sys_fcntl__STUB, 2, 1, SCM_OBJ(&fcntlib_sys_fcntl__NAME), fcntlib_sys_fcntl, NULL, NULL);
153
154 void Scm_Init_fcntlib(ScmModule *module)
155 {
156
157 SCM_DEFINE(module, "sys-fcntl", SCM_OBJ(&fcntlib_sys_fcntl__STUB));
158 #if defined(F_NOTIFY)
159 fcntlib_DN_MULTISHOT__VAR = Scm_Intern(&fcntlib_DN_MULTISHOT__VAR__NAME);
160 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_DN_MULTISHOT__VAR)), SCM_OBJ(Scm_MakeInteger(DN_MULTISHOT)));
161 #endif /* defined(F_NOTIFY) */
162 #if defined(F_NOTIFY)
163 fcntlib_DN_ATTRIB__VAR = Scm_Intern(&fcntlib_DN_ATTRIB__VAR__NAME);
164 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_DN_ATTRIB__VAR)), SCM_OBJ(Scm_MakeInteger(DN_ATTRIB)));
165 #endif /* defined(F_NOTIFY) */
166 #if defined(F_NOTIFY)
167 fcntlib_DN_RENAME__VAR = Scm_Intern(&fcntlib_DN_RENAME__VAR__NAME);
168 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_DN_RENAME__VAR)), SCM_OBJ(Scm_MakeInteger(DN_RENAME)));
169 #endif /* defined(F_NOTIFY) */
170 #if defined(F_NOTIFY)
171 fcntlib_DN_DELETE__VAR = Scm_Intern(&fcntlib_DN_DELETE__VAR__NAME);
172 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_DN_DELETE__VAR)), SCM_OBJ(Scm_MakeInteger(DN_DELETE)));
173 #endif /* defined(F_NOTIFY) */
174 #if defined(F_NOTIFY)
175 fcntlib_DN_CREATE__VAR = Scm_Intern(&fcntlib_DN_CREATE__VAR__NAME);
176 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_DN_CREATE__VAR)), SCM_OBJ(Scm_MakeInteger(DN_CREATE)));
177 #endif /* defined(F_NOTIFY) */
178 #if defined(F_NOTIFY)
179 fcntlib_DN_MODIFY__VAR = Scm_Intern(&fcntlib_DN_MODIFY__VAR__NAME);
180 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_DN_MODIFY__VAR)), SCM_OBJ(Scm_MakeInteger(DN_MODIFY)));
181 #endif /* defined(F_NOTIFY) */
182 #if defined(F_NOTIFY)
183 fcntlib_DN_ACCESS__VAR = Scm_Intern(&fcntlib_DN_ACCESS__VAR__NAME);
184 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_DN_ACCESS__VAR)), SCM_OBJ(Scm_MakeInteger(DN_ACCESS)));
185 #endif /* defined(F_NOTIFY) */
186 fcntlib_O_TRUNC__VAR = Scm_Intern(&fcntlib_O_TRUNC__VAR__NAME);
187 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_O_TRUNC__VAR)), SCM_OBJ(Scm_MakeInteger(O_TRUNC)));
188 #if defined(O_ASYNC)
189 fcntlib_O_ASYNC__VAR = Scm_Intern(&fcntlib_O_ASYNC__VAR__NAME);
190 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_O_ASYNC__VAR)), SCM_OBJ(Scm_MakeInteger(O_ASYNC)));
191 #endif /* defined(O_ASYNC) */
192 #if defined(O_NONBLOCK)
193 fcntlib_O_NONBLOCK__VAR = Scm_Intern(&fcntlib_O_NONBLOCK__VAR__NAME);
194 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_O_NONBLOCK__VAR)), SCM_OBJ(Scm_MakeInteger(O_NONBLOCK)));
195 #endif /* defined(O_NONBLOCK) */
196 #if defined(O_NOCTTY)
197 fcntlib_O_NOCTTY__VAR = Scm_Intern(&fcntlib_O_NOCTTY__VAR__NAME);
198 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_O_NOCTTY__VAR)), SCM_OBJ(Scm_MakeInteger(O_NOCTTY)));
199 #endif /* defined(O_NOCTTY) */
200 fcntlib_O_EXCL__VAR = Scm_Intern(&fcntlib_O_EXCL__VAR__NAME);
201 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_O_EXCL__VAR)), SCM_OBJ(Scm_MakeInteger(O_EXCL)));
202 fcntlib_O_CREAT__VAR = Scm_Intern(&fcntlib_O_CREAT__VAR__NAME);
203 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_O_CREAT__VAR)), SCM_OBJ(Scm_MakeInteger(O_CREAT)));
204 fcntlib_O_APPEND__VAR = Scm_Intern(&fcntlib_O_APPEND__VAR__NAME);
205 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_O_APPEND__VAR)), SCM_OBJ(Scm_MakeInteger(O_APPEND)));
206 fcntlib_O_RDWR__VAR = Scm_Intern(&fcntlib_O_RDWR__VAR__NAME);
207 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_O_RDWR__VAR)), SCM_OBJ(Scm_MakeInteger(O_RDWR)));
208 fcntlib_O_WRONLY__VAR = Scm_Intern(&fcntlib_O_WRONLY__VAR__NAME);
209 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_O_WRONLY__VAR)), SCM_OBJ(Scm_MakeInteger(O_WRONLY)));
210 fcntlib_O_RDONLY__VAR = Scm_Intern(&fcntlib_O_RDONLY__VAR__NAME);
211 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_O_RDONLY__VAR)), SCM_OBJ(Scm_MakeInteger(O_RDONLY)));
212 fcntlib_O_ACCMODE__VAR = Scm_Intern(&fcntlib_O_ACCMODE__VAR__NAME);
213 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_O_ACCMODE__VAR)), SCM_OBJ(Scm_MakeInteger(O_ACCMODE)));
214 #if defined(FD_CLOEXEC)
215 fcntlib_FD_CLOEXEC__VAR = Scm_Intern(&fcntlib_FD_CLOEXEC__VAR__NAME);
216 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_FD_CLOEXEC__VAR)), SCM_OBJ(Scm_MakeInteger(FD_CLOEXEC)));
217 #endif /* defined(FD_CLOEXEC) */
218 #if defined(F_NOTIFY)
219 fcntlib_F_NOTIFY__VAR = Scm_Intern(&fcntlib_F_NOTIFY__VAR__NAME);
220 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_NOTIFY__VAR)), SCM_OBJ(Scm_MakeInteger(F_NOTIFY)));
221 #endif /* defined(F_NOTIFY) */
222 #if defined(F_SETLEASE)
223 fcntlib_F_SETLEASE__VAR = Scm_Intern(&fcntlib_F_SETLEASE__VAR__NAME);
224 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_SETLEASE__VAR)), SCM_OBJ(Scm_MakeInteger(F_SETLEASE)));
225 #endif /* defined(F_SETLEASE) */
226 #if defined(F_GETLEASE)
227 fcntlib_F_GETLEASE__VAR = Scm_Intern(&fcntlib_F_GETLEASE__VAR__NAME);
228 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_GETLEASE__VAR)), SCM_OBJ(Scm_MakeInteger(F_GETLEASE)));
229 #endif /* defined(F_GETLEASE) */
230 #if defined(F_SETSIG)
231 fcntlib_F_SETSIG__VAR = Scm_Intern(&fcntlib_F_SETSIG__VAR__NAME);
232 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_SETSIG__VAR)), SCM_OBJ(Scm_MakeInteger(F_SETSIG)));
233 #endif /* defined(F_SETSIG) */
234 #if defined(F_GETSIG)
235 fcntlib_F_GETSIG__VAR = Scm_Intern(&fcntlib_F_GETSIG__VAR__NAME);
236 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_GETSIG__VAR)), SCM_OBJ(Scm_MakeInteger(F_GETSIG)));
237 #endif /* defined(F_GETSIG) */
238 #if defined(F_SETOWN)
239 fcntlib_F_SETOWN__VAR = Scm_Intern(&fcntlib_F_SETOWN__VAR__NAME);
240 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_SETOWN__VAR)), SCM_OBJ(Scm_MakeInteger(F_SETOWN)));
241 #endif /* defined(F_SETOWN) */
242 #if defined(F_GETOWN)
243 fcntlib_F_GETOWN__VAR = Scm_Intern(&fcntlib_F_GETOWN__VAR__NAME);
244 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_GETOWN__VAR)), SCM_OBJ(Scm_MakeInteger(F_GETOWN)));
245 #endif /* defined(F_GETOWN) */
246 fcntlib_F_UNLCK__VAR = Scm_Intern(&fcntlib_F_UNLCK__VAR__NAME);
247 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_UNLCK__VAR)), SCM_OBJ(Scm_MakeInteger(F_UNLCK)));
248 fcntlib_F_WRLCK__VAR = Scm_Intern(&fcntlib_F_WRLCK__VAR__NAME);
249 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_WRLCK__VAR)), SCM_OBJ(Scm_MakeInteger(F_WRLCK)));
250 fcntlib_F_RDLCK__VAR = Scm_Intern(&fcntlib_F_RDLCK__VAR__NAME);
251 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_RDLCK__VAR)), SCM_OBJ(Scm_MakeInteger(F_RDLCK)));
252 fcntlib_F_SETLKW__VAR = Scm_Intern(&fcntlib_F_SETLKW__VAR__NAME);
253 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_SETLKW__VAR)), SCM_OBJ(Scm_MakeInteger(F_SETLKW)));
254 fcntlib_F_SETLK__VAR = Scm_Intern(&fcntlib_F_SETLK__VAR__NAME);
255 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_SETLK__VAR)), SCM_OBJ(Scm_MakeInteger(F_SETLK)));
256 fcntlib_F_GETLK__VAR = Scm_Intern(&fcntlib_F_GETLK__VAR__NAME);
257 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_GETLK__VAR)), SCM_OBJ(Scm_MakeInteger(F_GETLK)));
258 fcntlib_F_SETFL__VAR = Scm_Intern(&fcntlib_F_SETFL__VAR__NAME);
259 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_SETFL__VAR)), SCM_OBJ(Scm_MakeInteger(F_SETFL)));
260 fcntlib_F_GETFL__VAR = Scm_Intern(&fcntlib_F_GETFL__VAR__NAME);
261 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_GETFL__VAR)), SCM_OBJ(Scm_MakeInteger(F_GETFL)));
262 fcntlib_F_SETFD__VAR = Scm_Intern(&fcntlib_F_SETFD__VAR__NAME);
263 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_SETFD__VAR)), SCM_OBJ(Scm_MakeInteger(F_SETFD)));
264 fcntlib_F_GETFD__VAR = Scm_Intern(&fcntlib_F_GETFD__VAR__NAME);
265 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_GETFD__VAR)), SCM_OBJ(Scm_MakeInteger(F_GETFD)));
266 fcntlib_F_DUPFD__VAR = Scm_Intern(&fcntlib_F_DUPFD__VAR__NAME);
267 Scm_DefineConst(module, SCM_SYMBOL(SCM_OBJ(fcntlib_F_DUPFD__VAR)), SCM_OBJ(Scm_MakeInteger(F_DUPFD)));
268 }