/[guile]/guile/guile-core/libguile/stime.c
ViewVC logotype

Diff of /guile/guile-core/libguile/stime.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.74 by ttn, Thu Mar 14 03:47:43 2002 UTC revision 1.75 by xxhanwen, Sat Jul 20 14:08:34 2002 UTC
# Line 195  SCM_DEFINE (scm_times, "times", 0, 0, 0, Line 195  SCM_DEFINE (scm_times, "times", 0, 0, 0,
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
# Line 282  filltime (struct tm *bd_time, int zoff, Line 282  filltime (struct tm *bd_time, int zoff,
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    
# Line 439  SCM_DEFINE (scm_gmtime, "gmtime", 1, 0, Line 439  SCM_DEFINE (scm_gmtime, "gmtime", 1, 0,
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)

Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26