Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found
in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 88
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 218
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 219
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 220
PK ! —B 0M 0M
fixnums.gonu „[µü¤ GOOF----LE-8-2.0M ]< 4 h ] g guile¤ ¤ g define-module*¤ ¤ ¤ g rnrs¤ g
arithmetic¤ g fixnums¤ ¤
g filenameS¤ f rnrs/arithmetic/fixnums.scm¤ g pureS¤
g versionS¤ ¤ g set-current-module¤ ¤ ¤ g resolve-r6rs-interface¤ ¤ ¤ g only¤ g ash¤ g cons*¤ g define-inlinable¤ g inexact->exact¤ g logand¤ g logbit?¤ g logcount¤ g logior¤ g lognot¤ g logxor¤ g most-positive-fixnum¤ !g most-negative-fixnum¤ "g object-address¤ # !" ¤ $g call-with-deferred-observers¤ %$ ¤ &$ ¤ 'g module-use-interfaces!¤ (' ¤ )' ¤ *g current-module¤ +* ¤ ,* ¤ -g ice-9¤ .g optargs¤ /-. ¤ 0g base¤ 10 ¤ 2g control¤ 32 ¤ 4g bitwise¤ 54 ¤ 6g
conditions¤ 76 ¤ 8g
exceptions¤ 98 ¤ :g lists¤ ;: ¤ < ¤ ?g fxreverse-bit-field¤ @g fxrotate-bit-field¤ Ag fxarithmetic-shift-right¤ Bg fxarithmetic-shift-left¤ Cg fxarithmetic-shift¤ Dg fxcopy-bit-field¤ Eg fxbit-field¤ Fg
fxcopy-bit¤ Gg
fxbit-set?¤ Hg fxfirst-bit-set¤ Ig fxlength¤ Jg fxbit-count¤ Kg fxif¤ Lg fxxor¤ Mg fxior¤ Ng fxand¤ Og fxnot¤ Pg fx*/carry¤ Qg fx-/carry¤ Rg fx+/carry¤ Sg fxmod0¤ Tg fxdiv0¤ Ug fxdiv0-and-mod0¤ Vg fxmod¤ Wg fxdiv¤ Xg
fxdiv-and-mod¤ Yg fx-¤ Zg fx*¤ [g fx+¤ \g fxmin¤ ]g fxmax¤ ^g fxeven?¤ _g fxodd?¤ `g fxnegative?¤ ag fxpositive?¤ bg fxzero?¤ cg fx<=?¤ dg fx>=?¤ eg fx?¤ gg fx=?¤ hg greatest-fixnum¤ ig least-fixnum¤ jg fixnum-width¤ kg fixnum?¤ l?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijk -¤ mg module-re-export!¤ nm ¤ om ¤ pg module-replace!¤ qp ¤ rp ¤ sg % inline-fixnum?-procedure¤ tg make-syntax-transformer¤ ut ¤ vt ¤ wg inline-fixnum?¤ xg macro¤ yg $sc-dispatch¤ zy ¤ {y ¤ |g _¤ }g any¤ ~|} ¤ g
syntax-object¤ €g syntax-parameterize¤ g m-2e3f1f84bf0f11-1c¤ ‚g top¤ ƒ‚ ¤ „g ribcage¤ …g t-2e3f1f84bf0f11-1b¤ †… ¤ ‡ƒ ¤ ˆf l-2e3f1f84bf0f11-21¤ ‰ˆ ¤ Š„†‡‰ ¤ ‹„ ¤ Œg x¤ Œ ¤ Žf l-2e3f1f84bf0f11-1e¤ Ž ¤ „‡ ¤ ‘g shift¤ ’g proc-name¤ “g args¤ ”’“ ¤ •‚ ¤ –•• ¤ —f l-bde397a-1eaf¤ ˜f l-bde397a-1eb0¤ ™—˜ ¤ š„”–™ ¤ ›g name¤ œg formals¤ g body¤ ž›œ ¤ Ÿ••• ¤ f l-bde397a-1ea6¤ ¡f l-bde397a-1ea7¤ ¢f l-bde397a-1ea8¤ £ ¡¢ ¤ ¤„žŸ£ ¤ ¥g make-procedure-name¤ ¦g prefix¤ §¥¦ ¤ ¨•• ¤ ©f l-bde397a-1e9a¤ ªf l-bde397a-1e98¤ «©ª ¤ ¬„§¨« ¤ • ¤ ®f l-bde397a-1e97¤ ¯® ¤ °„¯ ¤ ±ƒŠ‹‘‹‹‹‹š¤¬°
¤ ²g hygiene¤ ³² ¤ ´€±³ ¤ µ•Š‹ ¤ ¶g private¤ ·¶ ¤ ¸wµ· ¤ ¹g identifier-syntax¤ º¹±³ ¤ »sµ· ¤ ¼º» ¤ ½¸¼ ¤ ¾½ ¤ ¿g lambda¤ À¿±³ ¤ Ág obj¤ ÂÁµ· ¤ ठÄg not¤ Åĵ· ¤ Æg =¤ ÇƵ· ¤ È
µ· ¤ ɵ· ¤ Ê µ· ¤ Ë"µ· ¤ ÌË ¤ ÍÉÊÌ ¤ ÎÇÈÍ ¤ ÏÅÎ ¤ ÐÀÃÏ ¤ Ñ´¾Ð ¤ Òg each-any¤ Ó|ÒŒ¤ Ôg syntax-violation¤ ÕÔ ¤ ÖÔ ¤ ×f Wrong number of arguments¤ Øf -source expression failed to match any pattern¤ Ùg identifier?¤ ÚÙ ¤ ÛÙ ¤ Ü•‹ ¤ ÝsÜ· ¤ Þg
assert-fixnum¤ ß}ÒŒ¤ àg or¤ ág dummy¤ âg arg¤ ãáâ ¤ äg m-2e3f1f84bf0f11-27¤ åä‚ ¤ æå• ¤ çf l-2e3f1f84bf0f11-2c¤ èf l-2e3f1f84bf0f11-2d¤ éçè ¤ ê„ãæé ¤ ëå ¤ ìf l-2e3f1f84bf0f11-29¤ íì ¤ î„ëí ¤ ï•ê‹î ¤ ðàï· ¤ ñg and¤ òñï· ¤ óg map¤ ôó ¤ õó ¤ öwï· ¤ ÷g raise¤ ø÷ï· ¤ ùg make-assertion-violation¤ úùï· ¤ ûú ¤ üøû ¤ ýü ¤ þg for-all¤ ÿg assert-fixnums¤ g define-fxop*¤ }}} ¤ g define¤ g op¤ á› ¤ g m-2e3f1f84bf0f11-31¤ ‚ ¤ •• ¤ f l-2e3f1f84bf0f11-36¤ f l-2e3f1f84bf0f11-37¤
f l-2e3f1f84bf0f11-38¤
¤ „ ¤
¤ f l-2e3f1f84bf0f11-33¤ ¤ „
¤ • ‹ ¤ · ¤ g case-lambda¤ · ¤ Œ· ¤ g y¤ · ¤ ¤ Þ· ¤ ¤ “· ¤ ÿ· ¤ ¤ g apply¤ · ¤ ¤ !g >¤ "g <¤ #g >=¤ $g <=¤ %g zero?¤ &g positive?¤ 'g negative?¤ (g odd?¤ )g even?¤ *g max¤ +g min¤ ,g )make-implementation-restriction-violation¤ -g div¤ .g mod¤ /g div-and-mod¤ 0g div0¤ 1g mod0¤ 2g
div0-and-mod0¤ 3g expt¤ 4g
bitwise-if¤ 5g bitwise-length¤ 6g bitwise-first-bit-set¤ 7g bitwise-copy-bit¤ 8g bitwise-bit-field¤ 9g bitwise-copy-bit-field¤ :g bitwise-rotate-bit-field¤ ;g bitwise-reverse-bit-field¤C 5 h 3 þ ]4
5 4 > " G 4#5 4&), h M ] 45 L 6E g filenamef rnrs/arithmetic/fixnums.scmŒ
ŒŒ
C O > " G 4/5 4&), h M ] 45 L 6E g filenamef rnrs/arithmetic/fixnums.scmŒ
ŒŒ
C O > " G 415 4&), h M ] 45 L 6E g filenamef rnrs/arithmetic/fixnums.scmŒ
ŒŒ
C O > " G 435 4&), h M ] 45 L 6E g filenamef rnrs/arithmetic/fixnums.scmŒ
ŒŒ
C O > " G 455 4&), h M ] 45 L 6E g filenamef rnrs/arithmetic/fixnums.scmŒ
ŒŒ
C O > " G 475 4&), h M ] 45 L 6E g filenamef rnrs/arithmetic/fixnums.scmŒ
ŒŒ
C O > " G 495 4&), h M ] 45 L 6E g filenamef rnrs/arithmetic/fixnums.scmŒ
ŒŒ
C O > " G 4;5 4&), h M ] 45 L 6E g filenamef rnrs/arithmetic/fixnums.scmŒ
ŒŒ
C O > " G 4&>,l h M ] 45 6 E g filenamef rnrs/arithmetic/fixnums.scmŒ
ŒŒ
C> " G 4&o, h M ] 45 6 E g filenamef rnrs/arithmetic/fixnums.scmŒ
ŒŒ
C> " G 4&r, h M ] 45 6 E g filenamef rnrs/arithmetic/fixnums.scmŒ
ŒŒ
C> " G " " i”$ —" — š "ÿÿÞ
"ÿÿÔ h ] L C
C O jR h j ] C b g filenamef rnrs/arithmetic/fixnums.scmŒ
h ŒŒ
g nameg greatest-fixnumŒ ChR! h g ] C _ g filenamef rnrs/arithmetic/fixnums.scmŒ
i ŒŒ
g nameg least-fixnumΠCiR" h t ]
4 5 ‘€Cl g obj
g filenamef rnrs/arithmetic/fixnums.scmŒ
k ŒŒ g nameg fixnum?Œ CkR" h ‡ ]
4 5 ‘€C g obj
g filenamef rnrs/arithmetic/fixnums.scmŒ
n ŒŒ g nameg % inline-fixnum?-procedureŒ CsR4vwx{~Ñ h ; ] C 3 g t-2e3f1f84bf0f11-1b
CÓÖw× h _ ]L 6 W g a
g filenamef rnrs/arithmetic/fixnums.scmŒ n ŒŒ C|ÖØÛ h O ] L 6G g filenamef rnrs/arithmetic/fixnums.scmŒ n ŒŒ
CÝ h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"ÿÿ×"ÿÿÓ ˆ g x
q g tmp q g tmp " q g tmp > q g filenamef rnrs/arithmetic/fixnums.scmŒ
n ŒŒ q C5wR4vÞx{ßðòõö h = ] C 5 g tmp-2e3f1f84bf0f11-30
Cý h > ]45ŒŒŒC 6 g dummy
g arg CÖØ h( x ] 4 5 $ @ 6 p g x
" g tmp " " g
macro-typeg syntax-rulesŒg patternsg argg ... C5ÞRþs÷ù h Š ] 4 5 $ C45 6 ‚ g args
g t g filenamef rnrs/arithmetic/fixnums.scmŒ
w ŒŒ g nameg assert-fixnumsŒ CÿR4v x{ h0 O ]Œ ŒŒ C G g dummy
* g name * g op * * CÖØ h( x ] 4 5 $ @ 6 p g x
" g tmp " " g
macro-typeg syntax-rulesŒg patternsg nameg op C5 RÆigR!ifR"ieR#idR$icR%ibR&iaR'i`R(i_R)i^R"÷ù*ÿ hx ª ) Q3
4 5 ‘$ "
45 ‘€ $ " 445 > " G 6- 1 3 4 > " G @¢ g x
W g y W g t + O g args
` x g filenamef rnrs/arithmetic/fixnums.scmŒ
• ŒŒ W ` x
g nameg fxmaxŒ C]R"÷ù+ÿ hx ª ) Q3
4 5 ‘$ "
45 ‘€ $ " 445 > " G 6- 1 3 4 > " G @¢ g x
W g y W g t + O g args
` x g filenamef rnrs/arithmetic/fixnums.scmŒ
– ŒŒ W ` x
g nameg fxminŒ C\R"÷ù, hˆ ´ ]
4 5 ‘$ "
45 ‘€ $ " 445 > " G –
45 ‘€ $ " 445 > " G C ¬ g fx1
ƒ g fx2 ƒ g t $ H g r M ƒ g t \ € g filenamef rnrs/arithmetic/fixnums.scmŒ
˜ ŒŒ ƒ g nameg fx+Œ C[R"÷ù, hˆ ´ ]
4 5 ‘$ "
45 ‘€ $ " 445 > " G š
45 ‘€ $ " 445 > " G C ¬ g fx1
ƒ g fx2 ƒ g t $ H g r M ƒ g t \ € g filenamef rnrs/arithmetic/fixnums.scmŒ
Ÿ ŒŒ ƒ g nameg fx*Œ CZR"÷ù hø ç - . , 3 #
4 5 ‘€ $ " 445 > " G $ l
45 ‘€ $ " 445 > " G ˜
45 ‘€ $ " 445 > " G C
˜
45 ‘€ $ " 445 > " G C ß g fx1
ò g fx2 ò g t " F g t Y } g r ‚ ¸ g t ‘ µ g r ¼ ò g t Ë ï g filenamef rnrs/arithmetic/fixnums.scmŒ
¦ ŒŒ ò g nameg fx-Œ CYR"÷ù- hP “ ]
4 5 ‘$ "
45 ‘€ $ " 445 > " G 6‹ g fx1
P g fx2 P g t $ H g filenamef rnrs/arithmetic/fixnums.scmŒ
² ŒŒ P g nameg fxdivŒ CWR"÷ù. hP “ ]
4 5 ‘$ "
45 ‘€ $ " 445 > " G 6‹ g fx1
P g fx2 P g t $ H g filenamef rnrs/arithmetic/fixnums.scmŒ
¶ ŒŒ P g nameg fxmodŒ CVR"÷ù/ hP › ]
4 5 ‘$ "
45 ‘€ $ " 445 > " G 6“ g fx1
P g fx2 P g t $ H g filenamef rnrs/arithmetic/fixnums.scmŒ
º ŒŒ P g nameg
fxdiv-and-modŒ CXR"÷ù0 hP ” ]
4 5 ‘$ "
45 ‘€ $ " 445 > " G 6Œ g fx1
P g fx2 P g t $ H g filenamef rnrs/arithmetic/fixnums.scmŒ
¾ ŒŒ P g nameg fxdiv0Œ CTR"÷ù1 hP ” ]
4 5 ‘$ "
45 ‘€ $ " 445 > " G 6Œ g fx1
P g fx2 P g t $ H g filenamef rnrs/arithmetic/fixnums.scmŒ
 ŒŒ P g nameg fxmod0Œ CSR"÷ù2 hP ]
4 5 ‘$ "
45 ‘€ $ " 445 > " G 6• g fx1
P g fx2 P g t $ H g filenamef rnrs/arithmetic/fixnums.scmŒ
Æ ŒŒ P g nameg fxdiv0-and-mod0Œ CUR"÷ù13j0 h˜ ß ]
4 5 ‘$ " "
45 ‘$ "
45 ‘€ $ " 445 > " G –– 44 45 55 44 45 55 D × g fx1
— g fx2 — g fx3 — g t 9 ] g s e — g s0 z — g s1 — g filenamef rnrs/arithmetic/fixnums.scmŒ
Ê ŒŒ — g nameg fx+/carryŒ CRR"÷ù13j0 h˜ ß ]
4 5 ‘$ " "
45 ‘$ "
45 ‘€ $ " 445 > " G ˜˜ 44 45 55 44 45 55 D × g fx1
— g fx2 — g fx3 — g t 9 ] g d e — g d0 z — g d1 — g filenamef rnrs/arithmetic/fixnums.scmŒ
Ñ ŒŒ — g nameg fx-/carryŒ CQR"÷ù13j0 h˜ ß ]
4 5 ‘$ " "
45 ‘$ "
45 ‘€ $ " 445 > " G š– 44 45 55 44 45 55 D × g fx1
— g fx2 — g fx3 — g t 9 ] g s e — g s0 z — g s1 — g filenamef rnrs/arithmetic/fixnums.scmŒ
Ø ŒŒ — g nameg fx*/carryŒ CPR"÷ù h@ € ]
4 5 ‘€ $ " 445 > " G 6 x g fx
9 g t 3 g filenamef rnrs/arithmetic/fixnums.scmŒ
ß ŒŒ 9 g nameg fxnotŒ COR"÷ùÿ hx ª ) O3
4 5 ‘$ "
45 ‘€ $ " 445 > " G C- 1 3 4 > " G @ ¢ g x
U g y U g t + O g args
^ v g filenamef rnrs/arithmetic/fixnums.scmŒ
à ŒŒ U ^ v
g nameg fxandŒ CNR"÷ùÿ hx ª ) O3
4 5 ‘$ "
45 ‘€ $ " 445 > " G ¡C- 1 3 4 > " G @ ¢ g x
U g y U g t + O g args
^ v g filenamef rnrs/arithmetic/fixnums.scmŒ
á ŒŒ U ^ v
g nameg fxiorŒ CMR"÷ùÿ hx ª ) O3
4 5 ‘$ "
45 ‘€ $ " 445 > " G ¢C- 1 3 4 > " G @ ¢ g x
U g y U g t + O g args
^ v g filenamef rnrs/arithmetic/fixnums.scmŒ
â ŒŒ U ^ v
g nameg fxxorŒ CLR"÷ù4 hh £ ]
4 5 ‘$ " "
45 ‘$ "
45 ‘€ $ " 445 > " G 6 › g fx1
g g fx2 g g fx3 g g t 9 ] g filenamef rnrs/arithmetic/fixnums.scmŒ
ä ŒŒ g g nameg fxifŒ CKR"÷ù hP † ]
4 5 ‘€ $ " 445 > " G
’$ 4 56 6 ~ g fx
L g t 3 g filenamef rnrs/arithmetic/fixnums.scmŒ
è ŒŒ L g nameg fxbit-countŒ CJR"÷ù5 h@ ƒ ]
4 5 ‘€ $ " 445 > " G 6 { g fx
9 g t 3 g filenamef rnrs/arithmetic/fixnums.scmŒ
î ŒŒ 9 g nameg fxlengthŒ CIR"÷ù6 h@ Š ]
4 5 ‘€ $ " 445 > " G 6 ‚ g fx
9 g t 3 g filenamef rnrs/arithmetic/fixnums.scmŒ
ï ŒŒ 9 g nameg fxfirst-bit-setŒ CHR"÷ù hP ˜ ]
4 5 ‘$ "
45 ‘€ $ " 445 > " G 6 g fx1
P g fx2 P g t $ H g filenamef rnrs/arithmetic/fixnums.scmŒ
𠌌 P g nameg
fxbit-set?Œ CGR"÷ù7 hh © ]
4 5 ‘$ " "
45 ‘$ "
45 ‘€ $ " 445 > " G 6 ¡ g fx1
g g fx2 g g fx3 g g t 9 ] g filenamef rnrs/arithmetic/fixnums.scmŒ
ò ŒŒ g g nameg
fxcopy-bitŒ CFR"÷ù8 hh ª ]
4 5 ‘$ " "
45 ‘$ "
45 ‘€ $ " 445 > " G 6 ¢ g fx1
g g fx2 g g fx3 g g t 9 ] g filenamef rnrs/arithmetic/fixnums.scmŒ
ö ŒŒ g g nameg fxbit-fieldŒ CER"÷ù9 h€ À ]
4 5 ‘$ " 7
45 ‘$ " "
45 ‘$ "
45 ‘€ $ " 445 > " G 6 ¸ g fx1
~ g fx2 ~ g fx3 ~ g fx4 ~ g t N r g filenamef rnrs/arithmetic/fixnums.scmŒ
ú ŒŒ ~ g nameg fxcopy-bit-fieldŒ CDR"÷ù hP ]
4 5 ‘$ "
45 ‘€ $ " 445 > " G ŸC ˜ g fx1
N g fx2 N g t $ H g filenamef rnrs/arithmetic/fixnums.scmŒ
þ ŒŒ N g nameg fxarithmetic-shiftŒ CCRCiBR"÷ù hP ¦ ]
4 5 ‘$ "
45 ‘€ $ " 445 > " G
˜ŸCž g fx1
P g fx2 P g t $ H g filenamef rnrs/arithmetic/fixnums.scmŒ
ŒŒ P g nameg fxarithmetic-shift-rightŒ CAR"÷ù: h€  ]
4 5 ‘$ " 7
45 ‘$ " "
45 ‘$ "
45 ‘€ $ " 445 > " G 6 º g fx1
~ g fx2 ~ g fx3 ~ g fx4 ~ g t N r g filenamef rnrs/arithmetic/fixnums.scmŒ
ŒŒ ~ g nameg fxrotate-bit-fieldŒ C@R"÷ù; hh ² ]
4 5 ‘$ " "
45 ‘$ "
45 ‘€ $ " 445 > " G 6 ª g fx1
g g fx2 g g fx3 g g t 9 ] g filenamef rnrs/arithmetic/fixnums.scmŒ
ŒŒ g g nameg fxreverse-bit-fieldŒ C?RC ö g m
+ g iface
2 º g iface
Á J g iface
Q Ú g iface
á j g iface
q ú g iface
Š g iface
‘ g iface
! ª g i
. P g n . P g w
Z ‘ g filenamef rnrs/arithmetic/fixnums.scmŒ
ŒŒ ” a ŒŒ h ŒŒ ¢ i ŒŒ ? k ŒŒ ê n ŒŒ
í w ŒŒ ] ‰ ŒŒ e Š ŒŒ m ‹ ŒŒ u Œ ŒŒ } ŒŒ … ŒŒ ŒŒ • ‘ ŒŒ ’ ŒŒ ¥ “ ŒŒ å • ŒŒ % – ŒŒ ˜ ŒŒ × Ÿ ŒŒ Ò ¦ ŒŒ Î ² ŒŒ Î ¶ ŒŒ Ö º ŒŒ × ¾ ŒŒ × Â ŒŒ à Æ ŒŒ z Ê ŒŒ Ñ ŒŒ !ª Ø ŒŒ "ƒ ß ŒŒ #Å à ŒŒ % á ŒŒ &E â ŒŒ 'n ä ŒŒ (a è ŒŒ )> î ŒŒ *% ï ŒŒ ++ 𠌌 ,\ ò ŒŒ - ö ŒŒ .ë ú ŒŒ /ó þ ŒŒ /ú ÿ ŒŒ 1 ŒŒ 2e ŒŒ 3 ŒŒ 1 3Ÿ
C6 PK ! R¾`è1; 1;
flonums.gonu „[µü¤ GOOF----LE-8-2.0; ] · 4 h˜ ] g guile¤ ¤ g define-module*¤ ¤ ¤ g rnrs¤ g
arithmetic¤ g flonums¤ ¤
g filenameS¤ f rnrs/arithmetic/flonums.scm¤ g pureS¤
g versionS¤ ¤ g set-current-module¤ ¤ ¤ g resolve-r6rs-interface¤ ¤ ¤ g ice-9¤ g optargs¤ ¤ g call-with-deferred-observers¤ ¤ ¤ g module-use-interfaces!¤ ¤ ¤ g current-module¤ ¤ ¤ !g only¤ "g inf?¤ #!" ¤ $g fixnums¤ %$ ¤ &g base¤ '& ¤ (g control¤ )( ¤ *g
conditions¤ +* ¤ ,g
exceptions¤ -, ¤ .g lists¤ /. ¤ 0g r5rs¤ 10 ¤ 2g module-export!¤ 32 ¤ 42 ¤ 5g fixnum->flonum¤ 6g no-nans-violation?¤ 7g make-no-nans-violation¤ 8g &no-nans¤ 9g no-infinities-violation?¤ :g make-no-infinities-violation¤ ;g &no-infinities¤ g flatan¤ ?g flasin¤ @g flacos¤ Ag fltan¤ Bg flcos¤ Cg flsin¤ Dg fllog¤ Eg flexp¤ Fg flround¤ Gg
fltruncate¤ Hg flceiling¤ Ig flfloor¤ Jg
fldenominator¤ Kg flnumerator¤ Lg flmod0¤ Mg fldiv0¤ Ng fldiv0-and-mod0¤ Og flmod¤ Pg fldiv¤ Qg
fldiv-and-mod¤ Rg flabs¤ Sg fl/¤ Tg fl-¤ Ug fl*¤ Vg fl+¤ Wg flmin¤ Xg flmax¤ Yg flnan?¤ Zg flinfinite?¤ [g flfinite?¤ \g fleven?¤ ]g flodd?¤ ^g flnegative?¤ _g flpositive?¤ `g flzero?¤ ag
flinteger?¤ bg fl>=?¤ cg fl>?¤ dg fl<=?¤ eg flflonum¤ hg flonum?¤ i56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgh 4¤ jg module-re-export!¤ kj ¤ lj ¤ mg module-replace!¤ nm ¤ om ¤ pg real?¤ qg inexact?¤ rg for-all¤ sg raise¤ tg make-assertion-violation¤ ug
assert-flonum¤ vg integer?¤ wg assert-iflonum¤ xg imag-part¤ yg real-part¤ ze +nan.0¤ {g
ensure-flonum¤ |g exact->inexact¤ }g apply¤ ~g =¤ g <¤ €g <=¤ g >¤ ‚g >=¤ ƒg odd?¤ „g even?¤ …g nan?¤ †g max¤ ‡g min¤ ˆe 0.0¤ ‰g +¤ Še 1.0¤ ‹g *¤ Œg -¤ g /¤ Žg abs¤ g div-and-mod¤ g div¤ ‘g mod¤ ’g
div0-and-mod0¤ “g div0¤ ”g mod0¤ •g numerator¤ –g denominator¤ —g floor¤ ˜g ceiling¤ ™g truncate¤ šg round¤ ›g exp¤ œg log¤ g sin¤ žg cos¤ Ÿg tan¤ g asin¤ ¡g acos¤ ¢g atan¤ £g sqrt¤ ¤g expt¤ ¥* ¤ ¦g make-record-type-descriptor¤ §¥¦ ¤ ¨¥¦ ¤ ©g &implementation-restriction¤ ªg list->vector¤ «¥ª ¤ ¬¥ª ¤ g record-constructor¤ ®¥ ¤ ¯¥ ¤ °g "make-record-constructor-descriptor¤ ±¥° ¤ ²¥° ¤ ³g condition-predicate¤ ´¥³ ¤ µ¥³ ¤ ¶g fixnum?¤C 5 h¨+ ÷ ]4
5 4 > " G 45 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ
C O > " G 4#5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ
C O > " G 4%5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ
C O > " G 4'5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ
C O > " G 4)5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ
C O > " G 4+5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ
C O > " G 4-5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ
C O > " G 4/5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ
C O > " G 415 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ
C O > " G 44 i h M ] 45 6 E g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ
C> " G 4l h M ] 45 6 E g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ
C> " G 4o h M ] 45 6 E g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ
C> " G pq h t ]4 5$ 6C l g obj
g filenamef rnrs/arithmetic/flonums.scmŒ
E ŒŒ g nameg flonum?Œ ChRrhst h( ‹ - 1 3 4 5 $ C45 6 ƒ g args
& g t & g filenamef rnrs/arithmetic/flonums.scmŒ
F ŒŒ &
g nameg
assert-flonumΠCuRrhv h ) ]4 5$ 6C ! g i
Cst h( Œ - 1 3 4 5 $ C45 6 „ g args
& g t & g filenamef rnrs/arithmetic/flonums.scmŒ
H ŒŒ &
g nameg assert-iflonumŒ CwRpxyz h( € ]4 5$ C4 5
‘$ 6C x g z
& g filenamef rnrs/arithmetic/flonums.scmŒ
L ŒŒ % O ŒŒ & g nameg
ensure-flonumŒ C{Rpst| h8 … ] 4 5 $ " 445 > " G 6 } g x
3 g t - g filenamef rnrs/arithmetic/flonums.scmŒ
Q ŒŒ 3 g nameg real->flonumŒ CgR}u~ h( t - 1 3 4 > " G @ l g args
# g filenamef rnrs/arithmetic/flonums.scmŒ
U ŒŒ #
g nameg fl=?ΠCfR}u h( t - 1 3 4 > " G @ l g args
# g filenamef rnrs/arithmetic/flonums.scmŒ
V ŒŒ #
g nameg fl " G @ m g args
# g filenamef rnrs/arithmetic/flonums.scmŒ
W ŒŒ #
g nameg fl<=?ΠCdR}u h( t - 1 3 4 > " G @ l g args
# g filenamef rnrs/arithmetic/flonums.scmŒ
X ŒŒ #
g nameg fl>?Œ CcR}u‚ h( u - 1 3 4 > " G @ m g args
# g filenamef rnrs/arithmetic/flonums.scmŒ
Y ŒŒ #
g nameg fl>=?ΠCbRuv h v ]4 > " G 6 n g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
[ ŒŒ g nameg
flinteger?ΠCaRu h s ]4 > " G
‘C k g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
\ ŒŒ g nameg flzero?Œ C`Ru h w ]4 > " G
”C o g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
] ŒŒ g nameg flpositive?Œ C_Ru h w ]4 > " G
’C o g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
^ ŒŒ g nameg flnegative?Œ C^Rwƒ h s ]4 > " G 6 k g ifl
g filenamef rnrs/arithmetic/flonums.scmŒ
_ ŒŒ g nameg flodd?Œ C]Rw„ h t ]4 > " G 6 l g ifl
g filenamef rnrs/arithmetic/flonums.scmŒ
` ŒŒ g nameg fleven?Œ C\Ru"… h8 ƒ ] 4 > " G 4 5 $ " 4 5 €C { g fl
5 g t 3 g filenamef rnrs/arithmetic/flonums.scmŒ
a ŒŒ 5 g nameg flfinite?Œ C[Ru" h w ]4 > " G 6 o g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
b ŒŒ g nameg flinfinite?Œ CZRu… h r ]4 > " G 6 j g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
c ŒŒ g nameg flnan?Œ CYR}u† h0 ™ - 1 3 Œ 4> " G @ ‘ g fl1
* g args * g flargs * g filenamef rnrs/arithmetic/flonums.scmŒ
e ŒŒ *
g nameg flmaxŒ CXR}u‡ h0 ™ - 1 3 Œ 4> " G @ ‘ g fl1
* g args * g flargs * g filenamef rnrs/arithmetic/flonums.scmŒ
j ŒŒ *
g nameg flminŒ CWR}uˆ‰ h0 { - 1 3 4 > " G ( C @ s g args
, g filenamef rnrs/arithmetic/flonums.scmŒ
o ŒŒ % q ŒŒ ,
g nameg fl+Œ CVR}uŠ‹ h0 { - 1 3 4 > " G ( C @ s g args
, g filenamef rnrs/arithmetic/flonums.scmŒ
s ŒŒ % u ŒŒ ,
g nameg fl*Œ CUR}uŒ h0 — - 1 3 Œ 4> " G @ g fl1
* g args * g flargs * g filenamef rnrs/arithmetic/flonums.scmŒ
w ŒŒ *
g nameg fl-Œ CTR}u h0 — - 1 3 Œ 4> " G @ g fl1
* g args * g flargs * g filenamef rnrs/arithmetic/flonums.scmŒ
| ŒŒ *
g nameg fl/Œ CSRuŽ h r ]4 > " G 6 j g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ g nameg flabsŒ CRRw h Œ ]4 > " G 6 „ g fl1
g fl2 g filenamef rnrs/arithmetic/flonums.scmŒ
ƒ ŒŒ g nameg
fldiv-and-modŒ CQRw h „ ]4 > " G 6 | g fl1
g fl2 g filenamef rnrs/arithmetic/flonums.scmŒ
‡ ŒŒ g nameg fldivŒ CPRw‘ h „ ]4 > " G 6 | g fl1
g fl2 g filenamef rnrs/arithmetic/flonums.scmŒ
‹ ŒŒ g nameg flmodŒ CORw’ h Ž ]4 > " G 6 † g fl1
g fl2 g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ g nameg fldiv0-and-mod0Œ CNRw“ h … ]4 > " G 6 } g fl1
g fl2 g filenamef rnrs/arithmetic/flonums.scmŒ
“ ŒŒ g nameg fldiv0Œ CMRw” h … ]4 > " G 6 } g fl1
g fl2 g filenamef rnrs/arithmetic/flonums.scmŒ
— ŒŒ g nameg flmod0Œ CLRu• h x ]4 > " G 6 p g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
› ŒŒ g nameg flnumeratorŒ CKRu– h z ]4 > " G 6 r g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
œ ŒŒ g nameg
fldenominatorŒ CJRu— h t ]4 > " G 6 l g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
ž ŒŒ g nameg flfloorŒ CIRu˜ h v ]4 > " G 6 n g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
Ÿ ŒŒ g nameg flceilingŒ CHRu™ h w ]4 > " G 6 o g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ g nameg
fltruncateŒ CGRuš h t ]4 > " G 6 l g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
¡ ŒŒ g nameg flroundŒ CFRu› h r ]4 > " G 6 j g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
£ ŒŒ g nameg flexpŒ CERu{œˆ hX ) #3 4 > " G 4 –56]4 > " G 4 –54–5›6¥ g fl
) g fl
+ X g fl2 + X g filenamef rnrs/arithmetic/flonums.scmŒ $ ª !ŒŒ H $ŒŒ R ® %ŒŒ ) + X g nameg fllogŒ CDRu h r ]4 > " G 6 j g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
° ŒŒ g nameg flsinŒ CCRuž h r ]4 > " G 6 j g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
± ŒŒ g nameg flcosŒ CBRuŸ h r ]4 > " G 6 j g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
² ŒŒ g nameg fltanŒ CARu{ h s ]4 > " G 4 56 k g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
³ ŒŒ g nameg flasinŒ C?Ru{¡ h s ]4 > " G 4 56 k g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
´ ŒŒ g nameg flacosŒ C@Ru¢ h@ e ) 3 4 > " G 6]4 > " G 6 ] g fl
! g fl
# ? g fl2 # ? ! # ? g nameg flatanŒ C>Ru{£ h s ]4 > " G 4 56 k g fl
g filenamef rnrs/arithmetic/flonums.scmŒ
º ŒŒ g nameg flsqrtŒ C=Ru{¤ h( … ]4 > " G 4 56 } g fl1
# g fl2 # g filenamef rnrs/arithmetic/flonums.scmŒ
» ŒŒ # g nameg flexptŒ C " G 6 g fx
3 g t - g filenamef rnrs/arithmetic/flonums.scmŒ
Ç ŒŒ 3 g nameg fixnum->flonumŒ C5RC ï g m
+ g iface
2 º g iface
Á J g iface
Q Ú g iface
á j g iface
q ú g iface
Š g iface
‘ g iface
! ª g iface
± :
g filenamef rnrs/arithmetic/flonums.scmŒ
ŒŒ _ E ŒŒ . F ŒŒ W H ŒŒ
L ŒŒ
ð Q ŒŒ § U ŒŒ _ V ŒŒ
W ŒŒ
Ï X ŒŒ ˆ Y ŒŒ 9 [ ŒŒ Þ \ ŒŒ Š ] ŒŒ : ^ ŒŒ æ _ ŒŒ ` ŒŒ f a ŒŒ b ŒŒ ½ c ŒŒ œ e ŒŒ | j ŒŒ F o ŒŒ s ŒŒ ò w ŒŒ Ò | ŒŒ } ŒŒ ? ƒ ŒŒ ÷ ‡ ŒŒ ¯ ‹ ŒŒ q ŒŒ 0 “ ŒŒ ð — ŒŒ £ › ŒŒ U œ ŒŒ ÿ ž ŒŒ !© Ÿ ŒŒ "Z ŒŒ # ¡ ŒŒ # £ ŒŒ $Ð ¤ ŒŒ %} ° ŒŒ &% ± ŒŒ &Í ² ŒŒ 'v ³ ŒŒ (& ´ ŒŒ (à µ ŒŒ )Ž º ŒŒ *X » ŒŒ *Y ½ ŒŒ *  ŒŒ +¤ Ç ŒŒ 5 +¦
C6 PK ! –4ιÿ ÿ
bitwise.gonu „[µü¤ GOOF----LE-8-2.0ç ] c 4 hÈ ] g guile¤ ¤ g define-module*¤ ¤ ¤ g rnrs¤ g
arithmetic¤ g bitwise¤ ¤
g filenameS¤ f rnrs/arithmetic/bitwise.scm¤ g pureS¤
g versionS¤ ¤ g set-current-module¤ ¤ ¤ g resolve-r6rs-interface¤ ¤ ¤ g base¤ ¤ g call-with-deferred-observers¤ ¤ ¤ g module-use-interfaces!¤ ¤ ¤ g current-module¤ ¤ ¤ g control¤ ! ¤ "g rename¤ #g only¤ $g srfi¤ %g srfi-60¤ &$% ¤ 'g
bitwise-if¤ (g integer-length¤ )g
first-set-bit¤ *g copy-bit¤ +g bit-field¤ ,g copy-bit-field¤ -g rotate-bit-field¤ .g reverse-bit-field¤ /#&'()*+,-.
¤ 0g bitwise-length¤ 1(0 ¤ 2g bitwise-first-bit-set¤ 3)2 ¤ 4g bitwise-bit-field¤ 5+4 ¤ 6g bitwise-reverse-bit-field¤ 7.6 ¤ 8"/1357 ¤ 9g lognot¤ :g logand¤ ;g logior¤ g logbit?¤ ?g modulo¤ @g ash¤ A#9:;<=>?@
¤ Bg bitwise-not¤ C9B ¤ Dg bitwise-and¤ E:D ¤ Fg bitwise-ior¤ G;F ¤ Hg bitwise-xor¤ I<H ¤ Jg bitwise-arithmetic-shift¤ K@J ¤ L"ACEGIK ¤ Mg module-export!¤ NM ¤ OM ¤ Pg bitwise-rotate-bit-field¤ Qg bitwise-arithmetic-shift-right¤ Rg bitwise-arithmetic-shift-left¤ Sg bitwise-copy-bit-field¤ Tg bitwise-copy-bit¤ Ug bitwise-bit-set?¤ Vg bitwise-bit-count¤ WPQRSTUV ¤ Xg module-re-export!¤ YX ¤ ZX ¤ [6J420'HFDB
¤ \g module-replace!¤ ]\ ¤ ^\ ¤ _9 ¤ `9 ¤ a@ ¤ b@ ¤C 5 h¨ í ]4
5 4 > " G 45 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/bitwise.scmŒ
ŒŒ
C O > " G 4!5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/bitwise.scmŒ
ŒŒ
C O > " G 485 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/bitwise.scmŒ
ŒŒ
C O > " G 4L5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/bitwise.scmŒ
ŒŒ
C O > " G 4O W h M ] 45 6 E g filenamef rnrs/arithmetic/bitwise.scmŒ
ŒŒ
C> " G 4Z [ h M ] 45 6 E g filenamef rnrs/arithmetic/bitwise.scmŒ
ŒŒ
C> " G 4^ h M ] 45 6 E g filenamef rnrs/arithmetic/bitwise.scmŒ
ŒŒ
C> " G `= h } ]
’$ 4 56 6 u g ei
g filenamef rnrs/arithmetic/bitwise.scmŒ
E ŒŒ g nameg bitwise-bit-countŒ CVR> h Ž ] 6 † g ei1
g ei2
g filenamef rnrs/arithmetic/bitwise.scmŒ
J ŒŒ
g nameg bitwise-bit-set?ΠCUR*> h ٠] 4
56 — g ei1
g ei2 g ei3 g filenamef rnrs/arithmetic/bitwise.scmŒ
L ŒŒ g nameg bitwise-copy-bitŒ CTR, h ¶ ] 6 ® g ei1
g ei2 g ei3 g ei4 g filenamef rnrs/arithmetic/bitwise.scmŒ
S ŒŒ g nameg bitwise-copy-bit-fieldŒ CSR- h ¸ ] 6 ° g ei1
g ei2 g ei3 g ei4 g filenamef rnrs/arithmetic/bitwise.scmŒ
V ŒŒ g nameg bitwise-rotate-bit-fieldŒ CPRbRR h œ ]
˜ŸC ” g ei1
g ei2
g filenamef rnrs/arithmetic/bitwise.scmŒ
Z ŒŒ
g nameg bitwise-arithmetic-shift-rightŒ CQRC å g m
+ g iface
2 º g iface
Á J g iface
Q Ú g iface
á j g filenamef rnrs/arithmetic/bitwise.scmŒ
ŒŒ E ŒŒ Q J ŒŒ " L ŒŒ S ŒŒ Û V ŒŒ à Y ŒŒ Ÿ Z ŒŒ ¡
C6 PK ! NPï4T T size_t.hnu „[µü¤ #ifndef RBIMPL_ARITHMETIC_SIZE_T_H /*-*-C++-*-vi:se ft=cpp:*/
#define RBIMPL_ARITHMETIC_SIZE_T_H
/**
* @file
* @author Ruby developers
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
* @warning Symbols prefixed with either `RBIMPL` or `rbimpl` are
* implementation details. Don't take them as canon. They could
* rapidly appear then vanish. The name (path) of this header file
* is also an implementation detail. Do not expect it to persist
* at the place it is now. Developers are free to move it anywhere
* anytime at will.
* @note To ruby-core: remember that this header can be possibly
* recursively included from extension libraries written in C++.
* Do not expect for instance `__VA_ARGS__` is always available.
* We assume C99 for ruby itself but we don't assume languages of
* extension libraries. They could be written in C++98.
* @brief Arithmetic conversion between C's `size_t` and Ruby's.
*/
#include "ruby/internal/config.h"
#include "ruby/internal/arithmetic/int.h"
#include "ruby/internal/arithmetic/long.h"
#include "ruby/internal/arithmetic/long_long.h"
#include "ruby/backward/2/long_long.h"
#if defined(__DOXYGEN__)
# /** Converts a C's `size_t` into an instance of ::rb_cInteger. */
# define RB_SIZE2NUM RB_ULONG2NUM
# /** Converts a C's `ssize_t` into an instance of ::rb_cInteger. */
# define RB_SSIZE2NUM RB_LONG2NUM
#elif SIZEOF_SIZE_T == SIZEOF_LONG_LONG
# define RB_SIZE2NUM RB_ULL2NUM
# define RB_SSIZE2NUM RB_LL2NUM
#elif SIZEOF_SIZE_T == SIZEOF_LONG
# define RB_SIZE2NUM RB_ULONG2NUM
# define RB_SSIZE2NUM RB_LONG2NUM
#else
# define RB_SIZE2NUM RB_UINT2NUM
# define RB_SSIZE2NUM RB_INT2NUM
#endif
#if defined(__DOXYGEN__)
# /** Converts an instance of ::rb_cInteger into C's `size_t`. */
# define RB_NUM2SIZE RB_NUM2ULONG
# /** Converts an instance of ::rb_cInteger into C's `ssize_t`. */
# define RB_NUM2SSIZE RB_NUM2LONG
#elif SIZEOF_SIZE_T == SIZEOF_LONG_LONG
# define RB_NUM2SIZE RB_NUM2ULL
# define RB_NUM2SSIZE RB_NUM2LL
#elif SIZEOF_SIZE_T == SIZEOF_LONG
# define RB_NUM2SIZE RB_NUM2ULONG
# define RB_NUM2SSIZE RB_NUM2LONG
#else
# define RB_NUM2SIZE RB_NUM2UINT
# define RB_NUM2SSIZE RB_NUM2INT
#endif
#define NUM2SIZET RB_NUM2SIZE /**< @old{RB_NUM2SIZE} */
#define SIZET2NUM RB_SIZE2NUM /**< @old{RB_SIZE2NUM} */
#define NUM2SSIZET RB_NUM2SSIZE /**< @old{RB_NUM2SSIZE} */
#define SSIZET2NUM RB_SSIZE2NUM /**< @old{RB_SSIZE2NUM} */
#endif /* RBIMPL_ARITHMETIC_SIZE_T_H */
PK ! ÊÄ Ä off_t.hnu „[µü¤ #ifndef RBIMPL_ARITHMETIC_OFF_T_H /*-*-C++-*-vi:se ft=cpp:*/
#define RBIMPL_ARITHMETIC_OFF_T_H
/**
* @file
* @author Ruby developers
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
* @warning Symbols prefixed with either `RBIMPL` or `rbimpl` are
* implementation details. Don't take them as canon. They could
* rapidly appear then vanish. The name (path) of this header file
* is also an implementation detail. Do not expect it to persist
* at the place it is now. Developers are free to move it anywhere
* anytime at will.
* @note To ruby-core: remember that this header can be possibly
* recursively included from extension libraries written in C++.
* Do not expect for instance `__VA_ARGS__` is always available.
* We assume C99 for ruby itself but we don't assume languages of
* extension libraries. They could be written in C++98.
* @brief Arithmetic conversion between C's `off_t` and Ruby's.
*/
#include "ruby/internal/config.h"
#include "ruby/internal/arithmetic/int.h"
#include "ruby/internal/arithmetic/long.h"
#include "ruby/internal/arithmetic/long_long.h"
#include "ruby/backward/2/long_long.h"
/** Converts a C's `off_t` into an instance of ::rb_cInteger. */
#ifdef OFFT2NUM
# /* take that. */
#elif SIZEOF_OFF_T == SIZEOF_LONG_LONG
# define OFFT2NUM RB_LL2NUM
#elif SIZEOF_OFF_T == SIZEOF_LONG
# define OFFT2NUM RB_LONG2NUM
#else
# define OFFT2NUM RB_INT2NUM
#endif
/** Converts an instance of ::rb_cNumeric into C's `off_t`. */
#ifdef NUM2OFFT
# /* take that. */
#elif SIZEOF_OFF_T == SIZEOF_LONG_LONG
# define NUM2OFFT RB_NUM2LL
#elif SIZEOF_OFF_T == SIZEOF_LONG
# define NUM2OFFT RB_NUM2LONG
#else
# define NUM2OFFT RB_NUM2INT
#endif
/** A rb_sprintf() format prefix to be used for an `off_t` parameter. */
#ifdef PRI_OFFT_PREFIX
# /* take that. */
#elif SIZEOF_OFF_T == SIZEOF_LONG_LONG
# define PRI_OFFT_PREFIX PRI_LL_PREFIX
#elif SIZEOF_OFF_T == SIZEOF_LONG
# define PRI_OFFT_PREFIX PRI_LONG_PREFIX
#else
# define PRI_OFFT_PREFIX PRI_INT_PREFIX
#endif
#endif /* RBIMPL_ARITHMETIC_OFF_T_H */
PK ! ÷¥bq³ ³ st_data_t.hnu „[µü¤ #ifndef RBIMPL_ARITHMERIC_ST_DATA_T_H /*-*-C++-*-vi:se ft=cpp:*/
#define RBIMPL_ARITHMERIC_ST_DATA_T_H
/**
* @file
* @author Ruby developers
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
* @warning Symbols prefixed with either `RBIMPL` or `rbimpl` are
* implementation details. Don't take them as canon. They could
* rapidly appear then vanish. The name (path) of this header file
* is also an implementation detail. Do not expect it to persist
* at the place it is now. Developers are free to move it anywhere
* anytime at will.
* @note To ruby-core: remember that this header can be possibly
* recursively included from extension libraries written in C++.
* Do not expect for instance `__VA_ARGS__` is always available.
* We assume C99 for ruby itself but we don't assume languages of
* extension libraries. They could be written in C++98.
* @brief Arithmetic conversion between C's `st_data_t` and Ruby's.
*/
#include "ruby/internal/arithmetic/fixnum.h"
#include "ruby/internal/arithmetic/long.h"
#include "ruby/internal/attr/artificial.h"
#include "ruby/internal/attr/const.h"
#include "ruby/internal/attr/constexpr.h"
#include "ruby/internal/cast.h"
#include "ruby/internal/value.h"
#include "ruby/assert.h"
#include "ruby/st.h"
#define ST2FIX RB_ST2FIX /**< @old{RB_ST2FIX} */
/** @cond INTERNAL_MACRO */
#define RB_ST2FIX RB_ST2FIX
/** @endcond */
RBIMPL_ATTR_CONST_UNLESS_DEBUG()
RBIMPL_ATTR_CONSTEXPR_UNLESS_DEBUG(CXX14)
RBIMPL_ATTR_ARTIFICIAL()
/**
* Converts a C's `st_data_t` into an instance of ::rb_cInteger.
*
* @param[in] i The data in question.
* @return A converted result
* @warning THIS CONVERSION LOSES DATA! Be warned.
* @see https://bugs.ruby-lang.org/issues/13877
* @see https://bugs.ruby-lang.org/issues/14218
*
* @internal
*
* This is needed because of hash functions. Hash functions return
* `st_data_t`, which could theoretically be bigger than Fixnums. However
* allocating Bignums for them every time we calculate hash values is just too
* heavy. To avoid penalty we need to ignore some upper bit(s) and stick to
* Fixnums. This function is used for that purpose.
*/
static inline VALUE
RB_ST2FIX(st_data_t i)
{
SIGNED_VALUE x = i;
if (x >= 0) {
x &= RUBY_FIXNUM_MAX;
}
else {
x |= RUBY_FIXNUM_MIN;
}
RBIMPL_ASSERT_OR_ASSUME(RB_FIXABLE(x));
unsigned long y = RBIMPL_CAST((unsigned long)x);
return RB_LONG2FIX(y);
}
#endif /* RBIMPL_ARITHMETIC_ST_DATA_T_H */
PK ! ¢ ø», », long.hnu „[µü¤ #ifndef RBIMPL_ARITHMETIC_LONG_H /*-*-C++-*-vi:se ft=cpp:*/
#define RBIMPL_ARITHMETIC_LONG_H
/**
* @file
* @author Ruby developers
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
* @warning Symbols prefixed with either `RBIMPL` or `rbimpl` are
* implementation details. Don't take them as canon. They could
* rapidly appear then vanish. The name (path) of this header file
* is also an implementation detail. Do not expect it to persist
* at the place it is now. Developers are free to move it anywhere
* anytime at will.
* @note To ruby-core: remember that this header can be possibly
* recursively included from extension libraries written in C++.
* Do not expect for instance `__VA_ARGS__` is always available.
* We assume C99 for ruby itself but we don't assume languages of
* extension libraries. They could be written in C++98.
* @brief Arithmetic conversion between C's `long` and Ruby's.
*
* ### Q&A ###
*
* - Q: Why are INT2FIX etc. here, not in `int.h`?
*
* - A: Because they are in fact handling `long`. It seems someone did not
* understand the difference of `int` and `long` when they designed those
* macros.
*/
#include "ruby/internal/config.h"
#include "ruby/internal/arithmetic/fixnum.h" /* FIXABLE */
#include "ruby/internal/arithmetic/intptr_t.h" /* rb_int2big etc.*/
#include "ruby/internal/assume.h"
#include "ruby/internal/attr/artificial.h"
#include "ruby/internal/attr/cold.h"
#include "ruby/internal/attr/const.h"
#include "ruby/internal/attr/constexpr.h"
#include "ruby/internal/attr/noreturn.h"
#include "ruby/internal/cast.h"
#include "ruby/internal/dllexport.h"
#include "ruby/internal/special_consts.h" /* FIXNUM_FLAG */
#include "ruby/internal/value.h"
#include "ruby/assert.h"
#define FIX2LONG RB_FIX2LONG /**< @old{RB_FIX2LONG} */
#define FIX2ULONG RB_FIX2ULONG /**< @old{RB_FIX2ULONG} */
#define INT2FIX RB_INT2FIX /**< @old{RB_INT2FIX} */
#define LONG2FIX RB_INT2FIX /**< @old{RB_INT2FIX} */
#define LONG2NUM RB_LONG2NUM /**< @old{RB_LONG2NUM} */
#define NUM2LONG RB_NUM2LONG /**< @old{RB_NUM2LONG} */
#define NUM2ULONG RB_NUM2ULONG /**< @old{RB_NUM2ULONG} */
#define RB_FIX2LONG rb_fix2long /**< @alias{rb_fix2long} */
#define RB_FIX2ULONG rb_fix2ulong /**< @alias{rb_fix2ulong} */
#define RB_LONG2FIX RB_INT2FIX /**< @alias{RB_INT2FIX} */
#define RB_LONG2NUM rb_long2num_inline /**< @alias{rb_long2num_inline} */
#define RB_NUM2LONG rb_num2long_inline /**< @alias{rb_num2long_inline} */
#define RB_NUM2ULONG rb_num2ulong_inline /**< @alias{rb_num2ulong_inline} */
#define RB_ULONG2NUM rb_ulong2num_inline /**< @alias{rb_ulong2num_inline} */
#define ULONG2NUM RB_ULONG2NUM /**< @old{RB_ULONG2NUM} */
#define rb_fix_new RB_INT2FIX /**< @alias{RB_INT2FIX} */
#define rb_long2int rb_long2int_inline /**< @alias{rb_long2int_inline} */
/** @cond INTERNAL_MACRO */
#define RB_INT2FIX RB_INT2FIX
/** @endcond */
RBIMPL_SYMBOL_EXPORT_BEGIN()
RBIMPL_ATTR_NORETURN()
RBIMPL_ATTR_COLD()
/**
* This is an utility function to raise an ::rb_eRangeError.
*
* @param[in] num A signed value about to overflow.
* @exception rb_eRangeError `num` is out of range of `int`.
*/
void rb_out_of_int(SIGNED_VALUE num);
/**
* Converts an instance of ::rb_cNumeric into C's `long`.
*
* @param[in] num Something numeric.
* @exception rb_eTypeError `num` is not a numeric.
* @exception rb_eRangeError `num` is out of range of `long`.
* @return The passed value converted into C's `long`.
*/
long rb_num2long(VALUE num);
/**
* Converts an instance of ::rb_cNumeric into C's `unsigned long`.
*
* @param[in] num Something numeric.
* @exception rb_eTypeError `num` is not a numeric.
* @exception rb_eRangeError `num` is out of range of `unsigned long`.
* @return The passed value converted into C's `unsigned long`.
*/
unsigned long rb_num2ulong(VALUE num);
RBIMPL_SYMBOL_EXPORT_END()
RBIMPL_ATTR_CONST_UNLESS_DEBUG()
RBIMPL_ATTR_CONSTEXPR_UNLESS_DEBUG(CXX14)
RBIMPL_ATTR_ARTIFICIAL()
/**
* Converts a C's `long` into an instance of ::rb_cInteger.
*
* @param[in] i Arbitrary `long` value.
* @return An instance of ::rb_cInteger.
*/
static inline VALUE
RB_INT2FIX(long i)
{
RBIMPL_ASSERT_OR_ASSUME(RB_FIXABLE(i));
/* :NOTE: VALUE can be wider than long. As j being unsigned, 2j+1 is fully
* defined. Also it can be compiled into a single LEA instruction. */
const unsigned long j = i;
const unsigned long k = (j << 1) + RUBY_FIXNUM_FLAG;
const long l = k;
const SIGNED_VALUE m = l; /* Sign extend */
const VALUE n = m;
RBIMPL_ASSERT_OR_ASSUME(RB_FIXNUM_P(n));
return n;
}
/**
* Checks if `int` can hold the given integer.
*
* @param[in] n Arbitrary `long` value.
* @exception rb_eRangeError `n` is out of range of `int`.
* @return Identical value of type `int`
*/
static inline int
rb_long2int_inline(long n)
{
int i = RBIMPL_CAST((int)n);
if /* constexpr */ (sizeof(long) <= sizeof(int)) {
RBIMPL_ASSUME(i == n);
}
if (i != n)
rb_out_of_int(n);
return i;
}
RBIMPL_ATTR_CONST_UNLESS_DEBUG()
RBIMPL_ATTR_CONSTEXPR_UNLESS_DEBUG(CXX14)
/**
* @private
*
* This is an implementation detail of rb_fix2long(). People don't use it
* directly.
*
* @param[in] x A Fixnum.
* @return Identical value of type `long`
* @pre Must not pass anything other than a Fixnum.
*/
static inline long
rbimpl_fix2long_by_idiv(VALUE x)
{
RBIMPL_ASSERT_OR_ASSUME(RB_FIXNUM_P(x));
/* :NOTE: VALUE can be wider than long. (x-1)/2 never overflows because
* RB_FIXNUM_P(x) holds. Also it has no portability issue like y>>1
* below. */
const SIGNED_VALUE y = x - RUBY_FIXNUM_FLAG;
const SIGNED_VALUE z = y / 2;
const long w = RBIMPL_CAST((long)z);
RBIMPL_ASSERT_OR_ASSUME(RB_FIXABLE(w));
return w;
}
RBIMPL_ATTR_CONST_UNLESS_DEBUG()
RBIMPL_ATTR_CONSTEXPR_UNLESS_DEBUG(CXX14)
/**
* @private
*
* This is an implementation detail of rb_fix2long(). People don't use it
* directly.
*
* @param[in] x A Fixnum.
* @return Identical value of type `long`
* @pre Must not pass anything other than a Fixnum.
*/
static inline long
rbimpl_fix2long_by_shift(VALUE x)
{
RBIMPL_ASSERT_OR_ASSUME(RB_FIXNUM_P(x));
/* :NOTE: VALUE can be wider than long. If right shift is arithmetic, this
* is noticeably faster than above. */
const SIGNED_VALUE y = x;
const SIGNED_VALUE z = y >> 1;
const long w = RBIMPL_CAST((long)z);
RBIMPL_ASSERT_OR_ASSUME(RB_FIXABLE(w));
return w;
}
RBIMPL_ATTR_CONST()
RBIMPL_ATTR_CONSTEXPR(CXX11)
/**
* @private
*
* This is an implementation detail of rb_fix2long(). People don't use it
* directly.
*
* @retval true This C compiler's right shift operator is arithmetic.
* @retval false This C compiler's right shift operator is logical.
*/
static inline bool
rbimpl_right_shift_is_arithmetic_p(void)
{
return (-1 >> 1) == -1;
}
RBIMPL_ATTR_CONST_UNLESS_DEBUG()
RBIMPL_ATTR_CONSTEXPR_UNLESS_DEBUG(CXX14)
/**
* Converts a Fixnum into C's `long`.
*
* @param[in] x Some Fixnum.
* @pre Must not pass anything other than a Fixnum.
* @return The passed value converted into C's `long`.
*/
static inline long
rb_fix2long(VALUE x)
{
if /* constexpr */ (rbimpl_right_shift_is_arithmetic_p()) {
return rbimpl_fix2long_by_shift(x);
}
else {
return rbimpl_fix2long_by_idiv(x);
}
}
RBIMPL_ATTR_CONST_UNLESS_DEBUG()
RBIMPL_ATTR_CONSTEXPR_UNLESS_DEBUG(CXX14)
/**
* Converts a Fixnum into C's `unsigned long`.
*
* @param[in] x Some Fixnum.
* @pre Must not pass anything other than a Fixnum.
* @return The passed value converted into C's `unsigned long`.
* @note Negative fixnums will be converted into large unsigned longs.
*/
static inline unsigned long
rb_fix2ulong(VALUE x)
{
RBIMPL_ASSERT_OR_ASSUME(RB_FIXNUM_P(x));
return rb_fix2long(x);
}
/**
* Converts an instance of ::rb_cNumeric into C's `long`.
*
* @param[in] x Something numeric.
* @exception rb_eTypeError `x` is not a numeric.
* @exception rb_eRangeError `x` is out of range of `long`.
* @return The passed value converted into C's `long`.
*/
static inline long
rb_num2long_inline(VALUE x)
{
if (RB_FIXNUM_P(x))
return RB_FIX2LONG(x);
else
return rb_num2long(x);
}
/**
* Converts an instance of ::rb_cNumeric into C's `unsigned long`.
*
* @param[in] x Something numeric.
* @exception rb_eTypeError `x` is not a numeric.
* @exception rb_eRangeError `x` is out of range of `unsigned long`.
* @return The passed value converted into C's `unsigned long`.
*
* @internal
*
* This (negative fixnum would become a large unsigned long while negative
* bignum is an exception) has been THE behaviour of NUM2ULONG since the
* beginning. It is strange, but we can no longer change how it works at this
* moment. We have to get by with it.
*
* @see https://bugs.ruby-lang.org/issues/9089
*/
static inline unsigned long
rb_num2ulong_inline(VALUE x)
{
if (RB_FIXNUM_P(x))
return RB_FIX2ULONG(x);
else
return rb_num2ulong(x);
}
/**
* Converts a C's `long` into an instance of ::rb_cInteger.
*
* @param[in] v Arbitrary `long` value.
* @return An instance of ::rb_cInteger.
*/
static inline VALUE
rb_long2num_inline(long v)
{
if (RB_FIXABLE(v))
return RB_LONG2FIX(v);
else
return rb_int2big(v);
}
/**
* Converts a C's `unsigned long` into an instance of ::rb_cInteger.
*
* @param[in] v Arbitrary `unsigned long` value.
* @return An instance of ::rb_cInteger.
*/
static inline VALUE
rb_ulong2num_inline(unsigned long v)
{
if (RB_POSFIXABLE(v))
return RB_LONG2FIX(v);
else
return rb_uint2big(v);
}
/**
* @cond INTERNAL_MACRO
*
* Following overload is necessary because sometimes INT2FIX is used as a enum
* value (e.g. `enum { FOO = INT2FIX(0) };`). THIS IS NG in theory because a
* VALUE does not fit into an enum (which must be a signed int). But we cannot
* break existing codes.
*/
#if RBIMPL_HAS_ATTR_CONSTEXPR_CXX14
# /* C++ can write constexpr as enum values. */
#elif ! defined(HAVE_BUILTIN___BUILTIN_CHOOSE_EXPR_CONSTANT_P)
# undef INT2FIX
# define INT2FIX(i) (RBIMPL_CAST((VALUE)(i)) << 1 | RUBY_FIXNUM_FLAG)
#else
# undef INT2FIX
# define INT2FIX(i) \
__builtin_choose_expr( \
__builtin_constant_p(i), \
RBIMPL_CAST((VALUE)(i)) << 1 | RUBY_FIXNUM_FLAG, \
RB_INT2FIX(i))
#endif
/** @endcond */
#endif /* RBIMPL_ARITHMETIC_LONG_H */
PK ! ¸{rf f mode_t.hnu „[µü¤ #ifndef RBIMPL_ARITHMETIC_MODE_T_H /*-*-C++-*-vi:se ft=cpp:*/
#define RBIMPL_ARITHMETIC_MODE_T_H
/**
* @file
* @author Ruby developers
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
* @warning Symbols prefixed with either `RBIMPL` or `rbimpl` are
* implementation details. Don't take them as canon. They could
* rapidly appear then vanish. The name (path) of this header file
* is also an implementation detail. Do not expect it to persist
* at the place it is now. Developers are free to move it anywhere
* anytime at will.
* @note To ruby-core: remember that this header can be possibly
* recursively included from extension libraries written in C++.
* Do not expect for instance `__VA_ARGS__` is always available.
* We assume C99 for ruby itself but we don't assume languages of
* extension libraries. They could be written in C++98.
* @brief Arithmetic conversion between C's `mode_t` and Ruby's.
*/
#include "ruby/internal/config.h"
#include "ruby/internal/arithmetic/int.h"
/** Converts a C's `mode_t` into an instance of ::rb_cInteger. */
#ifndef NUM2MODET
# define NUM2MODET RB_NUM2INT
#endif
/** Converts an instance of ::rb_cNumeric into C's `mode_t`. */
#ifndef MODET2NUM
# define MODET2NUM RB_INT2NUM
#endif
/** A rb_sprintf() format prefix to be used for a `mode_t` parameter. */
#ifndef PRI_MODET_PREFIX
# define PRI_MODET_PREFIX PRI_INT_PREFIX
#endif
#endif /* RBIMPL_ARITHMETIC_MODE_T_H */
PK ! ÒƒÓW+
+
char.hnu „[µü¤ #ifndef RBIMPL_ARITHMETIC_CHAR_H /*-*-C++-*-vi:se ft=cpp:*/
#define RBIMPL_ARITHMETIC_CHAR_H
/**
* @file
* @author Ruby developers
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
* @warning Symbols prefixed with either `RBIMPL` or `rbimpl` are
* implementation details. Don't take them as canon. They could
* rapidly appear then vanish. The name (path) of this header file
* is also an implementation detail. Do not expect it to persist
* at the place it is now. Developers are free to move it anywhere
* anytime at will.
* @note To ruby-core: remember that this header can be possibly
* recursively included from extension libraries written in C++.
* Do not expect for instance `__VA_ARGS__` is always available.
* We assume C99 for ruby itself but we don't assume languages of
* extension libraries. They could be written in C++98.
* @brief Arithmetic conversion between C's `char` and Ruby's.
*/
#include "ruby/internal/arithmetic/int.h" /* NUM2INT is here, but */
#include "ruby/internal/arithmetic/long.h" /* INT2FIX is here.*/
#include "ruby/internal/attr/artificial.h"
#include "ruby/internal/attr/const.h"
#include "ruby/internal/attr/constexpr.h"
#include "ruby/internal/cast.h"
#include "ruby/internal/core/rstring.h"
#include "ruby/internal/value_type.h"
#define RB_NUM2CHR rb_num2char_inline /**< @alias{rb_num2char_inline} */
#define NUM2CHR RB_NUM2CHR /**< @old{RB_NUM2CHR} */
#define CHR2FIX RB_CHR2FIX /**< @old{RB_CHR2FIX} */
/** @cond INTERNAL_MACRO */
#define RB_CHR2FIX RB_CHR2FIX
/** @endcond */
RBIMPL_ATTR_CONST_UNLESS_DEBUG()
RBIMPL_ATTR_CONSTEXPR_UNLESS_DEBUG(CXX14)
RBIMPL_ATTR_ARTIFICIAL()
/**
* Converts a C's `unsigned char` into an instance of ::rb_cInteger.
*
* @param[in] c Arbitrary `unsigned char` value.
* @return An instance of ::rb_cInteger.
*
* @internal
*
* Nobody explicitly states this but in Ruby, a char means an unsigned integer
* value of range 0..255. This is a general principle. AFAIK there is no
* single line of code where char is signed.
*/
static inline VALUE
RB_CHR2FIX(unsigned char c)
{
return RB_INT2FIX(c);
}
/**
* Converts an instance of ::rb_cNumeric into C's `char`. At the same time it
* accepts a String of more than one character, and returns its first byte. In
* the early days there was a Ruby level "character" literal `?c`, which
* roughly worked this way.
*
* @param[in] x Either a string or a numeric.
* @exception rb_eTypeError `x` is not a numeric.
* @exception rb_eRangeError `x` is out of range of `unsigned int`.
* @return The passed value converted into C's `char`.
*/
static inline char
rb_num2char_inline(VALUE x)
{
if (RB_TYPE_P(x, RUBY_T_STRING) && (RSTRING_LEN(x)>=1))
return RSTRING_PTR(x)[0];
else
return RBIMPL_CAST((char)RB_NUM2INT(x));
}
#endif /* RBIMPL_ARITHMETIC_CHAR_H */
PK ! )°ðî
intptr_t.hnu „[µü¤ #ifndef RBIMPL_ARITHMETIC_INTPTR_T_H /*-*-C++-*-vi:se ft=cpp:*/
#define RBIMPL_ARITHMETIC_INTPTR_T_H
/**
* @file
* @author Ruby developers
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
* @warning Symbols prefixed with either `RBIMPL` or `rbimpl` are
* implementation details. Don't take them as canon. They could
* rapidly appear then vanish. The name (path) of this header file
* is also an implementation detail. Do not expect it to persist
* at the place it is now. Developers are free to move it anywhere
* anytime at will.
* @note To ruby-core: remember that this header can be possibly
* recursively included from extension libraries written in C++.
* Do not expect for instance `__VA_ARGS__` is always available.
* We assume C99 for ruby itself but we don't assume languages of
* extension libraries. They could be written in C++98.
* @brief Arithmetic conversion between C's `intptr_t` and Ruby's.
*/
#include "ruby/internal/config.h"
#ifdef HAVE_STDINT_H
# include
#endif
#include "ruby/internal/value.h"
#include "ruby/internal/dllexport.h"
#define rb_int_new rb_int2inum /**< @alias{rb_int2inum} */
#define rb_uint_new rb_uint2inum /**< @alias{rb_uint2inum} */
RBIMPL_SYMBOL_EXPORT_BEGIN()
/**
* Converts a C's `intptr_t` into an instance of ::rb_cInteger.
*
* @param[in] i Arbitrary `intptr_t` value.
* @return An instance of ::rb_cInteger.
* @note This function always allocates Bignums, even if the given number
* is small enough to fit into a Fixnum.
*/
VALUE rb_int2big(intptr_t i);
/**
* Converts a C's `intptr_t` into an instance of ::rb_cInteger.
*
* @param[in] i Arbitrary `intptr_t` value.
* @return An instance of ::rb_cInteger.
*/
VALUE rb_int2inum(intptr_t i);
/**
* Converts a C's `intptr_t` into an instance of ::rb_cInteger.
*
* @param[in] i Arbitrary `intptr_t` value.
* @return An instance of ::rb_cInteger.
* @note This function always allocates Bignums, even if the given number
* is small enough to fit into a Fixnum.
*/
VALUE rb_uint2big(uintptr_t i);
/**
* Converts a C's `uintptr_t` into an instance of ::rb_cInteger.
*
* @param[in] i Arbitrary `uintptr_t` value.
* @return An instance of ::rb_cInteger.
*/
VALUE rb_uint2inum(uintptr_t i);
RBIMPL_SYMBOL_EXPORT_END()
#endif /* RBIMPL_ARITHMETIC_INTPTR_T_H */
PK ! =nVt{ { fixnum.hnu „[µü¤ #ifndef RBIMPL_ARITHMETIC_FIXNUM_H /*-*-C++-*-vi:se ft=cpp:*/
#define RBIMPL_ARITHMETIC_FIXNUM_H
/**
* @file
* @author Ruby developers
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
* @warning Symbols prefixed with either `RBIMPL` or `rbimpl` are
* implementation details. Don't take them as canon. They could
* rapidly appear then vanish. The name (path) of this header file
* is also an implementation detail. Do not expect it to persist
* at the place it is now. Developers are free to move it anywhere
* anytime at will.
* @note To ruby-core: remember that this header can be possibly
* recursively included from extension libraries written in C++.
* Do not expect for instance `__VA_ARGS__` is always available.
* We assume C99 for ruby itself but we don't assume languages of
* extension libraries. They could be written in C++98.
* @brief Handling of integers formerly known as Fixnums.
*/
#include "ruby/backward/2/limits.h"
#define FIXABLE RB_FIXABLE /**< @old{RB_FIXABLE} */
#define FIXNUM_MAX RUBY_FIXNUM_MAX /**< @old{RUBY_FIXNUM_MAX} */
#define FIXNUM_MIN RUBY_FIXNUM_MIN /**< @old{RUBY_FIXNUM_MIN} */
#define NEGFIXABLE RB_NEGFIXABLE /**< @old{RB_NEGFIXABLE} */
#define POSFIXABLE RB_POSFIXABLE /**< @old{RB_POSFIXABLE} */
/**
* Checks if the passed value is in range of fixnum, assuming it is a positive
* number. Can sometimes be useful for C's unsigned integer types.
*
* @internal
*
* FIXABLE can be applied to anything, from double to intmax_t. The problem is
* double. On a 64bit system RUBY_FIXNUM_MAX is 4,611,686,018,427,387,903,
* which is not representable by a double. The nearest value that a double can
* represent is 4,611,686,018,427,387,904, which is not fixable. The
* seemingly-strange "< FIXNUM_MAX + 1" expression below is due to this.
*/
#define RB_POSFIXABLE(_) ((_) < RUBY_FIXNUM_MAX + 1)
/**
* Checks if the passed value is in range of fixnum, assuming it is a negative
* number. This is an implementation of #RB_FIXABLE. Rarely used stand alone.
*/
#define RB_NEGFIXABLE(_) ((_) >= RUBY_FIXNUM_MIN)
/** Checks if the passed value is in range of fixnum */
#define RB_FIXABLE(_) (RB_POSFIXABLE(_) && RB_NEGFIXABLE(_))
/** Maximum possible value that a fixnum can represent. */
#define RUBY_FIXNUM_MAX (LONG_MAX / 2)
/** Minimum possible value that a fixnum can represent. */
#define RUBY_FIXNUM_MIN (LONG_MIN / 2)
#endif /* RBIMPL_ARITHMETIC_FIXNUM_H */
PK ! çÈ(—^ ^ uid_t.hnu „[µü¤ #ifndef RBIMPL_ARITHMETIC_UID_T_H /*-*-C++-*-vi:se ft=cpp:*/
#define RBIMPL_ARITHMETIC_UID_T_H
/**
* @file
* @author Ruby developers
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
* @warning Symbols prefixed with either `RBIMPL` or `rbimpl` are
* implementation details. Don't take them as canon. They could
* rapidly appear then vanish. The name (path) of this header file
* is also an implementation detail. Do not expect it to persist
* at the place it is now. Developers are free to move it anywhere
* anytime at will.
* @note To ruby-core: remember that this header can be possibly
* recursively included from extension libraries written in C++.
* Do not expect for instance `__VA_ARGS__` is always available.
* We assume C99 for ruby itself but we don't assume languages of
* extension libraries. They could be written in C++98.
* @brief Arithmetic conversion between C's `uid_t` and Ruby's.
*/
#include "ruby/internal/config.h"
#include "ruby/internal/arithmetic/long.h"
/** Converts a C's `uid_t` into an instance of ::rb_cInteger. */
#ifndef UIDT2NUM
# define UIDT2NUM RB_LONG2NUM
#endif
/** Converts an instance of ::rb_cNumeric into C's `uid_t`. */
#ifndef NUM2UIDT
# define NUM2UIDT RB_NUM2LONG
#endif
/** A rb_sprintf() format prefix to be used for a `uid_t` parameter. */
#ifndef PRI_UIDT_PREFIX
# define PRI_UIDT_PREFIX PRI_LONG_PREFIX
#endif
#endif /* RBIMPL_ARITHMETIC_UID_T_H */
PK ! n-o
^ ^ gid_t.hnu „[µü¤ #ifndef RBIMPL_ARITHMETIC_GID_T_H /*-*-C++-*-vi:se ft=cpp:*/
#define RBIMPL_ARITHMETIC_GID_T_H
/**
* @file
* @author Ruby developers
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
* @warning Symbols prefixed with either `RBIMPL` or `rbimpl` are
* implementation details. Don't take them as canon. They could
* rapidly appear then vanish. The name (path) of this header file
* is also an implementation detail. Do not expect it to persist
* at the place it is now. Developers are free to move it anywhere
* anytime at will.
* @note To ruby-core: remember that this header can be possibly
* recursively included from extension libraries written in C++.
* Do not expect for instance `__VA_ARGS__` is always available.
* We assume C99 for ruby itself but we don't assume languages of
* extension libraries. They could be written in C++98.
* @brief Arithmetic conversion between C's `gid_t` and Ruby's.
*/
#include "ruby/internal/config.h"
#include "ruby/internal/arithmetic/long.h"
/** Converts a C's `gid_t` into an instance of ::rb_cInteger. */
#ifndef GIDT2NUM
# define GIDT2NUM RB_LONG2NUM
#endif
/** Converts an instance of ::rb_cNumeric into C's `gid_t`. */
#ifndef NUM2GIDT
# define NUM2GIDT RB_NUM2LONG
#endif
/** A rb_sprintf() format prefix to be used for a `gid_t` parameter. */
#ifndef PRI_GIDT_PREFIX
# define PRI_GIDT_PREFIX PRI_LONG_PREFIX
#endif
#endif /* RBIMPL_ARITHMETIC_GID_T_H */
PK ! æmÂ3 3 long_long.hnu „[µü¤ #ifndef RBIMPL_ARITHMETIC_LONG_LONG_H /*-*-C++-*-vi:se ft=cpp:*/
#define RBIMPL_ARITHMETIC_LONG_LONG_H
/**
* @file
* @author Ruby developers
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
* @warning Symbols prefixed with either `RBIMPL` or `rbimpl` are
* implementation details. Don't take them as canon. They could
* rapidly appear then vanish. The name (path) of this header file
* is also an implementation detail. Do not expect it to persist
* at the place it is now. Developers are free to move it anywhere
* anytime at will.
* @note To ruby-core: remember that this header can be possibly
* recursively included from extension libraries written in C++.
* Do not expect for instance `__VA_ARGS__` is always available.
* We assume C99 for ruby itself but we don't assume languages of
* extension libraries. They could be written in C++98.
* @brief Arithmetic conversion between C's `long long` and Ruby's.
*/
#include "ruby/internal/value.h"
#include "ruby/internal/dllexport.h"
#include "ruby/internal/special_consts.h"
#include "ruby/backward/2/long_long.h"
#define RB_LL2NUM rb_ll2num_inline /**< @alias{rb_ll2num_inline} */
#define RB_ULL2NUM rb_ull2num_inline /**< @alias{rb_ull2num_inline} */
#define LL2NUM RB_LL2NUM /**< @old{RB_LL2NUM} */
#define ULL2NUM RB_ULL2NUM /**< @old{RB_ULL2NUM} */
#define RB_NUM2LL rb_num2ll_inline /**< @alias{rb_num2ll_inline} */
#define RB_NUM2ULL rb_num2ull_inline /**< @alias{rb_num2ull_inline} */
#define NUM2LL RB_NUM2LL /**< @old{RB_NUM2LL} */
#define NUM2ULL RB_NUM2ULL /**< @old{RB_NUM2ULL} */
RBIMPL_SYMBOL_EXPORT_BEGIN()
/**
* Converts a C's `long long` into an instance of ::rb_cInteger.
*
* @param[in] num Arbitrary `long long` value.
* @return An instance of ::rb_cInteger.
*/
VALUE rb_ll2inum(LONG_LONG num);
/**
* Converts a C's `unsigned long long` into an instance of ::rb_cInteger.
*
* @param[in] num Arbitrary `unsigned long long` value.
* @return An instance of ::rb_cInteger.
*/
VALUE rb_ull2inum(unsigned LONG_LONG num);
/**
* Converts an instance of ::rb_cNumeric into C's `long long`.
*
* @param[in] num Something numeric.
* @exception rb_eTypeError `num` is not a numeric.
* @exception rb_eRangeError `num` is out of range of `long long`.
* @return The passed value converted into C's `long long`.
*/
LONG_LONG rb_num2ll(VALUE num);
/**
* Converts an instance of ::rb_cNumeric into C's `unsigned long long`.
*
* @param[in] num Something numeric.
* @exception rb_eTypeError `num` is not a numeric.
* @exception rb_eRangeError `num` is out of range of `unsigned long long`.
* @return The passed value converted into C's `unsigned long long`.
*/
unsigned LONG_LONG rb_num2ull(VALUE num);
RBIMPL_SYMBOL_EXPORT_END()
/**
* Converts a C's `long long` into an instance of ::rb_cInteger.
*
* @param[in] n Arbitrary `long long` value.
* @return An instance of ::rb_cInteger
*/
static inline VALUE
rb_ll2num_inline(LONG_LONG n)
{
if (FIXABLE(n)) return LONG2FIX((long)n);
return rb_ll2inum(n);
}
/**
* Converts a C's `unsigned long long` into an instance of ::rb_cInteger.
*
* @param[in] n Arbitrary `unsigned long long` value.
* @return An instance of ::rb_cInteger
*/
static inline VALUE
rb_ull2num_inline(unsigned LONG_LONG n)
{
if (POSFIXABLE(n)) return LONG2FIX((long)n);
return rb_ull2inum(n);
}
/**
* Converts an instance of ::rb_cNumeric into C's `long long`.
*
* @param[in] x Something numeric.
* @exception rb_eTypeError `x` is not a numeric.
* @exception rb_eRangeError `x` is out of range of `long long`.
* @return The passed value converted into C's `long long`.
*/
static inline LONG_LONG
rb_num2ll_inline(VALUE x)
{
if (RB_FIXNUM_P(x))
return RB_FIX2LONG(x);
else
return rb_num2ll(x);
}
/**
* Converts an instance of ::rb_cNumeric into C's `unsigned long long`.
*
* @param[in] x Something numeric.
* @exception rb_eTypeError `x` is not a numeric.
* @exception rb_eRangeError `x` is out of range of `unsigned long long`.
* @return The passed value converted into C's `unsigned long long`.
*/
static inline unsigned LONG_LONG
rb_num2ull_inline(VALUE x)
{
if (RB_FIXNUM_P(x))
return RB_FIX2LONG(x);
else
return rb_num2ull(x);
}
#endif /* RBIMPL_ARITHMETIC_LONG_LONG_H */
PK ! .µ‰S S short.hnu „[µü¤ #ifndef RBIMPL_ARITHMETIC_SHORT_H /*-*-C++-*-vi:se ft=cpp:*/
#define RBIMPL_ARITHMETIC_SHORT_H
/**
* @file
* @author Ruby developers
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
* @warning Symbols prefixed with either `RBIMPL` or `rbimpl` are
* implementation details. Don't take them as canon. They could
* rapidly appear then vanish. The name (path) of this header file
* is also an implementation detail. Do not expect it to persist
* at the place it is now. Developers are free to move it anywhere
* anytime at will.
* @note To ruby-core: remember that this header can be possibly
* recursively included from extension libraries written in C++.
* Do not expect for instance `__VA_ARGS__` is always available.
* We assume C99 for ruby itself but we don't assume languages of
* extension libraries. They could be written in C++98.
* @brief Arithmetic conversion between C's `short` and Ruby's.
*
* Shyouhei wonders: why there is no SHORT2NUM, given there are both
* #USHORT2NUM and #CHR2FIX?
*/
#include "ruby/internal/value.h"
#include "ruby/internal/dllexport.h"
#include "ruby/internal/special_consts.h"
#define RB_NUM2SHORT rb_num2short_inline /**< @alias{rb_num2short_inline} */
#define RB_NUM2USHORT rb_num2ushort /**< @alias{rb_num2ushort} */
#define NUM2SHORT RB_NUM2SHORT /**< @old{RB_NUM2SHORT} */
#define NUM2USHORT RB_NUM2USHORT /**< @old{RB_NUM2USHORT} */
#define USHORT2NUM RB_INT2FIX /**< @old{RB_INT2FIX} */
#define RB_FIX2SHORT rb_fix2short /**< @alias{rb_fix2ushort} */
#define FIX2SHORT RB_FIX2SHORT /**< @old{RB_FIX2SHORT} */
RBIMPL_SYMBOL_EXPORT_BEGIN()
/**
* Converts an instance of ::rb_cNumeric into C's `short`.
*
* @param[in] num Something numeric.
* @exception rb_eTypeError `num` is not a numeric.
* @exception rb_eRangeError `num` is out of range of `short`.
* @return The passed value converted into C's `short`.
*/
short rb_num2short(VALUE num);
/**
* Converts an instance of ::rb_cNumeric into C's `unsigned short`.
*
* @param[in] num Something numeric.
* @exception rb_eTypeError `num` is not a numeric.
* @exception rb_eRangeError `num` is out of range of `unsigned short`.
* @return The passed value converted into C's `unsigned short`.
*/
unsigned short rb_num2ushort(VALUE num);
/**
* Identical to rb_num2short().
*
* @param[in] num Something numeric.
* @exception rb_eTypeError `num` is not a numeric.
* @exception rb_eRangeError `num` is out of range of `short`.
* @return The passed value converted into C's `short`.
*
* @internal
*
* This function seems to be a complete waste of disk space. @shyouhei has no
* idea why this is a different thing from rb_num2short().
*/
short rb_fix2short(VALUE num);
/**
* Identical to rb_num2ushort().
*
* @param[in] num Something numeric.
* @exception rb_eTypeError `num` is not a numeric.
* @exception rb_eRangeError `num` is out of range of `unsigned short`.
* @return The passed value converted into C's `unsigned short`.
*
* @internal
*
* This function seems to be a complete waste of disk space. @shyouhei has no
* idea why this is a different thing from rb_num2ushort().
*/
unsigned short rb_fix2ushort(VALUE num);
RBIMPL_SYMBOL_EXPORT_END()
/**
* Identical to rb_num2short().
*
* @param[in] x Something numeric.
* @exception rb_eTypeError `x` is not a numeric.
* @exception rb_eRangeError `x` is out of range of `short`.
* @return The passed value converted into C's `short`.
*
* @internal
*
* This function seems to be a complete waste of time. @shyouhei has no idea
* why this is a different thing from rb_num2short().
*/
static inline short
rb_num2short_inline(VALUE x)
{
if (RB_FIXNUM_P(x))
return rb_fix2short(x);
else
return rb_num2short(x);
}
#endif /* RBIMPL_ARITHMETIC_SHORT_H */
PK ! ‡Dývö
ö
double.hnu „[µü¤ #ifndef RBIMPL_ARITHMETIC_DOUBLE_H /*-*-C++-*-vi:se ft=cpp:*/
#define RBIMPL_ARITHMETIC_DOUBLE_H
/**
* @file
* @author Ruby developers
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
* @warning Symbols prefixed with either `RBIMPL` or `rbimpl` are
* implementation details. Don't take them as canon. They could
* rapidly appear then vanish. The name (path) of this header file
* is also an implementation detail. Do not expect it to persist
* at the place it is now. Developers are free to move it anywhere
* anytime at will.
* @note To ruby-core: remember that this header can be possibly
* recursively included from extension libraries written in C++.
* Do not expect for instance `__VA_ARGS__` is always available.
* We assume C99 for ruby itself but we don't assume languages of
* extension libraries. They could be written in C++98.
* @brief Arithmetic conversion between C's `double` and Ruby's.
*/
#include "ruby/internal/attr/pure.h"
#include "ruby/internal/dllexport.h"
#include "ruby/internal/value.h"
#define NUM2DBL rb_num2dbl /**< @old{rb_num2dbl} */
#define RFLOAT_VALUE rb_float_value /**< @old{rb_float_value} */
#define DBL2NUM rb_float_new /**< @old{rb_float_new} */
RBIMPL_SYMBOL_EXPORT_BEGIN()
/**
* Converts an instance of ::rb_cNumeric into C's `double`.
*
* @param[in] num Something numeric.
* @exception rb_eTypeError `num` is not a numeric.
* @return The passed value converted into C's `double`.
*/
double rb_num2dbl(VALUE num);
RBIMPL_ATTR_PURE()
/**
* Extracts its double value from an instance of ::rb_cFloat.
*
* @param[in] num An instance of ::rb_cFloat.
* @pre Must not pass anything other than a Fixnum.
* @return The passed value converted into C's `double`.
*/
double rb_float_value(VALUE num);
/**
* Converts a C's `double` into an instance of ::rb_cFloat.
*
* @param[in] d Arbitrary `double` value.
* @return An instance of ::rb_cFloat.
*/
VALUE rb_float_new(double d);
/**
* Identical to rb_float_new(), except it does not generate Flonums.
*
* @param[in] d Arbitrary `double` value.
* @return An instance of ::rb_cFloat.
*
* @internal
*
* @shyouhei has no idea why it is here.
*/
VALUE rb_float_new_in_heap(double d);
RBIMPL_SYMBOL_EXPORT_END()
#endif /* RBIMPL_ARITHMETIC_DOUBLE_H */
PK ! ("ÚŸ^ ^ pid_t.hnu „[µü¤ #ifndef RBIMPL_ARITHMETIC_PID_T_H /*-*-C++-*-vi:se ft=cpp:*/
#define RBIMPL_ARITHMETIC_PID_T_H
/**
* @file
* @author Ruby developers
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
* @warning Symbols prefixed with either `RBIMPL` or `rbimpl` are
* implementation details. Don't take them as canon. They could
* rapidly appear then vanish. The name (path) of this header file
* is also an implementation detail. Do not expect it to persist
* at the place it is now. Developers are free to move it anywhere
* anytime at will.
* @note To ruby-core: remember that this header can be possibly
* recursively included from extension libraries written in C++.
* Do not expect for instance `__VA_ARGS__` is always available.
* We assume C99 for ruby itself but we don't assume languages of
* extension libraries. They could be written in C++98.
* @brief Arithmetic conversion between C's `pid_t` and Ruby's.
*/
#include "ruby/internal/config.h"
#include "ruby/internal/arithmetic/long.h"
/** Converts a C's `pid_t` into an instance of ::rb_cInteger. */
#ifndef PIDT2NUM
# define PIDT2NUM RB_LONG2NUM
#endif
/** Converts an instance of ::rb_cNumeric into C's `pid_t`. */
#ifndef NUM2PIDT
# define NUM2PIDT RB_NUM2LONG
#endif
/** A rb_sprintf() format prefix to be used for a `pid_t` parameter. */
#ifndef PRI_PIDT_PREFIX
# define PRI_PIDT_PREFIX PRI_LONG_PREFIX
#endif
#endif /* RBIMPL_ARITHMETIC_PID_T_H */
PK ! £ÕI2 2 int.hnu „[µü¤ #ifndef RBIMPL_ARITHMETIC_INT_H /*-*-C++-*-vi:se ft=cpp:*/
#define RBIMPL_ARITHMETIC_INT_H
/**
* @file
* @author Ruby developers
* @copyright This file is a part of the programming language Ruby.
* Permission is hereby granted, to either redistribute and/or
* modify this file, provided that the conditions mentioned in the
* file COPYING are met. Consult the file for details.
* @warning Symbols prefixed with either `RBIMPL` or `rbimpl` are
* implementation details. Don't take them as canon. They could
* rapidly appear then vanish. The name (path) of this header file
* is also an implementation detail. Do not expect it to persist
* at the place it is now. Developers are free to move it anywhere
* anytime at will.
* @note To ruby-core: remember that this header can be possibly
* recursively included from extension libraries written in C++.
* Do not expect for instance `__VA_ARGS__` is always available.
* We assume C99 for ruby itself but we don't assume languages of
* extension libraries. They could be written in C++98.
* @brief Arithmetic conversion between C's `int` and Ruby's.
*/
#include "ruby/internal/config.h"
#include "ruby/internal/arithmetic/fixnum.h"
#include "ruby/internal/arithmetic/intptr_t.h"
#include "ruby/internal/arithmetic/long.h"
#include "ruby/internal/attr/artificial.h"
#include "ruby/internal/attr/const.h"
#include "ruby/internal/attr/constexpr.h"
#include "ruby/internal/compiler_is.h"
#include "ruby/internal/dllexport.h"
#include "ruby/internal/special_consts.h"
#include "ruby/internal/value.h"
#include "ruby/internal/warning_push.h"
#include "ruby/assert.h"
#define RB_INT2NUM rb_int2num_inline /**< @alias{rb_int2num_inline} */
#define RB_NUM2INT rb_num2int_inline /**< @alias{rb_num2int_inline} */
#define RB_UINT2NUM rb_uint2num_inline /**< @alias{rb_uint2num_inline} */
#define FIX2INT RB_FIX2INT /**< @old{RB_FIX2INT} */
#define FIX2UINT RB_FIX2UINT /**< @old{RB_FIX2UINT} */
#define INT2NUM RB_INT2NUM /**< @old{RB_INT2NUM} */
#define NUM2INT RB_NUM2INT /**< @old{RB_NUM2INT} */
#define NUM2UINT RB_NUM2UINT /**< @old{RB_NUM2UINT} */
#define UINT2NUM RB_UINT2NUM /**< @old{RB_UINT2NUM} */
/** @cond INTERNAL_MACRO */
#define RB_FIX2INT RB_FIX2INT
#define RB_NUM2UINT RB_NUM2UINT
#define RB_FIX2UINT RB_FIX2UINT
/** @endcond */
RBIMPL_SYMBOL_EXPORT_BEGIN()
/**
* Converts an instance of ::rb_cNumeric into C's `long`.
*
* @param[in] num Something numeric.
* @exception rb_eTypeError `num` is not a numeric.
* @exception rb_eRangeError `num` is out of range of `int`.
* @return The passed value converted into C's `long`.
*
* @internal
*
* Yes, the API is really strange. It returns `long`, but raises when the
* value is out of `int`. This seems to be due to the fact that Matz favoured
* K&R before, and his machine at that moment was an ILP32 architecture.
*/
long rb_num2int(VALUE num);
/**
* Identical to rb_num2int().
*
* @param[in] num Something numeric.
* @exception rb_eTypeError `num` is not a numeric.
* @exception rb_eRangeError `num` is out of range of `int`.
* @return The passed value converted into C's `long`.
*
* @internal
*
* This function seems to be a complete waste of disk space. @shyouhei has no
* idea why this is a different thing from rb_num2short().
*/
long rb_fix2int(VALUE num);
/**
* Converts an instance of ::rb_cNumeric into C's `unsigned long`.
*
* @param[in] num Something numeric.
* @exception rb_eTypeError `num` is not a numeric.
* @exception rb_eRangeError `num` is out of range of `unsigned int`.
* @return The passed value converted into C's `unsigned long`.
*
* @internal
*
* Yes, the API is really strange. It returns `unsigned long`, but raises when
* the value is out of `unsigned int`. This seems to be due to the fact that
* Matz favoured K&R before, and his machine at that moment was an ILP32
* architecture.
*/
unsigned long rb_num2uint(VALUE num);
/**
* Identical to rb_num2uint().
*
* @param[in] num Something numeric.
* @exception rb_eTypeError `num` is not a numeric.
* @exception rb_eRangeError `num` is out of range of `unsigned int`.
* @return The passed value converted into C's `unsigned long`.
*
* @internal
*
* This function seems to be a complete waste of disk space. @shyouhei has no
* idea why this is a different thing from rb_num2short().
*/
unsigned long rb_fix2uint(VALUE num);
RBIMPL_SYMBOL_EXPORT_END()
RBIMPL_ATTR_ARTIFICIAL()
/**
* Converts a Fixnum into C's `int`.
*
* @param[in] x Some Fixnum.
* @pre Must not pass anything other than a Fixnum.
* @return The passed value converted into C's `int`.
*/
static inline int
RB_FIX2INT(VALUE x)
{
/* "FIX2INT raises a TypeError if passed nil", says rubyspec. Not sure if
* that is a desired behaviour but just preserve backwards compatilibily.
*/
#if 0
RBIMPL_ASSERT_OR_ASSUME(RB_FIXNUM_P(x));
#endif
long ret;
if /* constexpr */ (sizeof(int) < sizeof(long)) {
ret = rb_fix2int(x);
}
else {
ret = RB_FIX2LONG(x);
}
return RBIMPL_CAST((int)ret);
}
/**
* Converts an instance of ::rb_cNumeric into C's `int`.
*
* @param[in] x Something numeric.
* @exception rb_eTypeError `x` is not a numeric.
* @exception rb_eRangeError `x` is out of range of `int`.
* @return The passed value converted into C's `int`.
*/
static inline int
rb_num2int_inline(VALUE x)
{
long ret;
if /* constexpr */ (sizeof(int) == sizeof(long)) {
ret = RB_NUM2LONG(x);
}
else if (RB_FIXNUM_P(x)) {
ret = rb_fix2int(x);
}
else {
ret = rb_num2int(x);
}
return RBIMPL_CAST((int)ret);
}
/**
* Converts an instance of ::rb_cNumeric into C's `unsigned int`.
*
* @param[in] x Something numeric.
* @exception rb_eTypeError `x` is not a numeric.
* @exception rb_eRangeError `x` is out of range of `unsigned int`.
* @return The passed value converted into C's `unsigned int`.
*/
RBIMPL_ATTR_ARTIFICIAL()
static inline unsigned int
RB_NUM2UINT(VALUE x)
{
unsigned long ret;
if /* constexpr */ (sizeof(int) < sizeof(long)) {
ret = rb_num2uint(x);
}
else {
ret = RB_NUM2ULONG(x);
}
return RBIMPL_CAST((unsigned int)ret);
}
RBIMPL_ATTR_ARTIFICIAL()
/**
* Converts a Fixnum into C's `int`.
*
* @param[in] x Some Fixnum.
* @pre Must not pass anything other than a Fixnum.
* @return The passed value converted into C's `int`.
*/
static inline unsigned int
RB_FIX2UINT(VALUE x)
{
#if 0 /* Ditto for RB_FIX2INT. */
RBIMPL_ASSERT_OR_ASSUME(RB_FIXNUM_P(x));
#endif
unsigned long ret;
if /* constexpr */ (sizeof(int) < sizeof(long)) {
ret = rb_fix2uint(x);
}
else {
ret = RB_FIX2ULONG(x);
}
return RBIMPL_CAST((unsigned int)ret);
}
RBIMPL_WARNING_PUSH()
#if RBIMPL_COMPILER_IS(GCC)
RBIMPL_WARNING_IGNORED(-Wtype-limits) /* We can ignore them here. */
#elif RBIMPL_HAS_WARNING("-Wtautological-constant-out-of-range-compare")
RBIMPL_WARNING_IGNORED(-Wtautological-constant-out-of-range-compare)
#endif
/**
* Converts a C's `int` into an instance of ::rb_cInteger.
*
* @param[in] v Arbitrary `int` value.
* @return An instance of ::rb_cInteger.
*/
static inline VALUE
rb_int2num_inline(int v)
{
if (RB_FIXABLE(v))
return RB_INT2FIX(v);
else
return rb_int2big(v);
}
/**
* Converts a C's `unsigned int` into an instance of ::rb_cInteger.
*
* @param[in] v Arbitrary `unsigned int` value.
* @return An instance of ::rb_cInteger.
*/
static inline VALUE
rb_uint2num_inline(unsigned int v)
{
if (RB_POSFIXABLE(v))
return RB_LONG2FIX(v);
else
return rb_uint2big(v);
}
RBIMPL_WARNING_POP()
#endif /* RBIMPL_ARITHMETIC_INT_H */
PK ! —B 0M 0M
fixnums.gonu „[µü¤ PK ! R¾`è1; 1;
jM flonums.gonu „[µü¤ PK ! –4ιÿ ÿ
Õˆ bitwise.gonu „[µü¤ PK ! NPï4T T š size_t.hnu „[µü¤ PK ! ÊÄ Ä š¥ off_t.hnu „[µü¤ PK ! ÷¥bq³ ³ •¯ st_data_t.hnu „[µü¤ PK ! ¢ ø», », ƒ» long.hnu „[µü¤ PK ! ¸{rf f tè mode_t.hnu „[µü¤ PK ! ÒƒÓW+
+
ð char.hnu „[µü¤ PK ! )°ðî
sý intptr_t.hnu „[µü¤ PK ! =nVt{ { ¾ fixnum.hnu „[µü¤ PK ! çÈ(—^ ^ q uid_t.hnu „[µü¤ PK ! n-o
^ ^ gid_t.hnu „[µü¤ PK ! æmÂ3 3 ›# long_long.hnu „[µü¤ PK ! .µ‰S S 7 short.hnu „[µü¤ PK ! ‡Dývö
ö
“H double.hnu „[µü¤ PK ! ("ÚŸ^ ^ ÁS pid_t.hnu „[µü¤ PK ! £ÕI2 2 V[ int.hnu „[µü¤ PK ½{