From 43ecc8663e0dcebaf5b141ad5e3bca33684b93cf Mon Sep 17 00:00:00 2001 From: Norayr Chilingarian Date: Wed, 22 Jan 2014 14:35:18 +0400 Subject: [PATCH] OakFiles, added WriteByte to be more compatible with PO 2013 -- noch Former-commit-id: b0a30438d1c067983b70380d71decd876bf1bea5 --- ocat | Bin 209566 -> 209542 bytes showdef.REMOVED.git-id | 2 +- src/lib/v4/OakFiles.Mod | 12 ++++++++++++ voc.REMOVED.git-id | 2 +- 4 files changed, 14 insertions(+), 2 deletions(-) diff --git a/ocat b/ocat index 73621ad1b1a73e145af46bd6a7c7c31a5013aa68..802d3c22371eb2099f672240707b8efda51eb3f4 100755 GIT binary patch delta 7591 zcmZ`;dt6ji*PeAo5M>Y;8DQixGh9_JA_#(tk-pfZplEqXL_kZ;yda@v38H37G)b;> zo3E+aO?%BxJ0)HT$yv92Dw-{I*`VS7>az1YULyt6>_l(y)3@4Ht#(ywHV%N(|1&tQlM);!_mWol!aCgL z?`Pbcqf~Gu-&2ZTd~U@n{(c@iRo;9&=nc#7EQ0G&sHihUFx5Ic$3QWg6+#sv7` z>%>;5*eJ{)_5iV)Rctugh`mAVP8Hi94-y*~Nb^>)qwyxO8N}A9SThC%(!7anP_dIR zGtkeNtD0!D%KHQsllMuLSCiX5?}_*cWz+@HyjARAyhQ9EV$CWx8$E((-o(bK*gQ-n zb_20#DmD^l6I)AcmWrK%?+|;R*gO@Ril>N;4yJjl*s1t{*h$2es@M#S38r}yTcKi8 zFo)O!#BNrx!Du7)2C+L;?07s#Y@mtetzr}LCb1dB)~VPq3^LKYO*&(PicMF~65loX z8Qt=fiFPKBr1E;Tou(wZzU)vEA?;V(%0CqKfs#Q^ZDFbRH{JY>?C5>saONXSZLnFZdI{< zm_zIVV)v+6Bie|)VTo9LG1a1J3;&TmJxyt3aXf?1rKzEf{)M087&xvI_yos%a81<$ z*Kn-mc&EVoIOfM%(`JD`<=BPe3V}c7m>+FTr5rB~-@*yL8%+g5u%2T#j`IXw&2blw zvjl#PGIriY#OW>ItcjH(?cyU|!6i#?@qWK{);S)Lb z;Y6$1C>*q7tdhiyJoFoY9+ zoG1{29{65p8Z5+LLVLS4(ie$!$@K>G4GV?_ObiS2S>4~F(G=Hki{@;3 zc336A1PqV(Qo5Ur*CNbt4&5U+LIQmT$VVb`09IpYuk99>ein_j%*$Gy-fS(Wi%WE( zAR416E5Xm@=3W`v9y8+YGMAFRWR;6bzT}@PkBiv_o;PC^)|LfC*2}(qKGR0_rW{;q z%W5MskRx8nWhPmkyEU&=7X=gQge~!NAQSTv%Je^o2;NPrB0YisBt*hKIkew=&}Z~i z@|D$CwPPD8bRd45_`B!$NJkl7`*C@D(pGS<2&Iv^N|-NKTPT!m%NFh;%0u@1}%C zUJ7+I!Pk0*BeB+?F!fq1aqxhM$chfyrA}=fS?zO~Nm^g|-2vBO$mS3wxmfsjlz$Z` zME*>Ry6z(!3EoCld#*@4Jt)ERce6vw2Xz&_Qj2;PI62<;6plpvPO{qLhnw+{0S5U{ z>NS8R^7coPKtDWKNhW%#rq~quZrU!_VJ2TkpovIt1q}kv<#*_mC_T9S=)*RR=klur z$Q?p%x30$G z^o{4+)BlX0=B)}@##J<&vh>!{ z;vY3d&r-&=2fU>HmWjuy`D^`85+!Ds-a5a#IH1Hfe1_grjA6Znp1RRoe}TdS+QXL> zw`%71BnNto3yn1a>3IxCH;_lLO+%EM%mWBcw^eqq#b`cO1&?v4yD$8 zDM}4#6`|#-(D$boB^}@yMVFrnt3&9m8WCz$svdHN_Q#Pkirj0QRrlbj8AkoEKSYIl zPFW(h&L~W(x$CH~M_3&yY&aw;e5i!>p_@!u*BadXY@vGyr$uxA7&OzUzswWZ4AY&m zQ)r!8m^9H@A?v>@WK@d^m+y$sO{&o5nT75XIV~z=;q2#V4ZjQ7w@z6iu6wR1soE*q zEvyb}_`6C}cv=bdaPH+3IAm6lyC^Iwe2s@@8TEIXMTMbG*%iDotFZqZP7B%7!s<|A z>p@ZBZzc3)XJ}J1u9-d0eStG}7JAPy>Q^f|*{NHCgXR<_b#ux(39Cbi2?s=p9!ltS zXJ{AvWlo{{+S`uqUYGOdR(kjky22l+7n756ryWb{l+^ENnk%*Ml7n%@=Fp6vxU+9; z9H;yU&=E~mB3V}D;E?e7;;FC^zb!TmE1^`@vYIOXjzp>z0v>BTdsj5%)!+#Kvz}+| zGq<4VXj&((yh;S+t0VJTJq{`vH+i*SYO44fsMVGly<4McOr|`0?YRr>emneua`OYr zz)RT@wIrup#X@BNI>>v_*0#KQzMl9PY%cL%oT2viY4_eIUOCp9j*IGv+dmiS0@MKy z>1ed4J1GLhyEan-mMQ_)E{m>|ucK2+fG5>o&jWgE_}lpPXQ|yOiu{0DzNuY43wJFx z^n63@o!9OiEUNQ2_v;>%yN`Tpapz9(1^&70JUlO-cx61e1$;++*v4+gmNWi%=D0t$ zRk&gPs|&z}-@VH8i5Ixr5PO|>%TKv5T(Y9n{k?Api~IO()U6C&yk3!wqjz6L_7n+} z`yujMvu4^cO)MY!2$CtRQL!9f8ohZw$CvZi^|Y57`u#x>Ey7V##eYoDUYBgAy$<@S z-TxIYTsFC;s|ACF z8)g^!@kHe=x4-6vk2Sul5{BaNG84V7&n)W!S@QC-Dy?yJ9m&eaHdx_==WhK?3IM z_BXSEbHss=qg0sV49!3|Sm^$}GxQ9W95m{WaBMSt=#+hi+eoIWfDu(;l6bAklebre zc7|}d?ns6tHLk_r<0I1wyAbut^E0za=cOLN~;^fzkL;XKBl3g@X$6@#CA;nbr5SJD5B z89u`l`b3;~CJ2_l_u?6V?YOYc4CV6rx^6(j-FDUt&*O=+Lue;F&h-Lc?0+s=YI+@? zIhPBic;wtxU^wTzSz1u8l>6X(Uun*3!j^BIe*)kzKKf0Vw5d#SFZyPfG{kOy|4l!s z|4M}qyHG0S+3o!ohDe!cD#uA)77=)3_e7d~U z1_*;u?4bdIpl@ZMFD%!>e=4^a;YomD>|PHT1+MI|0EmEkHiuvKRIUkto&c*@RUkYI zL9AyGL`f}aVvcNP5E$SCRvH8W(l$HyX%KuZ9Zh3k0YA1W7{XyCI}!}hQnsDzY686! zX9tNUFv4y&$^_#emwjl05s=O9m|(2*AXTX`*$m!ri4~aPDQVeY_5~fZ>^C#`L*`lw z&5nj_fhYie@pm7yl7DB_(2aAM&9zYK!>r5#!yu8>S!m^6><#-F5Zb&H<`W8$;LQewLK@Vu;!qmHN9@B;$cI#x6$ZX6n2r>w zWdK_e1U;lbQh2-nf=aeF4ANm<<&R-h5Hc7IF_?E5K_mBMgXto*BvZNc(Ox7)R1YoWS+Ww-=PUPv*Qhf}dpX_5!2+HAOhoDO|{EdqH8At5bNt9}nqp z2p^~aR-=Jz;U1ge-_F>xc4^E?@vKvf%b%G%+T{iIMsFz8{Ywb=H^AQsOcw?I`mIWi z@0~dqONxTRq%fzlhdrt4OJH)_Ltg*Icv0Vb6kWt3r?bmZv_qM!m8ZDK-D0hEeYw?P z2^$`Y6g!j@qns&X*ydIH2DW0=SRZ}?5msjpG zk1dL!td~VQd)AB*bL>)tlR8sP-Xp9$@&``91Df+fzGTm+5T8Cc6Z~+ zZH8^m6!&7;Z?Q11|0}V)DzE>NusW=2$3J3K8f8^ioWZyIuvL9vp8F!6RRk9@_c*$P z_9$givWOSE@DWRjgTns(oWkD1>QH6!-=fNl7}4UJ&e*nCRv$-CVk&EmgQBDYXQx%s zyljUY>;DotW+^#NIdf#QEq!SojUs}t@-j2U(>xAGiDKcS9gY4I#YV)_gZT!V8xKY9 z`P?s7=E-iw)1&qi>z)8J+%kLexR_yVSpwwi8Y2lUYi%p?*E150U= z`gd)%!{%)EQj?U_wfzr`Y#-q+>+FBNTgU$5^2XeJeyVGz?tp8OtJcFDC9o!pE_+$# zO(_bhD;M6B>VXcOdAB8lw!5Z*8-CC%Fc{ceLV>;-M`|U3@~PGM@!aQbOGmqn(eW2; zjb2l0@6jO)A|5mbjiXlwAMro*DMBw2OKsARournw$_A}=XD6vKyK=Rgc9sh z743zmh^{9(LPaz13DJ{8^HlU{?9tf={~xPP9fvE%-Un1wbHva#py(oi6*G%D149TG@>>Y&Baqh z*ApF~qG9-i=t-h^Dmo5(1W><;&Q;MA98EMLfcmYXW~!(=zDIN#(Oea6i>HXLCpt?- z_4tJ7NutFn+75eIsn0}Lsc3r~O*F!)_uQzW9nelRo9GS|HQ@oGZ&>x_gDUEy>PIE+ zwECEJLO;iKN3J&tJ&0z5TtA;|K$E|UH8fJz$%kbJ`K({4?LtgC{9Fq_bRwT5>mU!4;|Acp{%b0K1zDc2BTUz+8bNSZLsJSnT$k$umlynFB@9v@`7Yn~g`9I-6 z6xceWnT+uIo!NU*D-lEJX#9_k2%k{|SEBko`OY&-q_FiJoMztC6R?^9(#nx%g4(!+Uc0kkJx6l$Q=2E(IFeI@7M^Bhlm-os%7x|9QT? zH5|j=M_OUE>^15g31V>TXj{yDuxgZMQwKiRh}PDAt5nDlHl^)pCAQKue#dTV!rC#J zl3P6fJ14^GK@rr)n)-j5n)dKLntFfX2aTqJpDpsP#cy*?8ZI|knu{2kaKji=yWN8E z=MK5u!NX%h;0o4^nGB;bGdB=Ya8|C>+PTpp(rX_#r>{BRoc=NH%3ayzUG7EADNSoA zF1)NMm_iwSh#hlYG6Qk^*fqX4o+xgKX$^Bahz&}dhLhNSoH@8Z8I?ZV`8S2f2q~7n zxUfMpC!E+A96T-zdgCkO(D>?O%4IjbAUS(I6+4eFj<0>hOYlAGsuUKz=Bb~>yOS2hAAR5~wO@={ zlv?|ZC^fP{gqEp7Kb%|;|2@wrW_d!4T7>?7ScK*(RS&sBhv4A60^KE7)haxdXEx^C z7Zo15+%m8sFF*d$U(O0uV$`C-`a_~Zg%TP`7nyRoevTWb{h+Au;GPKGpbD*He>i9Np*(hGxu@?7*Z3_mHz9t^q+_YA;$x4dwx&M1&B3TbOVEVt z+}NvU6i1OHXp5#%290dW#?c91E*uYE;g5xZ1J+O~Tj}8n{*FXm8-zSobM`MWq3~*F zcsm*$(?rgkRd6)57598{RphIpp;V2@3y0-w736RQe*?AIQzE{iZ}bV2XOAQIa);d^ z|D=q3!!q$w_BbuMQ?Av*$?-VIebUslFZH;WUb`-Otx|-TbQ9W+k zmm*z^I-rrZMn}3E#E)sjyEan-7AXOeI^dKNV4(WDctAG|e;dCug{C`BasU2ju?Xeq zwV~Plb=+BG3jbJbo!x95CaUu{_dA}H`x*K7qBgDIM|`mOJe0{NULOwbF&8PZJ!>P@ zpYg>rmA=@t${oipeFZ+ki%Xd?;{rFEdfwsX`Bs#SuPrOq?fZeWxZHQ5z9gV%m*O^z z-hCCf+2o*H4^RDQ(M&p~>B*Zup4=4LOBp#I8vS`b=fgQ`9i2-JegB{c51yDV8~$a2 z&h^4=bguo6H`}iXd(PpCHj2X}?(n3t+2N2Q0slHf2{O37&FyCUCWqZoZ=Eucnwz!F zE(@_uX<%@U!_kK)DsyY&aNMMF?1KYK1L<{rYH26Plb4iMXw6fqX#Qnc)iyX`_{vz~ zWm}w9O|MO+p_py=gIIZ>tR$ zgtd|2k9ljKhM#cT+Dp(VFMCG@7$^66_d_il!0Pw6!wOuvAIy;=QwA z8`ke#Z(O;VEOt{}IUU4Ru@E=xTcmrui3jkjq#h&on~hhwwwn@mJKav>@cjkxFS^`@ zh!N#zeq{EUAvT0LN`)D&&4{PLtlTK1;mfA?e>+`;HmAw2b|LWq8w@53>lyV=P?CAp}!QUjOC6$#%f`k{Ol#O7WU%!E5Xw0*OZ9&uf#}$9OIfR zCYX$kS2lDkD&}WgyreE!q0!LT?F-!bbA}X9tc01a_L1~O_}tY{>E=QOt-QKSYF&iB z)q!ve6RHEGc11X%daJ(ELT9dm-FWD{2@)~*+Hz_80wwIoweAps_17#GU7^!)PK5Fu z*cPQ6Gx_Dp98g@{ko;!o)RJ>K!%N3f;lX55BtRO87JDFkLtg*i0*>zRXIkFaR=Gm6cW=&hA^O9Vsll z3xrDEDJ-)K^n_nnQ5T4UFWHVR)Ur9Ot_z*Kp{!#Ngh5x990aLQ!wQ3_4PUd5gJ7(b zm8489fc6y0qYrz{A38~%0{#omur zr+)#l=fh#A(LJ6{yxn9TOb4+AKV;rrp;-4y9KRs=9z2b0>I!D#W)AG8r(KS3vXfmQ zKQqAP*inpH?824we>F<6H&(>H>x!-AfbRDmCE{kM7`F!*9J#GzE4o3xK3h2O^2S)E z?+(7kgG!E{Tsi*3;=4nBe6q_k+L2WC6v%06oYi~8+{&_OJ+i2Y0_j&869p5h)i zi?!DD;-eNzSl=j8992>baivIO8zU&iyKHX+bz!$FMSvK!NO9?jNbyCKn8kEgip36B zRTnDx^2*#w*@7OF^?{fU?}DDkww#!+lC>N6v75?VSr0kZpvwA-lC_ET?Fsq1SXb6X zY+p|>cd$f?6rZ|M7$VuPJz;k5^*wo2UjHpIYO$*AkHxBdl~rAH1-FS}Dw?~8H z=f(z>SS$5z>+bkn(LI~Zua)B4Hvi7Z_LBD4;rNYj2m715YjVf(O= bufsize) OR (r.org # buf.org) THEN + Set(r, buf.f, r.org + offset); buf := r.buf; offset := r.offset; + END ; + buf.data[offset] := x; r.offset := offset + 1; buf.chg := TRUE +END Write; + + + PROCEDURE WriteBytes ... PROCEDURE Read* (VAR r: Rider; VAR x: SYSTEM.BYTE); diff --git a/voc.REMOVED.git-id b/voc.REMOVED.git-id index 9014520d..352ab1c1 100644 --- a/voc.REMOVED.git-id +++ b/voc.REMOVED.git-id @@ -1 +1 @@ -618780429002771779782b951c5686945ebbb889 \ No newline at end of file +886580f27024cc2cb8bf3dfc36d84aad5dbd2001 \ No newline at end of file