195 |
rv = times (&t); |
rv = times (&t); |
196 |
if (rv == -1) |
if (rv == -1) |
197 |
SCM_SYSERROR; |
SCM_SYSERROR; |
198 |
SCM_VELTS (result)[0] = scm_long2num (rv); |
SCM_VECTOR_SET (result, 0, scm_long2num (rv)); |
199 |
SCM_VELTS (result)[1] = scm_long2num (t.tms_utime); |
SCM_VECTOR_SET (result, 1, scm_long2num (t.tms_utime)); |
200 |
SCM_VELTS (result)[2] = scm_long2num (t.tms_stime); |
SCM_VECTOR_SET (result, 2, scm_long2num (t.tms_stime)); |
201 |
SCM_VELTS (result)[3] = scm_long2num (t.tms_cutime); |
SCM_VECTOR_SET (result ,3, scm_long2num (t.tms_cutime)); |
202 |
SCM_VELTS (result)[4] = scm_long2num (t.tms_cstime); |
SCM_VECTOR_SET (result, 4, scm_long2num (t.tms_cstime)); |
203 |
return result; |
return result; |
204 |
} |
} |
205 |
#undef FUNC_NAME |
#undef FUNC_NAME |
282 |
{ |
{ |
283 |
SCM result = scm_c_make_vector (11, SCM_UNDEFINED); |
SCM result = scm_c_make_vector (11, SCM_UNDEFINED); |
284 |
|
|
285 |
SCM_VELTS (result)[0] = SCM_MAKINUM (bd_time->tm_sec); |
SCM_VECTOR_SET (result,0, SCM_MAKINUM (bd_time->tm_sec)); |
286 |
SCM_VELTS (result)[1] = SCM_MAKINUM (bd_time->tm_min); |
SCM_VECTOR_SET (result,1, SCM_MAKINUM (bd_time->tm_min)); |
287 |
SCM_VELTS (result)[2] = SCM_MAKINUM (bd_time->tm_hour); |
SCM_VECTOR_SET (result,2, SCM_MAKINUM (bd_time->tm_hour)); |
288 |
SCM_VELTS (result)[3] = SCM_MAKINUM (bd_time->tm_mday); |
SCM_VECTOR_SET (result,3, SCM_MAKINUM (bd_time->tm_mday)); |
289 |
SCM_VELTS (result)[4] = SCM_MAKINUM (bd_time->tm_mon); |
SCM_VECTOR_SET (result,4, SCM_MAKINUM (bd_time->tm_mon)); |
290 |
SCM_VELTS (result)[5] = SCM_MAKINUM (bd_time->tm_year); |
SCM_VECTOR_SET (result,5, SCM_MAKINUM (bd_time->tm_year)); |
291 |
SCM_VELTS (result)[6] = SCM_MAKINUM (bd_time->tm_wday); |
SCM_VECTOR_SET (result,6, SCM_MAKINUM (bd_time->tm_wday)); |
292 |
SCM_VELTS (result)[7] = SCM_MAKINUM (bd_time->tm_yday); |
SCM_VECTOR_SET (result,7, SCM_MAKINUM (bd_time->tm_yday)); |
293 |
SCM_VELTS (result)[8] = SCM_MAKINUM (bd_time->tm_isdst); |
SCM_VECTOR_SET (result,8, SCM_MAKINUM (bd_time->tm_isdst)); |
294 |
SCM_VELTS (result)[9] = SCM_MAKINUM (zoff); |
SCM_VECTOR_SET (result,9, SCM_MAKINUM (zoff)); |
295 |
SCM_VELTS (result)[10] = zname ? scm_makfrom0str (zname) : SCM_BOOL_F; |
SCM_VECTOR_SET (result,10, zname ? scm_makfrom0str (zname) : SCM_BOOL_F); |
296 |
return result; |
return result; |
297 |
} |
} |
298 |
|
|
439 |
static void |
static void |
440 |
bdtime2c (SCM sbd_time, struct tm *lt, int pos, const char *subr) |
bdtime2c (SCM sbd_time, struct tm *lt, int pos, const char *subr) |
441 |
{ |
{ |
442 |
SCM *velts; |
SCM const *velts; |
443 |
int i; |
int i; |
444 |
|
|
445 |
SCM_ASSERT (SCM_VECTORP (sbd_time) |
SCM_ASSERT (SCM_VECTORP (sbd_time) |