From ad9eb05779ea942e16bb8e87d5fe86010625d9b8 Mon Sep 17 00:00:00 2001 From: Norayr Chilingarian Date: Wed, 30 Oct 2013 19:55:27 +0400 Subject: [PATCH] oocSysClock now don't use C calls, but use Unix.Mod instead. Unix.Mod modified, Gettimeofday now returns value. Kernel.Mod modified in order to conform to Unix.Mod new interface Former-commit-id: 13da72a3ac3d73541928172df9955c9c43a29e29 --- ocat | Bin 209462 -> 209486 bytes showdef.REMOVED.git-id | 2 +- src/lib/ooc/{gnuc => }/oocSysClock.Mod | 62 +++++++-------------- src/lib/system/gnuc/x86_64/Unix.Mod | 2 +- src/lib/v4/Kernel.Mod | 6 +- voc.REMOVED.git-id | 2 +- vocstatic.REMOVED.git-id | 2 +- vocstatic.linux.gnuc.x86_64.REMOVED.git-id | 2 +- 8 files changed, 30 insertions(+), 48 deletions(-) rename src/lib/ooc/{gnuc => }/oocSysClock.Mod (67%) diff --git a/ocat b/ocat index 277a42b4a9fae60b97596120d7833d9eeacdd87a..9e0aaf3f4e222f0b32e38f6537c775eebb2a272a 100755 GIT binary patch delta 19941 zcmZ{M34BdQ`~R79U2;fdk=>F=Y|(_IcC~~G*Phf;`|=j0t+mwd(pYju5T`t7Ezwp{ zOEfB|YOE2pBw8(MiBe*#y^W>r|NERdH<9-Dzn}Nbcb;XQZRX6GnR|8THTRR(+!xnU zy{@I!UaxiPEfoHANS56f|gMFbgs^iUFZwdWKur9^p2uUMt0xz280KSol&^ zjMWF#=r5+~`)Y)TAGxC_wq&b&ld6DdTXK*4wv;(uPN#D>o3S~v3ufx2YKDm~^qMtS ztJa-*cFq5ZO?vHGTO;#Q4TW8-Sn#YI{wOa_s$^X5c)g5xJL5>V2&?bwzrjxM3#aq8_rB5`K}z##8J6BZ3Nb)G z)u+0M)t~gKDyn4!^j&Kab2D}g_*#hT`jA1b#PW>wgF33BPsYRl4OLZ-lX~*d5Pk8t zrSxe-J;d#d`9m8Ek(zOE*cM+=ppTuJF5>jCX_v%@x|n`VEYq(~|4v-c*UhLSGW5I| z(ZZpt_Gr;huV;@E4fMhI>!&ZWpYmL8bHwG_QsQ#CHv7}`ee0t1PiC$VjrBUS`ZQhk zwbPk%u!qg@M>kvIoyNA59$8ZN7pTihl}mFvZEU5$mK=B1HYaORZCi5Zv-*Qs)%5&X zR&iEun%E#F*EZsGfd%=C0~j8sis5nmWQ#axb8r{Wq(fYr|9^kalKn^Pdp_<|_W$SX zU&>$WGZKT{vNs^i#6ykswTVHZjJ_xF9rgJJJ!E#2IIee|U8lk-$c=<8(y@!QjWQa2{^~XZ7V* zIKLa5C$DgF!GX;h(*A^g=4`b$pT9*>~i7Fj=$R0CE_ER3H}{&q!Z?}PB>FL+LWcz_2?I#}|h5komcGpnX;e}UC* z+n;ZRkwP|-;@3pl`q;2sJdN&bHagxu!+trID@F_6i**`&jw0wU4aMJO>^+$>Vo!tq z5rxwl{cET)EL*9=ZT*)}yU8Am9#Gh)AYw?yv3*y;=d9!v0z(Hu6SnL)u+L3Cu01zn zbUNo0%e`TqJtocBW3 z*`{}&Uo&AI*tfl*SFmp=3$fCS=gx`K^Of;o`^w4=Ex1EJ!)RRoJ|tl%M*WB}FFfIN z{_qYsa*}n{kIx?`4(KhDyNi(-pCo&U;C{=DFpnl%*F6hW60?NEx&jSM0Da$rh@joM zoKlZ`n>gmV(k*QJQ9lcNLs35mgIO8Sn{tq0c3~JrCPN(jj8Z0L0FH#3%9UibGRJ^a- zmqa!G;vu{{eBsb~?ne#;^@(TdN2Yl8&S{J%$d=MzcMXNJmKG1{*Oo+xM7_KoCTi+2 zdVA42W2)Xth->=ypEQZ=lj4d3g}kp!4lmeoii>~+mIow{=cvCd?FBt-X;V>O@4qxe z{H9M|x<0b`e>%^@_{z=&B|C4^yDpnuDQW?WvT)s(k(O+BfEB;zm{wBWBFRu&{y>;ixt)g4T)=wjZSfP(z z6^MoS!Dk)(m(DTMN`Ixeb@hZ*m4#}kHPDk*#fWHq&#LC?kUoJNz}-gY7;Xt)mrayI%iJ5p?JU~W z2ln~O;W)Y!?&sceI&UsCOjE^|@^$`W{HR9|F>1nO-zoEEn-0ycgruvhth z(@$cIp8ECks^dRmJIKtK+UE1IW&)VWJqjFZftS8zGl{)=+?HXUJ(%s7v*AycT7T8| zYzYZ?$YYJ?)p$}olXB$Hrs?;$grJw#)=`*S_N{)RmcDdrQ<0|UZfz!p=pNfDi}m_z z+Zu@(`a9bqS{@n)D?F;w&gAX|Rq)V*K8v{U)R=Kq{;)_b8G9=iyR`lz?Df@eZmag@ zPcBP^h^SEUT+|f>FIchT|FE{)rFtJuimlDkYKofRT<4ni;4RA z-67&v{n_q{o>RY&6Cfp?t2~Jhn>F z?k62$*Y4*Fv~SkM`=a2O@s=^8ahrl#>|4WWn4G^RgY!M!1Vx-{%voscW=x&a;J~Ln zUOJdCz})^ce`AVkiM}$CEm-TYMzZztIzWnF>@EO5H`bHPFm^v*WEvV)R&-cDl2iaI zHm`*h-`xLP$Lf7^ET+<{`ycyQBaGYJCsA&I%>B<yDyW!HHXv~I6E>&wE<|SL7=NN%TO6mjy_QE9sT|U}5j2&(_ge4+f&8!r^%QDh*!&Y$+ z4|#n{w*KEGH7oiC0xcM6yw|K_GH!lfN5v^NFsnWvV6uj&Ti?f)f8t)&_yE=yJ0}uQ9q^w{O zifX3ud`!li!*8hG@l=w(RnN<=jYH{+>=5;zA$sMb6$8&MlPXOPpvup%rtIRSq#!3F z{%CoDeZ;_=nqs~_FDFR|-RqdYc&OJr79q0qgkvFMgFg1yYwGw9uD zQ(B*VdbztZ*;VifHa#`pPra0El;@P*;iqWzm-z-U zPhaxWO3!8)tcu#;Vac}E*5CMfBQ_I%{9H{fW2mWxZ|h-a+NhfxMyF5p8E5LLYmy8i zUe7sWSC2|!w?62XR_bVjPzUwY?Pn@xocSfdQs+ft$q+y8XH2!BTbOMfz<}M!8-?H| zTf6GP=dqi~XnsCN6=n4@7ptj%%rcz)qQ80Zb@fw&@Lz!UETS%O9rELAp>L+X?&2EX zQ!}NzCI>v{EW|W}pp@R@QfGD4OvBDVeb1$)*pxiER8y^QXO{X$XFd9=pWfl}7|~Pz z?s6zDRxVtwf}5S^m&4U(o%GQBx#B(jtNc)$DvsvQS6@yux^3%-Zoazxil3OKFTE0q zJ;BZ^Rm5!l%$0Bvsz1Fl0~_K=zlVxl`ikFYs7$D%tIr>3DO&A;Y32U}X^dK+BBXlbKq7=6A@w_o#fzqXEpw}nFQoWAy2 zK=1tq!?5AGGfU(q7DPKZw2cPeu(DeA;VgBd=?d*f4E$}e82qWlR+`oQ$RC^$y4N2= zD_EHCh+A$;nS&PyFH;Znq(8n@Bh%#t8*^?Sg+|@?j(qHy7Nw?dbg!vyVc#gILVB?TSJ{C z8C&jt>3gJw+12k6x?aE^Ye#+9pYzn$S{R)oZw2d>@9pCg*S%2hJ0rQMNYq?k$LSvT zD`8EqeLq}O(7W8PDDLU+-TxZF`ac*XR_YTUR8uF6G^W%rJ>$WA^`{RE;*j3sVT||u z4@z1q(COh7u{LA!qdEd-whfP?ab2)zq_)~8oI*OBokop!c6FAN#PCu)RACAuVrWu_Zwkc9iaktoTQN2g@F&5mPyBXcG&@D?DUmD^p zC(nc%RJNSx?(_OI4%CPL=ZKF5zbcI>C&J5p+l~1g_9I$dPD~b)DbQVnd!I;PJ_jWC zJN2lOyNC&>Fjca-2Vd74re02=PuxXa^~4k-EfGe4yNh9>9u4q79g;FrJusgBw1`Z&c#1jV2@v zC3uP2;v!A+65(Putz}qBhrC3jcW9TA)@G3K7CnSYZ+i<|*3o8fF@Wv(h(vLW7Ws$} zv5B_%h%Q3UeCZ>Cg(#pPUlHXUTopULkdKYR;w)>01z%C6%GC~R-woI9KVXhznQy$1 zCD2Q@B4%GvU!>AeUs2WjT|>3FjC1IjuZZ@(-o9jnZRia@5vD$GPXql#WpRO~`-y5H znTA%haRFoa$u96($WD4}fTI2KG z{TU$M^Ne*Fz+N7gbM$VYs3DSRVW0@}Di~!NPcf{WqbwG_&cXnC87SI`3e+}8EUo*! ze2XB`rg8TsjE14F&G!l}NsX2dE>05<2;(tZL}i0TEisJh1&avLjQR(Q=I&eDurHp@ zk3XRG!J>^AMYn_Dt{wSQ1cXwPieiI*=KD}{%qhfGHRfV2gTuOx{;nwAQ~z#Fqp@u! zdnM6H%%S6z#A|BrR{VOZRMv~D@7lR_N*;u*h}EMtyA0GHT<}x94L$XMC%IP>AvCcv z=KpBgR9SQd^{g^hw>tD%713PWrx8^|q&P_XtB63_T1EJX<=l=DRp?O_(NknohY+lq z2WeS|=%Eg6!Tx>xJzn*X#Vd|{L$NI0rcv1URsFUFM}iYx3f}wJ#qY;#IAU|0D%iY? z`&pOL{ZM$j5GpEQT}3;rVq2pNrda26Oy!xp{;c8oo@|YzsH#}*R?Ð7F+0imJ#Z zg^pK66^GHIs-muFNa0~f$x7YBL`!j)J_*A!m`1yBQ;cOKKTO1m##A*NgXBpa!bLN& zgyw~dYU-CwjcWGPUd_g=X74wOtJ&Ys6XmH~HBkozY+4Nu{yCai4UZ^Z2-QRfkwMq1 z30=&iDb+>oemk0QXMSJ`kj+}&GxDQX;5I|%Z;0{S#;x6R-w+uq=L)_j#Ut^GR1{06 zN@?$9H835HQ|B6Do@hg7YT*5bz-l7@i`0x^GmT`JN~>#%UiN1VcxwTYb~DTjzhSu=_{Pk%xU^rF~?reA1s&) zm*yr6z{Nh!VVLgCZ@9Y-&hM4w9#-c74$Rt%Lr(D!M5fjT9{f;zX zzx+7wHCpgqtdk`Sorf$*@zaaKz5<5bcz0Rm~0(Y6zCA6HL!$Ipp3MvjP!Opm{P-AKCeR!&Gq) zLyaZEx}Ye~k6qqb$1b-fTb(aC()`zrlm{0@da526sNpNs-7DRE%c@3oGbH12Uoafj z>5{4E$+zn3Md0;!%t?quM9&V3vvFAX5hkmO2!z&ul1aa zVhS^H_$iUXVL8|XSY|Id=Q}bl#m{&elC9PMl|zWkp{)@O4?{nf_u@Q<|6>fp6q&+r zY|ohU-v3RZA%x+u(v@|M9E=hsTetS+Ue>>54$BE|E?>JvMm>!!mJE7?40@APf5+%t z98mw#M&V~0PB`e({|$Qm3nS<;bzwWj?W+q!p%h2jdDwiR#(5pmw z`^rJwVaQ6X*J;d3@%vo{`du$jugs8dtwx}C>aZgY^mn6W>a>s#>dWUwq{BIf6u+2w zHo>}YyOOdlm7xtVtXtoelp7_~<;6}8&Yk~;c20&CEY&OgD>M%o+O@i_(9RpJ65;oh zk%h|097U0N7DaZ~tl`eLIcn<<($^r?Oe`E!qK4&Uplu9Ui5eOyr}&MNo!>W16%Y1M z`L6t|D9|OZ2I^Yuo*6aFje_G8zbi$NzH92f@{~1WA+G3H)tCqMB;#>UFdWu@WE88J z**q67pb|;6le20jON|+8FR+?x#YpC*_-&Q_zcQ>9XOSjfq-Tp}LJgPyVx3!0jU;}S zNmNeYcz7Zlbg5cr$xu7UP`iP`VrPA9L{nIDVO}H0?yMmzQSQUcO7SbrfZu!dU^m4< zJeBXHc*7@qZ|m}2tkYTs8X3v{Q~V|rMfwgnTvW5%*l7FZ8g63UP}&pH<6o~yC5QEp zWK1_gu+EiKO}5s2?Y}FZD@Ryk=__l69d`fXjwybPWdG=YB~)7`lw)}1geJQD7bo;# zAu6A3-Q7JDZWS&|2Qw4b=5iO0pTqh&G$8#9kgar^JZd~$dL5_l_4NF8QQ0&1&zH_l zDb2sF#qmUKrJD6btExxu!M5X}O*FSveOacyn^wPNjcnEkD81(q1vjA8P z=;o#<1A(=GD}grPZ@}TeXTT(2%O~g$oDDn*JOC_kQ|wCYUofC4$~<5#;8mav82dL2 z0OtdffRT8%Hvq%2P96oG1{MIH1KqIq4Z=cS3wV+jeBgS#afbuT;_Z_Jyb9a^9Dt3@ zQQ#zCL0P+^RK<4Pt(>Af2G#pgar!`+C9vupEw{8-U$`M}c2?!vOH4FZ#PH zN?kwn2kJl@@DOk~aC0E~1KonqAD9O`3Oo~x{&qBSE5d+>qU@;z1HkmkFaV6K0t3J# zU=lDBxB*x@1O|Zap)dfv5ax7xl~r3mXkbzur*kdv8ZZm^2$&DF*L6A-FGbl7 z0tXf-wfT4!9VY4NM14!qr|bkgxde1D|w9seKjYe?4IU_@Xx) z1K%D1$H3hK;TSl55K0YP0z3;mJ{W-mKYa&*`zgxrz{bGt_MtFza{*8d!n26+4nj5%=4dW?A$MY;YJ zA_orIgvf!7HY0MNeG38yt_5xY{sBA+v~5G+K#x6e9D+&!qk%cVc;F4-7@+k#JpYT) z81y|N2R7S>$brLv_ksO>fPqkybU#WC?0*0y2TnbL$bsJjmjg#+qvXIt#}GI$_D2Mc z3*1V%2pqT^Xaio$L*T&7(+C_Geb(92nT|%?i+D_c2Z2hMqTI~KEC0+SD9(su7gKTwl7$P?xk8fDRPF@IJL?c#lRfEFuTP4%*0YnsOMT=_bS5 zq_qU-6v2>7?E&huyYya5xR^!`=60iv48Kzj!)?0BaFeuHzzm9DXh`iDrqBq6dgNeO zNE;cFD2KtDZZaGqtrZ}FA{b^-dxjrr1VdkPFwCZn44IU}u#av6RHqx2ZH<`Tq=?qw zcBl3Xm1qP*FLE#l+Q{$+FKh zMA;9~1EzM6cN@S7ifIF81M1Dx+cX)V{^dt2+ZYwv&D>pdj&(u_SC1j$ORCB+o?0=q zq`?gNG>f4Ur7@JF{R|W73WI}ihZ-WTQB{W4)QZ821~YV`Sq#5YT3dK1OF0a^=>bC{ z3Tg+)p;ipxG=kv@r7}#V-R;mXoz5}bp{ER?6l4SRqb3Z)sW%|vi$+doRiP+KtMXoR z)i*s#4^OnHkKM~)=VN@ZE-2Tqd00hhtbVAm(^*jk&!yfg(PDWiiu9{N6p5`uCf&3l zj;iF{9=^&^48wCuU?@vt89XVKVJ&TExIlRf7wG{*ZSwAb?w?VU4xoOe-V8xBnc;g{ z!SD_3W;jmg7^c!whIJIw5%8FrFs!8B3_sH3jxc7SG^R??euiUoh2bjU$~HtarK$|| zs1-vM8r%sT){uj#^0blRIpr|SrkeoOIh4wF#uVsF5uL#uPVE_%(+Gw?$idKnHZlyM z90r|kG8`eT3vBPFm@c5sPy$0Cjb&&+sSHzSJHsZ*V>nL_82rc^Ul53a6a!FSzDJun zi(u;x>=mMDEKB-PD#LQx&Tx+My26b=J!Q(9g5m*z)P$iU^=24PljEVXg3=hiqa0@T zrJD@zla>ION)Zg{)SlrEjbP|c4u+Mqk)apmB%u2>dcf2s@_q|YgJKxoqy&aFG?pQi zQW>&oJHvF!W7ta%7(B?k8^DWVy1`gJ^=9fgO=cKRE0}qW_A^Cvg{hsSbvHUhFl1AE zhI=%E;XXMS{AeQs0_=_sPv`+tACh+uz*vf57)=QbBWWzd21;cZLfaWeQ657Zde8&i zt5Q%;)cv0{YT6US{+xP)6qRXmPYBZ}jj0Q?pP?~bVdfpu-Uel(2!`?0o}ng23BADlkj656La7X$XnQZwE@;4cr;{I9*9ZGGr8^!} z8+rE@0oGWEJu_o^i?3BG=quvI-pnTb#D@{;B2CW|{=tz@SCw}=VyACd803gGaAo~h z#6BOm#4o;=;&NqP5icF%61yFi;!>knoY{S@xX~K#j%GRdW`1C1{~Tdg?a2)-ilWWI zzcf*erW&rejUW6jQ}C>YyJ_vPrno3CZ6?%RRG{YbiY!$76;obKZp#|swX`6^W>15P z)!xJTP)+^>`j+r4p)E2y;^<)sKPueDj2{Ov4L>e+cyyj6!|sH)c|1j&5N++AA1G=Y zBcRlHA8{W0el>15>MXFI_7dq#cNDIEpP2nOqyKUQQGPt6va_xHkfL_1=g@I*+L=|< z)Of`@69zYcC>@2&0~KE}lI^}F8e)g3xQuQ~l)<@&LD8xx-j7(RdlDBbHP(9wQ$5mQ z$ Ggxynm?)BfWV_3JZa9M0MS6co6mgmE=-)n}PyW1_Ph0{I9eWT=5qkJj4@G5=C*T_BFdihAT?IVUBs4aPj7wvIUSe#0)5p$fmg> z8#fd|^UqP(cA!Y$u684`8c?mE_=s!{7A(}CM>-&i>5qlW>NeB*9atZWE}kP4b+&2G zbI8caiaLkQsi{LSnEN@=6j2}UT>S=`PgkdEICXLVk&3#A6*NoioWVc^F*N0j)m8M< zDG}Z(c_rqpX2~Bbr9rohK!b;YD~|sSLWpv1SAoW4^1$7OF`4|8;7GVHrTs&Va>f5D zeC!fS*;4MBIq2do1OF7WQfVlUtn@0Im1wPRDqSrWS?Z^&_gsmPqgrHEkw`E6{kf2 z-P?pU##tQ*C^<`n5SJ^ zB*~Vv@w|9jE5BHh%}M)B)X_dqm1KR2{Y`|F{oW)mrBX`12q+iy))FaSzQkbAy5B^w z*76g{OryiU!T$#)xrTx-h)P_M#rlvfB7UYW{ z?YGsk+jH8QFDlhh*GRIViJf4@AHOGpm1~9-oXUglnnD{D=8LYHnkM^nqxdUGD%m72 z(C1e~BdyyyDb1j(SH#C!#^;j!nMVCCnrT0q5f%UlSSHdmAO0NWWYY4Yfp*Tu6R@KzZRNDQ!gd zKSa9LXtN}bP~+<;_z{!*iRikxukGI|rQguv8=|!qu}zY1(Qh{}E2f)d__6{KT6UvJ z{j<%SXCI_X?WO6o@V*H2Rl-D5e^fEpB7QPO(`ZrwCh&*brREtrTOj&s)4q{p05!WQ z-qQjyB&pN3n_`Tnn`9Q%x+UJ!vP{y8#@`ZyG_M^}c{*KWa=J<0rM9<`-d&SyMql0* z{k3M_O66oKcL!v$NnWC{cf`oDmrN3ew*t_b$duX*Xuw@KZeWs=XwzL0uT3(^Gi3P_ z8876-}!WarSnblJXO30^1Mklpz-&_K&`=Usl0|R+(XsZnB)Mec^^;P zDU<9+BkqfeTHGF~+>cW3i!g0~Np7KC_wn#;G0A6{ckYWRqO5E8Q|2&@c_^xAF1i=d zLorF~wNDz`O@WU@g0|ZvtI)VdnATN(kkTe}_>qXvnwaDu`umZH(FU1h2E{zaq|Y$P z7c}-Us`bJo+tc@t#SpFierZal+D}002PD~z=!ux7bvq=jm6W!IO8kyuh+T*UqX-`b@Epqcv zr)Y0wOXX-v_E7t4(K(XDdB8*Mt6lq1lE?$cR*dSME9rW9 z5*OfpE&P4_Q60iw4v-ofHpJ99NZDShO*?3kH7L*RJGHK$eyepqE6GaBeAR(krE`+n zLBoC3U$q_QB{?tC=BN4zZQcb*pQK^_>bu&>i;}d_FaBzRX3Ljk2t@~g4EbG>@6!AL zwVn3vRY@k%`2dtR$s|uuP@tMn^Mpx8{~@*3wo#N&A#fe19>;HNP41J-)Iil=Xix4* zEuGSXU`xL*$?bG62*uiNlBcM7FvwFTd6$xzylav+Iv1>t)NGGr-)hvgB5GIdu_U|D z&WfM2~%xlhj~a+DNnt_)LvR(c}WLk z;@>1D2`!+4q`#())zog<*Cv@qUsY2#YkB@sI)eIDSLbWbP4Wx6R~=*gMSzqhP|F%> zm$D-&N>WtMq#Ejcp^55}@rY{IQs-);Ye@10?XIPE&>q#4WPNgvP@8M@Ye~{Q^Q{PV zb8X9Pw;U4P)f$#h+;TE&cUPYab&!Jw#;O%FTlZAoDx<#mUQ*lpt55MC7&$Dd?1Adz zZZtJh9pryd7&XRm^CK@;`;edqE7ah&hfLYwBAtnDuJ+Mlo|mhA$x>{~)xK~# zHD%L^bSApF+V*0em#aO$i1(3~tDS7xN;YK+igYHrx!Q}0d0wtIA2#^IIl9_=Oj~^=c6Wv^GqRiZ#>bp^yjjySp7U534Z>V*(z4cldihC*b2HqCACYeilOcwnYcgVW{l6P&IyHT zyCByg#kgUGW+ZQ|p>>hA7peh4u2afNbBZRI;%jt;#jbtK52lZirnn_}KZV$J5;$c( zEJ>y~ky^3Xbrcw9ir1Us02&Li7(kAv>Q~|g#XJM0Q~PIXJAQ!p9mH2s+=j;5;5A$Gm>ubaJpFvZ6xfyJ)ZesfcN%M{O}SPh3ct_OO*2x++pbPd9-q>6N6kYC%ov4Piag?AJsz{PI*oQ=h}7nnBuA|hKJ2dg(W~tS{h{eK|EP{ z&Qe#@CryAjPdUOeQEaDHs-<1faC4G+ncW}b3w-W=hSF4v-P<(}x?>N*?7I|WfsH77 zV1dQGRJ9bGbfhMwECccV&5BZ%cKFr$6=ufK(^63RnIf!~fkCbvMj`G5_;bZw+DoD| zt0f@FwRh}nj!$V1Deg~s5aXWtrWKZ(P)uo<44}cK;ch@W?(pY2<}ES}4)K--_tIc@_;YRIj+)}R zrr4cQ(OY~@`x)BP19!`>L9TNU-}><9eM~M6ZW>+jfL0gsE|1C&rHJyNY}A`!8#&5b zz7n>~7*7kn+p^)`vVa>xv%H|XkXA6&jB>nCp>CAs4eD#k^TyEpd*nv@NoS8J#s^)0 zqV_&W&$a8SEhAEPm|7<()yMKxkZU(|0c!?-I`~T?cPXI)#&-~HuYjs%P%B@{z!=x9 zrSZKGlHu~Wy z>qb@m!E8z+{K3qi6-*`26$V_K2cTkYC@;Vg5bU~Z#Per-h6l-@u)k9SEd#{1%)x<{ Qa;4P9F`1((S&sVsKRU_a#sB~S delta 19931 zcmZ{M34BgR_y3(654jSaB(f)D5laZ7XhkgvBC*F>v1?IkjUx7krk045bm&19q1G1B zw1V~}u{5Ddg0{4lq@|*^*hAIx|IVFz6KVgyeBO`moORAQv)q|U`kub#yziRxiu!8l zA88G?YOUj$B7Rz@T|Df1p@k$aw20D~7czISp@A$R(=qrUa~#+#N{P+QQ8G`~UZt`T ze0bdSTG?OW6oYd}caqxX9Iq5whkcXTAoN$JmO5ru zZdk{W%q?q zti!_jrnc=d!lE`GSGX*L`8PpE%ktHu-v=*reO_V^jO( z$EHRX#wPy^O<5Y(bh|w^CAv6vVfKs$u_@h)d9S1p9+_le#k^Bei>8IKW6u^lAXRn* zBjMzLkw`ul8+tT0`2tL=OOA;${NMK0iuSYl_aAht`hRuyFXb%0G|AWT+;#+*bgVxA zGRcS4;NK^`qgL6$8-Cab#fty1ag802>#5wTq{orsk(;^p!z!Zin-;$5Kj<@?7`lENdHNY|Zp-uLdsaB|ri)s;IjytX4^=`&W_5OQ+oJlmBIqx1 z8KM^w<{!U=`NHg}&S)<}`{u_grp5VF=*YBl+ikZOPk8hSM-iNzS6|`W-6c4WU*TK= z2R>hu{-+H#CaA5=qFst2hwBzbG&b4dB2-c=$v=xkJl?wnNOl2ZhG3+Cu$=x&*SPVI z5Lq@#DoQ9OmBvl0e#;NqCn3D~GnVGz`&d)5gY{eV7`$}N?0T^|#THv^PN4-(DhXby zN3`_yk?y&CB9(rr8$SI>^ebYyqqop|xlYt(q|9IHig#t~{RO4Rz6<)_D!Ax(B5BSbmC8x%WJ~D zkXMoNRze=}iu@nLUQ7h6@F1H|=UK*@6b90YAAc)aQ7bJ*qX<6=ZL#__dEFs&zgS z!pywoT^Wn!?rF7IFWxe(5xzI0(??ORTKe)D{QoDxwb3;~8G^aVT5P zeR(iz#@q1DtViZz9>rJ*Kd~|*Y;>v_1xj0@%&c9UeMXc88?YFn0x@?zWw9^t#;aPf zNIrH|0K37HS8WaJ{2ybEs!QYIipF2?L7#l+AF)h`qw^4T+gzE08Rt6w_b0d64qi-6 z@YV5N-2q>w!K)ioUbPNG+=4G#y^{^(Z>;$R|614n#t!jYYXjIQ?)2$yHZ1etr=iSu z%c8PWQld*@pXOsfX}2W$M)3vy&$=$2=?e{U#w+!HlMnfEC%QA|u{H!Sp-{U=_yloY;_cRZM;zUUDQ(Qq4+Z-xF!ZU6Lh3U#DGM{S$3eS& z{@fdi^+PA@=_rX0U$Nesp}K zI_rS!*BsUS%-qi%8N12zw=}Bp_Z*mt8J~~2mM`YoaqhC!n>l5MZgo)AN(*`8?T^@# z%-TD)FgAvt*m;i4;h%l+chLOldiSMz0;cOPrh%E#uQ*vP_U8w_B$mf}?HX+zA=t?a zx8D^~%OCvvT>)M%Mg6hR^eJv#azd7S7k{xU09O9HCwf&ER{CO;I>|M}XSO*{-`$Gs z;+J-}W|O(ko|^0{{>Gj+*it@ePpEtTlnOR8`xZC&hBwWq!9scV9#7`Re}TbU{PCU; zudAkNDcqMT*5y4>#o{eIJi}f6d%mt{{*y^y>dBj5sIPa5F*X)`?j&B2H=pEt`KsHRNfO%HfyZp&<2nI-W* z4+J#)V@z56Vq)aZFUIUdT%vA^KbPZ}8YifkJp5p=T6qlbd$1n6!{;3Iv7I>;XzDr& z-CQxXm9k^YcMzM$mJGCSHo+EO{ImXHFk*C{g%X_HAd)jUs^I(&n|B$fWF|Ok^<#*k za|IkkWE(6ym^RcrSidpL+(Yjq3J;c6LL4S^8y*`$+B3p%VKRT zcqx`WCjrS8MN;WJ|2ubEHyPPN!K)bA6v0aM$dr+d)NRWPv{ekSSvnC}2eY?woqH2> zod_A2Dz+tk^y{0dmeDpDOBESeOG#bSgDH)xP{PmUi2P5NRT%A^f|crVO9uMg3DHe? z5HH2Pm16n-moV2?exPFzY4HTy^Po8g4u%{Zy@JPu4$mBXD3_@jeZ%_rtGXCLv+IV07{@8Os+o!gEKWqtUSBT>wi2Oe$1&heo~UuWz1s-v-L zpRqjXs0V*^v@xp=wkMA`wxG+QBZwAP3k@BAh4!roG{j(Gv9Hj0Pl z`FUUaM5;s_LFu1k7n0TaDRXdMb%xLVxD)l*C!C*HqE=f)EQEQmm%Q1@P~29BoD5)J z^SLJ*s`FP$NdnJ?q@6CQms$0PflRIRF&}*@K>Z_4YOLg+o$A;&=HrTCZ5b;v#9k=& z!=z$IIq!oEt$#)4#shvF%~CQK{fNUjKyIOTx#skg;sDGu%Y=7hZ&xNbMFO?MM>(8yV z#%2mb@{{8bIY7MEURvN$?|I|_4mn_Y;@ufdCQ@>ausloiGpKR)R zgF4Q~{~V>xmXtcaKTr9|FSF=pFNemCA6AU-qrv(lO4udXmiGkUAn|6YKK%#ry1(M! zk=gmz6DsrMH7)EKM{Pfc@2-N4`)aD?#mn8f158mj5uOl z_z^xy5V-IWSGudS=1WiG`1e;@;dsHW)>9*Gl6Rj+UR}iA=DAk`Srjk6T8q8Ms}$B& zD|hE%g^Qf0&og~a-Om%wd9YRdeBn~H>RjDg{kAKQy6VnTiagj7o?a9f`0iX&e_9yA zEQw8t4VS0~x`G!K)vgrQ6-WKJKm2*f@57w8%rPyd9?*L@#<%=FPmP`}dw9|rJ$Ue5 zeFW*(z?;Kw&2(#$NPIlTpSW~ zN_RC{Z|bfF=}ptsVz|0_K-Mt|5?gFaB+Nxwo9T+ueM9R)oKXe0rq0!!y6H{bX%)R` zI&B80x5hxZWRplHHW1D0dNVRG#U(jEr%+}2EL&VcEI&%VNW!`=n{~-gDh^K;(SM^0 z^p18)H=+<5^rqR-513cC*b49$m%C}*WV$Cf)42cjQ8lcBpB%k9HgzGsMq+>ahp)W; zmHJmFKJ!LfzUa@1YU@t?&JAx~{l-{!fX}$`KJIe2Z~TBu%KqY)>Z}fY!7X=w>Slkn zx@=nS`SRX>eV`6*&kx`PS@l*7cB0<58nL~6{;iJKua4iU3m5Zm`SB{Z*Sn`gid(=v zWvb@`t4sHM{9`HP2X6Ob>$%gNF!fnG-GBExO>hmFd#A3NDj5gvY;ix^)-d&W2-8dW z#}dP*++D1`(N;II-n$?!RQCd1ODBjrBT-{tp2vMk{PDGTy`(m?@_{9O>~B83{ua1{gJ|FR*sp}`>EBbrHH$Nz1UuG_R*qGr`_Vpw2 zW_bNkXH{*{$uHCL^=A|Jnv&~DvFh7f0#YB4)TmXWgVD}QdRqrPkipp-Jb_~ zt%Jft>wuhxR@dlLq8_E99z%K8=fP|cw7Rev{J`^gRtx{u&5ZclnX%V+rx&j~`={u0 zP)r_IzT`zy+tsCl5s4M%ab9osc1dwd`itr3ha);?fH$&U0QjAy^{GcP^aAN{E{&ubK7r74vYvn1?^o3zdbp{1T!EsO$q&R`9zQ z3SkeO8xJnDM_U``$Qb5YaCTf!HV*&L=apHq^ZWW%J_RG=F@_?lurWSAhuG~&+2Pm-z1f@z%7(GSi%*KB@jNPUW=&ZV?bcWWHGeMcsS2`=AZt^Tsw_n9H&<7wzcbhzWp)AA zb49GS;?H`EJtg`Au6-Ajsbb6fn|4=audz5Ps>=LXA-$~1yx2qXbYgwo+Uj2cx7ZZ7 z*yOlKC^w=xPOP?5P9ISk5s#gAILbp0+KC7gd+raWz0D&ZD_h9U(grJQ%Q#)JvX*QhdAYD?cAkc~V5D!-5*JpR9j7k^q*J~N3v&(Y zQPIy*s^-f2vFh}WE5qX)?RRBE)q&mVs+IXsGdIkTpXpOK7Qpt=w{ENl+mKbY2J>a? z5!G>Ljk>|XDm;r}{*!W@w ze5?zRi#u!1KBM#QEXehJUA4TtX;j&Rg}XlJTrvJQit%8?pbsQ(2inU-@G7&7!Bi=&29Y@&klX zv>)5QO{be4tqh< zYOyf&Or+!;ti{~a&kf>wE#|`-ki8b`&(2Z*0BogaXj1^|rzW)3BXJ9^_G%>9sd`ah zAd6R@wiSW<69qDFmP2^%2@q={kTqn}1b933ULq0|$DZC45QKhOQbZ8z#CFj9Ak3)` zX-g0SUqcsyP^u|p55j_OPfdbZICG`p!K@uCppC&;YP;xIFsp}s;&w2LWF4tdZH$B; z^{>rZTi0ti(w)Mp_$1gS z6ReBR5`5M}1~(~IzSmpFPuhQ~2kkFbd zxW+He641VRuqyV60b-q-+hwXVZr*)cy~3F-IIZxDIa9}0JQggtYa-oE8;S>1+{G{} z+x+2d-i)VL6&4mJJrK*t*U@vT$276c>1T#Mf+4nP%f;@ZW%+%m5Lv#ER5ziRR2pc! zHywxYW_1KB-f(Qj5hApb9!0ROTHyu4Dp;u=ane_^?z#L0BFRa&JKI9^D^^{e-a_x? zI;WVf^HNAsJvNkueFu!1GHwUKOtFN?xPOv;P4B@AzN=wd;Gmli{BLM6GPEU9y=Vx0 zywdG&qG&0WS!JP3{%>d@GBi&a+S9Voq7BtXOB9=8)V8;b@m6yYswi(~$#_ri*HS}L zUkgYoZCT-c=dh}WvRao_sP00+O7-|&rV#M26nv0^4LR)B`xND!X!c%S-nX&HAn}(u zwCD+k`mAs=)3vOTp&c14M3!-qau$k7rL01rUNX>b}Z@NYGcd zWp!DgAN@DbgZ7sq(A%%+DNiU1^tWbUprRrRl#?Xed+Ytw)1luvx~Ky_e@O^&fp07RelL z2#0zOHUFDKdm&7*3=*n(3VH=oEC=I-k;OrZKNpZx8d)I)t4P6?Vp*aKE95Xuuu?tt z$pTE$eU*ndwz579EA&3aRJ!ut6ux?)r!c39?#L1+q7ka&1VayWtmp&zyU9r3)Je-F z0ZFAU6(W6Cj%l_os}Sfe!AkYGD+A3P0P2WEp04%620HmTd(TaimS> zJ=&B-`i_~DC0&O0p6=c9zNFlRB0f760zE7TuJpfwUYCK^mBs;Of!gHN!$(G1(!`AP zPrdbOq{VOlt(P=R2D+*&P`|Q3pGogW-h!88%MX$oF9RK3Ay6+FXk464WKp4{dIeHF z=1J>B-Bw#Ws1mCG1cgg~N-%x#J3C7xl6mM}tSDzN` zBtwxoXp-6~piMqD&hPLNTed;->wD9J*`&4b)a3BXyJ3PXCJ3 zA|oBF_bGbsZT4OsXb%}^%P>9V1!aLw5)9PTC^xPx9+&i9A{{Y1F3JuARYNP;k}o;Q z{Y0jgk0sTN+P=m-ZI|Sbdg#ejm@cYdrFwLb>aBI-^4MONU)-M>icm!SNqVcoXxK_o z=v>S3zJVBDMa+i&W=zJ#{8)8ShGfegs6f1(ieAGl<14DtjMcPWy8F`JEwxQfeGx~a zgVd}UiwZh_4?dG0B)`=ESmEY%kSol;trJgGgK1SW7N)&f0=1-Ljz_ajH)C~GTg%%o z?WL6!WgUD5;%|;hfsw$cupa~5_u!>{32?^4m-g+z^T0e{=%bhRVqkNiqobls0@era z1jYhy0mlHVK88K8CvZD(B`^2ke2Hfw92z zz%jt@ykQUY_JKXH2$%=F?hAVx8ijsvP)$)z`ojS*yCxg}Ti1dE;A-F!U@mYwuvGvY z0R02u0C+ptZg;7!C@+BFz!tUb_Bh~i;0$0Dyn(F-eh=Ia9AC$7zW~ew+Dg$FP|t1; zv?|I!_3idZ;Oz!>`*7edVR$YEu5N6%Zv;L9W&<6X*zJYDN82M~;Es-Vdj@b^ zG$ICO151Jao$PjRH$|BYYzaIC8~`lsjEsSOyC7rWB>cuC8@LZx2>hWtDqRDAbr6S2 z0pE?Yp;Txjf-xDm6}STU126+Pr;pv954->@0Y2-CQoAe4=>Bj3RB*E!030+F9RvS2 z3>^a(3`ePfp8zia^G6_X;D&b)xQC+r32X@*U>gMoXw(`92f#_=;Q)AM0wM>N01JUX zPe!Rd@#2cV3kd`+dLN|*ZU7Dk?wpEJ1N-0?$lHOx1M`6QW}(!;)pL-!7go<)%rW2| zU@Xvf35_vmgv~?Afop)>q9sI;{Jrr8NjK)eBe*O5@4%jl+IUC z`T<)4=Ku!)&j4oty_ceLz)>lv9B|Jv1P+|^5d!x^rGWK;XMnN5kmX3+59@zE8cV=% zU4hJj6Vs46up5U1pz;YK_s5t4!+{?VA_pD@P6ocY8i51512ce|f%(9hcoirCUI4n( zRFux^VGkS+j028LN8mOzCT~LIz?PdaX@L2kW6Xh@w_?m|Dav2l5IJzi!bR2+60K z0D%L)J&VAB%`e#d+cVH;b{WeAmb73EGLW;t--br=F`-b2Jd>jRV;7zfM%*8c|q z13v(I*H)Adf#JZF^uN}4BWp=FTjNb@D!I17!&wG3Z3AjC#S5w~%@mMFYXEAc+jOuE z-ku`pqTq(mGXd?$r!8P0MF^Np@d9SiOaU8cjeuixK)~;GQ9vX;6Ywtiv;%CW2myr@ z4^XS#rCIIJ#WGqWxbM&b0T1Y+fWPUPfM?_r3HXR21azW!0ZVD7fDW`qzrQz#4Mx1b9SE1@xv~0s<*Pz+g%faD(=CLJz)lQNUPYF@P8f6>yPy z31~($1>C1}0V#AM26owWQ@{(-Vgcb4DquWy7BGXx0z$uj!*2Iu3O;GoT^6Yws#PA7 zFnodxw9jTKOnk_F_@4gve< zgn)dyDZoZrSHM;Z6;Mi@1+1sB0?tr!S2(Ledj;i41p-dfeE~PfwHu%yqH*TP`fEeKm&>r5JMvbY^DVQR#Ccu zA1Ft_0xA-aO{@>Vm4XDgQ&b-~yGCOLl~2h6X3!47ET#fMeMIM-4exP^( z4{4@=N3=$O4;>JI0Qn5UMpndN_I{|Er11jg=^F+URq4@HQRG7Jn;fZo zTig5<@w0KJxa5CQ>{R6y@tnz~_{A|Pt~61Iv-&P#H`-&Wwm!iES)Z&SCzwsOCBN=~ zFZn|J*C49iRBJ1aQ%AfjDDcGP09ub7mJHXrIH<*m8BA`8@h!L(PCI|+^2^)(;e zXMdfF)ZW7#QB7V6eTUlFOj~Xk;`-rGJC8X|o;n3$8gq($T`gvT47(e?=p8BaN7l*a z#(u?lU+p*s^<_9myRZyFcVVXPM~2OpuvvzVt51bg&mb+f`pB|&q;=F3bkt3#sA+ME zWj-9P15vpVvh`Nn*#zOY7ZawY&&^3T8IW@@juudMeJGUrEP)Q3xQ-N5-wb$C(<1*H zX;UGNXPc9xlNO64j)$`Zi=ucm)a9Z>hqThU)+z5R>Y$D~wZdji)G3=z=FhXvcttqR zI#E#v%Nz$-r%qSYAtEA&wE6Sgm@95M>bUZ9UBY!sO<-o{?TjE!A&3nKqWWY=zt=Mu zqj<7vVj!pKMbI@x|2++pu-b~^bzH9NJx5Yw zyjd?{I#-XZ8dPg2ZY);>D_Iy@uSSBL&rGMA7e$VND_kq#eE>|XV-@uS!=H8Jgqez( zB;2WKBQbtCBGDAq9QrU6W=bDp5p@eul#RlEf}*Ah17-m7n9ZQp!l5@ zYPD`i<3Mg07YdgF2DfmT!3`4$28xa-serk$FX)p3)>bojn7dh*3s{vZWpoDJxxfZ! z8Ak02sK-UtO)FR$sn@G5ZNA7BX>FHD@&di~D_g8xST4zCbmUj|mZq+dWK#x+ImS!zS!F1Fzmh)tgZa7E^n^-H##R|d@wD&~i_o$S@-51}#Oi7BpGcPz>FFib zP@8Cw+o|DY)<*lsAmb_FGV7vkC#jrB$1byvw8S-%JVb-8u>RU1gAAvGSJ>jJ;h#$B zla18%D$CaH8gvhGFJ!~DpwFcE2+b{I0db8DGTJ~-{CN)Izouu13$)^QX1z4HXJ9>y z{=c>So*2Rgbi0uGYegHRO>1&3Vm-Ad8zmV-V~dcEEnSlN^j#5qLyOrY$!+wah<%`K z+bqdETKqd}t>qcyZaVcl+thf`7AcL{Dlw2P6GIZI>H+_PIfx;7ON+HOPl z2A%kWjnHmvlcqzd*)^7_4c#HhM7np4y{;u1vn^HT+VN2dUSe zDE&c$%%zM!S&8<|ZYkYLJ8rP{jce|aWG4grVrKlOatVgei+qY%V8hQ0^1gxp)>nLn zXGpKfG_n}U+njD@i(0znknm%_&ooiz)9Wo2)H1$ge5t zFV;c(+8`@Y>R*^CmA;nB3G_se2?kk2!)_t(WMi6k7p@!cm&)_# zHzA#8kf*8nJ&>mjGL%y9v0+;10jbRC@jcdF;|AHAB1>3AqoW2HcTj5izB>7f@D_o& z6k*8XXln@z)_NOcIu(>)-KHDl-7L#}Hj7m?k4AqVqvQvymS)o3DB}T}p>;bXJK9A} zAF^KBE`xNVl!sUsZil6`5nXx6LbXN)*_T`%v8GyIgWN`49%0pNGsqHJ`UoW~F~~Ob z^CLD=Ym*~gEv62SK`uTb$r#Fb%;sn@$0V6ZEuOG;TB1R2qq$F5hpO8Q5;>fF!dhzP zc}~f4ddj>!%IE>q&{-X<4LB~H-J})HYAY?pApf9q&T6!F(;z!hP&IXy)+tvihtTKM z)FE2P2}xd{s@2s&+Jzq^d59)fS4U`vPDyegU8t_Up$+^|l0@EC^>vL5vIf0nMZYyp zOKBZiYgHR+bqsPgowlm&wb=&Qi+o(vX^pF$k;+dEJmI4#wa4MvO`Xg32uO=ng1hHS zrF!(8i|VHhFvu(_bWvlqEQ9o=rmo0yZh=&8LN-@5RO@wCk{PtuRc)?i7-SILbybII zLFc8kBlUAr8)+R4vNff+skvI~U!*ja2Gvl%(PA%1(uI87)nS^;MM-X_1@7uE+V)>1 zIXi2Fhw8z!*_R}JglwMbyV{Yq1G^pw3<(Yy2+BLA2RRjnM}EA;~%P z&4Xn_EiRGd z7IO4OwYC`KQR*+qqXt<-p9`|cAY0P|Uv+}k`k}P-rZIjfp7$e3wx=_G@Z8=YTT*p@ zl&9rmDQ!d3{nce!o2QbDAg7w@Y%QWxl5f%Sn(9pLtrwESqf0G}(i($|rXID_dRp{9 zQo51m)xtPzRH78|<4>&v)CpDnnIuaslo_C=Xr&fOPozP$kpUn7h}BIOG=|@KwY&*)ggY8d>oRMQCD5c zw8tTmaf3S4R~KpT)Rkloovp8S(Qed}WPPd=sBvO(n}$7v7MFk%B$ zKc`)ZkJP#~t~ce5)3Q4BRsUwJZ&thh>clE)$^U3_7u7H8ThU|Qq z4oYvde<|m=nC%bnn^&{+W;;ovLtNdNwK7ZnE-b6(H8seADU@(SZK7r1|3pXpWZ*o9 z4^Xy2;vrR#W&g)J6j}^&e`~3{KWl8Unyca+yy-3V4ZJyzy`{FpML{jDH*yS7m?J{ky8& z5ifc7pQ>JXFw{!bVXQBWEmdRSWN#^K%^TDNV{W&rB<5c=r7aZ+v3Z3W1h)7YYKS?x zK7-i27QJm)&oso_DN2aV`$&v5R#q9}LzE!I=AmL<*dsF%|b(@cQL>g>}YvEx) zgtnMQJXd4H{;>18+6jMIe*Za~ndgZiMkx6EYF!)Wi@zZ@4-{YH(ky;<8R84nONh-A z#X2cfelo-ZX#vFeUCEli)h2jTJ^}DCzYgsUR{$OoB+OY=%VJZoNcGERZ;kC3UzXbQE^$H;^feng;Kf`GTBB20=f}%1{|cO0vgf?XH?8Q zOC}gAV5+O^HkQ&L#@4k%C=*>2(1x^X4!`)A_pRneUgO-P&18C34QZQas3(SagCUNm zsOoUini2$Tru6C#+gR(Y&Q^y22JToF*qUd^SR*) +MODULE oocSysClock; +IMPORT Unix; CONST maxSecondParts* = 999; (* Most systems have just millisecond accuracy *) @@ -65,19 +45,15 @@ TYPE inactive. *) END; -PROCEDURE -includeTime() - "#include "; -PROCEDURE -includeiSysTime() - "#include "; - - -PROCEDURE -cangetclock() : BOOLEAN -"struct timeval t; return (BOOLEAN)(gettimeofday(&t, NULL) == 0);"; -(* PROCEDURE CanGetClock*(): BOOLEAN; (* Returns TRUE if a system clock can be read; FALSE otherwise. *) -*) +VAR timeval: Unix.Timeval; timezone: Unix.Timezone; +l : LONGINT; +BEGIN + l := Unix.Gettimeofday(timeval, timezone); + IF l = 0 THEN RETURN TRUE ELSE RETURN FALSE END +END CanGetClock; (* PROCEDURE CanSetClock*(): BOOLEAN; (* Returns TRUE if a system clock can be set; FALSE otherwise. *) @@ -87,11 +63,8 @@ PROCEDURE IsValidDateTime* (d: DateTime): BOOLEAN; (* Returns TRUE if the value of `d' represents a valid date and time; FALSE otherwise. *) *) -(* -PROCEDURE GetClock* (VAR userData: DateTime); -(* If possible, assigns system date and time of day to `userData' (i.e., - the local time is returned). Error returns 1 Jan 1970. *) - *) + + (* PROCEDURE SetClock* (userData: DateTime); (* If possible, sets the system clock to the values of `userData'. *) @@ -115,16 +88,23 @@ PROCEDURE MakeLocalTime * (VAR c: DateTime); whether DST or normal time zone will be chosen. *) *) -PROCEDURE -gtod(VAR sec, usec : LONGINT) -" struct timeval tval; int res; res = gettimeofday(&tval, NULL); if (!res) { *sec = tval.tv_sec; *usec = tval.tv_usec; return 0; } else {*sec = 0; *usec = 0; return -1; }"; - PROCEDURE GetTimeOfDay* (VAR sec, usec: LONGINT): LONGINT; (* PRIVAT. Don't use this. Take Time.GetTime instead. Equivalent to the C function `gettimeofday'. The return value is `0' on success and `-1' on failure; in the latter case `sec' and `usec' are set to zero. *) + VAR timeval: Unix.Timeval; timezone: Unix.Timezone; + l : LONGINT; BEGIN - gtod (sec, usec); + l := Unix.Gettimeofday (timeval, timezone); + IF l = 0 THEN + sec := timeval.sec; + usec := timeval.usec; + ELSE + sec := 0; + usec := 0; + END; + RETURN l; END GetTimeOfDay; END oocSysClock. diff --git a/src/lib/system/gnuc/x86_64/Unix.Mod b/src/lib/system/gnuc/x86_64/Unix.Mod index 7bf77533..2539dbd9 100644 --- a/src/lib/system/gnuc/x86_64/Unix.Mod +++ b/src/lib/system/gnuc/x86_64/Unix.Mod @@ -332,7 +332,7 @@ from man gettimeofday PROCEDURE -Select*(width: LONGINT; VAR readfds, writefds, exceptfds: FdSet; VAR timeout: Timeval): LONGINT "select(width, readfds, writefds, exceptfds, timeout)"; - PROCEDURE -Gettimeofday* (VAR tv: Timeval; VAR tz: Timezone) + PROCEDURE -Gettimeofday* (VAR tv: Timeval; VAR tz: Timezone) : LONGINT "gettimeofday(tv, tz)"; PROCEDURE -Read* (fd, buf, nbyte: LONGINT): LONGINT diff --git a/src/lib/v4/Kernel.Mod b/src/lib/v4/Kernel.Mod index f9769b4f..13e0c5f7 100644 --- a/src/lib/v4/Kernel.Mod +++ b/src/lib/v4/Kernel.Mod @@ -84,8 +84,9 @@ MODULE Kernel; PROCEDURE GetClock* (VAR t, d: LONGINT); VAR tv: Unix.Timeval; tz: Unix.Timezone; time: RealTime; + l : LONGINT; BEGIN - Unix.Gettimeofday(tv, tz); + l := Unix.Gettimeofday(tv, tz); time := localtime(tv.sec); t := time.sec + ASH(time.min, 6) + ASH(time.hour, 12); d := time.mday + ASH(time.mon+1, 5) + ASH(time.year MOD 100, 9); @@ -98,8 +99,9 @@ MODULE Kernel; PROCEDURE Time*(): LONGINT; VAR timeval: Unix.Timeval; timezone: Unix.Timezone; + l : LONGINT; BEGIN - Unix.Gettimeofday(timeval, timezone); + l := Unix.Gettimeofday(timeval, timezone); RETURN (timeval.usec DIV 1000 + timeval.sec * 1000 - timeStart) MOD 7FFFFFFFH END Time; diff --git a/voc.REMOVED.git-id b/voc.REMOVED.git-id index e952ef08..b26f809e 100644 --- a/voc.REMOVED.git-id +++ b/voc.REMOVED.git-id @@ -1 +1 @@ -781786d67da699b419a4f4ae42b31c6cd1506ee8 \ No newline at end of file +57cd5fe4852aebc3f998f67036da0fcd2f7bf258 \ No newline at end of file diff --git a/vocstatic.REMOVED.git-id b/vocstatic.REMOVED.git-id index 4b49d3ed..b26f809e 100644 --- a/vocstatic.REMOVED.git-id +++ b/vocstatic.REMOVED.git-id @@ -1 +1 @@ -5a61e0f70e28eb3c5eb604cf506a2f9a18c3355c \ No newline at end of file +57cd5fe4852aebc3f998f67036da0fcd2f7bf258 \ No newline at end of file diff --git a/vocstatic.linux.gnuc.x86_64.REMOVED.git-id b/vocstatic.linux.gnuc.x86_64.REMOVED.git-id index 4b49d3ed..b26f809e 100644 --- a/vocstatic.linux.gnuc.x86_64.REMOVED.git-id +++ b/vocstatic.linux.gnuc.x86_64.REMOVED.git-id @@ -1 +1 @@ -5a61e0f70e28eb3c5eb604cf506a2f9a18c3355c \ No newline at end of file +57cd5fe4852aebc3f998f67036da0fcd2f7bf258 \ No newline at end of file