/[gcl]/gcl/o/unixtime.c
ViewVC logotype

Diff of /gcl/o/unixtime.c

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

revision 1.16 by mjthomas, Mon Jan 13 05:34:55 2003 UTC revision 1.17 by camm, Sat Feb 15 00:38:28 2003 UTC
# Line 60  int usleep ( unsigned int microseconds ) Line 60  int usleep ( unsigned int microseconds )
60    
61  #  endif  #  endif
62    
63  void siLget_system_time_zone(void);  static void siLget_system_time_zone(void);
64    
65  #endif /* __MINGW32__ or  !defined NO_SYSTEM_TIME_ZONE */  #endif /* __MINGW32__ or  !defined NO_SYSTEM_TIME_ZONE */
66    
# Line 121  unix_time_to_universal_time(int i) Line 121  unix_time_to_universal_time(int i)
121          return(x);          return(x);
122  }  }
123    
124  DEFUNO("GET-UNIVERSAL-TIME",object,fLget_universal_time,LISP  DEFUN_NEW("GET-UNIVERSAL-TIME",object,fLget_universal_time,LISP
125     ,0,0,NONE,OO,OO,OO,OO,Lget_universal_time,"")()     ,0,0,NONE,OO,OO,OO,OO,(void),"")
126  {  {
127          /* 0 args */          /* 0 args */
128          RETURN1(unix_time_to_universal_time(time(0)));          RETURN1(unix_time_to_universal_time(time(0)));
# Line 174  Lget_internal_run_time(void) Line 174  Lget_internal_run_time(void)
174  }  }
175    
176    
177  DEFUN("GET-INTERNAL-REAL-TIME",object,fLget_internal_real_time,LISP,0,0,NONE,OO,OO,OO,OO,"Run time relative to beginning")  DEFUN_NEW("GET-INTERNAL-REAL-TIME",object,fLget_internal_real_time,LISP,0,0,NONE,OO,OO,OO,OO,(void),"Run time relative to beginning")
178       ()      
179  {  {
180  #ifdef __MINGW32__  #ifdef __MINGW32__
181      struct timeb t;      struct timeb t;
# Line 273  int system_time_zone_helper(void){ Line 273  int system_time_zone_helper(void){
273    
274  #if defined __MINGW32__ || !defined NO_SYSTEM_TIME_ZONE  #if defined __MINGW32__ || !defined NO_SYSTEM_TIME_ZONE
275    
276  void  static void
277  siLget_system_time_zone(void)  siLget_system_time_zone(void)
278  {  {
279    check_arg(0);    check_arg(0);

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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