| version 1.2, 2000/08/21 08:31:21 |
version 1.9, 2015/08/08 14:19:41 |
|
|
| * shall be made on your publication or presentation in any form of the |
* shall be made on your publication or presentation in any form of the |
| * results obtained by use of the SOFTWARE. |
* results obtained by use of the SOFTWARE. |
| * (4) In the event that you modify the SOFTWARE, you shall notify FLL by |
* (4) In the event that you modify the SOFTWARE, you shall notify FLL by |
| * e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification |
* e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification |
| * for such modification or the source code of the modified part of the |
* for such modification or the source code of the modified part of the |
| * SOFTWARE. |
* SOFTWARE. |
| * |
* |
|
|
| * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
| * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
| * |
* |
| * $OpenXM: OpenXM_contrib2/asir2000/builtin/time.c,v 1.1.1.1 1999/12/03 07:39:07 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/time.c,v 1.8 2011/05/11 06:03:53 ohara Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| #include "parse.h" |
#include "parse.h" |
| |
#include <limits.h> |
| |
|
| void Ptime(), Pcputime(), Pcurrenttime(), Ptstart(), Ptstop(); |
void Ptime(), Pcputime(), Pcurrenttime(), Ptstart(), Ptstop(); |
| |
void Pdcurrenttime(); |
| |
|
| struct ftab time_tab[] = { |
struct ftab time_tab[] = { |
| {"time",Ptime,0}, |
{"time",Ptime,0}, |
| {"cputime",Pcputime,1}, |
{"cputime",Pcputime,1}, |
| {"currenttime",Pcurrenttime,0}, |
{"currenttime",Pcurrenttime,0}, |
| |
{"dcurrenttime",Pdcurrenttime,0}, |
| {"tstart",Ptstart,0}, |
{"tstart",Ptstart,0}, |
| {"tstop",Ptstop,0}, |
{"tstop",Ptstop,0}, |
| {0,0,0}, |
{0,0,0}, |
|
|
| t = (int)get_current_time(); STOQ(t,*rp); |
t = (int)get_current_time(); STOQ(t,*rp); |
| } |
} |
| |
|
| |
void Pdcurrenttime(rp) |
| |
Real *rp; |
| |
{ |
| |
double t; |
| |
|
| |
t = get_current_time(); MKReal(t,*rp); |
| |
} |
| |
|
| void Ptstart(rp) |
void Ptstart(rp) |
| pointer *rp; |
pointer *rp; |
| { |
{ |
|
|
| Real re,rg,rr; |
Real re,rg,rr; |
| NODE a,b,w,r; |
NODE a,b,w,r; |
| Q words; |
Q words; |
| int t; |
size_t t; |
| |
unsigned int u,l; |
| |
N n; |
| double rtime; |
double rtime; |
| double get_rtime(); |
double get_rtime(); |
| |
|
| rtime = get_rtime(); MKReal(rtime,rr); |
rtime = get_rtime(); MKReal(rtime,rr); |
| t = get_allocwords(); STOQ(t,words); |
t = get_allocwords(); |
| |
if(sizeof(size_t)>sizeof(int)) { |
| |
u = t>>(sizeof(int)*CHAR_BIT); l = t&(~0); |
| |
if ( !u ) STOQ(l,words); |
| |
else { |
| |
n = NALLOC(2); PL(n)=2; BD(n)[0] = l; BD(n)[1] = u; |
| |
NTOQ(n,1,words); |
| |
} |
| |
}else { |
| |
STOQ(t,words); |
| |
} |
| get_eg(&eg); MKReal(eg.exectime,re); MKReal(eg.gctime,rg); |
get_eg(&eg); MKReal(eg.exectime,re); MKReal(eg.gctime,rg); |
| MKNODE(r,rr,0); MKNODE(w,words,r); MKNODE(a,rg,w); MKNODE(b,re,a); |
MKNODE(r,rr,0); MKNODE(w,words,r); MKNODE(a,rg,w); MKNODE(b,re,a); |
| MKLIST(*listp,b); |
MKLIST(*listp,b); |
|
|
| fprintf(stderr,"%.4gsec + gc : %.4gsec(%.4gsec)\n",e,g,r); |
fprintf(stderr,"%.4gsec + gc : %.4gsec(%.4gsec)\n",e,g,r); |
| else |
else |
| fprintf(stderr,"%.4gsec(%.4gsec)\n",e,r); |
fprintf(stderr,"%.4gsec(%.4gsec)\n",e,r); |
| |
#if defined(__MINGW32__) || defined(__MINGW64__) |
| |
fflush(stderr); |
| |
#endif |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to time.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / builtin