MbsAPI/f_ut_utime.c
Go to the documentation of this file.
00001 // $Id: f_ut_utime.c 1195 2014-04-10 11:22:09Z linev $ 00002 //----------------------------------------------------------------------- 00003 // The GSI Online Offline Object Oriented (Go4) Project 00004 // Experiment Data Processing at EE department, GSI 00005 //----------------------------------------------------------------------- 00006 // Copyright (C) 2000- GSI Helmholtzzentrum für Schwerionenforschung GmbH 00007 // Planckstr. 1, 64291 Darmstadt, Germany 00008 // Contact: http://go4.gsi.de 00009 //----------------------------------------------------------------------- 00010 // This software can be used under the license agreements as stated 00011 // in Go4License.txt file which is part of the distribution. 00012 //----------------------------------------------------------------------- 00013 00014 #include "f_ut_utime.h" 00015 00016 /*****************+***********+****************************************/ 00017 /* */ 00018 /* GSI, Gesellschaft fuer Schwerionenforschung mbH */ 00019 /* Postfach 11 05 52 */ 00020 /* D-64220 Darmstadt */ 00021 /* */ 00022 /*1+ C Procedure *************+****************************************/ 00023 /* */ 00024 /*+ Module : f_ut_utime */ 00025 /* */ 00026 /*--------------------------------------------------------------------*/ 00027 /*+ CALLING : char * = f_ut_utime(l_sec,l_msec,char *pc_time) */ 00028 /*--------------------------------------------------------------------*/ 00029 /* */ 00030 /*+ PURPOSE : Returns date/time string in VMS format */ 00031 /* day-month-year hours:min:sec.00 */ 00032 /* */ 00033 /*+ ARGUMENTS : */ 00034 /* */ 00035 /*+ l_sec : Seconds as returned from ftime function */ 00036 /*+ l_msec : Milliseconds */ 00037 /*+ pc_time : Address of string (23 characters) */ 00038 /* */ 00039 /*2+Implementation************+****************************************/ 00040 /*+ Utility : util */ 00041 /*+ File name : f_ut_utime.c */ 00042 /*+ Home direct.: path */ 00043 /*+ Declaration : char *f_ut_utime(char *); */ 00044 /*+ Version : 1.01 */ 00045 /*+ Author : H.G.Essel */ 00046 /*+ Created : 24-Mar-1994 */ 00047 /*+ Object libr.: */ 00048 /*+ Updates : Date Purpose */ 00049 /*- 14-apr-97 : POSIX now OK on Lynx /HE */ 00050 /* gcc -mposix4d9 -mthreads -DLynx */ 00051 /*1- C Procedure *************+****************************************/ 00052 #ifdef Lynx 00053 #include <sys/types.h> 00054 #include <timeb.h> 00055 #else 00056 #include <sys/types.h> 00057 #include <sys/timeb.h> 00058 #endif 00059 #include <stdio.h> 00060 #include <time.h> 00061 #include <string.h> 00062 00063 INTS4 f_ut_utime(INTS4 l_sec, INTS4 l_msec, CHARS *pc_time) 00064 { 00065 00066 time_t t_time; 00067 struct timeb tp; 00068 struct tm st_time; 00069 struct tm buf_time; 00070 CHARS c_allmon[37]="JanFebMarAprMayJunJulAugSepOctNovDec"; 00071 CHARS c_mon[4]; 00072 CHARS *pc_mon; 00073 00074 if(l_sec == 0) 00075 { 00076 strcpy(pc_time,"no valid date"); 00077 #ifdef VMS 00078 return(1); 00079 #else 00080 return(0); 00081 #endif 00082 } 00083 *pc_time=0; 00084 ftime(&tp); 00085 if(l_sec > 0) 00086 { 00087 tp.time = l_sec; 00088 /* 00089 #ifdef VMS 00090 tp.time = l_sec + 7200; 00091 #endif 00092 */ 00093 #ifdef xxxLynx 00094 tp.time = l_sec + 86400; /* one day */ 00095 #endif 00096 tp.millitm = l_msec; 00097 } 00098 #ifdef xxxLynx 00099 localtime_r(&st_time,&tp.time); 00100 if(st_time.tm_mon > 2 && st_time.tm_mon < 9) /* daylight saving ? */ 00101 { 00102 tp.time+=3600; 00103 localtime_r(&st_time,&tp.time); 00104 } 00105 #else 00106 st_time = *localtime_r(&tp.time, &buf_time); 00107 #endif 00108 pc_mon = (CHARS *) &c_allmon; 00109 pc_mon += (st_time.tm_mon * 3); 00110 strncpy(c_mon,pc_mon,3); 00111 c_mon[3]='\0'; 00112 if(st_time.tm_year < 100) 00113 sprintf(pc_time,"%02d-%s-19%02d %02d:%02d:%02d.%02d" 00114 ,st_time.tm_mday 00115 ,c_mon 00116 ,st_time.tm_year 00117 ,st_time.tm_hour 00118 ,st_time.tm_min 00119 ,st_time.tm_sec 00120 ,l_msec/10); 00121 else 00122 sprintf(pc_time,"%02d-%s-20%02d %02d:%02d:%02d.%02d" 00123 ,st_time.tm_mday 00124 ,c_mon 00125 ,st_time.tm_year-100 00126 ,st_time.tm_hour 00127 ,st_time.tm_min 00128 ,st_time.tm_sec 00129 ,l_msec/10); 00130 #ifdef VMS 00131 return(1); 00132 #else 00133 return(0); 00134 #endif 00135 }
