69 |
}; |
}; |
70 |
|
|
71 |
|
|
72 |
/*---------. |
/** |
73 |
| getcwd() | |
* getcwd() |
74 |
`---------*/ |
**/ |
75 |
M4BUILTIN_HANDLER (getcwd) |
M4BUILTIN_HANDLER (getcwd) |
76 |
{ |
{ |
77 |
char buf[1024]; |
char buf[1024]; |
86 |
m4_shipout_string (obs, buf, 0 , FALSE); |
m4_shipout_string (obs, buf, 0 , FALSE); |
87 |
} |
} |
88 |
|
|
89 |
/*-------------. |
/** |
90 |
| getenv(NAME) | |
* getenv(NAME) |
91 |
`-------------*/ |
**/ |
92 |
M4BUILTIN_HANDLER (getenv) |
M4BUILTIN_HANDLER (getenv) |
93 |
{ |
{ |
94 |
char *env; |
char *env; |
102 |
m4_shipout_string (obs, env, 0, FALSE); |
m4_shipout_string (obs, env, 0, FALSE); |
103 |
} |
} |
104 |
|
|
105 |
/*---------------------------------. |
/** |
106 |
| setenv(NAME, VALUE, [OVERWRITE]) | |
* setenv(NAME, VALUE, [OVERWRITE]) |
107 |
`---------------------------------*/ |
**/ |
108 |
M4BUILTIN_HANDLER (setenv) |
M4BUILTIN_HANDLER (setenv) |
109 |
{ |
{ |
110 |
int overwrite = 1; |
int overwrite = 1; |
136 |
#endif /* HAVE_SETENV */ |
#endif /* HAVE_SETENV */ |
137 |
} |
} |
138 |
|
|
139 |
/*---------------. |
/** |
140 |
| unsetenv(NAME) | |
* unsetenv(NAME) |
141 |
`---------------*/ |
**/ |
142 |
M4BUILTIN_HANDLER (unsetenv) |
M4BUILTIN_HANDLER (unsetenv) |
143 |
{ |
{ |
|
|
|
144 |
if (m4_bad_argc (argv[0], argc, 2, 2)) |
if (m4_bad_argc (argv[0], argc, 2, 2)) |
145 |
return; |
return; |
146 |
|
|
149 |
#endif /* HAVE_UNSETENV */ |
#endif /* HAVE_UNSETENV */ |
150 |
} |
} |
151 |
|
|
152 |
/*-----------. |
/** |
153 |
| getlogin() | |
* getlogin() |
154 |
`-----------*/ |
**/ |
155 |
M4BUILTIN_HANDLER (getlogin) |
M4BUILTIN_HANDLER (getlogin) |
156 |
{ |
{ |
157 |
char *login; |
char *login; |
165 |
m4_shipout_string (obs, login, 0, FALSE); |
m4_shipout_string (obs, login, 0, FALSE); |
166 |
} |
} |
167 |
|
|
168 |
/*---------. |
/** |
169 |
| getpid() | |
* getpid() |
170 |
`---------*/ |
**/ |
171 |
M4BUILTIN_HANDLER (getpid) |
M4BUILTIN_HANDLER (getpid) |
172 |
{ |
{ |
173 |
if (m4_bad_argc (argv[0], argc, 1, 1)) |
if (m4_bad_argc (argv[0], argc, 1, 1)) |
176 |
m4_shipout_int(obs, getpid()); |
m4_shipout_int(obs, getpid()); |
177 |
} |
} |
178 |
|
|
179 |
/*----------. |
/** |
180 |
| getppid() | |
* getppid() |
181 |
`----------*/ |
**/ |
182 |
M4BUILTIN_HANDLER (getppid) |
M4BUILTIN_HANDLER (getppid) |
183 |
{ |
{ |
184 |
if (m4_bad_argc (argv[0], argc, 1, 1)) |
if (m4_bad_argc (argv[0], argc, 1, 1)) |
187 |
m4_shipout_int(obs, getppid()); |
m4_shipout_int(obs, getppid()); |
188 |
} |
} |
189 |
|
|
190 |
/*---------------. |
/** |
191 |
| getpwnam(NAME) | |
* getpwnam(NAME) |
192 |
`---------------*/ |
**/ |
193 |
M4BUILTIN_HANDLER (getpwnam) |
M4BUILTIN_HANDLER (getpwnam) |
194 |
{ |
{ |
195 |
struct passwd *pw; |
struct passwd *pw; |
217 |
} |
} |
218 |
} |
} |
219 |
|
|
220 |
/*--------------. |
/** |
221 |
| getpwuid(UID) | |
* getpwuid(UID) |
222 |
`--------------*/ |
**/ |
223 |
M4BUILTIN_HANDLER (getpwuid) |
M4BUILTIN_HANDLER (getpwuid) |
224 |
{ |
{ |
225 |
struct passwd *pw; |
struct passwd *pw; |
251 |
} |
} |
252 |
} |
} |
253 |
|
|
254 |
/*-----------. |
/** |
255 |
| hostname() | |
* hostname() |
256 |
`-----------*/ |
**/ |
257 |
M4BUILTIN_HANDLER (hostname) |
M4BUILTIN_HANDLER (hostname) |
258 |
{ |
{ |
259 |
char buf[1024]; |
char buf[1024]; |
267 |
m4_shipout_string (obs, buf, 0, FALSE); |
m4_shipout_string (obs, buf, 0, FALSE); |
268 |
} |
} |
269 |
|
|
270 |
/*-------. |
/** |
271 |
| rand() | |
* rand() |
272 |
`-------*/ |
**/ |
273 |
M4BUILTIN_HANDLER (rand) |
M4BUILTIN_HANDLER (rand) |
274 |
{ |
{ |
275 |
if (m4_bad_argc (argv[0], argc, 1, 1)) |
if (m4_bad_argc (argv[0], argc, 1, 1)) |
278 |
m4_shipout_int(obs, rand()); |
m4_shipout_int(obs, rand()); |
279 |
} |
} |
280 |
|
|
281 |
/*--------. |
/** |
282 |
| srand() | |
* srand() |
283 |
`--------*/ |
**/ |
284 |
M4BUILTIN_HANDLER (srand) |
M4BUILTIN_HANDLER (srand) |
285 |
{ |
{ |
286 |
int seed; |
int seed; |
299 |
srand(seed); |
srand(seed); |
300 |
} |
} |
301 |
|
|
302 |
/*--------. |
/** |
303 |
| uname() | |
* uname() |
304 |
`--------*/ |
**/ |
305 |
M4BUILTIN_HANDLER (uname) |
M4BUILTIN_HANDLER (uname) |
306 |
{ |
{ |
307 |
struct utsname ut; |
struct utsname ut; |
323 |
} |
} |
324 |
} |
} |
325 |
|
|
326 |
/*---------. |
/** |
327 |
| getuid() | |
* getuid() |
328 |
`---------*/ |
**/ |
329 |
M4BUILTIN_HANDLER (getuid) |
M4BUILTIN_HANDLER (getuid) |
330 |
{ |
{ |
331 |
if (m4_bad_argc (argv[0], argc, 1, 1)) |
if (m4_bad_argc (argv[0], argc, 1, 1)) |