HTTP/2 302 date: Wed, 23 Jul 2025 07:44:07 GMT content-type: text/html; charset=utf-8 content-length: 0 vary: X-PJAX, X-PJAX-Container, Turbo-Visit, Turbo-Frame, X-Requested-With,Accept-Encoding, Accept, X-Requested-With location: https://release-assets.githubusercontent.com/github-production-release-asset/877481197/8192c2c3-d2b9-4972-b3cd-3cb495e4dc78?sp=r&sv=2018-11-09&sr=b&spr=https&se=2025-07-23T08%3A39%3A50Z&rscd=attachment%3B+filename%3Ddarwin.exe&rsct=application%2Foctet-stream&skoid=96c2d410-5711-43a1-aedd-ab1947aa7ab0&sktid=398a6654-997b-47e9-b12b-9515b896b4de&skt=2025-07-23T07%3A38%3A51Z&ske=2025-07-23T08%3A39%3A50Z&sks=b&skv=2018-11-09&sig=d%2FipbeayHBmMDZBPclAhIzu%2FIAuJ7BZ1GLPe3xJQBCs%3D&jwt=eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJpc3MiOiJnaXRodWIuY29tIiwiYXVkIjoicmVsZWFzZS1hc3NldHMuZ2l0aHVidXNlcmNvbnRlbnQuY29tIiwia2V5Ijoia2V5MSIsImV4cCI6MTc1MzI1Njk0NywibmJmIjoxNzUzMjU2NjQ3LCJwYXRoIjoicmVsZWFzZWFzc2V0cHJvZHVjdGlvbi5ibG9iLmNvcmUud2luZG93cy5uZXQifQ.zq2qkXf6C_BmKdxkReD0E8CRLlBiKTrl9JgbjtqQGB0&response-content-disposition=attachment%3B%20filename%3Ddarwin.exe&response-content-type=application%2Foctet-stream cache-control: no-cache strict-transport-security: max-age=31536000; includeSubdomains; preload x-frame-options: deny x-content-type-options: nosniff x-xss-protection: 0 referrer-policy: no-referrer-when-downgrade content-security-policy: default-src 'none'; base-uri 'self'; child-src github.githubassets.com github.com/assets-cdn/worker/ github.com/assets/ gist.github.com/assets-cdn/worker/; connect-src 'self' uploads.github.com www.githubstatus.com collector.github.com raw.githubusercontent.com api.github.com github-cloud.s3.amazonaws.com github-production-repository-file-5c1aeb.s3.amazonaws.com github-production-upload-manifest-file-7fdce7.s3.amazonaws.com github-production-user-asset-6210df.s3.amazonaws.com *.rel.tunnels.api.visualstudio.com wss://*.rel.tunnels.api.visualstudio.com objects-origin.githubusercontent.com copilot-proxy.githubusercontent.com proxy.individual.githubcopilot.com proxy.business.githubcopilot.com proxy.enterprise.githubcopilot.com *.actions.githubusercontent.com wss://*.actions.githubusercontent.com productionresultssa0.blob.core.windows.net/ productionresultssa1.blob.core.windows.net/ productionresultssa2.blob.core.windows.net/ productionresultssa3.blob.core.windows.net/ productionresultssa4.blob.core.windows.net/ productionresultssa5.blob.core.windows.net/ productionresultssa6.blob.core.windows.net/ productionresultssa7.blob.core.windows.net/ productionresultssa8.blob.core.windows.net/ productionresultssa9.blob.core.windows.net/ productionresultssa10.blob.core.windows.net/ productionresultssa11.blob.core.windows.net/ productionresultssa12.blob.core.windows.net/ productionresultssa13.blob.core.windows.net/ productionresultssa14.blob.core.windows.net/ productionresultssa15.blob.core.windows.net/ productionresultssa16.blob.core.windows.net/ productionresultssa17.blob.core.windows.net/ productionresultssa18.blob.core.windows.net/ productionresultssa19.blob.core.windows.net/ github-production-repository-image-32fea6.s3.amazonaws.com github-production-release-asset-2e65be.s3.amazonaws.com insights.github.com wss://alive.github.com api.githubcopilot.com api.individual.githubcopilot.com api.business.githubcopilot.com api.enterprise.githubcopilot.com; font-src github.githubassets.com; form-action 'self' github.com gist.github.com copilot-workspace.githubnext.com objects-origin.githubusercontent.com; frame-ancestors 'none'; frame-src viewscreen.githubusercontent.com notebooks.githubusercontent.com; img-src 'self' data: blob: github.githubassets.com media.githubusercontent.com camo.githubusercontent.com identicons.github.com avatars.githubusercontent.com private-avatars.githubusercontent.com github-cloud.s3.amazonaws.com objects.githubusercontent.com release-assets.githubusercontent.com secured-user-images.githubusercontent.com/ user-images.githubusercontent.com/ private-user-images.githubusercontent.com opengraph.githubassets.com copilotprodattachments.blob.core.windows.net/github-production-copilot-attachments/ github-production-user-asset-6210df.s3.amazonaws.com customer-stories-feed.github.com spotlights-feed.github.com objects-origin.githubusercontent.com *.githubusercontent.com; manifest-src 'self'; media-src github.com user-images.githubusercontent.com/ secured-user-images.githubusercontent.com/ private-user-images.githubusercontent.com github-production-user-asset-6210df.s3.amazonaws.com gist.github.com; script-src github.githubassets.com; style-src 'unsafe-inline' github.githubassets.com; upgrade-insecure-requests; worker-src github.githubassets.com github.com/assets-cdn/worker/ github.com/assets/ gist.github.com/assets-cdn/worker/ server: github.com x-github-request-id: D408:256CA9:66D976:810103:688092C7 HTTP/2 200 last-modified: Thu, 23 Jan 2025 20:04:59 GMT etag: "0x8DD3BE936F204E3" server: Windows-Azure-Blob/1.0 Microsoft-HTTPAPI/2.0 x-ms-request-id: 6e5ce744-401e-0049-77a5-fba3be000000 x-ms-version: 2018-11-09 x-ms-creation-time: Thu, 23 Jan 2025 20:04:59 GMT x-ms-blob-content-md5: a7xdyvxSjLv42wjqvdyLnA== x-ms-lease-status: unlocked x-ms-lease-state: available x-ms-blob-type: BlockBlob x-ms-server-encrypted: true via: 1.1 varnish, 1.1 varnish accept-ranges: bytes age: 0 date: Wed, 23 Jul 2025 07:44:07 GMT x-served-by: cache-iad-kcgs7200036-IAD, cache-bom-vanm7210092-BOM x-cache: MISS, MISS x-cache-hits: 0, 0 x-timer: S1753256648.559802,VS0,VE280 content-disposition: attachment; filename=darwin.exe content-type: application/octet-stream content-length: 1876814 MZ????@??? ?!?
L?!This program cannot be run in DOS mode. $PEL
???g`??

(LN?`@
.?@
@[ P\ ??2??xR(.text?JL``.data?`R@?.rdata?v px T@@/4?4
?6
?@@.bss? 0??.edata[ @@@.idata\ P@?.CRT0`@?.tlsp@?.reloc?2?4 @B/14??T@B/29x?
??
\@B/41O?P@B/55????P@B/678?&@B/78? ?",@B/94
?
N@B/110?  V@BÍ?&??&???1?f?=@MZ??2V
??2V
??2V
u?<@??@PE??@tZ?0V??2V??t?E?E??+?E??E?
?????D$?D$dpG?E??$???E?
?E?;E?|͋E???U???(?E?D$?E?D$?E?$?????E?E?D$?E?$???????U???(?E?P?E?@?T$?$?T ?E??E?P?E??P?E?$???E??E???U?E?
ЉD$?E?D$?E?$?????E?E??U?T$?$?>??u?E?D$?E??$?` ?E??

E??'?E??E?
?????D$?D$dpG?E??$?? ?E?$?????E?
?E?@?U?9??c????E???U???(?E?D$?E?D$?E?$??????E?E?D$?E?$?d??????U???8?E??E??E??E??E??E?D$?D$gpG?E?$?[????E?D$?E?D$?E?$??????U???(?E?D$?E?D$?E?$?????E?E?D$?E?$????????U???8?E?E??E?E?? ?E??E??\$?D$kpG?E?$??E??D$?E?D$?E?$??????E??E?$?_????E???U???8?E?E??E?E??E??\$?E?D$?E?$?s????E?E?D$?E?$?*??????U???(?E?$??<?E??E??X?U?E?
ЉD$?E?D$?E?$?_????E?E??U?T$?$?r<??u?E?$?????E??!?E?$?????E?
?E?@?U?9?r????????U????E?E??E???E??E?
??8E?u?E???E?
?E?@?U?9?rظ??????U???(?E?$?<?E?E?D$?D$?E?$?????E??E???U?T$?$?;??u?E??$??????
??E??$????????U???(?E?$?;?E?E?P?E?)‰??D$?????D$?E?$?(????E??E???U?T$?$?;;??u?E??$?????
??E??$?m??????U???(?E?P?E?@?T$?$?I?E??E?P?E??P?E??9?E??E?
???E??E?$?hTV?ЉD$?D$dpG?E??$? ?E?
?E?@?U?9?r??E???U???(?E?$?n????E?E?D$?E?$????????U???(?E?P?E?@?T$?$??E??E?P?E??P?E??9?E??E?
???E??E?$?lTV?ЉD$?D$dpG?E??$?s ?E?
?E?@?U?9?r??E???U???(?E?P?E?@?T$?$??E??E?P?E??P?E?@??u?E????E?????$?lTV?ЉD$?D$dpG?E??$???E?
?y?E??U??

???E?E??E?
???E?}? u'?E?$?lTV?ЉD$?D$dpG?E??$??%?E?$?hTV?ЉD$?D$dpG?E??$?t?E?
?E?@?U?9??v????E???U???(?E?$??????E?E?D$?E?$?"??????U???(?E?$?B????E?E?D$?E?$????????U???(?E?P?E?@?T$?$???E??E?P?E??P?E?@?E??+?E??E?
?????D$?D$dpG?E??$??m?
?}?yϋE???U???(?E?$?????E?E?D$?E?$?b??????U???(?E?P?E?@?T$?$?2?E??E?P?E??P?E?@?‹E?D$?$??E?E?@?‹E?D$?$??E??E??>?E?;E?|?E?;E?~)?E??E?
?????D$?D$dpG?E??$???
??E?
?E?@?U?9?r??E???U???(?E?D$?E?D$?E?$?'????E?E?D$?E?$?q??????U???(?E?P?E?@?T$?$?A?E?E?P?E?P?E?@?‹E?D$?$???E??E??+?E??E?
?????D$?D$dpG?E?$? ?E?
?E?;E?|͋E?D$?E?$?J?E?E??+?E??E?
?????D$?D$dpG?E?$??E?
?E?@?U?9?rȋE???U???(?E?D$?E?D$?E?$?????E?E?D$?E?$?`??????U???H?$npG??
?E??E??E??G?E??E?
???E??E?D$?E?$?w????E܃}?????E??Eۃ?
??t?E??E???E?
?E?@?U?9?r??E??????E?@??
?E??J?E??E?
???E??EډD$?E?$?????Eԃ}?????E??EӃ?
??t?E??
?E?? ?m?
?}?y??E?$?d????E?D$?E?D$?E?$???????U???(?E?$??????E?E?D$?E?$?3??????U????E??U?T$?$?4??????U??S??4?$? 4?E?U????????????9?r??$??3?‹E??E???E??@?E?$??4?‹E?P?E?$??4?‹E?P?E?]???U???(?D$spG?$spG?\????E?}t?E?D$?D$tpG?E?$?Z?E???U???(?D$spG?$spG?????E?E?E??E??D$?E?D$?E?$?? ?E???U???(?D$spG?$spG??????E?E??$?2?E?U??E?$?3?U?B?E?P?E?P?E???U????D$spG?$spG??????U???(?E?@??u ???D$wpG?E?$?5?????u?D$|pG?E?$??????t??P?E??U?T$?D$?pG?$??????E?}?u??$?D$?pG?E?$????????u?
????U???(?E?$?N????E?}?t?}?
u?
????U???(?E?$? ????E?}?u??pG?,?}?u??pG??}?
u??pG??}?u??pG???pG??U????D$wpG?E?$?+?????t?
????U???(?E??U??T$?D$gpG?$??????E?}?u???????E???U???(?E??U?T$?D$?pG?$?????E?}?u??????E???U????.?E?@??
??E?P?E?P?E??T$?$?1?U??E?P?E?@??9?s?????U???(?}tl?E???tb?E?$?31?E?E?P?E?
‹E?P?E?$?s????E??E?@+E?
‹E?D$?E?D$?$?N0?E??E?@
???
???U????E?$?p?E?D$?E?$?b??????U???(?E?E?E?D$?E?D$?E?$? ???U???(?E?$?"?E?E?E?D$?E?D$?E?$? ???U???(?E?@?D$?E?$??????E???E?@?D$?E?$??????E?
?E?@9E?|ܐ???U???(?E?$?????D$<?D$dpG?E?$?-????E?D$?E?$?z????}t:?D$ ?D$dpG?E?$??????E?E?E?D$?E?D$?E?$? ?D$>?D$dpG?E?$??????E?@?P
?E?P???U???(?E?$??????D$<?D$dpG?E?$?????E?D$?E?$??????}t:?D$ ?D$dpG?E?$?O????E?E?E?D$?E?D$?E?$? ?D$>?D$dpG?E?$???????U???(?E?$?\????D$<?D$dpG?E?$??????E?D$?E?$?3????}t:?D$ ?D$dpG?E?$?????E?E?E?D$?E?D$?E?$?w?D$?pG?E?$????????U????}u?E?@?P
?E?P??D$?E?D$?E?$???????U????}u?E?@?P??E?P?Z?E?@?P??E?P?E?$?i????D$?pG?E?$?Z????E?D$?E?$?H????D$>?D$dpG?E?$???????U???(?$?,?E?E??@?$?,?‹E??E???U????E?@??
???E??T$?$?,?U??E??E?@??
‹E??E?@?P
?E?P???U???(?E?$?????E?E?D$?E?$???????U???(?N????E??E??g?E?@??
9E?}/?E??U???
Ћ?U?T$?D$?D$?pG?E??$??????&?E??U???
Ћ?D$?D$?pG?E??$?????E?
?E?@9E?|??E???U???8?????E?E?$??????E?E?$?,?E??????E??E???U?E?
ЉD$?E??D$?E?$?????E??E?D$?E??$???????t'?E?D$?E?$?o?????????E?E??$??????2?E??$??????E??E?
?????D$?D$dpG?E?$?????E?
?E?@?U?9??[????E?D$?E?$?
????E?$?i????E???U???(?E???E??U???
Ћ?$?>????E?
?E?@9E?|ڋE??$??)?E?$??)???U???(?_????E??E??0?E??U???
Ћ?$?E?ЉE?E?D$?E??$?^????E?
?E?@9E?|ŋE???U???(?????E??E??E?E??U???
Ћ?$?E?Є?t&?E??U???
Ћ?$?????D$?E??$??????E?
?E?@9E?|??E???U???(?E???E??U???
Ћ?$?E?ЃE?
?E?@9E?|ڐ???U???(?E??-?E??U???
Ћ?U?T$?$???????t?
??E?
?E?@9E?|ȸ??U???(?E???E??U???
Ћ?$?????E?
?E?@9E?|ڐ???U??WVS????? ?????5???Dž ???$@Dž$????$@Dž(????$@Dž0???u%@Dž,???!%@DžH????'@DžL???(@DžP???5(@DžT????(@DžX???](@Dž\????(@Dž`????)@Džd???#*@Džh????*@Džl????*@Dž4???@Dž8???P@Dž?U??E?
???EЀ}?0t&?}?t ?}?.u ?E????D???E???
?D?? ?m?
?}???E??D$?E?$?-????E?
???D$?pG?E??$?=#????Džo???Džs???Džw???Dž{???Dž????E?P?U??\$?D$?pG??o????$?~????E??G??o????E?
???Eр}?0t,?}?t&?}?.u?E??Ƅo?????E??
Ƅo???? ?m?
?}????o????D$?E?$?G????E???D$dpG?Eʼn$?W"??u=?E?P?U??E??E҈?m???ƅn?????m????D$?E?$??????E?
?
?D$?pG?Eʼn$?"??uJ?E?P?U??????EӀ}?t?D$wpG?E?$??????D$|pG?E?$?????E?
?\
?D$?pG?E??$?!??u:?E?P?U??Eԃ}?t?EԉD$?E?$?L????Eԉ$?} ?E??
?D$tpG?Eʼn$?Q!??u/?E?P?U??E؃}?t?E؉D$?E?$??????E?
???D$?pG?E??$?!??uE?E?P?U??E??}?t+?E??$?????E܋E܉D$?E?$?????E܉$???E??i?D$?pG?Eʼn$? ??u.?E?P?U??E?}?t?E??D$?E?$?W????E?
?$?U?E
???E??E??E??D$?E?$?-????E?
?E??
9E???????}?~8?E?;E?~0?E?P??E
????k???ƅl?????k????D$?E?$????????U????E?E??E?;E|?E?E??}?y?E??P
?E
ЉE??}?y?E??E???U????E?$?xTV????U????E?D$?E?$??SV????U????E?$??SV????U????E?$??SV????U????E?$??SV????U???(?$??E?E???@?@?E?U??E?U?P?E??E?P?E???U????E?@??t?E?@?U?R?$?ЋE?@???U????E?$??????E?$?????U???8?$??E?E???@?@?@?$???‹E?P?E??@?E???U???8?$???E?E???@?@?@?E??@
?$??‹E?P?Z????U??E???U???(?E?@??t?E??U?T$?$???????t?
?V?E??=?E?@?U???
Ћ?E??E??9E???E?}?t?E??E??P?
??E?
?E?@9E?|????U???(?E?@??t?E??U?T$?$???????t?
?a?E??H?E?@?U???
Ћ?E??E??9E???E?}?t?E??$?????E??E??P?
??E?
?E?@9E?|????U???(?E?@??t+?E??U?T$?$???????t?E??
??E???E?@?U???
Ћ?E??E??9Euc?E??$?????E?@?P??E?P?E?@9E????E?}?t$?E?P?E?@????E?@?U???
‹
??E??
??E?
?E?@9E??m??????U???(?E?@??t"?E??U?T$?$???????t ?
??E??{?E?@?U???
Ћ?E??E??9EuZ?E??$??E?@?P??E?P?E?@9E????E?}?t$?E?P?E?@????E?@?U???
‹
??
??E?
?E?@9E??v??????U??S??$?}u ???E??(?E?@?U???
Ћ?E?E?9Eu??w?E?
?E?@9E?|͋E?@??
???E?@?T$?$??U?B?E?E??E?P?E?@????E?D$?E??$?G?????E?@?P
?E?P?
?]???U???(?E???E?@?U???
Ћ?$?????E?
?E?@9E?|ًE?@?$?M???U????E?$?????E?@??t ?E??$??E?$????U???(?E?$?q????E?@??tQ?E??E??E???E??@?U???
Ћ?$???E?
?E??@9E?|ًE??@?$??E??$??E?$????U????E?E??E?E??E???????z?E???????u?E??1??E????]??m
?}???E????T???]??E
?}x??E???U????E?E??E?E??E??E???????z-?E???????u?E??|??E????T???]??E??P
?E????E?????s??????E???????w???E????T???]??E??P??E??E????T????v?E???????z??E???????u??E???U???(?E?E??E?E??????E???????s???E?????r ?E?????? ?E????????$?g
?\$?E??$?L??U???(?E?E??E?E??????E???????s???E?????r ?E???????E??$?i??????T????U???H?E?EЋE?EԋE?EȋE?E??E???????z)?E???????u?E???????z?E???????u?E??u??~?E??$?~
?]????E?????r)?E??e??E??E????]??E????T?????T???]??'?E??E??E??e????]??E????T?????T???]??E???????v?E?????E???U???8?E?E??E?E??E??$??]??E??E?????r?E???E???????U????E?E?E?E??E???????v ?E??????Q?E????T???]??E??E?E????¸?0??)ЉE?E???]??E??M??E?????T???E????]??E???????U???(?E?E؋E?E????]????]??E?
??E??E????E????]??E??E??]??E?
??T?E?????w??E???U????E?E??E?E??E???????v?E?????E???U????}
???(???]??E???E??E????]??E?
?E?;E~??E???U???H?E?EȋE?E????]??E??E??]??E??]??E????]??D?E??E??]??E??E????E?P
?E???‰E??E????E????]?E?$?V????E????]???T?E?????w??E???U???H?E?EȋE?E????]??E????]??E??]??E????]????E??E??]??E??E????E??
?E?E??E????E????]?E?$??????E????]???T?E?????w??E???U????E?E??E?E??E??$??????]??E??$?O????}???U???8?E?EȋE?E??E???????r ?????????l???]??E??????E????????]??E??]??E????]??E?
??E??E????E????]??E??M??]??E???T?E?????w??E???T???]??E???U????E?E??E?E??E???????r ??????????E??$?9????]???T?$?(????}???U????E?E??E?E??E???????r ??????????E??$??????]?? ?T?$??????}???U????E?E??E?E??E?E??E?E??*? ?E??e??]??E??E?????s??E??E?????w??E???E???????z??E???????u???????U??? ?E?E?E?E?E?E??E?E????]??E???????z?E???????u???@?E???????v???u??]??E????]??E?? ?E??M??]??E?
?E??E?????w??E???U??? ?E?E?E?E??E??}??E??f?E??m??]??m??E??E???z?E?????u?E?????E???????v?E???
?E??E???E???U???(?E?@?E?E?@?U?R?M?L$?T$?U?$?ЉE??}?t?E??u??????)?E?P??E??E?U??P?E?@?H
?U?J?????U??E?U?P?E?U?P?E?U?P?E??E?@?]?U????E???u3?E?$?B??????u??!?E??P
?E??E?@?P??E?P?
??U???(?l?E?$??????u?E?c?E??U9?F‰E?E?@?U?T$?D$?E?$?8?E?+E?‹E??E?P?E?
‹E?P?E?
E?E?)E?}u????U???(?E?$?%?????u??=?E?;Es??,?E?@?E?E?+E?‹E??E?P?E
‹E?P?E???U???(?E??E?E;E?}?E??E????
???9E?|9?E?;E??????t!?E?D$?E ?D$?D$SrG?E?$?
?E?E???e?}??E??U?E?ЋE????E???T$?D$?E?D$?E?$??
?E??E?U??E???U???(?E??E?E?E?E?E??E??D$?E?D$?E?D$?E?$?
?E?E?U??E???U????D$prG?E?$?Y
U???(?E?@?E?E??U?R?D$?M?L$?M?L$?$?ЋE?@+E?‹E?P???U???(?E?@?E?E??@@??????uE?E??@U??u:?D$
?E?$?X[?E??U?R?M?L$?M?L$?M?L$?$??????U???(?E?@?E??E???U??R?M?L$?M?L$?M?L$?$?ЉE?}?u ?}t?
??????????t0?E?D$?E?D$?E?D$?E?$?????E?}?u???E??P?E+E
‹E??P?E???U???(?E?D$?E?D$?E?D$?E?$?6????E?}?u ?}t?
??????????t?D$?E?$?_s
?E???U??S??$?}u ???E?@?E??E???M?U??R?]?\$?L$?D$?$?ЉE?}???????t=?E?U?T$?D$?D$?E?$?????E?}?u?D$?E?$??r
?E??P?E
‹E??P?E?]???U????E?P?E??M?L$?T$?D$?rG?$??1
?E??D$?$?lr
U????E?@?U?T$?U?T$?$?9?????t?D$?rG?E?$?????E?P?E
‹E?P???U??S??$?M?E?@?]????)ЉE?E?;E}?E?D$?E?D$?E?$?q?????]???U???(?E?@?U?T$?$?,????E?E?P?E
‹E?P?}?u?D$?rG?E?$??????E???U???(?E?P??H?? ??t?E?P?B?H
?J?????E?@?$?P????E?}??u?D$?rG?E?$?????E?@?P
?E?P?E???U???(?E??m?E?$?x??????E??E?9Es?D$?rG?E?$?4????E????‹E??? ЉE?E?%???u??E???U????D$?????E?$??????U????D$????E?$?k?????U???(?D$?E??D$?E?$??????E???U???(?D$?E??D$?E?$??????E??U???U??S???E??E??E?$?`????E?}????}?
???E?$?>????E??E??E?H?E??D$?E؋U܉D$?T$?$?9`
?E??E?E?U??E?@???? ?????E??@???????s?U?E?T$?D$?E??$?&?U?m??}?(???E??
?D$?E??D$?E?$??????E?D$?E??D$?E??$??A
?E?E?U??E?@???? ???J
?E??@???????5
?U?E?T$?D$?E??$?m%?
?E?@ ?????E??
?D$?E?$??????E??D$?D$?E?D$?E?D$?E??$?"D
?E?E?U??E?@???? ?????E??@?????????U?E?T$?D$?E??$??$?w?E?D$?E??$?>
?E?E?U??E?@???? ??t*?E??@??????t?U?E?T$?D$?E??$?p$?E?P
?E?@?T$?D$?E?$?_????E?P?@??
???M?A?Q?EȉE?E?E??U??E??E??@??@?‹E?P?E?P?@?M?I?]ȉ\$?D$?T$?L$?E??$?g
?E?@?@???? ??t)?E??@??????t?E?@?D$?E??$?.$?
??]???U???(?E?$?k????E??D$?E?$??????E?@ ??t&?E????D$?E?$?????U?B4?E?U?P?o?E??
=????v ?E??$?{????E???E??D$?T$?$?/????U?B4?E?U?P?E???E?@4?T$?D$?E?$????????U???8?E?$?????E??E???
=???v ?E??$??????E????‹E??D$?T$?$?????U?B0?E?U??P?E???E?@0?U???
??@?E?
?E?;E?|??E??
?E?@0?U???
ЉE?E?$???????E?}????E???sG????E??@???E??@
??E??@??E?E?E?$??????E???E??@??E?E؋E?$??????M؉
?Q?E??@?m?E??L?D$?E?D$?E?$??????E?@L??u?D$?rG?E?$?:????E?E??E?@L?E܋U܋E???E??@??@?‹E??P?E?@L??E?
?E?;E??????????U??S??$?E?$??????E??E???
=????v ?E??$??????E????E??D$?T$?$??????U?B8?E?U??P?E???E?@8?U???
???E?
?E?;E?|??E???E??U?R8?M???? ?$?
??E?@???? ??tH?E?@8?U???
Ћ?@??????t*?E?@8?U???
Ћ???U?E??L$?T$?$? ?E?@8?U???
Ћ?D$?E?$???E?
?E?;E??Z??????]???U??S??$?E?$?????E??E???
=???v ?E??$??????E????E??D$?T$?$?????U?B
?E?E??(?E??E?E?U?E???E??@E?D$?D$?E?D$?E?$??;
?E?
?EȉD$?D$
?D$?E?D$?E?$?WM
?EȉE?E?E?U?E??E??@H?EȉD$?D$?D$?E?D$?E?$?M
?EȉE??E?$?>
?E܋U܋E???E??@E?EȉD$?D$?D$?E?D$?E?$??L
???U???(?E?@?E?E?D$?E?$?????E?D$?E?$?????E?$?]!
?E?$?/
?E?$?:?E??@V?E??@@???U??E?U?P?E?@?E?@?Ef?@?E?U?P,?E?@`?E?@0?E?@X?E?@p?E?@h?E?@
?E?Ph?E?Pl?E?@ ?E?@?E?@\?E?@d?]?U???(?E?@?E?E??@@??????t ?E?$??1?2?E?P4?E?P?D$?D$
?E?$?k
?E?$??1?E?@?@$???E?@?@?T$?D$?E?$?n????E?$??????E??U?J??U?R?D$?D$`?L$?$?А??U???8?E?@?E?E?@?@???E?$??6?D$?D$x?D$?E?$???E??E??E?E?@?E?E?E?U?E??E??@H?E?@?P?E?P?E?D$?E?$?????E?Pp?E?Pp?E?Ph?E?Ph?E?PX?E?PX?E?Ph?E?Pl?E􋀤???U?????E?D$?E?$??????E???U???(?E???E?E?@?D$?E?$???E?$?????D$x?E?D$?E?$????????U???(?E?P4?E?P?E?@?E?E?@?@?E?P?E??E?f?@"?}
u?E?E?@?E?D$?D$
?E?$?i
?E?}t!?E?@???D$?E?D$?E?$?N
??E?@?P?E?P?E?@??@
?E?P?E?P?E?@)‰????D$?D$?E?$??Q
?E??U???(?}t?E?@`?????U?B`?E?@???D$?E?$??????E?E???U???8?D$`?D$?D$?E?$?E?ЉE?}?u ????E???E??E??x?E?E??@?E??@R?E??@R???‹E??P?E?D$?E??$?????U??E?PX?E???E??@`??
?E??P`?E?U??E?U?P?E?ǀ??E?ǀ??E?U?????E?U?PH?E??@V?E??@ ?E?P ?E?P$?E??@?E??@0?E?ǀ??E??@S?E??@T?E??@U?E??@W?E??@|?E?P|?E?Px?E?Px?E?P`?E?ǀ??E苐??E艐??E苐??E艐??E苐??E艐??E?ǀ??E苐??E艐??E苐??E艐??E??@\?E??@h?E?Ph?E?Pd?E??@t?E?Pt?E?Pp?E?Pp?E?Pl?E?ǀ??E??@`?E??@
?E??@?E??@?E??8?E?E???@?E??@?$?????‹E?PO?$????‹E?PP?$????‹E?PQ?$???‹E?PL?$d???‹E?PN?$2?k??‹E?PM?E???E?U??D???E?
?}?~??D$?D$?k@?E??$?L
??t?E??$?????E??E???U????E?@????E?E?$???????U???(?E?@????E?}?t"?E?@????U?T$?U?T$?$?E??А??U???(?E?@???E?E??@??????u!?E??@??x ?E?????E??@??@tG?E??D$
?D$itG?E?$?X????D$
?E?D$?E?$?>????D$
?D$tG?E?$?#????D$
?E??D$?E?$? ????D$?D$?tG?E?$????????U????E?@??????!w????tG???E???3?E???+?E???#?E??(??E??P??E?E??E???????U??E??E??E?U??E?@??lj‹E?P?]?U??E?@ ????@??t?E?@ ?]?U????}u??I?E?@??????u*?E?@??????t?E?D$?E?$??? ?E?@??????U???(?E?@?E?E??@S<w:?E?D$?E?$??
?E?@??????tB?E?@??????‹E?P?+?E??@T<
t ?E?@??lj‹E??@R?? Љ‹E?P???U??S???E?@?E??E?@??????u?E?@??lj‹E?P?$?E??Xh?E?$?3????U?\$?D$?$?~????E?@??????t?E?@??????‹E?P??]???U????E?@?E??E?@??lj‹E?P?E?@??????‹E?P?E??E??PX?E??P|?E??E??U?P|???U???(?E?@?E?E???D$?E?D$?E?$?????E??U??E
ЉE?E?@?P??E?P?E??@R???‹E?P?E?‹E?P?E?PX?E??E?U?PX?E???U????D$?E?D$?E?D$?E?$?[?????U??S??$?E?@?P
?E?P?E?@??????"?2
??uG???E?@??ǃ? ?‹E?P?
?E?E?E?P?E??9?t?E??@??lj‹E?P??E??@??ǃ? ?‹E?P?E?@?@????@?????E?@??@?????????E?@??D$?E?$?)?????E?E??E??@f??uJ?E??@??t)?E??@?@??????t?E??@?D$?E?$??????E??@??ǃ? ?‹E??P?*?E?Xd?E?$?????U?\$?D$?$????????
???]???U???(?E??I?E?U??D????t5?E?U??D???@??????t?E?U??D???D$?E?$?D????E?
?}?~?????U???(?E??E?@x?E??/?E?
?E??@??????t?E?D$?E?$??????E??E?}?uˋE???U???(?E??E??E???E??@??????u?E?@ ??t?E??,?E???E?P,?E???E?U?P,?E?@ ?E??[?E??@??????uA?E?@?@????@??t-?E?@??@??????t?E?@??D$?E?$?-????E?@?E?}?u??E?
?E???E?}??A????E???U??E?@h?E?Ph?E?Pd?E?@p?E?Pp?E?Pt?E?Pt?E?Pl?]?U????E?$?????E?@1?E????@??????t?E????D$?E?$?{????E?@0????@??t)?E?@(?@??????t?E?@(?D$?E?$?A????E?$?????E?$????????U??S???E?@??????u&?E?Xh?E?$??????U?\$?D$?$?>????'?E?@??????u?E?@??????‹E?P??]???U??S??$?E?P?E?@????????
ЉE?E?@???????E??E?@?E???E??@??????u ?E?$??????w?E??@ ????@??t)?E?@?@??????t?E?@?D$?E?$?????}?u7?E??@????@??t?E????D$?E?$??????t?E?
?E??E?;E??[????E?@S<u'?}?t!?E?Hl?E?P?E?L$?T$?$?????? ?E?Hh?E?P?E?L$?T$?$????????]???U???(?E?$?
?E??E??E???E?H?E????‰???
????
?E????????@??t&?E?H?E????‰???
???
ȋU????D????E?}?t*?E??@??????t?E?
?E?D$?E?$??????E?
?E?;E??c????E???U???8?E??E??E?@???
????ЉE?E?D$?E?$??????E??E??
?}t?E?H?E?+E?‰?
?
?????
???E?H?U??
?
???
ȉE??E??@??????u?E??$??????E??@ ????@??t?E??@???D$?E?$?u?????t4?E?
?E??@????@??t[?E???@??????tH?E?
???E??@????@??t.?E???@??????t?E?
?E???D$?E?$?c????E?
?E?;E???????E?@S??u!?E?Hh?E?P?E?L$?T$?$?|????`?}?t!?E?Hp?E?P?E?L$?T$?$?U????9?}?t!?E?Ht?E?P?E?L$?T$?$?.?????E?D$?E?$?????E???U??S??$?E?P?E?@????????
ЉE??E?D$?E?$?????E?@?E???E??@??????u ?E?$??????r?E??@ ????@??t)?E?@?@??????t?E?@?D$?E?$?#????E??@????@??t'?E??@??????t?E??D$?E?$??????E??E?;E??`????E?D$?E?$??????]???U???(?E?@??t9?E?@?@??????u%?E????E?@?T$?D$?$?????E?E?@??t)?E?@?@??????t?E?@?D$?E?$??????}????E??@?E???9E?u?E??E????E??E???E???E??E??U??E?E??E???E?E???9E?u?????U??E?9Eu ?E??E??]?U????E????E?D$?$??????E????E?D$?$?????E????E?D$?$?????E????E?D$?$???????U???(?E?@?E??E?@????@???
?}?
?E?@?????????E?????D$?D$?E?$????????E??@V?????????E??@S<vU?E??@S<wJ?E?@??lj‹E??@R?? Љ‹E?P?E??P\?E9?u/?E??@\?D$?E?$??????U??B\??E?D$?E??$?????E???X?E???E??E?E?9Eu?E??E??E??P`?E??E??U?P`?E?@??@?‹E?P?
???U???(?E?P?E?@O???T$?$???E??E?P?E?@)‹E?)ЉE?}?y?E??E?D$?E?$?/??????U???(?E?@?E????E??@??????t!?E???E??E??D$?E?$??????E??@??????‹E??P?E??@<u'?E??E?E?Hh?E?P(?E?L$?T$?$?????A?E??@< u$?E??P?E???9?t?E??@??lj‹E??P??E??@?? ?‹E??P?E??E?E??E??}??.???????U???8?E??E?@R?????E???E??@??????t!?E??E??E?D$?E?$??????E??@?????E?}?u'?E??@??????E?E??
?‹E? Љ‹E?P?H?E??@????‹E?P?T? Љ‹E?P?E??@??????u?E?
?E???u?E?U??E?E?E??E?E?;E?/????E??E?
‹E??E??U?????E??$??????E??E??@?????????E??@??????u)?E??@?? ?‹E??P?E??@??????‹E??P?T?E??@<tH?E??@??????u?E??@??????‹E??P?E??@?? ?‹E??P?
??E???E????E??E??E??E??}??5????E??U????E??h?$?????E??E?Pl?E???E?@l?E??$??????E??E?Pt?E???E?@t?E??$??????E??E?Pp?E???E?@p?E??$???????U???(?E?E??R?E??@??????u8?E??@??????‹E?P?E??@???? ??t?E?D$?E?$?????E??E?E?;Eu?????U????E?$?????E?D$?E?$?X????E?@S?E?@W??u?E?$???????U????E?P?E?P?E?‹E?PT?Eǀ??E????E????E????E????Eǀ??E????E????E????E????E?$???E?@Q???D$d?$????D$?E?$?~??????U???(?E?P?E?@L???T$?$???E?E?P?E?@N???T$?$???E??E???9E}?E?@9E??
????U??S??4?E??E?@?E?E?????t2?E????E????T$?D$?E?$??????Eǀ??E????E?@`?T$?D$?E?$?????E?@x?D$?D$?E?$?????E?$??E?@S?E????E????U?JX?U?T$?\$?D$?L$?E?D$?E?$??????E??E????E????U?T$?L$?D$?E??D$?E?D$?E?$?????E????E????E???E????E?PX?E????E??E????U?J`?U?T$?U?T$?D$?L$?E?D$?E?$?D????E??E????U?T$?U?T$?D$?E??D$?E?D$?E?$? ????E????E????E???E????E?P`?E????E?Px?E?D$?E?D$?D$?T$?E?D$?E?$?????U?E?
‹E?P?E?D$?E?$?S?????t&?D$?E?D$?E?$?????E?@??E?D$?E?$??????]???U????E?$?????E?@S?E??X?D$?E?$?3????E?PX?E????E????E????E????E????Eǀ??E??`?D$?E?$??????E?P`?E????E????E????E????E????E??x?D$?E?$?????E?@T
?E?P?E?P?E?@?E?D$?E?$???????U????E?P?E?@L???T$?$????D$?E?$?_??????U????D$
?D$?E?$??D$
?D$?E?$??E?$?H?E?D$?E?$?w????E?$?h??????U???(?E?@?E?E??@T<u?E??@T?E??@T??9Et4?}u?D$?E?D$?E?$?t?????E?D$?E?$?5??????U????D$?E?D$?E?$?=????E?D$?E?$???????U???(?E?@T<uu?E?P?E?@)‰U?E?@?U?)‰U??E?@M???U??T$?$?e??E?E?@?U?)‰U?E?;E?~$?E?D$?E?$?Y????E?$?J??????E?P?E?P?
??U???(?E?@?E?E??@S?E??X?D$?E?$?f????U?B\???U???(? ?E??E?E?D$?E?$?????E?E?E;Euؐ???U???(?E?@?E?E??@V?D$?E?$?:????D$
?E?$?3????E?$??????E􋀤?‹E?@X?T$?D$?E?$?a????E?@|?D$?D$?E?$?D??????U???8?E??E?@?E??E??@h?E?E??@h?E??@S?E?@??????t?E?D$?E??$?????E??@0????@??t)?E??@(?@??????t?E??@(?D$?E??$?e????E??$??????E??$?????
E?E??$?]???
E?E??$?????
E?E??U?Pd?E??$????
E?E??$?????
E?E??@l?D$?D$?E??$?&???
E?E??@t?D$?D$?E??$????
E?E??@l?E?E??@t?E??D$?E??$?????E??$?e???
E?E??$?)???
E?E??$?H???
E?E??@p?D$?E??$?????
E?E??@t?D$?E??$?????
E?E??@l?U?T$?D$?E??$?h???
E?E??@t?U?T$?D$?E??$?I???
E?E??$???E??@R???‹E??PR?E???U????E?@\??t3?}t???????E?@\?T$?D$?E?$?????U?B\??E?‹E?PS?E?U?P\???U???8?E?@?E??E??@U
?E??@S??????
???vG???E??$?????E??@S?E?
?|
?}u ?E??@d??u?E??@S
?E??Y
?E??$??????E?
?B
?E?$?????E?E??D$?E?$?j??????
?E?$??????
?E??P`?E?D$?T$?D$?E??D$?E?$?????E????E??Px?E?D$?T$?D$?E??D$?E?$?????E???E?D$?D$?D$?E??D$?E?$?M????E??j?E??D$?E?$?????E??@S?E??H?E??@x??t&?E??@W??u?E??@U?E?$??????E?
??E??@S?E??????E??@U?E???U???(?E?@?E???E?D$?E?$?????E??@S??9Euߐ???U???(?E?@Q???D$d?$???E?E?@P???U?T$?$?x??E??E??}?u?E?????E?
?E??D$?E?$?????E?E?@T<
tC?E?)E?}?~?E?@S<uɋE?@S<u ?E?$?/?????E?D$?E?$?????
???U???(?E?@?E?E??@V??t?D$??E?$?r????Q?E??@T????t??=??t??
t?2?E?D$?E?$???????E?D$?E?$?????E?$????????U????E?@S<w?E?$?@????D$
?D$?E?$?P????D$
?D$?E?$?5????D$
?D$?E?$?????E?$???????U???(?E?@?E?E?‹E?PW?E??@T????t6??R??t??
uI?E?D$?E?$??????5?E?D$?E?$?(????!?E??@T?E?D$?E?$? ????E??@T??E??@W???U??S??$?E?@?E???wG?D$?E?$????E?E?D$?E?$?#????E?P
?E?P?E?
?}?~?????U???(?}?U?E??
???pG??????t?E?@4?U?T$?D$RxG?$???\?E?@4?U?T$?D$WxG?$?|??=?E-
???wG?E?}
?E?@4?U?T$?D$_xG?$?B???E???U????E-!
??w7?D$?E?$?????E?@?E?$?9?????t ?
?}?>?s?E?P8??H?? ??t?E?P8?B?H
?J?????E?@8?$?I????U??D$/?E?$???????t ?
??/? ?E?P8??H?? ??t?E?P8?B?H
?J?????E?@8?$?????U??D$=?E?$?m?????t ?
??~??E?P8??H?? ??t?E?P8?B?H
?J?????E?@8?$?}????U??D$:?E?$??????t ?
?K?:?A?E??U?T$?D$?E?$?????$
??E??D$?E?$?c????E?P8??H?? ??t?E?P8?B?H
?J?????E?@8?$?ކ???U??D$.?E?$?h?????t+?D$.?E?$?Q?????t ?
?
?
?
?E???
???pG??????u ?.?h
?E?D$?E?$??????Q
?E?D$?E?$??????:
?
?0
?E???
???pG????
?????E??D$?E?$?Z????E?P8??H?? ??t?E?P8?B?H
?J?????E?@8?$?Յ???U??E???
???pG??????u??E?@?E?D$?E?$?p?????E??E?????Ct?
? ?E?D$?E?$?L????E?}?u????U???8?E?D$?E?D$?E?$??????E???u?E?@?U???D$?T$?E?$?????E?P?E?@9??
?E??????E??????E?@?D$?E?$?.?????u?E?@?D$?E?$??????tk?E???t ?E?$???????????E??D$?E?D$?E?$?????E??D$?E?D$?E?$?w????E??E?D$?E?$??????E?$?????E?E?@?U?T$?U?T$?U?T$?D$?E?$?????E?@?U??T$?U?T$?U?T$?D$?E?$??????E?@?????E?P?E?P?E?U?P?E????U????E?D$?E?$?K????E?D$?E?$?Z????D$
?E?$?????E?@4????
?D$?E?D$?E?$???????U??S???E?D$?E?$??????E???uQ?E?P?E?@9?u?E?@?Q?E?X?E?$?N$9?|$?E?@?D$?E?D$?E?$?????E?@??E?D$?E?$?????E?@?]???U????E??? u?E?P?E?@9?t?E?D$?E?$?=??????U????E?P?E?@9?t?E?D$?E?$??????E?D$?E?$????????U???(?E?P?E?@9????E??????? ~G???E?$??????E???E?$?????E??w?E?$??????E??g?E?P?@?D$?T$?E?$?a????E??F?E?@?\$?E?$?????E??,?E?@?D$?E?$??????E???E?@?E????'?}???E??E?U?P?
????U????E?D$?E?$???????t?
??E?D$?E?$????????U???8?E?D$?E?$?????E?E?@?U?T$?D$?E?D$?E?D$?E?D$?E?$?E??????U???8?E??? ???p
??@~G???E?D$?E?$?k????E?@???D$?E?D$?E?$?3????B
?E?D$?E?$?????E?E?@?D$?D$?D$?E?D$?D$ ?E?$???????E?@?ЋE?@ ???M?L$?T$?D$?D$?E?$???????E?@?ЋE?@ ???M?L$?T$?D$?D$?E?$?????o?E?@?ЋE?@ ???M?L$?T$?D$?D$?E?$?c????7?E?@?ЋE?@ ???M?L$?T$?D$?D$?E?$?+?????E?D$?E?$??????U???8?E?D$?E?$??????E?@?E?E?D$?E?$??????E?@4?ЋE?P?E??D$?E?$??????E?@?U?T$?U?T$?D$?D$?E?$?????E?D$?E?$?f??????U????E?@?D$?E?$?g????E??E????‹E?????U???8?E???un?E??P4?E?@??
Ћ?E?E????3uK?E?$??????}???ЋE??????T$?D$?D$?D$?D$B?E?$?~????X?E?D$?E?$?????E?D$?E?$?????E?@?U?T$?D$?D$?D$??D$C?E?$?$?????U???(?E?D$?E?$?"????E???t??w:??t,??r0????w(??E?D$?E?$?????E?@?E??'?E???????D$?E?D$?E?$?????E???E?P?E?D$?T$?E?$?????E?@?D$?E?$?????E?@???????U???(?E?D$?E?$?e????E???t??w ??
t??t ??E?@?E??'?E???????D$
?E?D$?E?$? ????E???E?P?E?D$?T$?E?$??????E?@?D$?E?$??????E?@???????U???8?E???????\~G???E???E??}?E?D$?E?$?P????i?E?D$?E?$?????E?D$?E?$?????E?@?D$?D$?D$?D$?D$3?E?$??????U?B?E???E?@?E?E?P?E?P?E?U?P?E?@?D$?E?$?????E?@?D$?E?$????????U??E???u??E?P?E?@9?u/?E?@=?"?E??P0?E?@??
??@?E?D$?E?$?A????E?E?E??D$>?D$?E?$??????E???E?D$?E?D$?E?$??????t;?E?D$?E?$??????E?E?E??D$@?D$?E?$?????E??H?E?D$?E?$?????E?E?D$?E?$?????E??D$:?D$?E?$?>????E?E?D$?E?D$?E?$?????E??D$
?D$?E??D$?E?D$?E?D$?E?$?????U?B?E????U???H?E??E???t?E?D$?E?$?????E?D$?E?$??????E?E?D$?E?D$?E?$???????t?E?=?E?E??D?E?D$?E?$??????t?E?<?E?@?E???E?9?E?D$?E?$?p????E?E?D$?E?D$?E?$?????} ???ЋE?T$?D$?E?D$?E?D$?E??D$?E?$?????U?B?E????U????E?D$?E?$??????}t>?}ww?}
v?}tV?i?E?????D$`?T?E?D$?T$?E?$??????u>?E?$?~????U?T$?U?T$?D$?E?$?w?????E?D$?E?$?????
????U???(?E?D$?E?$?W????}???E???~G????E?D$?E?$???????E?D$?E?$??????E?D$?E?$??????D$?E?$?U?????up?E?D$?E?$??????\?D$?E?$?*?????uH?E?D$?E?$?????4?E??D$?E?D$?E?$??????u?E?D$?E?$?t????????
????U???8?E?$?Y????E?E?????5uf?E???%??E??E?D$?E?$?F????E?%????‹E?@??%? ‹E??E?%????‹E???
??%? ‹E??Y?E?@?D$?D$?D$?D$?D$5?E?$?r????E?D$?E?$?????E?D$?E?$????U???(?E?D$?E?$?m????}w(?E?U?T$?U?T$?D$?E?$???????=?}?:?E???~G????E?@?U???D$?T$?E?$??????E?U? ??J?H?J?H?J?H?J?H?R?P???E?@?U???D$?T$?E?$?????E?U? ??J?H?J?H?J?H?J?H?R?P??E?D$?E?$?????E?D$?E?D$?E?D$?E?$??????\?E?D$?E?D$?E?D$?E?D$?E?$?D????0?D$?E?D$?D$?E?D$?E?D$?E?$????????
?E?D$?D$?E?D$?E?D$?E?D$?E?$?C?????
?E?D$?E?D$?E?D$?E?D$?E?$?i????
?E?$?j?????tO?E?D$?E?$?,????D$?E?D$?D$
?E?D$?E?D$?D$!?E?$?
????9
?D$?E?D$?D$ ?E?D$?E?D$?E?$???????

?E?D$?E?D$?E?D$?E?D$?E?$???????E?$??????t=?D$?E?D$?D$?E?D$?E?D$?D$ ?E?$?Q?????E?D$?E?D$?E?D$?E?D$?E?$?????a?E?D$?E?D$?E?D$?E?$?!??????E?D$?E?$??????m?E?D$?E?D$?E?D$?E?$?????????
???U????E?$?l????E??U?T$?D$?E?$???????U???8?E??@4?U??
ЉE?}t?E?$?p??
???E??E?????H????E?U??????
???)‰U?}??????E?E???‹E??? ‹E??? ‹E??? Ѓ??‹E??E????‹E????R????U???8?}?u?E?}?2?D$?E?D$?E?D$?E?D$?D$N?E?$?????k?E?????H????E?U??????
???)‰U?D$
?E?D$?E?D$?E?D$?D$N?E?$??E?@2?P??E?P2?E?@2???D$?E?$?b????E??}?t?E?P?E??P?E?@2??9E|?????U????E??@????E?$?V????E??U?R?P,?E?D$?D$
?D$
?E?$?+????E?D$?E?$?1????E?$????????U???(?E?
?E?D$?E?$???+?E?@0?U?T$?$?ݽ???E?D$?E?$??E?
?D$,?E?$?6?????u??E???U???X?E?@0?E??E?@?E?E?@=$
??=$
????(t??{????E?$?y????E?@??)u ?E?????E??
?D$?E??D$?E?$?0????E?@4?P`??
?P`??D$=?E?$??????E؉D$?E?$??????E?E?;Et"?E؉D$?E?D$?E?D$?E?$?????6?E?@0?U؉T$?$蠪???E?H?E?@0?U؉T$?L$?$荴???F?E?@0?@4????
?D$?D$?E؉$?I????E?H?E?@0?U؉T$?L$?$?E?????U???8?E??D$?E?$?"????E???
u?E??E?@0?U??T$?$?I????E???U??S??D?E?@0?E?E?@?E??E?$?????E?E?D$?E?$??????E?}?u-?E?$芚???D$?E??D$?E?D$?E?$???????E??@???D$?E?$?E????E?E?$????9E?}2?D$?D$?D$?E?D$?D$6?E?$?w????E?X?E?$??????\$?D$?E?$?k?????]???U??S??$?E?@?E?E?$?)????E?@0?$跙???ËE?@4?D$?D$?vG?$?d?\$?U?T$?D$?E?$???????]???U???(?E?D$?E?$?????E?}???????tX?E?d?G?E?H?E?@??x?E????E?@?U?R4?L$?D$?E??D$?$??P?E??E??D$?E?$???????U????D$
?E?$???????E?$??E?@??;t?E?@=
t݋E?D$?E?$?,????D$?E?$?????D$?E?D$?E?D$?E?$???????U???8?E?@0?E?E?$躓???E?$?????E??E?$?%????E??D$
?E܉D$?E?$?????D$
?E?$?#????E?$?G????E?$??????U??T$?D$?E?$?f????E?D$?D$
?D$
?E?$??????E?$?????E?D$?E?$?X??????U???X?E?@0?E??E??$?U????E??D$
?E؉D$?E??$??????D$?EȉD$?E??$??????E?$角???E?$?q????E?D$?D$
?D$
?E?$?R????E?$??????E?E??$??????EՄ????E??$?????E?E?D$?E??$臙???E????D$?E??$?????D$?D$?D$?D$?D$6?E??$??????E??$聖???E?E?D$?E??$?"????E?D$?E?D$?E??$?ؘ???E??$???????U???8?E??D$?E?$?O????E?@0?U??T$?$?\??????U???(?E??@4?U??
ЉE??E?P
?E)ЉE?}t?]?}???
??????t?E?@?D$?|G?$?1x???E??%??‹E??? ‹E?????U???H?E?@0?E??D$
?E?$?????E??x?T?D$?U?T$?D$?E?$??????E??E??@4?P??E?P4?D$?E܉D$?E?$?????E?D$?E?$?(????E?D$?E?$?????E?$?A????E?$??????E?$趕???D$?D$?E??D$?E?$?????}tC?D$?E?D$?D$?E?D$?D$L?E?$??????E?D$?E?$?-????E????T?D$?U?T$?D$?E?$??????E?E???
?D$
?D$?E?D$?E?$?????E?D$?E?$????????U???8?E?@0?E?E??@4???E??D$?D$??G?E?$?yv???D$?E?$?????D$?D$??G?E?$?Ov???D$?E?$?W????D$
?E?D$?E?$?S????D$=?E?$?????E?$?.????D$,?E?$?v????E?$?????D$,?E?$??????t ?E?$???????E?$?????D$??G?E??$?A??u?
?O?D$??G?E??$?#??u??1?E?@4?U??T$?D$??G?$?wD?D$?E?$荈?????U???(?}?tL?E?$?????E?D$?E?$?_????D$?D$?D$?D$?D$7?E?$觑?????U???X?E?@0?E??E??????E??E?$??????E?E?$?????E??E??D$?E?D$?E?$?????E܃}?u+?}??t?D$ЃG?E?$跇???E??@2?ЋE?
ЉE?E?
?D$,?E?$?`??????x????D$=?E?$?E?????t?E??D$?E?$?????E???E??E??E܉D$?E?$?????E؋E?;E?uV?E??@ <
uK?E؉D$?E??D$?E?$?ч????t.?E??@ ?E???
?D$?E?$?????E??@2?P
?E?P2?2?E??D$?E?D$?E??D$?E?$?????E??D$?E?$??????E?D$?E?$? ??????U???(?E??E?D$?E?$???????E?D$?E?$??????E?@??.t?E?@??:u?E?
?E?D$?E?$?????E???U???X?E?$舅???E؉D$?E?$?v????E?E?D$?E?D$?E??D$?E?$?????E؉D$?E?$??????E?@0?U??T$?U؉T$?$?????E?@0?U?T$?$?Z??????U???H?E?@0?E?EЃ??D$?E?$?????E?@??=t?E?@??,u#?E??D$
?EЉD$?E?$?????E?E؃?t?D$J?G?E?$?k???E??@4?U???
ЉE??E??%???
?‹E??????U???H?E?@0?E?E?$?+????E??D$
?E?$???????u?E?@??;u?E????EЉD$?E?$??????E?EЃ?t?EЃ?um?D$?????EЉD$?E?$?і???EЃ?uB?}?
u?E?E??E?@???E?M??E?P??
?Q?E??P?E??P?E?@?P??E?P?E???U???(?}t?E?@<&u7?E?@??G?E?@?E?@?????E?@ ?????E?@??G??E?@?E?E?@L??tL?E?@L?@??x?E?@L?@?ЋE?P?E?@L????E?@L?P?E?P?E?@L?@?U?B??E?@??G?E?@?E?P(?E?P?E?P,?E?P ?E?@??u???G????G?E?P?E?P?E?@?M??,?T$?D$?$??4???U????E?P@?E
??u(?E??E?@???E??E
?E?@?P??E?P??E?@h?E?E??E??E??@
?E?@4?U???
Ћ?E?E???E?E???%??E?}?Ltb?}?L???}?E???}?Ds\?}?t?}?8ta??E???%??E؋E?;E?U?E?
?9E?
???E???E??
9E?????E??y?E;E??????E??h?E???-????E??E??P
?E?
ЉE܋E?;E?E?;E?~?E܉E??E??-?E?rG???????t?E;E?u?
???E?}?t?E?D$?E??$?p????E??E?
?E?;E??????E???U????E?@0?U??
ЉE??E??@??????u+?E???@??x ?E??????E???@?U??\?G??E?|?G???U???(?E??E?E?P
?E?D$?T$?E?$???U??E???t ? wG?>
?E?D$?E?D$?E?$?????E?E?U??}???
?E?@4?U???
Ћ?E??E????E?}? tq?}? ???}????}????}?t?}?tk??E???%??E?E?????9E????E?D$?E?D$?E?D$?E?$??????}?E??????D$?E?$?m????U??e?G?Y?E????‹E?D$?T$?E?$?W????9?E?@4?U??
??
Ћ???‹E?D$?T$?E?$?'???? ??
????U???(?E?D$?E?D$?E?D$?E?$?X????E?}?t ?E??????E?D$?E?D$?E?$???????U???(?D$,?E?$?=????E?E?D$?E?$?e????E??E?P?E?
‹E?P???U???X
Dž??????????????E????????E?+E?D$?E?D$???????$??????E???
?????%???%?/??s?&??I???I??*???D?G???E?P?U??E?}?u?E? ?G?E?$????D$?E?D$???????$?t?????
?E?P?U????????D$
???????D$???????$?>????
???????E؋E?P?U???M؉
?Q?E??@???????D$???????$?t????p
???????EЋE?P?U?P??MЉ
?Q?E??@???????D$???????$?1????-
???????E܋E?P?U??E???E??@???????D$???????$????????E??E?D$???????$?)????E?E?P?U??E?E?D$?D$?G?E?$?[????E???????E?
Љ??????E?P?U??D$???????$?????EԋEԋUԹ)э?????
ʉD$?T$???????$??????C?D$
?D$?G???????$?????#?E???
????D$?D$?G?E?$?l????E????E?D$%?E?$????E??}??H????E?$???D$?E?D$???????$?;??????????$??????E?@????@??x?E?@???????E?@????@??U???(?E?E??E??D$?E?D$?E?$?????E?E???U???(?E?<?E?<=u\?E9E?r!?E?P
?E?D$?T$?E?$???
?E?P??E??
?T$?D$?E?$???E??

E?E??]
?E?<@uu?E9E?r!?E?P
?E?D$?T$?E?$?>??*
?D$?D$CwG?E?$???E?m??E+E?P
?E
‹E?D$?T$?E?$??????D$ ?E?$?J??E??D$ ?D$??G?E?$???E ?m??E;E?s'?}?u!?E?D$?E?D$?E?$???E
E?[?}?t ?E?+E?E?E9E?s?E?E?E?D$?E?D$?E?$?O??E
E?D$?D$CwG?E?$?.??E?D$?D$??G?E?$?????U??S??$?E??L?E???T?U?Z?D$?E?$??U??(?D??E?@?U??(?D??D$?E?$??????E?
?}?~????]???U??S??$?E?D$?E?$?.0?E?E??@??????u$?E?P?E?
????? ‹E?P???E?]???U???(?E?@??????t??t??E??@?E??)?E??@?E???E?@?U?R?҃???D???E?}?t!?E?@?U??(?D??D$?E?$?t/? ?E?@??8??U???(?E?@?%?E?@????????E?E??@ ??u?E??{?E?@????U?R9?r??_?E?@????@??uN?E?@???
????ЉE??'?E?H?U???
?
???
ȉE??E??@ ??u?E???E??P??U???u̸??U???X?E?@????????????t?D$ŊG?E?$?ʰ???E?@<uy?E??]??D$?E??D$?E??$?22??t#?E??E?E??U??M?
?Q?E??@?E??E?0?
?E??E?????z?????t?D$؊G?E?$?F????E?@???????I?E?D$?E?$?&????E?E??@??????u?E?@????@???r
?E?$?:????E??}?u>?E?D$?E?D$?E?$?T????E?D$?E?D$?E?D$?E?$???
?E?D$?E?$??????E??E?;E?????E??@?‰?
?
???
E??E??@?‰?
?
????‹E?
?9E?uϋE?+E???i??????‹E??P?E??U? ??J?H?J?H?J?H?J?H?R?P?E?@??t'?E??P?E?+E???i?????
‹E??P?E??@?E??@?S?E?@??t,?E?@?‰?
?
????‹E?
?+E???i??????‹E??P?E?+E???i??????‹E?P?E??E?E?E܋E?E؋M܋E؋P??A?Q?E??P?E܈P ?E?@????@??t6?E?@???? ??t%?E??@??????t?E?D$?E?$??????E?EԋE?EЋMԋEЋP??
?Q?E??P?EԈP?
???U???8?E?E??E?E?E??U?D$?T$?E?$?P????E?E??@ <u?E?P?@3E?3U? Ѕ?u?E??&?E?@?E??}?t?U???
?
???
E?뻐?؉G??U???8?E?E??E?E?E??U?D$?T$?E?$?Z????E?E??@????????????U????E?@??????t)?E?E??E?E??M??E??P??
?Q?E??P?E??P?E?@???????U??WVS??\?E?EЋE?EԋEЋUԉD$?T$?E?$???????B
?E?@?E??EЋUԃ????????Ӊ???????E??E??EȋU?
???????‰???
????]?
؉EȋEЋUԃ?????????????1?1?)?ڃ??ƿ????1?1?)?ڋ}?
?????E?E???????E?‹E?P?E?p?EЋUԃ????????Ӊ???????E??E??E??U?
???????‰???
???
ƋEЋUԃ?????????????1?1?)?ڃ??E??E??E??U?1?1?)?ڋM?T??D??
?Q?E??(?EЋUԉD$?T$?E?$?`????U?T$?$??????\[^_]?U??VS???E?X?E?P?E?@???
???????
!‰?
?
???
؉E?E??@ ?E??H?T????v/?E??}??Eހ?f?E??m??}??mދMЋ]ԋE??X?
???]???U????E?@<u?E??E?D$?E?D$?$?'????'?E?@<u?E?P??M?
?Q?
????U???(?E?D$?E?$???????t?E?E?E?D$?E?D$?E?$?n?????U??S??4?E?E??E?E?E?E؋E ?E܃}?y???
?D$?E?D$?E?$?|????????E?@<u?E??]???E??D$?E?$???????????t?D$??G?E?D$?E?$?y?????E?????v"?}?y ?
??E??????@????)??;U?E?}?
?b?E??@???;U?E?}!?E?P??
;E???E?|?????E?P??
?M?9E??|??Ë]???U??S???E?E?E???E?E?? ?E?E??@<?}
?E??@<?n
?E?P??E؉U܋E?P??EЉUԋEЋU? Ѕ?u?D$??G?E?$?d{???EЋUԉD$?T$?E??D$?E?D$?E؋U܉D$?T$?E?$??????t ?
???;U?E?}M?E??U??M؋]?)?ډE??U?EЋUԃ?
Ѕ?tk?EЋUԉD$?T$?E??U?$?T$?`??E??U??C?E؋U܋M??]?)?ډE??U?EЋU??؃??ډD$?T$?E??U?$?T$???E??U?E?E̋E??U?M̉
?Q?E???EȋMȋEЋUԉ
?Q?E??@?E?? ?EċMċE؋U܉
?Q?
?E??@<u?E???]????E??D$?E?$?'???????????t?D$??G?E?D$?E?$?
w???E??@<u?E???]????E??D$?E?$?????????????t?D$?G?E?D$?E?$?v???E??@<u?E???]????E??D$?E?$????????????t?D$?G?E?D$?E?$?]v???E?????z??????u?D$??G?E?$?y???????E?????v?E??E???????? ?E??E?????????t?
?J?E?E??E??E???E??@?E???E??E??E???E??@?E?? ?E??E??E???E??@??]???U??? ?E????]??E??]??E?? ??]??E??E??]????E?????v?E??E???????? ?E??E?????????t?E?? ?E?E??E???
????U???8?E??O
?}0uT?D$?E?D$?E?$?Ϝ???E??E??@???????????????D$!?G?E?D$?E?$?t???E??@??t@?E??@?@????
??u*?E?@????E??@?T$?D$?$???????E??}?u?E?@???E??@??????u/?E?D$?E?D$?E?D$?E??D$?E?$??D$?E??D$?E?$???????t ?E?U?M??]?1?1? Ѕ?u ?
?????E?@????????r??|?G??
???E?P??M?Y? 1?1? Ѕ???????E??E??????????E?????E??E?9??????p?E??E?9??????Y?E??E?9??????B?E??‹E??T$?$??????%?E??E?9?u ?
? ?}u ???
?E??@??t@?E??@?@???? ??u*?E?@????E??@?T$?D$?$?ɐ?????E?}??E
?E??@??t@?E??@?@???? ??u*?E?@????E??@?T$?D$?$?k??????E????E??E?9?u ?
?.
?}u ??
?E??@??t@?E??@?@???? ??u*?E?@????E??@?T$?D$?$???????E?}?um?E??@??t@?E??@?@???? ??u*?E?@????E??@?T$?D$?$萏?????E???E??E?9??????Z??
??}?u??I?E?@?D$?E?D$?E?D$?E?D$?E?$?ّ???E??}?
t?E?????t?
???]???U???(?E??E???؉‹E
Ћ?E?E??@??x?E??@???E??E????E?@?E??E?@?E?U?E?
‹E??D$?E?D$?$?Cf?E?
E?m
?}?????U???h?}
?b?E?@?E??E??E?? ?@??????t?E?? ?@??????uA?E???@??????t?E?U?????@??????t$?E?U?????‹E?T$?D$?E?$?Mz???E?
?E?;E?????????U???X?E?@?E?E????E??E?@????E?E???E?E????;??
??4?G???E?@??????????‹E?
ЉEȋE?@?P??E?P?E?@?EċMȋEċP??
?Q?E??P?EȈP?
?E????????‹E?
ЉE??E?@?P??E?P?E?@?E??M??E??P??
?Q?E??P?E??P?A
?E?@???@<
t?E?@???@??????t?
???E??E?@?P??E?P?E?????
9E????E?@?P?E?P???E?@???E܋E???%??E؋E܍P??E??????E?
?)‰????EԋE܃? ?EЋE܉E̋MЋE̋P??
?Q?E??P?EЈP?E܍P??E?P?EԉD$?E?$?????R?E?@?P??E?P?A?E????????‹E?
ЉE?E?@???‹E?
‹E?P?E?@?P??E?P???
????U??WVS?? ?E?@p?E܋E???????????????@?@0???????E?@?E??}???????t?E?$??_???E܋E????E?}???????t ?E??D$?E?$?*`???E܋E????E?U??B?E???E؋E؃?????T?w?E????????‹E?
Љ?(?????(?????$????E????????‹E?
Љ? ?????$????? ????P??
?Q?? ????P??$????P?}???????u?"???E??D$?E?$?t_???E܋E????E?U??B?E???E؋E؃?????T???E????????‹E?
Љ?8????E???-?????0?????4?????8?????,?????,?????0?????4????
?Q??,????@?}???????t ?E??D$?E?$??^???E܋E????E?U??B?E???E؋E؃?????T?????E????????‹E?
Љ?D????E???-????@?????D????????????@??$????@???E܋E????E?U??B?E???E؋E؃?????T?m????E????????‹E?
Љ?4????E??????‹?????
Љ?0????E????????‹E?
Љ?,?????4????@<????0????@<????4????P??? ?????$?????0????P????????????E???,?????????? ?????$?????????????????????
????ʋ?????
?Q??????@????4????@<u??4?????]??
?:??4????@<u'??4????P???????????߭????]??
????????0????@<u??0?????]??
?:??0????@<u'??0????P???????????߭????]??
????t(?E???,?????????E??M?????????????@?}???????t ?E??D$?E?$??;???E܋E????E?U??B?E???E؋E؃?????T?E????U?E??B?E?P?E?P?E????????‹E?
Љ?\????E??????‹?????
Љ?X????E????????‹E?
Љ?T?????\????@<????X????@<????\????P???H?????L?????X????P???@?????D????E???T??????E???T?????8???݅x????\$?E??\$?E?$??????8??????8????@?}???????t ?E??D$?E?$?9???E܋E????E?U??B?E???E؋E؃?????T??????E????????‹E?
Љ?l????E????????‹E?
Љ?h????E??????‹?????
Љ?d?????h????@<u??h????ݝp????
?=??h????@<u*??h????P???????????߭???ݝp????
????????d????@<u??d????ݝh????
?=??d????@<u*??d????P???????????߭???ݝh????
????th?E???l?????`???݅h?????T????z݅h?????T????u ݅p??????݅h????\$݅p????$??????`??????`????@?}???????t ?E??D$?E?$??7???E܋E????E?U??B?E???E؋E؃?????T?????E????????‹E?
Љ?|????E????????‹E?
Љ?x????E??????‹?????
Љ?t?????x????@<u??x????ݝ`????
?=??x????@<u*??x????P???????????߭???ݝ`????
????????t????@<u??t????ݝX????
?=??t????@<u*??t????P???????????߭???ݝX????
????t.?E???|?????p???݅`???ܵX?????p??????p????@?}???????t ?E??D$?E?$?:6???E܋E????E?U??B?E???E؋E؃?????T?????U?E??B?E?P?E?P?E????????‹E?
Љ??????E??????‹?????
Љ??????E????????‹E?
Љ????????????@<?????????@<?????????P????????????????????P??????????????E??????????????????????????D$?T$?????????????D$?T$?E?$? ??????????
?Q???????@?
???????@<u???????ݝP????
?=???????@<u*???????P???????????߭???ݝP????
?????????????@<u???????ݝH????
?=???????@<u*???????P???????????߭???ݝH????
????t6?E?????????????݅P???ܵH????$?{????????????????@?}???????t ?E??D$?E?$??3???E܋E????E?U??B?E???E؋E؃?????T?%????E????????‹E?
Љ??????E????????‹E?
Љ??????E??????‹?????
Љ????????????P????????????????????@<??????t???????P??????????????
?%?D$???????D$???????$?J?????????ta?E????????????????????????????Ӌ?????????????!lj? ?????!׉?$????? ?????$??????????
?Q???????@?}???????t ?E??D$?E?$?m2???E܋E????E?U??B?E???E؋E؃?????T?????E????????‹E?
Љ??????E????????‹E?
Љ??????E??????‹?????
Љ????????????P????????????????????@<??????t???????P??????????????
?%?D$???????D$???????$?ܱ????????tA?E????????????????????????????????????? ? ڋ??????
?Q???????@?}???????t ?E??D$?E?$?1???E܋E????E?U??B?E???E؋E؃?????T?i????E????????‹E?
Љ??????E????????‹E?
Љ??????E??????‹?????
Љ????????????P????????????????????@<??????t???????P??????????????
?%?D$???????D$???????$莰????????tA?E?????????????????????????????????????1?1ڋ??????
?Q???????@?}???????t ?E??D$?E?$??/???E܋E????E?U??B?E???E؋E؃?????T?????E????????‹E?
Љ??????E????????‹E?
Љ??????E??????????????????@<??????t???????P??????????????
?%?D$???????D$???????$?a?????????tT?E????????????????????؉??????????????????L$?\$?$?T$???????????
?Q???????@?}???????t ?E??D$?E?$?.???E܋E????E?U??B?E???E؋E؃?????T??????E????????‹E?
Љ?????E????????‹E?
Љ?????E????????????????@<??????t??????P??????????????
?%?D$???????D$??????$?!?????????tL?E??????????????????????????????L$?\$?$?T$???????????
?Q??????@?}???????t ?E??D$?E?$?Y-???E܋E????E?U??B?E???E؋E؃?????T?????E????????‹E?
Љ?4????E??????‹E?
Љ?0????E????????‹E?
Љ?,?????4????@<????0????@<ut??4????P??? ?????$?????0????P????????????E???,?????????? ?????$?????????????
?ڋ?????
?Q??????@????4????@<u??4????ݝ@????
?=??4????@<u*??4????P???????????߭???ݝ@????
????????0????@<u??0????ݝ8????
?=??0????@<u*??0????P???????????߭???ݝ8????
????t.?E???,????????݅@???܅8???????????????@?}???????t ?E??D$?E?$?5+???E܋E????E?U??B?E???E؋E؃?????T?????E????????‹E?
Љ?\????E??????‹E?
Љ?X????E????????‹E?
Љ?T?????\????@<????X????@<ut??\????P???H?????L?????X????P???@?????D????E???T???????????U????E?@?E??}~1?E???U??
ЉE?E?@9E?r?E?@??8??E???}ٹ??|?E?@?U??
??n?}ع??u?E?@??(?Z?ع??+E?E?E???@????E??E??@???????t?? ??t??t ??E???*?E??$???????E??@????@??t?E??????U??E?@?@?E?@?P?E?P?]?U????E?E?E?E?E?@?E??E??E???E??@?E?@?P?E?P???U????E?E?E?E?E?@?E??M??E?U?
?Q?E??@?E?@?P?E?P???U???(?}u?D$spG?E?$?????E?D$?E?D$?E?$????E?E?@?E??E?E?U?E???E??@??@?‹E??P?E?@?P?E?P?E?D$?E?$?????E?@?@???E?$?E#???E??@??x?E????E?@??U???8?E?D$?E?D$?E?D$?E?D$?E?$?????E?E?@?E??E?E?U?E???E??@??@?‹E??P?E?@?P?E?P?}t?E?D$?E?$??????E?@?@???E?$?"???E??@??x?E????E?@??U???(?}u?E?@?@?Z?E?D$?E?$????E?E?@?E??E?E?U?E???E??@??@?‹E??P?E??@??x?E????E?@?E?E?@?P?E?P?E?@?@???E?$??!???E??U???(?E?D$?E?D$?E?$? ????E?E?@?@???E?$?!???E???U???(?E?E??E??D$?E?D$?E?$??????E?E?@?@???E?$?Z!???E???U???8?}u,?E?@?E܋E܋U??E??@?E?@?P?E?P???E?D$?E?$?????E??E??U?P?E??L?E??
???‹E?
ЉE?E?P?M?E)?????
ЉE??M?E??P??
?Q?E??P?E?P?E?
?E?;E|??E?@?U????
‹E?P?E?@?E?E??E?U?E??E??@f?E?@?P?E?P?E?@?@???E?$?G ?????U??}t?E?@?@? ?E?@?@
?E?@?P?E?P?]?U????E?@?E??E??U??E??@?E?@?P?E?P???U????E?@?E??E?E??U??E???E??@H?E?@?P?E?P?E?@???9E??????U???8?E?D$?E?$?????E??E?@?E?E?U??E?@)‹E??D$?T$?E??D$?D$@?B?E?$?A???E???E?@?E?E?U?P?E?U?P?U??E?@)‹E?P?E?P\?E?P?E?U??P\?E??@"????‹E?@?? Љ‹E?f?P"?E??@"???‹E?f?P"?E??U?T$?D$?E?$?9???E??@"???‹E?f?P"?E?P?E?P\?E??}y"?E?@?P?E?@9?s?E?@?U?R?P?E???U???X?}u?E|?G?E?D$?E?D$?EԉD$?E?$?'????E?D$?E?D$?EԉD$?E?$?>B???E?}????E?@????E??E??@?????E??D$?E?$?n????E??@?@?E?E??E?M?E?P??
?Q?E??P?E?P?E?????@??tC?E??@?@???? ??t/?E??@??????t?E??‹E??@?T$?D$?E?$?_????E???U???8?E?P?E?@)‰U?E?@???E??E???@?U?T$?U?T$?U?T$?D$?E?$?&????E?E?P?E?
‹E?P?E???U??E?@??]?U???8?E??E?@?E?E??@V??????t ???????E?E؃} ??
?E??ĎG????E??@V
??
?D$?E?$?V????E??@V?
?D$?E?$? ???
?E?@?? ?E??
?E?@%??E??w
?E??@V?EߋE؍P?U؋?E??E??E??@V?}? ?E?@?E??E?@+E??D$?E?$??????E?@?@???E?$? ???E?
?}?t?E??@S<u?E?
?E??U߈PV???E??@V???????E????E??@T??u????E??D$
?E?$?B
????E??@T??u????E??D$?E?$?
???l?E؍P?U؋?E?E؍P?U؋?E??U?E?
Ѓ?L????D$d?$?????E?}?x%?E??$???????U?E?
Ѓ?L?? ?E??????
??E???U???(?E?@???E?E??@?????>?E???E??}~$?E??@??9E?E??
??
???‹E?
???????U???(?E?D$?E?D$?E?D$?E?$??????E??D$?E?D$?E?D$?E?$?????E??E???E??E??@???? ??t0?E??@??????t?E??‹E?T$?D$?E?$?p??????U????}t?D$?????E?$???????t ??
?E?$????????D$?????E?$?????????D$?????E?D$?E?$?7?????t?D$?????E?$? ????
??E??
?D$?E?D$?E?$?O?????t[?D$?pG?E?$?q????D$?????D$?????E?$?????D$?????E?$?????D$?E?$??????
?3?D$?????E?$?????D$?????E?$??????????????U???(?E?$?8????E?E?D$?D$??G?E?$蛧???D$??G?D$ع???E?$?????E??
?D$?D$?E?$?U????????D$?D$?????E?$?d????E??D$?D$?G?E??$????uC?E????D$?E?$?4????D$?????D$?????E?$?-????D$?????E?$?x????E??
?D$?D$?????E?$?????E??
?D$?E?$?F????
??E?D$?E?$?-??????U????E?D$?E?$??????te?D$?D$?????E?$?v????D$?D$?G?E?$?C????D$?????D$?????E?$?_????D$?????E?$??????E?@???t)?E?P?E?@?T$?D$?D$?G?E?$??????k?E?@?????????????t?D$I?G?E?D$?E?$?U??????U???(?E?D$?E?D$?E?$?????E?}???????t?D$?E?D$?E?$??????E???U????E?D$?E?$??????(?}t?}t ?E?$?????U??E??E?D$?E?D$?E?$?T?????U???(?E?D$?E?D$?E?$?E????]??E????????t?D$?E?D$?E?$?8????E???U???(?E?E??E?E?E?D$?E?$???????~?E?D$?E?$?v?????E???U????E?D$?E?$??????t?D$X?G?E?D$?E?$???????D$?E?D$?E?$???????U???(?E?D$?E?D$?E?$??????E??U?E????????t?E?D$?E?$?e????E??U???U???(?E?E??E?E?E?D$?E?$??????~?E?D$?E?$?x?????E??U???U??S??$?E?D$?E?$?.????E?E?@9Eu ?E???E?D$?E?$?I????E??E?H?E??E?]?\$?L$?T$?$?E??ЉE?}?u ?}t?
??????????t?D$??G?E?$?y????E?$??????E?U??E?U?P?E?]???U????D$?D$
?E?$???????U???(?D$?D$?E?$?????E?E???E??@?D$??G?E?$??????t?D$?D$??G?E?$??D$?????E?$???????U???(?E?@??‰?
?
ЉE??????+E?‹E?@9???????t?E?@?D$??G?$?????'?E?P?E
Ѓ?
9E?s?E?P?E
Ѓ?
?E?E???U???(?E?P?E?@)?;Ur?E??E?@
??
?E?@?E??E?D$?E?$?D????E?E??E??9?t!?E?D$?E?D$?E??$?????E???D$?????E?D$?E??$蹿???D$?????E??$?????E??$?Z????D$
?E?D$?E??$聿???E?D$?E??$?????E?D$?E?D$?E??$?$????E?E?P?E??T$?D$?E?$?>??E?U??E?U?P?E?P?E?
???U????D$?????E?D$?E?$??????U???(?}tG?D$?????E?D$?E?$?????E?E?D$?E?D$?E?$輠?E?P?E
‹E?P???U????E?$?7??D$?E?D$?E?$???????U???H?E?@?E?E??E??9?u#?E?P?E??T$?D$?E?$??????D$?????E?$?6????E??E??D$?E?$?f????E?E?@?E?E??
?D$?D$?????E?$?????E???E?U?E?
???E??@?E???E??D$?E?D$?E?D$?E?D$?E?$??????D$?????E?$蛼???D$?????D$?????E?$?h????D$?????E?$賻?????U????E?P?E
‹E?P?E?$???????U???(?E?@?E?E?D$?D$?????E?$??????E??E??D$?????D$?E?$?????E?E?D$?E??D$?E?$?Ԟ?E?P?E?
‹E?P?D$?????E?$???????U????E?U?P?E?P?E??E?@?E?@?E?D$?E?$???????U????E?D$?E?$?????D$?????E?D$?E?$???????U???(?D$?????E?$?н????u?D$?????E?$?[?????????4
?E?D$?E?$??????E?D$
?D$?E?D$?E?$?3?????u ?D$?D$?????E?$?????E??D?E??D$?D$?E?$?????D$
?D$?E?D$?E?$?????D$?????E?$螹???}?tB?E???D$?T$?E?D$?E?$?????D$
?D$?E?D$?E?$?)?????E?D$?E?$???????
?E?E???D$?T$?E?D$?E?$??????E???U????}???E?D$?E?$觸???E?D$
?D$?E?D$?E?$??????E??D$?T$?E?D$?E?$?????E??D$?T$?E?$?~????D$
?D$?E?D$?E?$?N??????U???(?E?E?E???~?E??‹E??E???F?E?@?$?+???t??3?E?@?U???D$?D$?D$
?$?8??U??E????U???8?SV?Ћ?$?$??E??D$?E?D$?E?$?S?????
?E??E?D$?E??D$?E?D$?D$??G?E?$? ????D$?????E?D$?E?$?&????D$?????E?$?q??????U???(?E?$贚?E?}??u1?E?$蝚=?u?E?$苚=?u ?E?$?y???E???U???(?E?$?????U??E??E?}?#u1?E?$?C??E?}??t?}? u?E?$?)??U??
????U???H?E?$芶????
?E?}u)?D$ɐG?E?$?????$??`G?Љ??????\?E?D$?D$АG?E?$??????D$ԐG?E?$?P???????????????u?E?D$?D$֐G?E?$?????
Dž?????????????????T$?$???????t???????P
??????Ƅ???? ??Ћ?????9?utDž?????}td???????D$?D$ېG?E?$?՘??????????????u?E?D$?D$ސG?E?$?p????
?????????????T$?$?????E?D$?D$?????E?$?M????D$?????E?$?????????D$?????E?$輭???D$?E?D$?E?$?R????E?D$?E?$?????D$?D$?D$
?D$
?E?$?^????D$?????E?$?]????E?D$?D$?????E?$?m????D$?????D$?????E?$迮???D$?????E?$? ????}t%?D$?????E?$??????E?D$?E?$????????U???(?E?$???E??9?E?+E?D$?E?D$?E?$?W????E?D$?E?$?????U??E?
ЉE?E?D$?E?$????E??}?u??E?D$?E?$?c??????U???(???????D$?E?$?=????E?D$?E?D$?E?D$???????$?@??????????$?;????D$?D$?????E?$?z?????U????}u?E?$? ????E?D$?E?$蜏??U???(?D$?????E?$??????u?D$?D$?????E?$? ?????@tG?E??$??`G?ЋU?T$?D$X?G?$?L???$??`G?Љ$???}t?E?D$?D$?B?E?$?f????V?$??`G???D$??G?D$tpG?$?UK???$??`G?Љ$????E?D$?D$??B?E?$???????U????E?D$?E?D$?E?$?o?????uW?$??`G???D$??G?D$tpG?$??J???$??`G?Љ$?d??E?D$?E?D$?E?$??????
???U???8?$?m???E?E?E??E??U???E????E??E??U??E????E??E?E??E?
? ?E????‹E???
‹E??D??
?1E?E?
?}?
vڋE???U????~?????U???(?q????D$?D$?$??B?????E?}???????t-?D$??B?E?$??????E?D$?D$??B?E?$?????E???U???H?E?E??E?E?E?$?????]??}?t?D$??G?E?$?S????9?E??E?????z?E??E?????t!?E??\$?E??\$?D$?G?E?$???????U???(?E?$蹧???E??E?
??E?D$?E?D$?E?$?????E?}?
~.?$
??`G?ЉD$?D$
?D$
?$?G?ʊ?$
??`G?ЋU?D$?T$?D$
?E?$螊?D$?????E?$?8????E?
?E?;E??a????$
??`G?ЉD$?D$
?D$
?$??G?M??$
??`G?Љ$?߉???U???(?E?$详???E??D$?D$
?E?$??????E???D$?E?D$?E?$??????E?
?E?;E?~??E?
?5?D$?E?D$?E?$?????D$
?D$?E?$?????E?
?E?;E?|??D$?E??D$?E?$覮???D$?D$?E?$?o??????U??S??$?E??E??E??D$?G?E?$?E?
E?E?<-u ?E
?E?
??E?<+u?E
?E????$??SV?Ѕ?u ????E?????0?? w?E?????0??E????$?lTV?Ѓ?7?E?E?;E| ???E??M????ڋM???
??e?
щʋM????
?ډE??U?E
?E????$??SV?Ѕ??j????D$?G?E?$?S?
E?}?t?E??U??؃?????E??U?M?
?Q?E?]???U???8?D$?E?$??????????D$
?E?$?ܧ????u?D$
?E?$?f????
?n
?E?D$?D$
?E?$?ɬ???E?}?t&?E?D$?E?$?K????U??
9?u ?
?%
?D$
?E?$???????E??E??D$?E?$?????E??U??D$?D$
?E?$?????E??D$?D$
?E?$?&????E?
?;U?E?}?$?;U?E?|?
??????????u?D$#?G?D$?E?$????????E??U؉T$?D$?E?$?)????M??U?
?9?u ?E؋U܉D$?T$?E?$?????
??E?$?w????
??U???(?D$
?D$?D$?E?$??????E??D$
?E?$譢???D$
?E?$???????u>?}?~8?E?D$?E?$?)????D$
?E?$?u????D$?E?$?????E?$?^?????U????D$
?E?$?9????D$
?E?$?|?????u?E?$蓭???
? ?D$5?G?D$
?E?$?A????
??U???(?D$?E?$?+????E??D$?D$
?E?$?v????}?t?}?u?
??????????u?D$A?G?D$?E?$?#??????D$5?G?D$
?E?$????????????t?D$P?G?E?$?b????+?D$?E?$?????D$
?E?$?????
??U????D$
?E?$??????D$?E?$??????D$?D$
?E?$辥???D$?E?$?p????
??U???(?D$
?E?$??????E?}?t?}?u?
??????????u?D$t?G?D$
?E?$???????D$
?E?$輩???D$?T$?E?$?????
??U????D$?D$
?E?$??????D$?E?$??????D$?E?$?ן???D$
?E?$?u????
??U????D$?D$
?E?$?c????D$?E?$?????D$?E?$?~????D$?E?$?c????D$
?E?$貽???
??U????}?u ?E?$趪???!?}u???G????G?D$?E?$蝬???
??U???H?D$?T?D$??G?D$
?E?$??????(?T???E?E??????
????G???E?D$?E?$?????E??D$?E?$?q????Ẽ}????
?E??E??X?T?????\$?E?$? ????
??
?D$?D$?D$?E?$?e????E؉U܋E؉D$?E?D$?E?$??????Eԃ}???p
?EԉD$?E?$輭???
?d
?E?D$?E?$?????E?}???5
?E?D$?E?$聭???
?)
?E?D$?E?$?????D$?E?$?L????
?E?D$?E?$?]????D$?E?$?&??????D$h?T?D$?D$?E?$?????????T???E??D$?????D$?????D$?E?$?C????E?U?E?D$?E??D$?E?D$?E?$???????D$?T$?E?$輨???
?I?E?D$?E?$?????Eȃ}??t?Eș?D$?T$?E?$胨???
??E?$?????
??U???(?D$
?E?$?П???E?}????????u?D$I?G?D$
?E?$????????E?D$?E?$??????D$?E?$豩???
??U????D$?D$
?E?$??????D$?E?$?????D$
?E?$?9?????t???E?$?C????
??U??]?U???(?D$
?E?$?????D$ĒG?D$
?E?$???????u;?D$?D$??B?E?$?????D$
?E?$?S????E?$??????>?D$
?E?$?3????D$??B?D$?D$?D$
?E?$????????U???(?D$?E?$?????E??U?E??U??
???E??U?E??U?D$?T$?E?$苦???E??U?D$?T$?D$
?E?$??????u?
????U????D$
?E?$?h????D$?D$??B?E?$??????D$
?E?$?=????D$?D$?E?$????????U????}??????tQ?}tD?E?D$?E?$?????D$
?D$?????E?$??????u?D$?????E?$貙???
?+?E?$?$????D$
?D$?????E?$?'??????U???(?D$?D$?G?E?D$?E?$??????E??D$B?E?$?[}??t?D$̒G?E?D$?E?$?????E???U???(?D$?D$?D$
?E?$?????E??D$?E?$?`????E??D$?E?$?&??????t????E?E??D$?E?D$?E?$??????E?E?D$?E?D$?E?$?o?????U???(?D$ْG?D$?E?$??????D$
?E?$?T????D$?D$?D$
?D$?E?$?????D$?????E?$?i?????u#?D$?????E?$??????E???z?D$?????E?$?E???????????t?D$??G?E?$??????D$?D$?????E?$?ݙ???D$?????E?$脗???E?D$?D$?E?$??????U???H?E܉D$?D$
?E?$?ϟ???E??D$?E?$?????E??D$?E?$?z??????t????E?}?tT?D$?E??D$?D$?E?$?y????E??E܋U?T$?U??T$?D$?E??D$?E?$?????E???D$?D$?G?D$?E?$?$????E??D$?D$
?E?$?4????D$?E?$?Z????E?D$?E?D$?D$?D$ ?B?E?$腺???E?E?D$?E?D$?E?$??????U????E?$??????
??U???8?D$?D$?D$
?E?$?m????E??D$
?E?$辕???D$?E?D$?E?$?????????????t ?E?$蟽???F?D$??B?D$?D$?????D$?E?$?Y????D$?D$?E?$?2?????U????D$
?E?$?l???????????t ?E?$??????r?D$
?E?$?????D$?????D$
?E?$腖???D$?????E?$?Д???D$!?G?E?$?K????D$
?E?$誔???E?$??????U???(?E?$?o????E??D$
?E?$?ԗ????uF?D$?D$
?E?$?ݜ???<#u$?E??
??D$?T$?E?$?????
??D$
?E?$??????E??U?}?y?E?
E?U???E?;E???E?} ?E왉E??U?E??U??????+E?U??1???????u?D$3?G?D$
?E?$?H??????E??U?)‰???U????}t ?}
t?
??????????t-?D$?E?$?"????D$?????E?$?Y??????E?$????+E??U???8?D$
?E?$?&????D$
?E?$?̢???D$
?D$
?E?$蒔???E?$?Ȓ?????D$??B?D$?D$?D$?????D$?E?$胵???E??D$?E?D$?E?$???????U???8?E?$?f????E??D$?D$?E?$?,????D$
?E?$?????D$
?E?$?J????D$?D$?E?$?Ɠ???E???D$??B?D$?D$?D$?????D$?E?$迴???E??D$?E??D$?E?$?4?????U????D$
?E?$?????D$?D$
?E?$?????
??U????D$?D$?D$ع???E?$腦???D$?D$ ?G?E?$?????D$?????E?$?I????D$??G?D$?????E?$?X????D$?G?E?$螞???D$??G?D$?????E?$?*????
??U???(?D$
?E?$贛???E?}???????u?D$'?G?D$
?E?$?\??????E???U???(?E?D$?E?$?????????????t?D$??G?E?$?????????????E?D$?E?D$?E?$?>????E??D$?E?D$?E?D$?E?$?????E?}?t?}?
u?
??????????tm?E???
?D$?E?$?^???????????t.?E??ЉD$?E?$?̏???D$?G?E?$?G?????????=?E??D$?E?D$?E?$菎???E???D$
?E?D$?E?$?p??????????U???(?E?$?t????E?E?$?7?????
?D$?E?D$?E?$?????E??E?????t5?D$?E?$?ܞ???D$
?D$?????E?$袐????5?D$
?E?$觞???E????D$
?D$?E?$?l????E???
??U???(?D$׹???E?$舙???E??E?$?~????D$?E??D$?E?$??????E?E????????E??$?9????E?}?t5?}?
t/?E?D$?E??$?R????E??D$
?E?D$?E??$?!????}?tY?D$?????E?$?p?????uA?D$
?E?$?????D$
?D$?????E?$聏???D$?E?$??????E?$?ӵ????E???U???(?D$?D$
?E?$?`????E?$?|????E??D$
?E?$胐???D$
?E?D$?E?$?T????
??U????E?$?????D$
?D$??B?E?$?ۛ???
??U????E?$??????D$?D$?D$?E?$?!?????U???|?E;Eu??b?E?$袲????t??
uI??G?E??D$?D$?E?$?L]????t??"?E?$?u?????u?
????
??U???(?E?$?z????E?E?D$?E?$?a?????P?G?D$?E?$?˙???
??U???(?D$
?E?$?{??????t ?E?$??????E?E?E?$?????D$?E?$講???
??U????E?$??????E??E??D$?E?$???????U???(?E?$?????E?E?D$?E?$?????E??E???
??
wi?E?D$?E?$?{????E??}?u?D$
?E?$?????
?U?D$?E?$??????D$
?E?D$?E?$??????!?E???P?G?D$?D$`?G?E?$?'?????U????D$??P?T?\$?E?$?s????D$?D$?E?$菡???D$?D$??G?E?$?????
??U????E;Et?E?D$?E?$??????u?
??????????t?D$?G?E?$?v??????U????D$ع???E?$?7????
??U????D$
?E?$?????D$
?E?$?W?????u?E?$?n????
??U???(?D$?E?$?(????E?}?t?}?u?
??????????u?D$A?G?D$?E?$?;??????D$?E?$?s????D$
?E?$?????
??U???(?D$
?D$?D$?E?$?\????E??D$
?E?$?x?????t ?E?$莔???9?E?D$?D$
?E?$????????t?D$
?E?$藘?????
??U???(?D$
?D$?D$?E?$??????E??D$?D$
?E?$?H????D$?E?$?v????D$?E?$?[????E?D$?D$
?E?$?I?????u?E?$趓???
??U????D$
?E?$?p?????u?E?
?D$
?E?$?В????E??E??U????E?D$?E?$?W????E?D$?D$?????E?$???????U????E??D$?T$?E?$?n????E?D$?D$?????E?$誢?????U????E?D$?E?$?????E?D$?D$?????E?$?u??????U????E;Eu?D$
?D$?????E?$趈????D$
?E?D$?E?$?????E?D$?D$?????E?$???????U????E??D$?E?$?????E??E????D$?D$?G?D$?E?$?1????E??D$?E??D$?E?$??????E??<>??????u?E????D$ ?G?D$?E?$???????E???
?D$?E?$蓉????uN?E?D$?D$3?G?E?$联???E?E???
?D$?E?$? ????D$
?E??D$?E?$?ڄ???F?E???
?D$?E?$?????E??D$?T$?E??$?YV????u?E?$?*????
???E??D$?E?D$?E??$??]????u"?E????D$7?G?D$?E?$???????D$?D$?E?$?????D$S?E?$?Ji?????U??E??T$?D$?E?$?/????D$F?G?D$?????E?$?(????E???,?D$?D$M?G?E?$??????E??D$?D$W?G?E?$?????E??D$?D$c?G?E?$??????E??D$?D$s?G?E?$?????D$l?E?$?h??t?E??D$?D$x?G?E?$?????D$u?E?$?_h??tZ?E????D$?D$??G?E?$?v????E????D$?D$??G?E?$?X????E????D$?D$??G?E?$?t????D$n?E?$??g??t4?E??D$?D$??G?E?$??????E??D$?D$??G?E?$?????D$r?E?$?g??t<?E????D$?D$??G?E?$?????E????D$?D$??G?E?$?????D$t?E?$?Pg??t?E????D$?D$??G?E?$?????D$L?E?$?g??t?D$ǖG?E??D$?E?$?????D$f?E?$??f??t?D$ӖG?E??D$?E?$?t????
??U????E?D$?E?$?d????E?E???D$?E?$?U????E??E??
?D$?E?$轅????uH?E??
?D$?E?$?P????E??D$?D$?E?$??T???D$?E?$誏???
???E??
?D$?E?$??????E썅x????D$?E?D$?E?$?R??????????t"?E??
?D$ؖG?D$?E?$?Q?????D$
?E?D$?E?$??????E??D$??x????D$?E?$?$T???E?}?tN?D$
?E?D$?E?$?M????E?D$?E?$?ӎ???D$
?D$?????E?$?̂?????E?$蜌???
??U????E?D$?E?$??????E?E??
?D$?E?$輿???E??E???D$?E?$褿???E썅x????D$?E??D$?E?$?KQ??????????t"?E??
?D$ؖG?D$?E?$??????E???D$?E?$?l????E???D$?E?$?O????D$
?E?D$?E?$?????D$
?E?D$?E?$????E?D$??x????D$?E?$?oS???E?}?u?D$?????E?$?????E?D$?E?$?_????
??U???(?D$?E?$菾???E??D$?D$
?E?$?Z????}t?E?D$?D$
?E?$蹫????E?D$?D$
?E?$?#????E??}?u??4?E??D$?E?$?Ì???E???D$
?D$?E?$軀???E??
??U????D$
?E?$?.?????U????D$?E?$?????D$?E?$??????U???(?E?D$?E?$莽???E??D$?E?D$?E?$?Z????E?D$?E?D$?E?$葬???E??}t2?}???????u?D$?G?E?D$?E?$???????E?U??E???U???(?D$?D$?D$
?E?$?I????E?}?t?E?D$?E?$??????E?$?m????
??U???8?E?D$?D$?D$
?E?$??????E??D$?D$?D$?E?$??????D$
?E?$?E???????????u?D$
?G?D$
?E?$????????D$?E?$? ???????????u?D$
?G?D$?E?$農?????U??E?T$?D$?D$?D$
?E?$豫?????U???(??G?D$?D$ع???E?$?1????E?$?????D$?????E?$?a?????uw?E?????T?D$?E?$?????E?@??x?E?@??D$?T$?E?$?K?????E?$?????D$?D$?D$?D$?E?$?-??????U???(?E??D$c?E?$?,`??t?M?
?D$r?E?$?`??t?M??D$l?E?$??_??t?M??}~?M??E???U????E??E??
??t?E??P
?U??‹E
??c?E????t?E??P
?U??‹E
??r?E????t?E??P
?U??‹E
??l?U??E
???E??U???8?E??D$?E?$? ????E?E???
?D$?E?$?~~????/?E???
?D$?E?$?{???E??E??E???E????D$?D$?E?$?????E?E???
?D$?D$?E?$?w????E????D$?D$?D$?E?$跹???E??E??B?E??D$?E?$?>????E???G?D$?D$ع???E?$??????uT?D$?G?E?$?LJ???D$?G?D$?????E?$?S????D$?????E?$?}???D$?????E?$肙???D$
?E?D$?E?$?G????E?$??????D$
?E?D$?E?$?x???E???
?D$?E?$?|???D$?????E?$?????E??D$?E?D$?E?D$?E?$?I?????U???8?E?D$?E?$?'????E?E?$??I???E??E?$?I???E?}?u?E?$覄???
?
?}??Bt?D$ ?G?E?$芆?????G?D$?D$ع???E?$?>????D$
?E?D$?E?$?*????E?$?؈???D$
?E?D$?E?$?w???D$?????E?$?:????D$?????D$?????E?$?z???D$?????E?$?[x???E?D$?E??$?????D$?E?$?ȅ???E?$??H????D$?T$?E?$????????U??S??$
?$??`G???D$.?G?D$tpG?$?>???$??`G?Љ$??Z?$??`G?ЉD$?D$????????$?Z??t?D$:?G???????$?[??u ??????????$?[?D$?D$@?G?D$???????D$?E?$?'?????u7?D$?D$?D$?D$?D$?E?$???????tU?D$?D$?????E?$????????$??`G?Љ\$?D$`pG?$?'???$??`G?Љ$?Y?D$?E?$?v???????]???U???(?E?D$?E?$?W????E?E??
?D$?D$?E?$??~???E??}?u0?E??
?D$?E?$?y????~?E??
?D$?E?$?6y???Q?E;E???????M???D$?T$?L$?E?$?'????E?E?D$?E??D$?E?D$?E?$?j????
??U????D$??P?T?\$?E?$?M????D$?D$?E?$?i????D$?D$??G?E?$??????
??U??S???E???t\?E?P
?U????D$?$h?G?\Y??t9?E?<+u?E
?D$l?G?E?$?Y?ËE?$?ZY9?u?
???]???U???(?D$
?E?$?????D$n?G?D$
?E?$肯???E?}?u ?E?$?6????2?E?@??u?D$t?G?E?$?!?????D$??G?E?$?????
??U???(?D$n?G?D$
?E?$訯???E?E?@??u?D$??G?E?$?ā????E??D$?D$??G?E?$胂???
??U???(?D$n?G?D$
?E?$?B????E?E?@????????t?D$??G?E?$??????E???U???(?D$?D$?E?$?)????E?E??@?D$n?G?E?$?????E???U???(?D$n?G?D$
?E?$謮???E?E?@?E??E??@?E??U?$????U????E?$?????E?$??????U????D$
?E?$?^v?????u?D$??G?D$ع???E?$?C????E?$??????U???(?D$n?G?D$
?E?$?????E?E?@??t?E???t?E?$???????U???(?D$n?G?D$
?E?$軭???E?E??$????
?}???U????D$?D$
?E?$?n???$?(?D$?E?$?D>???
??U???(?w?E??E????T???\$?E?$?*?E??U? Ѕ?u?
?+?E??؃??ڋM?9E??}?
??U??E
Ѓ?
??U???8?E?E??E?E?E??U?D$?T$?E?D$?E?$?d???E??U?E?;E???E?}?E?6?}?x?E??+?E??؃??ڋM?9E??}???U??E
Ѓ?
??U??S??4?E?D$?D$
?E?$?Ab???E?]??D$?E?$?c???\$?$?T$??????E??E?D$?D$?????D$?????D$?E?$?????E?E?9E?r)?E?+E??P
?E??H??E?
ȉT$?D$?E?$?0????D$spG?E?$??1???
?]???U???8?E?D$?D$
?E?$?wa???E??E?D$???????D$?E?$?Oi???E??E???E?+E?P??E?
ЋM?U?
????E?
?E?9E?rًE?D$???????$?h???
??U???8?E?D$?D$
?E?$??`???E??E?D$???????D$?E?$?h???E??E??*?U??E?
?????$?hTV?Љ??U?E?
Љʈ?E?
?E?9E?r΋E?D$???????$?zg???
??U???8?E?D$?D$
?E?$?J`???E??E?D$???????D$?E?$?"h???E??E??*?U??E?
?????$?lTV?Љ??U?E?
Љʈ?E?
?E?9E?r΋E?D$???????$??f???
??U??WVS??L?ẺD$?D$
?E?$?_???E??D$?E?$?)a???E??U?EȉD$?D$spG?D$?E?$?_???EԺ?;U?E?|?D$spG?E?$?/???L
?ŰE?
‹E?9?r9?ŰE?
Љƿ?E??U?D$?T$?$????D$?09????}?
??????????t?D$??G?E?$?Y?????U??E??ЋE??H??E???
ЉEЋEЉD$???????D$?E?$?f???E??E?ẺD$?E؉D$?E܉$???E?
E܋Eȅ?t?EȉD$?EԉD$?E܉$??E?
E܋E??U???Ӄ??????M??]?
?9??|??ẺD$?E؉D$?E܉$?j?EЉD$???????$??d???
??L[^_]?U???H?E؉D$?D$
?E?$??]???E??D$
?D$?D$?E?$?_???E?U?E؉D$?E?U?$?T$?-????E?E؉D$?E?U?D$?T$?D$?E?$?k????E??E?9E?s ???E?+E?=?????????t?D$ۡG?E?$??W???n?E?+E??
?E??D$ۡG?E܉D$?E?$?\???E??4?U?E?
ЍP??E?
????????D$?T$?E?$?K+???E?
?E?;E?|ċE???U???H?E?$?*???E??E??D$???????D$?E?$?id???E??E?
?k?E?D$?E?$??]???E??U?
???;M?U?s?????u?D$?G?E?D$?E?$?cT?????E?P??E?
ЋU???E?
?E?;E?~??E??D$???????$??b???
??U???(?E?E?E???u?E??
?E???D$?E?$?Xc???}u>?E???$?sa???D$
?D$?????E?$?q ???D$?????E?$?????E?P?E?D$?E?D$?$?`?????U???8?D$?E?$?&???E??D$
?E?$?!????u?D$
?E?$?i!????u?
??????????u?D$
?G?D$
?E?$?S?????D$
?E?$?h ??Dž?????E?D$???????D$?D$VC?E?$?B???D$
?E?$????
??U???(?E?D$?E?$?[ ????u?E?D$?E?$?????
?J?E??D$?E?D$?E?$?M%???E?}?t#?E?D$?E?$??#???U???
9?u?
????U??S??$?D$?E?$?y???D$?E?$??????t?E?D$?D$?E?$?h????u?
??????????tk?D$?????E?$?v???D$?E?$??????D$?????E?$?R???D$?E?$????U???\$?D$?T$?D$?G?E?$??S???D$
?D$?????E?$?G???D$?D$?D$
?D$?E?$?s=????]???U????D$
?E?$?F?????t+?D$?E?$?/?????t?E?D$?E?$? ????E?D$?E?$?????
??U????D$%?G?D$?E?$?~?????U????D$+?G?D$
?E?$?[?????U????D$1?G?D$?E?$?8?????U????D$7?G?D$?E?$??????U????D$=?G?D$?E?$???????U????D$C?G?D$?E?$???????U????D$I?G?D$?E?$??????U????D$P?G?D$?E?$??????U????m1?}x!?E?@??9E}?E?U???D????u?
??????????t"?E?P
?E?@?T$?D$??G?$??Q????E??U???(?E?@???E?m?
??E?U???D????u?E?? ?m?
?}?yߋE?@?D$ˢG?$?iQ????U????E?P
?U?????%t ??[t6??E?@9E??????t?E?@?D$?G?$?Q???E??
?k?E?<^u?E
?E?@9E??????t?E?@?D$?G?$??P???E?P
?U?<%u?E?@9Es?E
?E?<]u??E??
??E??U???(?E?$?hTV?Ѓ?a??????(?G???E?$??SV?ЉE????E?$??SV?ЉE???E??0?? ?????E???E?$??SV?ЉE???E?$??SV?ЉE??w?E?$??SV?ЉE??e?E?$??SV?ЉE??S?E?$??SV?ЉE??A?E?$??SV?ЉE??/?E?$??SV?ЉE???}?????E???E;E????? ?E?$??SV?Ѕ?u?}???????E???U???(?E?
?E??
?<^???E??E
??E?<%u%?E
?E????D$?E?$??????tX?E??m?E??
?<-u3?E??;Es(?E?E?????9E|&?E???9E?E??-?E???9Eu?E???E
?E;E?n????}???????U???(?E?@9Er??}?E????E?E?????[t3??[L??%t??.uB?
?M?E??
????D$?E?$?????0?E??
?D$?E?D$?E?$??????E???9E???????U???(?E?@??
9E??????t?E?@?D$??G?$??M???E??E?8?t??j?E????E??E??
????E??E?
?2?E???9E?u?m?
?}?u?E??
?&?E???9E?u?E?
?E
?E?@9Er????U???(?E???E?
?U?E
‹E?D$?E?D$?T$?E?$?|?????u??3?E?P
?M?E
ȉT$?D$?E?$??
?E??}?t?E???m?
?}?yǸ??U???(?E??
?D$?E?D$?E?$?
?E?}?t?E??/?E?D$?E?D$?E?D$?E?$???????t?E
문??U???(?E?@???E?}?~?E?@?D$??G?$?VL???E?U?J?U?T??E?U?J?U?T??E?P
?E?P?E?D$?E?D$?E?$???E??}?u?E?@?P??E?P?E???U???(?E?$?)????E?E?U???D??U??)??E?U???L??E?D$?E?D$?E?$??E??}?u?E?U???D??????E???U???(?E?D$?E?$?E????E?E?U???D??E?E?@+E;E?r1?E?U???D??U?T$?U?T$?$????u ?U?E?
?????U???(?E?@?H??U?J????????t?E?@?D$ѣG?$??J???
??E?@9E???E?????)????)?G??(t ??(?9??$????%???"?E??
?<)u,?E???D$?????D$?E?D$?E?$??????E?*?E??
?D$?????D$?E?D$?E?$?????E???E??
?D$?E?D$?E?$?????E???E?P
?E?@9???
?E?@9Eu?E???E??E??
?????ftW??f?M
??9??0???:
??b?1
?E???D$?E?D$?E?$?g????E?}???E?????E?E?<[??????t?E?@?D$?G?$?>I???E?D$?E?$??????E?E?9Et?E??
????E?E?P??E????T$?U?T$?$?p?????u1?E?P??E????T$?U?T$?$?J?????t?E?E??????E?;?E??
????D$?E?D$?E?$?????E?}t?E??????K
??E
??
??E?D$?E?$??????E?E?D$?E?D$?E?D$?E?$??????u8?E??<*t?E???}??????t ?E?P
?E?@?T$?D$??G?$?3F???E?U??E+E??E?U???D??E?E?U???T??E??}????????t?E?@?D$?G?$??E???4?}??u.?E?U???T??E?)B
??M?I?D$?T$?$?X???E???U???8?E??D$?E?D$?E?D$?E?D$?E?$??????E?}??t?M?U??E?@?L$?T$?$?C?????U???(?E?@??u?}u?E?@????
?E??E?@?D$??G?U??T$?$?BI???E??$?E?D$?E?D$?E?D$?E?$?:????E?
?E?;E?|ԋE???U???(?E??U?E?
??D$?G?$?????t??(?U?E?
Љ$???U?
Ѓ?
?E?E?9Es??
??U??E?U?P?E?@??E?U??U?E
‹E?P?U?E
‹E?P?]?U??E?@?]?U??S??d
?E؉D$?D$
?E?$?I???E?EԉD$?D$?E?$?I???E?]??D$
?D$?D$?E?$?J???\$?$?T$?w?????
?E?E?;E?s?E?$?????
??
?}???D$?E?$?????u?EԉD$?E?$?????????UԋE?+E?]?M?
ىT$?U?T$?D$?$?????E?}??|
?E?+E??
??D$?T$?E?$????E?+E?‹E?
к?D$?T$?E?$?????A
?U?E?
ЉE??E??<^?????E??}?t ?E?
?Eԃ?
?EԋUԋE؉T$?U?T$?D$?E?D$?E?D$???????$????????????$?,????E?D$?E??D$???????$?/????E܃}?t~?}tZ?E?+E??
??D$?T$?E?$?????E?+E왉D$?T$?E?$????D$?D$???????$???????N?E܉D$?E??D$???????$?r????0?E??P
?U???????9?s ?}??2????
??E?$?????
?]???U????D$
?E?$?H?????U????D$?E?$?-?????U???(?D$չ???E?$?????E??E??U?P?E???E??w?E????$??????E??@?U????D$?E?D$?$??????E?}?t=?E??@9E?t2?E??U?P?E??P?E???E??P?E?D$?E?D$?$?e?????E?
?E??@;E??z??????U??S??D?E?D$?D$
?E?$?E???E??E??D$?D$?E?$?tE???E?]??D$
?D$?D$?E?$?-G???\$?$?T$???????
?E??D$?E?$?????D$?D$$
?E?$?F2???E?E?;E?s ?E??
?E?U??E?M???T$?U?T$?D$?E??D$?E?D$?$?5????U??E?
‹E??E?U?P?E??@?D$?D$ykC?E?$?????
?]???U??S??D?E?@?E??E?D$?D$?E??$????E??E
?E?+E?D$?E?D$?E?$?I???E?
?E??<%uI?E?P?E?@9?r?D$
?E?$??I?????E??E?@?H
?U?J??E?????E??<0u!?E+E?D$?E?D$?E?$?I????E??????0?? wa?E?????PύE??D$?E?D$?E?D$?T$?E?$??????E?}??u ?E?$?J???6?U?E??T$?D$?E?$?H????D$%?D$,?G?E??$?>???E?U??
+U?)ЉE?E??
?E?E?D$?D$%?E?$?=??E?}???????E?D$?E?D$?E?$?)H????]???U???8?E?@?E?}te?}???D$?E?$?O???E?D$?E?D$?E?$?????E??D$?D$?D$
?E??D$?E?$??&???`?E?D$?E?D$?D$?E?$?g????D$?E?$????*?E?D$?E?D$?E?D$?E?$?s????
??D$?????E?$??????u6?D$?????E?$?r???E+E?D$?E?D$?E?$?G????j?D$?????E?$???????????t;?D$?????E?$?{???D$?E?$????D$?D$X?G?E?$?%?????E??E?@?H
?U?J
??"??]???U???H?E?E??E?E??E????T????z?E????T????u?E?ۤG???E????T????z?E????T????u?E??G??E??E?????{?E??G??E??\$?D$?G?D$x?E?D$?E?$?????E??E??D$?D$.?E?$????u8??SV?Ћ??E?U??E?T$?D$?E?$????E?}?t?E??.?E???E?D$?D$tpG?E?$?ޜ????U???8?E?D$?E?$?_?????t%???U
??
 ???!
?C
??t??9
?E؉D$?E?D$?E?$?E???E??E؉D$?E??D$?E?$?W????
?D$x?E?$?=???E?E?D$?E?$?t?????u5?D$?E?D$?E?$?
???\$?E?D$?E?$?????E??d?D$?E?D$?E?$??
???E??U?E??U??? Ѕ?u??G???G?E܋E??U?D$?T$?E܉D$?E?$螛???E?E?P?E?
‹E?P?B?D$?E?D$?E?$?G???E?$?>????D$??G?E?D$?E?$? /??????U??E?????0?? w?E
?E?????0?? w?E
?E]?U???(?E??
?E?E?D$?E?$??
E?E??<0t0?E?$?????E?E??<.u?}t?E?
?E?$?s????E?E?????$??SV?Ѕ?u?E?D$?D$?G?E?$??0?????U???(?D$;?G?E?$???E?E?
?}?v?D$K?G?E?$?0???E?P
?U?%?E?D$?E?D$?E?$? ??U?E?
???E?P??E
???U???(?E?$???E?E?$?r??E??E?P??E
???E?E?P??E
‹E?D$?$?,??U?E?
ЍP??E
??E??U?E?
‹E
?????U??S???E?$?????E??E?
?E??D$?E?D$?E?$??4???E??U??E?
ЉE؍??????D$?E?$?s??‹?l???9???????u?D$??G?E?D$?E?$?a??????l????D$?E?D$???????$?Q(??????????????9?r?D$
???????$? (?????????????????P
??????
????l????E?
Ѓ?
?E??G????????????9?r?D$
???????$?'?????????????????P
??????
???m?
???????????P??????????$?(???
???[^]?U???H?D$?D$
?E?$?"???E??E??E?D$?E?$??????E؉D$?E܉D$?E??D$?E?D$?E?$?????E??}?t ?}?t?
??????????u?D$l?G?D$
?E?$???????U܋E?
ЉE܋E܉¸???)?;E???????u?D$??G?D$
?E?$??????E?
E?E?????@????E???D$?T$?E?$?????
??U???8?E??E??E?9?O‰E?E??
?E??C?E??U??????E??U?}u?E??
+E???E?U
??????? E? U?m?
?}?y??}K?}???E???H??
??????? t??1??E؉U܋E??U?3E?3U?+E?U܉E??U???}~y?}t ?E??U??x?????E?E?E??J?}u?E??
+E???E?U
????9E???????t?E?D$?D$??G?E?$????E?
?E?;E|??E??U???U??VS??p?D$?D$
?E?$????EȍEĉD$?D$?E?$?p???E?]??D$
?D$?D$?E?$?)!???\$?$?T$??????
?E??E??E?;E???????u?D$̩G?D$?E?$?Q?????ẺD$?E?$???????E??D$?E??D$?EȉD$?E?D$?Ẻ$?????E?E??‹E?
‹E?+E?9???????u?D$?G?D$?E?$???????E?
E??D$
?G?D$?E?$????E?
?}? ?N?E???8?G????}????ȋU??EЋu?]?
?L$?T$?D$?\$?E?$?????E؉U܋E؋U܉D$?T$?E?$??????
?EЋM?U?
ʉD$?D$?T$?E??$?????E??\$?E?$?????
?EЋM?U?
ʉD$?D$?T$?E??$??????E??\$?E?$??????n
?EЋM?U?
ʉD$?D$?T$?E??$?????E??\$?E?$?????1
?E????U?E?
ЉL$?D$?E?$??????
?U??EЋ]?M?
??D$?T$?D$?L$?E?$??????E??E?+E?U?)?;E???????u?D$?G?D$?E?$?
?????E??‹E?
‹E?
‹E??D$?T$?E?$?_????E?
E??z?U?E?
Љ$?q??E?U?E?
‹E?9???????u?D$?G?D$?E?$??????U?E?
‹E?D$?T$?E?$??????U?E?
Ѓ?
?E???m?
??E?
E?E?????????E??
??D$?T$?E?$?i????E???
??p[^]?U????D$ ?D$?E?$?2????D$?D$`?G?E?$?.???D$spG?E?$?????D$?????E?$?&????D$?????E?$?????D$?????E?$??????D$?????E?$??????D$`?G?D$?????E?$??????D$?????E?$???????U????D$??P?T?\$?E?$?-5???D$?D$?E?$?I????D$?D$?G?E?$??-???E?$??????
??U????E?D$?E?$?????E?؉D$?E?$?????????????U???(?E?D$?E?$?V????????E?
?E?D$?E?$?4????????E??
??t"?E?
?E?D$?D$`?G?E?$?`?????tn?E????t"?E?
?E?D$?D$p?G?E?$?4?????tB?E????t"?E?
?E?D$?D${?G?E?$??????t?E??ЉD$?E?$?6?????D$?E?D$?E?$???????U???(?D$
?E?$?????E??U??D$?D$?D$?E?$?
???E?U?
?}?v?????u?D$??G?D$
?E?$?9?????
?}?v?????u?D$??G?D$?E?$??????U?E??T$?D$?E?$?$????
??U??S??D?D$?D$
?E?$?????D$
?E?$?(???E??U?E??U??
???E??U?E?$???????t ??t???E??U?E??U????D$?E?$????E??U?E??U?????????ӋE??U??E?
9??r?E??Eׅ?u?D$??G?D$?E?$??????E??U?E?U??P?E?U???????D$?T$?D$
?E?$??????E?U?D$?T$?D$
?E?$?}????E???U???E?U?M?9E??|???D$??G?E?$????&?E??U?D$?T$?D$
?E?$?-?????]???U??S??4?D$?D$
?E?$?????D$
?E?$??&???E?U?E?U?D$?T$?D$?E?$????E??U?E??U?3E?3U? Ѕ?tK?E??U?????????ӋE?U??E?
9ȉ??s?E??E??u?D$??G?D$?E?$??????E??U?D$?T$?D$
?E?$?p????P?E??U??
???D$?T$?D$
?E?$?G????E??U?D$?T$?D$
?E?$??????E?
?U??E??U?;E??E?|??E?$??????E??U?D$?T$?D$
?E?$?????
?]???U??S??D?D$?E?$? ???E?U??D$?E?$?????E??U??D$?E?$?????E؉U??D$?E?$?>?????~???
?E??D$
?D$
?E?$?????D$?EԉD$?E?$?????E??U?;E??E????;U?E?|?E?U????????;E???E?|?
??????????u?D$ΫG?D$?E?$???????E??U?+E?U??
???EȉU̸????????+E?Ũ?
???
;E؉?E?}?????u?D$?G?D$?E?$?\?????E؋U܋M?9E??|@?E؋U܋M?9E??}0?}?
???D$?EԉD$?D$
?E?$??????u?E??E??]?M?]?E??U?
?ډD$?T$?D$
?E?$??????M؋]܋E??U?
?ډD$?T$?EԉD$?E?$?o????E?
?U??E??U?;Eȉ?E?|??w?EȋŨ??????E??U??]?M?]?E??U?
?ډD$?T$?D$
?E?$?C????M؋]܋E??U?
?ډD$?T$?EԉD$?E?$??????E???U???}?y??EԉD$?E?$?q????
?]???U???8?E?E??E?E?E??U?D$?T$?D$
?E?$?????D$?????E?$????????????tI?D$?????E?$?U????D$?E?$???????E??U?D$?T$?L$?D$?G?E?$?????E?$?+?????U???H?D$?D$
?E?$?????D$
?E?$??!???E?U썅?????D$?D$spG?D$?E?$?????E??D$
?D$?D$?E?$?W???E??U?E?U?D$?T$?D$?E?$?0???E?U썅?????D$?E?$?????J?E??U?D$?T$???????D$?E?$?h??????????D$?E?D$???????$?R???E?
?U??E??U?;E??E?|??E??U?3E?3U? Ѕ?u#?E??U?D$?T$???????D$?E?$????????????$?w???
??U???(?E?$?????E??E??D$
?D$?E?$??????D$
?D$
?E?$?????E??E??#?E???D$?T$?D$
?E?$?9????m?
?}?׋E?D$?T$?E?$?????D$??G?D$
?E?$??????
??U??S??4?D$
?D$?D$?E?$????E?U??D$?E?$???????D$
?E?$?????D$?E?$?????E??U?E?U?M?9E??} ????E??U?M?]?)?ډE??U??????;U?E?r?E?
?U??E??D$?E?$?1?????u?
??????????t>?D$5?G?E?$? ???]?E?U?D$?T$?D$
?E?$?????E?
?U??E?U?;E???E?|NjE??U?D$?T$?D$
?E?$??????E??]???U????E??D$?T$?D$
?E?$?i????E??D$?T$?D$
?E?$?F??????U???8?D$?E?$?"?????u&?D$
?E?D$?E?D$?E?$???????D$?E?$?????E??
?D$?E?$?}????E???D$?E?$?h????D$?D$?D$
?D$?E?$?+????D$?????E?$?a????E??D$?????E?$? ????E???U???(?E?E?E??
?E??9?E??
9E???????t?D$P?G?E?$?????D$?????E?$?????E?
?E???D$?T$?D$
?E?$? ????D$?????D$?????E?$??????u??6?E?;E???????t?D$P?G?E?$?w???D$?????E?$?6????m?
?E??D$?T$?D$
?E?$?????D$?????D$?????E?$??????u??E?;E?s4?D$?????E?$??????E?P??E?D$?T$?E?$?????E???E??D$?E?D$?E?$?o??????????U????E+E???E??E3E3E?U?????ыU?E?
?
ȉE??E???U???(?!?E??D$?T$?D$
?E?$?????E??D$?T$?D$
?E?$?????D$?????D$?????E?$??????t?E?D$?E?D$?E?$??????D$?????E?$?????E+E??
???E+E??cv?}u?U?E
???E???E?D$?E?D$?E?$??????E?E???D$?T$?D$
?E?$??????E??D$?T$?D$
?E?$?????D$?????D$?????E?$?1?????t?E?D$?E?D$?E?$???????D$?????E?$??????E??D$?T$?D$
?E?$?I????D$?????D$?????E?$??????t?E?D$?E?D$?E?$?R?????D$?????E?$?i????E+E????
?E???D$?T$?D$
?E?$??????D$?????E?$?/????E??
??D$?T$?D$
?E?$?????E??
?D$?E?D$?E?$?????E?D$?E?D$?E?$??????E?E?+E?‹E+E?9?s7?E?P??E?D$?T$?E?D$?E?$?9????E?+E?E??E??
?E?5?E?P
?E?D$?E?D$?T$?E?$?????E+E?E??E??
?E?E+E??9E?s?E?$?["???E?E;E????????
???U???(?D$?D$
?E?$??????D$
?E?$?T???E??U??
?;U?E????
?????;M?U?}?????u?D$s?G?D$
?E?$?&?????D$?E?$???????~?D$?D$?E?$????D$?E?$?C????E??D$?D$?D$
?E?$????????U????D$??P?T?\$?E?$?!???D$?D$?E?$?????D$?D$??G?E?$?*???
??U??S???E?E??E?E?}?x?E??U??.?E???9Es????M??E??U?
?ڃ?
???]???U??S???E????E??E??}?w?E??E???E??D?E?
?U??E
?????E?E?%?=?t ???E????‹E??? ЉE??e??E???@??u??E????ËU?????
Љ???? E?}??E??x?E???\?T9E?s??B?E?
E?}t"?}???w?}???v?}???w???}t?E?U??E??
?]???U??S??D?E??E??ẺD$?D$
?E?$?z???E?]??D$
?D$?D$?E?$?3???\$?$?T$?=????E?U?]??D$?????D$?????D$?E?$?????\$?$?T$?
????E؉U??D$?E?$??????EԺ?;U?E?}!?E???U???E̺;E??E?|?
??????????u?D$?G?D$?E?$????????E???U???E̺?
?M?9E??|??Å?u?D$?G?D$?E?$???????u?}??????M?U?
ʉD$?D$?$?h????EЃ}?u1?E?$?>????E?U??
???D$?T$?E?$?z?????G?E?+E䙉E?U?E?
?U??E?U?M?9E???w????E??U?D$?T$?E?$?1????
?]???U??S??D?EԉD$?D$
?E?$?q???E?]??D$
?D$?D$?E?$?*???\$?$?T$?4????E?U?]ԋE?U?D$?T$?D$?E?$?????\$?$?T$??????E??U??D$?E?$??????E܋E?U??????+E?U??1???????u?D$$?G?D$?E?$????????EԺ?
;E???E?}?????u?D$$?G?D$?E?$???????E?U?M?9E??} ????E??U?+E?U?????9??}?D$ۡG?E?$???????U??E?)‰Ѓ?
?E??D$ۡG?E??D$?E?$?
???E??U??E?
ЉE؋E??

E??]?}??????D$?EЉD$?E?$??????E?}?u?D$2?G?E?$?w????*?Eк?D$?T$?E?$?????E?
?E?;E?r??E??]???U???(?E?D$?E?$?????E??U??
?????;M?U?s?????u?D$?G?E?D$?E?$?Y??????E??D$?D$E?G?E?$???????U???8?E?$?m????E??}?
u?D$
?E?$?V????X???????D$?E?$?U???E?
?$?E?D$?E?$?$??????????$????E?
?E?;E?~ԍ??????$?A???
??U??S??4?E??D$?D$
?E?$?6???E??D$?E?$?
???E??U?}?y ?E???
?? ?
??E?U?]??E?U?D$?T$?D$?E?$?
???\$?$?T$?????E?U??;U?E?}!?E???U???E?;E??E?|?
??????????u?D$??G?D$?E?$???????E??U? Ѕ?u???E???U????;U?E??
?U?E?
????%?=?t????U?E?
????%?=?u?D$H?G?E?$????????}?yX?????E?@??t?E?@?$?Ӊ?E?@(??t?E?@(?$軉?E?$谉???U????D$׹???E?$蠮???????E??E??????
???E?e?
?E??D$ֹ???E?$?ݰ???E?E?@?E?E??$?????U?B?E?$?w????E??D$??G?$?r????E??D$?D$?????$?&????}??E???f?E??m??]??m??U??E?P$?E??V?E?@$?U??T$?D$?$ȮG?e?E??E???
?D$?E?$?w????E??D$?E?$?X????E??$肈?E?
?E?@9E?|??D$?D$չ???E?$謭???E??E?U??P?E?@?E??^?U?B?}?tr?D$Թ???E?$??????D$??G?E?$?׾???D$??G?E?$??&?E??D$ӹ???E?$?g????EԋE?D$?E؉$?E??ЉE?E؉$?(?}?t$?D$Թ???E?$?+????EЋE?$?E??ЉE?E?@?$?_?E?U܉P?E?U?P?E?$?l????E??$??????t?E??D$?$?????E??@?}?u ??W?E??????E??@,??t7?E?$?[b?E?@??t?E?@?$???E??@???E?@(?D$?E?$?!????E?@(?D$?E?$???E?$??a?E?$?z??????E???u1?E?P?@?D$?T$?E?$?????E?$?a?
??E???u7?E?P?@ Ѕ??????D$?E?$踲???E?$?sa?
?A?E???u*?E??@?\$?E?$?f????E?$??a?
? ?E???
u;?E?P$?@ ???E?P(?E??L$?T$?$蟮???E?$??`?
??
?E???u??E??D$ԯG?$?ճ???E??D$?????$?@????E?$?`?
?
?E???uJ?D$ԯG?E?$?"$?E??D$?E??$?|$?E??E?$?f`?E??$??%?E??+
?E????
?E?@(?D$?D$?G?$/?G?0a?E̋ẺD$?E?$???EȋẺ$谄?}?t?E?$??_????E??D$?G?$?ز???E??D$?????$薤???Eă}?uW?E??E?
?E??D$?D$?D$?U??T$?U??T$?$??????t?E?$?f_??7?E??D$?????$?Σ???E?$??_?
??E?$?-_???U???8?E?E?E?@ ?D$?$??G? `?E?E??U?T$?$?????E??D$?????$?\????E??U?T$?$?˭???E??D$?$?????E??U?T$?$?????E??U?T$?$莭???E??U?T$?$?ޯ???E??D$?D$#?C?$?????E??D$?????$?????}?tD?E??U?T$?$?+????E??U?T$?D$?????$?????E??U?T$?$?n????E??D$?$?[????E?$胂???U????}???E??D$?$?????E??U?T$?$?????E??U?T$?$莬???E??U?T$?$?ޮ???E??D$?D$#?C?$?????E??U?T$?$蹸???E??D$?$覞????U????}tG?E?@??t#?D$?E?D$?E?D$?E?$???????E?D$?E?D$?E?$??????U????}tG?E?@??t#?D$
?E?D$?E?D$?E?$?x?????E?D$?E?D$?E?$??????U??}u???E?@]?U????}t$?E?@??t?E?@?$???E?@?
???U???(?E?$?'??u ?E?E?E?D$?E?$?\?U?B?
???U??}u?
??E?@??t?
??]?U???(?E?$???????uI?E?E??E??D$?E?$?H\?E?E??U?T$?$虪???E?$?3??E??$?????
???U???(?E?$?f?????
??u????E?}?t?????;?D$?E?$?F?????t??????E??D$?D$?????$???????U???(?}u??g?E?E??E??D$?E?D$?E?$??????E?}?t?
?8?D$
?E?$???????t?
??E??D$?????$膜????????U??S??4?}u??????z?E??U?T$?$蠥???E??D$?????$?^????E?E?;EtA?E?$?R?ËE?$?R?\$?D$?E?D$?D$P?G?E?$????????????]???U????}u??????)?E??U?T$?$?????E??D$?????$?̖????U????}u???????????[?D$?E?D$?E?$???????t???????????1?E??U?T$?$衤???E??D$?D$?????$跚????U????}u?????V?D$?E?D$?E?$??????t?????2?E??U?T$?$?8????E??D$?D$?????$???????U????}u??S?D$
?E?D$?E?$?#?????t?
?.?E??U?T$?$?̣???E??D$?????$?n?????????U????}u??V?D$?E?D$?E?$??????t??1?E??U?T$?$?d????E??U?T$?D$?????$?D??????U????}u??W?D$?E?D$?E?$?P?????t??2?E??U?T$?$??????E??D$?D$?????$?ؙ?????U???(?}u??k?E?x?G?E?@??t?E???G?E?$?v????E??E??P?E?@$?T$?D$?E?$?P?E?E?D$?E?$??E?E?$?t?E???U???(?}u ???D$?E?D$?E?$?a?????t??`?E?$??????E?E?D$?E?$?rJ?E??}?t?E??2?E?D$?D$tpG?E?$?j?E?E?D$?E?$?I?E???U???(?}u ???E??D$?D$?$?Ԧ???E??U?T$?$?????E?$?=????E?E?D$?E?$??I?E??}?t?E??2?E?D$?D$tpG?E?$???E?E?D$?E?$??H?E???U???H?}u ???
?D$?E?D$?E?$??????t ??
?E?D$?E?$???E?E??D$?D$?D$?U?T$?U?T$?$?ұ????t6?E??D$?D$?????$?h????D$?E?$?#?????$
?E??_?E?@$?U?T$?D$?$?G?2N?E??E??ЉE܋E??U܉T$?$莑???E??U??T$?$?m????E??$?q?E?
?E?;E|??E?$??????E??E???E?P?E??T$?$貟???E???
??M? ?D$?T$?$?????E?@$?U??T$?D$?$?G?~M?E?E??U?T$?$?b????E??D$?????$??????E?$??p?E?
?E?;E?i????E???U????}t(?E??U?T$?$?????E??U?T$?$?l?????U????}t/?U?E??T$?U?T$?$?f????E??U?T$?$?/?????U???(?E?E??E?E?}t/?E??E??U?D$?T$?$?ۘ???E??U?T$?$??????U???(?E?E??E?E?}t(?E??E??\$?$?]????E??U?T$?$褦????U???(?E?E?}t)?U?E??T$?$?>????E??U?T$?$?g?????U????}t+?E?P?E??T$?$?ϝ???E??U?T$?$?.?????U???8?E?E??E?E?E?@ ?D$?$??G?K?E?E??U?T$?$?z????E??D$?????$?????E??U?T$?$?T????E??E??U?D$?T$?$芗???E??D$?????$?ȥ???E?$?n???U???(?E?E??E?E?E?P(?E??T$?$?????E??D$?????$?U????E??U?T$?$?Ę???E??E??\$?$?Ŗ???E??D$?????$????????U???(?E?E?E?P(?E??T$?$?r????E??D$?????$?ݍ???E??U?T$?$?L????U?E??T$?$?j????E??D$?????$?Ƥ?????U????E?P(?E??T$?$??????E??D$?????$?j????E??U?T$?$?ٗ???E??U?T$?$?ŗ???E??D$?????$?T??????U????E?P(?E??T$?$荛???E??D$?????$??????E??U?T$?$?g????E?P?E??T$?$?M????E??D$?????$?ߣ?????U??S??4?E??D$?????$?????E?E?;EtA?E?$?9H?ËE?$?,H?\$?D$?E?D$?D$ذG?E?$????????????]???U????E?P(?E??T$?$覚???E??U?T$?D$?????$?b????D$?E?D$?E?$?;?????t????????????E??D$?D$?????$?v?????U????E?P(?E??T$?$?$????E??U?T$?D$?????$??????D$?E?D$?E?$??????t??????E??D$?D$?????$蘏????U????E?P(?E??T$?$訙???E??U?T$?D$?????$?d????D$
?E?D$?E?$?=?????t?
??E??D$?????$? ?????????U????E?P(?E??T$?$?.????E??U?T$?D$?????$?????D$?E?D$?E?$???????t???E??D$?D$?????$?̏?????U???(?E?P(?E??T$?$谘???E??U?T$?D$?????$?l????D$?E?D$?E?$?E?????t ???E?@ ?U?T$?D$?$??G?TF?E?E??U?T$?$諠???E?$?????E??E?D$?E??$?@?E?}?t?E?$?i?E??=?E?D$?D$tpG?E?$?y?E?E?$?i?E?D$?E??$???E???U???(?D$׹???E?$?Ӑ???E?E?@??t?E?@?U?$?ЋE?$???????U??WS??P?$0?ni?E?E?ø??߉??E?U??E??@ ?E??D$(?G?$?'????E??D$?????$??????t%?E??D$?D$?????$?$????‹E?P ?E?@ ?P
?E?P ?E?@ ?D$?$??G??D?U?B(?E?@ ??M? ?D$?T$?$??????E??D$(?G?$?????E??@
?>?U?B?J???E??E?@ ?D$?$P?G?bD?E??E??D$?D$?WG?E??$?M???U??E??T$?$?j????E??D$?vG?$?????E??U?T$?$?j????E??D$
?D$h?C?$?????E??D$?????$?x????E?@ ?D$?$??G??C?E??E??D$?D$?WG?E??$??L???E??D$?D$?$?̚???U??E??T$?$??????U??E??T$?$?T????E??$??M???E??P[_]?U???(?}u??????=?E?@ ?D$?$??G? C?E?E??U?T$?$?????E?$?f?
??U????E?$??????U???(?}u??>?E??U?T$?$踔???E??D$?????$?v????E?}?u???
??U????E?E??E?E??E??D$d0V?D$??C?$??????E??}??E???f?E??m??]??m??E?`G???U???(?E?E?}u?E?}u!?E?$?e?E?+E?‹E???\?`G???E??E??‹E+E
ЋU?9?s??4?E?D$?E?$?f?E?}t?E??‹E+E
Љ‹E??E??U???(?}???E?$?c ?E?E?P?E???T$?$?c????E??
??M? ? ?D$?T$?$虍???E?P?E???T$?$?,????E???D$?????$?????E???D$?$?s?????U???(?}???E?$?? ?E?E?P?E???T$?$?Œ???E??
??M? ? ?D$?T$?$??????E???U?T$?$蔎???E???D$?????$?Q????E???D$?$?؀????U???8?E?E??E?E?}???E?$? ?E?E?P?E???T$?$?????E??
??M? ? ?D$?T$?$?T????E???E??U?D$?T$?$?7????E???D$?????$裞???E???D$?$?*?????U???8?E?E??E?E?}???E?$?p?E?E?P?E???T$?$?p????E??
??M? ? ?D$?T$?$見???E???E??\$?$?T????E???D$?????$??????E???D$?$?????U???8?E?E?}???E?$???E?E?P?E???T$?$?ϐ???E??
??M? ? ?D$?T$?$?????U?E???T$?$?Ў???E???D$?????$?Z????E???D$?$??~????U???(?}???E?E?E?D$?E?$??=?E?E??U?T$?D$?G?D$/?G?$??????E?$?a?E??$?
????????E?$???E??E?P?E???T$?$?ԏ???E???
??M? ? ?D$?T$?$? ????E???D$?G?$蟏???E???D$?????$?_????E???D$?$??}???
???U???8?$?ba?E?E???@?@?@?@?E?U??E?E܋E܉D$?E?$?<?U?B?6?U?B?E???U???8?E?$???E?E???D$?$?F}???E?P?E???T$?$踎???E???$?
}???E??E??E???$艈???u?E???D$?????$?????E??@$?U?T$?D$?$?G?]<?E??E???U??T$?$貖???E??$??_?E???D$?????$?|???E?
?E???U?T$?$?ܤ?????m????}t?E???U?T$?$?ߍ???E??G?E??@$?U??T$?D$?$?G?;?E?E???U?T$?$融???E?$?;_?E?
?E?;E?|??E???U????E?@?$?_?E?@??t?E?@?$??^?E?@?$?}6?E?$??^???U????}tU?E?P?E???T$?$?????E???U?T$?$?????E???$?????E???D$?????$耕????U???8?}??
?E??
?E??E??D$?T$?E?$?c??t1?E??D$?T$?E?$?e?E?E?D$?E?$?=????j
?E?P?E???T$?$?Y????E?D$?T$?E?$?q?E?E???$?z???E??E??E???$??????E?;E?|t?E?P?E???T$?$?????E?E???\$?$?????E???D$?????$?D}???E???D$?????$?T????E???D$?????$?z???E???D$?????$??y???E?
?E???U?T$?$?>??????K????E?P?E???T$?$?D????E?E???\$?$?F????E???$?????E???D$?????$诓????U??S??4?}u??????t?E???D$?????$?|???E?E?;Eu??K?E?$??7?ËE?$??7?U?J?U??\$?D$?L$?E?D$?D$x?G?$?I?????????]???U??S??4?}u??????t?E???D$?????$?!|???E?E?;Eu??K?E?$?g7?ËE?$?Z7?U?J?U??\$?D$?L$?E?D$?D$??G?$??????????]???U???(?}u????????????E?P?E???T$?$踉???E???$?
x???E??E??E??E???$肃????E?
?U??E???D$?????$??w???E???U?T$?$?+?????uNjE???$?w????t?E???D$?$?w???E??U???U????}u???????????1?E?P?E???T$?$?????E???D$?????$?̀?????U??S??$?E?E??E?E?}u???????????#?}?x?E??U???E?$?????M??]?
?ڋ]???U???H?E?EЋE?Eԃ}u ??????9
?EЃ?
?E??E?P?E???T$?$?@????E???$?v???E?E?D$?T$?E?$?F????E??E?
?E???$???????E?;E?u`?E???D$?????$?y???E?E???D$?????$?5v???E???$? v????t?E???D$?$?v???E??h?E???D$?????$??u???E?
?E???U?T$?$?9??????_????E???$?u????t?E???D$?$?u?????????U???H?E?EЋE?Eԃ}u ??
?EЃ?
?E?E?P?E???T$?$?????E???$?,u???E?E왉D$?T$?E?$??????E??E?
?E??E???$蓀???
?E?3E?3U? Ѕ????E???D$?????$?=x????tK?E???D$?????$??t???E???$?t????t?E???D$?$?t??????E???D$?D$?????$??|???E??E???D$?????$?Vt???E???$?*t????t?E???D$?$?,t???E??l?E???D$?????$?t???E?
?U??E???U?T$?$?V???????????E???$?s????t?E???D$?$??s?????U???H?E?EЋE?Eԃ}u ??W
?E???D$?$?s???EЃ?
?E??E?P?E???T$?$?????E???$?2s???E?E?D$?T$?E?$??????E??E?
?E???$?~????E?;E?ug?E???D$?????$?Vv???????E?E???D$?????$??r???E???$?r????t?E???D$?$?r???E??h?E???D$?????$?r???E?
?E???U?T$?$?ۚ?????X????E???$?Cr????t?E???D$?$?Er?????U??S??T?E?EЋE?Eԃ}u???????????N?E???D$?$??q???EЃ?
?E?E?P?E???T$?$?h????E???$?q???E?E왉D$?T$?E?$?n????E??U??E?
?E??E???$?}???#
?E??U?3E?3U? Ѕ????E??D$?D$?E?$?n?????tP?E???D$?????$?Aq???E???$?q????t?E???D$?$?q?????????????@
?E???D$?D$?????$?Ex???}??E΀?f?E??m??]??m΋E???D$?????$?p???E???$?p????t?E???D$?$?p???Eܙ???E???D$?????$?qp???E?
?U??E???U?T$?$跘??????????$?/???$??.?U?R?M? ?\$?D$?T$?EЋUԉD$?T$?D$??G?$?M????E???$??o????t?E???D$?$??o?????????????]???U??S??T?E?EЋE?Eԃ}u ??????EЃ?
?E?E?P?E???T$?$? ????E???$?So???E?E왉D$?T$?E?$?????E??E?
?E??E???$?z???
?E?3E?3U? Ѕ????D$?E?D$?E?$??????tJ?E???D$?????$??n???E???$?n????t?E???D$?$?n???????%
?E???D$?D$?????$??u???]؋E???D$?????$?|n???E???$?Pn????t?E???D$?$?Rn???E???E???D$?????$?3n???E?
?U??E???U?T$?$?y???????????$??,???$?,?U?R?M? ?\$?D$?T$?EЋUԉD$?T$?D$??G?$?????E???$?m????t?E???D$?$?m???????]???U??S??T?E?EЋE?Eԃ}u ???EЃ?
?E?E?P?E???T$?$??~???E???$?m???E?E왉D$?T$?E?$??????E??E?
?E??E???$?x???
?E?3E?3U? Ѕ????D$?E?D$?E?$???????tK?E???D$?????$?l???E???$?l????t?E???D$?$?l????&
?E???D$?D$?????$??t???E??E???D$?????$?Bl???E???$?l????t?E???D$?$?l???E???E???D$?????$??k???E?
?U??E???U?T$?$?????????????$?*???$?z*?U?R?M? ?\$?D$?T$?EЋUԉD$?T$?D$??G?$??????E???$?Xk????t?E???D$?$?Zk????]???U??S??T?E?EЋE?Eԃ}u ???
?EЃ?
?E??E?P?E???T$?$?|???E???$??j???E?E?D$?T$?E?$?????E??E?
?E???$?Mv?????E?;E????D$?E?D$?E?$??????tK?E???D$?????$?j???E???$?Wj????t?E???D$?$?Yj????!
?E???U?T$?D$?????$?r???E?E???D$?????$?j???E???$??i????t?E???D$?$??i???E???E???D$?????$??i???E?
?E???U?T$?$????????????$?a(???$?S(?U?R?M? ?\$?D$?T$?EЋUԉD$?T$?D$??G?$?????E???$?1i????t?E???D$?$?3i????]???U??S??T?E?EЋE?Eԃ}u ???
?EЃ?
?E??E?P?E???T$?$?oz???E???$?h???E?E?D$?T$?E?$?u????E??E?
?E???$?&t?????E?;E????D$
?E?D$?E?$??????tK?E???D$?????$?\h???E???$?0h????t?E???D$?$?2h???
?
?E???D$?????$?Sp???????E?E???D$?????$??g???E???$??g????t?E???D$?$??g???E???E???D$?????$?g???E?
?E???U?T$?$????????????$
?;&???$?-&?U?J?U??\$?D$?L$?E?D$?D$??G?$?????E???$?g????t?E???D$?$?g???
?]???U????}u??????D?E?P?E???T$?$?ix???E??U?T$?$裿???E???D$?????$?j????U???(?}u ???E?P?E???T$?$? x???E??U?T$?$?G????D$?E?D$?E?$???????t??O?E???D$?D$?????$?n???E?E???$??e????t?E???D$?$??e???E???U???(?}u ???E?P?E???T$?$?Tw???E??U?T$?$莾???D$?E?D$?E?$? ?????t??N?E???U?T$?D$?????$??m???E?E???$?Ce????t?E???D$?$?Ee???E???U???(?}u????????????E?P?E???T$?$?v???E??U?T$?$?ѽ???D$?E?D$?E?$?c?????t???????????U?E???D$?D$?????$?ml???E??U?E???$?}d????t?E???D$?$?d???E??U???U???(?}u ??????E?P?E???T$?$??u???E??U?T$?$?????D$?E?D$?E?$??????t?????O?E???D$?D$?????$?Nk???]??E???$??c????t?E???D$?$??c???E???U???(?}u ???E?P?E???T$?$?u???E??U?T$?$?V????D$
?E?D$?E?$???????t?
?M?E???D$?????$?k???????E??E???$? c????t?E???D$?$?c???E???U???8?E?E??E?E?}???E??U?D$?T$?E?$?8????E?}?t?E?D$?E?D$?E?$?b ?|?E???
?E??E?P?E???T$?$?t???E??E???\$?$?n???E???U?T$?$??o???E???D$?????$?}|???E???D$?$?4b????U???8?E?E??E?E?E?E؋E?E܃}???E??U?D$?T$?E?$?U????E?}?t?E?D$?E?D$?E?$???E???
?E??E?P?E???T$?$?3s???E??E???\$?$?5m???U؋E???T$?U?T$?$?m???E???D$?????$?{???E???D$?$?Ga????U???8?E?E??E?E?E?E؋E?E܃}???E??U?D$?T$?E?$?h????E?}?t%?E؋U܉D$?T$?E?D$?E?$???E??U??
???E?U?E?P?E???T$?$?6r???E???E?U?D$?T$?$?ml???E???E؋U܉D$?T$?$?Pl???E???D$?????$?z???E???D$?$?C`????U???8?E?E??E?E?E?E؋E?E܃}???E??U?D$?T$?E?$?d????E?}?t?E??\$?E?D$?E?$?7??E???
?E??E?P?E???T$?$?Bq???E?M? ? ?D$?T$?$?{k???E???E??\$?$?)k???E???D$?????$?y???E???D$?$?X_????U???8?U?E?E??E?E?ЈE܃}???E??U?D$?T$?E?$?}????E?}?t?E܉D$?E?D$?E?$????E???
?E??E?P?E???T$?$?Zp???E?M? ? ?D$?T$?$?j???U܋E???T$?$?^n???E???D$?????$?x???E???D$?$?o^????U???8?E?E??E?E?}???E???
?E?E?E?E?D$?E?$?V?E??E??U??T$?D$?G?D$/?G?$?x????E??$?1A?E??$?z?????u{?E?P?E???T$?$?_o???E???M? ? ?D$?T$?$?i???E???D$?G?$?-o???E???D$?????$?w???E???D$?$?t]???
???U???8?E?E??E?E?E???D$?D$?$?t???E???D$ԱG?$?%w???E?P?E???T$?$?n???E???$??\????E?U??E?
?E??E???$?_h????E??U?;E???E?|?E???D$ԱG?$?:n???E??U??
???M? ? ?D$?T$?$?kh???E???D$?????$?_???E???D$?????$?v???E???D$?????$?G\???E???D$?????$?0\???E?
?U??U?E???T$?$?v??????4????E???D$ԱG?$?~m???E???$??[????E?U?E???$?Rg???u?E?P?E???T$?$?>m???E???D$?????$?^???E???D$?????$?^???E???D$?????$?u???E???D$?????$?W[???U?E???T$?$襃?????m????E???D$??G?$?l???E???$?f?????U???8?E?E??E?E?E???
?E?E???D$?T$?E?$?o????E?P?E???T$?$?Pl???E???M? ? ?D$?T$?$?f???E???U?T$?$?"h???E???D$?????$?t???E???D$?$?fZ?????U???8?U?E?E??E?E?ЈE܋E???
?E?E???D$?T$?E?$?????E?P?E???T$?$?k???E???M? ? ?D$?T$?$??e???U܋E???T$?$?i???E???D$?????$??s???E???D$?$?Y?????U???8?E?E??E?E?E?E؋E?E܋E???
?E?E???D$?T$?E?$?????E?P?E???T$?$??j???E???M? ? ?D$?T$?$?e???E???E؋U܉D$?T$?$??d???E???D$?????$?9s???E???D$?$??X?????U???8?E?E??E?E?E?E؋E?E܋E???
?E?E???D$?T$?E?$?@????E?P?E???T$?$?!j???E???M? ? ?D$?T$?$?Zd???E???E??\$?$?d???E???D$?????$?r???E???D$?$?7X?????U???8?E?E??E?E?E??U??
???E??U?E??U?D$?T$?E?$?????E?P?E???T$?$?ii???E???E??U?D$?T$?$?c???E?P?E???T$?$?3i???E???D$?????$??q???E???D$?$?zW?????U???(?}??E??E?$?;??v?E?<_u?E??
?<_u?E?
?E?P?E???T$?$?h???}????E???D$?????$?\n???E??}?u?E?P?E???T$?$?gh???E???D$?D$?$?m???E???D$?????$?0v???E?P?E???T$?$?h???E???D$?????$??m???E???U?T$?$??c???E???D$
?$? f???E??E???T$?$?#f???E???U?T$?$?c???E?P?E???T$?$?g???E???U?T$?$??e???E???D$?D$#?C?$?}d???E???D$?????$??o???}?tG?E?P?E???T$?$?"g???E???D$?????$??l???E???D$?????$??t???E???D$?$?RU????U????}ts?E?P?E???T$?$?f???E???U?T$?$?b???E???U?T$?$?b???E???D$?????$?o???E???D$?$??T????U???(?E?E??E?E?}tz?E?P?E???T$?$?)f???E???U?T$?$?b???U??E???T$?U?T$?$?`???E???D$?????$?n???E???D$?$?=T????U???(?E?E??E?E?}tz?E?P?E???T$?$?e???E???U?T$?$?a???E???E??U?D$?T$?$?_???E???D$?????$??m???E???D$?$?S????U???(?E?E??E?E?}ts?E?P?E???T$?$?
e???E???U?T$?$??`???E???E??\$?$??^???E???D$?????$?em???E???D$?$?S????U???(?E?E?}tt?E?P?E???T$?$?zd???E???U?T$?$?g`???U?E???T$?$?b???E???D$?????$??l???E???D$?$?R????U???(?}???E?E??E??D$?E?$??E?E??U?T$?D$?G?D$/?G?$買???E?$?k5?E??$贴????uv?E?P?E???T$?$?c???E???U?T$?$?_???E???D$?G?$?lc???E???D$?????$??k???E???D$?$?Q???
???U???(?}u ??
?E?$???????
?E?E?@?U?T$?D$?$?G???E??E???D$?D$?$?h???E???U??T$?$?0k???E?P?E???T$?$?b???E???M? ? ?D$?T$?$??\???E???U??T$?$?sb???E???D$?????$?k???E???D$?$?P???E???M?I?D$?T$?$?? ?E?}?t:?E??$?3?E???$?`P????t?E???D$?$?bP???E??m?E??U??T$?$?h????E?E?U?P?E?@?U?T$?$?u ?E??$?P3?E???$??O????t?E???D$?$??O???E???U??S??d?E?E??E?Eă}u ????E???
?E?E?P?E???T$?$?4a???E???$?}O????E??U?E왉D$?T$?E?$?6????E؉U??E?
?E??E???$??Z????
?E??U?3E?3U? Ѕ???
?E??D$?D$?E?$?6?????tK?E???D$?????$? O???E???$??N????t?E???D$?$??N?????
?E?H?E??UĉD$?T$?L$?$?G?A?EԋE???UԉT$?$?h???E?H?E??UĉD$?T$?$???EЃ}?tT?Eԉ$?1?E???D$?????$?QN???E???$?%N????t?E???D$?$?'N???E??D
?E??UԉT$?$?*????E̋U??ẺP?E?@?ỦT$?$?7?Eԉ$?1?E???D$?????$??M???E???$?M????t?E???D$?$?M???E???E???D$?????$?M???E?
?U??U??E???T$?$??u?????????$????$??U?R?M? ?\$?D$?T$?E??UĉD$?T$?D$??G?$?[????E???$??L????t?E???D$?$??L????]???U???8?E?E??E?E?}?*
?E??U?D$?T$?E?$?????E?}?tL?E?D$?E?D$?E?$??E???$?SL???????E???D$?$?QL????E??U??
???E?U?E?P?E???T$?$?]???E???E?U?D$?T$?$??W???E?P?E???T$?$?v]???E???D$?????$?f???E???D$?$?K???E???$?K????t?E???D$?$?K???
???U???(?}u ??
?E?P?E???T$?$??\???E???U?T$?$??X???E???D$?D$?$?b???E???D$?????$?Ee???E?P?E???T$?$?\???E???U?T$?$?rX???E???D$?????$?\???E?@?U?T$?D$?$?G?@ ?E?E???U?T$?$?d???E?@?U?T$?$?"?E??}?t:?E?$?-?E???$?BJ????t?E???D$?$?DJ???E??w?E??U?T$?$?J????E?E?$??.?‹E?P?E?@?U?T$?$?M?E?$?(-?E???$??I????t?E???D$?$??I???E???U???(?}u ??
?E?P?E???T$?$?"[???E??U?T$?$?\????D$?E?D$?E?$???????t4?E???$?9I????t?E???D$?$?;I????2
?E?P?E???T$?$?Z???E??U?T$?$?ݡ???E?@?U?T$?D$?$?G?w?E?E???U?T$?$??b???E?@?U?T$?$?Y?E??}?t:?E?$??+?E???$?yH????t?E???D$?$?{H???E??w?E??U?T$?$?????E?E?$?-?‹E?P?E?@?U?T$?$?
?E?$?_+?E???$?H????t?E???D$?$?H???E???U???(?}???E?P?E???T$?$?_Y???E???U?T$?$?LU???E?P?E???T$?$?0Y???E???D$?????$??a???E?P?E???T$?$?Y???E??U?T$?$?:????E?@?U?T$?D$?$?G???E?E???U?T$?$?)a???E?$?S*?E???$??F????t?E???D$?$??F????U??S??$?$?t*?E?E???@?$?U*?‹E??E?]???U????E?@??
???E??T$?$?g*?U??E??E?@??
‹E??E?@?P
?E?P???U???(?E??>?E??U???
Ћ?E??E??@??t?E??@?U?T$?$?C*??u?E???E?
?E?@9E?|????U???(?E??4?E??U???
Ћ?E??E??@?U?T$?$??)??u?E???E?
?E?@9E?|????U????E?E?E?E??E??E??2?E??U???
Ћ?E?E?@?3E?3U? Ѕ?u?E???E?
?U??E?@??M?9E??|????U???(?E??!?E??U???
Ћ?E??E??$?????E?
?E?@9E?|ԋE??$?+(?E?$? (???U??WS??P?$0?i(?E?E?ø??߉??E??P[_]?U???(?E?E??????E?E???E??M?A?Q?E???U???(?????E?E??
?E?$?(??M?A ?Q$?E?P$?@ ??
?$??'?‹E?P(?E?P$?@ ?‹E?@(?T$?U?T$?$?'?E?H(?E?P$?@
???E???U???8?E?E??E?E???????E?E??
?M?E??U?A ?Q$?E?P$?@ ??
?$?H'?‹E?P(?E?P$?@ ?‹E?@(?T$?U?T$?$?4'?E?H(?E?P$?@
???E???U???(?{????E?E??
?E?$?'??M?A ?Q$?E?U?P(?E??@
?E???U???(?E?E??E?E??.????E?E??
?M?E??U?A ?Q$?E?U?P(?E??@
?E???U???(?E?E?E?D$?E?$??
?E???????E??E???E??U?P(?E???U???(?????E?E???E?P?E???T$?$?T???E???D$ԯG?$?_\???E???U???(?g????E?E???E?P?E???T$?$?S???E???D$ԯG?$?\???E???U???(?????E?E???E?$?&?‹E?P(?E???U???(?E?E??E?E???????E?E???E??E??X?E???U???(?E?E??E?E??????E?E???M?E??U?A?Q?E???U????E?@(??t?E?@??
??t?E?@(?$?$?E?$?u$???U??}?u??G?S?}u??pG?F?}u??G?9?}
u??G?,?}u?wG??}u?!?G??}u??vG???G]?U???(?E?E?E?D$?E?D$?D$?$??????E?E???$?.$?E??E?P
?E?D$?E?D$?T$?E??$?????E???U???(?E?E??E??D$?E?$?x????E?E???U??WVS???????????????DžX?????CDžh?????CDž`?????CDž\?????CDžl?????CDžp???6?CDžt???I?CDžd?????CDž|?????CDžT?????CDžx???^3D??????$??????????????0?lj?󥍅????$?R??????????????????????????? ??????????$??????????(??????????,????? ?????0?????$?????4?????(?????8?????,??????C?E??C?E??C?E?g?C?E???C?E???C?E?U???UĉP?UȉP?ỦP?UЉP?UԉP?U؉P?U܉P?U??P ?U?P$?U?P(?U?P,?U??P0?U?P4?U??P8?E?}???U??W??@?U???????E?`?C?EȦ?C?E???C?E?1?C?E?x?C?E?1?C?E??C?E???C?E??C?E?6?C?E???C?E???C?E??C?E?n?C?E?l?C?E???C?E?U???U??P?UĉP?UȉP?ỦP?UЉP?UԉP?U؉P?U܉P ?U??P$?U?P(?U?P,?U?P0?U??P4?U?P8?U??P?E??
?$??E??E??.?E??D$?E?$?????E?U?E?
‹E???T???E?
?E?;E|ʋU?E?
???E???U????E?$?????U????E?$?@?????U????}u???E?D$?E?$??????U????}u???E?$??????U???X?E??D$?E?$?
?E?$???
??U???(?}u ?E???E?$??E?E?D$?E?D$?E?$??????U???H?EȉD$?E?$??}
u?E?@(??'?E??$?????E?E?$? ??E?@?
??U???(?E?@??t ????}
u?E?@(????E?@$??uL?E??$?L????E??E??$?????E?E??$?????E?}??u?}?t?E?$?????
?{?E??$?????E?E?P?E?@$?T$?D$?E?$?s????E?@ ?$???E?P?E?@$?T$?$豽???U?B ?E?@
?q????D$?E?$?$????
??U???8?E?@??t ??
?}
u?E?@(
??g
?E??$?????E??}?tD?E?@$??u:?E???E??E??$?$????E?E??$?z??E?$?????
?
?E???
??t?E?@$??u ????E??}?t?E???E?E?$?'??E?
?E???
??tB?E?@??t3?E?@ ?E?E?$?????E??E??D$?E?$?$???t ?E?
??E?
?}?ts?E??$?_????E܋E?P?E?@$?T$?D$?E܉$??????E?@ ?$????E?@$?$?A????U?B ?E?@
?ڿ???D$?E?$?????
????U????E?@??t??e?E?@(??u?D$?E?$??????E?E?@(??u?D$?E?$?????%?E?@(??
u?D$?E?$?????????U??S??d?E?$?$????E??}?u ???E??$?????E?}?t?E?$?????????E??$?S????E??E???E?D$?E??$趪???E??D$b?G?E?$蔫???E??D$e?G?E?$?{????E??D$s?G?E?$?b????E??D$??G?E?$?I????E??D$??G?E?$?0????E??D$??G?E?$?????E??D$ȳG?E?$??????E??D$ҳG?E?$?????E??D$?G?E?$?̪???E??D$ڳG?E?$質???E??E??@?$?????E??}?t/?E?????t?E????$?v??E܋@?U???$?????}?tH?E??@
?E؋@?$?^??P
?E??@ ?T$?$????U??B ?E؋P?E??@ ?T$?$???}?t?E??@
?EԋP?E??P?}?t?EЋP?E??P?}?t?Eȋ@???‹E??P?}?t?E̋P?E??P?}?t^?E??@??t>?Eċ@?U??T$?$?ߴ???E??E??D$?E??D$?E??$?????E??$?r???Eċ@?D$?E??$?B????}?t!?E??@??t?E??@?$賹???ЋE??P(?}?t?E??@???‹E??P?E??D$?E?$?c?E?
?E?;E??B????E??$轂???
?]???U???(?E?$?D????E?}?u??$?E?D$?E?$?????E?E?$???E???U????E??U?T$?U?T$?U?T$?U?T$?U?T$?U ?T$?$?V????u??E??E??Z苶?E?E?@?U???
Ћ?E?E??$?n????E??}?u?E?$?ہ????E???u?E??@?????E??@??t)?$
衳???D$?D$ڳG?E?$?,????E??$?M????D$?D$b?G?E?$?????E????
?E??$?!????E܋E??$?k????E؋E??$?????EԋE??$?????EЋE??9E?t,?E???$?ɳ???D$?D$e?G?E?$耩???E܉$衳???D$?D$"?G?E?$?X????E؉$?y????D$?D$&?G?E?$?0????Eԉ$?Q????D$?D$??G?E?$?????EЉ$?)????D$?D$0?G?E?$?????E??????E??@?????E?@ ?$?????D$?D$s?G?E?$蚨???E?@?E??E??$?????D$?D$:?G?E?$?i????E?@?E??E??$?????D$?D$??G?E?$?8????E?@?$?V????D$?D$T?G?E?$? ????E???uq?E?@$??tg?E?$??????E̋E?@?E??E??$?k????D$?D$??G?E?$輧???Ẻ$?ݱ???D$?D$f?G?E?$蔧???E??????E?@$?????E??@???$??????D$?D$ȳG?E?$?K????E??@??
??t2?E?$??????$?V????D$?D$ҳG?E?$? ????N?E?P?E?@$?T$?$?????EȋEȉ$?????D$?D$ҳG?E?$?Ȧ???Eȉ$?L??E?@(??$?p????Eă}?t(?Eĉ$?ư???D$?D$?G?E?$?}????E?D$?E??$?l????
??E?
?E?9E???????E??$訒???E?E???u?E?$?????E??$?}}???E???U???8?E?D$?E?D$?E?D$?E?D$?E ?D$?E$?D$?E?$??????E?E?D$?E?$?L????E?$?M????U???(?E??7?E?@?U???
Ћ?E??E?D$?E??$?E?ЈE?}?t?E???E?
?E?9E?|????U???(??E??E??=?E?@?U???
Ћ?E?E?$?E?ЈE?}?t?E?D$?E??$?v?E?
?E?9E?|??E???U???8?/?E??E??E?E?@?U???
Ћ?E?E?$?????E?E?$?E?ЉE?E?D$?E??$? ?E?
?E?9E?|??E???U???(?E??N?E?@?U???
Ћ?E??E???E?E?$??????E?}?t?E?D$?E?$?????u?E???E?
?E?9E?|????U???(?E??N?E?@?U???
Ћ?E??E???E?E?$??????E?}?t?E?D$?E?$?W???u?E???E?
?E?9E?|????U???X?E?E???????E??E????E?@?U???
Ћ?E??E???E܋E܉$?O????E؋E؉$? ??EԋEԍP??E?
???EӀ}?/tm?E?D$?E؉$???????tX?E?$????E??E?
?Ẽ?
?E???U?E?
?????E?E?D$?D$tpG?E??$?????E?E?$?Α?E?$???????u?E?@?U??P??{?E?$? ????E?E?$?)?????t?E?@?U??P??J?}?u?E?@?U??P??0?E?@?U?T$?D$tpG?$?????E??E?@?U??P?E???U????E?$??????t??(?E?$???D$?E?D$?E?D$?E?$?X?????U???8?E?$?n??????@
?E?@$??
t ?D$?G?D$?E?$?8????
?E?@?@?E?E?@?@
?E??E?E?@?$?r?E?E?@??E??E??^?E??U???
Ћ?E??E?D$?D$tpG?E??$?????E܀}?t?E܋@?D$?E?$??(??E܋@?$?NJ???E?
?E?@9E?|??E?@ ?U?T$?D$tpG?$?????E?}?t?E?@?D$?E?$?|(??E?@?$?m????E?@?U?P?E?@?U?P?
???U???H?E?$????????
?E?@$??
t ?D$?G?D$?E?$??????
?E?@?@?E?E?@?@
?E??E?E?@?$??E?E?@??E??E???E??U???
Ћ?E܋E?D$?D$tpG?E܉$?????E؋E?D$?D$tpG?E܉$?????EԀ}?t!?EԋP?E؋@?T$?D$?E?$??&? ?EԋP?E؋@?D$
?T$?$?????E?
?E?@9E??Z????E?@ ?U?T$?D$tpG?$?????E?E?@ ?U?T$?D$tpG?$??????E??}?t!?E??P?E?@?T$?D$?E?$?V&? ?E??P?E?@?D$
?T$?$?????E?@?U?P?E?@?U?P?
???U????E?$?:?????t??D?E?$?(????E?$??????t??#?E?@??t?E?@??p????U?B?E?@??U???8?E?@?@?E??E?@?@
?E?@?@?@?E??E??@ ?E?E?@?D$?D$tpG?E?$??????E?E?D$?E?$?/z???E?E?D$?E?$?????E??E?$?nj?E?@?@?E܋E??$?????????E??$?????E؋E?$?'?????t?E?@?U??P??E܉D$?E؉$?W???u?E?@?U??P?`?E?@?D$?D$9?G?D$?E?$?????E?@?U??P?,?E܉D$?E??$?e
?E?@?U??P?E?@?U??P??U???8?E?E?E?$?s????????E?$?/????E?$? ?????t?E?D$?E?D$?E?$?O????E?$?-????????E???t2?M?E?P?E?@??L$?M?L$?M?L$?T$?$?!??E?@?U?T$?U?T$?$?????E?@(
?E?U?P0?E?U?P)?E??
?$?m??‹E?P,?E?P,?E
???U?E?@,?T$?U?T$?$?S????
???U????D$
?E?D$?E?D$?E?$???????U????E?$谋?D$?D$?E?D$?E?$???????U???(?E?$???????u4?E?D$?E?$?w???E?E?D$?E?$?????E?$?0??
???U????E?$??????u#?E?$?#??D$?E?D$?E?$?~????
???U???8?E?$?w????????E???t#?E?P?E?@??M?L$?T$?$? ??E?@?U?T$?$?z????E?$??????E?@(
?E??E??E??E??E??E?D$?D$gpG?E?$??G???E?$?ˊ?‹E?P,?
???U???H?E?EЋE?EԋE?$?????????E???t#?E?P?E?@??E??\$?T$?$?u ??E?@?E??\$?$?????E?$?#????E?@(
?E??E??E??E??E??E??\$?D$?pG?E?$?G???E?$????‹E?P,?
???U???(?E?E?E?$??????????E???t$?M?E?P?E?@??L$?T$?$?a??U?E?@?T$?$?Ǝ???E?$?Y????E?@(
?}?t?$wpG?i??‹E?P,??$|pG?S??‹E?P,?
???U???8?E?E?E?$?7?????u@?E?D$?D$tpG?E?$?[????E??E?D$?E?D$?E?D$?E?$?k????
???U???(?E?$???????u8?E?D$?D$tpG?E?$?????E?E?D$?E?D$?E?$?:????
???U???(?E?$??????u8?E?D$?D$tpG?E?$?????E?E?D$?E?D$?E?$?F????
???U???(?E?$???????u1?E?D$?D$tpG?E?$?c????E?E?D$?E?$?I????
???U???(?E?$???????u1?E?D$?D$tpG?E?$?????E?E?D$?E?$?????
???U???(?E?$??????u1?E?D$?D$tpG?E?$??????E?E?D$?E?$??????
???U???8?E?E??E?E?E?$?X?????u1?E?D$?D$tpG?E?$?|????E??E??\$?E?$?_????
???U???8?E?E?E?$? ?????u2?E?D$?D$tpG?E?$?-????E??E?D$?E?$??????
???U??? ?E??E??E??E??E??E?E??E??????E?U??U??P?U?P?U??P?U??P?E??U???8?E?$?d??????
?E??E?@?@?E?E?@?@
?E?$? ?E?E?@?U?P?E?$?????????E??E??E???E??U???
Ћ?E??E??t/?E?U?T$?U??$?ЈEߋE?$??????um?E߃?
??uC?E?
?E9E?~:?E?
?E9E?~?E???uE?E?U?T$?U??$?ЋE?$?q?????u'???
??E?
?E?@9E??^???? ?? ??????
???U???(?E?@$??
t?D$X?G?D$ ?E?$?????1?E?@?U?T$?U?T$?U?T$?U?T$?U?T$?$?o?????U??? ?? ????¸?L???9?r??E?E??E?E?E?E??E??????E?U???U?P?U?P?U?P?U??P?U?P?U??P?U??P?E??U??S??$?E??E?E??E??E?@?U?Z?U??J?U?R?\$?L$?$?Ћ]???U???h?E?$?????????E??E?@?@?EۋE?@?@
?E?$?O?E܋E?@?UۈP?E?$????????[?E??E??E??t?E܋@??
???$?f??E??E??E??E??o
?E܋?U???
Ћ?EԋE??t7?E?U ?T$?Uԉ$?ЈEӋE?$?H???????
?EӃ?
???
?E?
?E$9E??
?E(9E?|?E(????
?E?U ?T$?Uԉ$?ЉE̋E?$???????t!?}??y
?E?U?M̉L$?$???b
?}????E?
?E??u%?E?U?M̉L$?$?ЋE?$???????+
?E??tq?$?C??EȋE???@?@?@?EȋỦ?EȋUԉP?U?EȉP?U ?EȉP?E????E?
‹Eȉ?E?
?????
??E?
?E܋@9E???????
??E?????E??D$??D?D$?D$?E?$?Ӏ?E?$???????ud?E??7?E????E?
Ћ?EċE?Uċ ?U?L$?$?ЋEĉ$???E?
?E?;E?|??E?$????? ?? ??????
???U???8?E?@$??
t?D$X?G?D$ ?E?$?)????F?E?@?U?T$?U?T$?U?T$?U?T$?U?T$?U ?T$?U$?T$?U(?T$ ?$??????U??? ??????¸?L??9?r??E?E??E??????E?U??U?P?U??P?U?P?U??P?U??P?E??U???(?E?E?E?@?U?R?T$?U?$????U???(?E?E?E??U?R?T$?U?$????U???(?E?E?E?@?U?R?T$?U?T$?U?$????U????E?D$?E?$??]?????U???h?mj?E?E??D$??D?D$V?D?U?T$?$??????E?E?E??t?E??D?E??t?E?)?D?E ??t?E ?E??E??t?E?E?EԉD$?E؉D$?E܉D$?E??D$?E?D$?E?D$?E?D$?E??D$ ?E?$?????E???U???(?E?@$??
t"?D$X?G?D$ ?E?$??????8?E?@?U?T$?U?T$?U?T$?U?T$?U?T$?U ?T$?$???????U??? ?? ????¸?L???9?r??E?E??E?E??E??????E?U???U?P?U?P?U?P?U??P?U?P?U??P?U??P?E??U???(?E?E??$?}?E??E??U?T$?U?$?ЋU???E??P?E??P?E?@?U?R?T$?U?$?ЋU??B?E???U???(?E?E?E?@?U?R?T$?U?$????U???(?E?E?E?@?U?R?T$?U?T$?U?$????U???(?E?E?E?P?E??T$?D$?E?$?Y\???E??@??t ?E??$??{?E?$??{???U???h??g?E?E??D$?D?D$??D?U?T$?$?H????E?E?E??t?E?h?D?E??t?E???D?E(??t?E(?E??E$??t?E$?E?EԉD$?E؉D$?E܉D$?E??D$?E?D$?E?D$?E?D$?E??D$ ?E?$?????E???U???8?E?@$??
t"?D$X?G?D$ ?E?$?r?????F?E?@?U?T$?U?T$?U?T$?U?T$?U?T$?U ?T$?U$?T$?U(?T$ ?$???????U???(?E?$??????t??r?E?@?@?E??E?@?@
?E?@$??
t/?D$X?G?D$ ?E?$??????E?@?U??P??!?E?@?$??E??E?@?U??P?E???U???8?E?$?????E?E?$軘???E?@8?E?E?@4??
??t???E??E???E?@?U???
Ћ?E?E?@4??t;?E?D$?D$tpG?E?$?[????E?$??????tb?E?$??????p?E?D$?D$tpG?E?$? ????E?E?D$?E?$?z?E?$??????t?E?$辘???? ?E?
?E?9E??E????E?$蚘???E???U???(?$??E??U???
Ћ?E??E??$?E?Ѓ?
??t?E?D$?E?$?G????m?
?E?
?E?@9E?|?????U???(?E??E?E??U???
Ћ?E??E??@?U?T$?$?j??u?E?D$?E?$??????m?
?E?
?E?@9E?|?????U???8?E?E??E?D$?E?D$?E?D$?E?$?????E?E?D$?E?$?8??????U???(?E?$?aj?D$?D$?E?D$?E?$?o????E?E?D$?E?$????????U???8?E??E??E??E??E??E?D$?D$gpG?E?$?`'???E?D$?E?D$?E?$?]??????U???(?E?E?}?t?D$??G?E?D$?E?$?.?????D$??G?E?D$?E?$???????U???H?E?EЋE?E??E??E??E??E??E??E??\$?D$?pG?E?$?&???E?D$?E?D$?E?$???????U???(?E?D$?E?$?????E?E?D$?E?$???????U???(?E?D$?E?$??????E?E?D$?E?$?|??????U???(?E?D$?E?$??????E?E?D$?E?$?L??????U???(?E?D$?E?$??????E?E?D$?E?$???????U???(?E?$??????E?E?D$?E?$????????U???(?E??"?E??U???
Ћ?U?T$?$??????E?
?E?@9E?|Ӑ???U???(?E???E??U???
Ћ?$??????E?
?E?@9E?|ڋE??$?f?E?$?f???U???H?E?@?? t!?D$?D$??G?$???????E?$??B???E??E???E?D$?E?$?3C???E?E?$?w????E?}?tT?E??E??E??E??E??E?D$?D$ۼG?Eԉ$?]$???EԉD$?E?$??????E???E?
?E?;E??p??????U???8?E?$?c???E?}?ul?E?$?f??2?D$?$
??d?E??E?D$?D$?G?E??$??#???D$?E??D$?$?????E܋E??$?!e?E???E?$?0???E??}?ut?E?$?f??2?D$?$
?td?E?E?D$?D$??G?E?$?W#???D$?E?D$?$
?2????E?E?$?d?E?$?d?E??*?E??$??????E?E?$?ud?E??$?7???E???U???8?E?$??????E??}?t?E??$??????i??????E?E?$?@???E??E??DD?E??DD?E??DD?E?U???U?P?U??P?U??P?E??U??WVS??`?U???????E??eD?E??eD?E??hD?E??gD?E?3hD?E?jD?E?wiD?E??mD?E?nD?E??oD?E??pD?E?rD?E?trD?E?mD?E??rD?E?'jD?E??jD?EةkD?E?WkD?E?lD?E??D?E???D?E??D?E??D?E???D?E???D?E???D?E?'?D?E???D?E???D?E?p?D?E?_?D?E?3?D?E???D?E??D?E?
?D?E?H?D?E?ܶD?Eв?D?E???D???????$???????????E؋??????E܋??????E????????E?E?Í??????Q?߉Ɖ??E??p
[^_]?U??W??@?U???????E???D?E???D?E?c?D?EȌ?D?E???D?E?H?D?Eԧ?D?E???D?E?4?D?E??D?E?"?D?E??D?E?/?D?E???D?E???D?E?]?D?E?U???U??P?UĉP?UȉP?ỦP?UЉP?UԉP?U؉P?U܉P ?U??P$?U?P(?U?P,?U?P0?U??P4?U?P8?U??Pw$?}t?E?P?E?
‹E?@9??O??????
??U??E?
???E??D$?E??$????]?U??E?9?u ???E?E??X???T?E?????r?E?@????>?E????T????r?E?@??#?E??}??E???f?E??m??]??m??U??E?P?E?@?E?P?M??E?)???
‹E?P?
??U????E?E??E?E????T?E?????r?E?@????>?E????T????r?E?@??#?E??}??E???f?E??m??]??m??U??E?P?E?E??X?E?@??U??S??$?E??}t?E?@????t?E?@%
??t ???E?@??t?}u ???E?$??E?ËE?@?$??E9?r?E?@?U?T$?$?E?E?@?J?D$`G?E?$? ????E?}?u??'?E?@??t?E?@?$??<???E?U?P?E?]???U???(?E??E??}t ?E???u ??
?E?@??t?E?P?E?@9?r ??g
?E??y ??V
?E?P?E
Ѓ?
?E?E?@;Er?E??E?@
??(
?E?@??t ??
?}????v?E??x ?E?????????E
??E??E?@ ??tQ?E?@ ?U??M??L$?$?ЉE?}????E?@?U??$?ЋE?@?E????E?@?U??$?ЉE?}?u*?E?@?U??$?ЋE?@?E???M?E?@?P
?E??T$?D$?E?$?*C?E?@?U??$?ЋE?U??P?E?U??E?P?E?
???U??S??$?E??}t5?E???t,?E??E?@
ЉE?E?X?E?$?^C??E?P?
??]???U??? ?E?E?E?E?E?E??E?E??E????E?????????v?E?????E????]??E??e????E????T????????????U???h?E??E?@?]??E??E??E??E??E??E??E??E?f?E??????E????]??}u ??
?E??$?s
??u?E??$?r
=u?D$??G?Eʼn$??????E???E?@?E??E??E???z+?E?????u$?E?@?D$?D$?pG?Eʼn$?????E??q???E??\$?D$C?G?Eʼn$?`????E?E??D$?D$J?G?Eʼn$??????
u?E??E??\$?$?g?????u?E??\$?D$N?G?Eʼn$?????E?}?x?}?~ ???E??
?D$?E?$?????E?}?u??h?E??6?UŋE?
??8E?u ?U?E?
??.??U?E?
MŋE?
????E?
?E?9E?r‹U?E?
???E?P?E?
‹E?P?
??U????E??E??E????U?E?
???E???E?P
?U?? ?E?
?E?@9E?r?E?P?E?@
‹E?P?E??@ ?U?T$?$??????u ???
?E?$??????E?@??t???
?E?E?D$?E?$??????E?}?u ??
?E?P
?U??:?E?@??t?E?P
?U?? ?E?P?E?
‹E?P?E?D$?E??$??????u ??G
?E?$?2????E?@??t?
???E????t?
??
ЉE?E??
?D$?E?$?3????E?}?u ????E????t?E?P
?U??,?E?@??t?E?P
?U?? ?E???E?P?E?
‹E?P?E???E??}?? ????E?@??t?E?@??
???D$?E?$?????E?}?u??W?E?@??t'?E???E?P
?U?? ?E?
?E?@??
9E?r?E?P
?U??}?E???E?@?P??E?P?
??U????E??E??}u?? ?E?@?E???E?
?E???E??}?u?E???U????E??}u??&?E?@?E???m
?E???E??}?t?}u?E???U????}y???E?D$?E?$??????U???(?E??}t?}u ???E?@?E?}t=??E??E?}?tL?E?@ ??tB?E?@ ?D$?E?$?W#??u??'?E??E?}?t?E?@ ?D$?E?$?(?????uك}?t ?E?@ ??u???E???U????D$?E?D$?E?$?6?????U????D$
?E?D$?E?$??????U????E?D$?E?$??????????????U??E?U??E?U?P?]?U???(?E??}u??h?E?$?????E?}?u??M?D$(?E?D$?E?$??!?E??@ ?E?@??
?‹E?P?E??@?E?P?E??E???U????E??}t?}t?E;Eu??\?E?@?E??}?u?E?U?P?E?U?P?E??+?E??@??t!?E??@?U?T$?$??????E?@?U?P?
??U????E?D$?E?$?b?????U??E]?U???(?E??E??}t?}t?}t?E;Eu ???}t?E?$?????E?E?@???E??.?E?D$?E?$?????E?}?u??Z?E?@????E??E?@%??u?E?@ ??t?E?@?U?R ?$?ЋE?U?P ?E?U??P?E?D$?E?$??????U???(?D$?D$`G?E?D$?E?D$?E?$???????U???(?D$
?D$`G?E?D$?E?D$?E?$???????U????}u??"?D$`G?E?$?n????D$?E?$???????U???(?}t?}u??9?D$`G?E?$?/????D$?D$`G?D$?E?D$?E?$?7?????U???8???E??D$?D$`G?E?D$?E?D$?E?$???????t?E???E?$?????????U???8??E??D$?D$`G?E?D$?E?D$?E?$??????t?E???E?$??????????U???8??E??D$?D$`G?E?D$?E?D$?E?$?N?????t?E???E?$?q????????U???8?E?$?P???E??D$?D$`G?E?D$?E?D$?E?$???????t?E???E?$?????????U???H?E?E??E?E??E??$????E??D$?D$`G?E?D$?E?D$?E?$??????t?E???E?$?????????U???8?E?$?X???E??D$?D$`G?E?D$?E?D$?E?$?"?????t?E???E?$?E????????U???8?E?$????E??D$?D$`G?E?D$?E?D$?E?$???????t?E???E?$??????????U???8?G?E??D$?D$`G?E?D$?E?D$?E?$?k?????t?E???E?$?????????U???8???E??D$?D$`G?E?D$?E?D$?E?$??????t?E???E?$?7????????U??}t?}u??u?E?@9Et ?E?@?U???E???t?E??U?R?P?E?@9Eu ?E??E?P??E???u?E?@?U?R?P?E?@?E??E]?U????}y??$?E?D$?E?$?w????D$?E?$?=???????U????E?D$?E?$???????$?>????????U???(?E?D$?E?$?3??????E?E?D$?E?$?????????U???(?E?D$?E?$? ??????E?E?D$?E?$????????U????E?D$?E?$?z??????$?????????U????E?D$?E?$???????$?z????????U????E??}x?}u ???E?D$?E?$?=????E??}?u?E?D$?E?$?A????_?E?@9E?t?E??@??u??C?E?U???E??P?E?P?E??U?P?E?@9E?u?E?U?P??E?@?U??
??U????}t?E?@??t?}t?}u ???E;Eu ?
??E??E??E?P?E?P?E???t?E??U?P?E?@9Eu'?E?@?P?E?@9?u ?E?U?P?E?U?P?*?E?@??t?E?@?U??E???u?E?@?U?P?E??E?@?E?$????????
??U????}y??+?E?D$?E?$?????U?T$?D$?E?$?????????U????}t?}u ???E?@%??u?E?@ ??t?E?@ ?$????D$`G?E?$??????U?B ?E?@ ??u??C?E?@????‹E?P?E?D$?E?D$?E?$?^????U?T$?D$?E?$? ???????U????D$?E?D$?E?D$?E?$?$?????U????D$
?E?D$?E?D$?E?$???????U???(?$`G?3????E?}?t ?E??@?E???U???(?$`G? ????E?}?t ?E??@?E???U???(?$`G??????E?}?t ?E??@
?E???U???(?$`G?????E?}?t?}t???
?E?P?E???U???8?E?E??E?E??$`G?o????E?}?tl?E??@?E??E??X???T?E?????r?E??@????>?E????T????r?E??@??#?E??}??Eހ?f?E??m??]??mދU؋E?P?E???U???(?$`G??????E?}?tB?E??@?D$`G?E?$?????U?B?E?@??u?E?$??????????E???U???(?$`G?}????E?}?t?E??@
?E?$?]????U?B?E???U???(?$`G?@????E?}?t?E??@@
?E?$? ????U?B?E???U???(?$`G?????E?}?t?E??@
?E?$??????U?B?E???U???(?$`G??????E?}?tB?E??@??D$`G?E?$?????U?B?E?@??u?E?$??????????E???U???(?$`G?b????E?}?t ?E??@ ?E???U???(?$`G?8????E?}?t ?E??@@?E???U???8?E??E??E??E??}x?}u ???o????E??E??m?E???E
Ћ?E??E??$?+??????E??}?u?E?$?????????Z?}?u?E?U??P??E??D$?E?$?5????E??E?E?
?}?t?E9E?r??}?t?E?@??t?E?@?U??P?E???U???(?E??E??E??E??}x?}u ???????E??E??g?E???E
???$?J??????E??}?u?E?$?????????Z?}?u?E?U??P??E??D$?E?$?T????E??E?E?
?}?t?E9E?r??}?t?E?@??t?E?@?U??P?E???U???(?E??E??E??E??}x?}u ???????E??E??g?E???E
???$?i??????E??}?u?E?$????????Z?}?u?E?U??P??E??D$?E?$?s????E??E?E?
?}?t?E9E?r??}?t?E?@??t?E?@?U??P?E???U???(?E??E??E??E??}x?}u ????????E??E??g?E???E
Ћ?$?"??????E??}?u?E?$?;???????Z?}?u?E?U??P??E??D$?E?$?????E??E?E?
?}?t?E9E?r??}?t?E?@??t?E?@?U??P?E???U???(?E??E??E??E??}?V
?$`G?^????E?}??@
?E?@????‹E?P?E?P?E?P?E?@?E??X?E?@??t*?E?@?D$`G?$?????U?B?E?@?????E?@ ??tA?E?@%??t?E?@ ??E?@ ?D$`G?$?????U?B ?E?@ ?????}u?E???E?@?E??U?D$
?E??$????????E?}?ti?}?t?E?U??E?U?P?E?E???E?U?P?E?E?E???E??}?u??}?t?E?@??t?E?@?U?P?E??&?? ??????
??}?t?E?$?3????????U??E??P?E??(?E??< u?E??P
?E???E??P
?E??E????u?]?U??E??P?E??7?E??<*u?E???
??]܋E?+E???U܋E??\$?L$?M?L$?D$,?G?T$?D$?$??????????z?}??u7?E?+E???U܋E??L$?M?L$?D$p?G?T$?D$?$?????????=?U܋E??D$??G?T$?D$?$??????????E?$?????E?E?$??????]???U???(?D$?D$?E?D$?E?D$?E?$?v?????U??W??0?Uظ? ????EؚXE?E??ZE?E?(XEf?E?f?E?
f?E?f?E?f?E?
f?E???f?E??E??E???E?U؉?U܉P?U??P?U?P?U?P?U?P?U??P?U?P?U??P ?E?}???U??E?P?E9?r ????U?E
??<#t ???E?P
?E
?? ???L??L??x???)?)?
ƒ???????މ???D$??G?D$gE?E?$?`b???E?$?n????t-?E?$?n???D$?$tpG膭???E?$?o????Q???????D$?D$tpG?E?$??q???E?$?Nn????t?E?$??n?????D$??G?E?$?H?????l [^_]?U????H ????U????E?D$?E?$??????U????E?$?2?????U???(?E??2?E?@?U???
Ћ?E??E??D$?E?$??????t?E???E?
?E?9E?|ĸ??????U???(?????E?E?$?????E?E?D$?D$@?E?$?????E??D$??G?D$=wG?$蠰???E??E???E??E?
?????E??D$?E?$?????E??D$?E?$??????E܋E?$?cX????t?E?$??W???D$?$`pG?B????E?U܉T$?U??T$?D$?E?D$?E?D$?E??D$?E?$?????E؋Eؙ?$?T$?³????U???H?D$?D$?E?$?>???E??D$
?D$?E?$?|>???E??D$?D$?E?$?^>???E??D$?D$?E?$?;???E??D$?D$?E?$?=???E??D$?E?$??????E??D$?E?$?????E??D$?D$?E?$?:???E??E?U؉T$?U܉T$?U??T$?D$?E?D$?E?D$?E??D$?E?$? ??????U???(?D$?D$?E?$?K:???E?E?@?$蔯????U???(?D$?D$?E?$?:???E?E?@?$?`?????U???(?D$?D$?E?$??9???E?E?$?}??????U???(?????E?E???$?T$?ڱ????U???(?D$?D$?E?$?9???E?E?$????????U???(?D$?D$?E?$?W9???E??D$
?D$?E?$?^????t?E?$?D>???E?E?$?H????3?D$??G?E?$??v???E??E?D$?E??$?????E?$蟙????U???(?D$?D$?E?$?#%???E?E?$?S>????t?E?$??=???E?E?$?Ř???3?D$??G?E?$?Xv???E??E?D$?E??$?m????E?$??????U???(?D$??G?E?$?v???E?E?$?)????E??}?u???E??$?ė????U???(?D$??G?E?$??u???E?E?$?????E??}?u???E??$耗????U???(?D$??G?E?$?u???E?E?$??????E??}?u???E??$?????I?E?$? ????E??E??D$?E?$?????E??D$?D$??G?E?$??{???E?$??????U???(?D$??G?E?$?i???E??D$?D$?E?$?????E??E?$?1????t?E?$?0???E?E?$菋????E?U??P?E?$??????U???(?D$??G?E?$?i???E??D$?D$?E?$?N???E??E?$?0????t?E?$?0???E?E?$??????E?U???E?$茋????U???8?D$??G?E?$?h???E??D$?D$?E?$?????E??E?$?*0????t?E?$?/???E?E?$蜊???1?E??D$?E?$?T????E?E?$?????E?E?$臰
?E???U???(?D$??G?E?$??g???E??D$?D$?E?$?>???E??E?$?/????t?E?$?
/???E?E?$?????%?E??D$?E?$?z????E?E왉$?T$??????U???(?D$??G?E?$?kg???E?E?$???????U???(轛???E?E?$?/;???E??E???D$?T$?D$??G?E??$? x???D$ĥE?D$?G?E??$??t???D$>?E?D$?G?E??$?t???D$??E?D$!?G?E??$?t???D$٧E?D$?vG?E??$?xt???D$N?E?D$0?G?E??$?]t???E??$?m?????U???(?D$?D$?E?$?????E?E?$?!.????t?E?$?-???E?E?$蓈???*?D$=?G?E?$?&f???E??E??U?P?E?$??????U???(?D$?D$?E?$?w???E?E?$?-????t?E?$?-???E?E?$?????)?D$=?G?E?$?e???E??E??U??E?$?z?????U???8?D$?D$?E?$?????E?E?$?.-????t?E?$?,???E?E?$蠇???K?D$=?G?E?$?3e???E??E?D$?E??$?W????E?E?D$?E?$?VH?E?E?$?߇????U???(?E?$??8???E?E??D$?T$?D$=?G?E?$??u???D$ɩE?D$L?G?E?$?tr???D$֨E?D$W?G?E?$?Yr???D$P?E?D$f?G?E?$?>r???E???U???8?D$u?G?E?$?Wd???E?E?$????E??}??t?}?u?E?@?$?????3?E?D$?E?D$?E?$?\???E?E虉D$?T$?E?$??????U???8?D$u?G?E?$??c???E?E?$?x???]?E?$?? ????t,?E?$?3 ???E?E?$??????E??E?$?2 ???E???E??$??????U???8?D$u?G?E?$?jc???E?E?$? ???E??}?t?}??u ???}? t?}?u?E?$?????]??E??$?}????h?}?u?E?$????E??E?$舃???F?}? t?}?u5?EۉD$?E܉D$?E?$? ???E?Eܙ?D$?T$?E?$?̄??????U???8?D$u?G?E?$?b???E?E?$?????E??}??t;?}?t5?E?D$?E?D$?E?$????E?E虉D$?T$?E?$?Z???????U???(?D$u?G?E?$?'b???E?E?$?O???E??}? t?}?u?E?$????]??E??$?P???????U???(?D$u?G?E?$??a???E?E?$?????E??}?u?E?$?I???E??E?$?*???????U???H?D$?D$?E?$?????E?E?$?/)????t?E?$?(???EԋEԉ$衃?????D$u?G?E?$?1a???E??E?D$?E??$?i????E?E?$?D???E?}?t?}??u ???}? t?}?u?E?$????]??E??$?/????a?}?u?E?$?Y???E??E?$?:??????}? t?}?u.?EЉD$?E?$?????E?EЙ?D$?T$?E?$腂??????U???(?D$u?G?E?$?R`???E?E?$?????E?E?$?A????t,?E?$????E?E?$?q????E?E?$????E???E?$膀????U???(?D$u?G?E?$??_???E?E?$?&??????U???(?D$u?G?E?$?_???E?E?@?$?`?????U???8?D$u?G?E?$?_???E??D$?D$?E?$?? ???E??E?$?"'????t?E?$?&???E?E?$蔁???X?E??D$?E?$????E?$?(????t,?E?$????E?E?$?X????E?E?$????E???E?$?Ɓ????U???8?D$u?G?E?$??^???E??D$?D$?E?$?4 ???E??E?$?d&????t\?E?$??%???E??E?$?p2???E??D$?E܉$?'D???E??D$?E܉$?%B???E?$?%???E܉$?؀????E??D$?E?$????E?$?)????tY?E?$?
2???E?E?$????E??D$?E?$?C???E?D$?E?$?A???E?$?k???E?$?[????,?E?$?1???E??D$
?E?$?_C???E?$?-?????U???8?D$?E?$???E?E?@??t?E?@?E?E?$???E???D$u?G?E?$?>]???E??E??@?ȋE?P?E??L$?T$?D$?E??$????E?$?ˆ?E??$?????t,?E??$?l???E?E?$?4???E?E??$?k???E???E?$?????U???8?D$
?E?$???E?E?@??th?E?$?}0???E??D$?E??$?4B???E?@?E܋E܋@(?D$?E??$?&@???E?$? ??E?@?$?????E??$??~?????D$u?G?E?$?\???E??E??@?ȋE?P?E??L$?T$?D$?E??$?m???E?$蟇?E??$??
????tY?E?$?/???E?E??$?;???E??D$?E?$?bA???E?D$?E?$?`????E??$?#???E?$?~???,?E?$?`/???E??D$
?E?$?A???E?$??}????U???(?D$u?G?E?$?2[???E?E?$?????E?$??}????U???(?D$u?G?E?$??Z???E?E?$?o????E?$??????t,?E?$?X
???E??E??$? }???E?E?$?W
???E???E?$?}????U???(?D$u?G?E?$?Z???E?E?$?????E?$?????tY?E?$?Y.???E?E?$?????E??D$?E?$?@???E?D$?E?$?>???E?$?????E?$?|???,?E?$?.???E??D$
?E??$?????E??$?|????U???(?D$u?G?E?$??Y???E?E?$????E?$?|????U???(?D$u?G?E?$?Y???E?E?$??????t?$?z????$
??y????U???(?D$u?G?E?$?WY???E?E?$????E?$?"|????U???8?D$?D$?E?$????E??D$u?G?E?$?Y???E??E?$?? ????t?E?$?. ???E؋E؉$?2{?????D$
?E?$?2??E?E?@??t?E?@?E܋E?$?_??E???E?D$?E??$??????E?E??@?ȋE?P?E??L$?T$?D$?E?$?????E?$???E??$?M?????t,?E??$?????E?E?$?}z???E??E??$?????E???E?$??z????U???H?D$?D$?E?$?o???E??D$u?G?E?$??W???E??E?$?????t\?E?$?????EЋE?$?+???E??D$?Ẻ$?L=???EЉD$?Ẻ$?J;???E?$?????Ẻ$??y???G
?D$
?E?$??E?E?@??th?E?$?'+???E??D$?E؉$???E?D$k?G?E?$??\???D$W?E?D$|?G?E?$??\???D$??E?D$??G?E?$??\???D$??E?D$??G?E?$?\???D$+?E?D$??G?E?$?\???D$??E?D$??G?E?$?p\???D$??E?D$??G?E?$?U\???E?@??u?D$e?E?D$?vG?E?$?0\???E???U???(?D$?D$?E?$??????E?E?$??????t?E?$?j???E?E?$?np???.?E?$??????E??E??D$?E?$?????E?E?$??p????U???8?D$u?G?E?$??M???E??E??$?-???E?E?$?!???E?E?$?!???E?E?D$?E?$?0???E?@??D$?T$?E?$??1???E??=?E??U???
Ћ?E??E??D$?E?$?????E܋E܉D$?E?$?a0???E?
?E?@9E?|??E?$?o????U???H?D$u?G?E?$??L???E??E??$?]???E??E???E??U???
Ћ?E?E?D$?E?$?????E?E?$? ???E??E?D$?E??$??/???D$?D$?E??D$?D$?D$?E?$?????E?$?#????t?E?$????E܋E܉$?n????E?
?E?@9E??J????E?$?
o????U???h?D$u?G?E?$?L???E?E?$?d???E?E?$?????E??E?$?????E܋E܉D$?E??$??.???E??E??)
?E??U???
Ћ?E؋E؉D$?E?$?V????EԋE?$?p???EЋEԉD$?EЉ$?.???D$
?D$?EЉD$?D$?D$?E?$??????E̋E?$??????t?E?$?`???E??E??$?dm????Ẻ$??7???E??E??}?~?D$?D$?Ẻ$??F???E?E?$?????t?E?$?????EċEĉ$?
m???Q?}?t?E?
?EԉD$?E܉$?-???E?
?E?@9E???????E???D$?T$?E??$??.???E??$??l????U???X?D$u?G?E?$?;J???E?E?$????E?E?$????E?E?$????E??E??D$?E?$?--???E??E????E??U???
Ћ?E܋E܉D$?E?$?????E؋E?$????EԋE؉D$?Eԉ$??,???D$
?D$?EԉD$?D$?D$?E?$?????EЋE?$?+????t?E?$????EȋEȉ$?k???j?EЉ$?6???Ẽ}?~!?E?
?EЋ@?D$?D$??G?E??$?o/???E?
?E?@9E??????E???D$?T$?E?$?N-???E?$?qk????U???X?D$u?G?E?$?H???E?E?$? ???E??E??E??
?E??U???
Ћ?E??E??D$?E?$?@????E܋E?$?Z???E؋E܉D$?E؉$?+???D$
?D$?E؉D$?D$?D$?E?$??????EԋE?$??????t?E?$?J???EȋEȉ$?Nj????Eԉ$??4???E??E??}?~?D$?D$?Eԉ$??C???E?E?$?y????t?E?$?????E̋Ẻ$??i???-?}?t?E?
?E?
?E?@9E???????E???$?T$??j????U???X?D$u?G?E?$?IG???E?E?$????E??E??
?E??U???
Ћ?E?E?D$?E?$??????E??E?$?????E܋E??D$?E܉$?*???D$
?D$?E܉D$?D$?D$?E?$?R????E؋E?$?n????t?E?$?? ???E̋Ẻ$??h????E؉$?W3???E??E??}?~?D$?D$?E؉$?gB???E?E?$?????t?E?$?y ???EЋEЉ$?}h???+?}?t ?E??$??h????E?
?E?@9E?????????U???8?D$u?G?E?$??E???E?E?$????E??E?$???????t,?E?$?4????E?E?$??g???E?E?$?3????E?? ?E??D$?E?$?????E?E?$?Uh????U???8?D$u?G?E?$?VE???E?E?$????E??E?$?,???E?E?$?7?????tY?E?$????E?E?$?????E??D$?E?$?*???E??D$?E?$?(???E?$?y????E?$?ig???E?D$
?E?$?{*???E??D$?E?$?????E?E?D$?E?$??'???E?$?"g????U???8?D$u?G?E?$?oD???E?E?$??????E??E?$?^?????t,?E?$??????E?E?$?f???E?E?$??????E?? ?E??D$?E?$??????E?E?$??f????U???8?D$u?G?E?$??C???E?E?$?v????E??E?$???????tY?E?$????E?E?$?1????E??D$?E?$?X)???E??D$?E?$?V'???E?$?????E?$? f???S?E?$?V???E??D$
?E?$? )???E??D$?E?$?????E?E?D$?E?$?X&???E?$?e????U???H?D$?D$?E?$?????E?E?$? ????t?E?$?" ???EԋEԉ$?&e?????D$
?E?$?&k?E??E??@??t?E??@?E؋E??$?Sn?E???D$u?G?E?$?zB???E?E??P?E???T$?D$?E?D$?E?$?4????E?E??$?n?E?$?D?????t,?E?$?????E??E??$?td???E܋E?$?????E??-?}?u?? ?E?D$?E?$?????E?E?$??d????U???H?D$?D$?E?$?D????E?E?$?t ????t\?E?$?????E̋E?$????E??D$?Eȉ$?7'???ẺD$?Eȉ$?5%???E?$????Eȉ$??c???
?D$
?E?$?i?E??E??@??th?E?$????E??D$?Eԉ$??&???E??@?EЋEЋ@(?D$?Eԉ$?$???E??$?l?E??@?$?d???Eԉ$?`c???
?D$u?G?E?$?@???E?E??P?E???T$?D$?E?D$?E?$?j????E?E??$?8l?E?$?z?????tY?E?$?R???E܋E?$??????E??D$?E܉$??%???E؉D$?E܉$??#???E?$?????E܉$?b???f?E?$?????E??D$
?E?$?%???}?u ?E?$?xb???2?E?D$?E?$?????E??E??D$?E?$??"???E?$?Db????U???8?D$?D$?E?$?????E?E?$?D????t?E?$????E܋E܉$?a????D$u?G?E?$?F????E??E?D$?E??$?b????E?E??$?.?????t,?E??$?????E?E?$?^a???E??E??$?????E??-?}?u?? ?E?D$?E?$?????E?E?$?a????U???H?D$?D$?E?$?.????E?E?$?^????t\?E?$?????E؋E?$?j???E??D$?Eԉ$?!$???E؉D$?Eԉ$?"???E?$????Eԉ$??`?????D$u?G?E?$?">???E??E?D$?E??$?>????E?E??$? ?????tY?E?$?????E??E??$?d????E??D$?E??$?#???E܉D$?E??$?!???E??$?L????E??$?<`???f?E?$????E??D$
?E?$?@#???}?u ?E?$?`???2?E?D$?E?$?&????E?E?D$?E?$?x ???E?$??_????U???8?D$?D$?E?$?????E??D$
?D$?E?$?????E??E?$?????t?E?$?$???E??E??$?(_???u?D$u?G?E?$????E?$??????Eԉ$??J?????D$u?G?E?$?A(???E??E?D$?E??$?????E?E?$?????E?E??$??????tY?E?$??????E??E??$?u????E??D$?E??$? ???E܉D$?E??$????E??$?]????E??$?MJ???E?D$
?E?$?_ ???E?D$?E?$?X????E?E?D$?E?$? ???E?$?J???]???U??S??4?E?spG?E?$???????9??}?D$?D$?E?$?????E?E?$???????t?E?$?N????E܋E܉$?RI????D$u?G?E?$??&???E??E?D$?E??$?????E?E??$???????t,?E??$?2????E?E?$??H???E??E??$?1????E?? ?E?D$?E?$?G????E?E?$?SI???]???U??S??D?E?spG?E?$???????9??}?D$?D$?E?$?????E?E?$???????t\?E?$?O????E؋E?$??????E??D$?Eԉ$????E؉D$?Eԉ$? ???E?$?&????Eԉ$?UH?????D$u?G?E?$?%???E??E?D$?E??$?b????E?E??$??????tY?E?$?e????E??E??$??????E??D$?E??$????E܉D$?E??$? ???E??$??????E??$?G???S?E?$?????E??D$
?E?$?? ???E?D$?E?$?????E?E?D$?E?$????E?$?jG???]???U??S??4?E?spG?E?$?:?????9??}?D$?D$?E?$?????E?E?$?D?????t?E?$?????E܋E܉$?F????D$u?G?E?$?F$???E??E?D$?E??$????7?E?$?[Q???E??}?u???E??$?[????U???(?E?
?D$?D$?E?$?Ň?? Ѕ?t?D$?D$?E?$蘊???E??E?$?ͤ????t?E?$?;????E?E?$??????4?D$??G?E?$??????E??E??D$?E??$??T???E?$??????U???(?D$??G?E?$?????E?E?@??t?E?@?$?;???????U???(?D$??G?E?$?Y????E?E?$?'Q???E?$?$?????U???(?D$??G?E?$?%????E?E?$?oR???E?$???????U???(?D$??G?E?$??????E?E??@???$?h?????U???(?E?$軯???E?E??D$?T$?D$??G?E?$?????D$?D$?D$??G?E?$?????E??D$?E?$?q???E??E??D$?D$b?G?E?$?????D$r/F?D$=?G?E?$?
????D$0F?D$X?G?E?$??????D$?0F?D$??G?E?$??????D$2F?D$??G?E?$?????D$\1F?D$??G?E?$?????D$?2F?D$??G?E?$?z????D$?2F?D$I?G?E?$?_????D$?/F?D$?G?E?$?D????D$S3F?D$P?G?E?$?)????D$3F?D$??G?E?$?????D$/F?D$??G?E?$??????D$?.F?D$?G?E?$??????E???U??W???D$??G?E?$?#?????t??E??U??????E?D$?D$ ?G?E??$?????E??$?????b?D$??G?E?$?????E?E?;Et??E??U??????E?D$?D$ ?G?E??$?\????E??$???????}???U???8?E??D$?T$?E?$跉???E??D$??G?E?$?E?????t ??n
?D$??G?E?$??????E??}?
???D$u?G?E?$??????E?E?P?E???T$?D$?E?$??????U??E?$?~????t4?E?$????E??E??$??????U?B?E?$? ??????
???}?ud?D$??G?E?$?@????E?E?$?N???E?@$??u ???E?P$?E??E?P?E?P?E?@???‹E?P?
?]?}?uR?D$??G?E?$??????E?E?@??u??0?E?P?E??E?P?E?P?E??P?E?P?
????U????$?N
?E?E???@?@?@?@?E?$?΁???E?}?u?$9?G?????U?B?E????E??D$?T$?E?$蠁???E??E??}?ug?E??D$?T$?E??D$?E?$?r????U??E??U??‹E?P?E???E??E?
????u ?E??@
??E?
?E?@9E?|??E?
?}??f
?E??@
?E??D$?T$?E?$?????]??E?ٽv?????v?????f??t???٭t???۝p???٭v???ۅp????E????]??E??????????E???????u|?E??E??E??E??E??E?٭t???۝p???٭v?????p????D$?D$gpG?E??$??????E??$?
?‹E??E??$?4
?‹E?P?qDžx???Dž|????E??E??E??E??\$?D$?pG??x????$?\?????x????$?N
?‹E???x????$??
?‹E?P?E?
?}?
uN?E??D$?T$?E?$蓂???Eπ}?t?wpG??|pG?EȋE?Uȉ?Eȉ$?m
?‹E?P?E?
?}?u?E?D$?E?D$?E?$?u????E??E???
??t?E?@??u?
???Eǀe?
?}?t??E?$?|????D$?$P?G?;????E??E??$?????U?B?E??$?
?E???E???U????E?@??t ?E??$?
?E?$?
???U????D$??E?D$??G?E?$葚???D$F?E?D$??G?E?$?v????D$h?E?D$??G?E?$?[????D$??E?D$??G?E?$?@????D$??E?D$??G?E?$?%????D$-?E?D$??G?E?$? ????D$ĒE?D$??G?E?$?????D$|?E?D$??G?E?$?ԙ???D$͔E?D$??G?E?$蹙???D$??E?D$?G?E?$螙???D$?E?D$?G?E?$胙???D$??E?D$,?G?E?$?h????D$?E?D$5?G?E?$?M????D$??E?D$J?G?E?$?2????D$??E?D$]?G?E?$?????D$V?E?D$k?G?E?$??????D$U?E?D$y?G?E?$?????D$N?E?D$??G?E?$?Ƙ???D$??E?D$??G?E?$諘???D$&?E?D$P?G?E?$萘???D$F?E?D$??G?E?$?u????D$??E?D$??G?E?$?Z????D$??E?D$??G?E?$??????D$??E?D$??G?E?$?$????D$??E?D$??G?E?$? ????D$}?E?D$??G?E?$?????D$??E?D$?G?E?$?ӗ???D$? F?D$0?G?E?$踗???D$F?D$T?G?E?$蝗???D$H F?D$t?G?E?$肗???D$TF?D$??G?E?$?g????D$+?E?D$??G?E?$?L????D$ɆE?D$??G?E?$?1????D$?F?D$??G?E?$?????D$?F?D$??G?E?$??????D$?#F?D$??G?E?$??????D$?"F?D$??G?E?$?Ŗ???D$N%F?D$?G?E?$誖???D$? F?D$)?G?E?$菖???D$h?E?D$F?G?E?$?t????D$??E?D$R?G?E?$?Y????D$?E?D$\?G?E?$?>????D$e?E?D$j?G?E?$?#????D$??E?D$t?G?E?$?????D$?E?D$??G?E?$???????U???(?E?$莮???E?E?$?????E?$諰????U???(?E?D$?E??D$?E?$?/?E?}?u???E??t?E?$?S
???E???U???8?E??E??E?$?
?E??}?
t ??
?D$ېG?E?$??
?E?}?u ??m
?D$?D$?E?$??
???u?E?$?s
??8
?E?$??
?U??E????u?E?$?D
??
?E???u?E?$?&
?$spG??
???D$?D$?E?$?Z
???u?E?$??
???E???
?$?
?E?E??‹E?D$?T$?D$
?E?$??
?E?}??E?$??
?E?$?
??Q?E??E???U?E?
????u?E?
??E?
?E?9E?|ۋE??‹E?
???E?$?4
?E???U???H?EȉD$?E?$?)čD$???EԋE?+E??
?P??UЉ¸??

й???k??}>)čD$???E̋E?+E???
???E??U???

ЉL$?D$?Eԉ$?n
?E?+E??P??E???E?+E??
???E??E?
ЉL$?D$?Ẻ$?6
?E?+E?P??E???ẺD$?E?$???EȋE??UȉT$?UԉT$?D$-?G?$?@?U??E??U܃?

‹E??Eȉ$?
?
?E?E??E?
???k0V8???????E??
??t?E?E??E?
??????E?
??????????܋]???U??VS??@?????E??E??E??E??E???E?
?E??E?
??< t?E??E?
????u ??d
?E??E?
???j0V8?u/?E?
?E??
?E??E??E?
???l0V8?uO??
?E??E?
???l0V8?u-?E???
??t ????E?E??E?
??E??
??t? ?E?
?P???????E?+E??E??}? ???E???
?P??U܉¸??

л???k??<)čD$???E؋E??U? ?U?
ʉD$?T$?E؉$?
?U؋E?
??? L`G?L`G?E??]؉\$?L$?T$?D$8?G?$?%?U??E??E?
‹E??
??e?[^]?U??S??D?????E??E??E??E??E??E??E?
?E??E?
????u ??
?E??E?
??< u ?E??E?
?? ?E??E?
???h0V8?u/?E?
?E??
?E??E??E?
???l0V8?u???I
?E??E?
???l0V8?u<?E???
??t ??
?}??E?E??E?
??E??
??tO?C?m?
?(????E??E?
???k0V8??????E???
??t ????E?
????????E?+E??E܃}? ???E܃?
?P??U؉¸??

й???k???9)čD$???EԋE܋U? ?U?
ʉD$?T$?Eԉ$??
?UԋE?
???E??UԉT$?D$H?G?$? ?U??E??E?
‹E??
?܋]???U???8?E?E?E?D$?E?D$?D$
?E?$?J?????
?E?E?$?
?E??}?u ???E?E?U?E?T$?U?T$?D$?E??$?????}u?E??E?]?E?$?
?U?
ЉD$?E?$?
?E?}?u?E??$??
??&?E?E?E??D$?E?$?
?E??$?
?E??U???(?U?E?U?E??}?t?E??D$M?G?$??????U??E??P
?E????U???? L`G?L`G?E??L$?T$?D$P?G?$?????U??E?
???U??S??
?E??E??u ?spG??E??E??E??E??E??E??E?ƅ????U?E?< u-?U?????????T$?D$?E??D$?E?$???????E?<"up?E???
??te???????
??t3? L`G?L`G?E??L$?T$?D$^?G?$??????E?ƅ???
??E??D$n?G?$?????E??E??
?E??E?<\u"?E??
??i0V8?u?E??
?E?x?E??i0V8????E???
?????E??
?<\t.?E??
?? 2V?E???D$?T$?E?$?шE??E׉$???????D$?E?$????????0V9E?u@? ?1V?E???D$?T$?E?$?щEЋEЉ$??E̋ẺD$?E?$????????E?
?E?;E??f????E???U???X??1V?U?$?ЉE??s????E??E??
? ?1V?E???D$?T$?E?$?щE? ?1V?E???D$?T$?E?$?щE䡈0V9E?u9? ?1V?E???D$?T$?E?$???]??E??\$?E?D$?E?$?l???????0V9E???? ?1V?E???D$?T$?E?$?щEԡ1V?U??D$4?G?$?ЉEЋEԉD$?EЉ$?:???u?E?D$?E?$????????EԉD$?E?D$?E?$?J???????0V9E?u:? 2V?E???D$?T$?E?$?шE??EωD$?E?D$?E?$?:???????0V9E?uG? ?1V?E???D$?T$?E?$?щEȋEȉ$?4?EċEĉD$?E?D$?E?$????????E?
?E?;E??P????E???U????E?$???t ?E?$?
?????E?$?+?????U??S??D?E???0V?D$?D$?U?$?ЉE衄0V9E?u6??0V?D$?D$?U?$?ЉEԋEԉ$?t??????E?????0V9E?u6??0V?D$?D$?U?$???]??E??$???????E????0V9E?u4??0V?D$?D$?U?$?ЈE??E?$???????E??_??0V9E?u0??0V?D$?D$?U?$?ЉE?E?$?????E??%??0V?(2V?U?$?ЉD$?$??G?????E?
??0V?D$
?D$?U?$?Ћ ?0V????1?1? Ѕ?t ??0V?D$
?D$?U?$?ЈE?42V?U?$?Є?t?02V?U?$?ЉE̡?0V?Ủ$???]?E??}?t?E?$?"??????E???E?$?4??????E졠0V?U?$?ЉEЋE?$???????E?$???EЋ]???U??S??T?E???0V?D$?D$?U?$?ЉE衄0V9E?u6??0V?D$?D$?U?$?ЉEԋEԉ$?A??????E?????0V9E?u6??0V?D$?D$?U?$???]??E??$?g??????E????0V9E?u4??0V?D$?D$?U?$?ЈE??E?$????????E??_??0V9E?u0??0V?D$?D$?U?$?ЉE?E?$?}????E??%??0V?(2V?U?$?ЉD$?$??G???y
??0V?D$
?D$?U?$?ЉEС42V?U?$?Є?t0?02V?U?$?ЉEċE?$?=???????0V?Uĉ$???
?E?
??0V?D$?D$?U?$?Ћ ?0V????1?1? Ѕ?t ??0V?D$?D$?U?$?ЈE?42V?U?$?Є?t0?02V?U?$?ЉEȋE?$親??????0V?Uȉ$????E??}?t?E?$?}??????E???E?$菿?????E?E?$?U??????E?D$?EЉ$?}
a??$?|
??RS?*?lj????? f?DŽ$m|
parsDŽ$q|
e_toDŽ$u|
_bytDŽ$y|
es.lDŽ$||
lua??$~w
?LSS?????L??L??x???)?)?
ƒ???????މ??DŽ$iw
requDŽ$mw
ire_DŽ$qw
overDŽ$uw
loadDŽ$yw
.luaƄ$}w
??$w
?????t&??E???????@?&????t&????T????T?Z????}ԍt&?s?;???@??@???????@????Trً}???????D$?$??T?A??????9?r1?9<$r˽
?čt&??u?
1???lj?1????Ƌ$????렍?&?? ???)??????? ???????T$??$????? Չډ??t$?Ӊ???9?r?<$????9?s9?u??
1?????????????UWVS??,?T$D?D$@?D$?L$H?\$L?օ?y???D$???????ډ։߅?y ?ك??ۉ߉ˉŅ?u9?s_?????1???t&???9?s"?lj??D$??t?߃??݉????,[^_]Ív?ǃ??D$u<9???9????ω???????u?
1????É?1??????늍t&??D$? )‰?????щT$?? NjD$?|$?????????\$????????ىlj???? ????t$?????d$?ʼn?9?ru9?s+D$T$?щ?)?ˋT$?L$?????????? ??݉????????)?????7??????UWVS???D$?ƒ???w?$?\?T?L$????Ã???T?$?[???????uNjT$H??G
??u???붋D$(???D$??????
???D؋D$(???[?????D$H?????D$??i??D$X?D$Te?D$??t ??0??D$(???D$\?D$c?|$X%
?D$h??D$(@t?$跻???O?D$??t?$迼8D$T?? ?D$P??????|$c??????t"?t$ ?????>????O????? ?T$4?D$?????Ã???? 1?????)ǍCЃ? ???|$\?U?????$??t$?D$T8D1??l????CՃ???`????t&??t$?T$|????????$??0?F
?D$?p????D$x?D$4?‹D$?x????ǃ???3???t$?|$4???????W??????t??
u????????X?? w???$?T?T?L$(?D$8 ?D$x?D$4?‹D$?????ǃ?????@??D$???????????0???????D$??$??x
??????t$|?ǃ?
???????T$4?80??$??D$?????Dž???T$8?????l$?|$
u??$????+?????D$
???t3?D$x?X??D$??
???L$?\$x???|???
????$??t$|??t$???????l$(??$????0????D$???? ???D$8?$?D$??$??D$?]??F??;?$??[?????u#?\$H???l?L$u։???????F?L$(?V?D$4?l????F?L$(?V?D$4?T????F?L$(
?V?D$4??????|$L?ߋD$????????D$L?t$$??X
??t"???t??)?9T$Dt?T$?$?7???t??D$,
?\$L?D$$?W?????????????t$??$??T$|???c????L$T?D$\
??$??0?F
?D$?D$c
?#????ߋD$????????D$(@t?|$??????t$|??t$??$????????0?É?$??D$(?Ɓ????$????D$(?D$?$???<??????$?9??H????|$d-?\$?D$u???l$H?????t$???D$T??uɉ??D$
??
??$??D$?D$??$??D$?D$@?$辪???t??l$X?D$@?????L$$1?
?L$D
ɍ9T$@?e????t$@?͉މˍL-?$?L$???????T$$?ىl$D??1?t$@?
ȉD$@?$????L$8? ??EщT$8????s???k?D$(%
?D$X?؉????c?t&?CЃ? ???C?9D$8|]?D$?ƃ?
?D$??$??T$|????????T$4?0??$?1?????)NjD$?????Ã??t??t?|$8u??$????u??ߋD$???????D$( t?<$??<(?-1?L$4?T$???,$??????????|$8 u??D$X??t??t$ ??????O????9?um?ډ|$T??l$4?.?t&?????D$???????ƒ??t3?>??
??9???????
?>ű|$T?݉ӋD$??O??p???????݉É??|$T?@
??t݉?9t$ ?!???1??L$4?T$?^??$???6???9\$ ???|$???&???T$x?L???
???D$ ??
9??w?D$x?M?P???
uƋ?$?T$T?D$谬?T$T?T$x???????j????݋|$T???W????|$d?;????D$D?t$L?ލ?ˉ\$?$蘫?Dž????D$$?ى?t$L?8?D$D?L$D
??????t$H?????D$???D$T??uɉ??E
?M?l$X??u???뵉߃????????D$x?X??D$??
???L$?\$x???|???
???????|$H???b?D$????D$D??
9?s???????????D$(??????D$$1ɉL$$?f?D8??D$,??
?????t&W?S?????)?1??㋔$$??󫋄$ ??$(?$???V?????[_Í?&??W?S?4????)?1??㋔$$??󫋄$ ??$(Ƅ$
?$?????????[_Ð????VS??$?D$4?t$0?T$8?L$?ËD$?D$@? 0?T?D$P???%$?T???????,???????@????؍??D$8????D$ ?$?`n?D$0?$?Tn?D$,?$?Hn?<$?@n?????v?w
????j?D$0?
????t&???
???tM8 t??D$0??????&?t$0?D$l)?
ƅ?~???????????????&??????????v??
‰?$?????]
?HЉ\$01??D$P?? w,?L$8??$???
???6 ?F
??$??F
?HЃ? v??D$8
??????v??$??D$L??$???????t&??D$X
??$?????$???$??@???????&????????????T??1??t&??D$$????%??? ?????D$$?D$ ?????7
????????\$ ????؃??D$$??%????? ??????D$$?D$ ??
????????????1?1??t&???
t?Š?T?
??
??u????????????0?? ??f??΃?
??$??
??0t?)֍~
?Pσ?? ??0??$??D$0
?D$8?G
?D$P??D$@?|$8???G1??D$@?e????D$d?P
??$??H
??????????^????D$d
?ً?$??|$?$??p
?$???$???????$??D$??T?$?x???????D$??T?$??$?
?gx??u??$?
DŽ$???$???$???$??@??
??N????t$0?D$l)?
ƃ?????މ???t?D$ ?4Š?T?\$ ???????????????????T??1??t&??D$$????%??? ?????D$$?D$ ?????
????????\$ ????؃??D$$??%????? ??????D$$??
???????????D$ 1?1????t&???
t??`?T?
??
??u???????b?????$???$?DŽ$???$??@?D$ ??
???$??8(??????$??$?D$??$??D$?c??$??????t&???<???D$,?<$?D$??u? ?T???l
?؅??:???D$X1??T$@DŽ$? ?\$P?D$4???????3 ?P??$??J?9N~???L????T???9??6????l$8???J??$??L$H??
9ȉ?$??????D$8?????t&?D$?D$ ?$?n?t$l?D$ ????????D$p?D$?D$0?$?\l?D$0??????v?D$p)؋\$L?*?????D$
?$?m?$??$?
??$?
??$??qh?4$?ih??$??$?za?D$8?D$4???????&f??؉$?D$?"`??????t&??$?T??
????????ɉ?$?1???
?????T$P?(?T???ټ$???$???f??$??D$h٬$??T$X٬$??D$X?T$@???T$P??
?i?????????r???D$4??????v?$?D$?l???????t&???????????-?T?D$P?????????????$? ?$??l$ ???D$8??????$???$???,$?g?D$0?$?g?D$,?$??f?D$t?$??f?<$??f??$???$?9X???@?D$ ?????)?????
????$??$?f??$???$?DŽ$?DŽ$??@???$???$??0?F????
?9?$?s?D$??$??D$??$?~??t? )??k????l$8??$????5?????$??х????r1???$????????
? ȃ?0?+?????$????????&?D$4)??D$?D$ ?$?]?????t&???1?DŽ$?!?T$@?D$X?\$PDŽ$? ???????)Ë?$??\$?$?yj)?$???$???$???????$???$??A?A?8??ADŽ$?P?{??$??"?'?????&?????D$P?D$X?\$@?G?????&?$?D$
?\?$??$?
??$?
?d?4$?d?L$4???+????l$ ??$??\$H)É\$8???S?????$???D$8?$?D$?zi??$???$??\$8?D$8)؉?$??????D$H????
~?t?1Ƀ?
??????9???????$??l$ ??
??$??D$H?D$?$??$???????$??????D$8??$?DŽ$???@?Zz??$??"??$??@??
??q?????&f??D$,??1??D$@???????&?D$X?#????v?D$4?R????v???؅?????????D$P???????????$??D$X
?0?D$X)؉?$??\$@?m????t&????؅??\??????D$P????w??K????D$d?D$??$??D$??$??D$??$??D$??$??$??P??$?????????$???$???$???t??$???$????$??????D$8?????D$\?D$8
??$??????l$ ??????$??T$$?D$
?D$?D$h?T$?D$?D$ ?$??????D$P?D$0?????t$0?%?L$l)?9??2)?
???????N9?N։T$L?U?????
?l$ ???????$??n????D$d?????????????D$d?????????????l$ ????DŽ$?!?|$@
?*????\$\9?$??????D$8
?????<$?D$
?Nf?NjD$,?<$?D$?|g???????1???$?DŽ$??D$8?D$H)?$???????l$ ????
?t$8??????$???$??ʍF????? ???x????9?r?????D$H?\$\?F
?F
DŽ$?
?D???$??D$8DŽ$?!??????\$H?$)؉D$?=X??????D$0??
??
??\$L?\$0?|$X?P??|$@?D$`?D$,?l$\? ?@f?T$????v?$??l??uD?D$T???\$(???|$/??t?D$T?(??uE??<-?r????Љ??؃??ډщ??^?????&??W?r????T$X?T$$??0???%????t&??k???????????"?????D$$?D$X?Đ???????????WVS?Ã?`?l$p???|$P??????
t$?????|$0??|$81????&f??|$ ?|$(??uR1?1??t$H????t$|?>?t$L?T$?T$H?T$?T$P?t$?\$?L$?T$?D$?$?`G?:*??`[^_Ív??@t+??ÿ??롍?&???D$H1?1?딍?&????
f%?f->@??m?????&?t&S?Ӊ????R??@u?C 9C$~??? u?S ??C ??
?C ??[Ít&??D$?$??j?C ??
?C ??[Í?&??&UWV??S?˃?L?D$?|$0?D$(?D$?D$?<$?d?C9Ɖ?Nօ??CI?9????F??C?????D$???
?t&??D$?D$?L$(?L$?@??<$?D$?_d?????,????S ??C ??
?C 9?t7?S??
??@u?C 9C$~??F???? tωL$?$??i?C ??
?C 9?uɋL$?A???t7?D$?r???)??C?Ct8?F??D$???X????k
?t&?ڸ ?????C?P??S????L[^_]Ã?
?C??&f??ڸ ?T????C?P??S??u?F??D$?????????C????붍?&??UW??V??S?˃??A9‰?Nօ??AI?9????A?????n??????C????C ?
?S ?
??
)??S
?
?tD?C??
??@u?S 9S$~??V???? tƉ$?L$?h?S 뾍t&??C ? ?S ??
?S ?C?P??S??~3?C??@u?S 9S$~݋?? t̉T$?$ ?dh?S ???C??????[^_]Í?&?)??C?‹A??u9?B??A?v?ڸ ?????C?P??S??u?n????t????C?????t&?n?????????k
?d????t&V??S?Ã????p?TD؋B??x&?$?D$??^????‰?[^?z?????&?v?$??h????‰?[^?X?????&?U??W??VS???A?????Y??uW?+??
uR??@t`? ?T$ ?t$?D$?? 1????? ؈ ??
??u?????)????????[^_]Í?&??-?D$?T$ ?t$붍t&??t$???U??W??V??S???K??@u?S 9S$~ދ?? tʉD$?$ ?bV?S ?C?f??‹D$????????4$????$[^Ít&?WVS?Ã? ?P???????l$0?D$?L$?D$??<$??????|$?Ɓ???????C%???|[?S9?T????)??S?$?D$?????w?????t&??ڸ ?????C?P??S???4$??? [^_Í?&???u4?4$?V??
?C?D$????$??????4$???? [^_Í?&?C??
???@
?
??????&?@???????&?‹D$???????4$??? [^_Ít&?4$? V)??C?????S??????
ЉC?
?????&?UWVS??L?\$`?kf??u ?? ??C?y?f?|$???B?L$?ֿ?L$?? ƉL$?C?k?t$(?t$??l$???? ?l$?L$???????
???k??~??
?k??????9l$r?s???j??0?M?u
??????
u??D$9??!?C?D$?D$?????|$?S??)????|$??T$O????
??
????D$?Ÿgfff??????)??????gfff??&??ȃ?
???????)‰?u??f+D$????D$?D$9???)??D$????
?C??&?v?ڸ ?$????C?P??S???C?D$?D$??u?D$
???D$@???ڸ0??????C?ڃ? ??X??????C??~*?Ct$??
?C?t&??ڸ0?????C?P??S???|$9t$r?
?Cf?D$&f????
9??j
?F???
??.??
??,tщ??Z????ڍ?&?????
1?f?t$??1?)????????? t??1???
???
??)?????xi??

?1??????? E?E׉? ?uj??uf?D$?D$???D$?C?D$?D$(?D$?D$?D$t ?D$(.?D$)?0?p
??????&?????1?f?D$????? E?E??L$?}
?L$???L$????????&f??? ?M?????7 L$?D????v9t$r?l$??u?k???G
??&?.?n
??????t&??ڸ0?????C?P??S???C?ڃ? ??P??????D$
C?فK?
?D$?T$??L[^_]?[????v???A????>????t&?ٺ
?D$&?????%????v????????&f??ڸ-??????????&??????C?[????v?ڸ+?\????k?????&????1??D$?1?f?D$1??D$??????v????????C?D$?D$(?D$?:????t&?ڸ ???????????&???u???????????0??
??????t&??S???
??????????&??l$?K????C?D$?D$?D$1?f?D$?D$(?D$??????&?t&?UWVS?????$???$???NDŽ$?????DŽ$??????DŽ$??????D$(??$?DŽ$???$???$?DŽ$?DŽ$?????%`?D$??$?1?f??$?1?f??$???$???$?????0
?{
?‰??J??$???$???@u 9?$?~??$??? ?????
??$????
?…?????%u?DŽ$??????D$DŽ$???????$???????t$$??$????D$?|$ 1??H??Z
????Zw$???$???Tf??|$?$?N?n?????&??0< ????????g?
?D$ ??t?L$ ?
???????DFЋt$ ??t&?B
?ڄ??x???f???$????[^_]Í???$??????|$?t$ ??|$?E?ut?|$
?}?|$u??1҃|$ u??$???$???$????$?щ‹D$ ?*??????$???|$???M?|$???ș??t??
??|$u ?ɉș??&??$????B????6????B
?D$?ڿ?????????????B
??$?@????????????????$??B
?????????$??%???I????????????????T$,??$???$?DŽ$??L?t$?D$?@?D$?D$~?$?7I?T$,??~ ?L$~f??$???$??B
???6????L$ ??tz?????????E?t$ ?M????@?B
?D$ ?͉???????????????$?
?B
????????????????$??B
????????
???B
?????????????$??B
????????$??????m?u????f%Ef=
?S???|$`?L$hf??y ?ʀ??$?????f%Ef=?C?|$P?D$P?T$Tf?????f??????$??<$??????M??$?????m?u??$??????<$????????????$?????m?u??$??????<$?U????????DŽ$??????u?E??$??
????f??$???$??k?????????$?????m?u??$??????<$?????b????B
<6??<3???z2?f?B?D$????????B
??$??ڿ??????B
?t$??t??D$0?t$4 0?Ĭ??[^_]????D$H???L?T?\$8?D$8?T$?D$d?\$\???D$T?=?????&????????D$h?J??????D$81??D$(?\$\?D$4?؉D$T????ټ$????D$8?l$pDŽ$?
?T$\1?????$?????f??$????&???
? D?T?$?٬$??T$8٬$??L$8??t?D$8?????
??0?J???$?9?u????l$p???????T?T???????????? ???????? ?؋D$H?T$L?|$X?D$8?T$
? ?D$?ƋD$$?D$ ?$???D$$??$??|$(??
??$??D$8?,$?D$?B????t$?,$?H0?ljL$,?"?L$$?ËD$8?L$?$??"?‹@????????T$?,$?T$X?j"?T$X?D$P?$???D$P?L$ ????L$ ??T$P??
T$H??????L$,??9?????? ?D$4 ?O1?D$(??t$$??x
?t&?D$8?T$?$????w?T$??t9?t?$?t?\$\?|$\???????&???D$$????????D$8?,$?T$$?D$?!?T$$???????,$?D$d?D$?D$ ??
?D$,?|?T$|?L$h?Ņ??T$$??!…????????D$d?D$T?D$|?D$@???t$?\$\?
?|$8?t$@?-??&f??,$?D$?D$ ??ŋ?$???
?|$??
?,$??$??f?????0?C?9?$?|??t$??1ҋ|$H????E???N??
??
?E????
?????????D$4?t&?߃?
?;0t??q?????D$P?D$?D$8?$??|$
?D$8??D$P?\$8?C?\????C?????D$h
?c????v??
?$????D$,?@??
9D$$?????D$`
?D$T
?D$P
??????t&?|$
?A????|$@?t$l?G?9??f
??)…??P?|$`?D$@DŽ$?)?????ټ$??D$8?t$\DŽ$?
??$??V
?????f??$?٬$??\$٬$??D$?D$??0?ʈ?D$d??
?D$T??????????z??&u???؋\$\?T$\?Z????t&???$??t$@9???? D?T??
??
??$?????٬$??\$٬$??D$?D$??0?ʈB???????????{?륍t&??D$P?,????D$h
?????L$\??t&9????ߍ[??G?<9t??
?D$4 ??q????\$\?|$\?????t$@?L$`?‹|$l
t$T??$?
?)??t$`??
T$P1҉D$l??????
??????D$,?@??
9D$$??????D$`
?D$T
?D$P
???????D$\?D$T
?D$4 ?1??????T$?4$?T$X??l$?$???a?,$?D$8?U?T$X)T$l?l$8??????r????,$?D$
?T$?L$ ?F?ŋD$8?,$?D$?t?T$???????u ?L$ ??
??????}
?D$4??????E??????&?\$H?L$,???%?}
?>?|$H?`?\$$?|$(?L$?k?t&??D$?L$$?A??$?D$?D$ ???,$9??D$D??D$ ?D$ ???ŋD$8?,$?D$?9????|$$?\$ ??0?D$?D$8?\$?$??O
????|$(?ϋL$?\$$??9??
?D$4 ???
?ދD$(??R????D$H???4???؃?
??\$\?D$4?T$\?a???????????t$|???????DŽ$?????? D?Tݔ$???$???$?? H?T?L?T?D$8?T$????Dž?t?@q?@
?@4V???@4V1??
?????&?t&?UWVS???L$??????? ??C??F???9?r?ыT$P?|$,?ˋl$()Ӎr????9???Bى??u?l$ ?D$?h?$??????D$??<[^_]Í?&?9?sե9?r??΍?&?t&?VS?L$?t$?Y?F)?u1??????T? ??&f?9?s?????290t?ۃ?
??[^Í?UWVS??L?t$`?\$d?~?C)???
???N??T?9???
?????*9(t???
???F?$?????D$$?????Y
?x?F?~?k?\$d?q???D$4?T$8
??T$(?S?|$0?T??t$,?T$ ?t$1??|$1??D$?D$??1ҋM?1ۋ@?)??)?????D$?D$??
1??H??D$ ?։?9?rË\$d?l$ ?|$?D$4?t$?K?ωL$4??)ٻ????9??l$,?L$??f?T$>?ߋ\$d? ?t&?
Nj?T$(
??t$?t$?T$?T$l?D$?T$?,$??????҃?L????[^_]Í???L1ۉ?[^_]Ít&V1?S??4?\$Hf?D$.??????ۺ?=V?t$?D$?D$DDډD$?D$@?\$?D$?D$.?$??????4[^Ð????????????%?RV???%?RV???%SV???%SV???%SV???%SV???%SV???%SV???%SV???% SV???%(SV???%,SV???%8SV???%@SV???%DSV???%HSV???%PSV???%TSV???%XSV???%\SV???%`SV???%dSV???%hSV???%lSV???%pSV???%tSV???%xSV???%|SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%?SV???%TV???%TV???%TV???%TV???%TV???%TV???%TV???%TV???% TV???%$TV???%(TV???%,TV???%0TV???%4TV???%8TV???%?@??@??@R?@R?@R?@R?@R?@R?@R?@R?@R?@ތ@R?@R?@R?@R?@R?@R?@R?@R?@R?@R?@R?@R?@R?@R?@R?@R?@R?@??@__gc$?@^?@??@??@͢@?@6?@X?@?@andbreakdoelseelseifendforfunctiongotoifinlocalnilnotorrepeatreturnthenuntilwhile//.....==>=<=~=<<>>::?vG?vG?vG?vG?vG?vG|pG?vG?vGwGwG wG wGwGwGwGwG%wG,wGwpG1wG7wG=wG@wGCwGGwGJwGMwGPwGSwGVwGYwG\wGbwGkwGuwG|wGlexical element too long_ENV'%c''<\%d>''%s'%s near %schunk has too many linesEexXPp-+malformed numbercommentunfinished long %s (starting at line %d)hexadecimal digit expectedmissing '{'UTF-8 value too largemissing '}'decimal escape too largeunfinished stringinvalid escape sequencef?@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@ַ@Ƹ@Ƹ@ַ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@??@Ƹ@Ƹ@Ƹ@Ƹ@??@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@??@Ƹ@Ƹ@Ƹ@Ƹ@_?@k?@Ƹ@Ƹ@Ƹ@w?@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@Ƹ@??@Ƹ@Ƹ@Ƹ@??@Ƹ@??@Ʒ@??@Ƹ@??@Ƹ@??@invalid long string delimiter;?@??@\?@~?@~?@~?@~?@~?@~?@~?@~?@~?@~?@(?@??@N?@?@ս@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@¾@?@??@q?@`?@?@?@?@??@?@?@?@??@control structure too longlinesopcodesfunction or expression needs too many registersconstants??@??@??@W?@??@??@??@??@??@??@??@??@??@??@??@??@??@??@??@s?@??@Z?@x?@4?@??@??@?@??@w?@w?@c?@c?@:?@??@?@??@I?@j?@??@7?@??@:?@:?@:?@:?@:?@:?@:?@:?@??@??@m?@J?@]?@??@??@}?@??@??@??@?@??@=?@x?@??@??@W?@e?@W?@e?@e?@e?@e?@??@??@??@??@??@??@??@??@p?@??@?@?@?@?@?@?@?@?@?@?@?@?@?@F?@q?@q?@F?@q?@q?@??@??@??@??@??@!?@!?@!?@!?@U?@U?@U?@??@C?@??@??@??@??@??@??@??@??@:?@%s expectedfunction at line %dmain functiontoo many %s (limit is %d) in %s%s expected (to close %s at line %d)local variablesattempt to assign to const variable '%s'upvalues at line %d jumps into the scope of local '%s'labels/gotosbreak outside loop at line %dno visible label '%s' for at line %dfunctionsitems in a constructor or '...' expectedselffunction arguments expectedunexpected symbolcannot use '...' outside a vararg function?#A?$Ao$A?$A?$A?$A?$A?#A?$A?$A?$A?$A?$A?#A?$A?$A?$A?$A?#A?$A?$A?$A?$A?$A?$A?$A?$A#A4#A?$Af#A&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A#&A*&A*&A*&A*&A*&A*&A?%A?%A*&A?%A&A&A?%A?%A?%A?%A?%A*&A*&A*&A?%A?%A*&A?%A*&A?%A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A&A*&A&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A*&A?%A   

syntax private_lua_errorlabel '%s' already defined on line %d(for state)'=' or 'in' expectedconstcloseunknown attribute '%s'multiple to-be-closed variables in local listG@A@?Al@Al@Al@Al@A}?A??AT@A?Al@A??Al@Al@Al@A??A/@Al@Al@Al@A)?Al@Al@Al@Al@Al@Al@Al@Al@Al@A
@A?(vararg)(temporary)(C temporary)=[C]C=?mainLua?LA?LA?LA?LA?LA?LA?LAsKA?LA?LA?LA?LA?LA?LA?LA?LA?LA?LA?LA?LA?LA?LA?LA?LA?LA?LA?LA?LA?LA?LA?LA?LA?KA?LAJLA?LA?LA?LA?LA?LA&LA?KAconstantupvalueglobalfieldinteger indexmethod8SA?SA?SA?SAKTAKTAKTAKTAKTA$TAfor iteratormetamethodqUAqUAqUAqUAzUAzUAzUAzUA?UAqUA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UA?UAhook (%s '%s')attempt to %s a %s value%scallbad 'for' %s (number expected, got %s)concatenatenumber%s has no integer representationattempt to compare two %s valuesattempt to compare %s with %s%s:%d: %svariable '%s' got a non-closable value{kA?kA?kA?kA?lA?lA?kA!lANlAclAulA?lA?lA?lA*mA5mA=mA?mAMmAEmA?mA?mA?mA?mA?mA?mA?mA.xXnN%lld%.14g-0123456789(null)%p%invalid option '%%%c' to 'lua_pushfstring'>|A?}A?}A?}A?}A?}A?}A?}A?}A?}A?}A?}A}A?}A?}A?}A?}A?}A?}A?}A?}A?}A?}A?}A?}A?}A?{A?{A?}A?|A?}A?}A?}A?}A?}A?}A?}A?}A?}A?|A?}A?}A?{A[string ""]userdatano valuebooleannumbertablethreadproto ?GwG?G?G?G?pG!?G?vG?G'?Ge?G.?G__nameperform bitwise operation onperform arithmetic onnot enough memory ?AB?A??AH?A??A?A?A?A?A?A?A?A?A?A?A?A?AM?A?At?A??A?AŘA ?A ?AV?A?A??A??A??A??A??A??A??A??A??A??A??A??A??A ?A??A5?A??A??Ak?Ainvalid key to 'next'table overflowtable index is niltable index is NaNerror in private_lua_error handlingstack overflowcannot resume non-suspended coroutinecannot resume dead coroutineattempt to yield across a C-call boundaryattempt to yield from outside a coroutineattempt to load a %s chunk (mode is '%s')btbinarytextlimit'for' step is zerostepinitial valueindex'__index' chain too long; possible loop'__newindex' chain too long; possible loop??A??A?A??A6?AI?A!?Aj?A!?A!?A!?A!?A!?A!?A!?A!?A!?A??A!?A??AM?A!?A?Astring length overflowget length ofattempt to divide by zeroattempt to perform 'n%%0'??A??A??A??AT?AT?AT?AT?AT?A??AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?AT?Ao?Ao?Ao?A??A??AT?A??A??A?AT?AT?A?A?A?AT?AT?A?A?A?A?AT?AT?AT?AT?A?A$LuaVersion: Lua 5.5.0 Copyright (C) 1994-2023 Lua.org, PUC-Rio $$LuaAuthors: R. Ierusalimschy, L. H. de Figueiredo, W. Celes $̚BؚB??B?B ?B3?BƛBݛB?B>?B(no name)f_LOADED_G.function '%s'%s '%s'main chunkfunction <%s:%d>stack traceback: ... (skipping %d levels)Slnt %s: in %s:%d: in (...tail calls...)bad argument #%d (%s)ncalling '%s' on bad self (%s)bad argument #%d to '%s' (%s)light userdata%s expected, got %sSl%s:%d: %s: %sexitinvalid option '%s'stack overflow (%s)value expectednumber has no integer representation__close?vGִB}?GִB_UBOX*buffer too largecannot %s %s: %s=stdin@%sropenrbreopenreadobject length is not an integer__tostring'__tostring' must return a string%I%s: %ptoo many upvaluesPANIC: unprotected private_lua_error in call to Lua API (%s) offon Lua warning: core and library have incompatible numeric typesversion mismatch: app. needs %f, Lua core provides %f  base out of range__metatablenil or tablecannot change a protected metatabletable or stringincrementalgenerationalcollect??B??BA?B??B??B ?B3?B__pairsinvalid modetoo many nested functionsreader function must return a string=(load)assertion failed!index out of rangeassertcollectgarbagedofileerrorgetmetatableipairsloadfileloadnextpairspcallprintwarnrawequalrawlenrawgetrawsetselectsetmetatabletonumbertostringtypexpcall_G_VERSIONF?GZ?BM?G??B\?G??Bc?G??Bi?GS?Bv?G$?B}?G??B??G5?B??G??B??G??B??Gf?B??G??B??G??B??G??B??G??B??G?B??G??BœG?B̓G??BٓG??B?G??B?G?B?G ?B??G??GLua 5.5too many arguments to resumetoo many results to resumerunningdeadsuspendednormal0?G8?G=?GG?Gcannot close a %s coroutinecreateresumestatuswrapyieldisyieldable|?G??B??G*?B0?G??B??G$?B??GF?B??Gy?B??Gg?B??G??B_HOOKKEY?GflnSrtuinvalid option '>'>%sinvalid optionsourceshort_srclinedefinedlastlinedefinedwhatcurrentlinenupsnparamsisvarargnamenamewhatftransferntransferistailcallactivelinesfunclevel out of rangeinvalid upvalue indexLua function expectedk__modeexternal hooklua_debug> cont =(debug command)debuggetuservaluegethookgetinfogetlocalgetregistrygetupvalueupvaluejoinupvalueidsetuservaluesethooksetlocalsetupvaluetracebackQ?G??BW?GD?Bd?G3?Bl?G??Bt?G??B}?GX?Bi?Gx?B??G??B??G??B??Gc?B??G??B??GM?B??G??B̓G??BȗG??BӗG?BrwabFILE*closed filefilefile (closed)file (%p)attempt to use a closed file_IO_outputcannot open file '%s' (%s)default %s file is closed_IO_inputwtoo many arguments00pPeEinvalid formatfile is already closedcurnot an integer in proper rangeflushinputoutputpopentmpfilewrite??G?
Ck?GJCq?G?C}G?C֐GCw?G?C~?G*C?G?C??GNC?G??B??GCseeksetvbuf?G?C??GDC}G?Ck?G?C?G?C??Gf
C?G?C__index`?G?vG?
C}?G?
C?G&Ccannot close standard filestdinstdoutstderrzerointegerfloatwrong number of argumentsinterval is emptyrandomrandomseed?G?%C?G<(Cabsacosasinatanceilcosdegexptointegerfloorfmodultlogmaxminmodfradsinsqrttanpihugemaxintegermininteger@?GCD?G?CI?GdCN?G?CS?G?CX?G?C\?G? C`?G? Cd?G2Cn?G.Ct?GCy?GdC}?G?C??G?!C??G8!C??GdC??G
!C??G?C??G-C??G-C?Gv"C?G?G??G??G??G??G_CLIBS??Gunable to get ModuleFileName!system error %d LUA_NOENV_5_5%s%s;;initno file '' no file ';'\'package.%s' must be a stringerror loading module '%s' from file '%s': %spath_luaopen_%scpathno module '%s' in file '%s'_PRELOADno field package.preload['%s']:preload:searchers'package.searchers' must be a table module '%s' not found:%sloadlibsearchpathpreloadloaded?G?1C?GF5C'?Gt?Gb?GɝG/?Grequire??G??C??G^?C??G[-?-?][?-?]*packagecoroutineiomathosutf8??G?B?G@C?G??BQ?G??B??G*C??G?)C
?G?MC?pG?C!?G??C?G0?Carg %ld at function:%s not providedarg %d at function:%s its %s instead of %sprivate_lua_c_embed_args_%d_%dprivate_lua_c_embed_multi_return_%d_%dprivate_lua_c_embed_evaluation%s = %s value %s its not a functionresult evaluation of function %s at index %d its:%s instead of %sprivate_lua_c_embed_stack_levelprivate_lua_c_embed_selfprivate_lua_embed_table_returnprivate_lua_c_embed_main_lib_table_%dtimeout errorresult evaluation its:%s instead of %sglobal variable:%s its %s instead of %sprivate_lua_c_embed_anononymous_table_%d_%dprivate_lua_c_embed_anononymous_func_table_%d_%dlib prop %s its %s insteadd of %sprivate_lua_c_embed_main_lib_table_%d_%sprivate_lua_c_embed_total_running_libsprivate_lua_c_embed_main_meta_table_%dpropety %s at object %s its %s instead of %sindex %d at object %s its %s instead of %sprivate_lua_c_embed_stage_area_tablestage_arrea%s_%d%s_%snot FoundunknowABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/%02x%Y-%m-%d %H:%M:%Smodify/%s/%s/%swbtfoldernull%s\*NULLFirst Path: %s Path: %s Path Changed: %s Dir: %s Full Name: %s Name: %s Extension: %s %s%s.%s%s/%s/%s/%s/json_tree is nulljson_tree is not an arrayoriginal_pathhardware_sha256hardware_content_sizelast_modification_in_unix_timecontent_sizeis_binarycontentignorepending_actionpath is not a stringoriginal_path is not a stringhardware_sha is not a stringhardware_content_size is not a numberlast_modification_in_unix_time is not a numbercontent_size is not a numberis_binary is not a boolcontent is not a stringignore is not a boolpending_action is not a valid actioncode: %d position: %d menssage: %s Write:--------------------------------------- Modify:-------------------------------------- Remove:-------------------------------------- ------------------------------------------------------------ Content Exist in Memory: %s Ignore: %s Content Exist In Hardware: %s Is Binary: %s Last Modification Time in Unix: %li Last Modification Time: %s Content Size: %ld Content SHA: %s Content: %s Original Hardware SHA:%s Content: Binary Pending Action: %s dirfull_nameextensionlast_modification_in_unixlast_modificationcontent_sha256.locklocked: %s valueyou cannot create a sub resurce from a renamed resource%ld%s%s--%s%ld--%syou cannot delete a internal schema partelement its null#path#primary key %s cannot be renamedyou cannot rename a resource with active sonserror code: %d error message: %s path: %s name: %s type: %s value: %s value: %ld value: %lf element at #path# not existelement at #path# its an binaryelement at #path# its not longelement at #path# its not boolimpossible to add sub resource inside schema struct primary key %s cannot have a sub resourceonly root schema can generate insertionsonly root schema can find by id or pkonly root schema can modify schema propsprimary key: %s already existonly root schema have schema values---------------------------------------- mensage:%s path: %scopydeletethe action object its not an objectaction["action"]the action is not presentthe action is not an stringthe action: %s its not valid["content"]the content is not presentthe content is not an stringis binary["is binary"]the is binary is not an bool["source"]the source is not presentthe source is not an stringdest["dest"]the dest is not presentthe dest is not an string action: %s source:%s content : %s content: impossible to show size:%ld is binary: %s dest: %s the initial value its not an array[%ld]file: %s not foundfile: %s its not an valid json------------------------------------ %i.%i.%i%1.15g%lg%1.17g?E?E?E?E?E?E_E?E?E?EmE?E?E?E?E?E?E?E{E?E?E?E?E?E?E?Eu%04xhE?ExE?EpE?E?E?E?E?E?E?E?E?E?E?E?E?E?E?E?E?E?E?E?E?E`E?*EK)E?)E?*E)E?*E?*E?*E?)E?*E?*E?*E?*E?*E?*E?*ER*E?*E?*E?*E?*E?*E?*E?*E?*E?*E?*E?*E?*E?*E?*E?*Ef*E/KE/KE?KE?KE/KE?KE?KE?KE?KE?KE?KE?KE?KE?KE?KE?KE?KE?KE?KE?KE?KE?KE?KE/KE?KEyKE?KE?KE?KE?KE?KE?KE?KE?KE?KE?KE?KE?KE:KE6PE)NE)NE6PE)NE6PE6PE6PE3NE6PE6PE6PE6PE6PE6PE6PEeNE6PE6PE6PE6PE6PE6PE6PE6PE6PE6PE6PE6PE6PE6PE6PE?NEinclude:'%s' at file '%s' not foundfile '%s' not foundmex recursion call of: %d reached at file '%s' if these its not a recursion problem on your files, increase the limit bytyping --maxreq mex recursion call of: %d reached if these its not a problem on your files, increase the limit bytyping --maxreq reached the max content size of %ld bytes in %ld bytes in file '%s'reached the max content size of %ld bytes in %ld bytesunexpected behavior$include "%s" #include <CAMALGAMATOR_UNEXPECTED_ERRORCAMALGAMATOR_DONT_INCLUDECAMALGAMATOR_DONT_CHANGECAMALGAMATOR_INCLUDE_ONCECAMALGAMATOR_INCLUDE_PERPETUALgenerate_amalgamation_simplegenerate_amalgamation_complexprivate_lua_c_amalgamator_cinteroppublic_lua_c_amalgamator public_lua_c_amalgamator = {} -- file: public/generators.lua public_lua_c_amalgamator.generate_amalgamation = function(filename, max_content_size, max_recursion) if not filename then error("no filename provided") end if not max_content_size then max_content_size = public_lua_c_amalgamator.ONE_MB * 10 end if type(max_content_size) ~= "number" then error("max content its not a number") end if not max_recursion then max_recursion = 1000 end if type(max_recursion) ~= "number" then error("max recursion its not a number") end return private_lua_c_amalgamator_cinterop.generate_amalgamation_simple( filename, max_content_size, max_recursion ) end public_lua_c_amalgamator.generate_amalgamation_with_callback = function(filename, verifier_callback, max_content_size, max_recursion) if not filename then error("no filename provided") end if type(verifier_callback) ~= "function" then error("verifier its not a function") end if not max_content_size then max_content_size = public_lua_c_amalgamator.ONE_MB * 10 end if type(max_content_size) ~= "number" then error("max content its not a number") end if not max_recursion then max_recursion = 1000 end if type(max_recursion) ~= "number" then error("max recursion its not a number") end function veriifier_formmated(import, path) local str_result = verifier_callback(import, path) if str_result == "dont-include" then return private_lua_c_amalgamator_cinterop.CAMALGAMATOR_DONT_INCLUDE end if str_result == "dont-change" then return private_lua_c_amalgamator_cinterop.CAMALGAMATOR_DONT_CHANGE end if str_result == "include-once" then return private_lua_c_amalgamator_cinterop.CAMALGAMATOR_INCLUDE_ONCE end if str_result == "include-perpetual" then return private_lua_c_amalgamator_cinterop.CAMALGAMATOR_INCLUDE_PERPETUAL end error("result not in ['dont-include','dont-change','include-once','include-perpetual']") end return private_lua_c_amalgamator_cinterop.generate_amalgamation_complex( filename, max_content_size, max_recursion, veriifier_formmated ) end -- file: public/memory.lua public_lua_c_amalgamator.ONE_BYTE = 1024 public_lua_c_amalgamator.ONE_MB = public_lua_c_amalgamator.ONE_BYTE * 1000 imports//mannaged by silver chain //silver_chain_scope_start //silver_chain_scope_end silverchainmain.cmain.cppfile %s not provides end scope Remaking the project...Watching files...Making the project...src: %s not a dir...../%s/%s.%s.himports.#include "%s.%s.h" #ifndef %s_%s #define %s_%s #include "%t" #endif generategenerate_watchget_error_msgget_error_pathfree_errornewStringArrayfree_string_arrayappend_string_arrayprivate_silverchain_cinteroppublic_lua_silverchain public_lua_silverchain = {} private_silver_chain = {} -- file: public/generate.lua public_lua_silverchain.generate = function(props) private_silver_chain.check_types(props, { "table" }, "props") private_silver_chain.check_types(props.src, { "string" }, "props.src") private_silver_chain.check_types(props.import_dir, { "string", "nil" }, "props.import_dir") private_silver_chain.check_types(props.project_short_cut, { "string", "nil" }, "props.project_short_cut") private_silver_chain.check_types(props.tags, { "table" }, "props.tags") private_silver_chain.check_types(props.implement_main, { "boolean", "nil" }, "props.implement_main") private_silver_chain.check_types(props.main_file, { "string", "nil" }, "props.main_file") private_silver_chain.check_types(props.main_path, { "string", "nil" }, "props.main_path") local import_dir = props.import_dir if not import_dir then import_dir = props.src .. "/imports" end local project_short_cut = props.project_short_cut if not project_short_cut then project_short_cut = "LuaSilverChain" end for i = 1, #props.tags do if type(props.tags[i]) ~= "string" then error("tag " .. i .. "not a string") end end if #props.tags == 0 then error("tags cannot be empty") end local silver_chain_string_array = private_silverchain_cinterop.newStringArray() for i = 1, #props.tags do local current = props.tags[i] private_silver_chain.check_types(current, { "string" }, "tags[" .. i .. "]") private_silverchain_cinterop.append_string_array( silver_chain_string_array, props.tags[i]) end local implement_main = props.implement_main if implement_main == nil then implement_main = true end local error_obj = private_silverchain_cinterop.generate( props.src, import_dir, project_short_cut, silver_chain_string_array, implement_main, props.main_file, props.main_path ) private_silverchain_cinterop.free_string_array(silver_chain_string_array) if error_obj ~= 0 then error_msg = private_silverchain_cinterop.get_error_msg(error_obj) private_silverchain_cinterop.free_error(error_obj) error(error_msg) end end -- file: public/type_chacher.lua private_silver_chain.check_types = function(value, types, name) local type_value = type(value) for i = 1, #types do if types[i] == type_value then return end end if #types == 1 then error("arg " .. name .. " not '" .. types[1] .. "'") end error("arg " .. name .. " not in [" .. table.concat(types, ",") .. "]") end file %s not founddtw_hash_pointerdigest_pathdigestget_valuedigest_filedigest_folder_by_contentdigest_folder_by_last_modificationlocker_pointerlockunlockdtw_path_pointerdtw_is_a_refpath_add_end_dirpath_changedadd_start_dirget_dirget_extensionget_nameget_only_nameget_full_pathset_extensionset_only_nameset_nameset_dirset_pathreplace_dirsget_total_dirsget_sub_dirs_from_indexinsert_dir_at_indexremove_sub_dir_at_indexinsert_dir_afterinsert_dir_beforeremove_sub_dirs_atrandonizerset_seedset_internal_seedgenerate_tokengenerate_numschema_pointersub_schemaset_index_nameset_value_namedtw_resource_pointerdtw_type__tonumber__toboleansub_resourceget_typelisteachmapcountfilterget_stringget_numberget_boolsub_resource_nextsub_resource_nowsub_resource_now_in_unixsub_resource_randomunloadis_blobset_valuecommitdestroyget_path_stringset_value_in_sub_resourceget_value_from_sub_resourcedangerous_remove_propdangerous_rename_propget_resource_matching_primary_keyget_resource_by_name_idnewDatabaseSchemaschema_listschema_findschema_mapschema_countschema_eachschema_filterschema_new_insertiontry_set_valuetry_renametry_destroytry_newSchematry_set_value_in_sub_resourcetry_new_insertiontry_fget_resource_matching_primary_keytry_get_resource_by_name_idtry_dangerous_rename_proptry_dangerous_remove_proptry_sub_resourcetry_sub_resource_nexttry_sub_resource_nowtry_sub_resource_now_in_unixtry_sub_resource_randomtry_schema_listget_transaction%s[1]dtw_schemaarg type in string, string[]add_primary_keysdtw_action_transaction_pointerget_destset_destget_sourceset_sourceget_type_codeget_contentset_contentdtw_transactioncopy_anyremove_anymove_anydump_to_json_filedump_to_json_stringerror %s pegou aqui passando %s content its not a valid jsonfile %s its not a valid jsondtw_treenewTreePart_emptynewTreePart_loadingget_tree_part_by_indexinsecure_hardware_write_treeinsecure_hardware_removeget_sizeget_tree_part_by_nameget_tree_part_by_pathadd_tree_from_hardwareinclude_contentinclude_content_datainclude_hardware_datainclude_ignored_elementsmimify_jsoninclude_path_attributespegou aqui %s at index %ddtw_tree_parthardware_removehardware_modifyhardware_writeget_shacontent_existcontent_exist_in_hardwaretable its not a %s typeargument not providedelement of type %s its not in (string,bool,bytes,number)load_filewrite_filecopy_any_overwritingcopy_any_mergingmove_any_overwritingmove_any_merginglist_fileslist_files_recursivelylist_dirslist_dirs_recursivelylist_alllist_all_recursivelybase64_encode_filebase64_encodebase64_decodegenerate_shagenerate_sha_from_filenewResourceisdirisfileisfile_blobnewHashergenerate_sha_from_folder_by_contentgenerate_sha_from_folder_by_last_modificationnewTransactionnew_transaction_from_json_stringtry_new_transaction_from_stringnew_transaction_from_filetry_new_transaction_from_filenewPathconcat_pathnewTreenewTree_from_hardwarenewTree_from_json_filenewTree_from_json_stringtry_newTree_from_json_filetry_newTree_from_json_stringstarts_withends_withnewRandonizernewLockerget_entity_last_modificationget_entity_last_modification_in_unixPRIVATE_STRING_OF_CONTENT_BY_FILEVARABLE_LOCAL_TEXT_BY_CALL_FUNCTION#Get_text_by_file_contentRender_text %s %s end %s = %s .. %s %s \n %s = %s .. " %s = %s .. "\"\" %s = %s .. "%c" \\ %s = %s .. "%s%s = "carview.php?tsp="exist_errorerror_messagerender_textdefine_code_rawinit_ignoredefine_call_functionopen_bracketsclose_bracketsset_globals_caracter%%#{}private_lua_json_fluid_null_codecontent of file %s its not a valid jsonelement of type %s cannot be dumpedimpossible to write file at %s load_from_stringload_from_filedumps_to_stringdumps_to_fileis_table_a_objectset_null_codeargPRIVATE_DARWIN_API_ASSETSPRIVATE_DARWIN_TYPESprivate_darwin_camalgamatorprivate_darwin_silverchainprivate_darwin_dtwprivate_darwin_jsonprivate_darwin_candango//path: src/one.c #ifndef LUACEMBED_H //path: src/imports/imports.fdefine.h //path: src/imports/imports.fdeclare.h //path: src/imports/imports.typesD.h //path: src/imports/imports.typesC.h //path: src/imports/imports.typesB.h //path: src/imports/imports.types.h //path: src/imports/imports.macros.h //path: src/imports/imports.consts.h //path: src/imports/imports.dependencies.h #ifndef privateluacembed_dependencies #define privateluacembed_dependencies //path: src/imports/../dependencies.native.h #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef _WIN32 #include #else #include #include #endif //path: src/imports/../dependencies/dependencies.all.h //path: src/imports/../dependencies/UniversalGarbage.h #ifndef UNIVERSAL_GARBAGE_H #include #include #include #include #define UniversalGarbage_create_empty_struct(name,element_type) \ (element_type*)malloc(sizeof(element_type)); \ *name = (element_type){0}; #define UniversalGarbage_cast(value) ((void**)&value) #define UniversalGarbage_add(garbage,deallocator_callback,value) \ rawUniversalGarbage_add(garbage,(void*)deallocator_callback,UniversalGarbage_cast(value)) #define UniversalGarbage_add_simple(garbage,value) \ UniversalGarbage_add(garbage,free,value) #define UniversalGarbage_add_return(garbage,deallocator_callback,value) \ UniversalGarbage_add(garbage->return_values,deallocator_callback,value) #define UniversalGarbage_add_simple_return(garbage,value) \ UniversalGarbage_add_simple(garbage->return_values,value) #define UniversalGarbage_remove(garbage,value) \ rawUniversalGarbage_remove(garbage,UniversalGarbage_cast(value)); #define UniversalGarbage_disconnect(garbage,value) \ rawUniversalGarbage_disconnect(garbage,UniversalGarbage_cast(value)); #define UniversalGarbage_reallocate(garbage,value) \ rawUniversalGarbage_reallocate(garbage,UniversalGarbage_cast(value)) #define UniversalGarbage_resset(garbage,value) \ rawUniversalGarbage_resset(garbage,UniversalGarbage_cast(value)) typedef struct privateUniversalGarbageElement{ void **pointer; void (*deallocator_callback)(void *element); void *pointed_value; }privateUniversalGarbageElement; void private_UniversalGarbageSimpleElement_free_pointed_value(privateUniversalGarbageElement *self); void private_UniversalGarbageSimpleElement_free(privateUniversalGarbageElement *self); privateUniversalGarbageElement * private_newUniversalGarbageSimpleElement(void (*dealocator_callback)(void *element), void **pointer); typedef struct UniversalGarbage{ struct UniversalGarbage *return_values; privateUniversalGarbageElement **elements; int elements_size; bool is_the_root; }UniversalGarbage; UniversalGarbage * newUniversalGarbage(); UniversalGarbage * private_new_MainUniversalGarbage(); bool rawUniversalGarbage_resset(UniversalGarbage *self, void **pointer); bool rawUniversalGarbage_remove(UniversalGarbage *self, void **pointer); bool rawUniversalGarbage_disconnect(UniversalGarbage *self, void **pointer); bool rawUniversalGarbage_reallocate(UniversalGarbage *self, void **pointer); bool rawUniversalGarbage_add(UniversalGarbage *self, void *release_callback, void **pointer); void private_UniversalGarbage_free_all_sub_elements(UniversalGarbage *self); void UniversalGarbage_free_including_return(UniversalGarbage *self); void UniversalGarbage_free(UniversalGarbage *self); privateUniversalGarbageElement * private_newUniversalGarbageSimpleElement(void (*dealocator_callback)(void *element), void **pointer){ privateUniversalGarbageElement * self = UniversalGarbage_create_empty_struct( self, privateUniversalGarbageElement ); self->pointer = pointer; self->deallocator_callback = dealocator_callback; self->pointed_value = *pointer; return self; } void private_UniversalGarbageSimpleElement_free_pointed_value(privateUniversalGarbageElement *self){ if(self->pointed_value){ self->deallocator_callback(self->pointed_value); self->pointed_value = NULL; } } void private_UniversalGarbageSimpleElement_free(privateUniversalGarbageElement *self){ private_UniversalGarbageSimpleElement_free_pointed_value(self); free(self); } UniversalGarbage * private_new_MainUniversalGarbage(){ UniversalGarbage *self = UniversalGarbage_create_empty_struct(self,UniversalGarbage) self->elements = (privateUniversalGarbageElement**)malloc(0); self->is_the_root = false; return self; } UniversalGarbage * newUniversalGarbage(){ UniversalGarbage *self = UniversalGarbage_create_empty_struct(self,UniversalGarbage) self->is_the_root = true; self->elements = (privateUniversalGarbageElement**)malloc(0); self->return_values =private_new_MainUniversalGarbage(); return self; } bool rawUniversalGarbage_reallocate(UniversalGarbage *self, void **pointer){ if(self->is_the_root){ if(rawUniversalGarbage_reallocate(self->return_values,pointer)){ return true; } } for(int i = 0; i < self->elements_size; i++){ privateUniversalGarbageElement *current = self->elements[i]; bool reallocate = current->pointer == pointer; if(reallocate){ current->pointed_value = *pointer; return true; } } return false; } bool rawUniversalGarbage_resset(UniversalGarbage *self, void **pointer){ if(self->is_the_root){ if(rawUniversalGarbage_resset(self->return_values,pointer)){ return true; } } for(int i = 0; i < self->elements_size; i++){ privateUniversalGarbageElement *current = self->elements[i]; bool resset = current->pointer == pointer; if(resset){ private_UniversalGarbageSimpleElement_free_pointed_value(current); current->pointed_value = *pointer; return true; } } return false; } bool rawUniversalGarbage_remove(UniversalGarbage *self, void **pointer){ if(self->is_the_root){ if(rawUniversalGarbage_remove(self->return_values,pointer)){ *pointer = NULL; return true; } } for(int i = 0; i < self->elements_size; i++){ privateUniversalGarbageElement *current = self->elements[i]; if(current->pointer == pointer){ private_UniversalGarbageSimpleElement_free(current); self->elements_size-=1; bool its_not_the_last = i < self->elements_size; if(its_not_the_last){ self->elements[i] = self->elements[self->elements_size]; } *pointer = NULL; return true; } } return false; } bool rawUniversalGarbage_disconnect(UniversalGarbage *self, void **pointer){ if(self->is_the_root){ if(rawUniversalGarbage_disconnect(self->return_values,pointer)){ return true; } } for(int i = 0; i < self->elements_size; i++){ privateUniversalGarbageElement *current = self->elements[i]; if(current->pointer == pointer){ free(current); self->elements_size-=1; bool its_not_the_last = i < self->elements_size; if(its_not_the_last){ self->elements[i] = self->elements[self->elements_size]; } return true; } } return false; } bool rawUniversalGarbage_add(UniversalGarbage *self, void *release_callback, void **pointer){ if(!pointer){ return false; } for(int i = 0; i < self->elements_size; i++){ privateUniversalGarbageElement *current = self->elements[i]; if(current->pointer == pointer){ return false; } } self->elements = (privateUniversalGarbageElement**)realloc( self->elements, (self->elements_size + 1) * sizeof(privateUniversalGarbageElement*) ); void (*dealocator_callback)(void *element); #ifdef __cplusplus dealocator_callback =reinterpret_cast(release_callback); #else dealocator_callback = (void*)(void*)release_callback; #endif self->elements[self->elements_size] = private_newUniversalGarbageSimpleElement(dealocator_callback, pointer); self->elements_size+=1; return true; } void private_UniversalGarbage_free_all_sub_elements(UniversalGarbage *self){ for(int i = 0; i < self->elements_size; i++){ private_UniversalGarbageSimpleElement_free(self->elements[i]); } free(self->elements); } void UniversalGarbage_free_including_return(UniversalGarbage *self){ private_UniversalGarbage_free_all_sub_elements(self); if(self->is_the_root){ UniversalGarbage_free(self->return_values); } free(self); } void UniversalGarbage_free(UniversalGarbage *self){ private_UniversalGarbage_free_all_sub_elements(self); if(self->is_the_root){ UniversalGarbage *return_garbage = self->return_values; for(int i = 0; i < return_garbage->elements_size; i++){ free(return_garbage->elements[i]); } free(return_garbage->elements); free(return_garbage); } free(self); } #define UNIVERSAL_GARBAGE_H #endif //path: src/imports/../dependencies/lua/onelua.c #ifndef MAKE_LIB #ifndef MAKE_LUAC #ifndef MAKE_LUA #define MAKE_LUA #endif #endif #endif #include //path: src/imports/../dependencies/lua/custom_math/custom_math.h double private_lua_cembed_ldexp(double x, int exp); double private_lua_cembed_frexp(double x, int *exp); double private_lua_cembed_asin(double x); double private_lua_cembed_acos(double x); double private_lua_cembed_atan2(double y, double x); double private_lua_cembed_ceil(double x); double private_lua_cembed_sqrt(double x); double private_lua_cembed_exp(double x); double private_lua_cembed_fabs(double x); double private_lua_cembed_factorial(int n); double private_lua_cembed_sin(double x); double private_lua_cembed_cos(double x); double private_lua_cembed_tan(double x); double private_lua_cembed_log(double x); double private_lua_cembed_log2(double x); double private_lua_embed_log10(double x); double private_lua_embed_fmod(double x, double y); double private_lua_embed_pow(double b, double e); double private_lua_embed_floor(double x); //path: src/imports/../dependencies/lua/custom_math/custom_math.c double private_lua_cembed_ldexp(double x, int exp) { if (x == 0.0) return x; while (exp > 0) { x *= 2.0; exp--; } while (exp < 0) { x *= 0.5; exp++; } return x; } double private_lua_cembed_frexp(double x, int *exp) { *exp = 0; if (x == 0.0) return x; while (x >= 1.0 || x < -1.0) { x *= 0.5; (*exp)++; } while (x < 0.5 && x != 0.0) { x /= 0.5; (*exp)--; } return x; } double private_lua_cembed_asin(double x) { if (x <= -1.0 || x >= 1.0) { return x / 0.0; // Retorna NaN para x fora do intervalo [-1, 1] } return private_lua_cembed_atan2(x, private_lua_cembed_sqrt(1.0 - x * x)); } double private_lua_cembed_acos(double x) { if (x <= -1.0 || x >= 1.0) { return x / 0.0; // Retorna NaN para x fora do intervalo [-1, 1] } return 1.5707963267948966 - private_lua_cembed_asin(x); } double private_lua_cembed_atan2(double y, double x) { if (x == 0.0 && y == 0.0) { return y / x; // Retorna NaN para x = 0 e y = 0 } double abs_y = private_lua_cembed_fabs(y); double angle; if (x >= 0.0) { double r = (x - abs_y) / (x + abs_y); angle = 0.7853981633974483 - 0.7853981633974483 * r; } else { double r = (x + abs_y) / (abs_y - x); angle = 2.356194490192345 + 0.7853981633974483 * r; } if (y < 0.0) { return -angle; } else { return angle; } } double private_lua_cembed_ceil(double x) { double f = private_lua_embed_floor(x); if (f >= x) { return f; } else { return f + 1.0; } } double private_lua_cembed_sqrt(double x) { if (x < 0.0) { return x / 0.0; // Retorna NaN para x < 0 } double x_half = 0.5 * x; long i = *(long*)&x; i = 0x5fe6ec85e7de30da - (i >> 1); x = *(double*)&i; x = x * (1.5 - x_half * x * x); return 1.0 / x; } double private_lua_cembed_exp(double x) { double result = 1.0; double term = 1.0; int i = 1; while (term > 1.0e-15) { term *= x / i; result += term; i++; } return result; } double private_lua_cembed_fabs(double x) { return x < 0.0 ? -x : x; } double private_lua_cembed_factorial(int n) { if (n <= 1) { return 1.0; } double result = 1.0; for (int i = 2; i <= n; ++i) { result *= i; } return result; } double private_lua_cembed_sin(double x) { double result = 0.0; int n = 0; double term = x; double current_term = term; double term_squared = term * term; while (current_term > 1.0e-15) { result += current_term; n += 2; term *= -term_squared / ((n + 1) * (n + 2)); current_term = term / private_lua_cembed_factorial(n); } return result; } double private_lua_cembed_cos(double x) { double result = 0.0; int n = 0; double term = 1.0; double current_term = term; double term_squared = term * term; while (current_term > 1.0e-15) { result += current_term; n += 2; term *= -term_squared / (n * (n + 1)); current_term = term / private_lua_cembed_factorial(n); } return result; } double private_lua_cembed_tan(double x) { return private_lua_cembed_sin(x) / private_lua_cembed_cos(x); } double private_lua_cembed_log(double x) { if (x <= 0.0) { return -1.0 / 0.0; } double result = 0.0; double term = (x - 1) / (x + 1); double current_term = term; double term_squared = term * term; int n = 1; while (current_term > 1.0e-15) { result += current_term / n; current_term *= term_squared; n += 2; } result *= 2.302585092994046; return result; } double private_lua_cembed_log2(double x) { if (x <= 0.0) { return -1.0 / 0.0; } return private_lua_cembed_log(x) / private_lua_cembed_log(2.0); } double private_lua_embed_log10(double x) { if (x <= 0.0) { return -1.0 / 0.0; } return private_lua_cembed_log(x) / private_lua_cembed_log(10.0); } double private_lua_embed_fmod(double x, double y) { while (y != 0.0) { while (x >= y) { x -= y; } if (x < y) { return x; } } return 0.0 / 0.0; } double private_lua_embed_pow(double b, double e) { double result = 1.0; int i; if (e == 0.0) { return 1.0; } if (e < 0.0) { b = 1.0 / b; e = -e; } for (i = 0; i < e; i++) { result *= b; } return result; } double private_lua_embed_floor(double x) { int i = (int)x; if (x == (double)i) { return x; } if (x < 0.0) { return (double)(i - 1); } return (double)i; } #if 0 #define LUA_USE_LINUX #define LUA_USE_MACOSX #define LUA_USE_POSIX #define LUA_ANSI #endif //path: src/imports/../dependencies/lua/lprefix.h #ifndef lprefix_h #define lprefix_h #if !defined(LUA_USE_C89) #if !defined(_XOPEN_SOURCE) #define _XOPEN_SOURCE 600 #elif _XOPEN_SOURCE == 0 #undef _XOPEN_SOURCE #endif #if !defined(LUA_32BITS) && !defined(_FILE_OFFSET_BITS) #define _LARGEFILE_SOURCE 1 #define _FILE_OFFSET_BITS 64 #endif #endif #if defined(_WIN32) #if !defined(_CRT_SECURE_NO_WARNINGS) #define _CRT_SECURE_NO_WARNINGS #endif #endif #endif #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef _WIN32 #include #else #include #include #endif #define LUA_CORE #define LUA_LIB #define ltable_c #define lvm_c //path: src/imports/../dependencies/lua/luaconf.h #ifndef luaconf_h #define luaconf_h #include #include #if !defined(LUA_USE_C89) && defined(_WIN32) && !defined(_WIN32_WCE) #define LUA_USE_WINDOWS #endif #if defined(LUA_USE_WINDOWS) #define LUA_DL_DLL #define LUA_USE_C89 #endif #if defined(LUA_USE_LINUX) #define LUA_USE_POSIX #define LUA_USE_DLOPEN #endif #if defined(LUA_USE_MACOSX) #define LUA_USE_POSIX #define LUA_USE_DLOPEN #endif #if defined(LUA_USE_IOS) #define LUA_USE_POSIX #define LUA_USE_DLOPEN #endif #define LUAI_IS32INT ((UINT_MAX >> 30) >= 3) #define LUA_INT_INT 1 #define LUA_INT_LONG 2 #define LUA_INT_LONGLONG 3 #define LUA_FLOAT_FLOAT 1 #define LUA_FLOAT_DOUBLE 2 #define LUA_FLOAT_LONGDOUBLE 3 #define LUA_INT_DEFAULT LUA_INT_LONGLONG #define LUA_FLOAT_DEFAULT LUA_FLOAT_DOUBLE #define LUA_32BITS 0 #if defined(LUA_USE_C89) && !defined(LUA_USE_WINDOWS) #define LUA_C89_NUMBERS 1 #else #define LUA_C89_NUMBERS 0 #endif #if LUA_32BITS #if LUAI_IS32INT #define LUA_INT_TYPE LUA_INT_INT #else #define LUA_INT_TYPE LUA_INT_LONG #endif #define LUA_FLOAT_TYPE LUA_FLOAT_FLOAT #elif LUA_C89_NUMBERS #define LUA_INT_TYPE LUA_INT_LONG #define LUA_FLOAT_TYPE LUA_FLOAT_DOUBLE #else #define LUA_INT_TYPE LUA_INT_DEFAULT #define LUA_FLOAT_TYPE LUA_FLOAT_DEFAULT #endif #define LUA_PATH_SEP ";" #define LUA_PATH_MARK "?" #define LUA_EXEC_DIR "!" #define LUA_VDIR LUA_VERSION_MAJOR "." LUA_VERSION_MINOR #if defined(_WIN32) #define LUA_LDIR "!\\lua\\" #define LUA_CDIR "!\\" #define LUA_SHRDIR "!\\..\\share\\lua\\" LUA_VDIR "\\" #if !defined(LUA_PATH_DEFAULT) #define LUA_PATH_DEFAULT \ LUA_LDIR"?.lua;" LUA_LDIR"?\\init.lua;" \ LUA_CDIR"?.lua;" LUA_CDIR"?\\init.lua;" \ LUA_SHRDIR"?.lua;" LUA_SHRDIR"?\\init.lua;" \ ".\\?.lua;" ".\\?\\init.lua" #endif #if !defined(LUA_CPATH_DEFAULT) #define LUA_CPATH_DEFAULT \ LUA_CDIR"?.dll;" \ LUA_CDIR"..\\lib\\lua\\" LUA_VDIR "\\?.dll;" \ LUA_CDIR"loadall.dll;" ".\\?.dll" #endif #else #define LUA_ROOT "/usr/local/" #define LUA_LDIR LUA_ROOT "share/lua/" LUA_VDIR "/" #define LUA_CDIR LUA_ROOT "lib/lua/" LUA_VDIR "/" #if !defined(LUA_PATH_DEFAULT) #define LUA_PATH_DEFAULT \ LUA_LDIR"?.lua;" LUA_LDIR"?/init.lua;" \ LUA_CDIR"?.lua;" LUA_CDIR"?/init.lua;" \ "./?.lua;" "./?/init.lua" #endif #if !defined(LUA_CPATH_DEFAULT) #define LUA_CPATH_DEFAULT \ LUA_CDIR"?.so;" LUA_CDIR"loadall.so;" "./?.so" #endif #endif #if !defined(LUA_DIRSEP) #if defined(_WIN32) #define LUA_DIRSEP "\\" #else #define LUA_DIRSEP "/" #endif #endif #define LUA_IGMARK "-" #if defined(LUA_BUILD_AS_DLL) #if defined(LUA_CORE) || defined(LUA_LIB) #define LUA_API __declspec(dllexport) #else #define LUA_API __declspec(dllimport) #endif #else #define LUA_API extern #endif #define LUALIB_API LUA_API #define LUAMOD_API LUA_API #if defined(__GNUC__) && ((__GNUC__*100 + __GNUC_MINOR__) >= 302) && \ defined(__ELF__) #define LUAI_FUNC __attribute__((visibility("internal"))) extern #else #define LUAI_FUNC extern #endif #define LUAI_DDEC(dec) LUAI_FUNC dec #define LUAI_DDEF #if defined(LUA_COMPAT_5_3) #define LUA_COMPAT_MATHLIB #define LUA_COMPAT_APIINTCASTS #define LUA_COMPAT_LT_LE #define lua_strlen(L,i) lua_rawlen(L, (i)) #define lua_objlen(L,i) lua_rawlen(L, (i)) #define lua_equal(L,idx1,idx2) lua_compare(L,(idx1),(idx2),LUA_OPEQ) #define lua_lessthan(L,idx1,idx2) lua_compare(L,(idx1),(idx2),LUA_OPLT) #endif #define l_floor(x) (l_mathop(private_lua_embed_floor)(x)) #define lua_number2str(s,sz,n) \ l_sprintf((s), sz, LUA_NUMBER_FMT, (LUAI_UACNUMBER)(n)) #define lua_numbertointeger(n,p) \ ((n) >= (LUA_NUMBER)(LUA_MININTEGER) && \ (n) < -(LUA_NUMBER)(LUA_MININTEGER) && \ (*(p) = (LUA_INTEGER)(n), 1)) #if LUA_FLOAT_TYPE == LUA_FLOAT_FLOAT #define LUA_NUMBER float #define l_floatatt(n) (FLT_##n) #define LUAI_UACNUMBER double #define LUA_NUMBER_FRMLEN "carview.php?tsp=" #define LUA_NUMBER_FMT "%.7g" #define l_mathop(op) op##f #define lua_str2number(s,p) strtof((s), (p)) #elif LUA_FLOAT_TYPE == LUA_FLOAT_LONGDOUBLE #define LUA_NUMBER long double #define l_floatatt(n) (LDBL_##n) #define LUAI_UACNUMBER long double #define LUA_NUMBER_FRMLEN "L" #define LUA_NUMBER_FMT "%.19Lg" #define l_mathop(op) op##l #define lua_str2number(s,p) strtold((s), (p)) #elif LUA_FLOAT_TYPE == LUA_FLOAT_DOUBLE #define LUA_NUMBER double #define l_floatatt(n) (DBL_##n) #define LUAI_UACNUMBER double #define LUA_NUMBER_FRMLEN "carview.php?tsp=" #define LUA_NUMBER_FMT "%.14g" #define l_mathop(op) op #define lua_str2number(s,p) strtod((s), (p)) #else #error "numeric float type not defined" #endif #define LUA_INTEGER_FMT "%" LUA_INTEGER_FRMLEN "d" #define LUAI_UACINT LUA_INTEGER #define lua_integer2str(s,sz,n) \ l_sprintf((s), sz, LUA_INTEGER_FMT, (LUAI_UACINT)(n)) #define LUA_UNSIGNED unsigned LUAI_UACINT #if LUA_INT_TYPE == LUA_INT_INT #define LUA_INTEGER int #define LUA_INTEGER_FRMLEN "carview.php?tsp=" #define LUA_MAXINTEGER INT_MAX #define LUA_MININTEGER INT_MIN #define LUA_MAXUNSIGNED UINT_MAX #elif LUA_INT_TYPE == LUA_INT_LONG #define LUA_INTEGER long #define LUA_INTEGER_FRMLEN "l" #define LUA_MAXINTEGER LONG_MAX #define LUA_MININTEGER LONG_MIN #define LUA_MAXUNSIGNED ULONG_MAX #elif LUA_INT_TYPE == LUA_INT_LONGLONG #if defined(LLONG_MAX) #define LUA_INTEGER long long #define LUA_INTEGER_FRMLEN "ll" #define LUA_MAXINTEGER LLONG_MAX #define LUA_MININTEGER LLONG_MIN #define LUA_MAXUNSIGNED ULLONG_MAX #elif defined(LUA_USE_WINDOWS) #define LUA_INTEGER __int64 #define LUA_INTEGER_FRMLEN "I64" #define LUA_MAXINTEGER _I64_MAX #define LUA_MININTEGER _I64_MIN #define LUA_MAXUNSIGNED _UI64_MAX #else #error "Compiler does not support 'long long'. Use option '-DLUA_32BITS' \ or '-DLUA_C89_NUMBERS' (see file 'luaconf.h' for details)" #endif #else #error "numeric integer type not defined" #endif #if !defined(LUA_USE_C89) #define l_sprintf(s,sz,f,i) snprintf(s,sz,f,i) #else #define l_sprintf(s,sz,f,i) ((void)(sz), sprintf(s,f,i)) #endif #if !defined(LUA_USE_C89) #define lua_strx2number(s,p) lua_str2number(s,p) #endif #define lua_pointer2str(buff,sz,p) l_sprintf(buff,sz,"%p",p) #if !defined(LUA_USE_C89) #define lua_number2strx(L,b,sz,f,n) \ ((void)L, l_sprintf(b,sz,f,(LUAI_UACNUMBER)(n))) #endif #if defined(LUA_USE_C89) || (defined(HUGE_VAL) && !defined(HUGE_VALF)) #undef l_mathop #undef lua_str2number #define l_mathop(op) (lua_Number)op #define lua_str2number(s,p) ((lua_Number)strtod((s), (p))) #endif #define LUA_KCONTEXT ptrdiff_t #if !defined(LUA_USE_C89) && defined(__STDC_VERSION__) && \ __STDC_VERSION__ >= 199901L #include #if defined(INTPTR_MAX) #undef LUA_KCONTEXT #define LUA_KCONTEXT intptr_t #endif #endif #if !defined(lua_getlocaledecpoint) #define lua_getlocaledecpoint() (localeconv()->decimal_point[0]) #endif #if !defined(luai_likely) #if defined(__GNUC__) && !defined(LUA_NOBUILTIN) #define luai_likely(x) (__builtin_expect(((x) != 0), 1)) #define luai_unlikely(x) (__builtin_expect(((x) != 0), 0)) #else #define luai_likely(x) (x) #define luai_unlikely(x) (x) #endif #endif #if defined(LUA_CORE) || defined(LUA_LIB) #define l_likely(x) luai_likely(x) #define l_unlikely(x) luai_unlikely(x) #endif #if defined(LUA_USE_APICHECK) #include #define luai_apicheck(l,e) assert(e) #endif #if LUAI_IS32INT #define LUAI_MAXSTACK 1000000 #else #define LUAI_MAXSTACK 15000 #endif #define LUA_EXTRASPACE (sizeof(void *)) #define LUA_IDSIZE 60 #define LUAL_BUFFERSIZE ((int)(16 * sizeof(void*) * sizeof(lua_Number))) #define LUAI_MAXALIGN lua_Number n; double u; void *s; lua_Integer i; long l #endif #undef LUAI_FUNC #undef LUAI_DDEC #undef LUAI_DDEF #define LUAI_FUNC static #define LUAI_DDEC(def) #define LUAI_DDEF static //path: src/imports/../dependencies/lua/lzio.c #define lzio_c #define LUA_CORE #include //path: src/imports/../dependencies/lua/lua.h #ifndef lua_h #define lua_h #include #include #define LUA_COPYRIGHT LUA_RELEASE " Copyright (C) 1994-2023 Lua.org, PUC-Rio" #define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo, W. Celes" #define LUA_VERSION_MAJOR_N 5 #define LUA_VERSION_MINOR_N 5 #define LUA_VERSION_RELEASE_N 0 #define LUA_VERSION_NUM (LUA_VERSION_MAJOR_N * 100 + LUA_VERSION_MINOR_N) #define LUA_VERSION_RELEASE_NUM (LUA_VERSION_NUM * 100 + LUA_VERSION_RELEASE_N) #define LUA_SIGNATURE "\x1bLua" #define LUA_MULTRET (-1) #define LUA_REGISTRYINDEX (-LUAI_MAXSTACK - 1000) #define lua_upvalueindex(i) (LUA_REGISTRYINDEX - (i)) #define LUA_OK 0 #define LUA_YIELD 1 #define LUA_ERRRUN 2 #define LUA_ERRSYNTAX 3 #define LUA_ERRMEM 4 #define LUA_ERRERR 5 typedef struct lua_State lua_State; #define LUA_TNONE (-1) #define LUA_TNIL 0 #define LUA_TBOOLEAN 1 #define LUA_TLIGHTUSERDATA 2 #define LUA_TNUMBER 3 #define LUA_TSTRING 4 #define LUA_TTABLE 5 #define LUA_TFUNCTION 6 #define LUA_TUSERDATA 7 #define LUA_TTHREAD 8 #define LUA_NUMTYPES 9 #define LUA_MINSTACK 20 #define LUA_RIDX_GLOBALS 2 #define LUA_RIDX_MAINTHREAD 3 #define LUA_RIDX_LAST 3 typedef LUA_NUMBER lua_Number; typedef LUA_INTEGER lua_Integer; typedef LUA_UNSIGNED lua_Unsigned; typedef LUA_KCONTEXT lua_KContext; typedef int (*lua_CFunction) (lua_State *L); typedef int (*lua_KFunction) (lua_State *L, int status, lua_KContext ctx); typedef const char * (*lua_Reader) (lua_State *L, void *ud, size_t *sz); typedef int (*lua_Writer) (lua_State *L, const void *p, size_t sz, void *ud); typedef void * (*lua_Alloc) (void *ud, void *ptr, size_t osize, size_t nsize); typedef void (*lua_WarnFunction) (void *ud, const char *msg, int tocont); typedef struct lua_Debug lua_Debug; typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar); extern const char lua_ident[]; LUA_API lua_State *(lua_newstate) (lua_Alloc f, void *ud, unsigned seed); LUA_API void (lua_close) (lua_State *L); LUA_API lua_State *(lua_newthread) (lua_State *L); LUA_API int (lua_closethread) (lua_State *L, lua_State *from); LUA_API lua_CFunction (lua_atpanic) (lua_State *L, lua_CFunction panicf); LUA_API lua_Number (lua_version) (lua_State *L); LUA_API int (lua_absindex) (lua_State *L, int idx); LUA_API int (lua_gettop) (lua_State *L); LUA_API void (lua_settop) (lua_State *L, int idx); LUA_API void (lua_pushvalue) (lua_State *L, int idx); LUA_API void (lua_rotate) (lua_State *L, int idx, int n); LUA_API void (lua_copy) (lua_State *L, int fromidx, int toidx); LUA_API int (lua_checkstack) (lua_State *L, int n); LUA_API void (lua_xmove) (lua_State *from, lua_State *to, int n); LUA_API int (lua_isnumber) (lua_State *L, int idx); LUA_API int (lua_isstring) (lua_State *L, int idx); LUA_API int (lua_iscfunction) (lua_State *L, int idx); LUA_API int (lua_isinteger) (lua_State *L, int idx); LUA_API int (lua_isuserdata) (lua_State *L, int idx); LUA_API int (lua_type) (lua_State *L, int idx); LUA_API const char *(lua_typename) (lua_State *L, int tp); LUA_API lua_Number (lua_tonumberx) (lua_State *L, int idx, int *isnum); LUA_API lua_Integer (lua_tointegerx) (lua_State *L, int idx, int *isnum); LUA_API int (lua_toboolean) (lua_State *L, int idx); LUA_API const char *(lua_tolstring) (lua_State *L, int idx, size_t *len); LUA_API lua_Unsigned (lua_rawlen) (lua_State *L, int idx); LUA_API lua_CFunction (lua_tocfunction) (lua_State *L, int idx); LUA_API void *(lua_touserdata) (lua_State *L, int idx); LUA_API lua_State *(lua_tothread) (lua_State *L, int idx); LUA_API const void *(lua_topointer) (lua_State *L, int idx); #define LUA_OPADD 0 #define LUA_OPSUB 1 #define LUA_OPMUL 2 #define LUA_OPMOD 3 #define LUA_OPPOW 4 #define LUA_OPDIV 5 #define LUA_OPIDIV 6 #define LUA_OPBAND 7 #define LUA_OPBOR 8 #define LUA_OPBXOR 9 #define LUA_OPSHL 10 #define LUA_OPSHR 11 #define LUA_OPUNM 12 #define LUA_OPBNOT 13 LUA_API void (lua_arith) (lua_State *L, int op); #define LUA_OPEQ 0 #define LUA_OPLT 1 #define LUA_OPLE 2 LUA_API int (lua_rawequal) (lua_State *L, int idx1, int idx2); LUA_API int (lua_compare) (lua_State *L, int idx1, int idx2, int op); LUA_API void (lua_pushnil) (lua_State *L); LUA_API void (lua_pushnumber) (lua_State *L, lua_Number n); LUA_API void (lua_pushinteger) (lua_State *L, lua_Integer n); LUA_API const char *(lua_pushlstring) (lua_State *L, const char *s, size_t len); LUA_API const char *(lua_pushextlstring) (lua_State *L, const char *s, size_t len, lua_Alloc falloc, void *ud); LUA_API const char *(lua_pushstring) (lua_State *L, const char *s); LUA_API const char *(lua_pushvfstring) (lua_State *L, const char *fmt, va_list argp); LUA_API const char *(lua_pushfstring) (lua_State *L, const char *fmt, ...); LUA_API void (lua_pushcclosure) (lua_State *L, lua_CFunction fn, int n); LUA_API void (lua_pushboolean) (lua_State *L, int b); LUA_API void (lua_pushlightuserdata) (lua_State *L, void *p); LUA_API int (lua_pushthread) (lua_State *L); LUA_API int (lua_getglobal) (lua_State *L, const char *name); LUA_API int (lua_gettable) (lua_State *L, int idx); LUA_API int (lua_getfield) (lua_State *L, int idx, const char *k); LUA_API int (lua_geti) (lua_State *L, int idx, lua_Integer n); LUA_API int (lua_rawget) (lua_State *L, int idx); LUA_API int (lua_rawgeti) (lua_State *L, int idx, lua_Integer n); LUA_API int (lua_rawgetp) (lua_State *L, int idx, const void *p); LUA_API void (lua_createtable) (lua_State *L, unsigned narr, unsigned nrec); LUA_API void *(lua_newuserdatauv) (lua_State *L, size_t sz, int nuvalue); LUA_API int (lua_getmetatable) (lua_State *L, int objindex); LUA_API int (lua_getiuservalue) (lua_State *L, int idx, int n); LUA_API void (lua_setglobal) (lua_State *L, const char *name); LUA_API void (lua_settable) (lua_State *L, int idx); LUA_API void (lua_setfield) (lua_State *L, int idx, const char *k); LUA_API void (lua_seti) (lua_State *L, int idx, lua_Integer n); LUA_API void (lua_rawset) (lua_State *L, int idx); LUA_API void (lua_rawseti) (lua_State *L, int idx, lua_Integer n); LUA_API void (lua_rawsetp) (lua_State *L, int idx, const void *p); LUA_API int (lua_setmetatable) (lua_State *L, int objindex); LUA_API int (lua_setiuservalue) (lua_State *L, int idx, int n); LUA_API void (lua_callk) (lua_State *L, int nargs, int nresults, lua_KContext ctx, lua_KFunction k); #define lua_call(L,n,r) lua_callk(L, (n), (r), 0, NULL) LUA_API int (lua_pcallk) (lua_State *L, int nargs, int nresults, int errfunc, lua_KContext ctx, lua_KFunction k); #define lua_pcall(L,n,r,f) lua_pcallk(L, (n), (r), (f), 0, NULL) LUA_API int (lua_load) (lua_State *L, lua_Reader reader, void *dt, const char *chunkname, const char *mode); LUA_API int (lua_dump) (lua_State *L, lua_Writer writer, void *data, int strip); LUA_API int (lua_yieldk) (lua_State *L, int nresults, lua_KContext ctx, lua_KFunction k); LUA_API int (lua_resume) (lua_State *L, lua_State *from, int narg, int *nres); LUA_API int (lua_status) (lua_State *L); LUA_API int (lua_isyieldable) (lua_State *L); #define lua_yield(L,n) lua_yieldk(L, (n), 0, NULL) LUA_API void (lua_setwarnf) (lua_State *L, lua_WarnFunction f, void *ud); LUA_API void (lua_warning) (lua_State *L, const char *msg, int tocont); #define LUA_GCSTOP 0 #define LUA_GCRESTART 1 #define LUA_GCCOLLECT 2 #define LUA_GCCOUNT 3 #define LUA_GCCOUNTB 4 #define LUA_GCSTEP 5 #define LUA_GCISRUNNING 6 #define LUA_GCGEN 7 #define LUA_GCINC 8 #define LUA_GCPARAM 9 #define LUA_GCPMINORMUL 0 #define LUA_GCPMAJORMINOR 1 #define LUA_GCPMINORMAJOR 2 #define LUA_GCPPAUSE 3 #define LUA_GCPSTEPMUL 4 #define LUA_GCPSTEPSIZE 5 #define LUA_GCPN 6 LUA_API int (lua_gc) (lua_State *L, int what, ...); LUA_API int (lua_error) (lua_State *L); LUA_API int (lua_next) (lua_State *L, int idx); LUA_API void (lua_concat) (lua_State *L, int n); LUA_API void (lua_len) (lua_State *L, int idx); LUA_API size_t (lua_stringtonumber) (lua_State *L, const char *s); LUA_API lua_Alloc (lua_getallocf) (lua_State *L, void **ud); LUA_API void (lua_setallocf) (lua_State *L, lua_Alloc f, void *ud); LUA_API void (lua_toclose) (lua_State *L, int idx); LUA_API void (lua_closeslot) (lua_State *L, int idx); #define lua_getextraspace(L) ((void *)((char *)(L) - LUA_EXTRASPACE)) #define lua_tonumber(L,i) lua_tonumberx(L,(i),NULL) #define lua_tointeger(L,i) lua_tointegerx(L,(i),NULL) #define lua_pop(L,n) lua_settop(L, -(n)-1) #define lua_newtable(L) lua_createtable(L, 0, 0) #define lua_register(L,n,f) (lua_pushcfunction(L, (f)), lua_setglobal(L, (n))) #define lua_pushcfunction(L,f) lua_pushcclosure(L, (f), 0) #define lua_isfunction(L,n) (lua_type(L, (n)) == LUA_TFUNCTION) #define lua_istable(L,n) (lua_type(L, (n)) == LUA_TTABLE) #define lua_islightuserdata(L,n) (lua_type(L, (n)) == LUA_TLIGHTUSERDATA) #define lua_isnil(L,n) (lua_type(L, (n)) == LUA_TNIL) #define lua_isboolean(L,n) (lua_type(L, (n)) == LUA_TBOOLEAN) #define lua_isthread(L,n) (lua_type(L, (n)) == LUA_TTHREAD) #define lua_isnone(L,n) (lua_type(L, (n)) == LUA_TNONE) #define lua_isnoneornil(L, n) (lua_type(L, (n)) <= 0) #define lua_pushliteral(L, s) lua_pushstring(L, "carview.php?tsp=" s) #define lua_pushglobaltable(L) \ ((void)lua_rawgeti(L, LUA_REGISTRYINDEX, LUA_RIDX_GLOBALS)) #define lua_tostring(L,i) lua_tolstring(L, (i), NULL) #define lua_insert(L,idx) lua_rotate(L, (idx), 1) #define lua_remove(L,idx) (lua_rotate(L, (idx), -1), lua_pop(L, 1)) #define lua_replace(L,idx) (lua_copy(L, -1, (idx)), lua_pop(L, 1)) #if defined(LUA_COMPAT_APIINTCASTS) #define lua_pushunsigned(L,n) lua_pushinteger(L, (lua_Integer)(n)) #define lua_tounsignedx(L,i,is) ((lua_Unsigned)lua_tointegerx(L,i,is)) #define lua_tounsigned(L,i) lua_tounsignedx(L,(i),NULL) #endif #define lua_newuserdata(L,s) lua_newuserdatauv(L,s,1) #define lua_getuservalue(L,idx) lua_getiuservalue(L,idx,1) #define lua_setuservalue(L,idx) lua_setiuservalue(L,idx,1) #define lua_resetthread(L) lua_closethread(L,NULL) #define LUA_HOOKCALL 0 #define LUA_HOOKRET 1 #define LUA_HOOKLINE 2 #define LUA_HOOKCOUNT 3 #define LUA_HOOKTAILCALL 4 #define LUA_MASKCALL (1 << LUA_HOOKCALL) #define LUA_MASKRET (1 << LUA_HOOKRET) #define LUA_MASKLINE (1 << LUA_HOOKLINE) #define LUA_MASKCOUNT (1 << LUA_HOOKCOUNT) LUA_API int (lua_getstack) (lua_State *L, int level, lua_Debug *ar); LUA_API int (lua_getinfo) (lua_State *L, const char *what, lua_Debug *ar); LUA_API const char *(lua_getlocal) (lua_State *L, const lua_Debug *ar, int n); LUA_API const char *(lua_setlocal) (lua_State *L, const lua_Debug *ar, int n); LUA_API const char *(lua_getupvalue) (lua_State *L, int funcindex, int n); LUA_API const char *(lua_setupvalue) (lua_State *L, int funcindex, int n); LUA_API void *(lua_upvalueid) (lua_State *L, int fidx, int n); LUA_API void (lua_upvaluejoin) (lua_State *L, int fidx1, int n1, int fidx2, int n2); LUA_API void (lua_sethook) (lua_State *L, lua_Hook func, int mask, int count); LUA_API lua_Hook (lua_gethook) (lua_State *L); LUA_API int (lua_gethookmask) (lua_State *L); LUA_API int (lua_gethookcount) (lua_State *L); struct lua_Debug { int event; const char *name; const char *namewhat; const char *what; const char *source; size_t srclen; int currentline; int linedefined; int lastlinedefined; unsigned char nups; unsigned char nparams; char isvararg; char istailcall; unsigned short ftransfer; unsigned short ntransfer; char short_src[LUA_IDSIZE]; struct CallInfo *i_ci; }; #define LUAI_TOSTRAUX(x) #x #define LUAI_TOSTR(x) LUAI_TOSTRAUX(x) #define LUA_VERSION_MAJOR LUAI_TOSTR(LUA_VERSION_MAJOR_N) #define LUA_VERSION_MINOR LUAI_TOSTR(LUA_VERSION_MINOR_N) #define LUA_VERSION_RELEASE LUAI_TOSTR(LUA_VERSION_RELEASE_N) #define LUA_VERSION "Lua " LUA_VERSION_MAJOR "." LUA_VERSION_MINOR #define LUA_RELEASE LUA_VERSION "." LUA_VERSION_RELEASE #endif //path: src/imports/../dependencies/lua/llimits.h #ifndef llimits_h #define llimits_h #include #include #if defined(LUAI_MEM) typedef LUAI_UMEM lu_mem; typedef LUAI_MEM l_obj; #elif LUAI_IS32INT typedef size_t lu_mem; typedef ptrdiff_t l_obj; #else typedef unsigned long lu_mem; typedef long l_obj; #endif #define MAX_LOBJ \ cast(l_obj, (cast(lu_mem, 1) << (sizeof(l_obj) * CHAR_BIT - 1)) - 1) typedef unsigned char lu_byte; typedef signed char ls_byte; #define MAX_SIZET ((size_t)(~(size_t)0)) #define MAX_SIZE (sizeof(size_t) < sizeof(lua_Integer) ? MAX_SIZET \ : (size_t)(LUA_MAXINTEGER)) #define MAX_INT INT_MAX #define log2maxs(t) cast_int(sizeof(t) * 8 - 2) #define ispow2(x) (((x) & ((x) - 1)) == 0) #define LL(x) (sizeof(x)/sizeof(char) - 1) #if !defined(LUA_USE_C89) && defined(__STDC_VERSION__) && \ __STDC_VERSION__ >= 199901L #include #if defined(UINTPTR_MAX) #define L_P2I uintptr_t #else #define L_P2I uintmax_t #endif #else #define L_P2I size_t #endif #define point2uint(p) cast_uint((L_P2I)(p) & UINT_MAX) typedef LUAI_UACNUMBER l_uacNumber; typedef LUAI_UACINT l_uacInt; #if defined LUAI_ASSERT #undef NDEBUG #include #define lua_assert(c) assert(c) #endif #if defined(lua_assert) #define check_exp(c,e) (lua_assert(c), (e)) #define lua_longassert(c) ((c) ? (void)0 : lua_assert(0)) #else #define lua_assert(c) ((void)0) #define check_exp(c,e) (e) #define lua_longassert(c) ((void)0) #endif #if !defined(luai_apicheck) #define luai_apicheck(l,e) ((void)l, lua_assert(e)) #endif #define api_check(l,e,msg) luai_apicheck(l,(e) && msg) #if !defined(UNUSED) #define UNUSED(x) ((void)(x)) #endif #define cast(t, exp) ((t)(exp)) #define cast_void(i) cast(void, (i)) #define cast_voidp(i) cast(void *, (i)) #define cast_num(i) cast(lua_Number, (i)) #define cast_int(i) cast(int, (i)) #define cast_uint(i) cast(unsigned int, (i)) #define cast_byte(i) cast(lu_byte, (i)) #define cast_uchar(i) cast(unsigned char, (i)) #define cast_char(i) cast(char, (i)) #define cast_charp(i) cast(char *, (i)) #define cast_sizet(i) cast(size_t, (i)) #if !defined(l_castS2U) #define l_castS2U(i) ((lua_Unsigned)(i)) #endif #if !defined(l_castU2S) #define l_castU2S(i) ((lua_Integer)(i)) #endif #if !defined(l_noret) #if defined(__GNUC__) #define l_noret void __attribute__((noreturn)) #elif defined(_MSC_VER) && _MSC_VER >= 1200 #define l_noret void __declspec(noreturn) #else #define l_noret void #endif #endif #if !defined(LUA_USE_C89) #define l_inline inline #elif defined(__GNUC__) #define l_inline __inline__ #else #define l_inline #endif #define l_sinline static l_inline #if LUAI_IS32INT typedef unsigned int l_uint32; #else typedef unsigned long l_uint32; #endif typedef l_uint32 Instruction; #if !defined(LUAI_MAXSHORTLEN) #define LUAI_MAXSHORTLEN 40 #endif #if !defined(MINSTRTABSIZE) #define MINSTRTABSIZE 128 #endif #if !defined(STRCACHE_N) #define STRCACHE_N 53 #define STRCACHE_M 2 #endif #if !defined(LUA_MINBUFFER) #define LUA_MINBUFFER 32 #endif #if !defined(LUAI_MAXCCALLS) #define LUAI_MAXCCALLS 200 #endif #if !defined(lua_lock) #define lua_lock(L) ((void) 0) #define lua_unlock(L) ((void) 0) #endif #if !defined(luai_threadyield) #define luai_threadyield(L) {lua_unlock(L); lua_lock(L);} #endif #if !defined(luai_userstateopen) #define luai_userstateopen(L) ((void)L) #endif #if !defined(luai_userstateclose) #define luai_userstateclose(L) ((void)L) #endif #if !defined(luai_userstatethread) #define luai_userstatethread(L,L1) ((void)L) #endif #if !defined(luai_userstatefree) #define luai_userstatefree(L,L1) ((void)L) #endif #if !defined(luai_userstateresume) #define luai_userstateresume(L,n) ((void)L) #endif #if !defined(luai_userstateyield) #define luai_userstateyield(L,n) ((void)L) #endif #if !defined(luai_numidiv) #define luai_numidiv(L,a,b) ((void)L, l_floor(luai_numdiv(L,a,b))) #endif #if !defined(luai_numdiv) #define luai_numdiv(L,a,b) ((a)/(b)) #endif #if !defined(luai_nummod) #define luai_nummod(L,a,b,m) \ { (void)L; (m) = l_mathop(private_lua_embed_fmod)(a,b); \ if (((m) > 0) ? (b) < 0 : ((m) < 0 && (b) > 0)) (m) += (b); } #endif #if !defined(luai_numpow) #define luai_numpow(L,a,b) \ ((void)L, (b == 2) ? (a)*(a) : l_mathop(private_lua_embed_pow)(a,b)) #endif #if !defined(luai_numadd) #define luai_numadd(L,a,b) ((a)+(b)) #define luai_numsub(L,a,b) ((a)-(b)) #define luai_nummul(L,a,b) ((a)*(b)) #define luai_numunm(L,a) (-(a)) #define luai_numeq(a,b) ((a)==(b)) #define luai_numlt(a,b) ((a)<(b)) #define luai_numle(a,b) ((a)<=(b)) #define luai_numgt(a,b) ((a)>(b)) #define luai_numge(a,b) ((a)>=(b)) #define luai_numisnan(a) (!luai_numeq((a), (a))) #endif #if !defined(HARDSTACKTESTS) #define condmovestack(L,pre,pos) ((void)0) #else #define condmovestack(L,pre,pos) \ { int sz_ = stacksize(L); pre; luaD_reallocstack((L), sz_, 0); pos; } #endif #if !defined(HARDMEMTESTS) #define condchangemem(L,pre,pos) ((void)0) #else #define condchangemem(L,pre,pos) \ { if (gcrunning(G(L))) { pre; luaC_fullgc(L, 0); pos; } } #endif #endif //path: src/imports/../dependencies/lua/lmem.h #ifndef lmem_h #define lmem_h #include #define luaM_error(L) luaD_throw(L, LUA_ERRMEM) #define luaM_testsize(n,e) \ (sizeof(n) >= sizeof(size_t) && cast_sizet((n)) + 1 > MAX_SIZET/(e)) #define luaM_checksize(L,n,e) \ (luaM_testsize(n,e) ? luaM_toobig(L) : cast_void(0)) #define luaM_limitN(n,t) \ ((cast_sizet(n) <= MAX_SIZET/sizeof(t)) ? (n) : \ cast_uint((MAX_SIZET/sizeof(t)))) #define luaM_reallocvchar(L,b,on,n) \ cast_charp(luaM_saferealloc_(L, (b), (on)*sizeof(char), (n)*sizeof(char))) #define luaM_freemem(L, b, s) luaM_free_(L, (b), (s)) #define luaM_free(L, b) luaM_free_(L, (b), sizeof(*(b))) #define luaM_freearray(L, b, n) luaM_free_(L, (b), (n)*sizeof(*(b))) #define luaM_new(L,t) cast(t*, luaM_malloc_(L, sizeof(t), 0)) #define luaM_newvector(L,n,t) cast(t*, luaM_malloc_(L, (n)*sizeof(t), 0)) #define luaM_newvectorchecked(L,n,t) \ (luaM_checksize(L,n,sizeof(t)), luaM_newvector(L,n,t)) #define luaM_newobject(L,tag,s) luaM_malloc_(L, (s), tag) #define luaM_newblock(L, size) luaM_newvector(L, size, char) #define luaM_growvector(L,v,nelems,size,t,limit,e) \ ((v)=cast(t *, luaM_growaux_(L,v,nelems,&(size),sizeof(t), \ luaM_limitN(limit,t),e))) #define luaM_reallocvector(L, v,oldn,n,t) \ (cast(t *, luaM_realloc_(L, v, cast_sizet(oldn) * sizeof(t), \ cast_sizet(n) * sizeof(t)))) #define luaM_shrinkvector(L,v,size,fs,t) \ ((v)=cast(t *, luaM_shrinkvector_(L, v, &(size), fs, sizeof(t)))) LUAI_FUNC l_noret luaM_toobig (lua_State *L); LUAI_FUNC void *luaM_realloc_ (lua_State *L, void *block, size_t oldsize, size_t size); LUAI_FUNC void *luaM_saferealloc_ (lua_State *L, void *block, size_t oldsize, size_t size); LUAI_FUNC void luaM_free_ (lua_State *L, void *block, size_t osize); LUAI_FUNC void *luaM_growaux_ (lua_State *L, void *block, int nelems, int *size, int size_elem, int limit, const char *what); LUAI_FUNC void *luaM_shrinkvector_ (lua_State *L, void *block, int *nelem, int final_n, int size_elem); LUAI_FUNC void *luaM_malloc_ (lua_State *L, size_t size, int tag); #endif //path: src/imports/../dependencies/lua/lstate.h #ifndef lstate_h #define lstate_h typedef struct CallInfo CallInfo; //path: src/imports/../dependencies/lua/lobject.h #ifndef lobject_h #define lobject_h #include #define LUA_TUPVAL LUA_NUMTYPES #define LUA_TPROTO (LUA_NUMTYPES+1) #define LUA_TDEADKEY (LUA_NUMTYPES+2) #define LUA_TOTALTYPES (LUA_TPROTO + 2) #define makevariant(t,v) ((t) | ((v) << 4)) typedef union Value { struct GCObject *gc; void *p; lua_CFunction f; lua_Integer i; lua_Number n; lu_byte ub; } Value; #define TValuefields Value value_; lu_byte tt_ typedef struct TValue { TValuefields; } TValue; #define val_(o) ((o)->value_) #define valraw(o) (val_(o)) #define rawtt(o) ((o)->tt_) #define novariant(t) ((t) & 0x0F) #define withvariant(t) ((t) & 0x3F) #define ttypetag(o) withvariant(rawtt(o)) #define ttype(o) (novariant(rawtt(o))) #define checktag(o,t) (rawtt(o) == (t)) #define checktype(o,t) (ttype(o) == (t)) #define righttt(obj) (ttypetag(obj) == gcvalue(obj)->tt) #define checkliveness(L,obj) \ ((void)L, lua_longassert(!iscollectable(obj) || \ (righttt(obj) && (L == NULL || !isdead(G(L),gcvalue(obj)))))) #define settt_(o,t) ((o)->tt_=(t)) #define setobj(L,obj1,obj2) \ { TValue *io1=(obj1); const TValue *io2=(obj2); \ io1->value_ = io2->value_; settt_(io1, io2->tt_); \ checkliveness(L,io1); lua_assert(!isnonstrictnil(io1)); } #define setobjs2s(L,o1,o2) setobj(L,s2v(o1),s2v(o2)) #define setobj2s(L,o1,o2) setobj(L,s2v(o1),o2) #define setobjt2t setobj #define setobj2n setobj #define setobj2t setobj typedef union StackValue { TValue val; struct { TValuefields; unsigned short delta; } tbclist; } StackValue; typedef StackValue *StkId; typedef union { StkId p; ptrdiff_t offset; } StkIdRel; #define s2v(o) (&(o)->val) #define LUA_VNIL makevariant(LUA_TNIL, 0) #define LUA_VEMPTY makevariant(LUA_TNIL, 1) #define LUA_VABSTKEY makevariant(LUA_TNIL, 2) #define LUA_VNOTABLE makevariant(LUA_TNIL, 3) #define ttisnil(v) checktype((v), LUA_TNIL) #define tagisempty(tag) (novariant(tag) == LUA_TNIL) #define ttisstrictnil(o) checktag((o), LUA_VNIL) #define setnilvalue(obj) settt_(obj, LUA_VNIL) #define isabstkey(v) checktag((v), LUA_VABSTKEY) #define isnonstrictnil(v) (ttisnil(v) && !ttisstrictnil(v)) #define isempty(v) ttisnil(v) #define ABSTKEYCONSTANT {NULL}, LUA_VABSTKEY #define setempty(v) settt_(v, LUA_VEMPTY) #define LUA_VFALSE makevariant(LUA_TBOOLEAN, 0) #define LUA_VTRUE makevariant(LUA_TBOOLEAN, 1) #define ttisboolean(o) checktype((o), LUA_TBOOLEAN) #define ttisfalse(o) checktag((o), LUA_VFALSE) #define ttistrue(o) checktag((o), LUA_VTRUE) #define l_isfalse(o) (ttisfalse(o) || ttisnil(o)) #define tagisfalse(t) ((t) == LUA_VFALSE || novariant(t) == LUA_TNIL) #define setbfvalue(obj) settt_(obj, LUA_VFALSE) #define setbtvalue(obj) settt_(obj, LUA_VTRUE) #define LUA_VTHREAD makevariant(LUA_TTHREAD, 0) #define ttisthread(o) checktag((o), ctb(LUA_VTHREAD)) #define thvalue(o) check_exp(ttisthread(o), gco2th(val_(o).gc)) #define setthvalue(L,obj,x) \ { TValue *io = (obj); lua_State *x_ = (x); \ val_(io).gc = obj2gco(x_); settt_(io, ctb(LUA_VTHREAD)); \ checkliveness(L,io); } #define setthvalue2s(L,o,t) setthvalue(L,s2v(o),t) #define CommonHeader struct GCObject *next; lu_byte tt; lu_byte marked typedef struct GCObject { CommonHeader; } GCObject; #define BIT_ISCOLLECTABLE (1 << 6) #define iscollectable(o) (rawtt(o) & BIT_ISCOLLECTABLE) #define ctb(t) ((t) | BIT_ISCOLLECTABLE) #define gcvalue(o) check_exp(iscollectable(o), val_(o).gc) #define gcvalueraw(v) ((v).gc) #define setgcovalue(L,obj,x) \ { TValue *io = (obj); GCObject *i_g=(x); \ val_(io).gc = i_g; settt_(io, ctb(i_g->tt)); } #define LUA_VNUMINT makevariant(LUA_TNUMBER, 0) #define LUA_VNUMFLT makevariant(LUA_TNUMBER, 1) #define ttisnumber(o) checktype((o), LUA_TNUMBER) #define ttisfloat(o) checktag((o), LUA_VNUMFLT) #define ttisinteger(o) checktag((o), LUA_VNUMINT) #define nvalue(o) check_exp(ttisnumber(o), \ (ttisinteger(o) ? cast_num(ivalue(o)) : fltvalue(o))) #define fltvalue(o) check_exp(ttisfloat(o), val_(o).n) #define ivalue(o) check_exp(ttisinteger(o), val_(o).i) #define fltvalueraw(v) ((v).n) #define ivalueraw(v) ((v).i) #define setfltvalue(obj,x) \ { TValue *io=(obj); val_(io).n=(x); settt_(io, LUA_VNUMFLT); } #define chgfltvalue(obj,x) \ { TValue *io=(obj); lua_assert(ttisfloat(io)); val_(io).n=(x); } #define setivalue(obj,x) \ { TValue *io=(obj); val_(io).i=(x); settt_(io, LUA_VNUMINT); } #define chgivalue(obj,x) \ { TValue *io=(obj); lua_assert(ttisinteger(io)); val_(io).i=(x); } #define LUA_VSHRSTR makevariant(LUA_TSTRING, 0) #define LUA_VLNGSTR makevariant(LUA_TSTRING, 1) #define ttisstring(o) checktype((o), LUA_TSTRING) #define ttisshrstring(o) checktag((o), ctb(LUA_VSHRSTR)) #define ttislngstring(o) checktag((o), ctb(LUA_VLNGSTR)) #define tsvalueraw(v) (gco2ts((v).gc)) #define tsvalue(o) check_exp(ttisstring(o), gco2ts(val_(o).gc)) #define setsvalue(L,obj,x) \ { TValue *io = (obj); TString *x_ = (x); \ val_(io).gc = obj2gco(x_); settt_(io, ctb(x_->tt)); \ checkliveness(L,io); } #define setsvalue2s(L,o,s) setsvalue(L,s2v(o),s) #define setsvalue2n setsvalue #define LSTRREG -1 #define LSTRFIX -2 #define LSTRMEM -3 typedef struct TString { CommonHeader; lu_byte extra; ls_byte shrlen; unsigned int hash; union { size_t lnglen; struct TString *hnext; } u; char *contents; lua_Alloc falloc; void *ud; } TString; #define strisshr(ts) ((ts)->shrlen >= 0) #define rawgetshrstr(ts) (cast_charp(&(ts)->contents)) #define getshrstr(ts) check_exp(strisshr(ts), rawgetshrstr(ts)) #define getlngstr(ts) check_exp(!strisshr(ts), (ts)->contents) #define getstr(ts) (strisshr(ts) ? rawgetshrstr(ts) : (ts)->contents) #define tsslen(ts) \ (strisshr(ts) ? cast_uint((ts)->shrlen) : (ts)->u.lnglen) #define getlstr(ts, len) \ (strisshr(ts) \ ? (cast_void((len) = (ts)->shrlen), rawgetshrstr(ts)) \ : (cast_void((len) = (ts)->u.lnglen), (ts)->contents)) #define LUA_VLIGHTUSERDATA makevariant(LUA_TLIGHTUSERDATA, 0) #define LUA_VUSERDATA makevariant(LUA_TUSERDATA, 0) #define ttislightuserdata(o) checktag((o), LUA_VLIGHTUSERDATA) #define ttisfulluserdata(o) checktag((o), ctb(LUA_VUSERDATA)) #define pvalue(o) check_exp(ttislightuserdata(o), val_(o).p) #define uvalue(o) check_exp(ttisfulluserdata(o), gco2u(val_(o).gc)) #define pvalueraw(v) ((v).p) #define setpvalue(obj,x) \ { TValue *io=(obj); val_(io).p=(x); settt_(io, LUA_VLIGHTUSERDATA); } #define setuvalue(L,obj,x) \ { TValue *io = (obj); Udata *x_ = (x); \ val_(io).gc = obj2gco(x_); settt_(io, ctb(LUA_VUSERDATA)); \ checkliveness(L,io); } typedef union UValue { TValue uv; LUAI_MAXALIGN; } UValue; typedef struct Udata { CommonHeader; unsigned short nuvalue; size_t len; struct Table *metatable; GCObject *gclist; UValue uv[1]; } Udata; typedef struct Udata0 { CommonHeader; unsigned short nuvalue; size_t len; struct Table *metatable; union {LUAI_MAXALIGN;} bindata; } Udata0; #define udatamemoffset(nuv) \ ((nuv) == 0 ? offsetof(Udata0, bindata) \ : offsetof(Udata, uv) + (sizeof(UValue) * (nuv))) #define getudatamem(u) (cast_charp(u) + udatamemoffset((u)->nuvalue)) #define sizeudata(nuv,nb) (udatamemoffset(nuv) + (nb)) #define LUA_VPROTO makevariant(LUA_TPROTO, 0) typedef struct Upvaldesc { TString *name; lu_byte instack; lu_byte idx; lu_byte kind; } Upvaldesc; typedef struct LocVar { TString *varname; int startpc; int endpc; } LocVar; typedef struct AbsLineInfo { int pc; int line; } AbsLineInfo; #define PF_ISVARARG 1 #define PF_FIXED 2 typedef struct Proto { CommonHeader; lu_byte numparams; lu_byte flag; lu_byte maxstacksize; int sizeupvalues; int sizek; int sizecode; int sizelineinfo; int sizep; int sizelocvars; int sizeabslineinfo; int linedefined; int lastlinedefined; TValue *k; Instruction *code; struct Proto **p; Upvaldesc *upvalues; ls_byte *lineinfo; AbsLineInfo *abslineinfo; LocVar *locvars; TString *source; GCObject *gclist; } Proto; #define LUA_VUPVAL makevariant(LUA_TUPVAL, 0) #define LUA_VLCL makevariant(LUA_TFUNCTION, 0) #define LUA_VLCF makevariant(LUA_TFUNCTION, 1) #define LUA_VCCL makevariant(LUA_TFUNCTION, 2) #define ttisfunction(o) checktype(o, LUA_TFUNCTION) #define ttisLclosure(o) checktag((o), ctb(LUA_VLCL)) #define ttislcf(o) checktag((o), LUA_VLCF) #define ttisCclosure(o) checktag((o), ctb(LUA_VCCL)) #define ttisclosure(o) (ttisLclosure(o) || ttisCclosure(o)) #define isLfunction(o) ttisLclosure(o) #define clvalue(o) check_exp(ttisclosure(o), gco2cl(val_(o).gc)) #define clLvalue(o) check_exp(ttisLclosure(o), gco2lcl(val_(o).gc)) #define fvalue(o) check_exp(ttislcf(o), val_(o).f) #define clCvalue(o) check_exp(ttisCclosure(o), gco2ccl(val_(o).gc)) #define fvalueraw(v) ((v).f) #define setclLvalue(L,obj,x) \ { TValue *io = (obj); LClosure *x_ = (x); \ val_(io).gc = obj2gco(x_); settt_(io, ctb(LUA_VLCL)); \ checkliveness(L,io); } #define setclLvalue2s(L,o,cl) setclLvalue(L,s2v(o),cl) #define setfvalue(obj,x) \ { TValue *io=(obj); val_(io).f=(x); settt_(io, LUA_VLCF); } #define setclCvalue(L,obj,x) \ { TValue *io = (obj); CClosure *x_ = (x); \ val_(io).gc = obj2gco(x_); settt_(io, ctb(LUA_VCCL)); \ checkliveness(L,io); } typedef struct UpVal { CommonHeader; union { TValue *p; ptrdiff_t offset; } v; union { struct { struct UpVal *next; struct UpVal **previous; } open; TValue value; } u; } UpVal; #define ClosureHeader \ CommonHeader; lu_byte nupvalues; GCObject *gclist typedef struct CClosure { ClosureHeader; lua_CFunction f; TValue upvalue[1]; } CClosure; typedef struct LClosure { ClosureHeader; struct Proto *p; UpVal *upvals[1]; } LClosure; typedef union Closure { CClosure c; LClosure l; } Closure; #define getproto(o) (clLvalue(o)->p) #define LUA_VTABLE makevariant(LUA_TTABLE, 0) #define ttistable(o) checktag((o), ctb(LUA_VTABLE)) #define hvalue(o) check_exp(ttistable(o), gco2t(val_(o).gc)) #define sethvalue(L,obj,x) \ { TValue *io = (obj); Table *x_ = (x); \ val_(io).gc = obj2gco(x_); settt_(io, ctb(LUA_VTABLE)); \ checkliveness(L,io); } #define sethvalue2s(L,o,h) sethvalue(L,s2v(o),h) typedef union Node { struct NodeKey { TValuefields; lu_byte key_tt; int next; Value key_val; } u; TValue i_val; } Node; #define setnodekey(L,node,obj) \ { Node *n_=(node); const TValue *io_=(obj); \ n_->u.key_val = io_->value_; n_->u.key_tt = io_->tt_; \ checkliveness(L,io_); } #define getnodekey(L,obj,node) \ { TValue *io_=(obj); const Node *n_=(node); \ io_->value_ = n_->u.key_val; io_->tt_ = n_->u.key_tt; \ checkliveness(L,io_); } #define BITRAS (1 << 7) #define isrealasize(t) (!((t)->flags & BITRAS)) #define setrealasize(t) ((t)->flags &= cast_byte(~BITRAS)) #define setnorealasize(t) ((t)->flags |= BITRAS) typedef struct ArrayCell ArrayCell; typedef struct Table { CommonHeader; lu_byte flags; lu_byte lsizenode; unsigned int alimit; ArrayCell *array; Node *node; struct Table *metatable; GCObject *gclist; } Table; #define keytt(node) ((node)->u.key_tt) #define keyval(node) ((node)->u.key_val) #define keyisnil(node) (keytt(node) == LUA_TNIL) #define keyisinteger(node) (keytt(node) == LUA_VNUMINT) #define keyival(node) (keyval(node).i) #define keyisshrstr(node) (keytt(node) == ctb(LUA_VSHRSTR)) #define keystrval(node) (gco2ts(keyval(node).gc)) #define setnilkey(node) (keytt(node) = LUA_TNIL) #define keyiscollectable(n) (keytt(n) & BIT_ISCOLLECTABLE) #define gckey(n) (keyval(n).gc) #define gckeyN(n) (keyiscollectable(n) ? gckey(n) : NULL) #define setdeadkey(node) (keytt(node) = LUA_TDEADKEY) #define keyisdead(node) (keytt(node) == LUA_TDEADKEY) #define lmod(s,size) \ (check_exp((size&(size-1))==0, (cast_int((s) & ((size)-1))))) #define twoto(x) (1<<(x)) #define sizenode(t) (twoto((t)->lsizenode)) #define UTF8BUFFSZ 8 LUAI_FUNC int luaO_utf8esc (char *buff, unsigned long x); LUAI_FUNC int luaO_ceillog2 (unsigned int x); LUAI_FUNC unsigned int luaO_codeparam (unsigned int p); LUAI_FUNC l_obj luaO_applyparam (unsigned int p, l_obj x); LUAI_FUNC int luaO_rawarith (lua_State *L, int op, const TValue *p1, const TValue *p2, TValue *res); LUAI_FUNC void luaO_arith (lua_State *L, int op, const TValue *p1, const TValue *p2, StkId res); LUAI_FUNC size_t luaO_str2num (const char *s, TValue *o); LUAI_FUNC int luaO_hexavalue (int c); LUAI_FUNC void luaO_tostring (lua_State *L, TValue *obj); LUAI_FUNC const char *luaO_pushvfstring (lua_State *L, const char *fmt, va_list argp); LUAI_FUNC const char *luaO_pushfstring (lua_State *L, const char *fmt, ...); LUAI_FUNC void luaO_chunkid (char *out, const char *source, size_t srclen); #endif //path: src/imports/../dependencies/lua/ltm.h #ifndef ltm_h #define ltm_h typedef enum { TM_INDEX, TM_NEWINDEX, TM_GC, TM_MODE, TM_LEN, TM_EQ, TM_ADD, TM_SUB, TM_MUL, TM_MOD, TM_POW, TM_DIV, TM_IDIV, TM_BAND, TM_BOR, TM_BXOR, TM_SHL, TM_SHR, TM_UNM, TM_BNOT, TM_LT, TM_LE, TM_CONCAT, TM_CALL, TM_CLOSE, TM_N } TMS; #define maskflags (~(~0u << (TM_EQ + 1))) #define notm(tm) ttisnil(tm) #define checknoTM(mt,e) ((mt) == NULL || (mt)->flags & (1u<<(e))) #define gfasttm(g,mt,e) \ (checknoTM(mt, e) ? NULL : luaT_gettm(mt, e, (g)->tmname[e])) #define fasttm(l,mt,e) gfasttm(G(l), mt, e) #define ttypename(x) luaT_typenames_[(x) + 1] LUAI_DDEC(const char *const luaT_typenames_[LUA_TOTALTYPES];) LUAI_FUNC const char *luaT_objtypename (lua_State *L, const TValue *o); LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename); LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o, TMS event); LUAI_FUNC void luaT_init (lua_State *L); LUAI_FUNC void luaT_callTM (lua_State *L, const TValue *f, const TValue *p1, const TValue *p2, const TValue *p3); LUAI_FUNC int luaT_callTMres (lua_State *L, const TValue *f, const TValue *p1, const TValue *p2, StkId p3); LUAI_FUNC void luaT_trybinTM (lua_State *L, const TValue *p1, const TValue *p2, StkId res, TMS event); LUAI_FUNC void luaT_tryconcatTM (lua_State *L); LUAI_FUNC void luaT_trybinassocTM (lua_State *L, const TValue *p1, const TValue *p2, int inv, StkId res, TMS event); LUAI_FUNC void luaT_trybiniTM (lua_State *L, const TValue *p1, lua_Integer i2, int inv, StkId res, TMS event); LUAI_FUNC int luaT_callorderTM (lua_State *L, const TValue *p1, const TValue *p2, TMS event); LUAI_FUNC int luaT_callorderiTM (lua_State *L, const TValue *p1, int v2, int inv, int isfloat, TMS event); LUAI_FUNC void luaT_adjustvarargs (lua_State *L, int nfixparams, struct CallInfo *ci, const Proto *p); LUAI_FUNC void luaT_getvarargs (lua_State *L, struct CallInfo *ci, StkId where, int wanted); #endif //path: src/imports/../dependencies/lua/lzio.h #ifndef lzio_h #define lzio_h #define EOZ (-1) typedef struct Zio ZIO; #define zgetc(z) (((z)->n--)>0 ? cast_uchar(*(z)->p++) : luaZ_fill(z)) typedef struct Mbuffer { char *buffer; size_t n; size_t buffsize; } Mbuffer; #define luaZ_initbuffer(L, buff) ((buff)->buffer = NULL, (buff)->buffsize = 0) #define luaZ_buffer(buff) ((buff)->buffer) #define luaZ_sizebuffer(buff) ((buff)->buffsize) #define luaZ_bufflen(buff) ((buff)->n) #define luaZ_buffremove(buff,i) ((buff)->n -= (i)) #define luaZ_resetbuffer(buff) ((buff)->n = 0) #define luaZ_resizebuffer(L, buff, size) \ ((buff)->buffer = luaM_reallocvchar(L, (buff)->buffer, \ (buff)->buffsize, size), \ (buff)->buffsize = size) #define luaZ_freebuffer(L, buff) luaZ_resizebuffer(L, buff, 0) LUAI_FUNC void luaZ_init (lua_State *L, ZIO *z, lua_Reader reader, void *data); LUAI_FUNC size_t luaZ_read (ZIO* z, void *b, size_t n); LUAI_FUNC const void *luaZ_getaddr (ZIO* z, size_t n); struct Zio { size_t n; const char *p; lua_Reader reader; void *data; lua_State *L; }; LUAI_FUNC int luaZ_fill (ZIO *z); #endif #define yieldable(L) (((L)->nCcalls & 0xffff0000) == 0) #define getCcalls(L) ((L)->nCcalls & 0xffff) #define incnny(L) ((L)->nCcalls += 0x10000) #define decnny(L) ((L)->nCcalls -= 0x10000) #define nyci (0x10000 | 1) struct lua_longjmp; #if !defined(l_signalT) #include #define l_signalT sig_atomic_t #endif #define EXTRA_STACK 5 #define BASIC_STACK_SIZE (2*LUA_MINSTACK) #define stacksize(th) cast_int((th)->stack_last.p - (th)->stack.p) #define KGC_INC 0 #define KGC_GENMINOR 1 #define KGC_GENMAJOR 2 typedef struct stringtable { TString **hash; int nuse; int size; } stringtable; struct CallInfo { StkIdRel func; StkIdRel top; struct CallInfo *previous, *next; union { struct { const Instruction *savedpc; volatile l_signalT trap; int nextraargs; } l; struct { lua_KFunction k; ptrdiff_t old_errfunc; lua_KContext ctx; } c; } u; union { int funcidx; int nyield; int nres; struct { unsigned short ftransfer; unsigned short ntransfer; } transferinfo; } u2; short nresults; unsigned short callstatus; }; #define CIST_OAH (1<<0) #define CIST_C (1<<1) #define CIST_FRESH (1<<2) #define CIST_HOOKED (1<<3) #define CIST_YPCALL (1<<4) #define CIST_TAIL (1<<5) #define CIST_HOOKYIELD (1<<6) #define CIST_FIN (1<<7) #define CIST_TRAN (1<<8) #define CIST_CLSRET (1<<9) #define CIST_RECST 10 #if defined(LUA_COMPAT_LT_LE) #define CIST_LEQ (1<<13) #endif #define getcistrecst(ci) (((ci)->callstatus >> CIST_RECST) & 7) #define setcistrecst(ci,st) \ check_exp(((st) & 7) == (st), \ ((ci)->callstatus = ((ci)->callstatus & ~(7 << CIST_RECST)) \ | ((st) << CIST_RECST))) #define isLua(ci) (!((ci)->callstatus & CIST_C)) #define isLuacode(ci) (!((ci)->callstatus & (CIST_C | CIST_HOOKED))) #define setoah(st,v) ((st) = ((st) & ~CIST_OAH) | (v)) #define getoah(st) ((st) & CIST_OAH) typedef struct global_State { lua_Alloc frealloc; void *ud; lu_mem totalbytes; l_obj totalobjs; l_obj GCdebt; l_obj marked; l_obj GCmajorminor; stringtable strt; TValue l_registry; TValue nilvalue; unsigned int seed; lu_byte gcparams[LUA_GCPN]; lu_byte currentwhite; lu_byte gcstate; lu_byte gckind; lu_byte gcstopem; lu_byte gcstp; lu_byte gcemergency; GCObject *allgc; GCObject **sweepgc; GCObject *finobj; GCObject *gray; GCObject *grayagain; GCObject *weak; GCObject *ephemeron; GCObject *allweak; GCObject *tobefnz; GCObject *fixedgc; GCObject *survival; GCObject *old1; GCObject *reallyold; GCObject *firstold1; GCObject *finobjsur; GCObject *finobjold1; GCObject *finobjrold; struct lua_State *twups; lua_CFunction panic; struct lua_State *mainthread; TString *memerrmsg; TString *tmname[TM_N]; struct Table *mt[LUA_NUMTYPES]; TString *strcache[STRCACHE_N][STRCACHE_M]; lua_WarnFunction warnf; void *ud_warn; } global_State; struct lua_State { CommonHeader; lu_byte status; lu_byte allowhook; unsigned short nci; StkIdRel top; global_State *l_G; CallInfo *ci; StkIdRel stack_last; StkIdRel stack; UpVal *openupval; StkIdRel tbclist; GCObject *gclist; struct lua_State *twups; struct lua_longjmp *errorJmp; CallInfo base_ci; volatile lua_Hook hook; ptrdiff_t errfunc; l_uint32 nCcalls; int oldpc; int basehookcount; int hookcount; volatile l_signalT hookmask; }; #define G(L) (L->l_G) #define completestate(g) ttisnil(&g->nilvalue) union GCUnion { GCObject gc; struct TString ts; struct Udata u; union Closure cl; struct Table h; struct Proto p; struct lua_State th; struct UpVal upv; }; #define cast_u(o) cast(union GCUnion *, (o)) #define gco2ts(o) \ check_exp(novariant((o)->tt) == LUA_TSTRING, &((cast_u(o))->ts)) #define gco2u(o) check_exp((o)->tt == LUA_VUSERDATA, &((cast_u(o))->u)) #define gco2lcl(o) check_exp((o)->tt == LUA_VLCL, &((cast_u(o))->cl.l)) #define gco2ccl(o) check_exp((o)->tt == LUA_VCCL, &((cast_u(o))->cl.c)) #define gco2cl(o) \ check_exp(novariant((o)->tt) == LUA_TFUNCTION, &((cast_u(o))->cl)) #define gco2t(o) check_exp((o)->tt == LUA_VTABLE, &((cast_u(o))->h)) #define gco2p(o) check_exp((o)->tt == LUA_VPROTO, &((cast_u(o))->p)) #define gco2th(o) check_exp((o)->tt == LUA_VTHREAD, &((cast_u(o))->th)) #define gco2upv(o) check_exp((o)->tt == LUA_VUPVAL, &((cast_u(o))->upv)) #define obj2gco(v) check_exp((v)->tt >= LUA_TSTRING, &(cast_u(v)->gc)) #define gettotalobjs(g) ((g)->totalobjs - (g)->GCdebt) LUAI_FUNC void luaE_setdebt (global_State *g, l_obj debt); LUAI_FUNC void luaE_freethread (lua_State *L, lua_State *L1); LUAI_FUNC CallInfo *luaE_extendCI (lua_State *L); LUAI_FUNC void luaE_shrinkCI (lua_State *L); LUAI_FUNC void luaE_checkcstack (lua_State *L); LUAI_FUNC void luaE_incCstack (lua_State *L); LUAI_FUNC void luaE_warning (lua_State *L, const char *msg, int tocont); LUAI_FUNC void luaE_warnerror (lua_State *L, const char *where); LUAI_FUNC int luaE_resetthread (lua_State *L, int status); #endif int luaZ_fill (ZIO *z) { size_t size; lua_State *L = z->L; const char *buff; lua_unlock(L); buff = z->reader(L, z->data, &size); lua_lock(L); if (buff == NULL || size == 0) return EOZ; z->n = size - 1; z->p = buff; return cast_uchar(*(z->p++)); } void luaZ_init (lua_State *L, ZIO *z, lua_Reader reader, void *data) { z->L = L; z->reader = reader; z->data = data; z->n = 0; z->p = NULL; } static int checkbuffer (ZIO *z) { if (z->n == 0) { if (luaZ_fill(z) == EOZ) return 0; else { z->n++; z->p--; } } return 1; } size_t luaZ_read (ZIO *z, void *b, size_t n) { while (n) { size_t m; if (!checkbuffer(z)) return n; m = (n <= z->n) ? n : z->n; memcpy(b, z->p, m); z->n -= m; z->p += m; b = (char *)b + m; n -= m; } return 0; } const void *luaZ_getaddr (ZIO* z, size_t n) { const void *res; if (!checkbuffer(z)) return NULL; if (z->n < n) return NULL; res = z->p; z->n -= n; z->p += n; return res; } //path: src/imports/../dependencies/lua/lctype.c #define lctype_c #define LUA_CORE //path: src/imports/../dependencies/lua/lctype.h #ifndef lctype_h #define lctype_h #if !defined(LUA_USE_CTYPE) #if 'A' == 65 && '0' == 48 #define LUA_USE_CTYPE 0 #else #define LUA_USE_CTYPE 1 #endif #endif #if !LUA_USE_CTYPE #include #define ALPHABIT 0 #define DIGITBIT 1 #define PRINTBIT 2 #define SPACEBIT 3 #define XDIGITBIT 4 #define MASK(B) (1 << (B)) #define testprop(c,p) (luai_ctype_[(c)+1] & (p)) #define lislalpha(c) testprop(c, MASK(ALPHABIT)) #define lislalnum(c) testprop(c, (MASK(ALPHABIT) | MASK(DIGITBIT))) #define lisdigit(c) testprop(c, MASK(DIGITBIT)) #define lisspace(c) testprop(c, MASK(SPACEBIT)) #define lisprint(c) testprop(c, MASK(PRINTBIT)) #define lisxdigit(c) testprop(c, MASK(XDIGITBIT)) #define ltolower(c) \ check_exp(('A' <= (c) && (c) <= 'Z') || (c) == ((c) | ('A' ^ 'a')), \ (c) | ('A' ^ 'a')) LUAI_DDEC(const lu_byte luai_ctype_[UCHAR_MAX + 2];) #else #include #define lislalpha(c) (isalpha(c) || (c) == '_') #define lislalnum(c) (isalnum(c) || (c) == '_') #define lisdigit(c) (isdigit(c)) #define lisspace(c) (isspace(c)) #define lisprint(c) (isprint(c)) #define lisxdigit(c) (isxdigit(c)) #define ltolower(c) (tolower(c)) #endif #endif #if !LUA_USE_CTYPE #include #if defined (LUA_UCID) #define NONA 0x01 #else #define NONA 0x00 #endif LUAI_DDEF const lu_byte luai_ctype_[UCHAR_MAX + 2] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x08, 0x08, 0x08, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x16, 0x16, 0x16, 0x16, 0x16, 0x16, 0x16, 0x16, 0x16, 0x16, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x15, 0x15, 0x15, 0x15, 0x15, 0x15, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x04, 0x04, 0x04, 0x04, 0x05, 0x04, 0x15, 0x15, 0x15, 0x15, 0x15, 0x15, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x04, 0x04, 0x04, 0x04, 0x00, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, 0x00, 0x00, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; #endif //path: src/imports/../dependencies/lua/lopcodes.c #define lopcodes_c #define LUA_CORE //path: src/imports/../dependencies/lua/lopcodes.h #ifndef lopcodes_h #define lopcodes_h enum OpMode {iABC, iABx, iAsBx, iAx, isJ}; #define SIZE_C 8 #define SIZE_B 8 #define SIZE_Bx (SIZE_C + SIZE_B + 1) #define SIZE_A 8 #define SIZE_Ax (SIZE_Bx + SIZE_A) #define SIZE_sJ (SIZE_Bx + SIZE_A) #define SIZE_OP 7 #define POS_OP 0 #define POS_A (POS_OP + SIZE_OP) #define POS_k (POS_A + SIZE_A) #define POS_B (POS_k + 1) #define POS_C (POS_B + SIZE_B) #define POS_Bx POS_k #define POS_Ax POS_A #define POS_sJ POS_A #define L_INTHASBITS(b) ((UINT_MAX >> ((b) - 1)) >= 1) #if L_INTHASBITS(SIZE_Bx) #define MAXARG_Bx ((1<>1) #if L_INTHASBITS(SIZE_Ax) #define MAXARG_Ax ((1<> 1) #define MAXARG_A ((1<> 1) #define int2sC(i) ((i) + OFFSET_sC) #define sC2int(i) ((i) - OFFSET_sC) #define MASK1(n,p) ((~((~(Instruction)0)<<(n)))<<(p)) #define MASK0(n,p) (~MASK1(n,p)) #define GET_OPCODE(i) (cast(OpCode, ((i)>>POS_OP) & MASK1(SIZE_OP,0))) #define SET_OPCODE(i,o) ((i) = (((i)&MASK0(SIZE_OP,POS_OP)) | \ ((cast(Instruction, o)<>(pos)) & MASK1(size,0))) #define setarg(i,v,pos,size) ((i) = (((i)&MASK0(size,pos)) | \ ((cast(Instruction, v)< //path: src/imports/../dependencies/lua/ldebug.h #ifndef ldebug_h #define ldebug_h #define pcRel(pc, p) (cast_int((pc) - (p)->code) - 1) #define ci_func(ci) (clLvalue(s2v((ci)->func.p))) #define resethookcount(L) (L->hookcount = L->basehookcount) #define ABSLINEINFO (-0x80) #if !defined(MAXIWTHABS) #define MAXIWTHABS 128 #endif LUAI_FUNC int luaG_getfuncline (const Proto *f, int pc); LUAI_FUNC const char *luaG_findlocal (lua_State *L, CallInfo *ci, int n, StkId *pos); LUAI_FUNC l_noret luaG_typeerror (lua_State *L, const TValue *o, const char *opname); LUAI_FUNC l_noret luaG_callerror (lua_State *L, const TValue *o); LUAI_FUNC l_noret luaG_forerror (lua_State *L, const TValue *o, const char *what); LUAI_FUNC l_noret luaG_concaterror (lua_State *L, const TValue *p1, const TValue *p2); LUAI_FUNC l_noret luaG_opinterror (lua_State *L, const TValue *p1, const TValue *p2, const char *msg); LUAI_FUNC l_noret luaG_tointerror (lua_State *L, const TValue *p1, const TValue *p2); LUAI_FUNC l_noret luaG_ordererror (lua_State *L, const TValue *p1, const TValue *p2); LUAI_FUNC l_noret luaG_runerror (lua_State *L, const char *fmt, ...); LUAI_FUNC const char *luaG_addinfo (lua_State *L, const char *msg, TString *src, int line); LUAI_FUNC l_noret luaG_errormsg (lua_State *L); LUAI_FUNC int luaG_traceexec (lua_State *L, const Instruction *pc); LUAI_FUNC int luaG_tracecall (lua_State *L); #endif //path: src/imports/../dependencies/lua/ldo.h #ifndef ldo_h #define ldo_h #define luaD_checkstackaux(L,n,pre,pos) \ if (l_unlikely(L->stack_last.p - L->top.p <= (n))) \ { pre; luaD_growstack(L, n, 1); pos; } \ else { condmovestack(L,pre,pos); } #define luaD_checkstack(L,n) luaD_checkstackaux(L,n,(void)0,(void)0) #define savestack(L,pt) (cast_charp(pt) - cast_charp(L->stack.p)) #define restorestack(L,n) cast(StkId, cast_charp(L->stack.p) + (n)) #define checkstackp(L,n,p) \ luaD_checkstackaux(L, n, \ ptrdiff_t t__ = savestack(L, p), \ p = restorestack(L, t__)) typedef void (*Pfunc) (lua_State *L, void *ud); LUAI_FUNC void luaD_seterrorobj (lua_State *L, int errcode, StkId oldtop); LUAI_FUNC int luaD_protectedparser (lua_State *L, ZIO *z, const char *name, const char *mode); LUAI_FUNC void luaD_hook (lua_State *L, int event, int line, int fTransfer, int nTransfer); LUAI_FUNC void luaD_hookcall (lua_State *L, CallInfo *ci); LUAI_FUNC int luaD_pretailcall (lua_State *L, CallInfo *ci, StkId func, int narg1, int delta); LUAI_FUNC CallInfo *luaD_precall (lua_State *L, StkId func, int nResults); LUAI_FUNC void luaD_call (lua_State *L, StkId func, int nResults); LUAI_FUNC void luaD_callnoyield (lua_State *L, StkId func, int nResults); LUAI_FUNC int luaD_closeprotected (lua_State *L, ptrdiff_t level, int status); LUAI_FUNC int luaD_pcall (lua_State *L, Pfunc func, void *u, ptrdiff_t oldtop, ptrdiff_t ef); LUAI_FUNC void luaD_poscall (lua_State *L, CallInfo *ci, int nres); LUAI_FUNC int luaD_reallocstack (lua_State *L, int newsize, int raiseerror); LUAI_FUNC int luaD_growstack (lua_State *L, int n, int raiseerror); LUAI_FUNC void luaD_shrinkstack (lua_State *L); LUAI_FUNC void luaD_inctop (lua_State *L); LUAI_FUNC l_noret luaD_throw (lua_State *L, int errcode); LUAI_FUNC int luaD_rawrunprotected (lua_State *L, Pfunc f, void *ud); #endif //path: src/imports/../dependencies/lua/lgc.h #ifndef lgc_h #define lgc_h #include #define GCSpropagate 0 #define GCSenteratomic 1 #define GCSatomic 2 #define GCSswpallgc 3 #define GCSswpfinobj 4 #define GCSswptobefnz 5 #define GCSswpend 6 #define GCScallfin 7 #define GCSpause 8 #define issweepphase(g) \ (GCSswpallgc <= (g)->gcstate && (g)->gcstate <= GCSswpend) #define keepinvariant(g) ((g)->gcstate <= GCSatomic) #define resetbits(x,m) ((x) &= cast_byte(~(m))) #define setbits(x,m) ((x) |= (m)) #define testbits(x,m) ((x) & (m)) #define bitmask(b) (1<<(b)) #define bit2mask(b1,b2) (bitmask(b1) | bitmask(b2)) #define l_setbit(x,b) setbits(x, bitmask(b)) #define resetbit(x,b) resetbits(x, bitmask(b)) #define testbit(x,b) testbits(x, bitmask(b)) #define WHITE0BIT 3 #define WHITE1BIT 4 #define BLACKBIT 5 #define FINALIZEDBIT 6 #define TESTBIT 7 #define WHITEBITS bit2mask(WHITE0BIT, WHITE1BIT) #define iswhite(x) testbits((x)->marked, WHITEBITS) #define isblack(x) testbit((x)->marked, BLACKBIT) #define isgray(x) \ (!testbits((x)->marked, WHITEBITS | bitmask(BLACKBIT))) #define tofinalize(x) testbit((x)->marked, FINALIZEDBIT) #define otherwhite(g) ((g)->currentwhite ^ WHITEBITS) #define isdeadm(ow,m) ((m) & (ow)) #define isdead(g,v) isdeadm(otherwhite(g), (v)->marked) #define changewhite(x) ((x)->marked ^= WHITEBITS) #define nw2black(x) \ check_exp(!iswhite(x), l_setbit((x)->marked, BLACKBIT)) #define luaC_white(g) cast_byte((g)->currentwhite & WHITEBITS) #define G_NEW 0 #define G_SURVIVAL 1 #define G_OLD0 2 #define G_OLD1 3 #define G_OLD 4 #define G_TOUCHED1 5 #define G_TOUCHED2 6 #define AGEBITS 7 #define getage(o) ((o)->marked & AGEBITS) #define setage(o,a) ((o)->marked = cast_byte(((o)->marked & (~AGEBITS)) | a)) #define isold(o) (getage(o) > G_SURVIVAL) #define LUAI_MINORMAJOR 100 #define LUAI_MAJORMINOR 50 #define LUAI_GENMINORMUL 25 #define LUAI_GCPAUSE 200 #define LUAI_GCMUL 200 #define LUAI_GCSTEPSIZE 250 #define setgcparam(g,p,v) (g->gcparams[LUA_GCP##p] = luaO_codeparam(v)) #define applygcparam(g,p,x) luaO_applyparam(g->gcparams[LUA_GCP##p], x) #define GCSTPUSR 1 #define GCSTPGC 2 #define GCSTPCLS 4 #define gcrunning(g) ((g)->gcstp == 0) #define luaC_condGC(L,pre,pos) \ { if (G(L)->GCdebt <= 0) { pre; luaC_step(L); pos;}; \ condchangemem(L,pre,pos); } #define luaC_checkGC(L) luaC_condGC(L,(void)0,(void)0) #define luaC_objbarrier(L,p,o) ( \ (isblack(p) && iswhite(o)) ? \ luaC_barrier_(L,obj2gco(p),obj2gco(o)) : cast_void(0)) #define luaC_barrier(L,p,v) ( \ iscollectable(v) ? luaC_objbarrier(L,p,gcvalue(v)) : cast_void(0)) #define luaC_objbarrierback(L,p,o) ( \ (isblack(p) && iswhite(o)) ? luaC_barrierback_(L,p) : cast_void(0)) #define luaC_barrierback(L,p,v) ( \ iscollectable(v) ? luaC_objbarrierback(L, p, gcvalue(v)) : cast_void(0)) LUAI_FUNC void luaC_fix (lua_State *L, GCObject *o); LUAI_FUNC void luaC_freeallobjects (lua_State *L); LUAI_FUNC void luaC_step (lua_State *L); LUAI_FUNC void luaC_runtilstate (lua_State *L, int state, int fast); LUAI_FUNC void luaC_fullgc (lua_State *L, int isemergency); LUAI_FUNC GCObject *luaC_newobj (lua_State *L, int tt, size_t sz); LUAI_FUNC GCObject *luaC_newobjdt (lua_State *L, int tt, size_t sz, size_t offset); LUAI_FUNC void luaC_barrier_ (lua_State *L, GCObject *o, GCObject *v); LUAI_FUNC void luaC_barrierback_ (lua_State *L, GCObject *o); LUAI_FUNC void luaC_checkfinalizer (lua_State *L, GCObject *o, Table *mt); LUAI_FUNC void luaC_changemode (lua_State *L, int newmode); #endif #define callfrealloc(g,block,os,ns) ((*g->frealloc)(g->ud, block, os, ns)) #define cantryagain(g) (completestate(g) && !g->gcstopem) #if defined(EMERGENCYGCTESTS) static void *firsttry (global_State *g, void *block, size_t os, size_t ns) { if (ns > 0 && cantryagain(g)) return NULL; else return callfrealloc(g, block, os, ns); } #else #define firsttry(g,block,os,ns) callfrealloc(g, block, os, ns) #endif #define MINSIZEARRAY 4 void *luaM_growaux_ (lua_State *L, void *block, int nelems, int *psize, int size_elems, int limit, const char *what) { void *newblock; int size = *psize; if (nelems + 1 <= size) return block; if (size >= limit / 2) { if (l_unlikely(size >= limit)) luaG_runerror(L, "too many %s (limit is %d)", what, limit); size = limit; } else { size *= 2; if (size < MINSIZEARRAY) size = MINSIZEARRAY; } lua_assert(nelems + 1 <= size && size <= limit); newblock = luaM_saferealloc_(L, block, cast_sizet(*psize) * size_elems, cast_sizet(size) * size_elems); *psize = size; return newblock; } void *luaM_shrinkvector_ (lua_State *L, void *block, int *size, int final_n, int size_elem) { void *newblock; size_t oldsize = cast_sizet((*size) * size_elem); size_t newsize = cast_sizet(final_n * size_elem); lua_assert(newsize <= oldsize); newblock = luaM_saferealloc_(L, block, oldsize, newsize); *size = final_n; return newblock; } l_noret luaM_toobig (lua_State *L) { luaG_runerror(L, "memory allocation private_lua_error: block too big"); } void luaM_free_ (lua_State *L, void *block, size_t osize) { global_State *g = G(L); lua_assert((osize == 0) == (block == NULL)); callfrealloc(g, block, osize, 0); g->totalbytes -= osize; } static void *tryagain (lua_State *L, void *block, size_t osize, size_t nsize) { global_State *g = G(L); if (cantryagain(g)) { luaC_fullgc(L, 1); return callfrealloc(g, block, osize, nsize); } else return NULL; } void *luaM_realloc_ (lua_State *L, void *block, size_t osize, size_t nsize) { void *newblock; global_State *g = G(L); lua_assert((osize == 0) == (block == NULL)); newblock = firsttry(g, block, osize, nsize); if (l_unlikely(newblock == NULL && nsize > 0)) { newblock = tryagain(L, block, osize, nsize); if (newblock == NULL) return NULL; } lua_assert((nsize == 0) == (newblock == NULL)); g->totalbytes += nsize - osize; return newblock; } void *luaM_saferealloc_ (lua_State *L, void *block, size_t osize, size_t nsize) { void *newblock = luaM_realloc_(L, block, osize, nsize); if (l_unlikely(newblock == NULL && nsize > 0)) luaM_error(L); return newblock; } void *luaM_malloc_ (lua_State *L, size_t size, int tag) { if (size == 0) return NULL; else { global_State *g = G(L); void *newblock = firsttry(g, NULL, tag, size); if (l_unlikely(newblock == NULL)) { newblock = tryagain(L, NULL, tag, size); if (newblock == NULL) luaM_error(L); } g->totalbytes += size; return newblock; } } //path: src/imports/../dependencies/lua/lundump.c #define lundump_c #define LUA_CORE #include #include //path: src/imports/../dependencies/lua/lfunc.h #ifndef lfunc_h #define lfunc_h #define sizeCclosure(n) (cast_int(offsetof(CClosure, upvalue)) + \ cast_int(sizeof(TValue)) * (n)) #define sizeLclosure(n) (cast_int(offsetof(LClosure, upvals)) + \ cast_int(sizeof(TValue *)) * (n)) #define isintwups(L) (L->twups != L) #define MAXUPVAL 255 #define upisopen(up) ((up)->v.p != &(up)->u.value) #define uplevel(up) check_exp(upisopen(up), cast(StkId, (up)->v.p)) #define MAXMISS 10 #define CLOSEKTOP (-1) LUAI_FUNC Proto *luaF_newproto (lua_State *L); LUAI_FUNC CClosure *luaF_newCclosure (lua_State *L, int nupvals); LUAI_FUNC LClosure *luaF_newLclosure (lua_State *L, int nupvals); LUAI_FUNC void luaF_initupvals (lua_State *L, LClosure *cl); LUAI_FUNC UpVal *luaF_findupval (lua_State *L, StkId level); LUAI_FUNC void luaF_newtbcupval (lua_State *L, StkId level); LUAI_FUNC void luaF_closeupval (lua_State *L, StkId level); LUAI_FUNC StkId luaF_close (lua_State *L, StkId level, int status, int yy); LUAI_FUNC void luaF_unlinkupval (UpVal *uv); LUAI_FUNC void luaF_freeproto (lua_State *L, Proto *f); LUAI_FUNC const char *luaF_getlocalname (const Proto *func, int local_number, int pc); #endif //path: src/imports/../dependencies/lua/lstring.h #ifndef lstring_h #define lstring_h #define MEMERRMSG "not enough memory" #define sizestrshr(l) \ (offsetof(TString, contents) + ((l) + 1) * sizeof(char)) #define luaS_newliteral(L, s) (luaS_newlstr(L, "carview.php?tsp=" s, \ (sizeof(s)/sizeof(char))-1)) #define isreserved(s) ((s)->tt == LUA_VSHRSTR && (s)->extra > 0) #define eqshrstr(a,b) check_exp((a)->tt == LUA_VSHRSTR, (a) == (b)) LUAI_FUNC unsigned luaS_hash (const char *str, size_t l, unsigned seed); LUAI_FUNC unsigned luaS_hashlongstr (TString *ts); LUAI_FUNC int luaS_eqlngstr (TString *a, TString *b); LUAI_FUNC void luaS_resize (lua_State *L, int newsize); LUAI_FUNC void luaS_clearcache (global_State *g); LUAI_FUNC void luaS_init (lua_State *L); LUAI_FUNC void luaS_remove (lua_State *L, TString *ts); LUAI_FUNC Udata *luaS_newudata (lua_State *L, size_t s, int nuvalue); LUAI_FUNC TString *luaS_newlstr (lua_State *L, const char *str, size_t l); LUAI_FUNC TString *luaS_new (lua_State *L, const char *str); LUAI_FUNC TString *luaS_createlngstrobj (lua_State *L, size_t l); LUAI_FUNC TString *luaS_newextlstr (lua_State *L, const char *s, size_t len, lua_Alloc falloc, void *ud); LUAI_FUNC size_t luaS_sizelngstr (size_t len, int kind); #endif //path: src/imports/../dependencies/lua/ltable.h #ifndef ltable_h #define ltable_h #define gnode(t,i) (&(t)->node[i]) #define gval(n) (&(n)->i_val) #define gnext(n) ((n)->u.next) #define invalidateTMcache(t) ((t)->flags &= ~maskflags) #define BITDUMMY (1 << 6) #define NOTBITDUMMY cast_byte(~BITDUMMY) #define isdummy(t) ((t)->flags & BITDUMMY) #define setnodummy(t) ((t)->flags &= NOTBITDUMMY) #define setdummy(t) ((t)->flags |= BITDUMMY) #define allocsizenode(t) (isdummy(t) ? 0 : sizenode(t)) #define nodefromval(v) cast(Node *, (v)) #define luaH_fastgeti(t,k,res,tag) \ { Table *h = t; lua_Unsigned u = l_castS2U(k); \ if ((u - 1u < h->alimit)) { \ tag = *getArrTag(h,(u)-1u); \ if (!tagisempty(tag)) { farr2val(h, u, tag, res); }} \ else { tag = luaH_getint(h, u, res); }} #define luaH_fastseti(t,k,val,hres) \ { Table *h = t; lua_Unsigned u = l_castS2U(k); \ if ((u - 1u < h->alimit)) { \ lu_byte *tag = getArrTag(h,(u)-1u); \ if (tagisempty(*tag)) hres = ~cast_int(u); \ else { fval2arr(h, u, tag, val); hres = HOK; }} \ else { hres = luaH_psetint(h, u, val); }} #define HOK 0 #define HNOTFOUND 1 #define HNOTATABLE 2 #define HFIRSTNODE 3 #define NM cast_uint(sizeof(Value)) struct ArrayCell { lu_byte tag[NM]; Value value[NM]; }; #define getArrTag(t,k) (&(t)->array[(k)/NM].tag[(k)%NM]) #define getArrVal(t,k) (&(t)->array[(k)/NM].value[(k)%NM]) #define arr2obj(h,k,val) \ ((val)->tt_ = *getArrTag(h,(k)-1u), (val)->value_ = *getArrVal(h,(k)-1u)) #define obj2arr(h,k,val) \ (*getArrTag(h,(k)-1u) = (val)->tt_, *getArrVal(h,(k)-1u) = (val)->value_) #define farr2val(h,k,tag,res) \ ((res)->tt_ = tag, (res)->value_ = *getArrVal(h,(k)-1u)) #define fval2arr(h,k,tag,val) \ (*tag = (val)->tt_, *getArrVal(h,(k)-1u) = (val)->value_) LUAI_FUNC int luaH_get (Table *t, const TValue *key, TValue *res); LUAI_FUNC int luaH_getshortstr (Table *t, TString *key, TValue *res); LUAI_FUNC int luaH_getstr (Table *t, TString *key, TValue *res); LUAI_FUNC int luaH_getint (Table *t, lua_Integer key, TValue *res); LUAI_FUNC const TValue *luaH_Hgetshortstr (Table *t, TString *key); LUAI_FUNC TString *luaH_getstrkey (Table *t, TString *key); LUAI_FUNC int luaH_psetint (Table *t, lua_Integer key, TValue *val); LUAI_FUNC int luaH_psetshortstr (Table *t, TString *key, TValue *val); LUAI_FUNC int luaH_psetstr (Table *t, TString *key, TValue *val); LUAI_FUNC int luaH_pset (Table *t, const TValue *key, TValue *val); LUAI_FUNC void luaH_setint (lua_State *L, Table *t, lua_Integer key, TValue *value); LUAI_FUNC void luaH_set (lua_State *L, Table *t, const TValue *key, TValue *value); LUAI_FUNC void luaH_finishset (lua_State *L, Table *t, const TValue *key, TValue *value, int hres); LUAI_FUNC Table *luaH_new (lua_State *L); LUAI_FUNC void luaH_resize (lua_State *L, Table *t, unsigned nasize, unsigned nhsize); LUAI_FUNC void luaH_resizearray (lua_State *L, Table *t, unsigned nasize); LUAI_FUNC void luaH_free (lua_State *L, Table *t); LUAI_FUNC int luaH_next (lua_State *L, Table *t, StkId key); LUAI_FUNC lua_Unsigned luaH_getn (Table *t); LUAI_FUNC unsigned luaH_realasize (const Table *t); #if defined(LUA_DEBUG) LUAI_FUNC Node *luaH_mainposition (const Table *t, const TValue *key); #endif #endif //path: src/imports/../dependencies/lua/lundump.h #ifndef lundump_h #define lundump_h #include #define LUAC_DATA "\x19\x93\r\n\x1a\n" #define LUAC_INT 0x5678 #define LUAC_NUM cast_num(370.5) #define LUAC_VERSION (LUA_VERSION_MAJOR_N*16+LUA_VERSION_MINOR_N) #define LUAC_FORMAT 0 LUAI_FUNC LClosure* luaU_undump (lua_State* L, ZIO* Z, const char* name, int fixed); LUAI_FUNC int luaU_dump (lua_State* L, const Proto* f, lua_Writer w, void* data, int strip); #endif #if !defined(luai_verifycode) #define luai_verifycode(L,f) #endif typedef struct { lua_State *L; ZIO *Z; const char *name; Table *h; lu_mem offset; lua_Integer nstr; lu_byte fixed; } LoadState; static l_noret private_lua_error (LoadState *S, const char *why) { luaO_pushfstring(S->L, "%s: bad binary format (%s)", S->name, why); luaD_throw(S->L, LUA_ERRSYNTAX); } #define loadVector(S,b,n) loadBlock(S,b,(n)*sizeof((b)[0])) static void loadBlock (LoadState *S, void *b, size_t size) { if (luaZ_read(S->Z, b, size) != 0) private_lua_error(S, "truncated chunk"); S->offset += size; } static void loadAlign (LoadState *S, int align) { int padding = align - (S->offset % align); if (padding < align) { lua_Integer paddingContent; loadBlock(S, &paddingContent, padding); lua_assert(S->offset % align == 0); } } #define getaddr(S,n,t) cast(t *, getaddr_(S,(n) * sizeof(t))) static const void *getaddr_ (LoadState *S, size_t size) { const void *block = luaZ_getaddr(S->Z, size); S->offset += size; if (block == NULL) private_lua_error(S, "truncated fixed buffer"); return block; } #define loadVar(S,x) loadVector(S,&x,1) static lu_byte loadByte (LoadState *S) { int b = zgetc(S->Z); if (b == EOZ) private_lua_error(S, "truncated chunk"); S->offset++; return cast_byte(b); } static size_t loadVarint (LoadState *S, size_t limit) { size_t x = 0; int b; limit >>= 7; do { b = loadByte(S); if (x > limit) private_lua_error(S, "integer overflow"); x = (x << 7) | (b & 0x7f); } while ((b & 0x80) != 0); return x; } static size_t loadSize (LoadState *S) { return loadVarint(S, MAX_SIZET); } static int loadInt (LoadState *S) { return cast_int(loadVarint(S, cast_sizet(INT_MAX))); } static lua_Number loadNumber (LoadState *S) { lua_Number x; loadVar(S, x); return x; } static lua_Integer loadInteger (LoadState *S) { lua_Integer x; loadVar(S, x); return x; } static void loadString (LoadState *S, Proto *p, TString **sl) { lua_State *L = S->L; TString *ts; TValue sv; size_t size = loadSize(S); if (size == 0) { lua_assert(*sl == NULL); return; } else if (size == 1) { lua_Integer idx = cast(lua_Integer, loadSize(S)); TValue stv; luaH_getint(S->h, idx, &stv); *sl = ts = tsvalue(&stv); luaC_objbarrier(L, p, ts); return; } else if ((size -= 2) <= LUAI_MAXSHORTLEN) { char buff[LUAI_MAXSHORTLEN + 1]; loadVector(S, buff, size + 1); *sl = ts = luaS_newlstr(L, buff, size); luaC_objbarrier(L, p, ts); } else if (S->fixed) { const char *s = getaddr(S, size + 1, char); *sl = ts = luaS_newextlstr(L, s, size, NULL, NULL); luaC_objbarrier(L, p, ts); } else { *sl = ts = luaS_createlngstrobj(L, size); luaC_objbarrier(L, p, ts); loadVector(S, getlngstr(ts), size + 1); } S->nstr++; setsvalue(L, &sv, ts); luaH_setint(L, S->h, S->nstr, &sv); luaC_objbarrierback(L, obj2gco(S->h), ts); } static void loadCode (LoadState *S, Proto *f) { int n = loadInt(S); loadAlign(S, sizeof(f->code[0])); if (S->fixed) { f->code = getaddr(S, n, Instruction); f->sizecode = n; } else { f->code = luaM_newvectorchecked(S->L, n, Instruction); f->sizecode = n; loadVector(S, f->code, n); } } static void loadFunction(LoadState *S, Proto *f); static void loadConstants (LoadState *S, Proto *f) { int i; int n = loadInt(S); f->k = luaM_newvectorchecked(S->L, n, TValue); f->sizek = n; for (i = 0; i < n; i++) setnilvalue(&f->k[i]); for (i = 0; i < n; i++) { TValue *o = &f->k[i]; int t = loadByte(S); switch (t) { case LUA_VNIL: setnilvalue(o); break; case LUA_VFALSE: setbfvalue(o); break; case LUA_VTRUE: setbtvalue(o); break; case LUA_VNUMFLT: setfltvalue(o, loadNumber(S)); break; case LUA_VNUMINT: setivalue(o, loadInteger(S)); break; case LUA_VSHRSTR: case LUA_VLNGSTR: { lua_assert(f->source == NULL); loadString(S, f, &f->source); if (f->source == NULL) private_lua_error(S, "bad format for constant string"); setsvalue2n(S->L, o, f->source); f->source = NULL; break; } default: lua_assert(0); } } } static void loadProtos (LoadState *S, Proto *f) { int i; int n = loadInt(S); f->p = luaM_newvectorchecked(S->L, n, Proto *); f->sizep = n; for (i = 0; i < n; i++) f->p[i] = NULL; for (i = 0; i < n; i++) { f->p[i] = luaF_newproto(S->L); luaC_objbarrier(S->L, f, f->p[i]); loadFunction(S, f->p[i]); } } static void loadUpvalues (LoadState *S, Proto *f) { int i, n; n = loadInt(S); f->upvalues = luaM_newvectorchecked(S->L, n, Upvaldesc); f->sizeupvalues = n; for (i = 0; i < n; i++) f->upvalues[i].name = NULL; for (i = 0; i < n; i++) { f->upvalues[i].instack = loadByte(S); f->upvalues[i].idx = loadByte(S); f->upvalues[i].kind = loadByte(S); } } static void loadDebug (LoadState *S, Proto *f) { int i, n; n = loadInt(S); if (S->fixed) { f->lineinfo = getaddr(S, n, ls_byte); f->sizelineinfo = n; } else { f->lineinfo = luaM_newvectorchecked(S->L, n, ls_byte); f->sizelineinfo = n; loadVector(S, f->lineinfo, n); } n = loadInt(S); if (n > 0) { loadAlign(S, sizeof(int)); if (S->fixed) { f->abslineinfo = getaddr(S, n, AbsLineInfo); f->sizeabslineinfo = n; } else { f->abslineinfo = luaM_newvectorchecked(S->L, n, AbsLineInfo); f->sizeabslineinfo = n; loadVector(S, f->abslineinfo, n); } } n = loadInt(S); f->locvars = luaM_newvectorchecked(S->L, n, LocVar); f->sizelocvars = n; for (i = 0; i < n; i++) f->locvars[i].varname = NULL; for (i = 0; i < n; i++) { loadString(S, f, &f->locvars[i].varname); f->locvars[i].startpc = loadInt(S); f->locvars[i].endpc = loadInt(S); } n = loadInt(S); if (n != 0) n = f->sizeupvalues; for (i = 0; i < n; i++) loadString(S, f, &f->upvalues[i].name); } static void loadFunction (LoadState *S, Proto *f) { f->linedefined = loadInt(S); f->lastlinedefined = loadInt(S); f->numparams = loadByte(S); f->flag = loadByte(S) & PF_ISVARARG; if (S->fixed) f->flag |= PF_FIXED; f->maxstacksize = loadByte(S); loadCode(S, f); loadConstants(S, f); loadUpvalues(S, f); loadProtos(S, f); loadString(S, f, &f->source); loadDebug(S, f); } static void checkliteral (LoadState *S, const char *s, const char *msg) { char buff[sizeof(LUA_SIGNATURE) + sizeof(LUAC_DATA)]; size_t len = strlen(s); loadVector(S, buff, len); if (memcmp(s, buff, len) != 0) private_lua_error(S, msg); } static void fchecksize (LoadState *S, size_t size, const char *tname) { if (loadByte(S) != size) private_lua_error(S, luaO_pushfstring(S->L, "%s size mismatch", tname)); } #define checksize(S,t) fchecksize(S,sizeof(t),#t) static void checkHeader (LoadState *S) { checkliteral(S, &LUA_SIGNATURE[1], "not a binary chunk"); if (loadByte(S) != LUAC_VERSION) private_lua_error(S, "version mismatch"); if (loadByte(S) != LUAC_FORMAT) private_lua_error(S, "format mismatch"); checkliteral(S, LUAC_DATA, "corrupted chunk"); checksize(S, Instruction); checksize(S, lua_Integer); checksize(S, lua_Number); if (loadInteger(S) != LUAC_INT) private_lua_error(S, "integer format mismatch"); if (loadNumber(S) != LUAC_NUM) private_lua_error(S, "float format mismatch"); } LClosure *luaU_undump (lua_State *L, ZIO *Z, const char *name, int fixed) { LoadState S; LClosure *cl; if (*name == '@' || *name == '=') S.name = name + 1; else if (*name == LUA_SIGNATURE[0]) S.name = "binary string"; else S.name = name; S.L = L; S.Z = Z; S.fixed = fixed; S.offset = 1; checkHeader(&S); cl = luaF_newLclosure(L, loadByte(&S)); setclLvalue2s(L, L->top.p, cl); luaD_inctop(L); S.h = luaH_new(L); S.nstr = 0; sethvalue2s(L, L->top.p, S.h); luaD_inctop(L); cl->p = luaF_newproto(L); luaC_objbarrier(L, cl, cl->p); loadFunction(&S, cl->p); lua_assert(cl->nupvalues == cl->p->sizeupvalues); luai_verifycode(L, cl->p); L->top.p--; return cl; } //path: src/imports/../dependencies/lua/ldump.c #define ldump_c #define LUA_CORE #include #include typedef struct { lua_State *L; lua_Writer writer; void *data; lu_mem offset; int strip; int status; Table *h; lua_Integer nstr; } DumpState; #define dumpVector(D,v,n) dumpBlock(D,v,(n)*sizeof((v)[0])) #define dumpLiteral(D, s) dumpBlock(D,s,sizeof(s) - sizeof(char)) static void dumpBlock (DumpState *D, const void *b, size_t size) { if (D->status == 0) { lua_unlock(D->L); D->status = (*D->writer)(D->L, b, size, D->data); lua_lock(D->L); D->offset += size; } } static void dumpAlign (DumpState *D, int align) { int padding = align - (D->offset % align); if (padding < align) { static lua_Integer paddingContent = 0; lua_assert(cast_uint(align) <= sizeof(lua_Integer)); dumpBlock(D, &paddingContent, padding); } lua_assert(D->offset % align == 0); } #define dumpVar(D,x) dumpVector(D,&x,1) static void dumpByte (DumpState *D, int y) { lu_byte x = (lu_byte)y; dumpVar(D, x); } #define DIBS ((sizeof(size_t) * CHAR_BIT + 6) / 7) static void dumpVarint (DumpState *D, size_t x) { lu_byte buff[DIBS]; int n = 1; buff[DIBS - 1] = x & 0x7f; while ((x >>= 7) != 0) buff[DIBS - (++n)] = (x & 0x7f) | 0x80; dumpVector(D, buff + DIBS - n, n); } static void dumpSize (DumpState *D, size_t sz) { dumpVarint(D, sz); } static void dumpInt (DumpState *D, int x) { lua_assert(x >= 0); dumpVarint(D, cast(size_t, x)); } static void dumpNumber (DumpState *D, lua_Number x) { dumpVar(D, x); } static void dumpInteger (DumpState *D, lua_Integer x) { dumpVar(D, x); } static void dumpString (DumpState *D, TString *ts) { if (ts == NULL) dumpSize(D, 0); else { TValue idx; int tag = luaH_getstr(D->h, ts, &idx); if (!tagisempty(tag)) { dumpSize(D, 1); dumpSize(D, cast_sizet(ivalue(&idx))); } else { TValue key, value; size_t size; const char *s = getlstr(ts, size); dumpSize(D, size + 2); dumpVector(D, s, size + 1); D->nstr++; setsvalue(D->L, &key, ts); setivalue(&value, D->nstr); luaH_set(D->L, D->h, &key, &value); } } } static void dumpCode (DumpState *D, const Proto *f) { dumpInt(D, f->sizecode); dumpAlign(D, sizeof(f->code[0])); lua_assert(f->code != NULL); dumpVector(D, f->code, f->sizecode); } static void dumpFunction (DumpState *D, const Proto *f); static void dumpConstants (DumpState *D, const Proto *f) { int i; int n = f->sizek; dumpInt(D, n); for (i = 0; i < n; i++) { const TValue *o = &f->k[i]; int tt = ttypetag(o); dumpByte(D, tt); switch (tt) { case LUA_VNUMFLT: dumpNumber(D, fltvalue(o)); break; case LUA_VNUMINT: dumpInteger(D, ivalue(o)); break; case LUA_VSHRSTR: case LUA_VLNGSTR: dumpString(D, tsvalue(o)); break; default: lua_assert(tt == LUA_VNIL || tt == LUA_VFALSE || tt == LUA_VTRUE); } } } static void dumpProtos (DumpState *D, const Proto *f) { int i; int n = f->sizep; dumpInt(D, n); for (i = 0; i < n; i++) dumpFunction(D, f->p[i]); } static void dumpUpvalues (DumpState *D, const Proto *f) { int i, n = f->sizeupvalues; dumpInt(D, n); for (i = 0; i < n; i++) { dumpByte(D, f->upvalues[i].instack); dumpByte(D, f->upvalues[i].idx); dumpByte(D, f->upvalues[i].kind); } } static void dumpDebug (DumpState *D, const Proto *f) { int i, n; n = (D->strip) ? 0 : f->sizelineinfo; dumpInt(D, n); if (f->lineinfo != NULL) dumpVector(D, f->lineinfo, n); n = (D->strip) ? 0 : f->sizeabslineinfo; dumpInt(D, n); if (n > 0) { dumpAlign(D, sizeof(int)); dumpVector(D, f->abslineinfo, n); } n = (D->strip) ? 0 : f->sizelocvars; dumpInt(D, n); for (i = 0; i < n; i++) { dumpString(D, f->locvars[i].varname); dumpInt(D, f->locvars[i].startpc); dumpInt(D, f->locvars[i].endpc); } n = (D->strip) ? 0 : f->sizeupvalues; dumpInt(D, n); for (i = 0; i < n; i++) dumpString(D, f->upvalues[i].name); } static void dumpFunction (DumpState *D, const Proto *f) { dumpInt(D, f->linedefined); dumpInt(D, f->lastlinedefined); dumpByte(D, f->numparams); dumpByte(D, f->flag); dumpByte(D, f->maxstacksize); dumpCode(D, f); dumpConstants(D, f); dumpUpvalues(D, f); dumpProtos(D, f); dumpString(D, D->strip ? NULL : f->source); dumpDebug(D, f); } static void dumpHeader (DumpState *D) { dumpLiteral(D, LUA_SIGNATURE); dumpByte(D, LUAC_VERSION); dumpByte(D, LUAC_FORMAT); dumpLiteral(D, LUAC_DATA); dumpByte(D, sizeof(Instruction)); dumpByte(D, sizeof(lua_Integer)); dumpByte(D, sizeof(lua_Number)); dumpInteger(D, LUAC_INT); dumpNumber(D, LUAC_NUM); } int luaU_dump (lua_State *L, const Proto *f, lua_Writer w, void *data, int strip) { DumpState D; D.h = luaH_new(L); sethvalue2s(L, L->top.p, D.h); L->top.p++; D.L = L; D.writer = w; D.offset = 0; D.data = data; D.strip = strip; D.status = 0; D.nstr = 0; dumpHeader(&D); dumpByte(&D, f->sizeupvalues); dumpFunction(&D, f); dumpBlock(&D, NULL, 0); return D.status; } //path: src/imports/../dependencies/lua/lstate.c #define lstate_c #define LUA_CORE #include #include //path: src/imports/../dependencies/lua/lapi.h #ifndef lapi_h #define lapi_h #define api_incr_top(L) \ (L->top.p++, api_check(L, L->top.p <= L->ci->top.p, "stack overflow")) #define adjustresults(L,nres) \ { if ((nres) <= LUA_MULTRET && L->ci->top.p < L->top.p) \ L->ci->top.p = L->top.p; } #define api_checknelems(L,n) \ api_check(L, (n) < (L->top.p - L->ci->func.p), \ "not enough elements in the stack") #define api_checkpop(L,n) \ api_check(L, (n) < L->top.p - L->ci->func.p && \ L->tbclist.p < L->top.p - (n), \ "not enough free elements in the stack") #define hastocloseCfunc(n) ((n) < LUA_MULTRET) #define codeNresults(n) (-(n) - 3) #define decodeNresults(n) (-(n) - 3) #endif //path: src/imports/../dependencies/lua/llex.h #ifndef llex_h #define llex_h #include #define FIRST_RESERVED (UCHAR_MAX + 1) #if !defined(LUA_ENV) #define LUA_ENV "_ENV" #endif enum RESERVED { TK_AND = FIRST_RESERVED, TK_BREAK, TK_DO, TK_ELSE, TK_ELSEIF, TK_END, TK_FALSE, TK_FOR, TK_FUNCTION, TK_GOTO, TK_IF, TK_IN, TK_LOCAL, TK_NIL, TK_NOT, TK_OR, TK_REPEAT, TK_RETURN, TK_THEN, TK_TRUE, TK_UNTIL, TK_WHILE, TK_IDIV, TK_CONCAT, TK_DOTS, TK_EQ, TK_GE, TK_LE, TK_NE, TK_SHL, TK_SHR, TK_DBCOLON, TK_EOS, TK_FLT, TK_INT, TK_NAME, TK_STRING }; #define NUM_RESERVED (cast_int(TK_WHILE-FIRST_RESERVED + 1)) typedef union { lua_Number r; lua_Integer i; TString *ts; } SemInfo; typedef struct Token { int token; SemInfo seminfo; } Token; typedef struct LexState { int current; int linenumber; int lastline; Token t; Token lookahead; struct FuncState *fs; struct lua_State *L; ZIO *z; Mbuffer *buff; Table *h; struct Dyndata *dyd; TString *source; TString *envn; } LexState; LUAI_FUNC void luaX_init (lua_State *L); LUAI_FUNC void luaX_setinput (lua_State *L, LexState *ls, ZIO *z, TString *source, int firstchar); LUAI_FUNC TString *luaX_newstring (LexState *ls, const char *str, size_t l); LUAI_FUNC void luaX_next (LexState *ls); LUAI_FUNC int luaX_lookahead (LexState *ls); LUAI_FUNC l_noret luaX_syntaxerror (LexState *ls, const char *s); LUAI_FUNC const char *luaX_token2str (LexState *ls, int token); #endif typedef struct LX { lu_byte extra_[LUA_EXTRASPACE]; lua_State l; } LX; typedef struct LG { LX l; global_State g; } LG; #define fromstate(L) (cast(LX *, cast(lu_byte *, (L)) - offsetof(LX, l))) void luaE_setdebt (global_State *g, l_obj debt) { l_obj tb = gettotalobjs(g); lua_assert(tb > 0); if (debt > MAX_LOBJ - tb) debt = MAX_LOBJ - tb; g->totalobjs = tb + debt; g->GCdebt = debt; } CallInfo *luaE_extendCI (lua_State *L) { CallInfo *ci; lua_assert(L->ci->next == NULL); ci = luaM_new(L, CallInfo); lua_assert(L->ci->next == NULL); L->ci->next = ci; ci->previous = L->ci; ci->next = NULL; ci->u.l.trap = 0; L->nci++; return ci; } static void freeCI (lua_State *L) { CallInfo *ci = L->ci; CallInfo *next = ci->next; ci->next = NULL; while ((ci = next) != NULL) { next = ci->next; luaM_free(L, ci); L->nci--; } } void luaE_shrinkCI (lua_State *L) { CallInfo *ci = L->ci->next; CallInfo *next; if (ci == NULL) return; while ((next = ci->next) != NULL) { CallInfo *next2 = next->next; ci->next = next2; L->nci--; luaM_free(L, next); if (next2 == NULL) break; else { next2->previous = ci; ci = next2; } } } void luaE_checkcstack (lua_State *L) { if (getCcalls(L) == LUAI_MAXCCALLS) luaG_runerror(L, "C stack overflow"); else if (getCcalls(L) >= (LUAI_MAXCCALLS / 10 * 11)) luaD_throw(L, LUA_ERRERR); } LUAI_FUNC void luaE_incCstack (lua_State *L) { L->nCcalls++; if (l_unlikely(getCcalls(L) >= LUAI_MAXCCALLS)) luaE_checkcstack(L); } static void stack_init (lua_State *L1, lua_State *L) { int i; CallInfo *ci; L1->stack.p = luaM_newvector(L, BASIC_STACK_SIZE + EXTRA_STACK, StackValue); L1->tbclist.p = L1->stack.p; for (i = 0; i < BASIC_STACK_SIZE + EXTRA_STACK; i++) setnilvalue(s2v(L1->stack.p + i)); L1->top.p = L1->stack.p; L1->stack_last.p = L1->stack.p + BASIC_STACK_SIZE; ci = &L1->base_ci; ci->next = ci->previous = NULL; ci->callstatus = CIST_C; ci->func.p = L1->top.p; ci->u.c.k = NULL; ci->nresults = 0; setnilvalue(s2v(L1->top.p)); L1->top.p++; ci->top.p = L1->top.p + LUA_MINSTACK; L1->ci = ci; } static void freestack (lua_State *L) { if (L->stack.p == NULL) return; L->ci = &L->base_ci; freeCI(L); lua_assert(L->nci == 0); luaM_freearray(L, L->stack.p, stacksize(L) + EXTRA_STACK); } static void init_registry (lua_State *L, global_State *g) { TValue aux; Table *registry = luaH_new(L); sethvalue(L, &g->l_registry, registry); luaH_resize(L, registry, LUA_RIDX_LAST, 0); setbfvalue(&aux); luaH_setint(L, registry, 1, &aux); setthvalue(L, &aux, L); luaH_setint(L, registry, LUA_RIDX_MAINTHREAD, &aux); sethvalue(L, &aux, luaH_new(L)); luaH_setint(L, registry, LUA_RIDX_GLOBALS, &aux); } static void f_luaopen (lua_State *L, void *ud) { global_State *g = G(L); UNUSED(ud); stack_init(L, L); init_registry(L, g); luaS_init(L); luaT_init(L); luaX_init(L); g->gcstp = 0; setnilvalue(&g->nilvalue); luai_userstateopen(L); } static void preinit_thread (lua_State *L, global_State *g) { G(L) = g; L->stack.p = NULL; L->ci = NULL; L->nci = 0; L->twups = L; L->nCcalls = 0; L->errorJmp = NULL; L->hook = NULL; L->hookmask = 0; L->basehookcount = 0; L->allowhook = 1; resethookcount(L); L->openupval = NULL; L->status = LUA_OK; L->errfunc = 0; L->oldpc = 0; } static void close_state (lua_State *L) { global_State *g = G(L); if (!completestate(g)) luaC_freeallobjects(L); else { L->ci = &L->base_ci; luaD_closeprotected(L, 1, LUA_OK); luaC_freeallobjects(L); luai_userstateclose(L); } luaM_freearray(L, G(L)->strt.hash, G(L)->strt.size); freestack(L); lua_assert(g->totalbytes == sizeof(LG)); lua_assert(gettotalobjs(g) == 1); (*g->frealloc)(g->ud, fromstate(L), sizeof(LG), 0); } LUA_API lua_State *lua_newthread (lua_State *L) { global_State *g = G(L); GCObject *o; lua_State *L1; lua_lock(L); luaC_checkGC(L); o = luaC_newobjdt(L, LUA_TTHREAD, sizeof(LX), offsetof(LX, l)); L1 = gco2th(o); setthvalue2s(L, L->top.p, L1); api_incr_top(L); preinit_thread(L1, g); L1->hookmask = L->hookmask; L1->basehookcount = L->basehookcount; L1->hook = L->hook; resethookcount(L1); memcpy(lua_getextraspace(L1), lua_getextraspace(g->mainthread), LUA_EXTRASPACE); luai_userstatethread(L, L1); stack_init(L1, L); lua_unlock(L); return L1; } void luaE_freethread (lua_State *L, lua_State *L1) { LX *l = fromstate(L1); luaF_closeupval(L1, L1->stack.p); lua_assert(L1->openupval == NULL); luai_userstatefree(L, L1); freestack(L1); luaM_free(L, l); } int luaE_resetthread (lua_State *L, int status) { CallInfo *ci = L->ci = &L->base_ci; setnilvalue(s2v(L->stack.p)); ci->func.p = L->stack.p; ci->callstatus = CIST_C; if (status == LUA_YIELD) status = LUA_OK; L->status = LUA_OK; status = luaD_closeprotected(L, 1, status); if (status != LUA_OK) luaD_seterrorobj(L, status, L->stack.p + 1); else L->top.p = L->stack.p + 1; ci->top.p = L->top.p + LUA_MINSTACK; luaD_reallocstack(L, cast_int(ci->top.p - L->stack.p), 0); return status; } LUA_API int lua_closethread (lua_State *L, lua_State *from) { int status; lua_lock(L); L->nCcalls = (from) ? getCcalls(from) : 0; status = luaE_resetthread(L, L->status); lua_unlock(L); return status; } LUA_API lua_State *lua_newstate (lua_Alloc f, void *ud, unsigned seed) { int i; lua_State *L; global_State *g; LG *l = cast(LG *, (*f)(ud, NULL, LUA_TTHREAD, sizeof(LG))); if (l == NULL) return NULL; L = &l->l.l; g = &l->g; L->tt = LUA_VTHREAD; g->currentwhite = bitmask(WHITE0BIT); L->marked = luaC_white(g); preinit_thread(L, g); g->allgc = obj2gco(L); L->next = NULL; incnny(L); g->frealloc = f; g->ud = ud; g->warnf = NULL; g->ud_warn = NULL; g->mainthread = L; g->seed = seed; g->gcstp = GCSTPGC; g->strt.size = g->strt.nuse = 0; g->strt.hash = NULL; setnilvalue(&g->l_registry); g->panic = NULL; g->gcstate = GCSpause; g->gckind = KGC_INC; g->gcstopem = 0; g->gcemergency = 0; g->finobj = g->tobefnz = g->fixedgc = NULL; g->firstold1 = g->survival = g->old1 = g->reallyold = NULL; g->finobjsur = g->finobjold1 = g->finobjrold = NULL; g->sweepgc = NULL; g->gray = g->grayagain = NULL; g->weak = g->ephemeron = g->allweak = NULL; g->twups = NULL; g->totalbytes = sizeof(LG); g->totalobjs = 1; g->marked = 0; g->GCdebt = 0; setivalue(&g->nilvalue, 0); setgcparam(g, PAUSE, LUAI_GCPAUSE); setgcparam(g, STEPMUL, LUAI_GCMUL); setgcparam(g, STEPSIZE, LUAI_GCSTEPSIZE); setgcparam(g, MINORMUL, LUAI_GENMINORMUL); setgcparam(g, MINORMAJOR, LUAI_MINORMAJOR); setgcparam(g, MAJORMINOR, LUAI_MAJORMINOR); for (i=0; i < LUA_NUMTYPES; i++) g->mt[i] = NULL; if (luaD_rawrunprotected(L, f_luaopen, NULL) != LUA_OK) { close_state(L); L = NULL; } return L; } LUA_API void lua_close (lua_State *L) { lua_lock(L); L = G(L)->mainthread; close_state(L); } void luaE_warning (lua_State *L, const char *msg, int tocont) { lua_WarnFunction wf = G(L)->warnf; if (wf != NULL) wf(G(L)->ud_warn, msg, tocont); } void luaE_warnerror (lua_State *L, const char *where) { TValue *errobj = s2v(L->top.p - 1); const char *msg = (ttisstring(errobj)) ? getstr(tsvalue(errobj)) : "private_lua_error object is not a string"; luaE_warning(L, "private_lua_error in ", 1); luaE_warning(L, where, 1); luaE_warning(L, " (", 1); luaE_warning(L, msg, 1); luaE_warning(L, ")", 0); } //path: src/imports/../dependencies/lua/lgc.c #define lgc_c #define LUA_CORE #include #define NFIXED (TM_N + NUM_RESERVED + 2) #define GCSWEEPMAX 20 #define maskcolors (bitmask(BLACKBIT) | WHITEBITS) #define maskgcbits (maskcolors | AGEBITS) #define makewhite(g,x) \ (x->marked = cast_byte((x->marked & ~maskcolors) | luaC_white(g))) #define set2gray(x) resetbits(x->marked, maskcolors) #define set2black(x) \ (x->marked = cast_byte((x->marked & ~WHITEBITS) | bitmask(BLACKBIT))) #define valiswhite(x) (iscollectable(x) && iswhite(gcvalue(x))) #define keyiswhite(n) (keyiscollectable(n) && iswhite(gckey(n))) #define gcvalueN(o) (iscollectable(o) ? gcvalue(o) : NULL) #define gcvalarr(t,i) \ ((*getArrTag(t,i) & BIT_ISCOLLECTABLE) ? getArrVal(t,i)->gc : NULL) #define markvalue(g,o) { checkliveness(g->mainthread,o); \ if (valiswhite(o)) reallymarkobject(g,gcvalue(o)); } #define markkey(g, n) { if keyiswhite(n) reallymarkobject(g,gckey(n)); } #define markobject(g,t) { if (iswhite(t)) reallymarkobject(g, obj2gco(t)); } #define markobjectN(g,t) { if (t) markobject(g,t); } static void reallymarkobject (global_State *g, GCObject *o); static l_obj atomic (lua_State *L); static void entersweep (lua_State *L); #define gnodelast(h) gnode(h, cast_sizet(sizenode(h))) static GCObject **getgclist (GCObject *o) { switch (o->tt) { case LUA_VTABLE: return &gco2t(o)->gclist; case LUA_VLCL: return &gco2lcl(o)->gclist; case LUA_VCCL: return &gco2ccl(o)->gclist; case LUA_VTHREAD: return &gco2th(o)->gclist; case LUA_VPROTO: return &gco2p(o)->gclist; case LUA_VUSERDATA: { Udata *u = gco2u(o); lua_assert(u->nuvalue > 0); return &u->gclist; } default: lua_assert(0); return 0; } } #define linkgclist(o,p) linkgclist_(obj2gco(o), &(o)->gclist, &(p)) static void linkgclist_ (GCObject *o, GCObject **pnext, GCObject **list) { lua_assert(!isgray(o)); *pnext = *list; *list = o; set2gray(o); } #define linkobjgclist(o,p) linkgclist_(obj2gco(o), getgclist(o), &(p)) static void clearkey (Node *n) { lua_assert(isempty(gval(n))); if (keyiscollectable(n)) setdeadkey(n); } static int iscleared (global_State *g, const GCObject *o) { if (o == NULL) return 0; else if (novariant(o->tt) == LUA_TSTRING) { markobject(g, o); return 0; } else return iswhite(o); } void luaC_barrier_ (lua_State *L, GCObject *o, GCObject *v) { global_State *g = G(L); lua_assert(isblack(o) && iswhite(v) && !isdead(g, v) && !isdead(g, o)); if (keepinvariant(g)) { reallymarkobject(g, v); if (isold(o)) { lua_assert(!isold(v)); setage(v, G_OLD0); } } else { lua_assert(issweepphase(g)); if (g->gckind != KGC_GENMINOR) makewhite(g, o); } } void luaC_barrierback_ (lua_State *L, GCObject *o) { global_State *g = G(L); lua_assert(isblack(o) && !isdead(g, o)); lua_assert((g->gckind != KGC_GENMINOR) || (isold(o) && getage(o) != G_TOUCHED1)); if (getage(o) == G_TOUCHED2) set2gray(o); else linkobjgclist(o, g->grayagain); if (isold(o)) setage(o, G_TOUCHED1); } void luaC_fix (lua_State *L, GCObject *o) { global_State *g = G(L); lua_assert(g->allgc == o); set2gray(o); setage(o, G_OLD); g->allgc = o->next; o->next = g->fixedgc; g->fixedgc = o; } GCObject *luaC_newobjdt (lua_State *L, int tt, size_t sz, size_t offset) { global_State *g = G(L); char *p = cast_charp(luaM_newobject(L, novariant(tt), sz)); GCObject *o = cast(GCObject *, p + offset); g->GCdebt--; o->marked = luaC_white(g); o->tt = tt; o->next = g->allgc; g->allgc = o; return o; } GCObject *luaC_newobj (lua_State *L, int tt, size_t sz) { return luaC_newobjdt(L, tt, sz, 0); } static void reallymarkobject (global_State *g, GCObject *o) { g->marked++; switch (o->tt) { case LUA_VSHRSTR: case LUA_VLNGSTR: { set2black(o); break; } case LUA_VUPVAL: { UpVal *uv = gco2upv(o); if (upisopen(uv)) set2gray(uv); else set2black(uv); markvalue(g, uv->v.p); break; } case LUA_VUSERDATA: { Udata *u = gco2u(o); if (u->nuvalue == 0) { markobjectN(g, u->metatable); set2black(u); break; } } case LUA_VLCL: case LUA_VCCL: case LUA_VTABLE: case LUA_VTHREAD: case LUA_VPROTO: { linkobjgclist(o, g->gray); break; } default: lua_assert(0); break; } } static void markmt (global_State *g) { int i; for (i=0; i < LUA_NUMTYPES; i++) markobjectN(g, g->mt[i]); } static l_obj markbeingfnz (global_State *g) { GCObject *o; l_obj count = 0; for (o = g->tobefnz; o != NULL; o = o->next) { count++; markobject(g, o); } return count; } static l_obj remarkupvals (global_State *g) { l_obj work = 0; lua_State *thread; lua_State **p = &g->twups; while ((thread = *p) != NULL) { if (!iswhite(thread) && thread->openupval != NULL) p = &thread->twups; else { UpVal *uv; lua_assert(!isold(thread) || thread->openupval == NULL); *p = thread->twups; thread->twups = thread; for (uv = thread->openupval; uv != NULL; uv = uv->u.open.next) { lua_assert(getage(uv) <= getage(thread)); if (!iswhite(uv)) { lua_assert(upisopen(uv) && isgray(uv)); markvalue(g, uv->v.p); } } } work++; } return work; } static void cleargraylists (global_State *g) { g->gray = g->grayagain = NULL; g->weak = g->allweak = g->ephemeron = NULL; } static void restartcollection (global_State *g) { cleargraylists(g); g->marked = NFIXED; markobject(g, g->mainthread); markvalue(g, &g->l_registry); markmt(g); markbeingfnz(g); } static void genlink (global_State *g, GCObject *o) { lua_assert(isblack(o)); if (getage(o) == G_TOUCHED1) { linkobjgclist(o, g->grayagain); } else if (getage(o) == G_TOUCHED2) setage(o, G_OLD); } static void traverseweakvalue (global_State *g, Table *h) { Node *n, *limit = gnodelast(h); int hasclears = (h->alimit > 0); for (n = gnode(h, 0); n < limit; n++) { if (isempty(gval(n))) clearkey(n); else { lua_assert(!keyisnil(n)); markkey(g, n); if (!hasclears && iscleared(g, gcvalueN(gval(n)))) hasclears = 1; } } if (g->gcstate == GCSatomic && hasclears) linkgclist(h, g->weak); else linkgclist(h, g->grayagain); } static int traversearray (global_State *g, Table *h) { unsigned asize = luaH_realasize(h); int marked = 0; unsigned i; for (i = 0; i < asize; i++) { GCObject *o = gcvalarr(h, i); if (o != NULL && iswhite(o)) { marked = 1; reallymarkobject(g, o); } } return marked; } static int traverseephemeron (global_State *g, Table *h, int inv) { int hasclears = 0; int hasww = 0; unsigned int i; unsigned int nsize = sizenode(h); int marked = traversearray(g, h); for (i = 0; i < nsize; i++) { Node *n = inv ? gnode(h, nsize - 1 - i) : gnode(h, i); if (isempty(gval(n))) clearkey(n); else if (iscleared(g, gckeyN(n))) { hasclears = 1; if (valiswhite(gval(n))) hasww = 1; } else if (valiswhite(gval(n))) { marked = 1; reallymarkobject(g, gcvalue(gval(n))); } } if (g->gcstate == GCSpropagate) linkgclist(h, g->grayagain); else if (hasww) linkgclist(h, g->ephemeron); else if (hasclears) linkgclist(h, g->allweak); else genlink(g, obj2gco(h)); return marked; } static void traversestrongtable (global_State *g, Table *h) { Node *n, *limit = gnodelast(h); traversearray(g, h); for (n = gnode(h, 0); n < limit; n++) { if (isempty(gval(n))) clearkey(n); else { lua_assert(!keyisnil(n)); markkey(g, n); markvalue(g, gval(n)); } } genlink(g, obj2gco(h)); } static void traversetable (global_State *g, Table *h) { const char *weakkey, *weakvalue; const TValue *mode = gfasttm(g, h->metatable, TM_MODE); TString *smode; markobjectN(g, h->metatable); if (mode && ttisshrstring(mode) && (cast_void(smode = tsvalue(mode)), cast_void(weakkey = strchr(getshrstr(smode), 'k')), cast_void(weakvalue = strchr(getshrstr(smode), 'v')), (weakkey || weakvalue))) { if (!weakkey) traverseweakvalue(g, h); else if (!weakvalue) traverseephemeron(g, h, 0); else linkgclist(h, g->allweak); } else traversestrongtable(g, h); } static void traverseudata (global_State *g, Udata *u) { int i; markobjectN(g, u->metatable); for (i = 0; i < u->nuvalue; i++) markvalue(g, &u->uv[i].uv); genlink(g, obj2gco(u)); } static void traverseproto (global_State *g, Proto *f) { int i; markobjectN(g, f->source); for (i = 0; i < f->sizek; i++) markvalue(g, &f->k[i]); for (i = 0; i < f->sizeupvalues; i++) markobjectN(g, f->upvalues[i].name); for (i = 0; i < f->sizep; i++) markobjectN(g, f->p[i]); for (i = 0; i < f->sizelocvars; i++) markobjectN(g, f->locvars[i].varname); } static void traverseCclosure (global_State *g, CClosure *cl) { int i; for (i = 0; i < cl->nupvalues; i++) markvalue(g, &cl->upvalue[i]); } static void traverseLclosure (global_State *g, LClosure *cl) { int i; markobjectN(g, cl->p); for (i = 0; i < cl->nupvalues; i++) { UpVal *uv = cl->upvals[i]; markobjectN(g, uv); } } static void traversethread (global_State *g, lua_State *th) { UpVal *uv; StkId o = th->stack.p; if (isold(th) || g->gcstate == GCSpropagate) linkgclist(th, g->grayagain); if (o == NULL) return; lua_assert(g->gcstate == GCSatomic || th->openupval == NULL || isintwups(th)); for (; o < th->top.p; o++) markvalue(g, s2v(o)); for (uv = th->openupval; uv != NULL; uv = uv->u.open.next) markobject(g, uv); if (g->gcstate == GCSatomic) { if (!g->gcemergency) luaD_shrinkstack(th); for (o = th->top.p; o < th->stack_last.p + EXTRA_STACK; o++) setnilvalue(s2v(o)); if (!isintwups(th) && th->openupval != NULL) { th->twups = g->twups; g->twups = th; } } } static void propagatemark (global_State *g) { GCObject *o = g->gray; nw2black(o); g->gray = *getgclist(o); switch (o->tt) { case LUA_VTABLE: traversetable(g, gco2t(o)); break; case LUA_VUSERDATA: traverseudata(g, gco2u(o)); break; case LUA_VLCL: traverseLclosure(g, gco2lcl(o)); break; case LUA_VCCL: traverseCclosure(g, gco2ccl(o)); break; case LUA_VPROTO: traverseproto(g, gco2p(o)); break; case LUA_VTHREAD: traversethread(g, gco2th(o)); break; default: lua_assert(0); } } static l_obj propagateall (global_State *g) { l_obj work = 0; while (g->gray) { propagatemark(g); work++; } return work; } static l_obj convergeephemerons (global_State *g) { int changed; l_obj work = 0; int dir = 0; do { GCObject *w; GCObject *next = g->ephemeron; g->ephemeron = NULL; changed = 0; while ((w = next) != NULL) { Table *h = gco2t(w); next = h->gclist; nw2black(h); if (traverseephemeron(g, h, dir)) { propagateall(g); changed = 1; } work++; } dir = !dir; } while (changed); return work; } static l_obj clearbykeys (global_State *g, GCObject *l) { l_obj work = 0; for (; l; l = gco2t(l)->gclist) { Table *h = gco2t(l); Node *limit = gnodelast(h); Node *n; for (n = gnode(h, 0); n < limit; n++) { if (iscleared(g, gckeyN(n))) setempty(gval(n)); if (isempty(gval(n))) clearkey(n); } work++; } return work; } static l_obj clearbyvalues (global_State *g, GCObject *l, GCObject *f) { l_obj work = 0; for (; l != f; l = gco2t(l)->gclist) { Table *h = gco2t(l); Node *n, *limit = gnodelast(h); unsigned int i; unsigned int asize = luaH_realasize(h); for (i = 0; i < asize; i++) { GCObject *o = gcvalarr(h, i); if (iscleared(g, o)) *getArrTag(h, i) = LUA_VEMPTY; } for (n = gnode(h, 0); n < limit; n++) { if (iscleared(g, gcvalueN(gval(n)))) setempty(gval(n)); if (isempty(gval(n))) clearkey(n); } work++; } return work; } static void freeupval (lua_State *L, UpVal *uv) { if (upisopen(uv)) luaF_unlinkupval(uv); luaM_free(L, uv); } static void freeobj (lua_State *L, GCObject *o) { G(L)->totalobjs--; switch (o->tt) { case LUA_VPROTO: luaF_freeproto(L, gco2p(o)); break; case LUA_VUPVAL: freeupval(L, gco2upv(o)); break; case LUA_VLCL: { LClosure *cl = gco2lcl(o); luaM_freemem(L, cl, sizeLclosure(cl->nupvalues)); break; } case LUA_VCCL: { CClosure *cl = gco2ccl(o); luaM_freemem(L, cl, sizeCclosure(cl->nupvalues)); break; } case LUA_VTABLE: luaH_free(L, gco2t(o)); break; case LUA_VTHREAD: luaE_freethread(L, gco2th(o)); break; case LUA_VUSERDATA: { Udata *u = gco2u(o); luaM_freemem(L, o, sizeudata(u->nuvalue, u->len)); break; } case LUA_VSHRSTR: { TString *ts = gco2ts(o); luaS_remove(L, ts); luaM_freemem(L, ts, sizestrshr(ts->shrlen)); break; } case LUA_VLNGSTR: { TString *ts = gco2ts(o); if (ts->shrlen == LSTRMEM) (*ts->falloc)(ts->ud, ts->contents, ts->u.lnglen + 1, 0); luaM_freemem(L, ts, luaS_sizelngstr(ts->u.lnglen, ts->shrlen)); break; } default: lua_assert(0); } } static GCObject **sweeplist (lua_State *L, GCObject **p, l_obj countin) { global_State *g = G(L); int ow = otherwhite(g); l_obj i; int white = luaC_white(g); for (i = 0; *p != NULL && i < countin; i++) { GCObject *curr = *p; int marked = curr->marked; if (isdeadm(ow, marked)) { *p = curr->next; freeobj(L, curr); } else { curr->marked = cast_byte((marked & ~maskgcbits) | white | G_NEW); p = &curr->next; } } return (*p == NULL) ? NULL : p; } static GCObject **sweeptolive (lua_State *L, GCObject **p) { GCObject **old = p; do { p = sweeplist(L, p, 1); } while (p == old); return p; } static void checkSizes (lua_State *L, global_State *g) { if (!g->gcemergency) { if (g->strt.nuse < g->strt.size / 4) luaS_resize(L, g->strt.size / 2); } } static GCObject *udata2finalize (global_State *g) { GCObject *o = g->tobefnz; lua_assert(tofinalize(o)); g->tobefnz = o->next; o->next = g->allgc; g->allgc = o; resetbit(o->marked, FINALIZEDBIT); if (issweepphase(g)) makewhite(g, o); else if (getage(o) == G_OLD1) g->firstold1 = o; return o; } static void dothecall (lua_State *L, void *ud) { UNUSED(ud); luaD_callnoyield(L, L->top.p - 2, 0); } static void GCTM (lua_State *L) { global_State *g = G(L); const TValue *tm; TValue v; lua_assert(!g->gcemergency); setgcovalue(L, &v, udata2finalize(g)); tm = luaT_gettmbyobj(L, &v, TM_GC); if (!notm(tm)) { int status; lu_byte oldah = L->allowhook; int oldgcstp = g->gcstp; g->gcstp |= GCSTPGC; L->allowhook = 0; setobj2s(L, L->top.p++, tm); setobj2s(L, L->top.p++, &v); L->ci->callstatus |= CIST_FIN; status = luaD_pcall(L, dothecall, NULL, savestack(L, L->top.p - 2), 0); L->ci->callstatus &= ~CIST_FIN; L->allowhook = oldah; g->gcstp = oldgcstp; if (l_unlikely(status != LUA_OK)) { luaE_warnerror(L, "__gc"); L->top.p--; } } } static void callallpendingfinalizers (lua_State *L) { global_State *g = G(L); while (g->tobefnz) GCTM(L); } static GCObject **findlast (GCObject **p) { while (*p != NULL) p = &(*p)->next; return p; } static void separatetobefnz (global_State *g, int all) { GCObject *curr; GCObject **p = &g->finobj; GCObject **lastnext = findlast(&g->tobefnz); while ((curr = *p) != g->finobjold1) { lua_assert(tofinalize(curr)); if (!(iswhite(curr) || all)) p = &curr->next; else { if (curr == g->finobjsur) g->finobjsur = curr->next; *p = curr->next; curr->next = *lastnext; *lastnext = curr; lastnext = &curr->next; } } } static void checkpointer (GCObject **p, GCObject *o) { if (o == *p) *p = o->next; } static void correctpointers (global_State *g, GCObject *o) { checkpointer(&g->survival, o); checkpointer(&g->old1, o); checkpointer(&g->reallyold, o); checkpointer(&g->firstold1, o); } void luaC_checkfinalizer (lua_State *L, GCObject *o, Table *mt) { global_State *g = G(L); if (tofinalize(o) || gfasttm(g, mt, TM_GC) == NULL || (g->gcstp & GCSTPCLS)) return; else { GCObject **p; if (issweepphase(g)) { makewhite(g, o); if (g->sweepgc == &o->next) g->sweepgc = sweeptolive(L, g->sweepgc); } else correctpointers(g, o); for (p = &g->allgc; *p != o; p = &(*p)->next) { } *p = o->next; o->next = g->finobj; g->finobj = o; l_setbit(o->marked, FINALIZEDBIT); } } static void setpause (global_State *g) { l_obj threshold = applygcparam(g, PAUSE, g->marked); l_obj debt = threshold - gettotalobjs(g); if (debt < 0) debt = 0; luaE_setdebt(g, debt); } static void sweep2old (lua_State *L, GCObject **p) { GCObject *curr; global_State *g = G(L); while ((curr = *p) != NULL) { if (iswhite(curr)) { lua_assert(isdead(g, curr)); *p = curr->next; freeobj(L, curr); } else { setage(curr, G_OLD); if (curr->tt == LUA_VTHREAD) { lua_State *th = gco2th(curr); linkgclist(th, g->grayagain); } else if (curr->tt == LUA_VUPVAL && upisopen(gco2upv(curr))) set2gray(curr); else nw2black(curr); p = &curr->next; } } } static GCObject **sweepgen (lua_State *L, global_State *g, GCObject **p, GCObject *limit, GCObject **pfirstold1, l_obj *paddedold) { static const lu_byte nextage[] = { G_SURVIVAL, G_OLD1, G_OLD1, G_OLD, G_OLD, G_TOUCHED1, G_TOUCHED2 }; l_obj addedold = 0; int white = luaC_white(g); GCObject *curr; while ((curr = *p) != limit) { if (iswhite(curr)) { lua_assert(!isold(curr) && isdead(g, curr)); *p = curr->next; freeobj(L, curr); } else { int age = getage(curr); if (age == G_NEW) { int marked = curr->marked & ~maskgcbits; curr->marked = cast_byte(marked | G_SURVIVAL | white); } else { lua_assert(age != G_OLD1); setage(curr, nextage[age]); if (getage(curr) == G_OLD1) { addedold++; if (*pfirstold1 == NULL) *pfirstold1 = curr; } } p = &curr->next; } } *paddedold += addedold; return p; } static GCObject **correctgraylist (GCObject **p) { GCObject *curr; while ((curr = *p) != NULL) { GCObject **next = getgclist(curr); if (iswhite(curr)) goto remove; else if (getage(curr) == G_TOUCHED1) { lua_assert(isgray(curr)); nw2black(curr); setage(curr, G_TOUCHED2); goto remain; } else if (curr->tt == LUA_VTHREAD) { lua_assert(isgray(curr)); goto remain; } else { lua_assert(isold(curr)); if (getage(curr) == G_TOUCHED2) setage(curr, G_OLD); nw2black(curr); goto remove; } remove: *p = *next; continue; remain: p = next; continue; } return p; } static void correctgraylists (global_State *g) { GCObject **list = correctgraylist(&g->grayagain); *list = g->weak; g->weak = NULL; list = correctgraylist(list); *list = g->allweak; g->allweak = NULL; list = correctgraylist(list); *list = g->ephemeron; g->ephemeron = NULL; correctgraylist(list); } static void markold (global_State *g, GCObject *from, GCObject *to) { GCObject *p; for (p = from; p != to; p = p->next) { if (getage(p) == G_OLD1) { lua_assert(!iswhite(p)); setage(p, G_OLD); if (isblack(p)) reallymarkobject(g, p); } } } static void finishgencycle (lua_State *L, global_State *g) { correctgraylists(g); checkSizes(L, g); g->gcstate = GCSpropagate; if (!g->gcemergency) callallpendingfinalizers(L); } static void minor2inc (lua_State *L, global_State *g, int kind) { g->GCmajorminor = g->marked; g->gckind = kind; g->reallyold = g->old1 = g->survival = NULL; g->finobjrold = g->finobjold1 = g->finobjsur = NULL; entersweep(L); luaE_setdebt(g, applygcparam(g, STEPSIZE, 100)); } static int checkminormajor (global_State *g, l_obj addedold1) { l_obj step = applygcparam(g, MINORMUL, g->GCmajorminor); l_obj limit = applygcparam(g, MINORMAJOR, g->GCmajorminor); return (addedold1 >= (step >> 1) || g->marked >= limit); } static void youngcollection (lua_State *L, global_State *g) { l_obj addedold1 = 0; l_obj marked = g->marked; GCObject **psurvival; GCObject *dummy; lua_assert(g->gcstate == GCSpropagate); if (g->firstold1) { markold(g, g->firstold1, g->reallyold); g->firstold1 = NULL; } markold(g, g->finobj, g->finobjrold); markold(g, g->tobefnz, NULL); atomic(L); g->gcstate = GCSswpallgc; psurvival = sweepgen(L, g, &g->allgc, g->survival, &g->firstold1, &addedold1); sweepgen(L, g, psurvival, g->old1, &g->firstold1, &addedold1); g->reallyold = g->old1; g->old1 = *psurvival; g->survival = g->allgc; dummy = NULL; psurvival = sweepgen(L, g, &g->finobj, g->finobjsur, &dummy, &addedold1); sweepgen(L, g, psurvival, g->finobjold1, &dummy, &addedold1); g->finobjrold = g->finobjold1; g->finobjold1 = *psurvival; g->finobjsur = g->finobj; sweepgen(L, g, &g->tobefnz, NULL, &dummy, &addedold1); g->marked = marked + addedold1; if (checkminormajor(g, addedold1)) { minor2inc(L, g, KGC_GENMAJOR); g->marked = 0; } else finishgencycle(L, g); } static void atomic2gen (lua_State *L, global_State *g) { cleargraylists(g); g->gcstate = GCSswpallgc; sweep2old(L, &g->allgc); g->reallyold = g->old1 = g->survival = g->allgc; g->firstold1 = NULL; sweep2old(L, &g->finobj); g->finobjrold = g->finobjold1 = g->finobjsur = g->finobj; sweep2old(L, &g->tobefnz); g->gckind = KGC_GENMINOR; g->GCmajorminor = g->marked; g->marked = 0; finishgencycle(L, g); } static void setminordebt (global_State *g) { luaE_setdebt(g, applygcparam(g, MINORMUL, g->GCmajorminor)); } static void entergen (lua_State *L, global_State *g) { luaC_runtilstate(L, GCSpause, 1); luaC_runtilstate(L, GCSpropagate, 1); atomic(L); atomic2gen(L, g); setminordebt(g); } void luaC_changemode (lua_State *L, int newmode) { global_State *g = G(L); if (g->gckind == KGC_GENMAJOR) g->gckind = KGC_INC; if (newmode != g->gckind) { if (newmode == KGC_INC) minor2inc(L, g, KGC_INC); else { lua_assert(newmode == KGC_GENMINOR); entergen(L, g); } } } static void fullgen (lua_State *L, global_State *g) { minor2inc(L, g, KGC_INC); entergen(L, g); } static int checkmajorminor (lua_State *L, global_State *g) { if (g->gckind == KGC_GENMAJOR) { l_obj numobjs = gettotalobjs(g); l_obj addedobjs = numobjs - g->GCmajorminor; l_obj limit = applygcparam(g, MAJORMINOR, addedobjs); l_obj tobecollected = numobjs - g->marked; if (tobecollected > limit) { atomic2gen(L, g); setminordebt(g); return 0; } } g->GCmajorminor = g->marked; return 1; } static void entersweep (lua_State *L) { global_State *g = G(L); g->gcstate = GCSswpallgc; lua_assert(g->sweepgc == NULL); g->sweepgc = sweeptolive(L, &g->allgc); } static void deletelist (lua_State *L, GCObject *p, GCObject *limit) { while (p != limit) { GCObject *next = p->next; freeobj(L, p); p = next; } } void luaC_freeallobjects (lua_State *L) { global_State *g = G(L); g->gcstp = GCSTPCLS; luaC_changemode(L, KGC_INC); separatetobefnz(g, 1); lua_assert(g->finobj == NULL); callallpendingfinalizers(L); deletelist(L, g->allgc, obj2gco(g->mainthread)); lua_assert(g->finobj == NULL); deletelist(L, g->fixedgc, NULL); lua_assert(g->strt.nuse == 0); } static l_obj atomic (lua_State *L) { l_obj work = 0; global_State *g = G(L); GCObject *origweak, *origall; GCObject *grayagain = g->grayagain; g->grayagain = NULL; lua_assert(g->ephemeron == NULL && g->weak == NULL); lua_assert(!iswhite(g->mainthread)); g->gcstate = GCSatomic; markobject(g, L); markvalue(g, &g->l_registry); markmt(g); work += propagateall(g); work += remarkupvals(g); work += propagateall(g); g->gray = grayagain; work += propagateall(g); work += convergeephemerons(g); work += clearbyvalues(g, g->weak, NULL); work += clearbyvalues(g, g->allweak, NULL); origweak = g->weak; origall = g->allweak; separatetobefnz(g, 0); work += markbeingfnz(g); work += propagateall(g); work += convergeephemerons(g); work += clearbykeys(g, g->ephemeron); work += clearbykeys(g, g->allweak); work += clearbyvalues(g, g->weak, origweak); work += clearbyvalues(g, g->allweak, origall); luaS_clearcache(g); g->currentwhite = cast_byte(otherwhite(g)); lua_assert(g->gray == NULL); return work; } static void sweepstep (lua_State *L, global_State *g, int nextstate, GCObject **nextlist, int fast) { if (g->sweepgc) g->sweepgc = sweeplist(L, g->sweepgc, fast ? MAX_LOBJ : GCSWEEPMAX); else { g->gcstate = nextstate; g->sweepgc = nextlist; } } static l_obj singlestep (lua_State *L, int fast) { global_State *g = G(L); l_obj work; lua_assert(!g->gcstopem); g->gcstopem = 1; switch (g->gcstate) { case GCSpause: { restartcollection(g); g->gcstate = GCSpropagate; work = 1; break; } case GCSpropagate: { if (fast || g->gray == NULL) { g->gcstate = GCSenteratomic; work = 0; } else { propagatemark(g); work = 1; } break; } case GCSenteratomic: { work = atomic(L); if (checkmajorminor(L, g)) entersweep(L); break; } case GCSswpallgc: { sweepstep(L, g, GCSswpfinobj, &g->finobj, fast); work = GCSWEEPMAX; break; } case GCSswpfinobj: { sweepstep(L, g, GCSswptobefnz, &g->tobefnz, fast); work = GCSWEEPMAX; break; } case GCSswptobefnz: { sweepstep(L, g, GCSswpend, NULL, fast); work = GCSWEEPMAX; break; } case GCSswpend: { checkSizes(L, g); g->gcstate = GCScallfin; work = 0; break; } case GCScallfin: { if (g->tobefnz && !g->gcemergency) { g->gcstopem = 0; GCTM(L); work = 1; } else { g->gcstate = GCSpause; work = 0; } break; } default: lua_assert(0); return 0; } g->gcstopem = 0; return work; } void luaC_runtilstate (lua_State *L, int state, int fast) { global_State *g = G(L); lua_assert(g->gckind == KGC_INC); while (state != g->gcstate) singlestep(L, fast); } static void incstep (lua_State *L, global_State *g) { l_obj stepsize = applygcparam(g, STEPSIZE, 100); l_obj work2do = applygcparam(g, STEPMUL, stepsize); int fast = 0; if (work2do == 0) { work2do = MAX_LOBJ; fast = 1; } do { l_obj work = singlestep(L, fast); if (g->gckind == KGC_GENMINOR) return; work2do -= work; } while (work2do > 0 && g->gcstate != GCSpause); if (g->gcstate == GCSpause) setpause(g); else luaE_setdebt(g, stepsize); } void luaC_step (lua_State *L) { global_State *g = G(L); lua_assert(!g->gcemergency); if (!gcrunning(g)) luaE_setdebt(g, 2000); else { switch (g->gckind) { case KGC_INC: case KGC_GENMAJOR: incstep(L, g); break; case KGC_GENMINOR: youngcollection(L, g); setminordebt(g); break; } } } static void fullinc (lua_State *L, global_State *g) { if (keepinvariant(g)) entersweep(L); luaC_runtilstate(L, GCSpause, 1); luaC_runtilstate(L, GCScallfin, 1); lua_assert(g->marked == gettotalobjs(g)); luaC_runtilstate(L, GCSpause, 1); setpause(g); } void luaC_fullgc (lua_State *L, int isemergency) { global_State *g = G(L); lua_assert(!g->gcemergency); g->gcemergency = isemergency; switch (g->gckind) { case KGC_GENMINOR: fullgen(L, g); break; case KGC_INC: fullinc(L, g); break; case KGC_GENMAJOR: g->gckind = KGC_INC; fullinc(L, g); g->gckind = KGC_GENMAJOR; break; } g->gcemergency = 0; } //path: src/imports/../dependencies/lua/llex.c #define llex_c #define LUA_CORE #include #include //path: src/imports/../dependencies/lua/lparser.h #ifndef lparser_h #define lparser_h typedef enum { VVOID, VNIL, VTRUE, VFALSE, VK, VKFLT, VKINT, VKSTR, VNONRELOC, VLOCAL, VUPVAL, VCONST, VINDEXED, VINDEXUP, VINDEXI, VINDEXSTR, VJMP, VRELOC, VCALL, VVARARG } expkind; #define vkisvar(k) (VLOCAL <= (k) && (k) <= VINDEXSTR) #define vkisindexed(k) (VINDEXED <= (k) && (k) <= VINDEXSTR) typedef struct expdesc { expkind k; union { lua_Integer ival; lua_Number nval; TString *strval; int info; struct { short idx; lu_byte t; } ind; struct { lu_byte ridx; unsigned short vidx; } var; } u; int t; int f; } expdesc; #define VDKREG 0 #define RDKCONST 1 #define RDKTOCLOSE 2 #define RDKCTC 3 typedef union Vardesc { struct { TValuefields; lu_byte kind; lu_byte ridx; short pidx; TString *name; } vd; TValue k; } Vardesc; typedef struct Labeldesc { TString *name; int pc; int line; lu_byte nactvar; lu_byte close; } Labeldesc; typedef struct Labellist { Labeldesc *arr; int n; int size; } Labellist; typedef struct Dyndata { struct { Vardesc *arr; int n; int size; } actvar; Labellist gt; Labellist label; } Dyndata; struct BlockCnt; typedef struct FuncState { Proto *f; struct FuncState *prev; struct LexState *ls; struct BlockCnt *bl; int pc; int lasttarget; int previousline; int nk; int np; int nabslineinfo; int firstlocal; int firstlabel; short ndebugvars; lu_byte nactvar; lu_byte nups; lu_byte freereg; lu_byte iwthabs; lu_byte needclose; } FuncState; LUAI_FUNC int luaY_nvarstack (FuncState *fs); LUAI_FUNC LClosure *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff, Dyndata *dyd, const char *name, int firstchar); #endif #define next(ls) (ls->current = zgetc(ls->z)) #define currIsNewline(ls) (ls->current == '\n' || ls->current == '\r') static const char *const luaX_tokens [] = { "and", "break", "do", "else", "elseif", "end", "false", "for", "function", "goto", "if", "in", "local", "nil", "not", "or", "repeat", "return", "then", "true", "until", "while", "//", "..", "...", "==", ">=", "<=", "~=", "<<", ">>", "::", "", "", "", "", "" }; #define save_and_next(ls) (save(ls, ls->current), next(ls)) static l_noret lexerror (LexState *ls, const char *msg, int token); static void save (LexState *ls, int c) { Mbuffer *b = ls->buff; if (luaZ_bufflen(b) + 1 > luaZ_sizebuffer(b)) { size_t newsize; if (luaZ_sizebuffer(b) >= MAX_SIZE/2) lexerror(ls, "lexical element too long", 0); newsize = luaZ_sizebuffer(b) * 2; luaZ_resizebuffer(ls->L, b, newsize); } b->buffer[luaZ_bufflen(b)++] = cast_char(c); } void luaX_init (lua_State *L) { int i; TString *e = luaS_newliteral(L, LUA_ENV); luaC_fix(L, obj2gco(e)); for (i=0; iextra = cast_byte(i+1); } } const char *luaX_token2str (LexState *ls, int token) { if (token < FIRST_RESERVED) { if (lisprint(token)) return luaO_pushfstring(ls->L, "'%c'", token); else return luaO_pushfstring(ls->L, "'<\\%d>'", token); } else { const char *s = luaX_tokens[token - FIRST_RESERVED]; if (token < TK_EOS) return luaO_pushfstring(ls->L, "'%s'", s); else return s; } } static const char *txtToken (LexState *ls, int token) { switch (token) { case TK_NAME: case TK_STRING: case TK_FLT: case TK_INT: save(ls, '\0'); return luaO_pushfstring(ls->L, "'%s'", luaZ_buffer(ls->buff)); default: return luaX_token2str(ls, token); } } static l_noret lexerror (LexState *ls, const char *msg, int token) { msg = luaG_addinfo(ls->L, msg, ls->source, ls->linenumber); if (token) luaO_pushfstring(ls->L, "%s near %s", msg, txtToken(ls, token)); luaD_throw(ls->L, LUA_ERRSYNTAX); } l_noret luaX_syntaxerror (LexState *ls, const char *msg) { lexerror(ls, msg, ls->t.token); } TString *luaX_newstring (LexState *ls, const char *str, size_t l) { lua_State *L = ls->L; TString *ts = luaS_newlstr(L, str, l); TString *oldts = luaH_getstrkey(ls->h, ts); if (oldts != NULL) return oldts; else { TValue *stv = s2v(L->top.p++); setsvalue(L, stv, ts); luaH_set(L, ls->h, stv, stv); luaC_checkGC(L); L->top.p--; } return ts; } static void inclinenumber (LexState *ls) { int old = ls->current; lua_assert(currIsNewline(ls)); next(ls); if (currIsNewline(ls) && ls->current != old) next(ls); if (++ls->linenumber >= MAX_INT) lexerror(ls, "chunk has too many lines", 0); } void luaX_setinput (lua_State *L, LexState *ls, ZIO *z, TString *source, int firstchar) { ls->t.token = 0; ls->L = L; ls->current = firstchar; ls->lookahead.token = TK_EOS; ls->z = z; ls->fs = NULL; ls->linenumber = 1; ls->lastline = 1; ls->source = source; ls->envn = luaS_newliteral(L, LUA_ENV); luaZ_resizebuffer(ls->L, ls->buff, LUA_MINBUFFER); } static int check_next1 (LexState *ls, int c) { if (ls->current == c) { next(ls); return 1; } else return 0; } static int check_next2 (LexState *ls, const char *set) { lua_assert(set[2] == '\0'); if (ls->current == set[0] || ls->current == set[1]) { save_and_next(ls); return 1; } else return 0; } static int read_numeral (LexState *ls, SemInfo *seminfo) { TValue obj; const char *expo = "Ee"; int first = ls->current; lua_assert(lisdigit(ls->current)); save_and_next(ls); if (first == '0' && check_next2(ls, "xX")) expo = "Pp"; for (;;) { if (check_next2(ls, expo)) check_next2(ls, "-+"); else if (lisxdigit(ls->current) || ls->current == '.') save_and_next(ls); else break; } if (lislalpha(ls->current)) save_and_next(ls); save(ls, '\0'); if (luaO_str2num(luaZ_buffer(ls->buff), &obj) == 0) lexerror(ls, "malformed number", TK_FLT); if (ttisinteger(&obj)) { seminfo->i = ivalue(&obj); return TK_INT; } else { lua_assert(ttisfloat(&obj)); seminfo->r = fltvalue(&obj); return TK_FLT; } } static size_t skip_sep (LexState *ls) { size_t count = 0; int s = ls->current; lua_assert(s == '[' || s == ']'); save_and_next(ls); while (ls->current == '=') { save_and_next(ls); count++; } return (ls->current == s) ? count + 2 : (count == 0) ? 1 : 0; } static void read_long_string (LexState *ls, SemInfo *seminfo, size_t sep) { int line = ls->linenumber; save_and_next(ls); if (currIsNewline(ls)) inclinenumber(ls); for (;;) { switch (ls->current) { case EOZ: { const char *what = (seminfo ? "string" : "comment"); const char *msg = luaO_pushfstring(ls->L, "unfinished long %s (starting at line %d)", what, line); lexerror(ls, msg, TK_EOS); break; } case ']': { if (skip_sep(ls) == sep) { save_and_next(ls); goto endloop; } break; } case '\n': case '\r': { save(ls, '\n'); inclinenumber(ls); if (!seminfo) luaZ_resetbuffer(ls->buff); break; } default: { if (seminfo) save_and_next(ls); else next(ls); } } } endloop: if (seminfo) seminfo->ts = luaX_newstring(ls, luaZ_buffer(ls->buff) + sep, luaZ_bufflen(ls->buff) - 2 * sep); } static void esccheck (LexState *ls, int c, const char *msg) { if (!c) { if (ls->current != EOZ) save_and_next(ls); lexerror(ls, msg, TK_STRING); } } static int gethexa (LexState *ls) { save_and_next(ls); esccheck (ls, lisxdigit(ls->current), "hexadecimal digit expected"); return luaO_hexavalue(ls->current); } static int readhexaesc (LexState *ls) { int r = gethexa(ls); r = (r << 4) + gethexa(ls); luaZ_buffremove(ls->buff, 2); return r; } static unsigned long readutf8esc (LexState *ls) { unsigned long r; int i = 4; save_and_next(ls); esccheck(ls, ls->current == '{', "missing '{'"); r = gethexa(ls); while (cast_void(save_and_next(ls)), lisxdigit(ls->current)) { i++; esccheck(ls, r <= (0x7FFFFFFFu >> 4), "UTF-8 value too large"); r = (r << 4) + luaO_hexavalue(ls->current); } esccheck(ls, ls->current == '}', "missing '}'"); next(ls); luaZ_buffremove(ls->buff, i); return r; } static void utf8esc (LexState *ls) { char buff[UTF8BUFFSZ]; int n = luaO_utf8esc(buff, readutf8esc(ls)); for (; n > 0; n--) save(ls, buff[UTF8BUFFSZ - n]); } static int readdecesc (LexState *ls) { int i; int r = 0; for (i = 0; i < 3 && lisdigit(ls->current); i++) { r = 10*r + ls->current - '0'; save_and_next(ls); } esccheck(ls, r <= UCHAR_MAX, "decimal escape too large"); luaZ_buffremove(ls->buff, i); return r; } static void read_string (LexState *ls, int del, SemInfo *seminfo) { save_and_next(ls); while (ls->current != del) { switch (ls->current) { case EOZ: lexerror(ls, "unfinished string", TK_EOS); break; case '\n': case '\r': lexerror(ls, "unfinished string", TK_STRING); break; case '\\': { int c; save_and_next(ls); switch (ls->current) { case 'a': c = '\a'; goto read_save; case 'b': c = '\b'; goto read_save; case 'f': c = '\f'; goto read_save; case 'n': c = '\n'; goto read_save; case 'r': c = '\r'; goto read_save; case 't': c = '\t'; goto read_save; case 'v': c = '\v'; goto read_save; case 'x': c = readhexaesc(ls); goto read_save; case 'u': utf8esc(ls); goto no_save; case '\n': case '\r': inclinenumber(ls); c = '\n'; goto only_save; case '\\': case '\"': case '\'': c = ls->current; goto read_save; case EOZ: goto no_save; /* will raise an error next loop */ case 'z': { /* zap following span of spaces */ luaZ_buffremove(ls->buff, 1); /* remove '\\' */ next(ls); /* skip the 'z' */ while (lisspace(ls->current)) { if (currIsNewline(ls)) inclinenumber(ls); else next(ls); } goto no_save; } default: { esccheck(ls, lisdigit(ls->current), "invalid escape sequence"); c = readdecesc(ls); /* digital escape '\ddd' */ goto only_save; } } read_save: next(ls); /* go through */ only_save: luaZ_buffremove(ls->buff, 1); /* remove '\\' */ save(ls, c); /* go through */ no_save: break; } default: save_and_next(ls); } } save_and_next(ls); /* skip delimiter */ seminfo->ts = luaX_newstring(ls, luaZ_buffer(ls->buff) + 1, luaZ_bufflen(ls->buff) - 2); } static int llex (LexState *ls, SemInfo *seminfo) { luaZ_resetbuffer(ls->buff); for (;;) { switch (ls->current) { case '\n': case '\r': { /* line breaks */ inclinenumber(ls); break; } case ' ': case '\f': case '\t': case '\v': { /* spaces */ next(ls); break; } case '-': { /* '-' or '--' (comment) */ next(ls); if (ls->current != '-') return '-'; /* else is a comment */ next(ls); if (ls->current == '[') { /* long comment? */ size_t sep = skip_sep(ls); luaZ_resetbuffer(ls->buff); /* 'skip_sep' may dirty the buffer */ if (sep >= 2) { read_long_string(ls, NULL, sep); /* skip long comment */ luaZ_resetbuffer(ls->buff); /* previous call may dirty the buff. */ break; } } /* else short comment */ while (!currIsNewline(ls) && ls->current != EOZ) next(ls); /* skip until end of line (or end of file) */ break; } case '[': { /* long string or simply '[' */ size_t sep = skip_sep(ls); if (sep >= 2) { read_long_string(ls, seminfo, sep); return TK_STRING; } else if (sep == 0) /* '[=...' missing second bracket? */ lexerror(ls, "invalid long string delimiter", TK_STRING); return '['; } case '=': { next(ls); if (check_next1(ls, '=')) return TK_EQ; /* '==' */ else return '='; } case '<': { next(ls); if (check_next1(ls, '=')) return TK_LE; /* '<=' */ else if (check_next1(ls, '<')) return TK_SHL; /* '<<' */ else return '<'; } case '>': { next(ls); if (check_next1(ls, '=')) return TK_GE; /* '>=' */ else if (check_next1(ls, '>')) return TK_SHR; /* '>>' */ else return '>'; } case '/': { next(ls); if (check_next1(ls, '/')) return TK_IDIV; /* '//' */ else return '/'; } case '~': { next(ls); if (check_next1(ls, '=')) return TK_NE; /* '~=' */ else return '~'; } case ':': { next(ls); if (check_next1(ls, ':')) return TK_DBCOLON; /* '::' */ else return ':'; } case '"': case '\'': { read_string(ls, ls->current, seminfo); return TK_STRING; } case '.': { save_and_next(ls); if (check_next1(ls, '.')) { if (check_next1(ls, '.')) return TK_DOTS; else return TK_CONCAT; } else if (!lisdigit(ls->current)) return '.'; else return read_numeral(ls, seminfo); } case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': { return read_numeral(ls, seminfo); } case EOZ: { return TK_EOS; } default: { if (lislalpha(ls->current)) { TString *ts; do { save_and_next(ls); } while (lislalnum(ls->current)); ts = luaX_newstring(ls, luaZ_buffer(ls->buff), luaZ_bufflen(ls->buff)); seminfo->ts = ts; if (isreserved(ts)) return ts->extra - 1 + FIRST_RESERVED; else { return TK_NAME; } } else { int c = ls->current; next(ls); return c; } } } } } void luaX_next (LexState *ls) { ls->lastline = ls->linenumber; if (ls->lookahead.token != TK_EOS) { ls->t = ls->lookahead; ls->lookahead.token = TK_EOS; } else ls->t.token = llex(ls, &ls->t.seminfo); } int luaX_lookahead (LexState *ls) { lua_assert(ls->lookahead.token == TK_EOS); ls->lookahead.token = llex(ls, &ls->lookahead.seminfo); return ls->lookahead.token; } //path: src/imports/../dependencies/lua/lcode.c #define lcode_c #define LUA_CORE #include #include #include //path: src/imports/../dependencies/lua/lcode.h #ifndef lcode_h #define lcode_h #define NO_JUMP (-1) typedef enum BinOpr { OPR_ADD, OPR_SUB, OPR_MUL, OPR_MOD, OPR_POW, OPR_DIV, OPR_IDIV, OPR_BAND, OPR_BOR, OPR_BXOR, OPR_SHL, OPR_SHR, OPR_CONCAT, OPR_EQ, OPR_LT, OPR_LE, OPR_NE, OPR_GT, OPR_GE, OPR_AND, OPR_OR, OPR_NOBINOPR } BinOpr; #define foldbinop(op) ((op) <= OPR_SHR) #define luaK_codeABC(fs,o,a,b,c) luaK_codeABCk(fs,o,a,b,c,0) typedef enum UnOpr { OPR_MINUS, OPR_BNOT, OPR_NOT, OPR_LEN, OPR_NOUNOPR } UnOpr; #define getinstruction(fs,e) ((fs)->f->code[(e)->u.info]) #define luaK_setmultret(fs,e) luaK_setreturns(fs, e, LUA_MULTRET) #define luaK_jumpto(fs,t) luaK_patchlist(fs, luaK_jump(fs), t) LUAI_FUNC int luaK_code (FuncState *fs, Instruction i); LUAI_FUNC int luaK_codeABx (FuncState *fs, OpCode o, int A, unsigned Bx); LUAI_FUNC int luaK_codeABCk (FuncState *fs, OpCode o, int A, int B, int C, int k); LUAI_FUNC int luaK_exp2const (FuncState *fs, const expdesc *e, TValue *v); LUAI_FUNC void luaK_fixline (FuncState *fs, int line); LUAI_FUNC void luaK_nil (FuncState *fs, int from, int n); LUAI_FUNC void luaK_reserveregs (FuncState *fs, int n); LUAI_FUNC void luaK_checkstack (FuncState *fs, int n); LUAI_FUNC void luaK_int (FuncState *fs, int reg, lua_Integer n); LUAI_FUNC void luaK_dischargevars (FuncState *fs, expdesc *e); LUAI_FUNC int luaK_exp2anyreg (FuncState *fs, expdesc *e); LUAI_FUNC void luaK_exp2anyregup (FuncState *fs, expdesc *e); LUAI_FUNC void luaK_exp2nextreg (FuncState *fs, expdesc *e); LUAI_FUNC void luaK_exp2val (FuncState *fs, expdesc *e); LUAI_FUNC void luaK_self (FuncState *fs, expdesc *e, expdesc *key); LUAI_FUNC void luaK_indexed (FuncState *fs, expdesc *t, expdesc *k); LUAI_FUNC void luaK_goiftrue (FuncState *fs, expdesc *e); LUAI_FUNC void luaK_goiffalse (FuncState *fs, expdesc *e); LUAI_FUNC void luaK_storevar (FuncState *fs, expdesc *var, expdesc *e); LUAI_FUNC void luaK_setreturns (FuncState *fs, expdesc *e, int nresults); LUAI_FUNC void luaK_setoneret (FuncState *fs, expdesc *e); LUAI_FUNC int luaK_jump (FuncState *fs); LUAI_FUNC void luaK_ret (FuncState *fs, int first, int nret); LUAI_FUNC void luaK_patchlist (FuncState *fs, int list, int target); LUAI_FUNC void luaK_patchtohere (FuncState *fs, int list); LUAI_FUNC void luaK_concat (FuncState *fs, int *l1, int l2); LUAI_FUNC int luaK_getlabel (FuncState *fs); LUAI_FUNC void luaK_prefix (FuncState *fs, UnOpr op, expdesc *v, int line); LUAI_FUNC void luaK_infix (FuncState *fs, BinOpr op, expdesc *v); LUAI_FUNC void luaK_posfix (FuncState *fs, BinOpr op, expdesc *v1, expdesc *v2, int line); LUAI_FUNC void luaK_settablesize (FuncState *fs, int pc, int ra, int asize, int hsize); LUAI_FUNC void luaK_setlist (FuncState *fs, int base, int nelems, int tostore); LUAI_FUNC void luaK_finish (FuncState *fs); LUAI_FUNC l_noret luaK_semerror (LexState *ls, const char *msg); #endif //path: src/imports/../dependencies/lua/lvm.h #ifndef lvm_h #define lvm_h #if !defined(LUA_NOCVTN2S) #define cvt2str(o) ttisnumber(o) #else #define cvt2str(o) 0 #endif #if !defined(LUA_NOCVTS2N) #define cvt2num(o) ttisstring(o) #else #define cvt2num(o) 0 #endif #if !defined(LUA_FLOORN2I) #define LUA_FLOORN2I F2Ieq #endif typedef enum { F2Ieq, F2Ifloor, F2Iceil } F2Imod; #define tonumber(o,n) \ (ttisfloat(o) ? (*(n) = fltvalue(o), 1) : luaV_tonumber_(o,n)) #define tonumberns(o,n) \ (ttisfloat(o) ? ((n) = fltvalue(o), 1) : \ (ttisinteger(o) ? ((n) = cast_num(ivalue(o)), 1) : 0)) #define tointeger(o,i) \ (l_likely(ttisinteger(o)) ? (*(i) = ivalue(o), 1) \ : luaV_tointeger(o,i,LUA_FLOORN2I)) #define tointegerns(o,i) \ (l_likely(ttisinteger(o)) ? (*(i) = ivalue(o), 1) \ : luaV_tointegerns(o,i,LUA_FLOORN2I)) #define intop(op,v1,v2) l_castU2S(l_castS2U(v1) op l_castS2U(v2)) #define luaV_rawequalobj(t1,t2) luaV_equalobj(NULL,t1,t2) #define luaV_fastget(t,k,res,f, tag) \ (tag = (!ttistable(t) ? LUA_VNOTABLE : f(hvalue(t), k, res))) #define luaV_fastgeti(t,k,res,tag) \ if (!ttistable(t)) tag = LUA_VNOTABLE; \ else { luaH_fastgeti(hvalue(t), k, res, tag); } #define luaV_fastset(t,k,val,hres,f) \ (hres = (!ttistable(t) ? HNOTATABLE : f(hvalue(t), k, val))) #define luaV_fastseti(t,k,val,hres) \ if (!ttistable(t)) hres = HNOTATABLE; \ else { luaH_fastseti(hvalue(t), k, val, hres); } #define luaV_finishfastset(L,t,v) luaC_barrierback(L, gcvalue(t), v) #define luaV_shiftr(x,y) luaV_shiftl(x,intop(-, 0, y)) LUAI_FUNC int luaV_equalobj (lua_State *L, const TValue *t1, const TValue *t2); LUAI_FUNC int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r); LUAI_FUNC int luaV_lessequal (lua_State *L, const TValue *l, const TValue *r); LUAI_FUNC int luaV_tonumber_ (const TValue *obj, lua_Number *n); LUAI_FUNC int luaV_tointeger (const TValue *obj, lua_Integer *p, F2Imod mode); LUAI_FUNC int luaV_tointegerns (const TValue *obj, lua_Integer *p, F2Imod mode); LUAI_FUNC int luaV_flttointeger (lua_Number n, lua_Integer *p, F2Imod mode); LUAI_FUNC int luaV_finishget (lua_State *L, const TValue *t, TValue *key, StkId val, int tag); LUAI_FUNC void luaV_finishset (lua_State *L, const TValue *t, TValue *key, TValue *val, int aux); LUAI_FUNC void luaV_finishOp (lua_State *L); LUAI_FUNC void luaV_execute (lua_State *L, CallInfo *ci); LUAI_FUNC void luaV_concat (lua_State *L, int total); LUAI_FUNC lua_Integer luaV_idiv (lua_State *L, lua_Integer x, lua_Integer y); LUAI_FUNC lua_Integer luaV_mod (lua_State *L, lua_Integer x, lua_Integer y); LUAI_FUNC lua_Number luaV_modf (lua_State *L, lua_Number x, lua_Number y); LUAI_FUNC lua_Integer luaV_shiftl (lua_Integer x, lua_Integer y); LUAI_FUNC void luaV_objlen (lua_State *L, StkId ra, const TValue *rb); #endif #define MAXREGS 255 #define hasjumps(e) ((e)->t != (e)->f) static int codesJ (FuncState *fs, OpCode o, int sj, int k); l_noret luaK_semerror (LexState *ls, const char *msg) { ls->t.token = 0; luaX_syntaxerror(ls, msg); } static int tonumeral (const expdesc *e, TValue *v) { if (hasjumps(e)) return 0; switch (e->k) { case VKINT: if (v) setivalue(v, e->u.ival); return 1; case VKFLT: if (v) setfltvalue(v, e->u.nval); return 1; default: return 0; } } static TValue *const2val (FuncState *fs, const expdesc *e) { lua_assert(e->k == VCONST); return &fs->ls->dyd->actvar.arr[e->u.info].k; } int luaK_exp2const (FuncState *fs, const expdesc *e, TValue *v) { if (hasjumps(e)) return 0; switch (e->k) { case VFALSE: setbfvalue(v); return 1; case VTRUE: setbtvalue(v); return 1; case VNIL: setnilvalue(v); return 1; case VKSTR: { setsvalue(fs->ls->L, v, e->u.strval); return 1; } case VCONST: { setobj(fs->ls->L, v, const2val(fs, e)); return 1; } default: return tonumeral(e, v); } } static Instruction *previousinstruction (FuncState *fs) { static const Instruction invalidinstruction = ~(Instruction)0; if (fs->pc > fs->lasttarget) return &fs->f->code[fs->pc - 1]; else return cast(Instruction*, &invalidinstruction); } void luaK_nil (FuncState *fs, int from, int n) { int l = from + n - 1; Instruction *previous = previousinstruction(fs); if (GET_OPCODE(*previous) == OP_LOADNIL) { int pfrom = GETARG_A(*previous); int pl = pfrom + GETARG_B(*previous); if ((pfrom <= from && from <= pl + 1) || (from <= pfrom && pfrom <= l + 1)) { if (pfrom < from) from = pfrom; if (pl > l) l = pl; SETARG_A(*previous, from); SETARG_B(*previous, l - from); return; } } luaK_codeABC(fs, OP_LOADNIL, from, n - 1, 0); } static int getjump (FuncState *fs, int pc) { int offset = GETARG_sJ(fs->f->code[pc]); if (offset == NO_JUMP) return NO_JUMP; else return (pc+1)+offset; } static void fixjump (FuncState *fs, int pc, int dest) { Instruction *jmp = &fs->f->code[pc]; int offset = dest - (pc + 1); lua_assert(dest != NO_JUMP); if (!(-OFFSET_sJ <= offset && offset <= MAXARG_sJ - OFFSET_sJ)) luaX_syntaxerror(fs->ls, "control structure too long"); lua_assert(GET_OPCODE(*jmp) == OP_JMP); SETARG_sJ(*jmp, offset); } void luaK_concat (FuncState *fs, int *l1, int l2) { if (l2 == NO_JUMP) return; else if (*l1 == NO_JUMP) *l1 = l2; else { int list = *l1; int next; while ((next = getjump(fs, list)) != NO_JUMP) list = next; fixjump(fs, list, l2); } } int luaK_jump (FuncState *fs) { return codesJ(fs, OP_JMP, NO_JUMP, 0); } void luaK_ret (FuncState *fs, int first, int nret) { OpCode op; switch (nret) { case 0: op = OP_RETURN0; break; case 1: op = OP_RETURN1; break; default: op = OP_RETURN; break; } luaK_codeABC(fs, op, first, nret + 1, 0); } static int condjump (FuncState *fs, OpCode op, int A, int B, int C, int k) { luaK_codeABCk(fs, op, A, B, C, k); return luaK_jump(fs); } int luaK_getlabel (FuncState *fs) { fs->lasttarget = fs->pc; return fs->pc; } static Instruction *getjumpcontrol (FuncState *fs, int pc) { Instruction *pi = &fs->f->code[pc]; if (pc >= 1 && testTMode(GET_OPCODE(*(pi-1)))) return pi-1; else return pi; } static int patchtestreg (FuncState *fs, int node, int reg) { Instruction *i = getjumpcontrol(fs, node); if (GET_OPCODE(*i) != OP_TESTSET) return 0; if (reg != NO_REG && reg != GETARG_B(*i)) SETARG_A(*i, reg); else { *i = CREATE_ABCk(OP_TEST, GETARG_B(*i), 0, 0, GETARG_k(*i)); } return 1; } static void removevalues (FuncState *fs, int list) { for (; list != NO_JUMP; list = getjump(fs, list)) patchtestreg(fs, list, NO_REG); } static void patchlistaux (FuncState *fs, int list, int vtarget, int reg, int dtarget) { while (list != NO_JUMP) { int next = getjump(fs, list); if (patchtestreg(fs, list, reg)) fixjump(fs, list, vtarget); else fixjump(fs, list, dtarget); list = next; } } void luaK_patchlist (FuncState *fs, int list, int target) { lua_assert(target <= fs->pc); patchlistaux(fs, list, target, NO_REG, target); } void luaK_patchtohere (FuncState *fs, int list) { int hr = luaK_getlabel(fs); luaK_patchlist(fs, list, hr); } #define LIMLINEDIFF 0x80 static void savelineinfo (FuncState *fs, Proto *f, int line) { int linedif = line - fs->previousline; int pc = fs->pc - 1; if (abs(linedif) >= LIMLINEDIFF || fs->iwthabs++ >= MAXIWTHABS) { luaM_growvector(fs->ls->L, f->abslineinfo, fs->nabslineinfo, f->sizeabslineinfo, AbsLineInfo, MAX_INT, "lines"); f->abslineinfo[fs->nabslineinfo].pc = pc; f->abslineinfo[fs->nabslineinfo++].line = line; linedif = ABSLINEINFO; fs->iwthabs = 1; } luaM_growvector(fs->ls->L, f->lineinfo, pc, f->sizelineinfo, ls_byte, MAX_INT, "opcodes"); f->lineinfo[pc] = linedif; fs->previousline = line; } static void removelastlineinfo (FuncState *fs) { Proto *f = fs->f; int pc = fs->pc - 1; if (f->lineinfo[pc] != ABSLINEINFO) { fs->previousline -= f->lineinfo[pc]; fs->iwthabs--; } else { lua_assert(f->abslineinfo[fs->nabslineinfo - 1].pc == pc); fs->nabslineinfo--; fs->iwthabs = MAXIWTHABS + 1; } } static void removelastinstruction (FuncState *fs) { removelastlineinfo(fs); fs->pc--; } int luaK_code (FuncState *fs, Instruction i) { Proto *f = fs->f; luaM_growvector(fs->ls->L, f->code, fs->pc, f->sizecode, Instruction, MAX_INT, "opcodes"); f->code[fs->pc++] = i; savelineinfo(fs, f, fs->ls->lastline); return fs->pc - 1; } int luaK_codeABCk (FuncState *fs, OpCode o, int a, int b, int c, int k) { lua_assert(getOpMode(o) == iABC); lua_assert(a <= MAXARG_A && b <= MAXARG_B && c <= MAXARG_C && (k & ~1) == 0); return luaK_code(fs, CREATE_ABCk(o, a, b, c, k)); } int luaK_codeABx (FuncState *fs, OpCode o, int a, unsigned int bc) { lua_assert(getOpMode(o) == iABx); lua_assert(a <= MAXARG_A && bc <= MAXARG_Bx); return luaK_code(fs, CREATE_ABx(o, a, bc)); } static int codeAsBx (FuncState *fs, OpCode o, int a, int bc) { unsigned int b = bc + OFFSET_sBx; lua_assert(getOpMode(o) == iAsBx); lua_assert(a <= MAXARG_A && b <= MAXARG_Bx); return luaK_code(fs, CREATE_ABx(o, a, b)); } static int codesJ (FuncState *fs, OpCode o, int sj, int k) { unsigned int j = sj + OFFSET_sJ; lua_assert(getOpMode(o) == isJ); lua_assert(j <= MAXARG_sJ && (k & ~1) == 0); return luaK_code(fs, CREATE_sJ(o, j, k)); } static int codeextraarg (FuncState *fs, int a) { lua_assert(a <= MAXARG_Ax); return luaK_code(fs, CREATE_Ax(OP_EXTRAARG, a)); } static int luaK_codek (FuncState *fs, int reg, int k) { if (k <= MAXARG_Bx) return luaK_codeABx(fs, OP_LOADK, reg, k); else { int p = luaK_codeABx(fs, OP_LOADKX, reg, 0); codeextraarg(fs, k); return p; } } void luaK_checkstack (FuncState *fs, int n) { int newstack = fs->freereg + n; if (newstack > fs->f->maxstacksize) { if (newstack >= MAXREGS) luaX_syntaxerror(fs->ls, "function or expression needs too many registers"); fs->f->maxstacksize = cast_byte(newstack); } } void luaK_reserveregs (FuncState *fs, int n) { luaK_checkstack(fs, n); fs->freereg += n; } static void freereg (FuncState *fs, int reg) { if (reg >= luaY_nvarstack(fs)) { fs->freereg--; lua_assert(reg == fs->freereg); } } static void freeregs (FuncState *fs, int r1, int r2) { if (r1 > r2) { freereg(fs, r1); freereg(fs, r2); } else { freereg(fs, r2); freereg(fs, r1); } } static void freeexp (FuncState *fs, expdesc *e) { if (e->k == VNONRELOC) freereg(fs, e->u.info); } static void freeexps (FuncState *fs, expdesc *e1, expdesc *e2) { int r1 = (e1->k == VNONRELOC) ? e1->u.info : -1; int r2 = (e2->k == VNONRELOC) ? e2->u.info : -1; freeregs(fs, r1, r2); } static int addk (FuncState *fs, TValue *key, TValue *v) { TValue val; lua_State *L = fs->ls->L; Proto *f = fs->f; int tag = luaH_get(fs->ls->h, key, &val); int k, oldsize; if (tag == LUA_VNUMINT) { k = cast_int(ivalue(&val)); if (k < fs->nk && ttypetag(&f->k[k]) == ttypetag(v) && luaV_rawequalobj(&f->k[k], v)) return k; } oldsize = f->sizek; k = fs->nk; setivalue(&val, k); luaH_set(L, fs->ls->h, key, &val); luaM_growvector(L, f->k, k, f->sizek, TValue, MAXARG_Ax, "constants"); while (oldsize < f->sizek) setnilvalue(&f->k[oldsize++]); setobj(L, &f->k[k], v); fs->nk++; luaC_barrier(L, f, v); return k; } static int stringK (FuncState *fs, TString *s) { TValue o; setsvalue(fs->ls->L, &o, s); return addk(fs, &o, &o); } static int luaK_intK (FuncState *fs, lua_Integer n) { TValue o; setivalue(&o, n); return addk(fs, &o, &o); } static int luaK_numberK (FuncState *fs, lua_Number r) { TValue o; lua_Integer ik; setfltvalue(&o, r); if (!luaV_flttointeger(r, &ik, F2Ieq)) return addk(fs, &o, &o); else { const int nbm = l_floatatt(MANT_DIG); const lua_Number q = l_mathop(private_lua_cembed_ldexp)(l_mathop(1.0), -nbm + 1); const lua_Number k = (ik == 0) ? q : r + r*q; TValue kv; setfltvalue(&kv, k); lua_assert(!luaV_flttointeger(k, &ik, F2Ieq) || l_mathop(fabs)(r) >= l_mathop(1e6)); return addk(fs, &kv, &o); } } static int boolF (FuncState *fs) { TValue o; setbfvalue(&o); return addk(fs, &o, &o); } static int boolT (FuncState *fs) { TValue o; setbtvalue(&o); return addk(fs, &o, &o); } static int nilK (FuncState *fs) { TValue k, v; setnilvalue(&v); sethvalue(fs->ls->L, &k, fs->ls->h); return addk(fs, &k, &v); } static int fitsC (lua_Integer i) { return (l_castS2U(i) + OFFSET_sC <= cast_uint(MAXARG_C)); } static int fitsBx (lua_Integer i) { return (-OFFSET_sBx <= i && i <= MAXARG_Bx - OFFSET_sBx); } void luaK_int (FuncState *fs, int reg, lua_Integer i) { if (fitsBx(i)) codeAsBx(fs, OP_LOADI, reg, cast_int(i)); else luaK_codek(fs, reg, luaK_intK(fs, i)); } static void luaK_float (FuncState *fs, int reg, lua_Number f) { lua_Integer fi; if (luaV_flttointeger(f, &fi, F2Ieq) && fitsBx(fi)) codeAsBx(fs, OP_LOADF, reg, cast_int(fi)); else luaK_codek(fs, reg, luaK_numberK(fs, f)); } static void const2exp (TValue *v, expdesc *e) { switch (ttypetag(v)) { case LUA_VNUMINT: e->k = VKINT; e->u.ival = ivalue(v); break; case LUA_VNUMFLT: e->k = VKFLT; e->u.nval = fltvalue(v); break; case LUA_VFALSE: e->k = VFALSE; break; case LUA_VTRUE: e->k = VTRUE; break; case LUA_VNIL: e->k = VNIL; break; case LUA_VSHRSTR: case LUA_VLNGSTR: e->k = VKSTR; e->u.strval = tsvalue(v); break; default: lua_assert(0); } } void luaK_setreturns (FuncState *fs, expdesc *e, int nresults) { Instruction *pc = &getinstruction(fs, e); if (e->k == VCALL) SETARG_C(*pc, nresults + 1); else { lua_assert(e->k == VVARARG); SETARG_C(*pc, nresults + 1); SETARG_A(*pc, fs->freereg); luaK_reserveregs(fs, 1); } } static void str2K (FuncState *fs, expdesc *e) { lua_assert(e->k == VKSTR); e->u.info = stringK(fs, e->u.strval); e->k = VK; } void luaK_setoneret (FuncState *fs, expdesc *e) { if (e->k == VCALL) { lua_assert(GETARG_C(getinstruction(fs, e)) == 2); e->k = VNONRELOC; e->u.info = GETARG_A(getinstruction(fs, e)); } else if (e->k == VVARARG) { SETARG_C(getinstruction(fs, e), 2); e->k = VRELOC; } } void luaK_dischargevars (FuncState *fs, expdesc *e) { switch (e->k) { case VCONST: { const2exp(const2val(fs, e), e); break; } case VLOCAL: { e->u.info = e->u.var.ridx; e->k = VNONRELOC; break; } case VUPVAL: { e->u.info = luaK_codeABC(fs, OP_GETUPVAL, 0, e->u.info, 0); e->k = VRELOC; break; } case VINDEXUP: { e->u.info = luaK_codeABC(fs, OP_GETTABUP, 0, e->u.ind.t, e->u.ind.idx); e->k = VRELOC; break; } case VINDEXI: { freereg(fs, e->u.ind.t); e->u.info = luaK_codeABC(fs, OP_GETI, 0, e->u.ind.t, e->u.ind.idx); e->k = VRELOC; break; } case VINDEXSTR: { freereg(fs, e->u.ind.t); e->u.info = luaK_codeABC(fs, OP_GETFIELD, 0, e->u.ind.t, e->u.ind.idx); e->k = VRELOC; break; } case VINDEXED: { freeregs(fs, e->u.ind.t, e->u.ind.idx); e->u.info = luaK_codeABC(fs, OP_GETTABLE, 0, e->u.ind.t, e->u.ind.idx); e->k = VRELOC; break; } case VVARARG: case VCALL: { luaK_setoneret(fs, e); break; } default: break; } } static void discharge2reg (FuncState *fs, expdesc *e, int reg) { luaK_dischargevars(fs, e); switch (e->k) { case VNIL: { luaK_nil(fs, reg, 1); break; } case VFALSE: { luaK_codeABC(fs, OP_LOADFALSE, reg, 0, 0); break; } case VTRUE: { luaK_codeABC(fs, OP_LOADTRUE, reg, 0, 0); break; } case VKSTR: { str2K(fs, e); } case VK: { luaK_codek(fs, reg, e->u.info); break; } case VKFLT: { luaK_float(fs, reg, e->u.nval); break; } case VKINT: { luaK_int(fs, reg, e->u.ival); break; } case VRELOC: { Instruction *pc = &getinstruction(fs, e); SETARG_A(*pc, reg); break; } case VNONRELOC: { if (reg != e->u.info) luaK_codeABC(fs, OP_MOVE, reg, e->u.info, 0); break; } default: { lua_assert(e->k == VJMP); return; } } e->u.info = reg; e->k = VNONRELOC; } static void discharge2anyreg (FuncState *fs, expdesc *e) { if (e->k != VNONRELOC) { luaK_reserveregs(fs, 1); discharge2reg(fs, e, fs->freereg-1); } } static int code_loadbool (FuncState *fs, int A, OpCode op) { luaK_getlabel(fs); return luaK_codeABC(fs, op, A, 0, 0); } static int need_value (FuncState *fs, int list) { for (; list != NO_JUMP; list = getjump(fs, list)) { Instruction i = *getjumpcontrol(fs, list); if (GET_OPCODE(i) != OP_TESTSET) return 1; } return 0; } static void exp2reg (FuncState *fs, expdesc *e, int reg) { discharge2reg(fs, e, reg); if (e->k == VJMP) luaK_concat(fs, &e->t, e->u.info); if (hasjumps(e)) { int final; int p_f = NO_JUMP; int p_t = NO_JUMP; if (need_value(fs, e->t) || need_value(fs, e->f)) { int fj = (e->k == VJMP) ? NO_JUMP : luaK_jump(fs); p_f = code_loadbool(fs, reg, OP_LFALSESKIP); p_t = code_loadbool(fs, reg, OP_LOADTRUE); luaK_patchtohere(fs, fj); } final = luaK_getlabel(fs); patchlistaux(fs, e->f, final, reg, p_f); patchlistaux(fs, e->t, final, reg, p_t); } e->f = e->t = NO_JUMP; e->u.info = reg; e->k = VNONRELOC; } void luaK_exp2nextreg (FuncState *fs, expdesc *e) { luaK_dischargevars(fs, e); freeexp(fs, e); luaK_reserveregs(fs, 1); exp2reg(fs, e, fs->freereg - 1); } int luaK_exp2anyreg (FuncState *fs, expdesc *e) { luaK_dischargevars(fs, e); if (e->k == VNONRELOC) { if (!hasjumps(e)) return e->u.info; if (e->u.info >= luaY_nvarstack(fs)) { exp2reg(fs, e, e->u.info); return e->u.info; } } luaK_exp2nextreg(fs, e); return e->u.info; } void luaK_exp2anyregup (FuncState *fs, expdesc *e) { if (e->k != VUPVAL || hasjumps(e)) luaK_exp2anyreg(fs, e); } void luaK_exp2val (FuncState *fs, expdesc *e) { if (hasjumps(e)) luaK_exp2anyreg(fs, e); else luaK_dischargevars(fs, e); } static int luaK_exp2K (FuncState *fs, expdesc *e) { if (!hasjumps(e)) { int info; switch (e->k) { case VTRUE: info = boolT(fs); break; case VFALSE: info = boolF(fs); break; case VNIL: info = nilK(fs); break; case VKINT: info = luaK_intK(fs, e->u.ival); break; case VKFLT: info = luaK_numberK(fs, e->u.nval); break; case VKSTR: info = stringK(fs, e->u.strval); break; case VK: info = e->u.info; break; default: return 0; } if (info <= MAXINDEXRK) { e->k = VK; e->u.info = info; return 1; } } return 0; } static int exp2RK (FuncState *fs, expdesc *e) { if (luaK_exp2K(fs, e)) return 1; else { luaK_exp2anyreg(fs, e); return 0; } } static void codeABRK (FuncState *fs, OpCode o, int a, int b, expdesc *ec) { int k = exp2RK(fs, ec); luaK_codeABCk(fs, o, a, b, ec->u.info, k); } void luaK_storevar (FuncState *fs, expdesc *var, expdesc *ex) { switch (var->k) { case VLOCAL: { freeexp(fs, ex); exp2reg(fs, ex, var->u.var.ridx); return; } case VUPVAL: { int e = luaK_exp2anyreg(fs, ex); luaK_codeABC(fs, OP_SETUPVAL, e, var->u.info, 0); break; } case VINDEXUP: { codeABRK(fs, OP_SETTABUP, var->u.ind.t, var->u.ind.idx, ex); break; } case VINDEXI: { codeABRK(fs, OP_SETI, var->u.ind.t, var->u.ind.idx, ex); break; } case VINDEXSTR: { codeABRK(fs, OP_SETFIELD, var->u.ind.t, var->u.ind.idx, ex); break; } case VINDEXED: { codeABRK(fs, OP_SETTABLE, var->u.ind.t, var->u.ind.idx, ex); break; } default: lua_assert(0); } freeexp(fs, ex); } void luaK_self (FuncState *fs, expdesc *e, expdesc *key) { int ereg; luaK_exp2anyreg(fs, e); ereg = e->u.info; freeexp(fs, e); e->u.info = fs->freereg; e->k = VNONRELOC; luaK_reserveregs(fs, 2); codeABRK(fs, OP_SELF, e->u.info, ereg, key); freeexp(fs, key); } static void negatecondition (FuncState *fs, expdesc *e) { Instruction *pc = getjumpcontrol(fs, e->u.info); lua_assert(testTMode(GET_OPCODE(*pc)) && GET_OPCODE(*pc) != OP_TESTSET && GET_OPCODE(*pc) != OP_TEST); SETARG_k(*pc, (GETARG_k(*pc) ^ 1)); } static int jumponcond (FuncState *fs, expdesc *e, int cond) { if (e->k == VRELOC) { Instruction ie = getinstruction(fs, e); if (GET_OPCODE(ie) == OP_NOT) { removelastinstruction(fs); return condjump(fs, OP_TEST, GETARG_B(ie), 0, 0, !cond); } } discharge2anyreg(fs, e); freeexp(fs, e); return condjump(fs, OP_TESTSET, NO_REG, e->u.info, 0, cond); } void luaK_goiftrue (FuncState *fs, expdesc *e) { int pc; luaK_dischargevars(fs, e); switch (e->k) { case VJMP: { negatecondition(fs, e); pc = e->u.info; break; } case VK: case VKFLT: case VKINT: case VKSTR: case VTRUE: { pc = NO_JUMP; break; } default: { pc = jumponcond(fs, e, 0); break; } } luaK_concat(fs, &e->f, pc); luaK_patchtohere(fs, e->t); e->t = NO_JUMP; } void luaK_goiffalse (FuncState *fs, expdesc *e) { int pc; luaK_dischargevars(fs, e); switch (e->k) { case VJMP: { pc = e->u.info; break; } case VNIL: case VFALSE: { pc = NO_JUMP; break; } default: { pc = jumponcond(fs, e, 1); break; } } luaK_concat(fs, &e->t, pc); luaK_patchtohere(fs, e->f); e->f = NO_JUMP; } static void codenot (FuncState *fs, expdesc *e) { switch (e->k) { case VNIL: case VFALSE: { e->k = VTRUE; break; } case VK: case VKFLT: case VKINT: case VKSTR: case VTRUE: { e->k = VFALSE; break; } case VJMP: { negatecondition(fs, e); break; } case VRELOC: case VNONRELOC: { discharge2anyreg(fs, e); freeexp(fs, e); e->u.info = luaK_codeABC(fs, OP_NOT, 0, e->u.info, 0); e->k = VRELOC; break; } default: lua_assert(0); } { int temp = e->f; e->f = e->t; e->t = temp; } removevalues(fs, e->f); removevalues(fs, e->t); } static int isKstr (FuncState *fs, expdesc *e) { return (e->k == VK && !hasjumps(e) && e->u.info <= MAXARG_B && ttisshrstring(&fs->f->k[e->u.info])); } static int isKint (expdesc *e) { return (e->k == VKINT && !hasjumps(e)); } static int isCint (expdesc *e) { return isKint(e) && (l_castS2U(e->u.ival) <= l_castS2U(MAXARG_C)); } static int isSCint (expdesc *e) { return isKint(e) && fitsC(e->u.ival); } static int isSCnumber (expdesc *e, int *pi, int *isfloat) { lua_Integer i; if (e->k == VKINT) i = e->u.ival; else if (e->k == VKFLT && luaV_flttointeger(e->u.nval, &i, F2Ieq)) *isfloat = 1; else return 0; if (!hasjumps(e) && fitsC(i)) { *pi = int2sC(cast_int(i)); return 1; } else return 0; } void luaK_indexed (FuncState *fs, expdesc *t, expdesc *k) { if (k->k == VKSTR) str2K(fs, k); lua_assert(!hasjumps(t) && (t->k == VLOCAL || t->k == VNONRELOC || t->k == VUPVAL)); if (t->k == VUPVAL && !isKstr(fs, k)) luaK_exp2anyreg(fs, t); if (t->k == VUPVAL) { lua_assert(isKstr(fs, k)); t->u.ind.t = t->u.info; t->u.ind.idx = k->u.info; t->k = VINDEXUP; } else { t->u.ind.t = (t->k == VLOCAL) ? t->u.var.ridx: t->u.info; if (isKstr(fs, k)) { t->u.ind.idx = k->u.info; t->k = VINDEXSTR; } else if (isCint(k)) { t->u.ind.idx = cast_int(k->u.ival); t->k = VINDEXI; } else { t->u.ind.idx = luaK_exp2anyreg(fs, k); t->k = VINDEXED; } } } static int validop (int op, TValue *v1, TValue *v2) { switch (op) { case LUA_OPBAND: case LUA_OPBOR: case LUA_OPBXOR: case LUA_OPSHL: case LUA_OPSHR: case LUA_OPBNOT: { lua_Integer i; return (luaV_tointegerns(v1, &i, LUA_FLOORN2I) && luaV_tointegerns(v2, &i, LUA_FLOORN2I)); } case LUA_OPDIV: case LUA_OPIDIV: case LUA_OPMOD: return (nvalue(v2) != 0); default: return 1; } } static int constfolding (FuncState *fs, int op, expdesc *e1, const expdesc *e2) { TValue v1, v2, res; if (!tonumeral(e1, &v1) || !tonumeral(e2, &v2) || !validop(op, &v1, &v2)) return 0; luaO_rawarith(fs->ls->L, op, &v1, &v2, &res); if (ttisinteger(&res)) { e1->k = VKINT; e1->u.ival = ivalue(&res); } else { lua_Number n = fltvalue(&res); if (luai_numisnan(n) || n == 0) return 0; e1->k = VKFLT; e1->u.nval = n; } return 1; } l_sinline OpCode binopr2op (BinOpr opr, BinOpr baser, OpCode base) { lua_assert(baser <= opr && ((baser == OPR_ADD && opr <= OPR_SHR) || (baser == OPR_LT && opr <= OPR_LE))); return cast(OpCode, (cast_int(opr) - cast_int(baser)) + cast_int(base)); } l_sinline OpCode unopr2op (UnOpr opr) { return cast(OpCode, (cast_int(opr) - cast_int(OPR_MINUS)) + cast_int(OP_UNM)); } l_sinline TMS binopr2TM (BinOpr opr) { lua_assert(OPR_ADD <= opr && opr <= OPR_SHR); return cast(TMS, (cast_int(opr) - cast_int(OPR_ADD)) + cast_int(TM_ADD)); } static void codeunexpval (FuncState *fs, OpCode op, expdesc *e, int line) { int r = luaK_exp2anyreg(fs, e); freeexp(fs, e); e->u.info = luaK_codeABC(fs, op, 0, r, 0); e->k = VRELOC; luaK_fixline(fs, line); } static void finishbinexpval (FuncState *fs, expdesc *e1, expdesc *e2, OpCode op, int v2, int flip, int line, OpCode mmop, TMS event) { int v1 = luaK_exp2anyreg(fs, e1); int pc = luaK_codeABCk(fs, op, 0, v1, v2, 0); freeexps(fs, e1, e2); e1->u.info = pc; e1->k = VRELOC; luaK_fixline(fs, line); luaK_codeABCk(fs, mmop, v1, v2, event, flip); luaK_fixline(fs, line); } static void codebinexpval (FuncState *fs, BinOpr opr, expdesc *e1, expdesc *e2, int line) { OpCode op = binopr2op(opr, OPR_ADD, OP_ADD); int v2 = luaK_exp2anyreg(fs, e2); lua_assert((VNIL <= e1->k && e1->k <= VKSTR) || e1->k == VNONRELOC || e1->k == VRELOC); lua_assert(OP_ADD <= op && op <= OP_SHR); finishbinexpval(fs, e1, e2, op, v2, 0, line, OP_MMBIN, binopr2TM(opr)); } static void codebini (FuncState *fs, OpCode op, expdesc *e1, expdesc *e2, int flip, int line, TMS event) { int v2 = int2sC(cast_int(e2->u.ival)); lua_assert(e2->k == VKINT); finishbinexpval(fs, e1, e2, op, v2, flip, line, OP_MMBINI, event); } static void codebinK (FuncState *fs, BinOpr opr, expdesc *e1, expdesc *e2, int flip, int line) { TMS event = binopr2TM(opr); int v2 = e2->u.info; OpCode op = binopr2op(opr, OPR_ADD, OP_ADDK); finishbinexpval(fs, e1, e2, op, v2, flip, line, OP_MMBINK, event); } static int finishbinexpneg (FuncState *fs, expdesc *e1, expdesc *e2, OpCode op, int line, TMS event) { if (!isKint(e2)) return 0; else { lua_Integer i2 = e2->u.ival; if (!(fitsC(i2) && fitsC(-i2))) return 0; else { int v2 = cast_int(i2); finishbinexpval(fs, e1, e2, op, int2sC(-v2), 0, line, OP_MMBINI, event); SETARG_B(fs->f->code[fs->pc - 1], int2sC(v2)); return 1; } } } static void swapexps (expdesc *e1, expdesc *e2) { expdesc temp = *e1; *e1 = *e2; *e2 = temp; } static void codebinNoK (FuncState *fs, BinOpr opr, expdesc *e1, expdesc *e2, int flip, int line) { if (flip) swapexps(e1, e2); codebinexpval(fs, opr, e1, e2, line); } static void codearith (FuncState *fs, BinOpr opr, expdesc *e1, expdesc *e2, int flip, int line) { if (tonumeral(e2, NULL) && luaK_exp2K(fs, e2)) codebinK(fs, opr, e1, e2, flip, line); else codebinNoK(fs, opr, e1, e2, flip, line); } static void codecommutative (FuncState *fs, BinOpr op, expdesc *e1, expdesc *e2, int line) { int flip = 0; if (tonumeral(e1, NULL)) { swapexps(e1, e2); flip = 1; } if (op == OPR_ADD && isSCint(e2)) codebini(fs, OP_ADDI, e1, e2, flip, line, TM_ADD); else codearith(fs, op, e1, e2, flip, line); } static void codebitwise (FuncState *fs, BinOpr opr, expdesc *e1, expdesc *e2, int line) { int flip = 0; if (e1->k == VKINT) { swapexps(e1, e2); flip = 1; } if (e2->k == VKINT && luaK_exp2K(fs, e2)) codebinK(fs, opr, e1, e2, flip, line); else codebinNoK(fs, opr, e1, e2, flip, line); } static void codeorder (FuncState *fs, BinOpr opr, expdesc *e1, expdesc *e2) { int r1, r2; int im; int isfloat = 0; OpCode op; if (isSCnumber(e2, &im, &isfloat)) { r1 = luaK_exp2anyreg(fs, e1); r2 = im; op = binopr2op(opr, OPR_LT, OP_LTI); } else if (isSCnumber(e1, &im, &isfloat)) { r1 = luaK_exp2anyreg(fs, e2); r2 = im; op = binopr2op(opr, OPR_LT, OP_GTI); } else { r1 = luaK_exp2anyreg(fs, e1); r2 = luaK_exp2anyreg(fs, e2); op = binopr2op(opr, OPR_LT, OP_LT); } freeexps(fs, e1, e2); e1->u.info = condjump(fs, op, r1, r2, isfloat, 1); e1->k = VJMP; } static void codeeq (FuncState *fs, BinOpr opr, expdesc *e1, expdesc *e2) { int r1, r2; int im; int isfloat = 0; OpCode op; if (e1->k != VNONRELOC) { lua_assert(e1->k == VK || e1->k == VKINT || e1->k == VKFLT); swapexps(e1, e2); } r1 = luaK_exp2anyreg(fs, e1); if (isSCnumber(e2, &im, &isfloat)) { op = OP_EQI; r2 = im; } else if (exp2RK(fs, e2)) { op = OP_EQK; r2 = e2->u.info; } else { op = OP_EQ; r2 = luaK_exp2anyreg(fs, e2); } freeexps(fs, e1, e2); e1->u.info = condjump(fs, op, r1, r2, isfloat, (opr == OPR_EQ)); e1->k = VJMP; } void luaK_prefix (FuncState *fs, UnOpr opr, expdesc *e, int line) { static const expdesc ef = {VKINT, {0}, NO_JUMP, NO_JUMP}; luaK_dischargevars(fs, e); switch (opr) { case OPR_MINUS: case OPR_BNOT: if (constfolding(fs, opr + LUA_OPUNM, e, &ef)) break; case OPR_LEN: codeunexpval(fs, unopr2op(opr), e, line); break; case OPR_NOT: codenot(fs, e); break; default: lua_assert(0); } } void luaK_infix (FuncState *fs, BinOpr op, expdesc *v) { luaK_dischargevars(fs, v); switch (op) { case OPR_AND: { luaK_goiftrue(fs, v); break; } case OPR_OR: { luaK_goiffalse(fs, v); break; } case OPR_CONCAT: { luaK_exp2nextreg(fs, v); break; } case OPR_ADD: case OPR_SUB: case OPR_MUL: case OPR_DIV: case OPR_IDIV: case OPR_MOD: case OPR_POW: case OPR_BAND: case OPR_BOR: case OPR_BXOR: case OPR_SHL: case OPR_SHR: { if (!tonumeral(v, NULL)) luaK_exp2anyreg(fs, v); break; } case OPR_EQ: case OPR_NE: { if (!tonumeral(v, NULL)) exp2RK(fs, v); break; } case OPR_LT: case OPR_LE: case OPR_GT: case OPR_GE: { int dummy, dummy2; if (!isSCnumber(v, &dummy, &dummy2)) luaK_exp2anyreg(fs, v); break; } default: lua_assert(0); } } static void codeconcat (FuncState *fs, expdesc *e1, expdesc *e2, int line) { Instruction *ie2 = previousinstruction(fs); if (GET_OPCODE(*ie2) == OP_CONCAT) { int n = GETARG_B(*ie2); lua_assert(e1->u.info + 1 == GETARG_A(*ie2)); freeexp(fs, e2); SETARG_A(*ie2, e1->u.info); SETARG_B(*ie2, n + 1); } else { luaK_codeABC(fs, OP_CONCAT, e1->u.info, 2, 0); freeexp(fs, e2); luaK_fixline(fs, line); } } void luaK_posfix (FuncState *fs, BinOpr opr, expdesc *e1, expdesc *e2, int line) { luaK_dischargevars(fs, e2); if (foldbinop(opr) && constfolding(fs, opr + LUA_OPADD, e1, e2)) return; switch (opr) { case OPR_AND: { lua_assert(e1->t == NO_JUMP); luaK_concat(fs, &e2->f, e1->f); *e1 = *e2; break; } case OPR_OR: { lua_assert(e1->f == NO_JUMP); luaK_concat(fs, &e2->t, e1->t); *e1 = *e2; break; } case OPR_CONCAT: { luaK_exp2nextreg(fs, e2); codeconcat(fs, e1, e2, line); break; } case OPR_ADD: case OPR_MUL: { codecommutative(fs, opr, e1, e2, line); break; } case OPR_SUB: { if (finishbinexpneg(fs, e1, e2, OP_ADDI, line, TM_SUB)) break; } case OPR_DIV: case OPR_IDIV: case OPR_MOD: case OPR_POW: { codearith(fs, opr, e1, e2, 0, line); break; } case OPR_BAND: case OPR_BOR: case OPR_BXOR: { codebitwise(fs, opr, e1, e2, line); break; } case OPR_SHL: { if (isSCint(e1)) { swapexps(e1, e2); codebini(fs, OP_SHLI, e1, e2, 1, line, TM_SHL); } else if (finishbinexpneg(fs, e1, e2, OP_SHRI, line, TM_SHL)) { ; } else codebinexpval(fs, opr, e1, e2, line); break; } case OPR_SHR: { if (isSCint(e2)) codebini(fs, OP_SHRI, e1, e2, 0, line, TM_SHR); else codebinexpval(fs, opr, e1, e2, line); break; } case OPR_EQ: case OPR_NE: { codeeq(fs, opr, e1, e2); break; } case OPR_GT: case OPR_GE: { swapexps(e1, e2); opr = cast(BinOpr, (opr - OPR_GT) + OPR_LT); } case OPR_LT: case OPR_LE: { codeorder(fs, opr, e1, e2); break; } default: lua_assert(0); } } void luaK_fixline (FuncState *fs, int line) { removelastlineinfo(fs); savelineinfo(fs, fs->f, line); } void luaK_settablesize (FuncState *fs, int pc, int ra, int asize, int hsize) { Instruction *inst = &fs->f->code[pc]; int rb = (hsize != 0) ? luaO_ceillog2(hsize) + 1 : 0; int extra = asize / (MAXARG_C + 1); int rc = asize % (MAXARG_C + 1); int k = (extra > 0); *inst = CREATE_ABCk(OP_NEWTABLE, ra, rb, rc, k); *(inst + 1) = CREATE_Ax(OP_EXTRAARG, extra); } void luaK_setlist (FuncState *fs, int base, int nelems, int tostore) { lua_assert(tostore != 0 && tostore <= LFIELDS_PER_FLUSH); if (tostore == LUA_MULTRET) tostore = 0; if (nelems <= MAXARG_C) luaK_codeABC(fs, OP_SETLIST, base, tostore, nelems); else { int extra = nelems / (MAXARG_C + 1); nelems %= (MAXARG_C + 1); luaK_codeABCk(fs, OP_SETLIST, base, tostore, nelems, 1); codeextraarg(fs, extra); } fs->freereg = base + 1; } static int finaltarget (Instruction *code, int i) { int count; for (count = 0; count < 100; count++) { Instruction pc = code[i]; if (GET_OPCODE(pc) != OP_JMP) break; else i += GETARG_sJ(pc) + 1; } return i; } void luaK_finish (FuncState *fs) { int i; Proto *p = fs->f; for (i = 0; i < fs->pc; i++) { Instruction *pc = &p->code[i]; lua_assert(i == 0 || isOT(*(pc - 1)) == isIT(*pc)); switch (GET_OPCODE(*pc)) { case OP_RETURN0: case OP_RETURN1: { if (!(fs->needclose || (p->flag & PF_ISVARARG))) break; SET_OPCODE(*pc, OP_RETURN); } case OP_RETURN: case OP_TAILCALL: { if (fs->needclose) SETARG_k(*pc, 1); if (p->flag & PF_ISVARARG) SETARG_C(*pc, p->numparams + 1); break; } case OP_JMP: { int target = finaltarget(p->code, i); fixjump(fs, i, target); break; } default: break; } } } //path: src/imports/../dependencies/lua/lparser.c #define lparser_c #define LUA_CORE #include #include #define MAXVARS 200 #define hasmultret(k) ((k) == VCALL || (k) == VVARARG) #define eqstr(a,b) ((a) == (b)) typedef struct BlockCnt { struct BlockCnt *previous; int firstlabel; int firstgoto; lu_byte nactvar; lu_byte upval; lu_byte isloop; lu_byte insidetbc; } BlockCnt; static void statement (LexState *ls); static void expr (LexState *ls, expdesc *v); static l_noret error_expected (LexState *ls, int token) { luaX_syntaxerror(ls, luaO_pushfstring(ls->L, "%s expected", luaX_token2str(ls, token))); } static l_noret errorlimit (FuncState *fs, int limit, const char *what) { lua_State *L = fs->ls->L; const char *msg; int line = fs->f->linedefined; const char *where = (line == 0) ? "main function" : luaO_pushfstring(L, "function at line %d", line); msg = luaO_pushfstring(L, "too many %s (limit is %d) in %s", what, limit, where); luaX_syntaxerror(fs->ls, msg); } static void checklimit (FuncState *fs, int v, int l, const char *what) { if (v > l) errorlimit(fs, l, what); } static int testnext (LexState *ls, int c) { if (ls->t.token == c) { luaX_next(ls); return 1; } else return 0; } static void check (LexState *ls, int c) { if (ls->t.token != c) error_expected(ls, c); } static void checknext (LexState *ls, int c) { check(ls, c); luaX_next(ls); } #define check_condition(ls,c,msg) { if (!(c)) luaX_syntaxerror(ls, msg); } static void check_match (LexState *ls, int what, int who, int where) { if (l_unlikely(!testnext(ls, what))) { if (where == ls->linenumber) error_expected(ls, what); else { luaX_syntaxerror(ls, luaO_pushfstring(ls->L, "%s expected (to close %s at line %d)", luaX_token2str(ls, what), luaX_token2str(ls, who), where)); } } } static TString *str_checkname (LexState *ls) { TString *ts; check(ls, TK_NAME); ts = ls->t.seminfo.ts; luaX_next(ls); return ts; } static void init_exp (expdesc *e, expkind k, int i) { e->f = e->t = NO_JUMP; e->k = k; e->u.info = i; } static void codestring (expdesc *e, TString *s) { e->f = e->t = NO_JUMP; e->k = VKSTR; e->u.strval = s; } static void codename (LexState *ls, expdesc *e) { codestring(e, str_checkname(ls)); } static int registerlocalvar (LexState *ls, FuncState *fs, TString *varname) { Proto *f = fs->f; int oldsize = f->sizelocvars; luaM_growvector(ls->L, f->locvars, fs->ndebugvars, f->sizelocvars, LocVar, SHRT_MAX, "local variables"); while (oldsize < f->sizelocvars) f->locvars[oldsize++].varname = NULL; f->locvars[fs->ndebugvars].varname = varname; f->locvars[fs->ndebugvars].startpc = fs->pc; luaC_objbarrier(ls->L, f, varname); return fs->ndebugvars++; } static int new_localvarkind (LexState *ls, TString *name, int kind) { lua_State *L = ls->L; FuncState *fs = ls->fs; Dyndata *dyd = ls->dyd; Vardesc *var; checklimit(fs, dyd->actvar.n + 1 - fs->firstlocal, MAXVARS, "local variables"); luaM_growvector(L, dyd->actvar.arr, dyd->actvar.n + 1, dyd->actvar.size, Vardesc, USHRT_MAX, "local variables"); var = &dyd->actvar.arr[dyd->actvar.n++]; var->vd.kind = kind; var->vd.name = name; return dyd->actvar.n - 1 - fs->firstlocal; } static int new_localvar (LexState *ls, TString *name) { return new_localvarkind(ls, name, VDKREG); } #define new_localvarliteral(ls,v) \ new_localvar(ls, \ luaX_newstring(ls, "carview.php?tsp=" v, (sizeof(v)/sizeof(char)) - 1)); static Vardesc *getlocalvardesc (FuncState *fs, int vidx) { return &fs->ls->dyd->actvar.arr[fs->firstlocal + vidx]; } static int reglevel (FuncState *fs, int nvar) { while (nvar-- > 0) { Vardesc *vd = getlocalvardesc(fs, nvar); if (vd->vd.kind != RDKCTC) return vd->vd.ridx + 1; } return 0; } int luaY_nvarstack (FuncState *fs) { return reglevel(fs, fs->nactvar); } static LocVar *localdebuginfo (FuncState *fs, int vidx) { Vardesc *vd = getlocalvardesc(fs, vidx); if (vd->vd.kind == RDKCTC) return NULL; else { int idx = vd->vd.pidx; lua_assert(idx < fs->ndebugvars); return &fs->f->locvars[idx]; } } static void init_var (FuncState *fs, expdesc *e, int vidx) { e->f = e->t = NO_JUMP; e->k = VLOCAL; e->u.var.vidx = vidx; e->u.var.ridx = getlocalvardesc(fs, vidx)->vd.ridx; } static void check_readonly (LexState *ls, expdesc *e) { FuncState *fs = ls->fs; TString *varname = NULL; switch (e->k) { case VCONST: { varname = ls->dyd->actvar.arr[e->u.info].vd.name; break; } case VLOCAL: { Vardesc *vardesc = getlocalvardesc(fs, e->u.var.vidx); if (vardesc->vd.kind != VDKREG) varname = vardesc->vd.name; break; } case VUPVAL: { Upvaldesc *up = &fs->f->upvalues[e->u.info]; if (up->kind != VDKREG) varname = up->name; break; } default: return; } if (varname) { const char *msg = luaO_pushfstring(ls->L, "attempt to assign to const variable '%s'", getstr(varname)); luaK_semerror(ls, msg); } } static void adjustlocalvars (LexState *ls, int nvars) { FuncState *fs = ls->fs; int reglevel = luaY_nvarstack(fs); int i; for (i = 0; i < nvars; i++) { int vidx = fs->nactvar++; Vardesc *var = getlocalvardesc(fs, vidx); var->vd.ridx = reglevel++; var->vd.pidx = registerlocalvar(ls, fs, var->vd.name); } } static void removevars (FuncState *fs, int tolevel) { fs->ls->dyd->actvar.n -= (fs->nactvar - tolevel); while (fs->nactvar > tolevel) { LocVar *var = localdebuginfo(fs, --fs->nactvar); if (var) var->endpc = fs->pc; } } static int searchupvalue (FuncState *fs, TString *name) { int i; Upvaldesc *up = fs->f->upvalues; for (i = 0; i < fs->nups; i++) { if (eqstr(up[i].name, name)) return i; } return -1; } static Upvaldesc *allocupvalue (FuncState *fs) { Proto *f = fs->f; int oldsize = f->sizeupvalues; checklimit(fs, fs->nups + 1, MAXUPVAL, "upvalues"); luaM_growvector(fs->ls->L, f->upvalues, fs->nups, f->sizeupvalues, Upvaldesc, MAXUPVAL, "upvalues"); while (oldsize < f->sizeupvalues) f->upvalues[oldsize++].name = NULL; return &f->upvalues[fs->nups++]; } static int newupvalue (FuncState *fs, TString *name, expdesc *v) { Upvaldesc *up = allocupvalue(fs); FuncState *prev = fs->prev; if (v->k == VLOCAL) { up->instack = 1; up->idx = v->u.var.ridx; up->kind = getlocalvardesc(prev, v->u.var.vidx)->vd.kind; lua_assert(eqstr(name, getlocalvardesc(prev, v->u.var.vidx)->vd.name)); } else { up->instack = 0; up->idx = cast_byte(v->u.info); up->kind = prev->f->upvalues[v->u.info].kind; lua_assert(eqstr(name, prev->f->upvalues[v->u.info].name)); } up->name = name; luaC_objbarrier(fs->ls->L, fs->f, name); return fs->nups - 1; } static int searchvar (FuncState *fs, TString *n, expdesc *var) { int i; for (i = cast_int(fs->nactvar) - 1; i >= 0; i--) { Vardesc *vd = getlocalvardesc(fs, i); if (eqstr(n, vd->vd.name)) { if (vd->vd.kind == RDKCTC) init_exp(var, VCONST, fs->firstlocal + i); else init_var(fs, var, i); return var->k; } } return -1; } static void markupval (FuncState *fs, int level) { BlockCnt *bl = fs->bl; while (bl->nactvar > level) bl = bl->previous; bl->upval = 1; fs->needclose = 1; } static void marktobeclosed (FuncState *fs) { BlockCnt *bl = fs->bl; bl->upval = 1; bl->insidetbc = 1; fs->needclose = 1; } static void singlevaraux (FuncState *fs, TString *n, expdesc *var, int base) { if (fs == NULL) init_exp(var, VVOID, 0); else { int v = searchvar(fs, n, var); if (v >= 0) { if (v == VLOCAL && !base) markupval(fs, var->u.var.vidx); } else { int idx = searchupvalue(fs, n); if (idx < 0) { singlevaraux(fs->prev, n, var, 0); if (var->k == VLOCAL || var->k == VUPVAL) idx = newupvalue(fs, n, var); else return; } init_exp(var, VUPVAL, idx); } } } static void singlevar (LexState *ls, expdesc *var) { TString *varname = str_checkname(ls); FuncState *fs = ls->fs; singlevaraux(fs, varname, var, 1); if (var->k == VVOID) { expdesc key; singlevaraux(fs, ls->envn, var, 1); lua_assert(var->k != VVOID); luaK_exp2anyregup(fs, var); codestring(&key, varname); luaK_indexed(fs, var, &key); } } static void adjust_assign (LexState *ls, int nvars, int nexps, expdesc *e) { FuncState *fs = ls->fs; int needed = nvars - nexps; if (hasmultret(e->k)) { int extra = needed + 1; if (extra < 0) extra = 0; luaK_setreturns(fs, e, extra); } else { if (e->k != VVOID) luaK_exp2nextreg(fs, e); if (needed > 0) luaK_nil(fs, fs->freereg, needed); } if (needed > 0) luaK_reserveregs(fs, needed); else fs->freereg += needed; } #define enterlevel(ls) luaE_incCstack(ls->L) #define leavelevel(ls) ((ls)->L->nCcalls--) static l_noret jumpscopeerror (LexState *ls, Labeldesc *gt) { TString *tsname = getlocalvardesc(ls->fs, gt->nactvar)->vd.name; const char *varname = getstr(tsname); const char *msg = " at line %d jumps into the scope of local '%s'"; msg = luaO_pushfstring(ls->L, msg, getstr(gt->name), gt->line, varname); luaK_semerror(ls, msg); } static void solvegoto (LexState *ls, int g, Labeldesc *label) { int i; Labellist *gl = &ls->dyd->gt; Labeldesc *gt = &gl->arr[g]; lua_assert(eqstr(gt->name, label->name)); if (l_unlikely(gt->nactvar < label->nactvar)) jumpscopeerror(ls, gt); luaK_patchlist(ls->fs, gt->pc, label->pc); for (i = g; i < gl->n - 1; i++) gl->arr[i] = gl->arr[i + 1]; gl->n--; } static Labeldesc *findlabel (LexState *ls, TString *name) { int i; Dyndata *dyd = ls->dyd; for (i = ls->fs->firstlabel; i < dyd->label.n; i++) { Labeldesc *lb = &dyd->label.arr[i]; if (eqstr(lb->name, name)) return lb; } return NULL; } static int newlabelentry (LexState *ls, Labellist *l, TString *name, int line, int pc) { int n = l->n; luaM_growvector(ls->L, l->arr, n, l->size, Labeldesc, SHRT_MAX, "labels/gotos"); l->arr[n].name = name; l->arr[n].line = line; l->arr[n].nactvar = ls->fs->nactvar; l->arr[n].close = 0; l->arr[n].pc = pc; l->n = n + 1; return n; } static int newgotoentry (LexState *ls, TString *name, int line, int pc) { return newlabelentry(ls, &ls->dyd->gt, name, line, pc); } static int solvegotos (LexState *ls, Labeldesc *lb) { Labellist *gl = &ls->dyd->gt; int i = ls->fs->bl->firstgoto; int needsclose = 0; while (i < gl->n) { if (eqstr(gl->arr[i].name, lb->name)) { needsclose |= gl->arr[i].close; solvegoto(ls, i, lb); } else i++; } return needsclose; } static int createlabel (LexState *ls, TString *name, int line, int last) { FuncState *fs = ls->fs; Labellist *ll = &ls->dyd->label; int l = newlabelentry(ls, ll, name, line, luaK_getlabel(fs)); if (last) { ll->arr[l].nactvar = fs->bl->nactvar; } if (solvegotos(ls, &ll->arr[l])) { luaK_codeABC(fs, OP_CLOSE, luaY_nvarstack(fs), 0, 0); return 1; } return 0; } static void movegotosout (FuncState *fs, BlockCnt *bl) { int i; Labellist *gl = &fs->ls->dyd->gt; for (i = bl->firstgoto; i < gl->n; i++) { Labeldesc *gt = &gl->arr[i]; if (reglevel(fs, gt->nactvar) > reglevel(fs, bl->nactvar)) gt->close |= bl->upval; gt->nactvar = bl->nactvar; } } static void enterblock (FuncState *fs, BlockCnt *bl, lu_byte isloop) { bl->isloop = isloop; bl->nactvar = fs->nactvar; bl->firstlabel = fs->ls->dyd->label.n; bl->firstgoto = fs->ls->dyd->gt.n; bl->upval = 0; bl->insidetbc = (fs->bl != NULL && fs->bl->insidetbc); bl->previous = fs->bl; fs->bl = bl; lua_assert(fs->freereg == luaY_nvarstack(fs)); } static l_noret undefgoto (LexState *ls, Labeldesc *gt) { const char *msg; if (eqstr(gt->name, luaS_newliteral(ls->L, "break"))) { msg = "break outside loop at line %d"; msg = luaO_pushfstring(ls->L, msg, gt->line); } else { msg = "no visible label '%s' for at line %d"; msg = luaO_pushfstring(ls->L, msg, getstr(gt->name), gt->line); } luaK_semerror(ls, msg); } static void leaveblock (FuncState *fs) { BlockCnt *bl = fs->bl; LexState *ls = fs->ls; int hasclose = 0; int stklevel = reglevel(fs, bl->nactvar); removevars(fs, bl->nactvar); lua_assert(bl->nactvar == fs->nactvar); if (bl->isloop) hasclose = createlabel(ls, luaS_newliteral(ls->L, "break"), 0, 0); if (!hasclose && bl->previous && bl->upval) luaK_codeABC(fs, OP_CLOSE, stklevel, 0, 0); fs->freereg = stklevel; ls->dyd->label.n = bl->firstlabel; fs->bl = bl->previous; if (bl->previous) movegotosout(fs, bl); else { if (bl->firstgoto < ls->dyd->gt.n) undefgoto(ls, &ls->dyd->gt.arr[bl->firstgoto]); } } static Proto *addprototype (LexState *ls) { Proto *clp; lua_State *L = ls->L; FuncState *fs = ls->fs; Proto *f = fs->f; if (fs->np >= f->sizep) { int oldsize = f->sizep; luaM_growvector(L, f->p, fs->np, f->sizep, Proto *, MAXARG_Bx, "functions"); while (oldsize < f->sizep) f->p[oldsize++] = NULL; } f->p[fs->np++] = clp = luaF_newproto(L); luaC_objbarrier(L, f, clp); return clp; } static void codeclosure (LexState *ls, expdesc *v) { FuncState *fs = ls->fs->prev; init_exp(v, VRELOC, luaK_codeABx(fs, OP_CLOSURE, 0, fs->np - 1)); luaK_exp2nextreg(fs, v); } static void open_func (LexState *ls, FuncState *fs, BlockCnt *bl) { Proto *f = fs->f; fs->prev = ls->fs; fs->ls = ls; ls->fs = fs; fs->pc = 0; fs->previousline = f->linedefined; fs->iwthabs = 0; fs->lasttarget = 0; fs->freereg = 0; fs->nk = 0; fs->nabslineinfo = 0; fs->np = 0; fs->nups = 0; fs->ndebugvars = 0; fs->nactvar = 0; fs->needclose = 0; fs->firstlocal = ls->dyd->actvar.n; fs->firstlabel = ls->dyd->label.n; fs->bl = NULL; f->source = ls->source; luaC_objbarrier(ls->L, f, f->source); f->maxstacksize = 2; enterblock(fs, bl, 0); } static void close_func (LexState *ls) { lua_State *L = ls->L; FuncState *fs = ls->fs; Proto *f = fs->f; luaK_ret(fs, luaY_nvarstack(fs), 0); leaveblock(fs); lua_assert(fs->bl == NULL); luaK_finish(fs); luaM_shrinkvector(L, f->code, f->sizecode, fs->pc, Instruction); luaM_shrinkvector(L, f->lineinfo, f->sizelineinfo, fs->pc, ls_byte); luaM_shrinkvector(L, f->abslineinfo, f->sizeabslineinfo, fs->nabslineinfo, AbsLineInfo); luaM_shrinkvector(L, f->k, f->sizek, fs->nk, TValue); luaM_shrinkvector(L, f->p, f->sizep, fs->np, Proto *); luaM_shrinkvector(L, f->locvars, f->sizelocvars, fs->ndebugvars, LocVar); luaM_shrinkvector(L, f->upvalues, f->sizeupvalues, fs->nups, Upvaldesc); ls->fs = fs->prev; luaC_checkGC(L); } static int block_follow (LexState *ls, int withuntil) { switch (ls->t.token) { case TK_ELSE: case TK_ELSEIF: case TK_END: case TK_EOS: return 1; case TK_UNTIL: return withuntil; default: return 0; } } static void statlist (LexState *ls) { while (!block_follow(ls, 1)) { if (ls->t.token == TK_RETURN) { statement(ls); return; } statement(ls); } } static void fieldsel (LexState *ls, expdesc *v) { FuncState *fs = ls->fs; expdesc key; luaK_exp2anyregup(fs, v); luaX_next(ls); codename(ls, &key); luaK_indexed(fs, v, &key); } static void yindex (LexState *ls, expdesc *v) { luaX_next(ls); expr(ls, v); luaK_exp2val(ls->fs, v); checknext(ls, ']'); } typedef struct ConsControl { expdesc v; expdesc *t; int nh; int na; int tostore; } ConsControl; static void recfield (LexState *ls, ConsControl *cc) { FuncState *fs = ls->fs; int reg = ls->fs->freereg; expdesc tab, key, val; if (ls->t.token == TK_NAME) { checklimit(fs, cc->nh, MAX_INT, "items in a constructor"); codename(ls, &key); } else yindex(ls, &key); cc->nh++; checknext(ls, '='); tab = *cc->t; luaK_indexed(fs, &tab, &key); expr(ls, &val); luaK_storevar(fs, &tab, &val); fs->freereg = reg; } static void closelistfield (FuncState *fs, ConsControl *cc) { if (cc->v.k == VVOID) return; luaK_exp2nextreg(fs, &cc->v); cc->v.k = VVOID; if (cc->tostore == LFIELDS_PER_FLUSH) { luaK_setlist(fs, cc->t->u.info, cc->na, cc->tostore); cc->na += cc->tostore; cc->tostore = 0; } } static void lastlistfield (FuncState *fs, ConsControl *cc) { if (cc->tostore == 0) return; if (hasmultret(cc->v.k)) { luaK_setmultret(fs, &cc->v); luaK_setlist(fs, cc->t->u.info, cc->na, LUA_MULTRET); cc->na--; } else { if (cc->v.k != VVOID) luaK_exp2nextreg(fs, &cc->v); luaK_setlist(fs, cc->t->u.info, cc->na, cc->tostore); } cc->na += cc->tostore; } static void listfield (LexState *ls, ConsControl *cc) { expr(ls, &cc->v); cc->tostore++; } static void field (LexState *ls, ConsControl *cc) { switch(ls->t.token) { case TK_NAME: { if (luaX_lookahead(ls) != '=') listfield(ls, cc); else recfield(ls, cc); break; } case '[': { recfield(ls, cc); break; } default: { listfield(ls, cc); break; } } } static void constructor (LexState *ls, expdesc *t) { FuncState *fs = ls->fs; int line = ls->linenumber; int pc = luaK_codeABC(fs, OP_NEWTABLE, 0, 0, 0); ConsControl cc; luaK_code(fs, 0); cc.na = cc.nh = cc.tostore = 0; cc.t = t; init_exp(t, VNONRELOC, fs->freereg); luaK_reserveregs(fs, 1); init_exp(&cc.v, VVOID, 0); checknext(ls, '{'); do { lua_assert(cc.v.k == VVOID || cc.tostore > 0); if (ls->t.token == '}') break; closelistfield(fs, &cc); field(ls, &cc); } while (testnext(ls, ',') || testnext(ls, ';')); check_match(ls, '}', '{', line); lastlistfield(fs, &cc); luaK_settablesize(fs, pc, t->u.info, cc.na, cc.nh); } static void setvararg (FuncState *fs, int nparams) { fs->f->flag |= PF_ISVARARG; luaK_codeABC(fs, OP_VARARGPREP, nparams, 0, 0); } static void parlist (LexState *ls) { FuncState *fs = ls->fs; Proto *f = fs->f; int nparams = 0; int isvararg = 0; if (ls->t.token != ')') { do { switch (ls->t.token) { case TK_NAME: { new_localvar(ls, str_checkname(ls)); nparams++; break; } case TK_DOTS: { luaX_next(ls); isvararg = 1; break; } default: luaX_syntaxerror(ls, " or '...' expected"); } } while (!isvararg && testnext(ls, ',')); } adjustlocalvars(ls, nparams); f->numparams = cast_byte(fs->nactvar); if (isvararg) setvararg(fs, f->numparams); luaK_reserveregs(fs, fs->nactvar); } static void body (LexState *ls, expdesc *e, int ismethod, int line) { FuncState new_fs; BlockCnt bl; new_fs.f = addprototype(ls); new_fs.f->linedefined = line; open_func(ls, &new_fs, &bl); checknext(ls, '('); if (ismethod) { new_localvarliteral(ls, "self"); adjustlocalvars(ls, 1); } parlist(ls); checknext(ls, ')'); statlist(ls); new_fs.f->lastlinedefined = ls->linenumber; check_match(ls, TK_END, TK_FUNCTION, line); codeclosure(ls, e); close_func(ls); } static int explist (LexState *ls, expdesc *v) { int n = 1; expr(ls, v); while (testnext(ls, ',')) { luaK_exp2nextreg(ls->fs, v); expr(ls, v); n++; } return n; } static void funcargs (LexState *ls, expdesc *f) { FuncState *fs = ls->fs; expdesc args; int base, nparams; int line = ls->linenumber; switch (ls->t.token) { case '(': { luaX_next(ls); if (ls->t.token == ')') args.k = VVOID; else { explist(ls, &args); if (hasmultret(args.k)) luaK_setmultret(fs, &args); } check_match(ls, ')', '(', line); break; } case '{': { constructor(ls, &args); break; } case TK_STRING: { codestring(&args, ls->t.seminfo.ts); luaX_next(ls); break; } default: { luaX_syntaxerror(ls, "function arguments expected"); } } lua_assert(f->k == VNONRELOC); base = f->u.info; if (hasmultret(args.k)) nparams = LUA_MULTRET; else { if (args.k != VVOID) luaK_exp2nextreg(fs, &args); nparams = fs->freereg - (base+1); } init_exp(f, VCALL, luaK_codeABC(fs, OP_CALL, base, nparams+1, 2)); luaK_fixline(fs, line); fs->freereg = base+1; } static void primaryexp (LexState *ls, expdesc *v) { switch (ls->t.token) { case '(': { int line = ls->linenumber; luaX_next(ls); expr(ls, v); check_match(ls, ')', '(', line); luaK_dischargevars(ls->fs, v); return; } case TK_NAME: { singlevar(ls, v); return; } default: { luaX_syntaxerror(ls, "unexpected symbol"); } } } static void suffixedexp (LexState *ls, expdesc *v) { FuncState *fs = ls->fs; primaryexp(ls, v); for (;;) { switch (ls->t.token) { case '.': { fieldsel(ls, v); break; } case '[': { expdesc key; luaK_exp2anyregup(fs, v); yindex(ls, &key); luaK_indexed(fs, v, &key); break; } case ':': { expdesc key; luaX_next(ls); codename(ls, &key); luaK_self(fs, v, &key); funcargs(ls, v); break; } case '(': case TK_STRING: case '{': { luaK_exp2nextreg(fs, v); funcargs(ls, v); break; } default: return; } } } static void simpleexp (LexState *ls, expdesc *v) { switch (ls->t.token) { case TK_FLT: { init_exp(v, VKFLT, 0); v->u.nval = ls->t.seminfo.r; break; } case TK_INT: { init_exp(v, VKINT, 0); v->u.ival = ls->t.seminfo.i; break; } case TK_STRING: { codestring(v, ls->t.seminfo.ts); break; } case TK_NIL: { init_exp(v, VNIL, 0); break; } case TK_TRUE: { init_exp(v, VTRUE, 0); break; } case TK_FALSE: { init_exp(v, VFALSE, 0); break; } case TK_DOTS: { FuncState *fs = ls->fs; check_condition(ls, fs->f->flag & PF_ISVARARG, "cannot use '...' outside a vararg function"); init_exp(v, VVARARG, luaK_codeABC(fs, OP_VARARG, 0, 0, 1)); break; } case '{': { constructor(ls, v); return; } case TK_FUNCTION: { luaX_next(ls); body(ls, v, 0, ls->linenumber); return; } default: { suffixedexp(ls, v); return; } } luaX_next(ls); } static UnOpr getunopr (int op) { switch (op) { case TK_NOT: return OPR_NOT; case '-': return OPR_MINUS; case '~': return OPR_BNOT; case '#': return OPR_LEN; default: return OPR_NOUNOPR; } } static BinOpr getbinopr (int op) { switch (op) { case '+': return OPR_ADD; case '-': return OPR_SUB; case '*': return OPR_MUL; case '%': return OPR_MOD; case '^': return OPR_POW; case '/': return OPR_DIV; case TK_IDIV: return OPR_IDIV; case '&': return OPR_BAND; case '|': return OPR_BOR; case '~': return OPR_BXOR; case TK_SHL: return OPR_SHL; case TK_SHR: return OPR_SHR; case TK_CONCAT: return OPR_CONCAT; case TK_NE: return OPR_NE; case TK_EQ: return OPR_EQ; case '<': return OPR_LT; case TK_LE: return OPR_LE; case '>': return OPR_GT; case TK_GE: return OPR_GE; case TK_AND: return OPR_AND; case TK_OR: return OPR_OR; default: return OPR_NOBINOPR; } } static const struct { lu_byte left; lu_byte right; } priority[] = { {10, 10}, {10, 10}, {11, 11}, {11, 11}, {14, 13}, {11, 11}, {11, 11}, {6, 6}, {4, 4}, {5, 5}, {7, 7}, {7, 7}, {9, 8}, {3, 3}, {3, 3}, {3, 3}, {3, 3}, {3, 3}, {3, 3}, {2, 2}, {1, 1} }; #define UNARY_PRIORITY 12 static BinOpr subexpr (LexState *ls, expdesc *v, int limit) { BinOpr op; UnOpr uop; enterlevel(ls); uop = getunopr(ls->t.token); if (uop != OPR_NOUNOPR) { int line = ls->linenumber; luaX_next(ls); subexpr(ls, v, UNARY_PRIORITY); luaK_prefix(ls->fs, uop, v, line); } else simpleexp(ls, v); op = getbinopr(ls->t.token); while (op != OPR_NOBINOPR && priority[op].left > limit) { expdesc v2; BinOpr nextop; int line = ls->linenumber; luaX_next(ls); luaK_infix(ls->fs, op, v); nextop = subexpr(ls, &v2, priority[op].right); luaK_posfix(ls->fs, op, v, &v2, line); op = nextop; } leavelevel(ls); return op; } static void expr (LexState *ls, expdesc *v) { subexpr(ls, v, 0); } static void block (LexState *ls) { FuncState *fs = ls->fs; BlockCnt bl; enterblock(fs, &bl, 0); statlist(ls); leaveblock(fs); } struct LHS_assign { struct LHS_assign *prev; expdesc v; }; static void check_conflict (LexState *ls, struct LHS_assign *lh, expdesc *v) { FuncState *fs = ls->fs; int extra = fs->freereg; int conflict = 0; for (; lh; lh = lh->prev) { if (vkisindexed(lh->v.k)) { if (lh->v.k == VINDEXUP) { if (v->k == VUPVAL && lh->v.u.ind.t == v->u.info) { conflict = 1; lh->v.k = VINDEXSTR; lh->v.u.ind.t = extra; } } else { if (v->k == VLOCAL && lh->v.u.ind.t == v->u.var.ridx) { conflict = 1; lh->v.u.ind.t = extra; } if (lh->v.k == VINDEXED && v->k == VLOCAL && lh->v.u.ind.idx == v->u.var.ridx) { conflict = 1; lh->v.u.ind.idx = extra; } } } } if (conflict) { if (v->k == VLOCAL) luaK_codeABC(fs, OP_MOVE, extra, v->u.var.ridx, 0); else luaK_codeABC(fs, OP_GETUPVAL, extra, v->u.info, 0); luaK_reserveregs(fs, 1); } } static void restassign (LexState *ls, struct LHS_assign *lh, int nvars) { expdesc e; check_condition(ls, vkisvar(lh->v.k), "syntax private_lua_error"); check_readonly(ls, &lh->v); if (testnext(ls, ',')) { struct LHS_assign nv; nv.prev = lh; suffixedexp(ls, &nv.v); if (!vkisindexed(nv.v.k)) check_conflict(ls, lh, &nv.v); enterlevel(ls); restassign(ls, &nv, nvars+1); leavelevel(ls); } else { int nexps; checknext(ls, '='); nexps = explist(ls, &e); if (nexps != nvars) adjust_assign(ls, nvars, nexps, &e); else { luaK_setoneret(ls->fs, &e); luaK_storevar(ls->fs, &lh->v, &e); return; } } init_exp(&e, VNONRELOC, ls->fs->freereg-1); luaK_storevar(ls->fs, &lh->v, &e); } static int cond (LexState *ls) { expdesc v; expr(ls, &v); if (v.k == VNIL) v.k = VFALSE; luaK_goiftrue(ls->fs, &v); return v.f; } static void gotostat (LexState *ls) { FuncState *fs = ls->fs; int line = ls->linenumber; TString *name = str_checkname(ls); Labeldesc *lb = findlabel(ls, name); if (lb == NULL) newgotoentry(ls, name, line, luaK_jump(fs)); else { int lblevel = reglevel(fs, lb->nactvar); if (luaY_nvarstack(fs) > lblevel) luaK_codeABC(fs, OP_CLOSE, lblevel, 0, 0); luaK_patchlist(fs, luaK_jump(fs), lb->pc); } } static void breakstat (LexState *ls) { int line = ls->linenumber; luaX_next(ls); newgotoentry(ls, luaS_newliteral(ls->L, "break"), line, luaK_jump(ls->fs)); } static void checkrepeated (LexState *ls, TString *name) { Labeldesc *lb = findlabel(ls, name); if (l_unlikely(lb != NULL)) { const char *msg = "label '%s' already defined on line %d"; msg = luaO_pushfstring(ls->L, msg, getstr(name), lb->line); luaK_semerror(ls, msg); } } static void labelstat (LexState *ls, TString *name, int line) { checknext(ls, TK_DBCOLON); while (ls->t.token == ';' || ls->t.token == TK_DBCOLON) statement(ls); checkrepeated(ls, name); createlabel(ls, name, line, block_follow(ls, 0)); } static void whilestat (LexState *ls, int line) { FuncState *fs = ls->fs; int whileinit; int condexit; BlockCnt bl; luaX_next(ls); whileinit = luaK_getlabel(fs); condexit = cond(ls); enterblock(fs, &bl, 1); checknext(ls, TK_DO); block(ls); luaK_jumpto(fs, whileinit); check_match(ls, TK_END, TK_WHILE, line); leaveblock(fs); luaK_patchtohere(fs, condexit); } static void repeatstat (LexState *ls, int line) { int condexit; FuncState *fs = ls->fs; int repeat_init = luaK_getlabel(fs); BlockCnt bl1, bl2; enterblock(fs, &bl1, 1); enterblock(fs, &bl2, 0); luaX_next(ls); statlist(ls); check_match(ls, TK_UNTIL, TK_REPEAT, line); condexit = cond(ls); leaveblock(fs); if (bl2.upval) { int exit = luaK_jump(fs); luaK_patchtohere(fs, condexit); luaK_codeABC(fs, OP_CLOSE, reglevel(fs, bl2.nactvar), 0, 0); condexit = luaK_jump(fs); luaK_patchtohere(fs, exit); } luaK_patchlist(fs, condexit, repeat_init); leaveblock(fs); } static void exp1 (LexState *ls) { expdesc e; expr(ls, &e); luaK_exp2nextreg(ls->fs, &e); lua_assert(e.k == VNONRELOC); } static void fixforjump (FuncState *fs, int pc, int dest, int back) { Instruction *jmp = &fs->f->code[pc]; int offset = dest - (pc + 1); if (back) offset = -offset; if (l_unlikely(offset > MAXARG_Bx)) luaX_syntaxerror(fs->ls, "control structure too long"); SETARG_Bx(*jmp, offset); } static void forbody (LexState *ls, int base, int line, int nvars, int isgen) { static const OpCode forprep[2] = {OP_FORPREP, OP_TFORPREP}; static const OpCode forloop[2] = {OP_FORLOOP, OP_TFORLOOP}; BlockCnt bl; FuncState *fs = ls->fs; int prep, endfor; checknext(ls, TK_DO); prep = luaK_codeABx(fs, forprep[isgen], base, 0); fs->freereg--; enterblock(fs, &bl, 0); adjustlocalvars(ls, nvars); luaK_reserveregs(fs, nvars); block(ls); leaveblock(fs); fixforjump(fs, prep, luaK_getlabel(fs), 0); if (isgen) { luaK_codeABC(fs, OP_TFORCALL, base, 0, nvars); luaK_fixline(fs, line); } endfor = luaK_codeABx(fs, forloop[isgen], base, 0); fixforjump(fs, endfor, prep + 1, 1); luaK_fixline(fs, line); } static void fornum (LexState *ls, TString *varname, int line) { FuncState *fs = ls->fs; int base = fs->freereg; new_localvarliteral(ls, "(for state)"); new_localvarliteral(ls, "(for state)"); new_localvarkind(ls, varname, RDKCONST); checknext(ls, '='); exp1(ls); checknext(ls, ','); exp1(ls); if (testnext(ls, ',')) exp1(ls); else { luaK_int(fs, fs->freereg, 1); luaK_reserveregs(fs, 1); } adjustlocalvars(ls, 2); forbody(ls, base, line, 1, 0); } static void forlist (LexState *ls, TString *indexname) { FuncState *fs = ls->fs; expdesc e; int nvars = 4; int line; int base = fs->freereg; new_localvarliteral(ls, "(for state)"); new_localvarliteral(ls, "(for state)"); new_localvarliteral(ls, "(for state)"); new_localvarkind(ls, indexname, RDKCONST); while (testnext(ls, ',')) { new_localvar(ls, str_checkname(ls)); nvars++; } checknext(ls, TK_IN); line = ls->linenumber; adjust_assign(ls, 4, explist(ls, &e), &e); adjustlocalvars(ls, 3); marktobeclosed(fs); luaK_checkstack(fs, 2); forbody(ls, base, line, nvars - 3, 1); } static void forstat (LexState *ls, int line) { FuncState *fs = ls->fs; TString *varname; BlockCnt bl; enterblock(fs, &bl, 1); luaX_next(ls); varname = str_checkname(ls); switch (ls->t.token) { case '=': fornum(ls, varname, line); break; case ',': case TK_IN: forlist(ls, varname); break; default: luaX_syntaxerror(ls, "'=' or 'in' expected"); } check_match(ls, TK_END, TK_FOR, line); leaveblock(fs); } static void test_then_block (LexState *ls, int *escapelist) { BlockCnt bl; FuncState *fs = ls->fs; expdesc v; int jf; luaX_next(ls); expr(ls, &v); checknext(ls, TK_THEN); if (ls->t.token == TK_BREAK) { int line = ls->linenumber; luaK_goiffalse(ls->fs, &v); luaX_next(ls); enterblock(fs, &bl, 0); newgotoentry(ls, luaS_newliteral(ls->L, "break"), line, v.t); while (testnext(ls, ';')) {} if (block_follow(ls, 0)) { leaveblock(fs); return; } else jf = luaK_jump(fs); } else { luaK_goiftrue(ls->fs, &v); enterblock(fs, &bl, 0); jf = v.f; } statlist(ls); leaveblock(fs); if (ls->t.token == TK_ELSE || ls->t.token == TK_ELSEIF) luaK_concat(fs, escapelist, luaK_jump(fs)); luaK_patchtohere(fs, jf); } static void ifstat (LexState *ls, int line) { FuncState *fs = ls->fs; int escapelist = NO_JUMP; test_then_block(ls, &escapelist); while (ls->t.token == TK_ELSEIF) test_then_block(ls, &escapelist); if (testnext(ls, TK_ELSE)) block(ls); check_match(ls, TK_END, TK_IF, line); luaK_patchtohere(fs, escapelist); } static void localfunc (LexState *ls) { expdesc b; FuncState *fs = ls->fs; int fvar = fs->nactvar; new_localvar(ls, str_checkname(ls)); adjustlocalvars(ls, 1); body(ls, &b, 0, ls->linenumber); localdebuginfo(fs, fvar)->startpc = fs->pc; } static int getlocalattribute (LexState *ls) { if (testnext(ls, '<')) { TString *ts = str_checkname(ls); const char *attr = getstr(ts); checknext(ls, '>'); if (strcmp(attr, "const") == 0) return RDKCONST; else if (strcmp(attr, "close") == 0) return RDKTOCLOSE; else luaK_semerror(ls, luaO_pushfstring(ls->L, "unknown attribute '%s'", attr)); } return VDKREG; } static void checktoclose (FuncState *fs, int level) { if (level != -1) { marktobeclosed(fs); luaK_codeABC(fs, OP_TBC, reglevel(fs, level), 0, 0); } } static void localstat (LexState *ls) { FuncState *fs = ls->fs; int toclose = -1; Vardesc *var; int vidx; int nvars = 0; int nexps; expdesc e; do { TString *vname = str_checkname(ls); int kind = getlocalattribute(ls); vidx = new_localvarkind(ls, vname, kind); if (kind == RDKTOCLOSE) { if (toclose != -1) luaK_semerror(ls, "multiple to-be-closed variables in local list"); toclose = fs->nactvar + nvars; } nvars++; } while (testnext(ls, ',')); if (testnext(ls, '=')) nexps = explist(ls, &e); else { e.k = VVOID; nexps = 0; } var = getlocalvardesc(fs, vidx); if (nvars == nexps && var->vd.kind == RDKCONST && luaK_exp2const(fs, &e, &var->k)) { var->vd.kind = RDKCTC; adjustlocalvars(ls, nvars - 1); fs->nactvar++; } else { adjust_assign(ls, nvars, nexps, &e); adjustlocalvars(ls, nvars); } checktoclose(fs, toclose); } static int funcname (LexState *ls, expdesc *v) { int ismethod = 0; singlevar(ls, v); while (ls->t.token == '.') fieldsel(ls, v); if (ls->t.token == ':') { ismethod = 1; fieldsel(ls, v); } return ismethod; } static void funcstat (LexState *ls, int line) { int ismethod; expdesc v, b; luaX_next(ls); ismethod = funcname(ls, &v); body(ls, &b, ismethod, line); check_readonly(ls, &v); luaK_storevar(ls->fs, &v, &b); luaK_fixline(ls->fs, line); } static void exprstat (LexState *ls) { FuncState *fs = ls->fs; struct LHS_assign v; suffixedexp(ls, &v.v); if (ls->t.token == '=' || ls->t.token == ',') { v.prev = NULL; restassign(ls, &v, 1); } else { Instruction *inst; check_condition(ls, v.v.k == VCALL, "syntax private_lua_error"); inst = &getinstruction(fs, &v.v); SETARG_C(*inst, 1); } } static void retstat (LexState *ls) { FuncState *fs = ls->fs; expdesc e; int nret; int first = luaY_nvarstack(fs); if (block_follow(ls, 1) || ls->t.token == ';') nret = 0; else { nret = explist(ls, &e); if (hasmultret(e.k)) { luaK_setmultret(fs, &e); if (e.k == VCALL && nret == 1 && !fs->bl->insidetbc) { SET_OPCODE(getinstruction(fs,&e), OP_TAILCALL); lua_assert(GETARG_A(getinstruction(fs,&e)) == luaY_nvarstack(fs)); } nret = LUA_MULTRET; } else { if (nret == 1) first = luaK_exp2anyreg(fs, &e); else { luaK_exp2nextreg(fs, &e); lua_assert(nret == fs->freereg - first); } } } luaK_ret(fs, first, nret); testnext(ls, ';'); } static void statement (LexState *ls) { int line = ls->linenumber; enterlevel(ls); switch (ls->t.token) { case ';': { luaX_next(ls); break; } case TK_IF: { ifstat(ls, line); break; } case TK_WHILE: { whilestat(ls, line); break; } case TK_DO: { luaX_next(ls); block(ls); check_match(ls, TK_END, TK_DO, line); break; } case TK_FOR: { forstat(ls, line); break; } case TK_REPEAT: { repeatstat(ls, line); break; } case TK_FUNCTION: { funcstat(ls, line); break; } case TK_LOCAL: { luaX_next(ls); if (testnext(ls, TK_FUNCTION)) localfunc(ls); else localstat(ls); break; } case TK_DBCOLON: { luaX_next(ls); labelstat(ls, str_checkname(ls), line); break; } case TK_RETURN: { luaX_next(ls); retstat(ls); break; } case TK_BREAK: { breakstat(ls); break; } case TK_GOTO: { luaX_next(ls); gotostat(ls); break; } default: { exprstat(ls); break; } } lua_assert(ls->fs->f->maxstacksize >= ls->fs->freereg && ls->fs->freereg >= luaY_nvarstack(ls->fs)); ls->fs->freereg = luaY_nvarstack(ls->fs); leavelevel(ls); } static void mainfunc (LexState *ls, FuncState *fs) { BlockCnt bl; Upvaldesc *env; open_func(ls, fs, &bl); setvararg(fs, 0); env = allocupvalue(fs); env->instack = 1; env->idx = 0; env->kind = VDKREG; env->name = ls->envn; luaC_objbarrier(ls->L, fs->f, env->name); luaX_next(ls); statlist(ls); check(ls, TK_EOS); close_func(ls); } LClosure *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff, Dyndata *dyd, const char *name, int firstchar) { LexState lexstate; FuncState funcstate; LClosure *cl = luaF_newLclosure(L, 1); setclLvalue2s(L, L->top.p, cl); luaD_inctop(L); lexstate.h = luaH_new(L); sethvalue2s(L, L->top.p, lexstate.h); luaD_inctop(L); funcstate.f = cl->p = luaF_newproto(L); luaC_objbarrier(L, cl, cl->p); funcstate.f->source = luaS_new(L, name); luaC_objbarrier(L, funcstate.f, funcstate.f->source); lexstate.buff = buff; lexstate.dyd = dyd; dyd->actvar.n = dyd->gt.n = dyd->label.n = 0; luaX_setinput(L, &lexstate, z, funcstate.f->source, firstchar); mainfunc(&lexstate, &funcstate); lua_assert(!funcstate.prev && funcstate.nups == 1 && !lexstate.fs); lua_assert(dyd->actvar.n == 0 && dyd->gt.n == 0 && dyd->label.n == 0); L->top.p--; return cl; } //path: src/imports/../dependencies/lua/ldebug.c #define ldebug_c #define LUA_CORE #include #include #include #define noLuaClosure(f) ((f) == NULL || (f)->c.tt == LUA_VCCL) static const char *funcnamefromcall (lua_State *L, CallInfo *ci, const char **name); static int currentpc (CallInfo *ci) { lua_assert(isLua(ci)); return pcRel(ci->u.l.savedpc, ci_func(ci)->p); } static int getbaseline (const Proto *f, int pc, int *basepc) { if (f->sizeabslineinfo == 0 || pc < f->abslineinfo[0].pc) { *basepc = -1; return f->linedefined; } else { int i = cast_uint(pc) / MAXIWTHABS - 1; lua_assert(i < 0 || (i < f->sizeabslineinfo && f->abslineinfo[i].pc <= pc)); while (i + 1 < f->sizeabslineinfo && pc >= f->abslineinfo[i + 1].pc) i++; *basepc = f->abslineinfo[i].pc; return f->abslineinfo[i].line; } } int luaG_getfuncline (const Proto *f, int pc) { if (f->lineinfo == NULL) return -1; else { int basepc; int baseline = getbaseline(f, pc, &basepc); while (basepc++ < pc) { lua_assert(f->lineinfo[basepc] != ABSLINEINFO); baseline += f->lineinfo[basepc]; } return baseline; } } static int getcurrentline (CallInfo *ci) { return luaG_getfuncline(ci_func(ci)->p, currentpc(ci)); } static void settraps (CallInfo *ci) { for (; ci != NULL; ci = ci->previous) if (isLua(ci)) ci->u.l.trap = 1; } LUA_API void lua_sethook (lua_State *L, lua_Hook func, int mask, int count) { if (func == NULL || mask == 0) { mask = 0; func = NULL; } L->hook = func; L->basehookcount = count; resethookcount(L); L->hookmask = cast_byte(mask); if (mask) settraps(L->ci); } LUA_API lua_Hook lua_gethook (lua_State *L) { return L->hook; } LUA_API int lua_gethookmask (lua_State *L) { return L->hookmask; } LUA_API int lua_gethookcount (lua_State *L) { return L->basehookcount; } LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar) { int status; CallInfo *ci; if (level < 0) return 0; lua_lock(L); for (ci = L->ci; level > 0 && ci != &L->base_ci; ci = ci->previous) level--; if (level == 0 && ci != &L->base_ci) { status = 1; ar->i_ci = ci; } else status = 0; lua_unlock(L); return status; } static const char *upvalname (const Proto *p, int uv) { TString *s = check_exp(uv < p->sizeupvalues, p->upvalues[uv].name); if (s == NULL) return "?"; else return getstr(s); } static const char *findvararg (CallInfo *ci, int n, StkId *pos) { if (clLvalue(s2v(ci->func.p))->p->flag & PF_ISVARARG) { int nextra = ci->u.l.nextraargs; if (n >= -nextra) { *pos = ci->func.p - nextra - (n + 1); return "(vararg)"; } } return NULL; } const char *luaG_findlocal (lua_State *L, CallInfo *ci, int n, StkId *pos) { StkId base = ci->func.p + 1; const char *name = NULL; if (isLua(ci)) { if (n < 0) return findvararg(ci, n, pos); else name = luaF_getlocalname(ci_func(ci)->p, n, currentpc(ci)); } if (name == NULL) { StkId limit = (ci == L->ci) ? L->top.p : ci->next->func.p; if (limit - base >= n && n > 0) { name = isLua(ci) ? "(temporary)" : "(C temporary)"; } else return NULL; } if (pos) *pos = base + (n - 1); return name; } LUA_API const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int n) { const char *name; lua_lock(L); if (ar == NULL) { if (!isLfunction(s2v(L->top.p - 1))) name = NULL; else name = luaF_getlocalname(clLvalue(s2v(L->top.p - 1))->p, n, 0); } else { StkId pos = NULL; name = luaG_findlocal(L, ar->i_ci, n, &pos); if (name) { setobjs2s(L, L->top.p, pos); api_incr_top(L); } } lua_unlock(L); return name; } LUA_API const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int n) { StkId pos = NULL; const char *name; lua_lock(L); name = luaG_findlocal(L, ar->i_ci, n, &pos); if (name) { api_checkpop(L, 1); setobjs2s(L, pos, L->top.p - 1); L->top.p--; } lua_unlock(L); return name; } static void funcinfo (lua_Debug *ar, Closure *cl) { if (noLuaClosure(cl)) { ar->source = "=[C]"; ar->srclen = LL("=[C]"); ar->linedefined = -1; ar->lastlinedefined = -1; ar->what = "C"; } else { const Proto *p = cl->l.p; if (p->source) { ar->source = getlstr(p->source, ar->srclen); } else { ar->source = "=?"; ar->srclen = LL("=?"); } ar->linedefined = p->linedefined; ar->lastlinedefined = p->lastlinedefined; ar->what = (ar->linedefined == 0) ? "main" : "Lua"; } luaO_chunkid(ar->short_src, ar->source, ar->srclen); } static int nextline (const Proto *p, int currentline, int pc) { if (p->lineinfo[pc] != ABSLINEINFO) return currentline + p->lineinfo[pc]; else return luaG_getfuncline(p, pc); } static void collectvalidlines (lua_State *L, Closure *f) { if (noLuaClosure(f)) { setnilvalue(s2v(L->top.p)); api_incr_top(L); } else { int i; TValue v; const Proto *p = f->l.p; int currentline = p->linedefined; Table *t = luaH_new(L); sethvalue2s(L, L->top.p, t); api_incr_top(L); setbtvalue(&v); if (!(p->flag & PF_ISVARARG)) i = 0; else { lua_assert(GET_OPCODE(p->code[0]) == OP_VARARGPREP); currentline = nextline(p, currentline, 0); i = 1; } for (; i < p->sizelineinfo; i++) { currentline = nextline(p, currentline, i); luaH_setint(L, t, currentline, &v); } } } static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name) { if (ci != NULL && !(ci->callstatus & CIST_TAIL)) return funcnamefromcall(L, ci->previous, name); else return NULL; } static int auxgetinfo (lua_State *L, const char *what, lua_Debug *ar, Closure *f, CallInfo *ci) { int status = 1; for (; *what; what++) { switch (*what) { case 'S': { funcinfo(ar, f); break; } case 'l': { ar->currentline = (ci && isLua(ci)) ? getcurrentline(ci) : -1; break; } case 'u': { ar->nups = (f == NULL) ? 0 : f->c.nupvalues; if (noLuaClosure(f)) { ar->isvararg = 1; ar->nparams = 0; } else { ar->isvararg = f->l.p->flag & PF_ISVARARG; ar->nparams = f->l.p->numparams; } break; } case 't': { ar->istailcall = (ci) ? ci->callstatus & CIST_TAIL : 0; break; } case 'n': { ar->namewhat = getfuncname(L, ci, &ar->name); if (ar->namewhat == NULL) { ar->namewhat = "carview.php?tsp="; ar->name = NULL; } break; } case 'r': { if (ci == NULL || !(ci->callstatus & CIST_TRAN)) ar->ftransfer = ar->ntransfer = 0; else { ar->ftransfer = ci->u2.transferinfo.ftransfer; ar->ntransfer = ci->u2.transferinfo.ntransfer; } break; } case 'L': case 'f': break; default: status = 0; } } return status; } LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar) { int status; Closure *cl; CallInfo *ci; TValue *func; lua_lock(L); if (*what == '>') { ci = NULL; func = s2v(L->top.p - 1); api_check(L, ttisfunction(func), "function expected"); what++; L->top.p--; } else { ci = ar->i_ci; func = s2v(ci->func.p); lua_assert(ttisfunction(func)); } cl = ttisclosure(func) ? clvalue(func) : NULL; status = auxgetinfo(L, what, ar, cl, ci); if (strchr(what, 'f')) { setobj2s(L, L->top.p, func); api_incr_top(L); } if (strchr(what, 'L')) collectvalidlines(L, cl); lua_unlock(L); return status; } static int filterpc (int pc, int jmptarget) { if (pc < jmptarget) return -1; else return pc; } static int findsetreg (const Proto *p, int lastpc, int reg) { int pc; int setreg = -1; int jmptarget = 0; if (testMMMode(GET_OPCODE(p->code[lastpc]))) lastpc--; for (pc = 0; pc < lastpc; pc++) { Instruction i = p->code[pc]; OpCode op = GET_OPCODE(i); int a = GETARG_A(i); int change; switch (op) { case OP_LOADNIL: { int b = GETARG_B(i); change = (a <= reg && reg <= a + b); break; } case OP_TFORCALL: { change = (reg >= a + 2); break; } case OP_CALL: case OP_TAILCALL: { change = (reg >= a); break; } case OP_JMP: { int b = GETARG_sJ(i); int dest = pc + 1 + b; if (dest <= lastpc && dest > jmptarget) jmptarget = dest; change = 0; break; } default: change = (testAMode(op) && reg == a); break; } if (change) setreg = filterpc(pc, jmptarget); } return setreg; } static const char *kname (const Proto *p, int index, const char **name) { TValue *kvalue = &p->k[index]; if (ttisstring(kvalue)) { *name = getstr(tsvalue(kvalue)); return "constant"; } else { *name = "?"; return NULL; } } static const char *basicgetobjname (const Proto *p, int *ppc, int reg, const char **name) { int pc = *ppc; *name = luaF_getlocalname(p, reg + 1, pc); if (*name) return "local"; *ppc = pc = findsetreg(p, pc, reg); if (pc != -1) { Instruction i = p->code[pc]; OpCode op = GET_OPCODE(i); switch (op) { case OP_MOVE: { int b = GETARG_B(i); if (b < GETARG_A(i)) return basicgetobjname(p, ppc, b, name); break; } case OP_GETUPVAL: { *name = upvalname(p, GETARG_B(i)); return "upvalue"; } case OP_LOADK: return kname(p, GETARG_Bx(i), name); case OP_LOADKX: return kname(p, GETARG_Ax(p->code[pc + 1]), name); default: break; } } return NULL; } static void rname (const Proto *p, int pc, int c, const char **name) { const char *what = basicgetobjname(p, &pc, c, name); if (!(what && *what == 'c')) *name = "?"; } static void rkname (const Proto *p, int pc, Instruction i, const char **name) { int c = GETARG_C(i); if (GETARG_k(i)) kname(p, c, name); else rname(p, pc, c, name); } static const char *isEnv (const Proto *p, int pc, Instruction i, int isup) { int t = GETARG_B(i); const char *name; if (isup) name = upvalname(p, t); else basicgetobjname(p, &pc, t, &name); return (name && strcmp(name, LUA_ENV) == 0) ? "global" : "field"; } static const char *getobjname (const Proto *p, int lastpc, int reg, const char **name) { const char *kind = basicgetobjname(p, &lastpc, reg, name); if (kind != NULL) return kind; else if (lastpc != -1) { Instruction i = p->code[lastpc]; OpCode op = GET_OPCODE(i); switch (op) { case OP_GETTABUP: { int k = GETARG_C(i); kname(p, k, name); return isEnv(p, lastpc, i, 1); } case OP_GETTABLE: { int k = GETARG_C(i); rname(p, lastpc, k, name); return isEnv(p, lastpc, i, 0); } case OP_GETI: { *name = "integer index"; return "field"; } case OP_GETFIELD: { int k = GETARG_C(i); kname(p, k, name); return isEnv(p, lastpc, i, 0); } case OP_SELF: { rkname(p, lastpc, i, name); return "method"; } default: break; } } return NULL; } static const char *funcnamefromcode (lua_State *L, const Proto *p, int pc, const char **name) { TMS tm = (TMS)0; Instruction i = p->code[pc]; switch (GET_OPCODE(i)) { case OP_CALL: case OP_TAILCALL: return getobjname(p, pc, GETARG_A(i), name); case OP_TFORCALL: { *name = "for iterator"; return "for iterator"; } case OP_SELF: case OP_GETTABUP: case OP_GETTABLE: case OP_GETI: case OP_GETFIELD: tm = TM_INDEX; break; case OP_SETTABUP: case OP_SETTABLE: case OP_SETI: case OP_SETFIELD: tm = TM_NEWINDEX; break; case OP_MMBIN: case OP_MMBINI: case OP_MMBINK: { tm = cast(TMS, GETARG_C(i)); break; } case OP_UNM: tm = TM_UNM; break; case OP_BNOT: tm = TM_BNOT; break; case OP_LEN: tm = TM_LEN; break; case OP_CONCAT: tm = TM_CONCAT; break; case OP_EQ: tm = TM_EQ; break; case OP_LT: case OP_LTI: case OP_GTI: tm = TM_LT; break; case OP_LE: case OP_LEI: case OP_GEI: tm = TM_LE; break; case OP_CLOSE: case OP_RETURN: tm = TM_CLOSE; break; default: return NULL; } *name = getshrstr(G(L)->tmname[tm]) + 2; return "metamethod"; } static const char *funcnamefromcall (lua_State *L, CallInfo *ci, const char **name) { if (ci->callstatus & CIST_HOOKED) { *name = "?"; return "hook"; } else if (ci->callstatus & CIST_FIN) { *name = "__gc"; return "metamethod"; } else if (isLua(ci)) return funcnamefromcode(L, ci_func(ci)->p, currentpc(ci), name); else return NULL; } static int instack (CallInfo *ci, const TValue *o) { int pos; StkId base = ci->func.p + 1; for (pos = 0; base + pos < ci->top.p; pos++) { if (o == s2v(base + pos)) return pos; } return -1; } static const char *getupvalname (CallInfo *ci, const TValue *o, const char **name) { LClosure *c = ci_func(ci); int i; for (i = 0; i < c->nupvalues; i++) { if (c->upvals[i]->v.p == o) { *name = upvalname(c->p, i); return "upvalue"; } } return NULL; } static const char *formatvarinfo (lua_State *L, const char *kind, const char *name) { if (kind == NULL) return "carview.php?tsp="; else return luaO_pushfstring(L, " (%s '%s')", kind, name); } static const char *varinfo (lua_State *L, const TValue *o) { CallInfo *ci = L->ci; const char *name = NULL; const char *kind = NULL; if (isLua(ci)) { kind = getupvalname(ci, o, &name); if (!kind) { int reg = instack(ci, o); if (reg >= 0) kind = getobjname(ci_func(ci)->p, currentpc(ci), reg, &name); } } return formatvarinfo(L, kind, name); } static l_noret typeerror (lua_State *L, const TValue *o, const char *op, const char *extra) { const char *t = luaT_objtypename(L, o); luaG_runerror(L, "attempt to %s a %s value%s", op, t, extra); } l_noret luaG_typeerror (lua_State *L, const TValue *o, const char *op) { typeerror(L, o, op, varinfo(L, o)); } l_noret luaG_callerror (lua_State *L, const TValue *o) { CallInfo *ci = L->ci; const char *name = NULL; const char *kind = funcnamefromcall(L, ci, &name); const char *extra = kind ? formatvarinfo(L, kind, name) : varinfo(L, o); typeerror(L, o, "call", extra); } l_noret luaG_forerror (lua_State *L, const TValue *o, const char *what) { luaG_runerror(L, "bad 'for' %s (number expected, got %s)", what, luaT_objtypename(L, o)); } l_noret luaG_concaterror (lua_State *L, const TValue *p1, const TValue *p2) { if (ttisstring(p1) || cvt2str(p1)) p1 = p2; luaG_typeerror(L, p1, "concatenate"); } l_noret luaG_opinterror (lua_State *L, const TValue *p1, const TValue *p2, const char *msg) { if (!ttisnumber(p1)) p2 = p1; luaG_typeerror(L, p2, msg); } l_noret luaG_tointerror (lua_State *L, const TValue *p1, const TValue *p2) { lua_Integer temp; if (!luaV_tointegerns(p1, &temp, LUA_FLOORN2I)) p2 = p1; luaG_runerror(L, "number%s has no integer representation", varinfo(L, p2)); } l_noret luaG_ordererror (lua_State *L, const TValue *p1, const TValue *p2) { const char *t1 = luaT_objtypename(L, p1); const char *t2 = luaT_objtypename(L, p2); if (strcmp(t1, t2) == 0) luaG_runerror(L, "attempt to compare two %s values", t1); else luaG_runerror(L, "attempt to compare %s with %s", t1, t2); } const char *luaG_addinfo (lua_State *L, const char *msg, TString *src, int line) { char buff[LUA_IDSIZE]; if (src) { size_t idlen; const char *id = getlstr(src, idlen); luaO_chunkid(buff, id, idlen); } else { buff[0] = '?'; buff[1] = '\0'; } return luaO_pushfstring(L, "%s:%d: %s", buff, line, msg); } l_noret luaG_errormsg (lua_State *L) { if (L->errfunc != 0) { StkId errfunc = restorestack(L, L->errfunc); lua_assert(ttisfunction(s2v(errfunc))); setobjs2s(L, L->top.p, L->top.p - 1); setobjs2s(L, L->top.p - 1, errfunc); L->top.p++; luaD_callnoyield(L, L->top.p - 2, 1); } luaD_throw(L, LUA_ERRRUN); } l_noret luaG_runerror (lua_State *L, const char *fmt, ...) { CallInfo *ci = L->ci; const char *msg; va_list argp; luaC_checkGC(L); va_start(argp, fmt); msg = luaO_pushvfstring(L, fmt, argp); va_end(argp); if (isLua(ci)) { luaG_addinfo(L, msg, ci_func(ci)->p->source, getcurrentline(ci)); setobjs2s(L, L->top.p - 2, L->top.p - 1); L->top.p--; } luaG_errormsg(L); } static int changedline (const Proto *p, int oldpc, int newpc) { if (p->lineinfo == NULL) return 0; if (newpc - oldpc < MAXIWTHABS / 2) { int delta = 0; int pc = oldpc; for (;;) { int lineinfo = p->lineinfo[++pc]; if (lineinfo == ABSLINEINFO) break; delta += lineinfo; if (pc == newpc) return (delta != 0); } } return (luaG_getfuncline(p, oldpc) != luaG_getfuncline(p, newpc)); } int luaG_tracecall (lua_State *L) { CallInfo *ci = L->ci; Proto *p = ci_func(ci)->p; ci->u.l.trap = 1; if (ci->u.l.savedpc == p->code) { if (p->flag & PF_ISVARARG) return 0; else if (!(ci->callstatus & CIST_HOOKYIELD)) luaD_hookcall(L, ci); } return 1; } int luaG_traceexec (lua_State *L, const Instruction *pc) { CallInfo *ci = L->ci; lu_byte mask = L->hookmask; const Proto *p = ci_func(ci)->p; int counthook; if (!(mask & (LUA_MASKLINE | LUA_MASKCOUNT))) { ci->u.l.trap = 0; return 0; } pc++; ci->u.l.savedpc = pc; counthook = (mask & LUA_MASKCOUNT) && (--L->hookcount == 0); if (counthook) resethookcount(L); else if (!(mask & LUA_MASKLINE)) return 1; if (ci->callstatus & CIST_HOOKYIELD) { ci->callstatus &= ~CIST_HOOKYIELD; return 1; } if (!isIT(*(ci->u.l.savedpc - 1))) L->top.p = ci->top.p; if (counthook) luaD_hook(L, LUA_HOOKCOUNT, -1, 0, 0); if (mask & LUA_MASKLINE) { int oldpc = (L->oldpc < p->sizecode) ? L->oldpc : 0; int npci = pcRel(pc, p); if (npci <= oldpc || changedline(p, oldpc, npci)) { int newline = luaG_getfuncline(p, npci); luaD_hook(L, LUA_HOOKLINE, newline, 0, 0); } L->oldpc = npci; } if (L->status == LUA_YIELD) { if (counthook) L->hookcount = 1; ci->callstatus |= CIST_HOOKYIELD; luaD_throw(L, LUA_YIELD); } return 1; } //path: src/imports/../dependencies/lua/lfunc.c #define lfunc_c #define LUA_CORE #include CClosure *luaF_newCclosure (lua_State *L, int nupvals) { GCObject *o = luaC_newobj(L, LUA_VCCL, sizeCclosure(nupvals)); CClosure *c = gco2ccl(o); c->nupvalues = cast_byte(nupvals); return c; } LClosure *luaF_newLclosure (lua_State *L, int nupvals) { GCObject *o = luaC_newobj(L, LUA_VLCL, sizeLclosure(nupvals)); LClosure *c = gco2lcl(o); c->p = NULL; c->nupvalues = cast_byte(nupvals); while (nupvals--) c->upvals[nupvals] = NULL; return c; } void luaF_initupvals (lua_State *L, LClosure *cl) { int i; for (i = 0; i < cl->nupvalues; i++) { GCObject *o = luaC_newobj(L, LUA_VUPVAL, sizeof(UpVal)); UpVal *uv = gco2upv(o); uv->v.p = &uv->u.value; setnilvalue(uv->v.p); cl->upvals[i] = uv; luaC_objbarrier(L, cl, uv); } } static UpVal *newupval (lua_State *L, StkId level, UpVal **prev) { GCObject *o = luaC_newobj(L, LUA_VUPVAL, sizeof(UpVal)); UpVal *uv = gco2upv(o); UpVal *next = *prev; uv->v.p = s2v(level); uv->u.open.next = next; uv->u.open.previous = prev; if (next) next->u.open.previous = &uv->u.open.next; *prev = uv; if (!isintwups(L)) { L->twups = G(L)->twups; G(L)->twups = L; } return uv; } UpVal *luaF_findupval (lua_State *L, StkId level) { UpVal **pp = &L->openupval; UpVal *p; lua_assert(isintwups(L) || L->openupval == NULL); while ((p = *pp) != NULL && uplevel(p) >= level) { lua_assert(!isdead(G(L), p)); if (uplevel(p) == level) return p; pp = &p->u.open.next; } return newupval(L, level, pp); } static void callclosemethod (lua_State *L, TValue *obj, TValue *err, int yy) { StkId top = L->top.p; const TValue *tm = luaT_gettmbyobj(L, obj, TM_CLOSE); setobj2s(L, top, tm); setobj2s(L, top + 1, obj); setobj2s(L, top + 2, err); L->top.p = top + 3; if (yy) luaD_call(L, top, 0); else luaD_callnoyield(L, top, 0); } static void checkclosemth (lua_State *L, StkId level) { const TValue *tm = luaT_gettmbyobj(L, s2v(level), TM_CLOSE); if (ttisnil(tm)) { int idx = cast_int(level - L->ci->func.p); const char *vname = luaG_findlocal(L, L->ci, idx, NULL); if (vname == NULL) vname = "?"; luaG_runerror(L, "variable '%s' got a non-closable value", vname); } } static void prepcallclosemth (lua_State *L, StkId level, int status, int yy) { TValue *uv = s2v(level); TValue *errobj; if (status == CLOSEKTOP) errobj = &G(L)->nilvalue; else { errobj = s2v(level + 1); luaD_seterrorobj(L, status, level + 1); } callclosemethod(L, uv, errobj, yy); } #define MAXDELTA \ ((256ul << ((sizeof(L->stack.p->tbclist.delta) - 1) * 8)) - 1) void luaF_newtbcupval (lua_State *L, StkId level) { lua_assert(level > L->tbclist.p); if (l_isfalse(s2v(level))) return; checkclosemth(L, level); while (cast_uint(level - L->tbclist.p) > MAXDELTA) { L->tbclist.p += MAXDELTA; L->tbclist.p->tbclist.delta = 0; } level->tbclist.delta = cast(unsigned short, level - L->tbclist.p); L->tbclist.p = level; } void luaF_unlinkupval (UpVal *uv) { lua_assert(upisopen(uv)); *uv->u.open.previous = uv->u.open.next; if (uv->u.open.next) uv->u.open.next->u.open.previous = uv->u.open.previous; } void luaF_closeupval (lua_State *L, StkId level) { UpVal *uv; StkId upl; while ((uv = L->openupval) != NULL && (upl = uplevel(uv)) >= level) { TValue *slot = &uv->u.value; lua_assert(uplevel(uv) < L->top.p); luaF_unlinkupval(uv); setobj(L, slot, uv->v.p); uv->v.p = slot; if (!iswhite(uv)) { nw2black(uv); luaC_barrier(L, uv, slot); } } } static void poptbclist (lua_State *L) { StkId tbc = L->tbclist.p; lua_assert(tbc->tbclist.delta > 0); tbc -= tbc->tbclist.delta; while (tbc > L->stack.p && tbc->tbclist.delta == 0) tbc -= MAXDELTA; L->tbclist.p = tbc; } StkId luaF_close (lua_State *L, StkId level, int status, int yy) { ptrdiff_t levelrel = savestack(L, level); luaF_closeupval(L, level); while (L->tbclist.p >= level) { StkId tbc = L->tbclist.p; poptbclist(L); prepcallclosemth(L, tbc, status, yy); level = restorestack(L, levelrel); } return level; } Proto *luaF_newproto (lua_State *L) { GCObject *o = luaC_newobj(L, LUA_VPROTO, sizeof(Proto)); Proto *f = gco2p(o); f->k = NULL; f->sizek = 0; f->p = NULL; f->sizep = 0; f->code = NULL; f->sizecode = 0; f->lineinfo = NULL; f->sizelineinfo = 0; f->abslineinfo = NULL; f->sizeabslineinfo = 0; f->upvalues = NULL; f->sizeupvalues = 0; f->numparams = 0; f->flag = 0; f->maxstacksize = 0; f->locvars = NULL; f->sizelocvars = 0; f->linedefined = 0; f->lastlinedefined = 0; f->source = NULL; return f; } void luaF_freeproto (lua_State *L, Proto *f) { if (!(f->flag & PF_FIXED)) { luaM_freearray(L, f->code, f->sizecode); luaM_freearray(L, f->lineinfo, f->sizelineinfo); luaM_freearray(L, f->abslineinfo, f->sizeabslineinfo); } luaM_freearray(L, f->p, f->sizep); luaM_freearray(L, f->k, f->sizek); luaM_freearray(L, f->locvars, f->sizelocvars); luaM_freearray(L, f->upvalues, f->sizeupvalues); luaM_free(L, f); } const char *luaF_getlocalname (const Proto *f, int local_number, int pc) { int i; for (i = 0; isizelocvars && f->locvars[i].startpc <= pc; i++) { if (pc < f->locvars[i].endpc) { local_number--; if (local_number == 0) return getstr(f->locvars[i].varname); } } return NULL; } //path: src/imports/../dependencies/lua/lobject.c #define lobject_c #define LUA_CORE #include #include #include #include #include int luaO_ceillog2 (unsigned int x) { static const lu_byte log_2[256] = { 0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8 }; int l = 0; x--; while (x >= 256) { l += 8; x >>= 8; } return l + log_2[x]; } unsigned int luaO_codeparam (unsigned int p) { if (p >= (cast(lu_mem, 0x1F) << (0xF - 7 - 1)) * 100u) return 0xFF; else { p = (cast(l_uint32, p) * 128 + 99) / 100; if (p < 0x10) return p; else { int log = luaO_ceillog2(p + 1) - 5; return ((p >> log) - 0x10) | ((log + 1) << 4); } } } l_obj luaO_applyparam (unsigned int p, l_obj x) { unsigned int m = p & 0xF; int e = (p >> 4); if (e > 0) { e--; m += 0x10; } e -= 7; if (e >= 0) { if (x < (MAX_LOBJ / 0x1F) >> e) return (x * m) << e; else return MAX_LOBJ; } else { e = -e; if (x < MAX_LOBJ / 0x1F) return (x * m) >> e; else if ((x >> e) < MAX_LOBJ / 0x1F) return (x >> e) * m; else return MAX_LOBJ; } } static lua_Integer intarith (lua_State *L, int op, lua_Integer v1, lua_Integer v2) { switch (op) { case LUA_OPADD: return intop(+, v1, v2); case LUA_OPSUB:return intop(-, v1, v2); case LUA_OPMUL:return intop(*, v1, v2); case LUA_OPMOD: return luaV_mod(L, v1, v2); case LUA_OPIDIV: return luaV_idiv(L, v1, v2); case LUA_OPBAND: return intop(&, v1, v2); case LUA_OPBOR: return intop(|, v1, v2); case LUA_OPBXOR: return intop(^, v1, v2); case LUA_OPSHL: return luaV_shiftl(v1, v2); case LUA_OPSHR: return luaV_shiftr(v1, v2); case LUA_OPUNM: return intop(-, 0, v1); case LUA_OPBNOT: return intop(^, ~l_castS2U(0), v1); default: lua_assert(0); return 0; } } static lua_Number numarith (lua_State *L, int op, lua_Number v1, lua_Number v2) { switch (op) { case LUA_OPADD: return luai_numadd(L, v1, v2); case LUA_OPSUB: return luai_numsub(L, v1, v2); case LUA_OPMUL: return luai_nummul(L, v1, v2); case LUA_OPDIV: return luai_numdiv(L, v1, v2); case LUA_OPPOW: return luai_numpow(L, v1, v2); case LUA_OPIDIV: return luai_numidiv(L, v1, v2); case LUA_OPUNM: return luai_numunm(L, v1); case LUA_OPMOD: return luaV_modf(L, v1, v2); default: lua_assert(0); return 0; } } int luaO_rawarith (lua_State *L, int op, const TValue *p1, const TValue *p2, TValue *res) { switch (op) { case LUA_OPBAND: case LUA_OPBOR: case LUA_OPBXOR: case LUA_OPSHL: case LUA_OPSHR: case LUA_OPBNOT: { lua_Integer i1; lua_Integer i2; if (tointegerns(p1, &i1) && tointegerns(p2, &i2)) { setivalue(res, intarith(L, op, i1, i2)); return 1; } else return 0; } case LUA_OPDIV: case LUA_OPPOW: { lua_Number n1; lua_Number n2; if (tonumberns(p1, n1) && tonumberns(p2, n2)) { setfltvalue(res, numarith(L, op, n1, n2)); return 1; } else return 0; } default: { lua_Number n1; lua_Number n2; if (ttisinteger(p1) && ttisinteger(p2)) { setivalue(res, intarith(L, op, ivalue(p1), ivalue(p2))); return 1; } else if (tonumberns(p1, n1) && tonumberns(p2, n2)) { setfltvalue(res, numarith(L, op, n1, n2)); return 1; } else return 0; } } } void luaO_arith (lua_State *L, int op, const TValue *p1, const TValue *p2, StkId res) { if (!luaO_rawarith(L, op, p1, p2, s2v(res))) { luaT_trybinTM(L, p1, p2, res, cast(TMS, (op - LUA_OPADD) + TM_ADD)); } } int luaO_hexavalue (int c) { if (lisdigit(c)) return c - '0'; else return (ltolower(c) - 'a') + 10; } static int isneg (const char **s) { if (**s == '-') { (*s)++; return 1; } else if (**s == '+') (*s)++; return 0; } #if !defined(lua_strx2number) #define MAXSIGDIG 30 static lua_Number lua_strx2number (const char *s, char **endptr) { int dot = lua_getlocaledecpoint(); lua_Number r = l_mathop(0.0); int sigdig = 0; int nosigdig = 0; int e = 0; int neg; int hasdot = 0; *endptr = cast_charp(s); while (lisspace(cast_uchar(*s))) s++; neg = isneg(&s); if (!(*s == '0' && (*(s + 1) == 'x' || *(s + 1) == 'X'))) return l_mathop(0.0); for (s += 2; ; s++) { if (*s == dot) { if (hasdot) break; else hasdot = 1; } else if (lisxdigit(cast_uchar(*s))) { if (sigdig == 0 && *s == '0') nosigdig++; else if (++sigdig <= MAXSIGDIG) r = (r * l_mathop(16.0)) + luaO_hexavalue(*s); else e++; if (hasdot) e--; } else break; } if (nosigdig + sigdig == 0) return l_mathop(0.0); *endptr = cast_charp(s); e *= 4; if (*s == 'p' || *s == 'P') { int exp1 = 0; int neg1; s++; neg1 = isneg(&s); if (!lisdigit(cast_uchar(*s))) return l_mathop(0.0); while (lisdigit(cast_uchar(*s))) exp1 = exp1 * 10 + *(s++) - '0'; if (neg1) exp1 = -exp1; e += exp1; *endptr = cast_charp(s); } if (neg) r = -r; return l_mathop(ldexp)(r, e); } #endif #if !defined (L_MAXLENNUM) #define L_MAXLENNUM 200 #endif static const char *l_str2dloc (const char *s, lua_Number *result, int mode) { char *endptr; *result = (mode == 'x') ? lua_strx2number(s, &endptr) : lua_str2number(s, &endptr); if (endptr == s) return NULL; while (lisspace(cast_uchar(*endptr))) endptr++; return (*endptr == '\0') ? endptr : NULL; } static const char *l_str2d (const char *s, lua_Number *result) { const char *endptr; const char *pmode = strpbrk(s, ".xXnN"); int mode = pmode ? ltolower(cast_uchar(*pmode)) : 0; if (mode == 'n') return NULL; endptr = l_str2dloc(s, result, mode); if (endptr == NULL) { char buff[L_MAXLENNUM + 1]; const char *pdot = strchr(s, '.'); if (pdot == NULL || strlen(s) > L_MAXLENNUM) return NULL; strcpy(buff, s); buff[pdot - s] = lua_getlocaledecpoint(); endptr = l_str2dloc(buff, result, mode); if (endptr != NULL) endptr = s + (endptr - buff); } return endptr; } #define MAXBY10 cast(lua_Unsigned, LUA_MAXINTEGER / 10) #define MAXLASTD cast_int(LUA_MAXINTEGER % 10) static const char *l_str2int (const char *s, lua_Integer *result) { lua_Unsigned a = 0; int empty = 1; int neg; while (lisspace(cast_uchar(*s))) s++; neg = isneg(&s); if (s[0] == '0' && (s[1] == 'x' || s[1] == 'X')) { s += 2; for (; lisxdigit(cast_uchar(*s)); s++) { a = a * 16 + luaO_hexavalue(*s); empty = 0; } } else { for (; lisdigit(cast_uchar(*s)); s++) { int d = *s - '0'; if (a >= MAXBY10 && (a > MAXBY10 || d > MAXLASTD + neg)) return NULL; a = a * 10 + d; empty = 0; } } while (lisspace(cast_uchar(*s))) s++; if (empty || *s != '\0') return NULL; else { *result = l_castU2S((neg) ? 0u - a : a); return s; } } size_t luaO_str2num (const char *s, TValue *o) { lua_Integer i; lua_Number n; const char *e; if ((e = l_str2int(s, &i)) != NULL) { setivalue(o, i); } else if ((e = l_str2d(s, &n)) != NULL) { setfltvalue(o, n); } else return 0; return (e - s) + 1; } int luaO_utf8esc (char *buff, unsigned long x) { int n = 1; lua_assert(x <= 0x7FFFFFFFu); if (x < 0x80) buff[UTF8BUFFSZ - 1] = cast_char(x); else { unsigned int mfb = 0x3f; do { buff[UTF8BUFFSZ - (n++)] = cast_char(0x80 | (x & 0x3f)); x >>= 6; mfb >>= 1; } while (x > mfb); buff[UTF8BUFFSZ - n] = cast_char((~mfb << 1) | x); } return n; } #define MAXNUMBER2STR 44 static int tostringbuff (TValue *obj, char *buff) { int len; lua_assert(ttisnumber(obj)); if (ttisinteger(obj)) len = lua_integer2str(buff, MAXNUMBER2STR, ivalue(obj)); else { len = lua_number2str(buff, MAXNUMBER2STR, fltvalue(obj)); if (buff[strspn(buff, "-0123456789")] == '\0') { buff[len++] = lua_getlocaledecpoint(); buff[len++] = '0'; } } return len; } void luaO_tostring (lua_State *L, TValue *obj) { char buff[MAXNUMBER2STR]; int len = tostringbuff(obj, buff); setsvalue(L, obj, luaS_newlstr(L, buff, len)); } #define BUFVFS (LUA_IDSIZE + MAXNUMBER2STR + 95) typedef struct BuffFS { lua_State *L; int pushed; int blen; char space[BUFVFS]; } BuffFS; static void pushstr (BuffFS *buff, const char *str, size_t lstr) { lua_State *L = buff->L; setsvalue2s(L, L->top.p, luaS_newlstr(L, str, lstr)); L->top.p++; if (!buff->pushed) buff->pushed = 1; else luaV_concat(L, 2); } static void clearbuff (BuffFS *buff) { pushstr(buff, buff->space, buff->blen); buff->blen = 0; } static char *getbuff (BuffFS *buff, int sz) { lua_assert(buff->blen <= BUFVFS); lua_assert(sz <= BUFVFS); if (sz > BUFVFS - buff->blen) clearbuff(buff); return buff->space + buff->blen; } #define addsize(b,sz) ((b)->blen += (sz)) static void addstr2buff (BuffFS *buff, const char *str, size_t slen) { if (slen <= BUFVFS) { char *bf = getbuff(buff, cast_int(slen)); memcpy(bf, str, slen); addsize(buff, cast_int(slen)); } else { clearbuff(buff); pushstr(buff, str, slen); } } static void addnum2buff (BuffFS *buff, TValue *num) { char *numbuff = getbuff(buff, MAXNUMBER2STR); int len = tostringbuff(num, numbuff); addsize(buff, len); } const char *luaO_pushvfstring (lua_State *L, const char *fmt, va_list argp) { BuffFS buff; const char *e; buff.pushed = buff.blen = 0; buff.L = L; while ((e = strchr(fmt, '%')) != NULL) { addstr2buff(&buff, fmt, e - fmt); switch (*(e + 1)) { case 's': { const char *s = va_arg(argp, char *); if (s == NULL) s = "(null)"; addstr2buff(&buff, s, strlen(s)); break; } case 'c': { char c = cast_uchar(va_arg(argp, int)); addstr2buff(&buff, &c, sizeof(char)); break; } case 'd': { TValue num; setivalue(&num, va_arg(argp, int)); addnum2buff(&buff, &num); break; } case 'I': { TValue num; setivalue(&num, cast(lua_Integer, va_arg(argp, l_uacInt))); addnum2buff(&buff, &num); break; } case 'f': { TValue num; setfltvalue(&num, cast_num(va_arg(argp, l_uacNumber))); addnum2buff(&buff, &num); break; } case 'p': { const int sz = 3 * sizeof(void*) + 8; char *bf = getbuff(&buff, sz); void *p = va_arg(argp, void *); int len = lua_pointer2str(bf, sz, p); addsize(&buff, len); break; } case 'U': { char bf[UTF8BUFFSZ]; int len = luaO_utf8esc(bf, va_arg(argp, long)); addstr2buff(&buff, bf + UTF8BUFFSZ - len, len); break; } case '%': { addstr2buff(&buff, "%", 1); break; } default: { luaG_runerror(L, "invalid option '%%%c' to 'lua_pushfstring'", *(e + 1)); } } fmt = e + 2; } addstr2buff(&buff, fmt, strlen(fmt)); clearbuff(&buff); lua_assert(buff.pushed == 1); return getstr(tsvalue(s2v(L->top.p - 1))); } const char *luaO_pushfstring (lua_State *L, const char *fmt, ...) { const char *msg; va_list argp; va_start(argp, fmt); msg = luaO_pushvfstring(L, fmt, argp); va_end(argp); return msg; } #define RETS "..." #define PRE "[string \"carview.php?tsp=" #define POS "\"]" #define addstr(a,b,l) ( memcpy(a,b,(l) * sizeof(char)), a += (l) ) void luaO_chunkid (char *out, const char *source, size_t srclen) { size_t bufflen = LUA_IDSIZE; if (*source == '=') { if (srclen <= bufflen) memcpy(out, source + 1, srclen * sizeof(char)); else { addstr(out, source + 1, bufflen - 1); *out = '\0'; } } else if (*source == '@') { if (srclen <= bufflen) memcpy(out, source + 1, srclen * sizeof(char)); else { addstr(out, RETS, LL(RETS)); bufflen -= LL(RETS); memcpy(out, source + 1 + srclen - bufflen, bufflen * sizeof(char)); } } else { const char *nl = strchr(source, '\n'); addstr(out, PRE, LL(PRE)); bufflen -= LL(PRE RETS POS) + 1; if (srclen < bufflen && nl == NULL) { addstr(out, source, srclen); } else { if (nl != NULL) srclen = nl - source; if (srclen > bufflen) srclen = bufflen; addstr(out, source, srclen); addstr(out, RETS, LL(RETS)); } memcpy(out, POS, (LL(POS) + 1) * sizeof(char)); } } //path: src/imports/../dependencies/lua/ltm.c #define ltm_c #define LUA_CORE #include static const char udatatypename[] = "userdata"; LUAI_DDEF const char *const luaT_typenames_[LUA_TOTALTYPES] = { "no value", "nil", "boolean", udatatypename, "number", "string", "table", "function", udatatypename, "thread", "upvalue", "proto" }; void luaT_init (lua_State *L) { static const char *const luaT_eventname[] = { "__index", "__newindex", "__gc", "__mode", "__len", "__eq", "__add", "__sub", "__mul", "__mod", "__pow", "__div", "__idiv", "__band", "__bor", "__bxor", "__shl", "__shr", "__unm", "__bnot", "__lt", "__le", "__concat", "__call", "__close" }; int i; for (i=0; itmname[i] = luaS_new(L, luaT_eventname[i]); luaC_fix(L, obj2gco(G(L)->tmname[i])); } } const TValue *luaT_gettm (Table *events, TMS event, TString *ename) { const TValue *tm = luaH_Hgetshortstr(events, ename); lua_assert(event <= TM_EQ); if (notm(tm)) { events->flags |= cast_byte(1u<metatable; break; case LUA_TUSERDATA: mt = uvalue(o)->metatable; break; default: mt = G(L)->mt[ttype(o)]; } return (mt ? luaH_Hgetshortstr(mt, G(L)->tmname[event]) : &G(L)->nilvalue); } const char *luaT_objtypename (lua_State *L, const TValue *o) { Table *mt; if ((ttistable(o) && (mt = hvalue(o)->metatable) != NULL) || (ttisfulluserdata(o) && (mt = uvalue(o)->metatable) != NULL)) { const TValue *name = luaH_Hgetshortstr(mt, luaS_new(L, "__name")); if (ttisstring(name)) return getstr(tsvalue(name)); } return ttypename(ttype(o)); } void luaT_callTM (lua_State *L, const TValue *f, const TValue *p1, const TValue *p2, const TValue *p3) { StkId func = L->top.p; setobj2s(L, func, f); setobj2s(L, func + 1, p1); setobj2s(L, func + 2, p2); setobj2s(L, func + 3, p3); L->top.p = func + 4; if (isLuacode(L->ci)) luaD_call(L, func, 0); else luaD_callnoyield(L, func, 0); } int luaT_callTMres (lua_State *L, const TValue *f, const TValue *p1, const TValue *p2, StkId res) { ptrdiff_t result = savestack(L, res); StkId func = L->top.p; setobj2s(L, func, f); setobj2s(L, func + 1, p1); setobj2s(L, func + 2, p2); L->top.p += 3; if (isLuacode(L->ci)) luaD_call(L, func, 1); else luaD_callnoyield(L, func, 1); res = restorestack(L, result); setobjs2s(L, res, --L->top.p); return ttypetag(s2v(res)); } static int callbinTM (lua_State *L, const TValue *p1, const TValue *p2, StkId res, TMS event) { const TValue *tm = luaT_gettmbyobj(L, p1, event); if (notm(tm)) tm = luaT_gettmbyobj(L, p2, event); if (notm(tm)) return -1; else return luaT_callTMres(L, tm, p1, p2, res); } void luaT_trybinTM (lua_State *L, const TValue *p1, const TValue *p2, StkId res, TMS event) { if (l_unlikely(callbinTM(L, p1, p2, res, event) < 0)) { switch (event) { case TM_BAND: case TM_BOR: case TM_BXOR: case TM_SHL: case TM_SHR: case TM_BNOT: { if (ttisnumber(p1) && ttisnumber(p2)) luaG_tointerror(L, p1, p2); else luaG_opinterror(L, p1, p2, "perform bitwise operation on"); } /* FALLTHROUGH */ default: luaG_opinterror(L, p1, p2, "perform arithmetic on"); } } } void luaT_tryconcatTM (lua_State *L) { StkId p1 = L->top.p - 2; if (l_unlikely(callbinTM(L, s2v(p1), s2v(p1 + 1), p1, TM_CONCAT) < 0)) luaG_concaterror(L, s2v(p1), s2v(p1 + 1)); } void luaT_trybinassocTM (lua_State *L, const TValue *p1, const TValue *p2, int flip, StkId res, TMS event) { if (flip) luaT_trybinTM(L, p2, p1, res, event); else luaT_trybinTM(L, p1, p2, res, event); } void luaT_trybiniTM (lua_State *L, const TValue *p1, lua_Integer i2, int flip, StkId res, TMS event) { TValue aux; setivalue(&aux, i2); luaT_trybinassocTM(L, p1, &aux, flip, res, event); } int luaT_callorderTM (lua_State *L, const TValue *p1, const TValue *p2, TMS event) { int tag = callbinTM(L, p1, p2, L->top.p, event); if (tag >= 0) return !tagisfalse(tag); #if defined(LUA_COMPAT_LT_LE) else if (event == TM_LE) { L->ci->callstatus |= CIST_LEQ; tag = callbinTM(L, p2, p1, L->top.p, TM_LT); L->ci->callstatus ^= CIST_LEQ; if (tag >= 0) return tagisfalse(tag); } #endif luaG_ordererror(L, p1, p2); return 0; } int luaT_callorderiTM (lua_State *L, const TValue *p1, int v2, int flip, int isfloat, TMS event) { TValue aux; const TValue *p2; if (isfloat) { setfltvalue(&aux, cast_num(v2)); } else setivalue(&aux, v2); if (flip) { p2 = p1; p1 = &aux; } else p2 = &aux; return luaT_callorderTM(L, p1, p2, event); } void luaT_adjustvarargs (lua_State *L, int nfixparams, CallInfo *ci, const Proto *p) { int i; int actual = cast_int(L->top.p - ci->func.p) - 1; int nextra = actual - nfixparams; ci->u.l.nextraargs = nextra; luaD_checkstack(L, p->maxstacksize + 1); setobjs2s(L, L->top.p++, ci->func.p); for (i = 1; i <= nfixparams; i++) { setobjs2s(L, L->top.p++, ci->func.p + i); setnilvalue(s2v(ci->func.p + i)); } ci->func.p += actual + 1; ci->top.p += actual + 1; lua_assert(L->top.p <= ci->top.p && ci->top.p <= L->stack_last.p); } void luaT_getvarargs (lua_State *L, CallInfo *ci, StkId where, int wanted) { int i; int nextra = ci->u.l.nextraargs; if (wanted < 0) { wanted = nextra; checkstackp(L, nextra, where); L->top.p = where + nextra; } for (i = 0; i < wanted && i < nextra; i++) setobjs2s(L, where + i, ci->func.p - nextra + i); for (; i < wanted; i++) setnilvalue(s2v(where + i)); } //path: src/imports/../dependencies/lua/lstring.c #define lstring_c #define LUA_CORE #include #define MAXSTRTB cast_int(luaM_limitN(MAX_INT, TString*)) int luaS_eqlngstr (TString *a, TString *b) { size_t len = a->u.lnglen; lua_assert(a->tt == LUA_VLNGSTR && b->tt == LUA_VLNGSTR); return (a == b) || ((len == b->u.lnglen) && (memcmp(getlngstr(a), getlngstr(b), len) == 0)); } unsigned luaS_hash (const char *str, size_t l, unsigned seed) { unsigned int h = seed ^ cast_uint(l); for (; l > 0; l--) h ^= ((h<<5) + (h>>2) + cast_byte(str[l - 1])); return h; } unsigned luaS_hashlongstr (TString *ts) { lua_assert(ts->tt == LUA_VLNGSTR); if (ts->extra == 0) { size_t len = ts->u.lnglen; ts->hash = luaS_hash(getlngstr(ts), len, ts->hash); ts->extra = 1; } return ts->hash; } static void tablerehash (TString **vect, int osize, int nsize) { int i; for (i = osize; i < nsize; i++) vect[i] = NULL; for (i = 0; i < osize; i++) { TString *p = vect[i]; vect[i] = NULL; while (p) { TString *hnext = p->u.hnext; unsigned int h = lmod(p->hash, nsize); p->u.hnext = vect[h]; vect[h] = p; p = hnext; } } } void luaS_resize (lua_State *L, int nsize) { stringtable *tb = &G(L)->strt; int osize = tb->size; TString **newvect; if (nsize < osize) tablerehash(tb->hash, osize, nsize); newvect = luaM_reallocvector(L, tb->hash, osize, nsize, TString*); if (l_unlikely(newvect == NULL)) { if (nsize < osize) tablerehash(tb->hash, nsize, osize); } else { tb->hash = newvect; tb->size = nsize; if (nsize > osize) tablerehash(newvect, osize, nsize); } } void luaS_clearcache (global_State *g) { int i, j; for (i = 0; i < STRCACHE_N; i++) for (j = 0; j < STRCACHE_M; j++) { if (iswhite(g->strcache[i][j])) g->strcache[i][j] = g->memerrmsg; } } void luaS_init (lua_State *L) { global_State *g = G(L); int i, j; stringtable *tb = &G(L)->strt; tb->hash = luaM_newvector(L, MINSTRTABSIZE, TString*); tablerehash(tb->hash, 0, MINSTRTABSIZE); tb->size = MINSTRTABSIZE; g->memerrmsg = luaS_newliteral(L, MEMERRMSG); luaC_fix(L, obj2gco(g->memerrmsg)); for (i = 0; i < STRCACHE_N; i++) for (j = 0; j < STRCACHE_M; j++) g->strcache[i][j] = g->memerrmsg; } size_t luaS_sizelngstr (size_t len, int kind) { switch (kind) { case LSTRREG: return offsetof(TString, falloc) + (len + 1) * sizeof(char); case LSTRFIX: return offsetof(TString, falloc); default: lua_assert(kind == LSTRMEM); return sizeof(TString); } } static TString *createstrobj (lua_State *L, size_t totalsize, int tag, unsigned h) { TString *ts; GCObject *o; o = luaC_newobj(L, tag, totalsize); ts = gco2ts(o); ts->hash = h; ts->extra = 0; return ts; } TString *luaS_createlngstrobj (lua_State *L, size_t l) { size_t totalsize = luaS_sizelngstr(l, LSTRREG); TString *ts = createstrobj(L, totalsize, LUA_VLNGSTR, G(L)->seed); ts->u.lnglen = l; ts->shrlen = LSTRREG; ts->contents = cast_charp(ts) + offsetof(TString, falloc); ts->contents[l] = '\0'; return ts; } void luaS_remove (lua_State *L, TString *ts) { stringtable *tb = &G(L)->strt; TString **p = &tb->hash[lmod(ts->hash, tb->size)]; while (*p != ts) p = &(*p)->u.hnext; *p = (*p)->u.hnext; tb->nuse--; } static void growstrtab (lua_State *L, stringtable *tb) { if (l_unlikely(tb->nuse == MAX_INT)) { luaC_fullgc(L, 1); if (tb->nuse == MAX_INT) luaM_error(L); } if (tb->size <= MAXSTRTB / 2) luaS_resize(L, tb->size * 2); } static TString *internshrstr (lua_State *L, const char *str, size_t l) { TString *ts; global_State *g = G(L); stringtable *tb = &g->strt; unsigned int h = luaS_hash(str, l, g->seed); TString **list = &tb->hash[lmod(h, tb->size)]; lua_assert(str != NULL); for (ts = *list; ts != NULL; ts = ts->u.hnext) { if (l == cast_uint(ts->shrlen) && (memcmp(str, getshrstr(ts), l * sizeof(char)) == 0)) { if (isdead(g, ts)) changewhite(ts); return ts; } } if (tb->nuse >= tb->size) { growstrtab(L, tb); list = &tb->hash[lmod(h, tb->size)]; } ts = createstrobj(L, sizestrshr(l), LUA_VSHRSTR, h); ts->shrlen = cast_byte(l); getshrstr(ts)[l] = '\0'; memcpy(getshrstr(ts), str, l * sizeof(char)); ts->u.hnext = *list; *list = ts; tb->nuse++; return ts; } TString *luaS_newlstr (lua_State *L, const char *str, size_t l) { if (l <= LUAI_MAXSHORTLEN) return internshrstr(L, str, l); else { TString *ts; if (l_unlikely(l * sizeof(char) >= (MAX_SIZE - sizeof(TString)))) luaM_toobig(L); ts = luaS_createlngstrobj(L, l); memcpy(getlngstr(ts), str, l * sizeof(char)); return ts; } } TString *luaS_new (lua_State *L, const char *str) { unsigned int i = point2uint(str) % STRCACHE_N; int j; TString **p = G(L)->strcache[i]; for (j = 0; j < STRCACHE_M; j++) { if (strcmp(str, getstr(p[j])) == 0) return p[j]; } for (j = STRCACHE_M - 1; j > 0; j--) p[j] = p[j - 1]; p[0] = luaS_newlstr(L, str, strlen(str)); return p[0]; } Udata *luaS_newudata (lua_State *L, size_t s, int nuvalue) { Udata *u; int i; GCObject *o; if (l_unlikely(s > MAX_SIZE - udatamemoffset(nuvalue))) luaM_toobig(L); o = luaC_newobj(L, LUA_VUSERDATA, sizeudata(nuvalue, s)); u = gco2u(o); u->len = s; u->nuvalue = nuvalue; u->metatable = NULL; for (i = 0; i < nuvalue; i++) setnilvalue(&u->uv[i].uv); return u; } struct NewExt { int kind; const char *s; size_t len; TString *ts; }; static void f_newext (lua_State *L, void *ud) { struct NewExt *ne = cast(struct NewExt *, ud); size_t size = luaS_sizelngstr(0, ne->kind); ne->ts = createstrobj(L, size, LUA_VLNGSTR, G(L)->seed); } static void f_pintern (lua_State *L, void *ud) { struct NewExt *ne = cast(struct NewExt *, ud); ne->ts = internshrstr(L, ne->s, ne->len); } TString *luaS_newextlstr (lua_State *L, const char *s, size_t len, lua_Alloc falloc, void *ud) { struct NewExt ne; if (len <= LUAI_MAXSHORTLEN) { ne.s = s; ne.len = len; if (!falloc) f_pintern(L, &ne); else { int status = luaD_rawrunprotected(L, f_pintern, &ne); (*falloc)(ud, cast_voidp(s), len + 1, 0); if (status != LUA_OK) luaM_error(L); } return ne.ts; } if (!falloc) { ne.kind = LSTRFIX; f_newext(L, &ne); } else { ne.kind = LSTRMEM; if (luaD_rawrunprotected(L, f_newext, &ne) != LUA_OK) { (*falloc)(ud, cast_voidp(s), len + 1, 0); luaM_error(L); } ne.ts->falloc = falloc; ne.ts->ud = ud; } ne.ts->shrlen = ne.kind; ne.ts->u.lnglen = len; ne.ts->contents = cast_charp(s); return ne.ts; } //path: src/imports/../dependencies/lua/ltable.c #define ltable_c #define LUA_CORE #include #define LIMFORLAST 2 typedef struct { Node *dummy; Node follows_pNode; } Limbox_aux; typedef union { Node *lastfree; char padding[offsetof(Limbox_aux, follows_pNode)]; } Limbox; #define haslastfree(t) ((t)->lsizenode > LIMFORLAST) #define getlastfree(t) ((cast(Limbox *, (t)->node) - 1)->lastfree) #define MAXABITS cast_int(sizeof(int) * CHAR_BIT - 1) #define MAXASIZEB ((MAX_SIZET/sizeof(ArrayCell)) * NM) #define MAXASIZE \ (((1u << MAXABITS) < MAXASIZEB) ? (1u << MAXABITS) : cast_uint(MAXASIZEB)) #define MAXHBITS (MAXABITS - 1) #define MAXHSIZE luaM_limitN(1u << MAXHBITS, Node) #define hashpow2(t,n) (gnode(t, lmod((n), sizenode(t)))) #define hashmod(t,n) (gnode(t, ((n) % ((sizenode(t)-1)|1)))) #define hashstr(t,str) hashpow2(t, (str)->hash) #define hashboolean(t,p) hashpow2(t, p) #define hashpointer(t,p) hashmod(t, point2uint(p)) #define dummynode (&dummynode_) static const Node dummynode_ = { {{NULL}, LUA_VEMPTY, LUA_VNIL, 0, {NULL}} }; static const TValue absentkey = {ABSTKEYCONSTANT}; static Node *hashint (const Table *t, lua_Integer i) { lua_Unsigned ui = l_castS2U(i); if (ui <= cast_uint(INT_MAX)) return hashmod(t, cast_int(ui)); else return hashmod(t, ui); } #if !defined(l_hashfloat) static int l_hashfloat (lua_Number n) { int i; lua_Integer ni; n = l_mathop(private_lua_cembed_frexp)(n, &i) * -cast_num(INT_MIN); if (!lua_numbertointeger(n, &ni)) { lua_assert(luai_numisnan(n) || l_mathop(fabs)(n) == cast_num(HUGE_VAL)); return 0; } else { unsigned int u = cast_uint(i) + cast_uint(ni); return cast_int(u <= cast_uint(INT_MAX) ? u : ~u); } } #endif static Node *mainpositionTV (const Table *t, const TValue *key) { switch (ttypetag(key)) { case LUA_VNUMINT: { lua_Integer i = ivalue(key); return hashint(t, i); } case LUA_VNUMFLT: { lua_Number n = fltvalue(key); return hashmod(t, l_hashfloat(n)); } case LUA_VSHRSTR: { TString *ts = tsvalue(key); return hashstr(t, ts); } case LUA_VLNGSTR: { TString *ts = tsvalue(key); return hashpow2(t, luaS_hashlongstr(ts)); } case LUA_VFALSE: return hashboolean(t, 0); case LUA_VTRUE: return hashboolean(t, 1); case LUA_VLIGHTUSERDATA: { void *p = pvalue(key); return hashpointer(t, p); } case LUA_VLCF: { lua_CFunction f = fvalue(key); return hashpointer(t, f); } default: { GCObject *o = gcvalue(key); return hashpointer(t, o); } } } l_sinline Node *mainpositionfromnode (const Table *t, Node *nd) { TValue key; getnodekey(cast(lua_State *, NULL), &key, nd); return mainpositionTV(t, &key); } static int equalkey (const TValue *k1, const Node *n2, int deadok) { if ((rawtt(k1) != keytt(n2)) && !(deadok && keyisdead(n2) && iscollectable(k1))) return 0; switch (keytt(n2)) { case LUA_VNIL: case LUA_VFALSE: case LUA_VTRUE: return 1; case LUA_VNUMINT: return (ivalue(k1) == keyival(n2)); case LUA_VNUMFLT: return luai_numeq(fltvalue(k1), fltvalueraw(keyval(n2))); case LUA_VLIGHTUSERDATA: return pvalue(k1) == pvalueraw(keyval(n2)); case LUA_VLCF: return fvalue(k1) == fvalueraw(keyval(n2)); case ctb(LUA_VLNGSTR): return luaS_eqlngstr(tsvalue(k1), keystrval(n2)); default: return gcvalue(k1) == gcvalueraw(keyval(n2)); } } #define limitequalsasize(t) (isrealasize(t) || ispow2((t)->alimit)) LUAI_FUNC unsigned int luaH_realasize (const Table *t) { if (limitequalsasize(t)) return t->alimit; else { unsigned int size = t->alimit; size |= (size >> 1); size |= (size >> 2); size |= (size >> 4); size |= (size >> 8); #if (UINT_MAX >> 14) > 3 size |= (size >> 16); #if (UINT_MAX >> 30) > 3 size |= (size >> 32); #endif #endif size++; lua_assert(ispow2(size) && size/2 < t->alimit && t->alimit < size); return size; } } static int ispow2realasize (const Table *t) { return (!isrealasize(t) || ispow2(t->alimit)); } static unsigned int setlimittosize (Table *t) { t->alimit = luaH_realasize(t); setrealasize(t); return t->alimit; } #define limitasasize(t) check_exp(isrealasize(t), t->alimit) static const TValue *getgeneric (Table *t, const TValue *key, int deadok) { Node *n = mainpositionTV(t, key); for (;;) { if (equalkey(key, n, deadok)) return gval(n); else { int nx = gnext(n); if (nx == 0) return &absentkey; n += nx; } } } static unsigned int arrayindex (lua_Integer k) { if (l_castS2U(k) - 1u < MAXASIZE) return cast_uint(k); else return 0; } static unsigned findindex (lua_State *L, Table *t, TValue *key, unsigned asize) { unsigned int i; if (ttisnil(key)) return 0; i = ttisinteger(key) ? arrayindex(ivalue(key)) : 0; if (i - 1u < asize) return i; else { const TValue *n = getgeneric(t, key, 1); if (l_unlikely(isabstkey(n))) luaG_runerror(L, "invalid key to 'next'"); i = cast_int(nodefromval(n) - gnode(t, 0)); return (i + 1) + asize; } } int luaH_next (lua_State *L, Table *t, StkId key) { unsigned int asize = luaH_realasize(t); unsigned int i = findindex(L, t, s2v(key), asize); for (; i < asize; i++) { int tag = *getArrTag(t, i); if (!tagisempty(tag)) { setivalue(s2v(key), i + 1); farr2val(t, i + 1, tag, s2v(key + 1)); return 1; } } for (i -= asize; cast_int(i) < sizenode(t); i++) { if (!isempty(gval(gnode(t, i)))) { Node *n = gnode(t, i); getnodekey(L, s2v(key), n); setobj2s(L, key + 1, gval(n)); return 1; } } return 0; } static void freehash (lua_State *L, Table *t) { if (!isdummy(t)) { size_t bsize = sizenode(t) * sizeof(Node); char *arr = cast_charp(t->node); if (haslastfree(t)) { bsize += sizeof(Limbox); arr -= sizeof(Limbox); } luaM_freearray(L, arr, bsize); } } static int keyinarray (Table *t, lua_Integer key) { lua_Unsigned alimit = t->alimit; if (l_castS2U(key) - 1u < alimit) return 1; else if (!isrealasize(t) && (((l_castS2U(key) - 1u) & ~(alimit - 1u)) < alimit)) { t->alimit = cast_uint(key); return 1; } else return 0; } static unsigned computesizes (unsigned nums[], unsigned *pna) { int i; unsigned int twotoi; unsigned int a = 0; unsigned int na = 0; unsigned int optimal = 0; for (i = 0, twotoi = 1; twotoi > 0 && *pna > twotoi / 2; i++, twotoi *= 2) { a += nums[i]; if (a > twotoi/2) { optimal = twotoi; na = a; } } lua_assert((optimal == 0 || optimal / 2 < na) && na <= optimal); *pna = na; return optimal; } static int countint (lua_Integer key, unsigned int *nums) { unsigned int k = arrayindex(key); if (k != 0) { nums[luaO_ceillog2(k)]++; return 1; } else return 0; } l_sinline int arraykeyisempty (const Table *t, lua_Integer key) { int tag = *getArrTag(t, key - 1); return tagisempty(tag); } static unsigned numusearray (const Table *t, unsigned *nums) { int lg; unsigned int ttlg; unsigned int ause = 0; unsigned int i = 1; unsigned int asize = limitasasize(t); for (lg = 0, ttlg = 1; lg <= MAXABITS; lg++, ttlg *= 2) { unsigned int lc = 0; unsigned int lim = ttlg; if (lim > asize) { lim = asize; if (i > lim) break; } for (; i <= lim; i++) { if (!arraykeyisempty(t, i)) lc++; } nums[lg] += lc; ause += lc; } return ause; } static int numusehash (const Table *t, unsigned *nums, unsigned *pna) { int totaluse = 0; int ause = 0; int i = sizenode(t); while (i--) { Node *n = &t->node[i]; if (!isempty(gval(n))) { if (keyisinteger(n)) ause += countint(keyival(n), nums); totaluse++; } } *pna += ause; return totaluse; } static size_t concretesize (unsigned int size) { unsigned int numcells = (size + NM - 1) / NM; unsigned int extra = NM - 1 - ((size + NM - 1) % NM); return numcells * sizeof(ArrayCell) - extra * sizeof(Value); } static ArrayCell *resizearray (lua_State *L , Table *t, unsigned oldasize, unsigned newasize) { size_t oldasizeb = concretesize(oldasize); size_t newasizeb = concretesize(newasize); void *a = luaM_reallocvector(L, t->array, oldasizeb, newasizeb, lu_byte); return cast(ArrayCell*, a); } static void setnodevector (lua_State *L, Table *t, unsigned size) { if (size == 0) { t->node = cast(Node *, dummynode); t->lsizenode = 0; setdummy(t); } else { int i; int lsize = luaO_ceillog2(size); if (lsize > MAXHBITS || (1u << lsize) > MAXHSIZE) luaG_runerror(L, "table overflow"); size = twoto(lsize); if (lsize <= LIMFORLAST) t->node = luaM_newvector(L, size, Node); else { size_t bsize = size * sizeof(Node) + sizeof(Limbox); char *node = luaM_newblock(L, bsize); t->node = cast(Node *, node + sizeof(Limbox)); getlastfree(t) = gnode(t, size); } t->lsizenode = cast_byte(lsize); setnodummy(t); for (i = 0; i < cast_int(size); i++) { Node *n = gnode(t, i); gnext(n) = 0; setnilkey(n); setempty(gval(n)); } } } static void reinsert (lua_State *L, Table *ot, Table *t) { int j; int size = sizenode(ot); for (j = 0; j < size; j++) { Node *old = gnode(ot, j); if (!isempty(gval(old))) { TValue k; getnodekey(L, &k, old); luaH_set(L, t, &k, gval(old)); } } } static void exchangehashpart (Table *t1, Table *t2) { lu_byte lsizenode = t1->lsizenode; Node *node = t1->node; int bitdummy1 = t1->flags & BITDUMMY; t1->lsizenode = t2->lsizenode; t1->node = t2->node; t1->flags = (t1->flags & NOTBITDUMMY) | (t2->flags & BITDUMMY); t2->lsizenode = lsizenode; t2->node = node; t2->flags = (t2->flags & NOTBITDUMMY) | bitdummy1; } static void reinsertOldSlice (lua_State *L, Table *t, unsigned oldasize, unsigned newasize) { unsigned i; t->alimit = newasize; for (i = newasize; i < oldasize; i++) { int tag = *getArrTag(t, i); if (!tagisempty(tag)) { TValue aux; farr2val(t, i + 1, tag, &aux); luaH_setint(L, t, i + 1, &aux); } } t->alimit = oldasize; } static void clearNewSlice (Table *t, unsigned oldasize, unsigned newasize) { for (; oldasize < newasize; oldasize++) *getArrTag(t, oldasize) = LUA_VEMPTY; } void luaH_resize (lua_State *L, Table *t, unsigned newasize, unsigned nhsize) { Table newt; unsigned int oldasize = setlimittosize(t); ArrayCell *newarray; if (newasize > MAXASIZE) luaG_runerror(L, "table overflow"); newt.flags = 0; setnodevector(L, &newt, nhsize); if (newasize < oldasize) { exchangehashpart(t, &newt); reinsertOldSlice(L, t, oldasize, newasize); exchangehashpart(t, &newt); } newarray = resizearray(L, t, oldasize, newasize); if (l_unlikely(newarray == NULL && newasize > 0)) { freehash(L, &newt); luaM_error(L); } exchangehashpart(t, &newt); t->array = newarray; t->alimit = newasize; clearNewSlice(t, oldasize, newasize); reinsert(L, &newt, t); freehash(L, &newt); } void luaH_resizearray (lua_State *L, Table *t, unsigned int nasize) { int nsize = allocsizenode(t); luaH_resize(L, t, nasize, nsize); } static void rehash (lua_State *L, Table *t, const TValue *ek) { unsigned int asize; unsigned int na; unsigned int nums[MAXABITS + 1]; int i; int totaluse; for (i = 0; i <= MAXABITS; i++) nums[i] = 0; setlimittosize(t); na = numusearray(t, nums); totaluse = na; totaluse += numusehash(t, nums, &na); if (ttisinteger(ek)) na += countint(ivalue(ek), nums); totaluse++; asize = computesizes(nums, &na); luaH_resize(L, t, asize, totaluse - na); } Table *luaH_new (lua_State *L) { GCObject *o = luaC_newobj(L, LUA_VTABLE, sizeof(Table)); Table *t = gco2t(o); t->metatable = NULL; t->flags = cast_byte(maskflags); t->array = NULL; t->alimit = 0; setnodevector(L, t, 0); return t; } void luaH_free (lua_State *L, Table *t) { unsigned int realsize = luaH_realasize(t); size_t sizeb = concretesize(realsize); lua_assert((sizeb == 0 && realsize == 0) || cast_charp(t->array) + sizeb - sizeof(Value) == cast_charp(getArrVal(t, realsize - 1))); freehash(L, t); luaM_freemem(L, t->array, sizeb); luaM_free(L, t); } static Node *getfreepos (Table *t) { if (haslastfree(t)) { while (getlastfree(t) > t->node) { Node *free = --getlastfree(t); if (keyisnil(free)) return free; } } else { if (!isdummy(t)) { int i = sizenode(t); while (i--) { Node *free = gnode(t, i); if (keyisnil(free)) return free; } } } return NULL; } static void luaH_newkey (lua_State *L, Table *t, const TValue *key, TValue *value) { Node *mp; TValue aux; if (l_unlikely(ttisnil(key))) luaG_runerror(L, "table index is nil"); else if (ttisfloat(key)) { lua_Number f = fltvalue(key); lua_Integer k; if (luaV_flttointeger(f, &k, F2Ieq)) { setivalue(&aux, k); key = &aux; } else if (l_unlikely(luai_numisnan(f))) luaG_runerror(L, "table index is NaN"); } if (ttisnil(value)) return; mp = mainpositionTV(t, key); if (!isempty(gval(mp)) || isdummy(t)) { Node *othern; Node *f = getfreepos(t); if (f == NULL) { rehash(L, t, key); luaH_set(L, t, key, value); return; } lua_assert(!isdummy(t)); othern = mainpositionfromnode(t, mp); if (othern != mp) { while (othern + gnext(othern) != mp) othern += gnext(othern); gnext(othern) = cast_int(f - othern); *f = *mp; if (gnext(mp) != 0) { gnext(f) += cast_int(mp - f); gnext(mp) = 0; } setempty(gval(mp)); } else { if (gnext(mp) != 0) gnext(f) = cast_int((mp + gnext(mp)) - f); else lua_assert(gnext(f) == 0); gnext(mp) = cast_int(f - mp); mp = f; } } setnodekey(L, mp, key); luaC_barrierback(L, obj2gco(t), key); lua_assert(isempty(gval(mp))); setobj2t(L, gval(mp), value); } static const TValue *getintfromhash (Table *t, lua_Integer key) { Node *n = hashint(t, key); lua_assert(l_castS2U(key) - 1u >= luaH_realasize(t)); for (;;) { if (keyisinteger(n) && keyival(n) == key) return gval(n); else { int nx = gnext(n); if (nx == 0) break; n += nx; } } return &absentkey; } static int hashkeyisempty (Table *t, lua_Integer key) { const TValue *val = getintfromhash(t, key); return isempty(val); } static int finishnodeget (const TValue *val, TValue *res) { if (!ttisnil(val)) { setobj(((lua_State*)NULL), res, val); } return ttypetag(val); } int luaH_getint (Table *t, lua_Integer key, TValue *res) { if (keyinarray(t, key)) { int tag = *getArrTag(t, key - 1); if (!tagisempty(tag)) farr2val(t, key, tag, res); return tag; } else return finishnodeget(getintfromhash(t, key), res); } const TValue *luaH_Hgetshortstr (Table *t, TString *key) { Node *n = hashstr(t, key); lua_assert(key->tt == LUA_VSHRSTR); for (;;) { if (keyisshrstr(n) && eqshrstr(keystrval(n), key)) return gval(n); else { int nx = gnext(n); if (nx == 0) return &absentkey; n += nx; } } } int luaH_getshortstr (Table *t, TString *key, TValue *res) { return finishnodeget(luaH_Hgetshortstr(t, key), res); } static const TValue *Hgetstr (Table *t, TString *key) { if (key->tt == LUA_VSHRSTR) return luaH_Hgetshortstr(t, key); else { TValue ko; setsvalue(cast(lua_State *, NULL), &ko, key); return getgeneric(t, &ko, 0); } } int luaH_getstr (Table *t, TString *key, TValue *res) { return finishnodeget(Hgetstr(t, key), res); } TString *luaH_getstrkey (Table *t, TString *key) { const TValue *o = Hgetstr(t, key); if (!isabstkey(o)) return keystrval(nodefromval(o)); else return NULL; } int luaH_get (Table *t, const TValue *key, TValue *res) { const TValue *slot; switch (ttypetag(key)) { case LUA_VSHRSTR: slot = luaH_Hgetshortstr(t, tsvalue(key)); break; case LUA_VNUMINT: return luaH_getint(t, ivalue(key), res); case LUA_VNIL: slot = &absentkey; break; case LUA_VNUMFLT: { lua_Integer k; if (luaV_flttointeger(fltvalue(key), &k, F2Ieq)) return luaH_getint(t, k, res); } default: slot = getgeneric(t, key, 0); break; } return finishnodeget(slot, res); } static int finishnodeset (Table *t, const TValue *slot, TValue *val) { if (!ttisnil(slot)) { setobj(((lua_State*)NULL), cast(TValue*, slot), val); return HOK; } else if (isabstkey(slot)) return HNOTFOUND; else return cast_int((cast(Node*, slot) - t->node)) + HFIRSTNODE; } static int rawfinishnodeset (const TValue *slot, TValue *val) { if (isabstkey(slot)) return 0; else { setobj(((lua_State*)NULL), cast(TValue*, slot), val); return 1; } } int luaH_psetint (Table *t, lua_Integer key, TValue *val) { if (keyinarray(t, key)) { lu_byte *tag = getArrTag(t, key - 1); if (!tagisempty(*tag) || checknoTM(t->metatable, TM_NEWINDEX)) { fval2arr(t, key, tag, val); return HOK; } else return ~cast_int(key); } else return finishnodeset(t, getintfromhash(t, key), val); } int luaH_psetshortstr (Table *t, TString *key, TValue *val) { return finishnodeset(t, luaH_Hgetshortstr(t, key), val); } int luaH_psetstr (Table *t, TString *key, TValue *val) { return finishnodeset(t, Hgetstr(t, key), val); } int luaH_pset (Table *t, const TValue *key, TValue *val) { switch (ttypetag(key)) { case LUA_VSHRSTR: return luaH_psetshortstr(t, tsvalue(key), val); case LUA_VNUMINT: return luaH_psetint(t, ivalue(key), val); case LUA_VNIL: return HNOTFOUND; case LUA_VNUMFLT: { lua_Integer k; if (luaV_flttointeger(fltvalue(key), &k, F2Ieq)) return luaH_psetint(t, k, val); } default: return finishnodeset(t, getgeneric(t, key, 0), val); } } void luaH_finishset (lua_State *L, Table *t, const TValue *key, TValue *value, int hres) { lua_assert(hres != HOK); if (hres == HNOTFOUND) { luaH_newkey(L, t, key, value); } else if (hres > 0) { setobj2t(L, gval(gnode(t, hres - HFIRSTNODE)), value); } else { hres = ~hres; obj2arr(t, hres, value); } } void luaH_set (lua_State *L, Table *t, const TValue *key, TValue *value) { int hres = luaH_pset(t, key, value); if (hres != HOK) luaH_finishset(L, t, key, value, hres); } void luaH_setint (lua_State *L, Table *t, lua_Integer key, TValue *value) { if (keyinarray(t, key)) obj2arr(t, key, value); else { int ok = rawfinishnodeset(getintfromhash(t, key), value); if (!ok) { TValue k; setivalue(&k, key); luaH_newkey(L, t, &k, value); } } } static lua_Unsigned hash_search (Table *t, lua_Unsigned j) { lua_Unsigned i; if (j == 0) j++; do { i = j; if (j <= l_castS2U(LUA_MAXINTEGER) / 2) j *= 2; else { j = LUA_MAXINTEGER; if (hashkeyisempty(t, j)) break; else return j; } } while (!hashkeyisempty(t, j)); while (j - i > 1u) { lua_Unsigned m = (i + j) / 2; if (hashkeyisempty(t, m)) j = m; else i = m; } return i; } static unsigned int binsearch (Table *array, unsigned int i, unsigned int j) { while (j - i > 1u) { unsigned int m = (i + j) / 2; if (arraykeyisempty(array, m)) j = m; else i = m; } return i; } lua_Unsigned luaH_getn (Table *t) { unsigned int limit = t->alimit; if (limit > 0 && arraykeyisempty(t, limit)) { if (limit >= 2 && !arraykeyisempty(t, limit - 1)) { if (ispow2realasize(t) && !ispow2(limit - 1)) { t->alimit = limit - 1; setnorealasize(t); } return limit - 1; } else { unsigned int boundary = binsearch(t, 0, limit); if (ispow2realasize(t) && boundary > luaH_realasize(t) / 2) { t->alimit = boundary; setnorealasize(t); } return boundary; } } if (!limitequalsasize(t)) { if (arraykeyisempty(t, limit + 1)) return limit; limit = luaH_realasize(t); if (arraykeyisempty(t, limit)) { unsigned int boundary = binsearch(t, t->alimit, limit); t->alimit = boundary; return boundary; } } lua_assert(limit == luaH_realasize(t) && (limit == 0 || !arraykeyisempty(t, limit))); if (isdummy(t) || hashkeyisempty(t, cast(lua_Integer, limit + 1))) return limit; else return hash_search(t, limit); } #if defined(LUA_DEBUG) Node *luaH_mainposition (const Table *t, const TValue *key) { return mainpositionTV(t, key); } #endif //path: src/imports/../dependencies/lua/ldo.c #define ldo_c #define LUA_CORE #include #include #include #define errorstatus(s) ((s) > LUA_YIELD) #if !defined(LUAI_THROW) #if defined(__cplusplus) && !defined(LUA_USE_LONGJMP) #define LUAI_THROW(L,c) throw(c) #define LUAI_TRY(L,c,a) \ try { a } catch(...) { if ((c)->status == 0) (c)->status = -1; } #define luai_jmpbuf int #elif defined(LUA_USE_POSIX) #define LUAI_THROW(L,c) _longjmp((c)->b, 1) #define LUAI_TRY(L,c,a) if (_setjmp((c)->b) == 0) { a } #define luai_jmpbuf jmp_buf #else #define LUAI_THROW(L,c) longjmp((c)->b, 1) #define LUAI_TRY(L,c,a) if (setjmp((c)->b) == 0) { a } #define luai_jmpbuf jmp_buf #endif #endif struct lua_longjmp { struct lua_longjmp *previous; luai_jmpbuf b; volatile int status; }; void luaD_seterrorobj (lua_State *L, int errcode, StkId oldtop) { switch (errcode) { case LUA_ERRMEM: { setsvalue2s(L, oldtop, G(L)->memerrmsg); break; } case LUA_ERRERR: { setsvalue2s(L, oldtop, luaS_newliteral(L, "error in private_lua_error handling")); break; } case LUA_OK: { setnilvalue(s2v(oldtop)); break; } default: { lua_assert(errorstatus(errcode)); setobjs2s(L, oldtop, L->top.p - 1); break; } } L->top.p = oldtop + 1; } l_noret luaD_throw (lua_State *L, int errcode) { if (L->errorJmp) { L->errorJmp->status = errcode; LUAI_THROW(L, L->errorJmp); } else { global_State *g = G(L); errcode = luaE_resetthread(L, errcode); if (g->mainthread->errorJmp) { setobjs2s(L, g->mainthread->top.p++, L->top.p - 1); luaD_throw(g->mainthread, errcode); } else { if (g->panic) { lua_unlock(L); g->panic(L); } abort(); } } } int luaD_rawrunprotected (lua_State *L, Pfunc f, void *ud) { l_uint32 oldnCcalls = L->nCcalls; struct lua_longjmp lj; lj.status = LUA_OK; lj.previous = L->errorJmp; L->errorJmp = &lj; LUAI_TRY(L, &lj, (*f)(L, ud); ); L->errorJmp = lj.previous; L->nCcalls = oldnCcalls; return lj.status; } static void relstack (lua_State *L) { CallInfo *ci; UpVal *up; L->top.offset = savestack(L, L->top.p); L->tbclist.offset = savestack(L, L->tbclist.p); for (up = L->openupval; up != NULL; up = up->u.open.next) up->v.offset = savestack(L, uplevel(up)); for (ci = L->ci; ci != NULL; ci = ci->previous) { ci->top.offset = savestack(L, ci->top.p); ci->func.offset = savestack(L, ci->func.p); } } static void correctstack (lua_State *L) { CallInfo *ci; UpVal *up; L->top.p = restorestack(L, L->top.offset); L->tbclist.p = restorestack(L, L->tbclist.offset); for (up = L->openupval; up != NULL; up = up->u.open.next) up->v.p = s2v(restorestack(L, up->v.offset)); for (ci = L->ci; ci != NULL; ci = ci->previous) { ci->top.p = restorestack(L, ci->top.offset); ci->func.p = restorestack(L, ci->func.offset); if (isLua(ci)) ci->u.l.trap = 1; } } #define ERRORSTACKSIZE (LUAI_MAXSTACK + 200) int luaD_reallocstack (lua_State *L, int newsize, int raiseerror) { int oldsize = stacksize(L); int i; StkId newstack; int oldgcstop = G(L)->gcstopem; lua_assert(newsize <= LUAI_MAXSTACK || newsize == ERRORSTACKSIZE); relstack(L); G(L)->gcstopem = 1; newstack = luaM_reallocvector(L, L->stack.p, oldsize + EXTRA_STACK, newsize + EXTRA_STACK, StackValue); G(L)->gcstopem = oldgcstop; if (l_unlikely(newstack == NULL)) { correctstack(L); if (raiseerror) luaM_error(L); else return 0; } L->stack.p = newstack; correctstack(L); L->stack_last.p = L->stack.p + newsize; for (i = oldsize + EXTRA_STACK; i < newsize + EXTRA_STACK; i++) setnilvalue(s2v(newstack + i)); return 1; } int luaD_growstack (lua_State *L, int n, int raiseerror) { int size = stacksize(L); if (l_unlikely(size > LUAI_MAXSTACK)) { lua_assert(stacksize(L) == ERRORSTACKSIZE); if (raiseerror) luaD_throw(L, LUA_ERRERR); return 0; } else if (n < LUAI_MAXSTACK) { int newsize = 2 * size; int needed = cast_int(L->top.p - L->stack.p) + n; if (newsize > LUAI_MAXSTACK) newsize = LUAI_MAXSTACK; if (newsize < needed) newsize = needed; if (l_likely(newsize <= LUAI_MAXSTACK)) return luaD_reallocstack(L, newsize, raiseerror); } luaD_reallocstack(L, ERRORSTACKSIZE, raiseerror); if (raiseerror) luaG_runerror(L, "stack overflow"); return 0; } static int stackinuse (lua_State *L) { CallInfo *ci; int res; StkId lim = L->top.p; for (ci = L->ci; ci != NULL; ci = ci->previous) { if (lim < ci->top.p) lim = ci->top.p; } lua_assert(lim <= L->stack_last.p + EXTRA_STACK); res = cast_int(lim - L->stack.p) + 1; if (res < LUA_MINSTACK) res = LUA_MINSTACK; return res; } void luaD_shrinkstack (lua_State *L) { int inuse = stackinuse(L); int max = (inuse > LUAI_MAXSTACK / 3) ? LUAI_MAXSTACK : inuse * 3; if (inuse <= LUAI_MAXSTACK && stacksize(L) > max) { int nsize = (inuse > LUAI_MAXSTACK / 2) ? LUAI_MAXSTACK : inuse * 2; luaD_reallocstack(L, nsize, 0); } else condmovestack(L,{},{}); luaE_shrinkCI(L); } void luaD_inctop (lua_State *L) { luaD_checkstack(L, 1); L->top.p++; } void luaD_hook (lua_State *L, int event, int line, int ftransfer, int ntransfer) { lua_Hook hook = L->hook; if (hook && L->allowhook) { int mask = CIST_HOOKED; CallInfo *ci = L->ci; ptrdiff_t top = savestack(L, L->top.p); ptrdiff_t ci_top = savestack(L, ci->top.p); lua_Debug ar; ar.event = event; ar.currentline = line; ar.i_ci = ci; if (ntransfer != 0) { mask |= CIST_TRAN; ci->u2.transferinfo.ftransfer = ftransfer; ci->u2.transferinfo.ntransfer = ntransfer; } if (isLua(ci) && L->top.p < ci->top.p) L->top.p = ci->top.p; luaD_checkstack(L, LUA_MINSTACK); if (ci->top.p < L->top.p + LUA_MINSTACK) ci->top.p = L->top.p + LUA_MINSTACK; L->allowhook = 0; ci->callstatus |= mask; lua_unlock(L); (*hook)(L, &ar); lua_lock(L); lua_assert(!L->allowhook); L->allowhook = 1; ci->top.p = restorestack(L, ci_top); L->top.p = restorestack(L, top); ci->callstatus &= ~mask; } } void luaD_hookcall (lua_State *L, CallInfo *ci) { L->oldpc = 0; if (L->hookmask & LUA_MASKCALL) { int event = (ci->callstatus & CIST_TAIL) ? LUA_HOOKTAILCALL : LUA_HOOKCALL; Proto *p = ci_func(ci)->p; ci->u.l.savedpc++; luaD_hook(L, event, -1, 1, p->numparams); ci->u.l.savedpc--; } } static void rethook (lua_State *L, CallInfo *ci, int nres) { if (L->hookmask & LUA_MASKRET) { StkId firstres = L->top.p - nres; int delta = 0; int ftransfer; if (isLua(ci)) { Proto *p = ci_func(ci)->p; if (p->flag & PF_ISVARARG) delta = ci->u.l.nextraargs + p->numparams + 1; } ci->func.p += delta; ftransfer = cast(unsigned short, firstres - ci->func.p); luaD_hook(L, LUA_HOOKRET, -1, ftransfer, nres); ci->func.p -= delta; } if (isLua(ci = ci->previous)) L->oldpc = pcRel(ci->u.l.savedpc, ci_func(ci)->p); } static StkId tryfuncTM (lua_State *L, StkId func) { const TValue *tm; StkId p; checkstackp(L, 1, func); tm = luaT_gettmbyobj(L, s2v(func), TM_CALL); if (l_unlikely(ttisnil(tm))) luaG_callerror(L, s2v(func)); for (p = L->top.p; p > func; p--) setobjs2s(L, p, p-1); L->top.p++; setobj2s(L, func, tm); return func; } l_sinline void moveresults (lua_State *L, StkId res, int nres, int wanted) { StkId firstresult; int i; switch (wanted) { case 0: L->top.p = res; return; case 1: if (nres == 0) setnilvalue(s2v(res)); else setobjs2s(L, res, L->top.p - nres); L->top.p = res + 1; return; case LUA_MULTRET: wanted = nres; break; default: if (hastocloseCfunc(wanted)) { L->ci->callstatus |= CIST_CLSRET; L->ci->u2.nres = nres; res = luaF_close(L, res, CLOSEKTOP, 1); L->ci->callstatus &= ~CIST_CLSRET; if (L->hookmask) { ptrdiff_t savedres = savestack(L, res); rethook(L, L->ci, nres); res = restorestack(L, savedres); } wanted = decodeNresults(wanted); if (wanted == LUA_MULTRET) wanted = nres; } break; } firstresult = L->top.p - nres; if (nres > wanted) nres = wanted; for (i = 0; i < nres; i++) setobjs2s(L, res + i, firstresult + i); for (; i < wanted; i++) setnilvalue(s2v(res + i)); L->top.p = res + wanted; } void luaD_poscall (lua_State *L, CallInfo *ci, int nres) { int wanted = ci->nresults; if (l_unlikely(L->hookmask && !hastocloseCfunc(wanted))) rethook(L, ci, nres); moveresults(L, ci->func.p, nres, wanted); lua_assert(!(ci->callstatus & (CIST_HOOKED | CIST_YPCALL | CIST_FIN | CIST_TRAN | CIST_CLSRET))); L->ci = ci->previous; } #define next_ci(L) (L->ci->next ? L->ci->next : luaE_extendCI(L)) l_sinline CallInfo *prepCallInfo (lua_State *L, StkId func, int nret, int mask, StkId top) { CallInfo *ci = L->ci = next_ci(L); ci->func.p = func; ci->nresults = nret; ci->callstatus = mask; ci->top.p = top; return ci; } l_sinline int precallC (lua_State *L, StkId func, int nresults, lua_CFunction f) { int n; CallInfo *ci; checkstackp(L, LUA_MINSTACK, func); L->ci = ci = prepCallInfo(L, func, nresults, CIST_C, L->top.p + LUA_MINSTACK); lua_assert(ci->top.p <= L->stack_last.p); if (l_unlikely(L->hookmask & LUA_MASKCALL)) { int narg = cast_int(L->top.p - func) - 1; luaD_hook(L, LUA_HOOKCALL, -1, 1, narg); } lua_unlock(L); n = (*f)(L); lua_lock(L); api_checknelems(L, n); luaD_poscall(L, ci, n); return n; } int luaD_pretailcall (lua_State *L, CallInfo *ci, StkId func, int narg1, int delta) { retry: switch (ttypetag(s2v(func))) { case LUA_VCCL: return precallC(L, func, LUA_MULTRET, clCvalue(s2v(func))->f); case LUA_VLCF: return precallC(L, func, LUA_MULTRET, fvalue(s2v(func))); case LUA_VLCL: { Proto *p = clLvalue(s2v(func))->p; int fsize = p->maxstacksize; int nfixparams = p->numparams; int i; checkstackp(L, fsize - delta, func); ci->func.p -= delta; for (i = 0; i < narg1; i++) setobjs2s(L, ci->func.p + i, func + i); func = ci->func.p; for (; narg1 <= nfixparams; narg1++) setnilvalue(s2v(func + narg1)); ci->top.p = func + 1 + fsize; lua_assert(ci->top.p <= L->stack_last.p); ci->u.l.savedpc = p->code; ci->callstatus |= CIST_TAIL; L->top.p = func + narg1; return -1; } default: { func = tryfuncTM(L, func); narg1++; goto retry; } } } CallInfo *luaD_precall (lua_State *L, StkId func, int nresults) { retry: switch (ttypetag(s2v(func))) { case LUA_VCCL: precallC(L, func, nresults, clCvalue(s2v(func))->f); return NULL; case LUA_VLCF: precallC(L, func, nresults, fvalue(s2v(func))); return NULL; case LUA_VLCL: { CallInfo *ci; Proto *p = clLvalue(s2v(func))->p; int narg = cast_int(L->top.p - func) - 1; int nfixparams = p->numparams; int fsize = p->maxstacksize; checkstackp(L, fsize, func); L->ci = ci = prepCallInfo(L, func, nresults, 0, func + 1 + fsize); ci->u.l.savedpc = p->code; for (; narg < nfixparams; narg++) setnilvalue(s2v(L->top.p++)); lua_assert(ci->top.p <= L->stack_last.p); return ci; } default: { func = tryfuncTM(L, func); goto retry; } } } l_sinline void ccall (lua_State *L, StkId func, int nResults, l_uint32 inc) { CallInfo *ci; L->nCcalls += inc; if (l_unlikely(getCcalls(L) >= LUAI_MAXCCALLS)) { checkstackp(L, 0, func); luaE_checkcstack(L); } if ((ci = luaD_precall(L, func, nResults)) != NULL) { ci->callstatus = CIST_FRESH; luaV_execute(L, ci); } L->nCcalls -= inc; } void luaD_call (lua_State *L, StkId func, int nResults) { ccall(L, func, nResults, 1); } void luaD_callnoyield (lua_State *L, StkId func, int nResults) { ccall(L, func, nResults, nyci); } static int finishpcallk (lua_State *L, CallInfo *ci) { int status = getcistrecst(ci); if (l_likely(status == LUA_OK)) status = LUA_YIELD; else { StkId func = restorestack(L, ci->u2.funcidx); L->allowhook = getoah(ci->callstatus); func = luaF_close(L, func, status, 1); luaD_seterrorobj(L, status, func); luaD_shrinkstack(L); setcistrecst(ci, LUA_OK); } ci->callstatus &= ~CIST_YPCALL; L->errfunc = ci->u.c.old_errfunc; return status; } static void finishCcall (lua_State *L, CallInfo *ci) { int n; if (ci->callstatus & CIST_CLSRET) { lua_assert(hastocloseCfunc(ci->nresults)); n = ci->u2.nres; } else { int status = LUA_YIELD; lua_assert(ci->u.c.k != NULL && yieldable(L)); if (ci->callstatus & CIST_YPCALL) status = finishpcallk(L, ci); adjustresults(L, LUA_MULTRET); lua_unlock(L); n = (*ci->u.c.k)(L, status, ci->u.c.ctx); lua_lock(L); api_checknelems(L, n); } luaD_poscall(L, ci, n); } static void unroll (lua_State *L, void *ud) { CallInfo *ci; UNUSED(ud); while ((ci = L->ci) != &L->base_ci) { if (!isLua(ci)) finishCcall(L, ci); else { luaV_finishOp(L); luaV_execute(L, ci); } } } static CallInfo *findpcall (lua_State *L) { CallInfo *ci; for (ci = L->ci; ci != NULL; ci = ci->previous) { if (ci->callstatus & CIST_YPCALL) return ci; } return NULL; } static int resume_error (lua_State *L, const char *msg, int narg) { api_checkpop(L, narg); L->top.p -= narg; setsvalue2s(L, L->top.p, luaS_new(L, msg)); api_incr_top(L); lua_unlock(L); return LUA_ERRRUN; } static void resume (lua_State *L, void *ud) { int n = *(cast(int*, ud)); StkId firstArg = L->top.p - n; CallInfo *ci = L->ci; if (L->status == LUA_OK) ccall(L, firstArg - 1, LUA_MULTRET, 0); else { lua_assert(L->status == LUA_YIELD); L->status = LUA_OK; if (isLua(ci)) { lua_assert(ci->callstatus & CIST_HOOKYIELD); ci->u.l.savedpc--; L->top.p = firstArg; luaV_execute(L, ci); } else { if (ci->u.c.k != NULL) { lua_unlock(L); n = (*ci->u.c.k)(L, LUA_YIELD, ci->u.c.ctx); lua_lock(L); api_checknelems(L, n); } luaD_poscall(L, ci, n); } unroll(L, NULL); } } static int precover (lua_State *L, int status) { CallInfo *ci; while (errorstatus(status) && (ci = findpcall(L)) != NULL) { L->ci = ci; setcistrecst(ci, status); status = luaD_rawrunprotected(L, unroll, NULL); } return status; } LUA_API int lua_resume (lua_State *L, lua_State *from, int nargs, int *nresults) { int status; lua_lock(L); if (L->status == LUA_OK) { if (L->ci != &L->base_ci) return resume_error(L, "cannot resume non-suspended coroutine", nargs); else if (L->top.p - (L->ci->func.p + 1) == nargs) return resume_error(L, "cannot resume dead coroutine", nargs); } else if (L->status != LUA_YIELD) return resume_error(L, "cannot resume dead coroutine", nargs); L->nCcalls = (from) ? getCcalls(from) : 0; if (getCcalls(L) >= LUAI_MAXCCALLS) return resume_error(L, "C stack overflow", nargs); L->nCcalls++; luai_userstateresume(L, nargs); api_checkpop(L, (L->status == LUA_OK) ? nargs + 1 : nargs); status = luaD_rawrunprotected(L, resume, &nargs); status = precover(L, status); if (l_likely(!errorstatus(status))) lua_assert(status == L->status); else { L->status = cast_byte(status); luaD_seterrorobj(L, status, L->top.p); L->ci->top.p = L->top.p; } *nresults = (status == LUA_YIELD) ? L->ci->u2.nyield : cast_int(L->top.p - (L->ci->func.p + 1)); lua_unlock(L); return status; } LUA_API int lua_isyieldable (lua_State *L) { return yieldable(L); } LUA_API int lua_yieldk (lua_State *L, int nresults, lua_KContext ctx, lua_KFunction k) { CallInfo *ci; luai_userstateyield(L, nresults); lua_lock(L); ci = L->ci; api_checkpop(L, nresults); if (l_unlikely(!yieldable(L))) { if (L != G(L)->mainthread) luaG_runerror(L, "attempt to yield across a C-call boundary"); else luaG_runerror(L, "attempt to yield from outside a coroutine"); } L->status = LUA_YIELD; ci->u2.nyield = nresults; if (isLua(ci)) { lua_assert(!isLuacode(ci)); api_check(L, nresults == 0, "hooks cannot yield values"); api_check(L, k == NULL, "hooks cannot continue after yielding"); } else { if ((ci->u.c.k = k) != NULL) ci->u.c.ctx = ctx; luaD_throw(L, LUA_YIELD); } lua_assert(ci->callstatus & CIST_HOOKED); lua_unlock(L); return 0; } struct CloseP { StkId level; int status; }; static void closepaux (lua_State *L, void *ud) { struct CloseP *pcl = cast(struct CloseP *, ud); luaF_close(L, pcl->level, pcl->status, 0); } int luaD_closeprotected (lua_State *L, ptrdiff_t level, int status) { CallInfo *old_ci = L->ci; lu_byte old_allowhooks = L->allowhook; for (;;) { struct CloseP pcl; pcl.level = restorestack(L, level); pcl.status = status; status = luaD_rawrunprotected(L, &closepaux, &pcl); if (l_likely(status == LUA_OK)) return pcl.status; else { L->ci = old_ci; L->allowhook = old_allowhooks; } } } int luaD_pcall (lua_State *L, Pfunc func, void *u, ptrdiff_t old_top, ptrdiff_t ef) { int status; CallInfo *old_ci = L->ci; lu_byte old_allowhooks = L->allowhook; ptrdiff_t old_errfunc = L->errfunc; L->errfunc = ef; status = luaD_rawrunprotected(L, func, u); if (l_unlikely(status != LUA_OK)) { L->ci = old_ci; L->allowhook = old_allowhooks; status = luaD_closeprotected(L, old_top, status); luaD_seterrorobj(L, status, restorestack(L, old_top)); luaD_shrinkstack(L); } L->errfunc = old_errfunc; return status; } struct SParser { ZIO *z; Mbuffer buff; Dyndata dyd; const char *mode; const char *name; }; static void checkmode (lua_State *L, const char *mode, const char *x) { if (strchr(mode, x[0]) == NULL) { luaO_pushfstring(L, "attempt to load a %s chunk (mode is '%s')", x, mode); luaD_throw(L, LUA_ERRSYNTAX); } } static void f_parser (lua_State *L, void *ud) { LClosure *cl; struct SParser *p = cast(struct SParser *, ud); const char *mode = p->mode ? p->mode : "bt"; int c = zgetc(p->z); if (c == LUA_SIGNATURE[0]) { int fixed = 0; if (strchr(mode, 'B') != NULL) fixed = 1; else checkmode(L, mode, "binary"); cl = luaU_undump(L, p->z, p->name, fixed); } else { checkmode(L, mode, "text"); cl = luaY_parser(L, p->z, &p->buff, &p->dyd, p->name, c); } lua_assert(cl->nupvalues == cl->p->sizeupvalues); luaF_initupvals(L, cl); } int luaD_protectedparser (lua_State *L, ZIO *z, const char *name, const char *mode) { struct SParser p; int status; incnny(L); p.z = z; p.name = name; p.mode = mode; p.dyd.actvar.arr = NULL; p.dyd.actvar.size = 0; p.dyd.gt.arr = NULL; p.dyd.gt.size = 0; p.dyd.label.arr = NULL; p.dyd.label.size = 0; luaZ_initbuffer(L, &p.buff); status = luaD_pcall(L, f_parser, &p, savestack(L, L->top.p), L->errfunc); luaZ_freebuffer(L, &p.buff); luaM_freearray(L, p.dyd.actvar.arr, p.dyd.actvar.size); luaM_freearray(L, p.dyd.gt.arr, p.dyd.gt.size); luaM_freearray(L, p.dyd.label.arr, p.dyd.label.size); decnny(L); return status; } //path: src/imports/../dependencies/lua/lvm.c #define lvm_c #define LUA_CORE #include #include #include #include #include #if !defined(LUA_USE_JUMPTABLE) #if defined(__GNUC__) #define LUA_USE_JUMPTABLE 1 #else #define LUA_USE_JUMPTABLE 0 #endif #endif #define MAXTAGLOOP 2000 #define NBM (l_floatatt(MANT_DIG)) #if ((((LUA_MAXINTEGER >> (NBM / 4)) >> (NBM / 4)) >> (NBM / 4)) \ >> (NBM - (3 * (NBM / 4)))) > 0 #define MAXINTFITSF ((lua_Unsigned)1 << NBM) #define l_intfitsf(i) ((MAXINTFITSF + l_castS2U(i)) <= (2 * MAXINTFITSF)) #else #define l_intfitsf(i) 1 #endif static int l_strton (const TValue *obj, TValue *result) { lua_assert(obj != result); if (!cvt2num(obj)) return 0; else { TString *st = tsvalue(obj); size_t stlen; const char *s = getlstr(st, stlen); return (luaO_str2num(s, result) == stlen + 1); } } int luaV_tonumber_ (const TValue *obj, lua_Number *n) { TValue v; if (ttisinteger(obj)) { *n = cast_num(ivalue(obj)); return 1; } else if (l_strton(obj, &v)) { *n = nvalue(&v); return 1; } else return 0; } int luaV_flttointeger (lua_Number n, lua_Integer *p, F2Imod mode) { lua_Number f = l_floor(n); if (n != f) { if (mode == F2Ieq) return 0; else if (mode == F2Iceil) f += 1; } return lua_numbertointeger(f, p); } int luaV_tointegerns (const TValue *obj, lua_Integer *p, F2Imod mode) { if (ttisfloat(obj)) return luaV_flttointeger(fltvalue(obj), p, mode); else if (ttisinteger(obj)) { *p = ivalue(obj); return 1; } else return 0; } int luaV_tointeger (const TValue *obj, lua_Integer *p, F2Imod mode) { TValue v; if (l_strton(obj, &v)) obj = &v; return luaV_tointegerns(obj, p, mode); } static int forlimit (lua_State *L, lua_Integer init, const TValue *lim, lua_Integer *p, lua_Integer step) { if (!luaV_tointeger(lim, p, (step < 0 ? F2Iceil : F2Ifloor))) { lua_Number flim; if (!tonumber(lim, &flim)) luaG_forerror(L, lim, "limit"); if (luai_numlt(0, flim)) { if (step < 0) return 1; *p = LUA_MAXINTEGER; } else { if (step > 0) return 1; *p = LUA_MININTEGER; } } return (step > 0 ? init > *p : init < *p); } static int forprep (lua_State *L, StkId ra) { TValue *pinit = s2v(ra); TValue *plimit = s2v(ra + 1); TValue *pstep = s2v(ra + 2); if (ttisinteger(pinit) && ttisinteger(pstep)) { lua_Integer init = ivalue(pinit); lua_Integer step = ivalue(pstep); lua_Integer limit; if (step == 0) luaG_runerror(L, "'for' step is zero"); if (forlimit(L, init, plimit, &limit, step)) return 1; else { lua_Unsigned count; if (step > 0) { count = l_castS2U(limit) - l_castS2U(init); if (step != 1) count /= l_castS2U(step); } else { count = l_castS2U(init) - l_castS2U(limit); count /= l_castS2U(-(step + 1)) + 1u; } chgivalue(s2v(ra), l_castU2S(count)); setivalue(s2v(ra + 1), step); chgivalue(s2v(ra + 2), init); } } else { lua_Number init; lua_Number limit; lua_Number step; if (l_unlikely(!tonumber(plimit, &limit))) luaG_forerror(L, plimit, "limit"); if (l_unlikely(!tonumber(pstep, &step))) luaG_forerror(L, pstep, "step"); if (l_unlikely(!tonumber(pinit, &init))) luaG_forerror(L, pinit, "initial value"); if (step == 0) luaG_runerror(L, "'for' step is zero"); if (luai_numlt(0, step) ? luai_numlt(limit, init) : luai_numlt(init, limit)) return 1; else { setfltvalue(s2v(ra), limit); setfltvalue(s2v(ra + 1), step); setfltvalue(s2v(ra + 2), init); } } return 0; } static int floatforloop (StkId ra) { lua_Number step = fltvalue(s2v(ra + 1)); lua_Number limit = fltvalue(s2v(ra)); lua_Number idx = fltvalue(s2v(ra + 2)); idx = luai_numadd(L, idx, step); if (luai_numlt(0, step) ? luai_numle(idx, limit) : luai_numle(limit, idx)) { chgfltvalue(s2v(ra + 2), idx); return 1; } else return 0; } int luaV_finishget (lua_State *L, const TValue *t, TValue *key, StkId val, int tag) { int loop; const TValue *tm; for (loop = 0; loop < MAXTAGLOOP; loop++) { if (tag == LUA_VNOTABLE) { lua_assert(!ttistable(t)); tm = luaT_gettmbyobj(L, t, TM_INDEX); if (l_unlikely(notm(tm))) luaG_typeerror(L, t, "index"); } else { tm = fasttm(L, hvalue(t)->metatable, TM_INDEX); if (tm == NULL) { setnilvalue(s2v(val)); return LUA_VNIL; } } if (ttisfunction(tm)) { tag = luaT_callTMres(L, tm, t, key, val); return tag; } t = tm; luaV_fastget(t, key, s2v(val), luaH_get, tag); if (!tagisempty(tag)) return tag; } luaG_runerror(L, "'__index' chain too long; possible loop"); return 0; } void luaV_finishset (lua_State *L, const TValue *t, TValue *key, TValue *val, int hres) { int loop; for (loop = 0; loop < MAXTAGLOOP; loop++) { const TValue *tm; if (hres != HNOTATABLE) { Table *h = hvalue(t); tm = fasttm(L, h->metatable, TM_NEWINDEX); if (tm == NULL) { luaH_finishset(L, h, key, val, hres); invalidateTMcache(h); luaC_barrierback(L, obj2gco(h), val); return; } } else { tm = luaT_gettmbyobj(L, t, TM_NEWINDEX); if (l_unlikely(notm(tm))) luaG_typeerror(L, t, "index"); } if (ttisfunction(tm)) { luaT_callTM(L, tm, t, key, val); return; } t = tm; luaV_fastset(t, key, val, hres, luaH_pset); if (hres == HOK) return; } luaG_runerror(L, "'__newindex' chain too long; possible loop"); } static int l_strcmp (const TString *ts1, const TString *ts2) { size_t rl1; const char *s1 = getlstr(ts1, rl1); size_t rl2; const char *s2 = getlstr(ts2, rl2); for (;;) { int temp = strcoll(s1, s2); if (temp != 0) return temp; else { size_t zl1 = strlen(s1); size_t zl2 = strlen(s2); if (zl2 == rl2) return (zl1 == rl1) ? 0 : 1; else if (zl1 == rl1) return -1; zl1++; zl2++; s1 += zl1; rl1 -= zl1; s2 += zl2; rl2 -= zl2; } } } l_sinline int LTintfloat (lua_Integer i, lua_Number f) { if (l_intfitsf(i)) return luai_numlt(cast_num(i), f); else { lua_Integer fi; if (luaV_flttointeger(f, &fi, F2Iceil)) return i < fi; else return f > 0; } } l_sinline int LEintfloat (lua_Integer i, lua_Number f) { if (l_intfitsf(i)) return luai_numle(cast_num(i), f); else { lua_Integer fi; if (luaV_flttointeger(f, &fi, F2Ifloor)) return i <= fi; else return f > 0; } } l_sinline int LTfloatint (lua_Number f, lua_Integer i) { if (l_intfitsf(i)) return luai_numlt(f, cast_num(i)); else { lua_Integer fi; if (luaV_flttointeger(f, &fi, F2Ifloor)) return fi < i; else return f < 0; } } l_sinline int LEfloatint (lua_Number f, lua_Integer i) { if (l_intfitsf(i)) return luai_numle(f, cast_num(i)); else { lua_Integer fi; if (luaV_flttointeger(f, &fi, F2Iceil)) return fi <= i; else return f < 0; } } l_sinline int LTnum (const TValue *l, const TValue *r) { lua_assert(ttisnumber(l) && ttisnumber(r)); if (ttisinteger(l)) { lua_Integer li = ivalue(l); if (ttisinteger(r)) return li < ivalue(r); else return LTintfloat(li, fltvalue(r)); } else { lua_Number lf = fltvalue(l); if (ttisfloat(r)) return luai_numlt(lf, fltvalue(r)); else return LTfloatint(lf, ivalue(r)); } } l_sinline int LEnum (const TValue *l, const TValue *r) { lua_assert(ttisnumber(l) && ttisnumber(r)); if (ttisinteger(l)) { lua_Integer li = ivalue(l); if (ttisinteger(r)) return li <= ivalue(r); else return LEintfloat(li, fltvalue(r)); } else { lua_Number lf = fltvalue(l); if (ttisfloat(r)) return luai_numle(lf, fltvalue(r)); else return LEfloatint(lf, ivalue(r)); } } static int lessthanothers (lua_State *L, const TValue *l, const TValue *r) { lua_assert(!ttisnumber(l) || !ttisnumber(r)); if (ttisstring(l) && ttisstring(r)) return l_strcmp(tsvalue(l), tsvalue(r)) < 0; else return luaT_callorderTM(L, l, r, TM_LT); } int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r) { if (ttisnumber(l) && ttisnumber(r)) return LTnum(l, r); else return lessthanothers(L, l, r); } static int lessequalothers (lua_State *L, const TValue *l, const TValue *r) { lua_assert(!ttisnumber(l) || !ttisnumber(r)); if (ttisstring(l) && ttisstring(r)) return l_strcmp(tsvalue(l), tsvalue(r)) <= 0; else return luaT_callorderTM(L, l, r, TM_LE); } int luaV_lessequal (lua_State *L, const TValue *l, const TValue *r) { if (ttisnumber(l) && ttisnumber(r)) return LEnum(l, r); else return lessequalothers(L, l, r); } int luaV_equalobj (lua_State *L, const TValue *t1, const TValue *t2) { const TValue *tm; if (ttypetag(t1) != ttypetag(t2)) { if (ttype(t1) != ttype(t2) || ttype(t1) != LUA_TNUMBER) return 0; else { lua_Integer i1, i2; return (luaV_tointegerns(t1, &i1, F2Ieq) && luaV_tointegerns(t2, &i2, F2Ieq) && i1 == i2); } } switch (ttypetag(t1)) { case LUA_VNIL: case LUA_VFALSE: case LUA_VTRUE: return 1; case LUA_VNUMINT: return (ivalue(t1) == ivalue(t2)); case LUA_VNUMFLT: return luai_numeq(fltvalue(t1), fltvalue(t2)); case LUA_VLIGHTUSERDATA: return pvalue(t1) == pvalue(t2); case LUA_VLCF: return fvalue(t1) == fvalue(t2); case LUA_VSHRSTR: return eqshrstr(tsvalue(t1), tsvalue(t2)); case LUA_VLNGSTR: return luaS_eqlngstr(tsvalue(t1), tsvalue(t2)); case LUA_VUSERDATA: { if (uvalue(t1) == uvalue(t2)) return 1; else if (L == NULL) return 0; tm = fasttm(L, uvalue(t1)->metatable, TM_EQ); if (tm == NULL) tm = fasttm(L, uvalue(t2)->metatable, TM_EQ); break; } case LUA_VTABLE: { if (hvalue(t1) == hvalue(t2)) return 1; else if (L == NULL) return 0; tm = fasttm(L, hvalue(t1)->metatable, TM_EQ); if (tm == NULL) tm = fasttm(L, hvalue(t2)->metatable, TM_EQ); break; } default: return gcvalue(t1) == gcvalue(t2); } if (tm == NULL) return 0; else { int tag = luaT_callTMres(L, tm, t1, t2, L->top.p); return !tagisfalse(tag); } } #define tostring(L,o) \ (ttisstring(o) || (cvt2str(o) && (luaO_tostring(L, o), 1))) #define isemptystr(o) (ttisshrstring(o) && tsvalue(o)->shrlen == 0) static void copy2buff (StkId top, int n, char *buff) { size_t tl = 0; do { TString *st = tsvalue(s2v(top - n)); size_t l; const char *s = getlstr(st, l); memcpy(buff + tl, s, l * sizeof(char)); tl += l; } while (--n > 0); } void luaV_concat (lua_State *L, int total) { if (total == 1) return; do { StkId top = L->top.p; int n = 2; if (!(ttisstring(s2v(top - 2)) || cvt2str(s2v(top - 2))) || !tostring(L, s2v(top - 1))) luaT_tryconcatTM(L); else if (isemptystr(s2v(top - 1))) cast_void(tostring(L, s2v(top - 2))); else if (isemptystr(s2v(top - 2))) { setobjs2s(L, top - 2, top - 1); } else { size_t tl = tsslen(tsvalue(s2v(top - 1))); TString *ts; for (n = 1; n < total && tostring(L, s2v(top - n - 1)); n++) { size_t l = tsslen(tsvalue(s2v(top - n - 1))); if (l_unlikely(l >= MAX_SIZE - sizeof(TString) - tl)) { L->top.p = top - total; luaG_runerror(L, "string length overflow"); } tl += l; } if (tl <= LUAI_MAXSHORTLEN) { char buff[LUAI_MAXSHORTLEN]; copy2buff(top, n, buff); ts = luaS_newlstr(L, buff, tl); } else { ts = luaS_createlngstrobj(L, tl); copy2buff(top, n, getlngstr(ts)); } setsvalue2s(L, top - n, ts); } total -= n - 1; L->top.p -= n - 1; } while (total > 1); } void luaV_objlen (lua_State *L, StkId ra, const TValue *rb) { const TValue *tm; switch (ttypetag(rb)) { case LUA_VTABLE: { Table *h = hvalue(rb); tm = fasttm(L, h->metatable, TM_LEN); if (tm) break; setivalue(s2v(ra), luaH_getn(h)); return; } case LUA_VSHRSTR: { setivalue(s2v(ra), tsvalue(rb)->shrlen); return; } case LUA_VLNGSTR: { setivalue(s2v(ra), tsvalue(rb)->u.lnglen); return; } default: { tm = luaT_gettmbyobj(L, rb, TM_LEN); if (l_unlikely(notm(tm))) luaG_typeerror(L, rb, "get length of"); break; } } luaT_callTMres(L, tm, rb, rb, ra); } lua_Integer luaV_idiv (lua_State *L, lua_Integer m, lua_Integer n) { if (l_unlikely(l_castS2U(n) + 1u <= 1u)) { if (n == 0) luaG_runerror(L, "attempt to divide by zero"); return intop(-, 0, m); } else { lua_Integer q = m / n; if ((m ^ n) < 0 && m % n != 0) q -= 1; return q; } } lua_Integer luaV_mod (lua_State *L, lua_Integer m, lua_Integer n) { if (l_unlikely(l_castS2U(n) + 1u <= 1u)) { if (n == 0) luaG_runerror(L, "attempt to perform 'n%%0'"); return 0; } else { lua_Integer r = m % n; if (r != 0 && (r ^ n) < 0) r += n; return r; } } lua_Number luaV_modf (lua_State *L, lua_Number m, lua_Number n) { lua_Number r; luai_nummod(L, m, n, r); return r; } #define NBITS cast_int(sizeof(lua_Integer) * CHAR_BIT) lua_Integer luaV_shiftl (lua_Integer x, lua_Integer y) { if (y < 0) { if (y <= -NBITS) return 0; else return intop(>>, x, -y); } else { if (y >= NBITS) return 0; else return intop(<<, x, y); } } static void pushclosure (lua_State *L, Proto *p, UpVal **encup, StkId base, StkId ra) { int nup = p->sizeupvalues; Upvaldesc *uv = p->upvalues; int i; LClosure *ncl = luaF_newLclosure(L, nup); ncl->p = p; setclLvalue2s(L, ra, ncl); for (i = 0; i < nup; i++) { if (uv[i].instack) ncl->upvals[i] = luaF_findupval(L, base + uv[i].idx); else ncl->upvals[i] = encup[uv[i].idx]; luaC_objbarrier(L, ncl, ncl->upvals[i]); } } void luaV_finishOp (lua_State *L) { CallInfo *ci = L->ci; StkId base = ci->func.p + 1; Instruction inst = *(ci->u.l.savedpc - 1); OpCode op = GET_OPCODE(inst); switch (op) { case OP_MMBIN: case OP_MMBINI: case OP_MMBINK: { setobjs2s(L, base + GETARG_A(*(ci->u.l.savedpc - 2)), --L->top.p); break; } case OP_UNM: case OP_BNOT: case OP_LEN: case OP_GETTABUP: case OP_GETTABLE: case OP_GETI: case OP_GETFIELD: case OP_SELF: { setobjs2s(L, base + GETARG_A(inst), --L->top.p); break; } case OP_LT: case OP_LE: case OP_LTI: case OP_LEI: case OP_GTI: case OP_GEI: case OP_EQ: { int res = !l_isfalse(s2v(L->top.p - 1)); L->top.p--; #if defined(LUA_COMPAT_LT_LE) if (ci->callstatus & CIST_LEQ) { ci->callstatus ^= CIST_LEQ; res = !res; } #endif lua_assert(GET_OPCODE(*ci->u.l.savedpc) == OP_JMP); if (res != GETARG_k(inst)) ci->u.l.savedpc++; break; } case OP_CONCAT: { StkId top = L->top.p - 1; int a = GETARG_A(inst); int total = cast_int(top - 1 - (base + a)); setobjs2s(L, top - 2, top); L->top.p = top - 1; luaV_concat(L, total); break; } case OP_CLOSE: { ci->u.l.savedpc--; break; } case OP_RETURN: { StkId ra = base + GETARG_A(inst); L->top.p = ra + ci->u2.nres; ci->u.l.savedpc--; break; } default: { lua_assert(op == OP_TFORCALL || op == OP_CALL || op == OP_TAILCALL || op == OP_SETTABUP || op == OP_SETTABLE || op == OP_SETI || op == OP_SETFIELD); break; } } } #define l_addi(L,a,b) intop(+, a, b) #define l_subi(L,a,b) intop(-, a, b) #define l_muli(L,a,b) intop(*, a, b) #define l_band(a,b) intop(&, a, b) #define l_bor(a,b) intop(|, a, b) #define l_bxor(a,b) intop(^, a, b) #define l_lti(a,b) (a < b) #define l_lei(a,b) (a <= b) #define l_gti(a,b) (a > b) #define l_gei(a,b) (a >= b) #define op_arithI(L,iop,fop) { \ StkId ra = RA(i); \ TValue *v1 = vRB(i); \ int imm = GETARG_sC(i); \ if (ttisinteger(v1)) { \ lua_Integer iv1 = ivalue(v1); \ pc++; setivalue(s2v(ra), iop(L, iv1, imm)); \ } \ else if (ttisfloat(v1)) { \ lua_Number nb = fltvalue(v1); \ lua_Number fimm = cast_num(imm); \ pc++; setfltvalue(s2v(ra), fop(L, nb, fimm)); \ }} #define op_arithf_aux(L,v1,v2,fop) { \ lua_Number n1; lua_Number n2; \ if (tonumberns(v1, n1) && tonumberns(v2, n2)) { \ pc++; setfltvalue(s2v(ra), fop(L, n1, n2)); \ }} #define op_arithf(L,fop) { \ StkId ra = RA(i); \ TValue *v1 = vRB(i); \ TValue *v2 = vRC(i); \ op_arithf_aux(L, v1, v2, fop); } #define op_arithfK(L,fop) { \ StkId ra = RA(i); \ TValue *v1 = vRB(i); \ TValue *v2 = KC(i); lua_assert(ttisnumber(v2)); \ op_arithf_aux(L, v1, v2, fop); } #define op_arith_aux(L,v1,v2,iop,fop) { \ StkId ra = RA(i); \ if (ttisinteger(v1) && ttisinteger(v2)) { \ lua_Integer i1 = ivalue(v1); lua_Integer i2 = ivalue(v2); \ pc++; setivalue(s2v(ra), iop(L, i1, i2)); \ } \ else op_arithf_aux(L, v1, v2, fop); } #define op_arith(L,iop,fop) { \ TValue *v1 = vRB(i); \ TValue *v2 = vRC(i); \ op_arith_aux(L, v1, v2, iop, fop); } #define op_arithK(L,iop,fop) { \ TValue *v1 = vRB(i); \ TValue *v2 = KC(i); lua_assert(ttisnumber(v2)); \ op_arith_aux(L, v1, v2, iop, fop); } #define op_bitwiseK(L,op) { \ StkId ra = RA(i); \ TValue *v1 = vRB(i); \ TValue *v2 = KC(i); \ lua_Integer i1; \ lua_Integer i2 = ivalue(v2); \ if (tointegerns(v1, &i1)) { \ pc++; setivalue(s2v(ra), op(i1, i2)); \ }} #define op_bitwise(L,op) { \ StkId ra = RA(i); \ TValue *v1 = vRB(i); \ TValue *v2 = vRC(i); \ lua_Integer i1; lua_Integer i2; \ if (tointegerns(v1, &i1) && tointegerns(v2, &i2)) { \ pc++; setivalue(s2v(ra), op(i1, i2)); \ }} #define op_order(L,opi,opn,other) { \ StkId ra = RA(i); \ int cond; \ TValue *rb = vRB(i); \ if (ttisinteger(s2v(ra)) && ttisinteger(rb)) { \ lua_Integer ia = ivalue(s2v(ra)); \ lua_Integer ib = ivalue(rb); \ cond = opi(ia, ib); \ } \ else if (ttisnumber(s2v(ra)) && ttisnumber(rb)) \ cond = opn(s2v(ra), rb); \ else \ Protect(cond = other(L, s2v(ra), rb)); \ docondjump(); } #define op_orderI(L,opi,opf,inv,tm) { \ StkId ra = RA(i); \ int cond; \ int im = GETARG_sB(i); \ if (ttisinteger(s2v(ra))) \ cond = opi(ivalue(s2v(ra)), im); \ else if (ttisfloat(s2v(ra))) { \ lua_Number fa = fltvalue(s2v(ra)); \ lua_Number fim = cast_num(im); \ cond = opf(fa, fim); \ } \ else { \ int isf = GETARG_C(i); \ Protect(cond = luaT_callorderiTM(L, s2v(ra), im, inv, isf, tm)); \ } \ docondjump(); } #define RA(i) (base+GETARG_A(i)) #define RB(i) (base+GETARG_B(i)) #define vRB(i) s2v(RB(i)) #define KB(i) (k+GETARG_B(i)) #define RC(i) (base+GETARG_C(i)) #define vRC(i) s2v(RC(i)) #define KC(i) (k+GETARG_C(i)) #define RKC(i) ((TESTARG_k(i)) ? k + GETARG_C(i) : s2v(base + GETARG_C(i))) #define updatetrap(ci) (trap = ci->u.l.trap) #define updatebase(ci) (base = ci->func.p + 1) #define updatestack(ci) \ { if (l_unlikely(trap)) { updatebase(ci); ra = RA(i); } } #define dojump(ci,i,e) { pc += GETARG_sJ(i) + e; updatetrap(ci); } #define donextjump(ci) { Instruction ni = *pc; dojump(ci, ni, 1); } #define docondjump() if (cond != GETARG_k(i)) pc++; else donextjump(ci); #define savepc(L) (ci->u.l.savedpc = pc) #define savestate(L,ci) (savepc(L), L->top.p = ci->top.p) #define Protect(exp) (savestate(L,ci), (exp), updatetrap(ci)) #define ProtectNT(exp) (savepc(L), (exp), updatetrap(ci)) #define halfProtect(exp) (savestate(L,ci), (exp)) #define checkGC(L,c) \ { luaC_condGC(L, (savepc(L), L->top.p = (c)), \ updatetrap(ci)); \ luai_threadyield(L); } #define vmfetch() { \ if (l_unlikely(trap)) { \ trap = luaG_traceexec(L, pc); \ updatebase(ci); \ } \ i = *(pc++); \ } #define vmdispatch(o) switch(o) #define vmcase(l) case l: #define vmbreak break void luaV_execute (lua_State *L, CallInfo *ci) { LClosure *cl; TValue *k; StkId base; const Instruction *pc; int trap; #if LUA_USE_JUMPTABLE //path: src/imports/../dependencies/lua/ljumptab.h #undef vmdispatch #undef vmcase #undef vmbreak #define vmdispatch(x) goto *disptab[x]; #define vmcase(l) L_##l: #define vmbreak vmfetch(); vmdispatch(GET_OPCODE(i)); static const void *const disptab[NUM_OPCODES] = { #if 0 ** you can update the following list with this command: ** ** sed -n '/^OP_/\!d; s/OP_/\&\&L_OP_/ ; s/,.*/,/ ; s/\/.*// ; p' lopcodes.h ** #endif &&L_OP_MOVE, &&L_OP_LOADI, &&L_OP_LOADF, &&L_OP_LOADK, &&L_OP_LOADKX, &&L_OP_LOADFALSE, &&L_OP_LFALSESKIP, &&L_OP_LOADTRUE, &&L_OP_LOADNIL, &&L_OP_GETUPVAL, &&L_OP_SETUPVAL, &&L_OP_GETTABUP, &&L_OP_GETTABLE, &&L_OP_GETI, &&L_OP_GETFIELD, &&L_OP_SETTABUP, &&L_OP_SETTABLE, &&L_OP_SETI, &&L_OP_SETFIELD, &&L_OP_NEWTABLE, &&L_OP_SELF, &&L_OP_ADDI, &&L_OP_ADDK, &&L_OP_SUBK, &&L_OP_MULK, &&L_OP_MODK, &&L_OP_POWK, &&L_OP_DIVK, &&L_OP_IDIVK, &&L_OP_BANDK, &&L_OP_BORK, &&L_OP_BXORK, &&L_OP_SHRI, &&L_OP_SHLI, &&L_OP_ADD, &&L_OP_SUB, &&L_OP_MUL, &&L_OP_MOD, &&L_OP_POW, &&L_OP_DIV, &&L_OP_IDIV, &&L_OP_BAND, &&L_OP_BOR, &&L_OP_BXOR, &&L_OP_SHL, &&L_OP_SHR, &&L_OP_MMBIN, &&L_OP_MMBINI, &&L_OP_MMBINK, &&L_OP_UNM, &&L_OP_BNOT, &&L_OP_NOT, &&L_OP_LEN, &&L_OP_CONCAT, &&L_OP_CLOSE, &&L_OP_TBC, &&L_OP_JMP, &&L_OP_EQ, &&L_OP_LT, &&L_OP_LE, &&L_OP_EQK, &&L_OP_EQI, &&L_OP_LTI, &&L_OP_LEI, &&L_OP_GTI, &&L_OP_GEI, &&L_OP_TEST, &&L_OP_TESTSET, &&L_OP_CALL, &&L_OP_TAILCALL, &&L_OP_RETURN, &&L_OP_RETURN0, &&L_OP_RETURN1, &&L_OP_FORLOOP, &&L_OP_FORPREP, &&L_OP_TFORPREP, &&L_OP_TFORCALL, &&L_OP_TFORLOOP, &&L_OP_SETLIST, &&L_OP_CLOSURE, &&L_OP_VARARG, &&L_OP_VARARGPREP, &&L_OP_EXTRAARG }; #endif startfunc: trap = L->hookmask; returning: cl = ci_func(ci); k = cl->p->k; pc = ci->u.l.savedpc; if (l_unlikely(trap)) trap = luaG_tracecall(L); base = ci->func.p + 1; for (;;) { Instruction i; vmfetch(); #if 0 printf("line: %d\n", luaG_getfuncline(cl->p, pcRel(pc, cl->p))); #endif lua_assert(base == ci->func.p + 1); lua_assert(base <= L->top.p && L->top.p <= L->stack_last.p); lua_assert(isIT(i) || (cast_void(L->top.p = base), 1)); vmdispatch (GET_OPCODE(i)) { vmcase(OP_MOVE) { StkId ra = RA(i); setobjs2s(L, ra, RB(i)); vmbreak; } vmcase(OP_LOADI) { StkId ra = RA(i); lua_Integer b = GETARG_sBx(i); setivalue(s2v(ra), b); vmbreak; } vmcase(OP_LOADF) { StkId ra = RA(i); int b = GETARG_sBx(i); setfltvalue(s2v(ra), cast_num(b)); vmbreak; } vmcase(OP_LOADK) { StkId ra = RA(i); TValue *rb = k + GETARG_Bx(i); setobj2s(L, ra, rb); vmbreak; } vmcase(OP_LOADKX) { StkId ra = RA(i); TValue *rb; rb = k + GETARG_Ax(*pc); pc++; setobj2s(L, ra, rb); vmbreak; } vmcase(OP_LOADFALSE) { StkId ra = RA(i); setbfvalue(s2v(ra)); vmbreak; } vmcase(OP_LFALSESKIP) { StkId ra = RA(i); setbfvalue(s2v(ra)); pc++; vmbreak; } vmcase(OP_LOADTRUE) { StkId ra = RA(i); setbtvalue(s2v(ra)); vmbreak; } vmcase(OP_LOADNIL) { StkId ra = RA(i); int b = GETARG_B(i); do { setnilvalue(s2v(ra++)); } while (b--); vmbreak; } vmcase(OP_GETUPVAL) { StkId ra = RA(i); int b = GETARG_B(i); setobj2s(L, ra, cl->upvals[b]->v.p); vmbreak; } vmcase(OP_SETUPVAL) { StkId ra = RA(i); UpVal *uv = cl->upvals[GETARG_B(i)]; setobj(L, uv->v.p, s2v(ra)); luaC_barrier(L, uv, s2v(ra)); vmbreak; } vmcase(OP_GETTABUP) { StkId ra = RA(i); TValue *upval = cl->upvals[GETARG_B(i)]->v.p; TValue *rc = KC(i); TString *key = tsvalue(rc); int tag; luaV_fastget(upval, key, s2v(ra), luaH_getshortstr, tag); if (tagisempty(tag)) Protect(luaV_finishget(L, upval, rc, ra, tag)); vmbreak; } vmcase(OP_GETTABLE) { StkId ra = RA(i); TValue *rb = vRB(i); TValue *rc = vRC(i); int tag; if (ttisinteger(rc)) { luaV_fastgeti(rb, ivalue(rc), s2v(ra), tag); } else luaV_fastget(rb, rc, s2v(ra), luaH_get, tag); if (tagisempty(tag)) Protect(luaV_finishget(L, rb, rc, ra, tag)); vmbreak; } vmcase(OP_GETI) { StkId ra = RA(i); TValue *rb = vRB(i); int c = GETARG_C(i); int tag; luaV_fastgeti(rb, c, s2v(ra), tag); if (tagisempty(tag)) { TValue key; setivalue(&key, c); Protect(luaV_finishget(L, rb, &key, ra, tag)); } vmbreak; } vmcase(OP_GETFIELD) { StkId ra = RA(i); TValue *rb = vRB(i); TValue *rc = KC(i); TString *key = tsvalue(rc); int tag; luaV_fastget(rb, key, s2v(ra), luaH_getshortstr, tag); if (tagisempty(tag)) Protect(luaV_finishget(L, rb, rc, ra, tag)); vmbreak; } vmcase(OP_SETTABUP) { int hres; TValue *upval = cl->upvals[GETARG_A(i)]->v.p; TValue *rb = KB(i); TValue *rc = RKC(i); TString *key = tsvalue(rb); luaV_fastset(upval, key, rc, hres, luaH_psetshortstr); if (hres == HOK) luaV_finishfastset(L, upval, rc); else Protect(luaV_finishset(L, upval, rb, rc, hres)); vmbreak; } vmcase(OP_SETTABLE) { StkId ra = RA(i); int hres; TValue *rb = vRB(i); TValue *rc = RKC(i); if (ttisinteger(rb)) { luaV_fastseti(s2v(ra), ivalue(rb), rc, hres); } else { luaV_fastset(s2v(ra), rb, rc, hres, luaH_pset); } if (hres == HOK) luaV_finishfastset(L, s2v(ra), rc); else Protect(luaV_finishset(L, s2v(ra), rb, rc, hres)); vmbreak; } vmcase(OP_SETI) { StkId ra = RA(i); int hres; int b = GETARG_B(i); TValue *rc = RKC(i); luaV_fastseti(s2v(ra), b, rc, hres); if (hres == HOK) luaV_finishfastset(L, s2v(ra), rc); else { TValue key; setivalue(&key, b); Protect(luaV_finishset(L, s2v(ra), &key, rc, hres)); } vmbreak; } vmcase(OP_SETFIELD) { StkId ra = RA(i); int hres; TValue *rb = KB(i); TValue *rc = RKC(i); TString *key = tsvalue(rb); luaV_fastset(s2v(ra), key, rc, hres, luaH_psetshortstr); if (hres == HOK) luaV_finishfastset(L, s2v(ra), rc); else Protect(luaV_finishset(L, s2v(ra), rb, rc, hres)); vmbreak; } vmcase(OP_NEWTABLE) { StkId ra = RA(i); int b = GETARG_B(i); int c = GETARG_C(i); Table *t; if (b > 0) b = 1 << (b - 1); lua_assert((!TESTARG_k(i)) == (GETARG_Ax(*pc) == 0)); if (TESTARG_k(i)) c += GETARG_Ax(*pc) * (MAXARG_C + 1); pc++; L->top.p = ra + 1; t = luaH_new(L); sethvalue2s(L, ra, t); if (b != 0 || c != 0) luaH_resize(L, t, c, b); checkGC(L, ra + 1); vmbreak; } vmcase(OP_SELF) { StkId ra = RA(i); int tag; TValue *rb = vRB(i); TValue *rc = RKC(i); TString *key = tsvalue(rc); setobj2s(L, ra + 1, rb); luaV_fastget(rb, key, s2v(ra), luaH_getstr, tag); if (tagisempty(tag)) Protect(luaV_finishget(L, rb, rc, ra, tag)); vmbreak; } vmcase(OP_ADDI) { op_arithI(L, l_addi, luai_numadd); vmbreak; } vmcase(OP_ADDK) { op_arithK(L, l_addi, luai_numadd); vmbreak; } vmcase(OP_SUBK) { op_arithK(L, l_subi, luai_numsub); vmbreak; } vmcase(OP_MULK) { op_arithK(L, l_muli, luai_nummul); vmbreak; } vmcase(OP_MODK) { savestate(L, ci); op_arithK(L, luaV_mod, luaV_modf); vmbreak; } vmcase(OP_POWK) { op_arithfK(L, luai_numpow); vmbreak; } vmcase(OP_DIVK) { op_arithfK(L, luai_numdiv); vmbreak; } vmcase(OP_IDIVK) { savestate(L, ci); op_arithK(L, luaV_idiv, luai_numidiv); vmbreak; } vmcase(OP_BANDK) { op_bitwiseK(L, l_band); vmbreak; } vmcase(OP_BORK) { op_bitwiseK(L, l_bor); vmbreak; } vmcase(OP_BXORK) { op_bitwiseK(L, l_bxor); vmbreak; } vmcase(OP_SHRI) { StkId ra = RA(i); TValue *rb = vRB(i); int ic = GETARG_sC(i); lua_Integer ib; if (tointegerns(rb, &ib)) { pc++; setivalue(s2v(ra), luaV_shiftl(ib, -ic)); } vmbreak; } vmcase(OP_SHLI) { StkId ra = RA(i); TValue *rb = vRB(i); int ic = GETARG_sC(i); lua_Integer ib; if (tointegerns(rb, &ib)) { pc++; setivalue(s2v(ra), luaV_shiftl(ic, ib)); } vmbreak; } vmcase(OP_ADD) { op_arith(L, l_addi, luai_numadd); vmbreak; } vmcase(OP_SUB) { op_arith(L, l_subi, luai_numsub); vmbreak; } vmcase(OP_MUL) { op_arith(L, l_muli, luai_nummul); vmbreak; } vmcase(OP_MOD) { savestate(L, ci); op_arith(L, luaV_mod, luaV_modf); vmbreak; } vmcase(OP_POW) { op_arithf(L, luai_numpow); vmbreak; } vmcase(OP_DIV) { op_arithf(L, luai_numdiv); vmbreak; } vmcase(OP_IDIV) { savestate(L, ci); op_arith(L, luaV_idiv, luai_numidiv); vmbreak; } vmcase(OP_BAND) { op_bitwise(L, l_band); vmbreak; } vmcase(OP_BOR) { op_bitwise(L, l_bor); vmbreak; } vmcase(OP_BXOR) { op_bitwise(L, l_bxor); vmbreak; } vmcase(OP_SHR) { op_bitwise(L, luaV_shiftr); vmbreak; } vmcase(OP_SHL) { op_bitwise(L, luaV_shiftl); vmbreak; } vmcase(OP_MMBIN) { StkId ra = RA(i); Instruction pi = *(pc - 2); TValue *rb = vRB(i); TMS tm = (TMS)GETARG_C(i); StkId result = RA(pi); lua_assert(OP_ADD <= GET_OPCODE(pi) && GET_OPCODE(pi) <= OP_SHR); Protect(luaT_trybinTM(L, s2v(ra), rb, result, tm)); vmbreak; } vmcase(OP_MMBINI) { StkId ra = RA(i); Instruction pi = *(pc - 2); int imm = GETARG_sB(i); TMS tm = (TMS)GETARG_C(i); int flip = GETARG_k(i); StkId result = RA(pi); Protect(luaT_trybiniTM(L, s2v(ra), imm, flip, result, tm)); vmbreak; } vmcase(OP_MMBINK) { StkId ra = RA(i); Instruction pi = *(pc - 2); TValue *imm = KB(i); TMS tm = (TMS)GETARG_C(i); int flip = GETARG_k(i); StkId result = RA(pi); Protect(luaT_trybinassocTM(L, s2v(ra), imm, flip, result, tm)); vmbreak; } vmcase(OP_UNM) { StkId ra = RA(i); TValue *rb = vRB(i); lua_Number nb; if (ttisinteger(rb)) { lua_Integer ib = ivalue(rb); setivalue(s2v(ra), intop(-, 0, ib)); } else if (tonumberns(rb, nb)) { setfltvalue(s2v(ra), luai_numunm(L, nb)); } else Protect(luaT_trybinTM(L, rb, rb, ra, TM_UNM)); vmbreak; } vmcase(OP_BNOT) { StkId ra = RA(i); TValue *rb = vRB(i); lua_Integer ib; if (tointegerns(rb, &ib)) { setivalue(s2v(ra), intop(^, ~l_castS2U(0), ib)); } else Protect(luaT_trybinTM(L, rb, rb, ra, TM_BNOT)); vmbreak; } vmcase(OP_NOT) { StkId ra = RA(i); TValue *rb = vRB(i); if (l_isfalse(rb)) setbtvalue(s2v(ra)); else setbfvalue(s2v(ra)); vmbreak; } vmcase(OP_LEN) { StkId ra = RA(i); Protect(luaV_objlen(L, ra, vRB(i))); vmbreak; } vmcase(OP_CONCAT) { StkId ra = RA(i); int n = GETARG_B(i); L->top.p = ra + n; ProtectNT(luaV_concat(L, n)); checkGC(L, L->top.p); vmbreak; } vmcase(OP_CLOSE) { StkId ra = RA(i); Protect(luaF_close(L, ra, LUA_OK, 1)); vmbreak; } vmcase(OP_TBC) { StkId ra = RA(i); halfProtect(luaF_newtbcupval(L, ra)); vmbreak; } vmcase(OP_JMP) { dojump(ci, i, 0); vmbreak; } vmcase(OP_EQ) { StkId ra = RA(i); int cond; TValue *rb = vRB(i); Protect(cond = luaV_equalobj(L, s2v(ra), rb)); docondjump(); vmbreak; } vmcase(OP_LT) { op_order(L, l_lti, LTnum, lessthanothers); vmbreak; } vmcase(OP_LE) { op_order(L, l_lei, LEnum, lessequalothers); vmbreak; } vmcase(OP_EQK) { StkId ra = RA(i); TValue *rb = KB(i); int cond = luaV_rawequalobj(s2v(ra), rb); docondjump(); vmbreak; } vmcase(OP_EQI) { StkId ra = RA(i); int cond; int im = GETARG_sB(i); if (ttisinteger(s2v(ra))) cond = (ivalue(s2v(ra)) == im); else if (ttisfloat(s2v(ra))) cond = luai_numeq(fltvalue(s2v(ra)), cast_num(im)); else cond = 0; docondjump(); vmbreak; } vmcase(OP_LTI) { op_orderI(L, l_lti, luai_numlt, 0, TM_LT); vmbreak; } vmcase(OP_LEI) { op_orderI(L, l_lei, luai_numle, 0, TM_LE); vmbreak; } vmcase(OP_GTI) { op_orderI(L, l_gti, luai_numgt, 1, TM_LT); vmbreak; } vmcase(OP_GEI) { op_orderI(L, l_gei, luai_numge, 1, TM_LE); vmbreak; } vmcase(OP_TEST) { StkId ra = RA(i); int cond = !l_isfalse(s2v(ra)); docondjump(); vmbreak; } vmcase(OP_TESTSET) { StkId ra = RA(i); TValue *rb = vRB(i); if (l_isfalse(rb) == GETARG_k(i)) pc++; else { setobj2s(L, ra, rb); donextjump(ci); } vmbreak; } vmcase(OP_CALL) { StkId ra = RA(i); CallInfo *newci; int b = GETARG_B(i); int nresults = GETARG_C(i) - 1; if (b != 0) L->top.p = ra + b; savepc(L); if ((newci = luaD_precall(L, ra, nresults)) == NULL) updatetrap(ci); else { ci = newci; goto startfunc; } vmbreak; } vmcase(OP_TAILCALL) { StkId ra = RA(i); int b = GETARG_B(i); int n; int nparams1 = GETARG_C(i); int delta = (nparams1) ? ci->u.l.nextraargs + nparams1 : 0; if (b != 0) L->top.p = ra + b; else b = cast_int(L->top.p - ra); savepc(ci); if (TESTARG_k(i)) { luaF_closeupval(L, base); lua_assert(L->tbclist.p < base); lua_assert(base == ci->func.p + 1); } if ((n = luaD_pretailcall(L, ci, ra, b, delta)) < 0) goto startfunc; else { ci->func.p -= delta; luaD_poscall(L, ci, n); updatetrap(ci); goto ret; } } vmcase(OP_RETURN) { StkId ra = RA(i); int n = GETARG_B(i) - 1; int nparams1 = GETARG_C(i); if (n < 0) n = cast_int(L->top.p - ra); savepc(ci); if (TESTARG_k(i)) { ci->u2.nres = n; if (L->top.p < ci->top.p) L->top.p = ci->top.p; luaF_close(L, base, CLOSEKTOP, 1); updatetrap(ci); updatestack(ci); } if (nparams1) ci->func.p -= ci->u.l.nextraargs + nparams1; L->top.p = ra + n; luaD_poscall(L, ci, n); updatetrap(ci); goto ret; } vmcase(OP_RETURN0) { if (l_unlikely(L->hookmask)) { StkId ra = RA(i); L->top.p = ra; savepc(ci); luaD_poscall(L, ci, 0); trap = 1; } else { int nres; L->ci = ci->previous; L->top.p = base - 1; for (nres = ci->nresults; l_unlikely(nres > 0); nres--) setnilvalue(s2v(L->top.p++)); } goto ret; } vmcase(OP_RETURN1) { if (l_unlikely(L->hookmask)) { StkId ra = RA(i); L->top.p = ra + 1; savepc(ci); luaD_poscall(L, ci, 1); trap = 1; } else { int nres = ci->nresults; L->ci = ci->previous; if (nres == 0) L->top.p = base - 1; else { StkId ra = RA(i); setobjs2s(L, base - 1, ra); L->top.p = base; for (; l_unlikely(nres > 1); nres--) setnilvalue(s2v(L->top.p++)); } } ret: if (ci->callstatus & CIST_FRESH) return; else { ci = ci->previous; goto returning; } } vmcase(OP_FORLOOP) { StkId ra = RA(i); if (ttisinteger(s2v(ra + 1))) { lua_Unsigned count = l_castS2U(ivalue(s2v(ra))); if (count > 0) { lua_Integer step = ivalue(s2v(ra + 1)); lua_Integer idx = ivalue(s2v(ra + 2)); chgivalue(s2v(ra), count - 1); idx = intop(+, idx, step); chgivalue(s2v(ra + 2), idx); pc -= GETARG_Bx(i); } } else if (floatforloop(ra)) pc -= GETARG_Bx(i); updatetrap(ci); vmbreak; } vmcase(OP_FORPREP) { StkId ra = RA(i); savestate(L, ci); if (forprep(L, ra)) pc += GETARG_Bx(i) + 1; vmbreak; } vmcase(OP_TFORPREP) { StkId ra = RA(i); TValue temp; setobj(L, &temp, s2v(ra + 3)); setobjs2s(L, ra + 3, ra + 2); setobj2s(L, ra + 2, &temp); halfProtect(luaF_newtbcupval(L, ra + 2)); pc += GETARG_Bx(i); i = *(pc++); lua_assert(GET_OPCODE(i) == OP_TFORCALL && ra == RA(i)); goto l_tforcall; } vmcase(OP_TFORCALL) { l_tforcall: { StkId ra = RA(i); setobjs2s(L, ra + 5, ra + 3); setobjs2s(L, ra + 4, ra + 1); setobjs2s(L, ra + 3, ra); L->top.p = ra + 3 + 3; ProtectNT(luaD_call(L, ra + 3, GETARG_C(i))); updatestack(ci); i = *(pc++); lua_assert(GET_OPCODE(i) == OP_TFORLOOP && ra == RA(i)); goto l_tforloop; }} vmcase(OP_TFORLOOP) { l_tforloop: { StkId ra = RA(i); if (!ttisnil(s2v(ra + 3))) pc -= GETARG_Bx(i); vmbreak; }} vmcase(OP_SETLIST) { StkId ra = RA(i); int n = GETARG_B(i); unsigned int last = GETARG_C(i); Table *h = hvalue(s2v(ra)); if (n == 0) n = cast_int(L->top.p - ra) - 1; else L->top.p = ci->top.p; last += n; if (TESTARG_k(i)) { last += GETARG_Ax(*pc) * (MAXARG_C + 1); pc++; } if (last > luaH_realasize(h)) luaH_resizearray(L, h, last); for (; n > 0; n--) { TValue *val = s2v(ra + n); obj2arr(h, last, val); last--; luaC_barrierback(L, obj2gco(h), val); } vmbreak; } vmcase(OP_CLOSURE) { StkId ra = RA(i); Proto *p = cl->p->p[GETARG_Bx(i)]; halfProtect(pushclosure(L, p, cl->upvals, base, ra)); checkGC(L, ra + 1); vmbreak; } vmcase(OP_VARARG) { StkId ra = RA(i); int n = GETARG_C(i) - 1; Protect(luaT_getvarargs(L, ci, ra, n)); vmbreak; } vmcase(OP_VARARGPREP) { ProtectNT(luaT_adjustvarargs(L, GETARG_A(i), ci, cl->p)); if (l_unlikely(trap)) { luaD_hookcall(L, ci); L->oldpc = 1; } updatebase(ci); vmbreak; } vmcase(OP_EXTRAARG) { lua_assert(0); vmbreak; } } } } //path: src/imports/../dependencies/lua/lapi.c #define lapi_c #define LUA_CORE #include #include #include const char lua_ident[] = "$LuaVersion: " LUA_COPYRIGHT " $" "$LuaAuthors: " LUA_AUTHORS " $"; #define isvalid(L, o) (!ttisnil(o) || o != &G(L)->nilvalue) #define ispseudo(i) ((i) <= LUA_REGISTRYINDEX) #define isupvalue(i) ((i) < LUA_REGISTRYINDEX) static void advancegc (lua_State *L, size_t delta) { delta >>= 5; if (delta > 0) { global_State *g = G(L); luaE_setdebt(g, g->GCdebt - delta); } } static TValue *index2value (lua_State *L, int idx) { CallInfo *ci = L->ci; if (idx > 0) { StkId o = ci->func.p + idx; api_check(L, idx <= ci->top.p - (ci->func.p + 1), "unacceptable index"); if (o >= L->top.p) return &G(L)->nilvalue; else return s2v(o); } else if (!ispseudo(idx)) { api_check(L, idx != 0 && -idx <= L->top.p - (ci->func.p + 1), "invalid index"); return s2v(L->top.p + idx); } else if (idx == LUA_REGISTRYINDEX) return &G(L)->l_registry; else { idx = LUA_REGISTRYINDEX - idx; api_check(L, idx <= MAXUPVAL + 1, "upvalue index too large"); if (ttisCclosure(s2v(ci->func.p))) { CClosure *func = clCvalue(s2v(ci->func.p)); return (idx <= func->nupvalues) ? &func->upvalue[idx-1] : &G(L)->nilvalue; } else { api_check(L, ttislcf(s2v(ci->func.p)), "caller not a C function"); return &G(L)->nilvalue; } } } static StkId index2stack (lua_State *L, int idx) { CallInfo *ci = L->ci; if (idx > 0) { StkId o = ci->func.p + idx; api_check(L, o < L->top.p, "invalid index"); return o; } else { api_check(L, idx != 0 && -idx <= L->top.p - (ci->func.p + 1), "invalid index"); api_check(L, !ispseudo(idx), "invalid index"); return L->top.p + idx; } } LUA_API int lua_checkstack (lua_State *L, int n) { int res; CallInfo *ci; lua_lock(L); ci = L->ci; api_check(L, n >= 0, "negative 'n'"); if (L->stack_last.p - L->top.p > n) res = 1; else res = luaD_growstack(L, n, 0); if (res && ci->top.p < L->top.p + n) ci->top.p = L->top.p + n; lua_unlock(L); return res; } LUA_API void lua_xmove (lua_State *from, lua_State *to, int n) { int i; if (from == to) return; lua_lock(to); api_checkpop(from, n); api_check(from, G(from) == G(to), "moving among independent states"); api_check(from, to->ci->top.p - to->top.p >= n, "stack overflow"); from->top.p -= n; for (i = 0; i < n; i++) { setobjs2s(to, to->top.p, from->top.p + i); to->top.p++; } lua_unlock(to); } LUA_API lua_CFunction lua_atpanic (lua_State *L, lua_CFunction panicf) { lua_CFunction old; lua_lock(L); old = G(L)->panic; G(L)->panic = panicf; lua_unlock(L); return old; } LUA_API lua_Number lua_version (lua_State *L) { UNUSED(L); return LUA_VERSION_NUM; } LUA_API int lua_absindex (lua_State *L, int idx) { return (idx > 0 || ispseudo(idx)) ? idx : cast_int(L->top.p - L->ci->func.p) + idx; } LUA_API int lua_gettop (lua_State *L) { return cast_int(L->top.p - (L->ci->func.p + 1)); } LUA_API void lua_settop (lua_State *L, int idx) { CallInfo *ci; StkId func, newtop; ptrdiff_t diff; lua_lock(L); ci = L->ci; func = ci->func.p; if (idx >= 0) { api_check(L, idx <= ci->top.p - (func + 1), "new top too large"); diff = ((func + 1) + idx) - L->top.p; for (; diff > 0; diff--) setnilvalue(s2v(L->top.p++)); } else { api_check(L, -(idx+1) <= (L->top.p - (func + 1)), "invalid new top"); diff = idx + 1; } newtop = L->top.p + diff; if (diff < 0 && L->tbclist.p >= newtop) { lua_assert(hastocloseCfunc(ci->nresults)); newtop = luaF_close(L, newtop, CLOSEKTOP, 0); } L->top.p = newtop; lua_unlock(L); } LUA_API void lua_closeslot (lua_State *L, int idx) { StkId level; lua_lock(L); level = index2stack(L, idx); api_check(L, hastocloseCfunc(L->ci->nresults) && L->tbclist.p == level, "no variable to close at given level"); level = luaF_close(L, level, CLOSEKTOP, 0); setnilvalue(s2v(level)); lua_unlock(L); } static void reverse (lua_State *L, StkId from, StkId to) { for (; from < to; from++, to--) { TValue temp; setobj(L, &temp, s2v(from)); setobjs2s(L, from, to); setobj2s(L, to, &temp); } } LUA_API void lua_rotate (lua_State *L, int idx, int n) { StkId p, t, m; lua_lock(L); t = L->top.p - 1; p = index2stack(L, idx); api_check(L, L->tbclist.p < p, "moving a to-be-closed slot"); api_check(L, (n >= 0 ? n : -n) <= (t - p + 1), "invalid 'n'"); m = (n >= 0 ? t - n : p - n - 1); reverse(L, p, m); reverse(L, m + 1, t); reverse(L, p, t); lua_unlock(L); } LUA_API void lua_copy (lua_State *L, int fromidx, int toidx) { TValue *fr, *to; lua_lock(L); fr = index2value(L, fromidx); to = index2value(L, toidx); api_check(L, isvalid(L, to), "invalid index"); setobj(L, to, fr); if (isupvalue(toidx)) luaC_barrier(L, clCvalue(s2v(L->ci->func.p)), fr); lua_unlock(L); } LUA_API void lua_pushvalue (lua_State *L, int idx) { lua_lock(L); setobj2s(L, L->top.p, index2value(L, idx)); api_incr_top(L); lua_unlock(L); } LUA_API int lua_type (lua_State *L, int idx) { const TValue *o = index2value(L, idx); return (isvalid(L, o) ? ttype(o) : LUA_TNONE); } LUA_API const char *lua_typename (lua_State *L, int t) { UNUSED(L); api_check(L, LUA_TNONE <= t && t < LUA_NUMTYPES, "invalid type"); return ttypename(t); } LUA_API int lua_iscfunction (lua_State *L, int idx) { const TValue *o = index2value(L, idx); return (ttislcf(o) || (ttisCclosure(o))); } LUA_API int lua_isinteger (lua_State *L, int idx) { const TValue *o = index2value(L, idx); return ttisinteger(o); } LUA_API int lua_isnumber (lua_State *L, int idx) { lua_Number n; const TValue *o = index2value(L, idx); return tonumber(o, &n); } LUA_API int lua_isstring (lua_State *L, int idx) { const TValue *o = index2value(L, idx); return (ttisstring(o) || cvt2str(o)); } LUA_API int lua_isuserdata (lua_State *L, int idx) { const TValue *o = index2value(L, idx); return (ttisfulluserdata(o) || ttislightuserdata(o)); } LUA_API int lua_rawequal (lua_State *L, int index1, int index2) { const TValue *o1 = index2value(L, index1); const TValue *o2 = index2value(L, index2); return (isvalid(L, o1) && isvalid(L, o2)) ? luaV_rawequalobj(o1, o2) : 0; } LUA_API void lua_arith (lua_State *L, int op) { lua_lock(L); if (op != LUA_OPUNM && op != LUA_OPBNOT) api_checkpop(L, 2); else { api_checkpop(L, 1); setobjs2s(L, L->top.p, L->top.p - 1); api_incr_top(L); } luaO_arith(L, op, s2v(L->top.p - 2), s2v(L->top.p - 1), L->top.p - 2); L->top.p--; lua_unlock(L); } LUA_API int lua_compare (lua_State *L, int index1, int index2, int op) { const TValue *o1; const TValue *o2; int i = 0; lua_lock(L); o1 = index2value(L, index1); o2 = index2value(L, index2); if (isvalid(L, o1) && isvalid(L, o2)) { switch (op) { case LUA_OPEQ: i = luaV_equalobj(L, o1, o2); break; case LUA_OPLT: i = luaV_lessthan(L, o1, o2); break; case LUA_OPLE: i = luaV_lessequal(L, o1, o2); break; default: api_check(L, 0, "invalid option"); } } lua_unlock(L); return i; } LUA_API size_t lua_stringtonumber (lua_State *L, const char *s) { size_t sz = luaO_str2num(s, s2v(L->top.p)); if (sz != 0) api_incr_top(L); return sz; } LUA_API lua_Number lua_tonumberx (lua_State *L, int idx, int *pisnum) { lua_Number n = 0; const TValue *o = index2value(L, idx); int isnum = tonumber(o, &n); if (pisnum) *pisnum = isnum; return n; } LUA_API lua_Integer lua_tointegerx (lua_State *L, int idx, int *pisnum) { lua_Integer res = 0; const TValue *o = index2value(L, idx); int isnum = tointeger(o, &res); if (pisnum) *pisnum = isnum; return res; } LUA_API int lua_toboolean (lua_State *L, int idx) { const TValue *o = index2value(L, idx); return !l_isfalse(o); } LUA_API const char *lua_tolstring (lua_State *L, int idx, size_t *len) { TValue *o; lua_lock(L); o = index2value(L, idx); if (!ttisstring(o)) { if (!cvt2str(o)) { if (len != NULL) *len = 0; lua_unlock(L); return NULL; } luaO_tostring(L, o); luaC_checkGC(L); o = index2value(L, idx); } lua_unlock(L); if (len != NULL) return getlstr(tsvalue(o), *len); else return getstr(tsvalue(o)); } LUA_API lua_Unsigned lua_rawlen (lua_State *L, int idx) { const TValue *o = index2value(L, idx); switch (ttypetag(o)) { case LUA_VSHRSTR: return tsvalue(o)->shrlen; case LUA_VLNGSTR: return tsvalue(o)->u.lnglen; case LUA_VUSERDATA: return uvalue(o)->len; case LUA_VTABLE: return luaH_getn(hvalue(o)); default: return 0; } } LUA_API lua_CFunction lua_tocfunction (lua_State *L, int idx) { const TValue *o = index2value(L, idx); if (ttislcf(o)) return fvalue(o); else if (ttisCclosure(o)) return clCvalue(o)->f; else return NULL; } l_sinline void *touserdata (const TValue *o) { switch (ttype(o)) { case LUA_TUSERDATA: return getudatamem(uvalue(o)); case LUA_TLIGHTUSERDATA: return pvalue(o); default: return NULL; } } LUA_API void *lua_touserdata (lua_State *L, int idx) { const TValue *o = index2value(L, idx); return touserdata(o); } LUA_API lua_State *lua_tothread (lua_State *L, int idx) { const TValue *o = index2value(L, idx); return (!ttisthread(o)) ? NULL : thvalue(o); } LUA_API const void *lua_topointer (lua_State *L, int idx) { const TValue *o = index2value(L, idx); switch (ttypetag(o)) { case LUA_VLCF: return cast_voidp(cast_sizet(fvalue(o))); case LUA_VUSERDATA: case LUA_VLIGHTUSERDATA: return touserdata(o); default: { if (iscollectable(o)) return gcvalue(o); else return NULL; } } } LUA_API void lua_pushnil (lua_State *L) { lua_lock(L); setnilvalue(s2v(L->top.p)); api_incr_top(L); lua_unlock(L); } LUA_API void lua_pushnumber (lua_State *L, lua_Number n) { lua_lock(L); setfltvalue(s2v(L->top.p), n); api_incr_top(L); lua_unlock(L); } LUA_API void lua_pushinteger (lua_State *L, lua_Integer n) { lua_lock(L); setivalue(s2v(L->top.p), n); api_incr_top(L); lua_unlock(L); } LUA_API const char *lua_pushlstring (lua_State *L, const char *s, size_t len) { TString *ts; lua_lock(L); ts = (len == 0) ? luaS_new(L, "carview.php?tsp=") : luaS_newlstr(L, s, len); setsvalue2s(L, L->top.p, ts); api_incr_top(L); advancegc(L, len); luaC_checkGC(L); lua_unlock(L); return getstr(ts); } LUA_API const char *lua_pushextlstring (lua_State *L, const char *s, size_t len, lua_Alloc falloc, void *ud) { TString *ts; lua_lock(L); api_check(L, s[len] == '\0', "string not ending with zero"); ts = luaS_newextlstr (L, s, len, falloc, ud); setsvalue2s(L, L->top.p, ts); api_incr_top(L); if (falloc != NULL) advancegc(L, len); luaC_checkGC(L); lua_unlock(L); return getstr(ts); } LUA_API const char *lua_pushstring (lua_State *L, const char *s) { lua_lock(L); if (s == NULL) setnilvalue(s2v(L->top.p)); else { TString *ts; ts = luaS_new(L, s); setsvalue2s(L, L->top.p, ts); s = getstr(ts); } api_incr_top(L); luaC_checkGC(L); lua_unlock(L); return s; } LUA_API const char *lua_pushvfstring (lua_State *L, const char *fmt, va_list argp) { const char *ret; lua_lock(L); ret = luaO_pushvfstring(L, fmt, argp); luaC_checkGC(L); lua_unlock(L); return ret; } LUA_API const char *lua_pushfstring (lua_State *L, const char *fmt, ...) { const char *ret; va_list argp; lua_lock(L); va_start(argp, fmt); ret = luaO_pushvfstring(L, fmt, argp); va_end(argp); luaC_checkGC(L); lua_unlock(L); return ret; } LUA_API void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n) { lua_lock(L); if (n == 0) { setfvalue(s2v(L->top.p), fn); api_incr_top(L); } else { int i; CClosure *cl; api_checkpop(L, n); api_check(L, n <= MAXUPVAL, "upvalue index too large"); cl = luaF_newCclosure(L, n); cl->f = fn; for (i = 0; i < n; i++) { setobj2n(L, &cl->upvalue[i], s2v(L->top.p - n + i)); lua_assert(iswhite(cl)); } L->top.p -= n; setclCvalue(L, s2v(L->top.p), cl); api_incr_top(L); luaC_checkGC(L); } lua_unlock(L); } LUA_API void lua_pushboolean (lua_State *L, int b) { lua_lock(L); if (b) setbtvalue(s2v(L->top.p)); else setbfvalue(s2v(L->top.p)); api_incr_top(L); lua_unlock(L); } LUA_API void lua_pushlightuserdata (lua_State *L, void *p) { lua_lock(L); setpvalue(s2v(L->top.p), p); api_incr_top(L); lua_unlock(L); } LUA_API int lua_pushthread (lua_State *L) { lua_lock(L); setthvalue(L, s2v(L->top.p), L); api_incr_top(L); lua_unlock(L); return (G(L)->mainthread == L); } static int auxgetstr (lua_State *L, const TValue *t, const char *k) { int tag; TString *str = luaS_new(L, k); luaV_fastget(t, str, s2v(L->top.p), luaH_getstr, tag); if (!tagisempty(tag)) { api_incr_top(L); } else { setsvalue2s(L, L->top.p, str); api_incr_top(L); tag = luaV_finishget(L, t, s2v(L->top.p - 1), L->top.p - 1, tag); } lua_unlock(L); return novariant(tag); } static void getGlobalTable (lua_State *L, TValue *gt) { Table *registry = hvalue(&G(L)->l_registry); int tag = luaH_getint(registry, LUA_RIDX_GLOBALS, gt); (void)tag; api_check(L, novariant(tag) == LUA_TTABLE, "global table must exist"); } LUA_API int lua_getglobal (lua_State *L, const char *name) { TValue gt; lua_lock(L); getGlobalTable(L, >); return auxgetstr(L, >, name); } LUA_API int lua_gettable (lua_State *L, int idx) { int tag; TValue *t; lua_lock(L); api_checkpop(L, 1); t = index2value(L, idx); luaV_fastget(t, s2v(L->top.p - 1), s2v(L->top.p - 1), luaH_get, tag); if (tagisempty(tag)) tag = luaV_finishget(L, t, s2v(L->top.p - 1), L->top.p - 1, tag); lua_unlock(L); return novariant(tag); } LUA_API int lua_getfield (lua_State *L, int idx, const char *k) { lua_lock(L); return auxgetstr(L, index2value(L, idx), k); } LUA_API int lua_geti (lua_State *L, int idx, lua_Integer n) { TValue *t; int tag; lua_lock(L); t = index2value(L, idx); luaV_fastgeti(t, n, s2v(L->top.p), tag); if (tagisempty(tag)) { TValue key; setivalue(&key, n); tag = luaV_finishget(L, t, &key, L->top.p, tag); } api_incr_top(L); lua_unlock(L); return novariant(tag); } static int finishrawget (lua_State *L, int tag) { if (tagisempty(tag)) setnilvalue(s2v(L->top.p)); api_incr_top(L); lua_unlock(L); return novariant(tag); } l_sinline Table *gettable (lua_State *L, int idx) { TValue *t = index2value(L, idx); api_check(L, ttistable(t), "table expected"); return hvalue(t); } LUA_API int lua_rawget (lua_State *L, int idx) { Table *t; int tag; lua_lock(L); api_checkpop(L, 1); t = gettable(L, idx); tag = luaH_get(t, s2v(L->top.p - 1), s2v(L->top.p - 1)); L->top.p--; return finishrawget(L, tag); } LUA_API int lua_rawgeti (lua_State *L, int idx, lua_Integer n) { Table *t; int tag; lua_lock(L); t = gettable(L, idx); luaH_fastgeti(t, n, s2v(L->top.p), tag); return finishrawget(L, tag); } LUA_API int lua_rawgetp (lua_State *L, int idx, const void *p) { Table *t; TValue k; lua_lock(L); t = gettable(L, idx); setpvalue(&k, cast_voidp(p)); return finishrawget(L, luaH_get(t, &k, s2v(L->top.p))); } LUA_API void lua_createtable (lua_State *L, unsigned narray, unsigned nrec) { Table *t; lua_lock(L); t = luaH_new(L); sethvalue2s(L, L->top.p, t); api_incr_top(L); if (narray > 0 || nrec > 0) luaH_resize(L, t, narray, nrec); luaC_checkGC(L); lua_unlock(L); } LUA_API int lua_getmetatable (lua_State *L, int objindex) { const TValue *obj; Table *mt; int res = 0; lua_lock(L); obj = index2value(L, objindex); switch (ttype(obj)) { case LUA_TTABLE: mt = hvalue(obj)->metatable; break; case LUA_TUSERDATA: mt = uvalue(obj)->metatable; break; default: mt = G(L)->mt[ttype(obj)]; break; } if (mt != NULL) { sethvalue2s(L, L->top.p, mt); api_incr_top(L); res = 1; } lua_unlock(L); return res; } LUA_API int lua_getiuservalue (lua_State *L, int idx, int n) { TValue *o; int t; lua_lock(L); o = index2value(L, idx); api_check(L, ttisfulluserdata(o), "full userdata expected"); if (n <= 0 || n > uvalue(o)->nuvalue) { setnilvalue(s2v(L->top.p)); t = LUA_TNONE; } else { setobj2s(L, L->top.p, &uvalue(o)->uv[n - 1].uv); t = ttype(s2v(L->top.p)); } api_incr_top(L); lua_unlock(L); return t; } static void auxsetstr (lua_State *L, const TValue *t, const char *k) { int hres; TString *str = luaS_new(L, k); api_checkpop(L, 1); luaV_fastset(t, str, s2v(L->top.p - 1), hres, luaH_psetstr); if (hres == HOK) { luaV_finishfastset(L, t, s2v(L->top.p - 1)); L->top.p--; } else { setsvalue2s(L, L->top.p, str); api_incr_top(L); luaV_finishset(L, t, s2v(L->top.p - 1), s2v(L->top.p - 2), hres); L->top.p -= 2; } lua_unlock(L); } LUA_API void lua_setglobal (lua_State *L, const char *name) { TValue gt; lua_lock(L); getGlobalTable(L, >); auxsetstr(L, >, name); } LUA_API void lua_settable (lua_State *L, int idx) { TValue *t; int hres; lua_lock(L); api_checkpop(L, 2); t = index2value(L, idx); luaV_fastset(t, s2v(L->top.p - 2), s2v(L->top.p - 1), hres, luaH_pset); if (hres == HOK) { luaV_finishfastset(L, t, s2v(L->top.p - 1)); } else luaV_finishset(L, t, s2v(L->top.p - 2), s2v(L->top.p - 1), hres); L->top.p -= 2; lua_unlock(L); } LUA_API void lua_setfield (lua_State *L, int idx, const char *k) { lua_lock(L); auxsetstr(L, index2value(L, idx), k); } LUA_API void lua_seti (lua_State *L, int idx, lua_Integer n) { TValue *t; int hres; lua_lock(L); api_checkpop(L, 1); t = index2value(L, idx); luaV_fastseti(t, n, s2v(L->top.p - 1), hres); if (hres == HOK) luaV_finishfastset(L, t, s2v(L->top.p - 1)); else { TValue temp; setivalue(&temp, n); luaV_finishset(L, t, &temp, s2v(L->top.p - 1), hres); } L->top.p--; lua_unlock(L); } static void aux_rawset (lua_State *L, int idx, TValue *key, int n) { Table *t; lua_lock(L); api_checkpop(L, n); t = gettable(L, idx); luaH_set(L, t, key, s2v(L->top.p - 1)); invalidateTMcache(t); luaC_barrierback(L, obj2gco(t), s2v(L->top.p - 1)); L->top.p -= n; lua_unlock(L); } LUA_API void lua_rawset (lua_State *L, int idx) { aux_rawset(L, idx, s2v(L->top.p - 2), 2); } LUA_API void lua_rawsetp (lua_State *L, int idx, const void *p) { TValue k; setpvalue(&k, cast_voidp(p)); aux_rawset(L, idx, &k, 1); } LUA_API void lua_rawseti (lua_State *L, int idx, lua_Integer n) { Table *t; lua_lock(L); api_checkpop(L, 1); t = gettable(L, idx); luaH_setint(L, t, n, s2v(L->top.p - 1)); luaC_barrierback(L, obj2gco(t), s2v(L->top.p - 1)); L->top.p--; lua_unlock(L); } LUA_API int lua_setmetatable (lua_State *L, int objindex) { TValue *obj; Table *mt; lua_lock(L); api_checkpop(L, 1); obj = index2value(L, objindex); if (ttisnil(s2v(L->top.p - 1))) mt = NULL; else { api_check(L, ttistable(s2v(L->top.p - 1)), "table expected"); mt = hvalue(s2v(L->top.p - 1)); } switch (ttype(obj)) { case LUA_TTABLE: { hvalue(obj)->metatable = mt; if (mt) { luaC_objbarrier(L, gcvalue(obj), mt); luaC_checkfinalizer(L, gcvalue(obj), mt); } break; } case LUA_TUSERDATA: { uvalue(obj)->metatable = mt; if (mt) { luaC_objbarrier(L, uvalue(obj), mt); luaC_checkfinalizer(L, gcvalue(obj), mt); } break; } default: { G(L)->mt[ttype(obj)] = mt; break; } } L->top.p--; lua_unlock(L); return 1; } LUA_API int lua_setiuservalue (lua_State *L, int idx, int n) { TValue *o; int res; lua_lock(L); api_checkpop(L, 1); o = index2value(L, idx); api_check(L, ttisfulluserdata(o), "full userdata expected"); if (!(cast_uint(n) - 1u < cast_uint(uvalue(o)->nuvalue))) res = 0; else { setobj(L, &uvalue(o)->uv[n - 1].uv, s2v(L->top.p - 1)); luaC_barrierback(L, gcvalue(o), s2v(L->top.p - 1)); res = 1; } L->top.p--; lua_unlock(L); return res; } #define checkresults(L,na,nr) \ api_check(L, (nr) == LUA_MULTRET \ || (L->ci->top.p - L->top.p >= (nr) - (na)), \ "results from function overflow current stack size") LUA_API void lua_callk (lua_State *L, int nargs, int nresults, lua_KContext ctx, lua_KFunction k) { StkId func; lua_lock(L); api_check(L, k == NULL || !isLua(L->ci), "cannot use continuations inside hooks"); api_checkpop(L, nargs + 1); api_check(L, L->status == LUA_OK, "cannot do calls on non-normal thread"); checkresults(L, nargs, nresults); func = L->top.p - (nargs+1); if (k != NULL && yieldable(L)) { L->ci->u.c.k = k; L->ci->u.c.ctx = ctx; luaD_call(L, func, nresults); } else luaD_callnoyield(L, func, nresults); adjustresults(L, nresults); lua_unlock(L); } struct CallS { StkId func; int nresults; }; static void f_call (lua_State *L, void *ud) { struct CallS *c = cast(struct CallS *, ud); luaD_callnoyield(L, c->func, c->nresults); } LUA_API int lua_pcallk (lua_State *L, int nargs, int nresults, int errfunc, lua_KContext ctx, lua_KFunction k) { struct CallS c; int status; ptrdiff_t func; lua_lock(L); api_check(L, k == NULL || !isLua(L->ci), "cannot use continuations inside hooks"); api_checkpop(L, nargs + 1); api_check(L, L->status == LUA_OK, "cannot do calls on non-normal thread"); checkresults(L, nargs, nresults); if (errfunc == 0) func = 0; else { StkId o = index2stack(L, errfunc); api_check(L, ttisfunction(s2v(o)), "private_lua_error handler must be a function"); func = savestack(L, o); } c.func = L->top.p - (nargs+1); if (k == NULL || !yieldable(L)) { c.nresults = nresults; status = luaD_pcall(L, f_call, &c, savestack(L, c.func), func); } else { CallInfo *ci = L->ci; ci->u.c.k = k; ci->u.c.ctx = ctx; ci->u2.funcidx = cast_int(savestack(L, c.func)); ci->u.c.old_errfunc = L->errfunc; L->errfunc = func; setoah(ci->callstatus, L->allowhook); ci->callstatus |= CIST_YPCALL; luaD_call(L, c.func, nresults); ci->callstatus &= ~CIST_YPCALL; L->errfunc = ci->u.c.old_errfunc; status = LUA_OK; } adjustresults(L, nresults); lua_unlock(L); return status; } LUA_API int lua_load (lua_State *L, lua_Reader reader, void *data, const char *chunkname, const char *mode) { ZIO z; int status; lua_lock(L); if (!chunkname) chunkname = "?"; luaZ_init(L, &z, reader, data); status = luaD_protectedparser(L, &z, chunkname, mode); if (status == LUA_OK) { LClosure *f = clLvalue(s2v(L->top.p - 1)); if (f->nupvalues >= 1) { TValue gt; getGlobalTable(L, >); setobj(L, f->upvals[0]->v.p, >); luaC_barrier(L, f->upvals[0], >); } } lua_unlock(L); return status; } LUA_API int lua_dump (lua_State *L, lua_Writer writer, void *data, int strip) { int status; ptrdiff_t otop = savestack(L, L->top.p); TValue *f = s2v(L->top.p - 1); lua_lock(L); api_checkpop(L, 1); api_check(L, isLfunction(f), "Lua function expected"); status = luaU_dump(L, clLvalue(f)->p, writer, data, strip); L->top.p = restorestack(L, otop); lua_unlock(L); return status; } LUA_API int lua_status (lua_State *L) { return L->status; } LUA_API int lua_gc (lua_State *L, int what, ...) { va_list argp; int res = 0; global_State *g = G(L); if (g->gcstp & (GCSTPGC | GCSTPCLS)) return -1; lua_lock(L); va_start(argp, what); switch (what) { case LUA_GCSTOP: { g->gcstp = GCSTPUSR; break; } case LUA_GCRESTART: { luaE_setdebt(g, 0); g->gcstp = 0; break; } case LUA_GCCOLLECT: { luaC_fullgc(L, 0); break; } case LUA_GCCOUNT: { res = cast_int(g->totalbytes >> 10); break; } case LUA_GCCOUNTB: { res = cast_int(g->totalbytes & 0x3ff); break; } case LUA_GCSTEP: { lu_byte oldstp = g->gcstp; l_obj n = va_arg(argp, int); int work = 0; g->gcstp = 0; if (n <= 0) n = g->GCdebt; luaE_setdebt(g, g->GCdebt - n); luaC_condGC(L, (void)0, work = 1); if (work && g->gcstate == GCSpause) res = 1; g->gcstp = oldstp; break; } case LUA_GCISRUNNING: { res = gcrunning(g); break; } case LUA_GCGEN: { res = (g->gckind == KGC_INC) ? LUA_GCINC : LUA_GCGEN; luaC_changemode(L, KGC_GENMINOR); break; } case LUA_GCINC: { res = (g->gckind == KGC_INC) ? LUA_GCINC : LUA_GCGEN; luaC_changemode(L, KGC_INC); break; } case LUA_GCPARAM: { int param = va_arg(argp, int); int value = va_arg(argp, int); api_check(L, 0 <= param && param < LUA_GCPN, "invalid parameter"); res = cast_int(luaO_applyparam(g->gcparams[param], 100)); if (value >= 0) g->gcparams[param] = luaO_codeparam(value); break; } default: res = -1; } va_end(argp); lua_unlock(L); return res; } LUA_API int lua_error (lua_State *L) { TValue *errobj; lua_lock(L); errobj = s2v(L->top.p - 1); api_checkpop(L, 1); if (ttisshrstring(errobj) && eqshrstr(tsvalue(errobj), G(L)->memerrmsg)) luaM_error(L); else luaG_errormsg(L); return 0; } LUA_API int lua_next (lua_State *L, int idx) { Table *t; int more; lua_lock(L); api_checkpop(L, 1); t = gettable(L, idx); more = luaH_next(L, t, L->top.p - 1); if (more) api_incr_top(L); else L->top.p--; lua_unlock(L); return more; } LUA_API void lua_toclose (lua_State *L, int idx) { int nresults; StkId o; lua_lock(L); o = index2stack(L, idx); nresults = L->ci->nresults; api_check(L, L->tbclist.p < o, "given index below or equal a marked one"); luaF_newtbcupval(L, o); if (!hastocloseCfunc(nresults)) L->ci->nresults = codeNresults(nresults); lua_assert(hastocloseCfunc(L->ci->nresults)); lua_unlock(L); } LUA_API void lua_concat (lua_State *L, int n) { lua_lock(L); api_checknelems(L, n); if (n > 0) { luaV_concat(L, n); luaC_checkGC(L); } else { setsvalue2s(L, L->top.p, luaS_newlstr(L, "carview.php?tsp=", 0)); api_incr_top(L); } lua_unlock(L); } LUA_API void lua_len (lua_State *L, int idx) { TValue *t; lua_lock(L); t = index2value(L, idx); luaV_objlen(L, L->top.p, t); api_incr_top(L); lua_unlock(L); } LUA_API lua_Alloc lua_getallocf (lua_State *L, void **ud) { lua_Alloc f; lua_lock(L); if (ud) *ud = G(L)->ud; f = G(L)->frealloc; lua_unlock(L); return f; } LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud) { lua_lock(L); G(L)->ud = ud; G(L)->frealloc = f; lua_unlock(L); } void lua_setwarnf (lua_State *L, lua_WarnFunction f, void *ud) { lua_lock(L); G(L)->ud_warn = ud; G(L)->warnf = f; lua_unlock(L); } void lua_warning (lua_State *L, const char *msg, int tocont) { lua_lock(L); luaE_warning(L, msg, tocont); lua_unlock(L); } LUA_API void *lua_newuserdatauv (lua_State *L, size_t size, int nuvalue) { Udata *u; lua_lock(L); api_check(L, 0 <= nuvalue && nuvalue < USHRT_MAX, "invalid value"); u = luaS_newudata(L, size, nuvalue); setuvalue(L, s2v(L->top.p), u); api_incr_top(L); advancegc(L, size); luaC_checkGC(L); lua_unlock(L); return getudatamem(u); } static const char *aux_upvalue (TValue *fi, int n, TValue **val, GCObject **owner) { switch (ttypetag(fi)) { case LUA_VCCL: { CClosure *f = clCvalue(fi); if (!(cast_uint(n) - 1u < cast_uint(f->nupvalues))) return NULL; *val = &f->upvalue[n-1]; if (owner) *owner = obj2gco(f); return "carview.php?tsp="; } case LUA_VLCL: { LClosure *f = clLvalue(fi); TString *name; Proto *p = f->p; if (!(cast_uint(n) - 1u < cast_uint(p->sizeupvalues))) return NULL; *val = f->upvals[n-1]->v.p; if (owner) *owner = obj2gco(f->upvals[n - 1]); name = p->upvalues[n-1].name; return (name == NULL) ? "(no name)" : getstr(name); } default: return NULL; } } LUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n) { const char *name; TValue *val = NULL; lua_lock(L); name = aux_upvalue(index2value(L, funcindex), n, &val, NULL); if (name) { setobj2s(L, L->top.p, val); api_incr_top(L); } lua_unlock(L); return name; } LUA_API const char *lua_setupvalue (lua_State *L, int funcindex, int n) { const char *name; TValue *val = NULL; GCObject *owner = NULL; TValue *fi; lua_lock(L); fi = index2value(L, funcindex); api_checknelems(L, 1); name = aux_upvalue(fi, n, &val, &owner); if (name) { L->top.p--; setobj(L, val, s2v(L->top.p)); luaC_barrier(L, owner, val); } lua_unlock(L); return name; } static UpVal **getupvalref (lua_State *L, int fidx, int n, LClosure **pf) { static const UpVal *const nullup = NULL; LClosure *f; TValue *fi = index2value(L, fidx); api_check(L, ttisLclosure(fi), "Lua function expected"); f = clLvalue(fi); if (pf) *pf = f; if (1 <= n && n <= f->p->sizeupvalues) return &f->upvals[n - 1]; else return (UpVal**)&nullup; } LUA_API void *lua_upvalueid (lua_State *L, int fidx, int n) { TValue *fi = index2value(L, fidx); switch (ttypetag(fi)) { case LUA_VLCL: { return *getupvalref(L, fidx, n, NULL); } case LUA_VCCL: { CClosure *f = clCvalue(fi); if (1 <= n && n <= f->nupvalues) return &f->upvalue[n - 1]; } case LUA_VLCF: return NULL; default: { api_check(L, 0, "function expected"); return NULL; } } } LUA_API void lua_upvaluejoin (lua_State *L, int fidx1, int n1, int fidx2, int n2) { LClosure *f1; UpVal **up1 = getupvalref(L, fidx1, n1, &f1); UpVal **up2 = getupvalref(L, fidx2, n2, NULL); api_check(L, *up1 != NULL && *up2 != NULL, "invalid upvalue index"); *up1 = *up2; luaC_objbarrier(L, f1, *up1); } //path: src/imports/../dependencies/lua/lauxlib.c #define lauxlib_c #define LUA_LIB #include #include #include #include #include //path: src/imports/../dependencies/lua/lauxlib.h #ifndef lauxlib_h #define lauxlib_h #include #include #define LUA_GNAME "_G" typedef struct luaL_Buffer luaL_Buffer; #define LUA_ERRFILE (LUA_ERRERR+1) #define LUA_LOADED_TABLE "_LOADED" #define LUA_PRELOAD_TABLE "_PRELOAD" typedef struct luaL_Reg { const char *name; lua_CFunction func; } luaL_Reg; #define LUAL_NUMSIZES (sizeof(lua_Integer)*16 + sizeof(lua_Number)) LUALIB_API void (luaL_checkversion_) (lua_State *L, lua_Number ver, size_t sz); #define luaL_checkversion(L) \ luaL_checkversion_(L, LUA_VERSION_NUM, LUAL_NUMSIZES) LUALIB_API int (luaL_getmetafield) (lua_State *L, int obj, const char *e); LUALIB_API int (luaL_callmeta) (lua_State *L, int obj, const char *e); LUALIB_API const char *(luaL_tolstring) (lua_State *L, int idx, size_t *len); LUALIB_API int (luaL_argerror) (lua_State *L, int arg, const char *extramsg); LUALIB_API int (luaL_typeerror) (lua_State *L, int arg, const char *tname); LUALIB_API const char *(luaL_checklstring) (lua_State *L, int arg, size_t *l); LUALIB_API const char *(luaL_optlstring) (lua_State *L, int arg, const char *def, size_t *l); LUALIB_API lua_Number (luaL_checknumber) (lua_State *L, int arg); LUALIB_API lua_Number (luaL_optnumber) (lua_State *L, int arg, lua_Number def); LUALIB_API lua_Integer (luaL_checkinteger) (lua_State *L, int arg); LUALIB_API lua_Integer (luaL_optinteger) (lua_State *L, int arg, lua_Integer def); LUALIB_API void (luaL_checkstack) (lua_State *L, int sz, const char *msg); LUALIB_API void (luaL_checktype) (lua_State *L, int arg, int t); LUALIB_API void (luaL_checkany) (lua_State *L, int arg); LUALIB_API int (luaL_newmetatable) (lua_State *L, const char *tname); LUALIB_API void (luaL_setmetatable) (lua_State *L, const char *tname); LUALIB_API void *(luaL_testudata) (lua_State *L, int ud, const char *tname); LUALIB_API void *(luaL_checkudata) (lua_State *L, int ud, const char *tname); LUALIB_API void (luaL_where) (lua_State *L, int lvl); LUALIB_API int (luaL_error) (lua_State *L, const char *fmt, ...); LUALIB_API int (luaL_checkoption) (lua_State *L, int arg, const char *def, const char *const lst[]); LUALIB_API int (luaL_fileresult) (lua_State *L, int stat, const char *fname); LUALIB_API int (luaL_execresult) (lua_State *L, int stat); #define LUA_NOREF (-2) #define LUA_REFNIL (-1) LUALIB_API int (luaL_ref) (lua_State *L, int t); LUALIB_API void (luaL_unref) (lua_State *L, int t, int ref); LUALIB_API int (luaL_loadfilex) (lua_State *L, const char *filename, const char *mode); #define luaL_loadfile(L,f) luaL_loadfilex(L,f,NULL) LUALIB_API int (luaL_loadbufferx) (lua_State *L, const char *buff, size_t sz, const char *name, const char *mode); LUALIB_API int (luaL_loadstring) (lua_State *L, const char *s); LUALIB_API lua_State *(luaL_newstate) (void); LUALIB_API unsigned luaL_makeseed (lua_State *L); LUALIB_API lua_Integer (luaL_len) (lua_State *L, int idx); LUALIB_API void (luaL_addgsub) (luaL_Buffer *b, const char *s, const char *p, const char *r); LUALIB_API const char *(luaL_gsub) (lua_State *L, const char *s, const char *p, const char *r); LUALIB_API void (luaL_setfuncs) (lua_State *L, const luaL_Reg *l, int nup); LUALIB_API int (luaL_getsubtable) (lua_State *L, int idx, const char *fname); LUALIB_API void (luaL_traceback) (lua_State *L, lua_State *L1, const char *msg, int level); LUALIB_API void (luaL_requiref) (lua_State *L, const char *modname, lua_CFunction openf, int glb); #define luaL_newlibtable(L,l) \ lua_createtable(L, 0, sizeof(l)/sizeof((l)[0]) - 1) #define luaL_newlib(L,l) \ (luaL_checkversion(L), luaL_newlibtable(L,l), luaL_setfuncs(L,l,0)) #define luaL_argcheck(L, cond,arg,extramsg) \ ((void)(luai_likely(cond) || luaL_argerror(L, (arg), (extramsg)))) #define luaL_argexpected(L,cond,arg,tname) \ ((void)(luai_likely(cond) || luaL_typeerror(L, (arg), (tname)))) #define luaL_checkstring(L,n) (luaL_checklstring(L, (n), NULL)) #define luaL_optstring(L,n,d) (luaL_optlstring(L, (n), (d), NULL)) #define luaL_typename(L,i) lua_typename(L, lua_type(L,(i))) #define luaL_dofile(L, fn) \ (luaL_loadfile(L, fn) || lua_pcall(L, 0, LUA_MULTRET, 0)) #define luaL_dostring(L, s) \ (luaL_loadstring(L, s) || lua_pcall(L, 0, LUA_MULTRET, 0)) #define luaL_getmetatable(L,n) (lua_getfield(L, LUA_REGISTRYINDEX, (n))) #define luaL_opt(L,f,n,d) (lua_isnoneornil(L,(n)) ? (d) : f(L,(n))) #define luaL_loadbuffer(L,s,sz,n) luaL_loadbufferx(L,s,sz,n,NULL) #define luaL_intop(op,v1,v2) \ ((lua_Integer)((lua_Unsigned)(v1) op (lua_Unsigned)(v2))) #define luaL_pushfail(L) lua_pushnil(L) #if !defined(lua_assert) #if defined LUAI_ASSERT #include #define lua_assert(c) assert(c) #else #define lua_assert(c) ((void)0) #endif #endif struct luaL_Buffer { char *b; size_t size; size_t n; lua_State *L; union { LUAI_MAXALIGN; char b[LUAL_BUFFERSIZE]; } init; }; #define luaL_bufflen(bf) ((bf)->n) #define luaL_buffaddr(bf) ((bf)->b) #define luaL_addchar(B,c) \ ((void)((B)->n < (B)->size || luaL_prepbuffsize((B), 1)), \ ((B)->b[(B)->n++] = (c))) #define luaL_addsize(B,s) ((B)->n += (s)) #define luaL_buffsub(B,s) ((B)->n -= (s)) LUALIB_API void (luaL_buffinit) (lua_State *L, luaL_Buffer *B); LUALIB_API char *(luaL_prepbuffsize) (luaL_Buffer *B, size_t sz); LUALIB_API void (luaL_addlstring) (luaL_Buffer *B, const char *s, size_t l); LUALIB_API void (luaL_addstring) (luaL_Buffer *B, const char *s); LUALIB_API void (luaL_addvalue) (luaL_Buffer *B); LUALIB_API void (luaL_pushresult) (luaL_Buffer *B); LUALIB_API void (luaL_pushresultsize) (luaL_Buffer *B, size_t sz); LUALIB_API char *(luaL_buffinitsize) (lua_State *L, luaL_Buffer *B, size_t sz); #define luaL_prepbuffer(B) luaL_prepbuffsize(B, LUAL_BUFFERSIZE) #define LUA_FILEHANDLE "FILE*" typedef struct luaL_Stream { FILE *f; lua_CFunction closef; } luaL_Stream; #if !defined(lua_writestring) #define lua_writestring(s,l) fwrite((s), sizeof(char), (l), stdout) #endif #if !defined(lua_writeline) #define lua_writeline() (lua_writestring("\n", 1), fflush(stdout)) #endif #if !defined(lua_writestringerror) #define lua_writestringerror(s,p) \ (fprintf(stderr, (s), (p)), fflush(stderr)) #endif #if defined(LUA_COMPAT_APIINTCASTS) #define luaL_checkunsigned(L,a) ((lua_Unsigned)luaL_checkinteger(L,a)) #define luaL_optunsigned(L,a,d) \ ((lua_Unsigned)luaL_optinteger(L,a,(lua_Integer)(d))) #define luaL_checkint(L,n) ((int)luaL_checkinteger(L, (n))) #define luaL_optint(L,n,d) ((int)luaL_optinteger(L, (n), (d))) #define luaL_checklong(L,n) ((long)luaL_checkinteger(L, (n))) #define luaL_optlong(L,n,d) ((long)luaL_optinteger(L, (n), (d))) #endif #endif #if !defined(MAX_SIZET) #define MAX_SIZET ((size_t)(~(size_t)0)) #endif #define LEVELS1 10 #define LEVELS2 11 static int findfield (lua_State *L, int objidx, int level) { if (level == 0 || !lua_istable(L, -1)) return 0; lua_pushnil(L); while (lua_next(L, -2)) { if (lua_type(L, -2) == LUA_TSTRING) { if (lua_rawequal(L, objidx, -1)) { lua_pop(L, 1); return 1; } else if (findfield(L, objidx, level - 1)) { lua_pushliteral(L, "."); lua_replace(L, -3); lua_concat(L, 3); return 1; } } lua_pop(L, 1); } return 0; } static int pushglobalfuncname (lua_State *L, lua_Debug *ar) { int top = lua_gettop(L); lua_getinfo(L, "f", ar); lua_getfield(L, LUA_REGISTRYINDEX, LUA_LOADED_TABLE); if (findfield(L, top + 1, 2)) { const char *name = lua_tostring(L, -1); if (strncmp(name, LUA_GNAME ".", 3) == 0) { lua_pushstring(L, name + 3); lua_remove(L, -2); } lua_copy(L, -1, top + 1); lua_settop(L, top + 1); return 1; } else { lua_settop(L, top); return 0; } } static void pushfuncname (lua_State *L, lua_Debug *ar) { if (pushglobalfuncname(L, ar)) { lua_pushfstring(L, "function '%s'", lua_tostring(L, -1)); lua_remove(L, -2); } else if (*ar->namewhat != '\0') lua_pushfstring(L, "%s '%s'", ar->namewhat, ar->name); else if (*ar->what == 'm') lua_pushliteral(L, "main chunk"); else if (*ar->what != 'C') lua_pushfstring(L, "function <%s:%d>", ar->short_src, ar->linedefined); else lua_pushliteral(L, "?"); } static int lastlevel (lua_State *L) { lua_Debug ar; int li = 1, le = 1; while (lua_getstack(L, le, &ar)) { li = le; le *= 2; } while (li < le) { int m = (li + le)/2; if (lua_getstack(L, m, &ar)) li = m + 1; else le = m; } return le - 1; } LUALIB_API void luaL_traceback (lua_State *L, lua_State *L1, const char *msg, int level) { luaL_Buffer b; lua_Debug ar; int last = lastlevel(L1); int limit2show = (last - level > LEVELS1 + LEVELS2) ? LEVELS1 : -1; luaL_buffinit(L, &b); if (msg) { luaL_addstring(&b, msg); luaL_addchar(&b, '\n'); } luaL_addstring(&b, "stack traceback:"); while (lua_getstack(L1, level++, &ar)) { if (limit2show-- == 0) { int n = last - level - LEVELS2 + 1; lua_pushfstring(L, "\n\t...\t(skipping %d levels)", n); luaL_addvalue(&b); level += n; } else { lua_getinfo(L1, "Slnt", &ar); if (ar.currentline <= 0) lua_pushfstring(L, "\n\t%s: in ", ar.short_src); else lua_pushfstring(L, "\n\t%s:%d: in ", ar.short_src, ar.currentline); luaL_addvalue(&b); pushfuncname(L, &ar); luaL_addvalue(&b); if (ar.istailcall) luaL_addstring(&b, "\n\t(...tail calls...)"); } } luaL_pushresult(&b); } LUALIB_API int luaL_argerror (lua_State *L, int arg, const char *extramsg) { lua_Debug ar; if (!lua_getstack(L, 0, &ar)) return luaL_error(L, "bad argument #%d (%s)", arg, extramsg); lua_getinfo(L, "n", &ar); if (strcmp(ar.namewhat, "method") == 0) { arg--; if (arg == 0) return luaL_error(L, "calling '%s' on bad self (%s)", ar.name, extramsg); } if (ar.name == NULL) ar.name = (pushglobalfuncname(L, &ar)) ? lua_tostring(L, -1) : "?"; return luaL_error(L, "bad argument #%d to '%s' (%s)", arg, ar.name, extramsg); } LUALIB_API int luaL_typeerror (lua_State *L, int arg, const char *tname) { const char *msg; const char *typearg; if (luaL_getmetafield(L, arg, "__name") == LUA_TSTRING) typearg = lua_tostring(L, -1); else if (lua_type(L, arg) == LUA_TLIGHTUSERDATA) typearg = "light userdata"; else typearg = luaL_typename(L, arg); msg = lua_pushfstring(L, "%s expected, got %s", tname, typearg); return luaL_argerror(L, arg, msg); } static void tag_error (lua_State *L, int arg, int tag) { luaL_typeerror(L, arg, lua_typename(L, tag)); } LUALIB_API void luaL_where (lua_State *L, int level) { lua_Debug ar; if (lua_getstack(L, level, &ar)) { lua_getinfo(L, "Sl", &ar); if (ar.currentline > 0) { lua_pushfstring(L, "%s:%d: ", ar.short_src, ar.currentline); return; } } lua_pushfstring(L, "carview.php?tsp="); } LUALIB_API int luaL_error (lua_State *L, const char *fmt, ...) { va_list argp; va_start(argp, fmt); luaL_where(L, 1); lua_pushvfstring(L, fmt, argp); va_end(argp); lua_concat(L, 2); return lua_error(L); } LUALIB_API int luaL_fileresult (lua_State *L, int stat, const char *fname) { int en = errno; if (stat) { lua_pushboolean(L, 1); return 1; } else { luaL_pushfail(L); if (fname) lua_pushfstring(L, "%s: %s", fname, strerror(en)); else lua_pushstring(L, strerror(en)); lua_pushinteger(L, en); return 3; } } #if !defined(l_inspectstat) #if defined(LUA_USE_POSIX) #include #define l_inspectstat(stat,what) \ if (WIFEXITED(stat)) { stat = WEXITSTATUS(stat); } \ else if (WIFSIGNALED(stat)) { stat = WTERMSIG(stat); what = "signal"; } #else #define l_inspectstat(stat,what) #endif #endif LUALIB_API int luaL_execresult (lua_State *L, int stat) { if (stat != 0 && errno != 0) return luaL_fileresult(L, 0, NULL); else { const char *what = "exit"; l_inspectstat(stat, what); if (*what == 'e' && stat == 0) lua_pushboolean(L, 1); else luaL_pushfail(L); lua_pushstring(L, what); lua_pushinteger(L, stat); return 3; } } LUALIB_API int luaL_newmetatable (lua_State *L, const char *tname) { if (luaL_getmetatable(L, tname) != LUA_TNIL) return 0; lua_pop(L, 1); lua_createtable(L, 0, 2); lua_pushstring(L, tname); lua_setfield(L, -2, "__name"); lua_pushvalue(L, -1); lua_setfield(L, LUA_REGISTRYINDEX, tname); return 1; } LUALIB_API void luaL_setmetatable (lua_State *L, const char *tname) { luaL_getmetatable(L, tname); lua_setmetatable(L, -2); } LUALIB_API void *luaL_testudata (lua_State *L, int ud, const char *tname) { void *p = lua_touserdata(L, ud); if (p != NULL) { if (lua_getmetatable(L, ud)) { luaL_getmetatable(L, tname); if (!lua_rawequal(L, -1, -2)) p = NULL; lua_pop(L, 2); return p; } } return NULL; } LUALIB_API void *luaL_checkudata (lua_State *L, int ud, const char *tname) { void *p = luaL_testudata(L, ud, tname); luaL_argexpected(L, p != NULL, ud, tname); return p; } LUALIB_API int luaL_checkoption (lua_State *L, int arg, const char *def, const char *const lst[]) { const char *name = (def) ? luaL_optstring(L, arg, def) : luaL_checkstring(L, arg); int i; for (i=0; lst[i]; i++) if (strcmp(lst[i], name) == 0) return i; return luaL_argerror(L, arg, lua_pushfstring(L, "invalid option '%s'", name)); } LUALIB_API void luaL_checkstack (lua_State *L, int space, const char *msg) { if (l_unlikely(!lua_checkstack(L, space))) { if (msg) luaL_error(L, "stack overflow (%s)", msg); else luaL_error(L, "stack overflow"); } } LUALIB_API void luaL_checktype (lua_State *L, int arg, int t) { if (l_unlikely(lua_type(L, arg) != t)) tag_error(L, arg, t); } LUALIB_API void luaL_checkany (lua_State *L, int arg) { if (l_unlikely(lua_type(L, arg) == LUA_TNONE)) luaL_argerror(L, arg, "value expected"); } LUALIB_API const char *luaL_checklstring (lua_State *L, int arg, size_t *len) { const char *s = lua_tolstring(L, arg, len); if (l_unlikely(!s)) tag_error(L, arg, LUA_TSTRING); return s; } LUALIB_API const char *luaL_optlstring (lua_State *L, int arg, const char *def, size_t *len) { if (lua_isnoneornil(L, arg)) { if (len) *len = (def ? strlen(def) : 0); return def; } else return luaL_checklstring(L, arg, len); } LUALIB_API lua_Number luaL_checknumber (lua_State *L, int arg) { int isnum; lua_Number d = lua_tonumberx(L, arg, &isnum); if (l_unlikely(!isnum)) tag_error(L, arg, LUA_TNUMBER); return d; } LUALIB_API lua_Number luaL_optnumber (lua_State *L, int arg, lua_Number def) { return luaL_opt(L, luaL_checknumber, arg, def); } static void interror (lua_State *L, int arg) { if (lua_isnumber(L, arg)) luaL_argerror(L, arg, "number has no integer representation"); else tag_error(L, arg, LUA_TNUMBER); } LUALIB_API lua_Integer luaL_checkinteger (lua_State *L, int arg) { int isnum; lua_Integer d = lua_tointegerx(L, arg, &isnum); if (l_unlikely(!isnum)) { interror(L, arg); } return d; } LUALIB_API lua_Integer luaL_optinteger (lua_State *L, int arg, lua_Integer def) { return luaL_opt(L, luaL_checkinteger, arg, def); } typedef struct UBox { void *box; size_t bsize; } UBox; static void *resizebox (lua_State *L, int idx, size_t newsize) { UBox *box = (UBox *)lua_touserdata(L, idx); if (box->bsize == newsize) return box->box; else { void *ud; lua_Alloc allocf = lua_getallocf(L, &ud); void *temp = allocf(ud, box->box, box->bsize, newsize); if (l_unlikely(temp == NULL && newsize > 0)) { lua_pushliteral(L, "not enough memory"); lua_error(L); } box->box = temp; box->bsize = newsize; return temp; } } static int boxgc (lua_State *L) { resizebox(L, 1, 0); return 0; } static const luaL_Reg boxmt[] = { {"__gc", boxgc}, {"__close", boxgc}, {NULL, NULL} }; static void newbox (lua_State *L) { UBox *box = (UBox *)lua_newuserdatauv(L, sizeof(UBox), 0); box->box = NULL; box->bsize = 0; if (luaL_newmetatable(L, "_UBOX*")) luaL_setfuncs(L, boxmt, 0); lua_setmetatable(L, -2); } #define buffonstack(B) ((B)->b != (B)->init.b) #define checkbufferlevel(B,idx) \ lua_assert(buffonstack(B) ? lua_touserdata(B->L, idx) != NULL \ : lua_touserdata(B->L, idx) == (void*)B) static size_t newbuffsize (luaL_Buffer *B, size_t sz) { size_t newsize = (B->size / 2) * 3; if (l_unlikely(MAX_SIZET - sz - 1 < B->n)) return luaL_error(B->L, "buffer too large"); if (newsize < B->n + sz + 1) newsize = B->n + sz + 1; return newsize; } static char *prepbuffsize (luaL_Buffer *B, size_t sz, int boxidx) { checkbufferlevel(B, boxidx); if (B->size - B->n >= sz) return B->b + B->n; else { lua_State *L = B->L; char *newbuff; size_t newsize = newbuffsize(B, sz); if (buffonstack(B)) newbuff = (char *)resizebox(L, boxidx, newsize); else { lua_remove(L, boxidx); newbox(L); lua_insert(L, boxidx); lua_toclose(L, boxidx); newbuff = (char *)resizebox(L, boxidx, newsize); memcpy(newbuff, B->b, B->n * sizeof(char)); } B->b = newbuff; B->size = newsize; return newbuff + B->n; } } LUALIB_API char *luaL_prepbuffsize (luaL_Buffer *B, size_t sz) { return prepbuffsize(B, sz, -1); } LUALIB_API void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l) { if (l > 0) { char *b = prepbuffsize(B, l, -1); memcpy(b, s, l * sizeof(char)); luaL_addsize(B, l); } } LUALIB_API void luaL_addstring (luaL_Buffer *B, const char *s) { luaL_addlstring(B, s, strlen(s)); } LUALIB_API void luaL_pushresult (luaL_Buffer *B) { lua_State *L = B->L; checkbufferlevel(B, -1); if (!buffonstack(B)) lua_pushlstring(L, B->b, B->n); else { UBox *box = (UBox *)lua_touserdata(L, -1); void *ud; lua_Alloc allocf = lua_getallocf(L, &ud); size_t len = B->n; char *s; resizebox(L, -1, len + 1); s = (char*)box->box; s[len] = '\0'; box->bsize = 0; box->box = NULL; lua_pushextlstring(L, s, len, allocf, ud); lua_closeslot(L, -2); } lua_remove(L, -2); } LUALIB_API void luaL_pushresultsize (luaL_Buffer *B, size_t sz) { luaL_addsize(B, sz); luaL_pushresult(B); } LUALIB_API void luaL_addvalue (luaL_Buffer *B) { lua_State *L = B->L; size_t len; const char *s = lua_tolstring(L, -1, &len); char *b = prepbuffsize(B, len, -2); memcpy(b, s, len * sizeof(char)); luaL_addsize(B, len); lua_pop(L, 1); } LUALIB_API void luaL_buffinit (lua_State *L, luaL_Buffer *B) { B->L = L; B->b = B->init.b; B->n = 0; B->size = LUAL_BUFFERSIZE; lua_pushlightuserdata(L, (void*)B); } LUALIB_API char *luaL_buffinitsize (lua_State *L, luaL_Buffer *B, size_t sz) { luaL_buffinit(L, B); return prepbuffsize(B, sz, -1); } LUALIB_API int luaL_ref (lua_State *L, int t) { int ref; if (lua_isnil(L, -1)) { lua_pop(L, 1); return LUA_REFNIL; } t = lua_absindex(L, t); if (lua_rawgeti(L, t, 1) == LUA_TNUMBER) ref = (int)lua_tointeger(L, -1); else { lua_assert(!lua_toboolean(L, -1)); ref = 0; lua_pushinteger(L, 0); lua_rawseti(L, t, 1); } lua_pop(L, 1); if (ref != 0) { lua_rawgeti(L, t, ref); lua_rawseti(L, t, 1); } else ref = (int)lua_rawlen(L, t) + 1; lua_rawseti(L, t, ref); return ref; } LUALIB_API void luaL_unref (lua_State *L, int t, int ref) { if (ref >= 0) { t = lua_absindex(L, t); lua_rawgeti(L, t, 1); lua_assert(lua_isinteger(L, -1)); lua_rawseti(L, t, ref); lua_pushinteger(L, ref); lua_rawseti(L, t, 1); } } typedef struct LoadF { int n; FILE *f; char buff[BUFSIZ]; } LoadF; static const char *getF (lua_State *L, void *ud, size_t *size) { LoadF *lf = (LoadF *)ud; (void)L; if (lf->n > 0) { *size = lf->n; lf->n = 0; } else { if (feof(lf->f)) return NULL; *size = fread(lf->buff, 1, sizeof(lf->buff), lf->f); } return lf->buff; } static int errfile (lua_State *L, const char *what, int fnameindex) { const char *serr = strerror(errno); const char *filename = lua_tostring(L, fnameindex) + 1; lua_pushfstring(L, "cannot %s %s: %s", what, filename, serr); lua_remove(L, fnameindex); return LUA_ERRFILE; } static int skipBOM (FILE *f) { int c = getc(f); if (c == 0xEF && getc(f) == 0xBB && getc(f) == 0xBF) return getc(f); else return c; } static int skipcomment (FILE *f, int *cp) { int c = *cp = skipBOM(f); if (c == '#') { do { c = getc(f); } while (c != EOF && c != '\n'); *cp = getc(f); return 1; } else return 0; } LUALIB_API int luaL_loadfilex (lua_State *L, const char *filename, const char *mode) { LoadF lf; int status, readstatus; int c; int fnameindex = lua_gettop(L) + 1; if (filename == NULL) { lua_pushliteral(L, "=stdin"); lf.f = stdin; } else { lua_pushfstring(L, "@%s", filename); lf.f = fopen(filename, "r"); if (lf.f == NULL) return errfile(L, "open", fnameindex); } lf.n = 0; if (skipcomment(lf.f, &c)) lf.buff[lf.n++] = '\n'; if (c == LUA_SIGNATURE[0]) { lf.n = 0; if (filename) { lf.f = freopen(filename, "rb", lf.f); if (lf.f == NULL) return errfile(L, "reopen", fnameindex); skipcomment(lf.f, &c); } } if (c != EOF) lf.buff[lf.n++] = c; status = lua_load(L, getF, &lf, lua_tostring(L, -1), mode); readstatus = ferror(lf.f); if (filename) fclose(lf.f); if (readstatus) { lua_settop(L, fnameindex); return errfile(L, "read", fnameindex); } lua_remove(L, fnameindex); return status; } typedef struct LoadS { const char *s; size_t size; } LoadS; static const char *getS (lua_State *L, void *ud, size_t *size) { LoadS *ls = (LoadS *)ud; (void)L; if (ls->size == 0) return NULL; *size = ls->size; ls->size = 0; return ls->s; } LUALIB_API int luaL_loadbufferx (lua_State *L, const char *buff, size_t size, const char *name, const char *mode) { LoadS ls; ls.s = buff; ls.size = size; return lua_load(L, getS, &ls, name, mode); } LUALIB_API int luaL_loadstring (lua_State *L, const char *s) { return luaL_loadbuffer(L, s, strlen(s), s); } LUALIB_API int luaL_getmetafield (lua_State *L, int obj, const char *event) { if (!lua_getmetatable(L, obj)) return LUA_TNIL; else { int tt; lua_pushstring(L, event); tt = lua_rawget(L, -2); if (tt == LUA_TNIL) lua_pop(L, 2); else lua_remove(L, -2); return tt; } } LUALIB_API int luaL_callmeta (lua_State *L, int obj, const char *event) { obj = lua_absindex(L, obj); if (luaL_getmetafield(L, obj, event) == LUA_TNIL) return 0; lua_pushvalue(L, obj); lua_call(L, 1, 1); return 1; } LUALIB_API lua_Integer luaL_len (lua_State *L, int idx) { lua_Integer l; int isnum; lua_len(L, idx); l = lua_tointegerx(L, -1, &isnum); if (l_unlikely(!isnum)) luaL_error(L, "object length is not an integer"); lua_pop(L, 1); return l; } LUALIB_API const char *luaL_tolstring (lua_State *L, int idx, size_t *len) { idx = lua_absindex(L,idx); if (luaL_callmeta(L, idx, "__tostring")) { if (!lua_isstring(L, -1)) luaL_error(L, "'__tostring' must return a string"); } else { switch (lua_type(L, idx)) { case LUA_TNUMBER: { if (lua_isinteger(L, idx)) lua_pushfstring(L, "%I", (LUAI_UACINT)lua_tointeger(L, idx)); else lua_pushfstring(L, "%f", (LUAI_UACNUMBER)lua_tonumber(L, idx)); break; } case LUA_TSTRING: lua_pushvalue(L, idx); break; case LUA_TBOOLEAN: lua_pushstring(L, (lua_toboolean(L, idx) ? "true" : "false")); break; case LUA_TNIL: lua_pushliteral(L, "nil"); break; default: { int tt = luaL_getmetafield(L, idx, "__name"); const char *kind = (tt == LUA_TSTRING) ? lua_tostring(L, -1) : luaL_typename(L, idx); lua_pushfstring(L, "%s: %p", kind, lua_topointer(L, idx)); if (tt != LUA_TNIL) lua_remove(L, -2); break; } } } return lua_tolstring(L, -1, len); } LUALIB_API void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) { luaL_checkstack(L, nup, "too many upvalues"); for (; l->name != NULL; l++) { if (l->func == NULL) lua_pushboolean(L, 0); else { int i; for (i = 0; i < nup; i++) lua_pushvalue(L, -nup); lua_pushcclosure(L, l->func, nup); } lua_setfield(L, -(nup + 2), l->name); } lua_pop(L, nup); } LUALIB_API int luaL_getsubtable (lua_State *L, int idx, const char *fname) { if (lua_getfield(L, idx, fname) == LUA_TTABLE) return 1; else { lua_pop(L, 1); idx = lua_absindex(L, idx); lua_newtable(L); lua_pushvalue(L, -1); lua_setfield(L, idx, fname); return 0; } } LUALIB_API void luaL_requiref (lua_State *L, const char *modname, lua_CFunction openf, int glb) { luaL_getsubtable(L, LUA_REGISTRYINDEX, LUA_LOADED_TABLE); lua_getfield(L, -1, modname); if (!lua_toboolean(L, -1)) { lua_pop(L, 1); lua_pushcfunction(L, openf); lua_pushstring(L, modname); lua_call(L, 1, 1); lua_pushvalue(L, -1); lua_setfield(L, -3, modname); } lua_remove(L, -2); if (glb) { lua_pushvalue(L, -1); lua_setglobal(L, modname); } } LUALIB_API void luaL_addgsub (luaL_Buffer *b, const char *s, const char *p, const char *r) { const char *wild; size_t l = strlen(p); while ((wild = strstr(s, p)) != NULL) { luaL_addlstring(b, s, wild - s); luaL_addstring(b, r); s = wild + l; } luaL_addstring(b, s); } LUALIB_API const char *luaL_gsub (lua_State *L, const char *s, const char *p, const char *r) { luaL_Buffer b; luaL_buffinit(L, &b); luaL_addgsub(&b, s, p, r); luaL_pushresult(&b); return lua_tostring(L, -1); } static void *l_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { (void)ud; (void)osize; if (nsize == 0) { free(ptr); return NULL; } else return realloc(ptr, nsize); } static int panic (lua_State *L) { const char *msg = (lua_type(L, -1) == LUA_TSTRING) ? lua_tostring(L, -1) : "private_lua_error object is not a string"; lua_writestringerror("PANIC: unprotected private_lua_error in call to Lua API (%s)\n", msg); return 0; } static void warnfoff (void *ud, const char *message, int tocont); static void warnfon (void *ud, const char *message, int tocont); static void warnfcont (void *ud, const char *message, int tocont); static int checkcontrol (lua_State *L, const char *message, int tocont) { if (tocont || *(message++) != '@') return 0; else { if (strcmp(message, "off") == 0) lua_setwarnf(L, warnfoff, L); else if (strcmp(message, "on") == 0) lua_setwarnf(L, warnfon, L); return 1; } } static void warnfoff (void *ud, const char *message, int tocont) { checkcontrol((lua_State *)ud, message, tocont); } static void warnfcont (void *ud, const char *message, int tocont) { lua_State *L = (lua_State *)ud; lua_writestringerror("%s", message); if (tocont) lua_setwarnf(L, warnfcont, L); else { lua_writestringerror("%s", "\n"); lua_setwarnf(L, warnfon, L); } } static void warnfon (void *ud, const char *message, int tocont) { if (checkcontrol((lua_State *)ud, message, tocont)) return; lua_writestringerror("%s", "Lua warning: "); warnfcont(ud, message, tocont); } #if !defined(luai_makeseed) #include #define BUFSEEDB (sizeof(void*) + sizeof(time_t)) #define BUFSEED ((BUFSEEDB + sizeof(int) - 1) / sizeof(int)) #define addbuff(b,v) (memcpy(&b[0], &(v), sizeof(v)), b += sizeof(v)) static unsigned int luai_makeseed (void) { unsigned int buff[BUFSEED]; unsigned int res; unsigned int i; time_t t = time(NULL); char *b = (char*)buff; addbuff(b, b); addbuff(b, t); memset(b, 0, sizeof(buff) - BUFSEEDB); res = buff[0]; for (i = 1; i < BUFSEED; i++) res ^= (res >> 3) + (res << 7) + buff[i]; return res; } #endif LUALIB_API unsigned int luaL_makeseed (lua_State *L) { (void)L; return luai_makeseed(); } LUALIB_API lua_State *luaL_newstate (void) { lua_State *L = lua_newstate(l_alloc, NULL, luai_makeseed()); if (l_likely(L)) { lua_atpanic(L, &panic); lua_setwarnf(L, warnfoff, L); } return L; } LUALIB_API void luaL_checkversion_ (lua_State *L, lua_Number ver, size_t sz) { lua_Number v = lua_version(L); if (sz != LUAL_NUMSIZES) luaL_error(L, "core and library have incompatible numeric types"); else if (v != ver) luaL_error(L, "version mismatch: app. needs %f, Lua core provides %f", (LUAI_UACNUMBER)ver, (LUAI_UACNUMBER)v); } #ifndef MAKE_LUAC //path: src/imports/../dependencies/lua/lbaselib.c #define lbaselib_c #define LUA_LIB #include #include #include #include //path: src/imports/../dependencies/lua/lualib.h #ifndef lualib_h #define lualib_h #define LUA_VERSUFFIX "_" LUA_VERSION_MAJOR "_" LUA_VERSION_MINOR #define LUA_GLIBK 1 LUAMOD_API int (luaopen_base) (lua_State *L); #define LUA_LOADLIBNAME "package" #define LUA_LOADLIBK (LUA_GLIBK << 1) LUAMOD_API int (luaopen_package) (lua_State *L); #define LUA_COLIBNAME "coroutine" #define LUA_COLIBK (LUA_LOADLIBK << 1) LUAMOD_API int (luaopen_coroutine) (lua_State *L); #define LUA_DBLIBNAME "debug" #define LUA_DBLIBK (LUA_COLIBK << 1) LUAMOD_API int (luaopen_debug) (lua_State *L); #define LUA_IOLIBNAME "io" #define LUA_IOLIBK (LUA_DBLIBK << 1) LUAMOD_API int (luaopen_io) (lua_State *L); #define LUA_MATHLIBNAME "math" #define LUA_MATHLIBK (LUA_IOLIBK << 1) LUAMOD_API int (luaopen_math) (lua_State *L); #define LUA_OSLIBNAME "os" #define LUA_OSLIBK (LUA_MATHLIBK << 1) LUAMOD_API int (luaopen_os) (lua_State *L); #define LUA_STRLIBNAME "string" #define LUA_STRLIBK (LUA_OSLIBK << 1) LUAMOD_API int (luaopen_string) (lua_State *L); #define LUA_TABLIBNAME "table" #define LUA_TABLIBK (LUA_STRLIBK << 1) LUAMOD_API int (luaopen_table) (lua_State *L); #define LUA_UTF8LIBNAME "utf8" #define LUA_UTF8LIBK (LUA_TABLIBK << 1) LUAMOD_API int (luaopen_utf8) (lua_State *L); LUALIB_API void (luaL_openselectedlibs) (lua_State *L, int load, int preload); #define luaL_openlibs(L) luaL_openselectedlibs(L, ~0, 0) #endif static int luaB_print (lua_State *L) { int n = lua_gettop(L); int i; for (i = 1; i <= n; i++) { size_t l; const char *s = luaL_tolstring(L, i, &l); if (i > 1) lua_writestring("\t", 1); lua_writestring(s, l); lua_pop(L, 1); } lua_writeline(); return 0; } static int luaB_warn (lua_State *L) { int n = lua_gettop(L); int i; luaL_checkstring(L, 1); for (i = 2; i <= n; i++) luaL_checkstring(L, i); for (i = 1; i < n; i++) lua_warning(L, lua_tostring(L, i), 1); lua_warning(L, lua_tostring(L, n), 0); return 0; } #define SPACECHARS " \f\n\r\t\v" static const char *b_str2int (const char *s, int base, lua_Integer *pn) { lua_Unsigned n = 0; int neg = 0; s += strspn(s, SPACECHARS); if (*s == '-') { s++; neg = 1; } else if (*s == '+') s++; if (!isalnum((unsigned char)*s)) return NULL; do { int digit = (isdigit((unsigned char)*s)) ? *s - '0' : (toupper((unsigned char)*s) - 'A') + 10; if (digit >= base) return NULL; n = n * base + digit; s++; } while (isalnum((unsigned char)*s)); s += strspn(s, SPACECHARS); *pn = (lua_Integer)((neg) ? (0u - n) : n); return s; } static int luaB_tonumber (lua_State *L) { if (lua_isnoneornil(L, 2)) { if (lua_type(L, 1) == LUA_TNUMBER) { lua_settop(L, 1); return 1; } else { size_t l; const char *s = lua_tolstring(L, 1, &l); if (s != NULL && lua_stringtonumber(L, s) == l + 1) return 1; luaL_checkany(L, 1); } } else { size_t l; const char *s; lua_Integer n = 0; lua_Integer base = luaL_checkinteger(L, 2); luaL_checktype(L, 1, LUA_TSTRING); s = lua_tolstring(L, 1, &l); luaL_argcheck(L, 2 <= base && base <= 36, 2, "base out of range"); if (b_str2int(s, (int)base, &n) == s + l) { lua_pushinteger(L, n); return 1; } } luaL_pushfail(L); return 1; } static int luaB_error (lua_State *L) { int level = (int)luaL_optinteger(L, 2, 1); lua_settop(L, 1); if (lua_type(L, 1) == LUA_TSTRING && level > 0) { luaL_where(L, level); lua_pushvalue(L, 1); lua_concat(L, 2); } return lua_error(L); } static int luaB_getmetatable (lua_State *L) { luaL_checkany(L, 1); if (!lua_getmetatable(L, 1)) { lua_pushnil(L); return 1; } luaL_getmetafield(L, 1, "__metatable"); return 1; } static int luaB_setmetatable (lua_State *L) { int t = lua_type(L, 2); luaL_checktype(L, 1, LUA_TTABLE); luaL_argexpected(L, t == LUA_TNIL || t == LUA_TTABLE, 2, "nil or table"); if (l_unlikely(luaL_getmetafield(L, 1, "__metatable") != LUA_TNIL)) return luaL_error(L, "cannot change a protected metatable"); lua_settop(L, 2); lua_setmetatable(L, 1); return 1; } static int luaB_rawequal (lua_State *L) { luaL_checkany(L, 1); luaL_checkany(L, 2); lua_pushboolean(L, lua_rawequal(L, 1, 2)); return 1; } static int luaB_rawlen (lua_State *L) { int t = lua_type(L, 1); luaL_argexpected(L, t == LUA_TTABLE || t == LUA_TSTRING, 1, "table or string"); lua_pushinteger(L, lua_rawlen(L, 1)); return 1; } static int luaB_rawget (lua_State *L) { luaL_checktype(L, 1, LUA_TTABLE); luaL_checkany(L, 2); lua_settop(L, 2); lua_rawget(L, 1); return 1; } static int luaB_rawset (lua_State *L) { luaL_checktype(L, 1, LUA_TTABLE); luaL_checkany(L, 2); luaL_checkany(L, 3); lua_settop(L, 3); lua_rawset(L, 1); return 1; } static int pushmode (lua_State *L, int oldmode) { if (oldmode == -1) luaL_pushfail(L); else lua_pushstring(L, (oldmode == LUA_GCINC) ? "incremental" : "generational"); return 1; } #define checkvalres(res) { if (res == -1) break; } static int luaB_collectgarbage (lua_State *L) { static const char *const opts[] = {"stop", "restart", "collect", "count", "step", "isrunning", "generational", "incremental", "param", NULL}; static const char optsnum[] = {LUA_GCSTOP, LUA_GCRESTART, LUA_GCCOLLECT, LUA_GCCOUNT, LUA_GCSTEP, LUA_GCISRUNNING, LUA_GCGEN, LUA_GCINC, LUA_GCPARAM}; int o = optsnum[luaL_checkoption(L, 1, "collect", opts)]; switch (o) { case LUA_GCCOUNT: { int k = lua_gc(L, o); int b = lua_gc(L, LUA_GCCOUNTB); checkvalres(k); lua_pushnumber(L, (lua_Number)k + ((lua_Number)b/1024)); return 1; } case LUA_GCSTEP: { lua_Integer n = luaL_optinteger(L, 2, 0); int res = lua_gc(L, o, (int)n); checkvalres(res); lua_pushboolean(L, res); return 1; } case LUA_GCISRUNNING: { int res = lua_gc(L, o); checkvalres(res); lua_pushboolean(L, res); return 1; } case LUA_GCGEN: { return pushmode(L, lua_gc(L, o)); } case LUA_GCINC: { return pushmode(L, lua_gc(L, o)); } case LUA_GCPARAM: { static const char *const params[] = { "minormul", "majorminor", "minormajor", "pause", "stepmul", "stepsize", NULL}; static const char pnum[] = { LUA_GCPMINORMUL, LUA_GCPMAJORMINOR, LUA_GCPMINORMAJOR, LUA_GCPPAUSE, LUA_GCPSTEPMUL, LUA_GCPSTEPSIZE}; int p = pnum[luaL_checkoption(L, 2, NULL, params)]; lua_Integer value = luaL_optinteger(L, 3, -1); lua_pushinteger(L, lua_gc(L, o, p, (int)value)); return 1; } default: { int res = lua_gc(L, o); checkvalres(res); lua_pushinteger(L, res); return 1; } } luaL_pushfail(L); return 1; } static int luaB_type (lua_State *L) { int t = lua_type(L, 1); luaL_argcheck(L, t != LUA_TNONE, 1, "value expected"); lua_pushstring(L, lua_typename(L, t)); return 1; } static int luaB_next (lua_State *L) { luaL_checktype(L, 1, LUA_TTABLE); lua_settop(L, 2); if (lua_next(L, 1)) return 2; else { lua_pushnil(L); return 1; } } static int pairscont (lua_State *L, int status, lua_KContext k) { (void)L; (void)status; (void)k; return 3; } static int luaB_pairs (lua_State *L) { luaL_checkany(L, 1); if (luaL_getmetafield(L, 1, "__pairs") == LUA_TNIL) { lua_pushcfunction(L, luaB_next); lua_pushvalue(L, 1); lua_pushnil(L); } else { lua_pushvalue(L, 1); lua_callk(L, 1, 3, 0, pairscont); } return 3; } static int ipairsaux (lua_State *L) { lua_Integer i = luaL_checkinteger(L, 2); i = luaL_intop(+, i, 1); lua_pushinteger(L, i); return (lua_geti(L, 1, i) == LUA_TNIL) ? 1 : 2; } static int luaB_ipairs (lua_State *L) { luaL_checkany(L, 1); lua_pushcfunction(L, ipairsaux); lua_pushvalue(L, 1); lua_pushinteger(L, 0); return 3; } static int load_aux (lua_State *L, int status, int envidx) { if (l_likely(status == LUA_OK)) { if (envidx != 0) { lua_pushvalue(L, envidx); if (!lua_setupvalue(L, -2, 1)) lua_pop(L, 1); } return 1; } else { luaL_pushfail(L); lua_insert(L, -2); return 2; } } static const char *getmode (lua_State *L, int idx) { const char *mode = luaL_optstring(L, idx, "bt"); if (strchr(mode, 'B') != NULL) luaL_argerror(L, idx, "invalid mode"); return mode; } static int luaB_loadfile (lua_State *L) { const char *fname = luaL_optstring(L, 1, NULL); const char *mode = getmode(L, 2); int env = (!lua_isnone(L, 3) ? 3 : 0); int status = luaL_loadfilex(L, fname, mode); return load_aux(L, status, env); } #define RESERVEDSLOT 5 static const char *generic_reader (lua_State *L, void *ud, size_t *size) { (void)(ud); luaL_checkstack(L, 2, "too many nested functions"); lua_pushvalue(L, 1); lua_call(L, 0, 1); if (lua_isnil(L, -1)) { lua_pop(L, 1); *size = 0; return NULL; } else if (l_unlikely(!lua_isstring(L, -1))) luaL_error(L, "reader function must return a string"); lua_replace(L, RESERVEDSLOT); return lua_tolstring(L, RESERVEDSLOT, size); } static int luaB_load (lua_State *L) { int status; size_t l; const char *s = lua_tolstring(L, 1, &l); const char *mode = getmode(L, 3); int env = (!lua_isnone(L, 4) ? 4 : 0); if (s != NULL) { const char *chunkname = luaL_optstring(L, 2, s); status = luaL_loadbufferx(L, s, l, chunkname, mode); } else { const char *chunkname = luaL_optstring(L, 2, "=(load)"); luaL_checktype(L, 1, LUA_TFUNCTION); lua_settop(L, RESERVEDSLOT); status = lua_load(L, generic_reader, NULL, chunkname, mode); } return load_aux(L, status, env); } static int dofilecont (lua_State *L, int d1, lua_KContext d2) { (void)d1; (void)d2; return lua_gettop(L) - 1; } static int luaB_dofile (lua_State *L) { const char *fname = luaL_optstring(L, 1, NULL); lua_settop(L, 1); if (l_unlikely(luaL_loadfile(L, fname) != LUA_OK)) return lua_error(L); lua_callk(L, 0, LUA_MULTRET, 0, dofilecont); return dofilecont(L, 0, 0); } static int luaB_assert (lua_State *L) { if (l_likely(lua_toboolean(L, 1))) return lua_gettop(L); else { luaL_checkany(L, 1); lua_remove(L, 1); lua_pushliteral(L, "assertion failed!"); lua_settop(L, 1); return luaB_error(L); } } static int luaB_select (lua_State *L) { int n = lua_gettop(L); if (lua_type(L, 1) == LUA_TSTRING && *lua_tostring(L, 1) == '#') { lua_pushinteger(L, n-1); return 1; } else { lua_Integer i = luaL_checkinteger(L, 1); if (i < 0) i = n + i; else if (i > n) i = n; luaL_argcheck(L, 1 <= i, 1, "index out of range"); return n - (int)i; } } static int finishpcall (lua_State *L, int status, lua_KContext extra) { if (l_unlikely(status != LUA_OK && status != LUA_YIELD)) { lua_pushboolean(L, 0); lua_pushvalue(L, -2); return 2; } else return lua_gettop(L) - (int)extra; } static int luaB_pcall (lua_State *L) { int status; luaL_checkany(L, 1); lua_pushboolean(L, 1); lua_insert(L, 1); status = lua_pcallk(L, lua_gettop(L) - 2, LUA_MULTRET, 0, 0, finishpcall); return finishpcall(L, status, 0); } static int luaB_xpcall (lua_State *L) { int status; int n = lua_gettop(L); luaL_checktype(L, 2, LUA_TFUNCTION); lua_pushboolean(L, 1); lua_pushvalue(L, 1); lua_rotate(L, 3, 2); status = lua_pcallk(L, n - 2, LUA_MULTRET, 2, 2, finishpcall); return finishpcall(L, status, 2); } static int luaB_tostring (lua_State *L) { luaL_checkany(L, 1); luaL_tolstring(L, 1, NULL); return 1; } static const luaL_Reg base_funcs[] = { {"assert", luaB_assert}, {"collectgarbage", luaB_collectgarbage}, {"dofile", luaB_dofile}, {"error", luaB_error}, {"getmetatable", luaB_getmetatable}, {"ipairs", luaB_ipairs}, {"loadfile", luaB_loadfile}, {"load", luaB_load}, {"next", luaB_next}, {"pairs", luaB_pairs}, {"pcall", luaB_pcall}, {"print", luaB_print}, {"warn", luaB_warn}, {"rawequal", luaB_rawequal}, {"rawlen", luaB_rawlen}, {"rawget", luaB_rawget}, {"rawset", luaB_rawset}, {"select", luaB_select}, {"setmetatable", luaB_setmetatable}, {"tonumber", luaB_tonumber}, {"tostring", luaB_tostring}, {"type", luaB_type}, {"xpcall", luaB_xpcall}, {LUA_GNAME, NULL}, {"_VERSION", NULL}, {NULL, NULL} }; LUAMOD_API int luaopen_base (lua_State *L) { lua_pushglobaltable(L); luaL_setfuncs(L, base_funcs, 0); lua_pushvalue(L, -1); lua_setfield(L, -2, LUA_GNAME); lua_pushliteral(L, LUA_VERSION); lua_setfield(L, -2, "_VERSION"); return 1; } //path: src/imports/../dependencies/lua/lcorolib.c #define lcorolib_c #define LUA_LIB #include static lua_State *getco (lua_State *L) { lua_State *co = lua_tothread(L, 1); luaL_argexpected(L, co, 1, "thread"); return co; } static int auxresume (lua_State *L, lua_State *co, int narg) { int status, nres; if (l_unlikely(!lua_checkstack(co, narg))) { lua_pushliteral(L, "too many arguments to resume"); return -1; } lua_xmove(L, co, narg); status = lua_resume(co, L, narg, &nres); if (l_likely(status == LUA_OK || status == LUA_YIELD)) { if (l_unlikely(!lua_checkstack(L, nres + 1))) { lua_pop(co, nres); lua_pushliteral(L, "too many results to resume"); return -1; } lua_xmove(co, L, nres); return nres; } else { lua_xmove(co, L, 1); return -1; } } static int luaB_coresume (lua_State *L) { lua_State *co = getco(L); int r; r = auxresume(L, co, lua_gettop(L) - 1); if (l_unlikely(r < 0)) { lua_pushboolean(L, 0); lua_insert(L, -2); return 2; } else { lua_pushboolean(L, 1); lua_insert(L, -(r + 1)); return r + 1; } } static int luaB_auxwrap (lua_State *L) { lua_State *co = lua_tothread(L, lua_upvalueindex(1)); int r = auxresume(L, co, lua_gettop(L)); if (l_unlikely(r < 0)) { int stat = lua_status(co); if (stat != LUA_OK && stat != LUA_YIELD) { stat = lua_closethread(co, L); lua_assert(stat != LUA_OK); lua_xmove(co, L, 1); } if (stat != LUA_ERRMEM && lua_type(L, -1) == LUA_TSTRING) { luaL_where(L, 1); lua_insert(L, -2); lua_concat(L, 2); } return lua_error(L); } return r; } static int luaB_cocreate (lua_State *L) { lua_State *NL; luaL_checktype(L, 1, LUA_TFUNCTION); NL = lua_newthread(L); lua_pushvalue(L, 1); lua_xmove(L, NL, 1); return 1; } static int luaB_cowrap (lua_State *L) { luaB_cocreate(L); lua_pushcclosure(L, luaB_auxwrap, 1); return 1; } static int luaB_yield (lua_State *L) { return lua_yield(L, lua_gettop(L)); } #define COS_RUN 0 #define COS_DEAD 1 #define COS_YIELD 2 #define COS_NORM 3 static const char *const statname[] = {"running", "dead", "suspended", "normal"}; static int auxstatus (lua_State *L, lua_State *co) { if (L == co) return COS_RUN; else { switch (lua_status(co)) { case LUA_YIELD: return COS_YIELD; case LUA_OK: { lua_Debug ar; if (lua_getstack(co, 0, &ar)) return COS_NORM; else if (lua_gettop(co) == 0) return COS_DEAD; else return COS_YIELD; } default: return COS_DEAD; } } } static int luaB_costatus (lua_State *L) { lua_State *co = getco(L); lua_pushstring(L, statname[auxstatus(L, co)]); return 1; } static int luaB_yieldable (lua_State *L) { lua_State *co = lua_isnone(L, 1) ? L : getco(L); lua_pushboolean(L, lua_isyieldable(co)); return 1; } static int luaB_corunning (lua_State *L) { int ismain = lua_pushthread(L); lua_pushboolean(L, ismain); return 2; } static int luaB_close (lua_State *L) { lua_State *co = getco(L); int status = auxstatus(L, co); switch (status) { case COS_DEAD: case COS_YIELD: { status = lua_closethread(co, L); if (status == LUA_OK) { lua_pushboolean(L, 1); return 1; } else { lua_pushboolean(L, 0); lua_xmove(co, L, 1); return 2; } } default: return luaL_error(L, "cannot close a %s coroutine", statname[status]); } } static const luaL_Reg co_funcs[] = { {"create", luaB_cocreate}, {"resume", luaB_coresume}, {"running", luaB_corunning}, {"status", luaB_costatus}, {"wrap", luaB_cowrap}, {"yield", luaB_yield}, {"isyieldable", luaB_yieldable}, {"close", luaB_close}, {NULL, NULL} }; LUAMOD_API int luaopen_coroutine (lua_State *L) { luaL_newlib(L, co_funcs); return 1; } //path: src/imports/../dependencies/lua/ldblib.c #define ldblib_c #define LUA_LIB #include #include #include static const char *const HOOKKEY = "_HOOKKEY"; static void checkstack (lua_State *L, lua_State *L1, int n) { if (l_unlikely(L != L1 && !lua_checkstack(L1, n))) luaL_error(L, "stack overflow"); } static int db_getregistry (lua_State *L) { lua_pushvalue(L, LUA_REGISTRYINDEX); return 1; } static int db_getmetatable (lua_State *L) { luaL_checkany(L, 1); if (!lua_getmetatable(L, 1)) { lua_pushnil(L); } return 1; } static int db_setmetatable (lua_State *L) { int t = lua_type(L, 2); luaL_argexpected(L, t == LUA_TNIL || t == LUA_TTABLE, 2, "nil or table"); lua_settop(L, 2); lua_setmetatable(L, 1); return 1; } static int db_getuservalue (lua_State *L) { int n = (int)luaL_optinteger(L, 2, 1); if (lua_type(L, 1) != LUA_TUSERDATA) luaL_pushfail(L); else if (lua_getiuservalue(L, 1, n) != LUA_TNONE) { lua_pushboolean(L, 1); return 2; } return 1; } static int db_setuservalue (lua_State *L) { int n = (int)luaL_optinteger(L, 3, 1); luaL_checktype(L, 1, LUA_TUSERDATA); luaL_checkany(L, 2); lua_settop(L, 2); if (!lua_setiuservalue(L, 1, n)) luaL_pushfail(L); return 1; } static lua_State *getthread (lua_State *L, int *arg) { if (lua_isthread(L, 1)) { *arg = 1; return lua_tothread(L, 1); } else { *arg = 0; return L; } } static void settabss (lua_State *L, const char *k, const char *v) { lua_pushstring(L, v); lua_setfield(L, -2, k); } static void settabsi (lua_State *L, const char *k, int v) { lua_pushinteger(L, v); lua_setfield(L, -2, k); } static void settabsb (lua_State *L, const char *k, int v) { lua_pushboolean(L, v); lua_setfield(L, -2, k); } static void treatstackoption (lua_State *L, lua_State *L1, const char *fname) { if (L == L1) lua_rotate(L, -2, 1); else lua_xmove(L1, L, 1); lua_setfield(L, -2, fname); } static int db_getinfo (lua_State *L) { lua_Debug ar; int arg; lua_State *L1 = getthread(L, &arg); const char *options = luaL_optstring(L, arg+2, "flnSrtu"); checkstack(L, L1, 3); luaL_argcheck(L, options[0] != '>', arg + 2, "invalid option '>'"); if (lua_isfunction(L, arg + 1)) { options = lua_pushfstring(L, ">%s", options); lua_pushvalue(L, arg + 1); lua_xmove(L, L1, 1); } else { if (!lua_getstack(L1, (int)luaL_checkinteger(L, arg + 1), &ar)) { luaL_pushfail(L); return 1; } } if (!lua_getinfo(L1, options, &ar)) return luaL_argerror(L, arg+2, "invalid option"); lua_newtable(L); if (strchr(options, 'S')) { lua_pushlstring(L, ar.source, ar.srclen); lua_setfield(L, -2, "source"); settabss(L, "short_src", ar.short_src); settabsi(L, "linedefined", ar.linedefined); settabsi(L, "lastlinedefined", ar.lastlinedefined); settabss(L, "what", ar.what); } if (strchr(options, 'l')) settabsi(L, "currentline", ar.currentline); if (strchr(options, 'u')) { settabsi(L, "nups", ar.nups); settabsi(L, "nparams", ar.nparams); settabsb(L, "isvararg", ar.isvararg); } if (strchr(options, 'n')) { settabss(L, "name", ar.name); settabss(L, "namewhat", ar.namewhat); } if (strchr(options, 'r')) { settabsi(L, "ftransfer", ar.ftransfer); settabsi(L, "ntransfer", ar.ntransfer); } if (strchr(options, 't')) settabsb(L, "istailcall", ar.istailcall); if (strchr(options, 'L')) treatstackoption(L, L1, "activelines"); if (strchr(options, 'f')) treatstackoption(L, L1, "func"); return 1; } static int db_getlocal (lua_State *L) { int arg; lua_State *L1 = getthread(L, &arg); int nvar = (int)luaL_checkinteger(L, arg + 2); if (lua_isfunction(L, arg + 1)) { lua_pushvalue(L, arg + 1); lua_pushstring(L, lua_getlocal(L, NULL, nvar)); return 1; } else { lua_Debug ar; const char *name; int level = (int)luaL_checkinteger(L, arg + 1); if (l_unlikely(!lua_getstack(L1, level, &ar))) return luaL_argerror(L, arg+1, "level out of range"); checkstack(L, L1, 1); name = lua_getlocal(L1, &ar, nvar); if (name) { lua_xmove(L1, L, 1); lua_pushstring(L, name); lua_rotate(L, -2, 1); return 2; } else { luaL_pushfail(L); return 1; } } } static int db_setlocal (lua_State *L) { int arg; const char *name; lua_State *L1 = getthread(L, &arg); lua_Debug ar; int level = (int)luaL_checkinteger(L, arg + 1); int nvar = (int)luaL_checkinteger(L, arg + 2); if (l_unlikely(!lua_getstack(L1, level, &ar))) return luaL_argerror(L, arg+1, "level out of range"); luaL_checkany(L, arg+3); lua_settop(L, arg+3); checkstack(L, L1, 1); lua_xmove(L, L1, 1); name = lua_setlocal(L1, &ar, nvar); if (name == NULL) lua_pop(L1, 1); lua_pushstring(L, name); return 1; } static int auxupvalue (lua_State *L, int get) { const char *name; int n = (int)luaL_checkinteger(L, 2); luaL_checktype(L, 1, LUA_TFUNCTION); name = get ? lua_getupvalue(L, 1, n) : lua_setupvalue(L, 1, n); if (name == NULL) return 0; lua_pushstring(L, name); lua_insert(L, -(get+1)); return get + 1; } static int db_getupvalue (lua_State *L) { return auxupvalue(L, 1); } static int db_setupvalue (lua_State *L) { luaL_checkany(L, 3); return auxupvalue(L, 0); } static void *checkupval (lua_State *L, int argf, int argnup, int *pnup) { void *id; int nup = (int)luaL_checkinteger(L, argnup); luaL_checktype(L, argf, LUA_TFUNCTION); id = lua_upvalueid(L, argf, nup); if (pnup) { luaL_argcheck(L, id != NULL, argnup, "invalid upvalue index"); *pnup = nup; } return id; } static int db_upvalueid (lua_State *L) { void *id = checkupval(L, 1, 2, NULL); if (id != NULL) lua_pushlightuserdata(L, id); else luaL_pushfail(L); return 1; } static int db_upvaluejoin (lua_State *L) { int n1, n2; checkupval(L, 1, 2, &n1); checkupval(L, 3, 4, &n2); luaL_argcheck(L, !lua_iscfunction(L, 1), 1, "Lua function expected"); luaL_argcheck(L, !lua_iscfunction(L, 3), 3, "Lua function expected"); lua_upvaluejoin(L, 1, n1, 3, n2); return 0; } static void hookf (lua_State *L, lua_Debug *ar) { static const char *const hooknames[] = {"call", "return", "line", "count", "tail call"}; lua_getfield(L, LUA_REGISTRYINDEX, HOOKKEY); lua_pushthread(L); if (lua_rawget(L, -2) == LUA_TFUNCTION) { lua_pushstring(L, hooknames[(int)ar->event]); if (ar->currentline >= 0) lua_pushinteger(L, ar->currentline); else lua_pushnil(L); lua_assert(lua_getinfo(L, "lS", ar)); lua_call(L, 2, 0); } } static int makemask (const char *smask, int count) { int mask = 0; if (strchr(smask, 'c')) mask |= LUA_MASKCALL; if (strchr(smask, 'r')) mask |= LUA_MASKRET; if (strchr(smask, 'l')) mask |= LUA_MASKLINE; if (count > 0) mask |= LUA_MASKCOUNT; return mask; } static char *unmakemask (int mask, char *smask) { int i = 0; if (mask & LUA_MASKCALL) smask[i++] = 'c'; if (mask & LUA_MASKRET) smask[i++] = 'r'; if (mask & LUA_MASKLINE) smask[i++] = 'l'; smask[i] = '\0'; return smask; } static int db_sethook (lua_State *L) { int arg, mask, count; lua_Hook func; lua_State *L1 = getthread(L, &arg); if (lua_isnoneornil(L, arg+1)) { lua_settop(L, arg+1); func = NULL; mask = 0; count = 0; } else { const char *smask = luaL_checkstring(L, arg+2); luaL_checktype(L, arg+1, LUA_TFUNCTION); count = (int)luaL_optinteger(L, arg + 3, 0); func = hookf; mask = makemask(smask, count); } if (!luaL_getsubtable(L, LUA_REGISTRYINDEX, HOOKKEY)) { lua_pushliteral(L, "k"); lua_setfield(L, -2, "__mode"); lua_pushvalue(L, -1); lua_setmetatable(L, -2); } checkstack(L, L1, 1); lua_pushthread(L1); lua_xmove(L1, L, 1); lua_pushvalue(L, arg + 1); lua_rawset(L, -3); lua_sethook(L1, func, mask, count); return 0; } static int db_gethook (lua_State *L) { int arg; lua_State *L1 = getthread(L, &arg); char buff[5]; int mask = lua_gethookmask(L1); lua_Hook hook = lua_gethook(L1); if (hook == NULL) { luaL_pushfail(L); return 1; } else if (hook != hookf) lua_pushliteral(L, "external hook"); else { lua_getfield(L, LUA_REGISTRYINDEX, HOOKKEY); checkstack(L, L1, 1); lua_pushthread(L1); lua_xmove(L1, L, 1); lua_rawget(L, -2); lua_remove(L, -2); } lua_pushstring(L, unmakemask(mask, buff)); lua_pushinteger(L, lua_gethookcount(L1)); return 3; } static int db_debug (lua_State *L) { for (;;) { char buffer[250]; lua_writestringerror("%s", "lua_debug> "); if (fgets(buffer, sizeof(buffer), stdin) == NULL || strcmp(buffer, "cont\n") == 0) return 0; if (luaL_loadbuffer(L, buffer, strlen(buffer), "=(debug command)") || lua_pcall(L, 0, 0, 0)) lua_writestringerror("%s\n", luaL_tolstring(L, -1, NULL)); lua_settop(L, 0); } } static int db_traceback (lua_State *L) { int arg; lua_State *L1 = getthread(L, &arg); const char *msg = lua_tostring(L, arg + 1); if (msg == NULL && !lua_isnoneornil(L, arg + 1)) lua_pushvalue(L, arg + 1); else { int level = (int)luaL_optinteger(L, arg + 2, (L == L1) ? 1 : 0); luaL_traceback(L, L1, msg, level); } return 1; } static const luaL_Reg dblib[] = { {"debug", db_debug}, {"getuservalue", db_getuservalue}, {"gethook", db_gethook}, {"getinfo", db_getinfo}, {"getlocal", db_getlocal}, {"getregistry", db_getregistry}, {"getmetatable", db_getmetatable}, {"getupvalue", db_getupvalue}, {"upvaluejoin", db_upvaluejoin}, {"upvalueid", db_upvalueid}, {"setuservalue", db_setuservalue}, {"sethook", db_sethook}, {"setlocal", db_setlocal}, {"setmetatable", db_setmetatable}, {"setupvalue", db_setupvalue}, {"traceback", db_traceback}, {NULL, NULL} }; LUAMOD_API int luaopen_debug (lua_State *L) { luaL_newlib(L, dblib); return 1; } //path: src/imports/../dependencies/lua/liolib.c #define liolib_c #define LUA_LIB #include #include #include #include #include #include #if !defined(l_checkmode) #if !defined(L_MODEEXT) #define L_MODEEXT "b" #endif static int l_checkmode (const char *mode) { return (*mode != '\0' && strchr("rwa", *(mode++)) != NULL && (*mode != '+' || ((void)(++mode), 1)) && (strspn(mode, L_MODEEXT) == strlen(mode))); } #endif #if !defined(l_popen) #if defined(LUA_USE_POSIX) #define l_popen(L,c,m) (fflush(NULL), popen(c,m)) #define l_pclose(L,file) (pclose(file)) #elif defined(LUA_USE_WINDOWS) #define l_popen(L,c,m) (_popen(c,m)) #define l_pclose(L,file) (_pclose(file)) #if !defined(l_checkmodep) #define l_checkmodep(m) ((m[0] == 'r' || m[0] == 'w') && \ (m[1] == '\0' || ((m[1] == 'b' || m[1] == 't') && m[2] == '\0'))) #endif #else #define l_popen(L,c,m) \ ((void)c, (void)m, \ luaL_error(L, "'popen' not supported"), \ (FILE*)0) #define l_pclose(L,file) ((void)L, (void)file, -1) #endif #endif #if !defined(l_checkmodep) #define l_checkmodep(m) ((m[0] == 'r' || m[0] == 'w') && m[1] == '\0') #endif #if !defined(l_getc) #if defined(LUA_USE_POSIX) #define l_getc(f) getc_unlocked(f) #define l_lockfile(f) flockfile(f) #define l_unlockfile(f) funlockfile(f) #else #define l_getc(f) getc(f) #define l_lockfile(f) ((void)0) #define l_unlockfile(f) ((void)0) #endif #endif #if !defined(l_fseek) #if defined(LUA_USE_POSIX) #include #define l_fseek(f,o,w) fseeko(f,o,w) #define l_ftell(f) ftello(f) #define l_seeknum off_t #elif defined(LUA_USE_WINDOWS) && !defined(_CRTIMP_TYPEINFO) \ && defined(_MSC_VER) && (_MSC_VER >= 1400) #define l_fseek(f,o,w) _fseeki64(f,o,w) #define l_ftell(f) _ftelli64(f) #define l_seeknum __int64 #else #define l_fseek(f,o,w) fseek(f,o,w) #define l_ftell(f) ftell(f) #define l_seeknum long #endif #endif #define IO_PREFIX "_IO_" #define IOPREF_LEN (sizeof(IO_PREFIX)/sizeof(char) - 1) #define IO_INPUT (IO_PREFIX "input") #define IO_OUTPUT (IO_PREFIX "output") typedef luaL_Stream LStream; #define tolstream(L) ((LStream *)luaL_checkudata(L, 1, LUA_FILEHANDLE)) #define isclosed(p) ((p)->closef == NULL) static int io_type (lua_State *L) { LStream *p; luaL_checkany(L, 1); p = (LStream *)luaL_testudata(L, 1, LUA_FILEHANDLE); if (p == NULL) luaL_pushfail(L); else if (isclosed(p)) lua_pushliteral(L, "closed file"); else lua_pushliteral(L, "file"); return 1; } static int f_tostring (lua_State *L) { LStream *p = tolstream(L); if (isclosed(p)) lua_pushliteral(L, "file (closed)"); else lua_pushfstring(L, "file (%p)", p->f); return 1; } static FILE *tofile (lua_State *L) { LStream *p = tolstream(L); if (l_unlikely(isclosed(p))) luaL_error(L, "attempt to use a closed file"); lua_assert(p->f); return p->f; } static LStream *newprefile (lua_State *L) { LStream *p = (LStream *)lua_newuserdatauv(L, sizeof(LStream), 0); p->closef = NULL; luaL_setmetatable(L, LUA_FILEHANDLE); return p; } static int aux_close (lua_State *L) { LStream *p = tolstream(L); volatile lua_CFunction cf = p->closef; p->closef = NULL; return (*cf)(L); } static int f_close (lua_State *L) { tofile(L); return aux_close(L); } static int io_close (lua_State *L) { if (lua_isnone(L, 1)) lua_getfield(L, LUA_REGISTRYINDEX, IO_OUTPUT); return f_close(L); } static int f_gc (lua_State *L) { LStream *p = tolstream(L); if (!isclosed(p) && p->f != NULL) aux_close(L); return 0; } static int io_fclose (lua_State *L) { LStream *p = tolstream(L); int res = fclose(p->f); return luaL_fileresult(L, (res == 0), NULL); } static LStream *newfile (lua_State *L) { LStream *p = newprefile(L); p->f = NULL; p->closef = &io_fclose; return p; } static void opencheck (lua_State *L, const char *fname, const char *mode) { LStream *p = newfile(L); p->f = fopen(fname, mode); if (l_unlikely(p->f == NULL)) luaL_error(L, "cannot open file '%s' (%s)", fname, strerror(errno)); } static int io_open (lua_State *L) { const char *filename = luaL_checkstring(L, 1); const char *mode = luaL_optstring(L, 2, "r"); LStream *p = newfile(L); const char *md = mode; luaL_argcheck(L, l_checkmode(md), 2, "invalid mode"); p->f = fopen(filename, mode); return (p->f == NULL) ? luaL_fileresult(L, 0, filename) : 1; } static int io_pclose (lua_State *L) { LStream *p = tolstream(L); errno = 0; return luaL_execresult(L, l_pclose(L, p->f)); } static int io_popen (lua_State *L) { const char *filename = luaL_checkstring(L, 1); const char *mode = luaL_optstring(L, 2, "r"); LStream *p = newprefile(L); luaL_argcheck(L, l_checkmodep(mode), 2, "invalid mode"); p->f = l_popen(L, filename, mode); p->closef = &io_pclose; return (p->f == NULL) ? luaL_fileresult(L, 0, filename) : 1; } static int io_tmpfile (lua_State *L) { LStream *p = newfile(L); p->f = tmpfile(); return (p->f == NULL) ? luaL_fileresult(L, 0, NULL) : 1; } static FILE *getiofile (lua_State *L, const char *findex) { LStream *p; lua_getfield(L, LUA_REGISTRYINDEX, findex); p = (LStream *)lua_touserdata(L, -1); if (l_unlikely(isclosed(p))) luaL_error(L, "default %s file is closed", findex + IOPREF_LEN); return p->f; } static int g_iofile (lua_State *L, const char *f, const char *mode) { if (!lua_isnoneornil(L, 1)) { const char *filename = lua_tostring(L, 1); if (filename) opencheck(L, filename, mode); else { tofile(L); lua_pushvalue(L, 1); } lua_setfield(L, LUA_REGISTRYINDEX, f); } lua_getfield(L, LUA_REGISTRYINDEX, f); return 1; } static int io_input (lua_State *L) { return g_iofile(L, IO_INPUT, "r"); } static int io_output (lua_State *L) { return g_iofile(L, IO_OUTPUT, "w"); } static int io_readline (lua_State *L); #define MAXARGLINE 250 static void aux_lines (lua_State *L, int toclose) { int n = lua_gettop(L) - 1; luaL_argcheck(L, n <= MAXARGLINE, MAXARGLINE + 2, "too many arguments"); lua_pushvalue(L, 1); lua_pushinteger(L, n); lua_pushboolean(L, toclose); lua_rotate(L, 2, 3); lua_pushcclosure(L, io_readline, 3 + n); } static int f_lines (lua_State *L) { tofile(L); aux_lines(L, 0); return 1; } static int io_lines (lua_State *L) { int toclose; if (lua_isnone(L, 1)) lua_pushnil(L); if (lua_isnil(L, 1)) { lua_getfield(L, LUA_REGISTRYINDEX, IO_INPUT); lua_replace(L, 1); tofile(L); toclose = 0; } else { const char *filename = luaL_checkstring(L, 1); opencheck(L, filename, "r"); lua_replace(L, 1); toclose = 1; } aux_lines(L, toclose); if (toclose) { lua_pushnil(L); lua_pushnil(L); lua_pushvalue(L, 1); return 4; } else return 1; } #if !defined (L_MAXLENNUM) #define L_MAXLENNUM 200 #endif typedef struct { FILE *f; int c; int n; char buff[L_MAXLENNUM + 1]; } RN; static int nextc (RN *rn) { if (l_unlikely(rn->n >= L_MAXLENNUM)) { rn->buff[0] = '\0'; return 0; } else { rn->buff[rn->n++] = rn->c; rn->c = l_getc(rn->f); return 1; } } static int test2 (RN *rn, const char *set) { if (rn->c == set[0] || rn->c == set[1]) return nextc(rn); else return 0; } static int readdigits (RN *rn, int hex) { int count = 0; while ((hex ? isxdigit(rn->c) : isdigit(rn->c)) && nextc(rn)) count++; return count; } static int read_number (lua_State *L, FILE *f) { RN rn; int count = 0; int hex = 0; char decp[2]; rn.f = f; rn.n = 0; decp[0] = lua_getlocaledecpoint(); decp[1] = '.'; l_lockfile(rn.f); do { rn.c = l_getc(rn.f); } while (isspace(rn.c)); test2(&rn, "-+"); if (test2(&rn, "00")) { if (test2(&rn, "xX")) hex = 1; else count = 1; } count += readdigits(&rn, hex); if (test2(&rn, decp)) count += readdigits(&rn, hex); if (count > 0 && test2(&rn, (hex ? "pP" : "eE"))) { test2(&rn, "-+"); readdigits(&rn, 0); } ungetc(rn.c, rn.f); l_unlockfile(rn.f); rn.buff[rn.n] = '\0'; if (l_likely(lua_stringtonumber(L, rn.buff))) return 1; else { lua_pushnil(L); return 0; } } static int test_eof (lua_State *L, FILE *f) { int c = getc(f); ungetc(c, f); lua_pushliteral(L, "carview.php?tsp="); return (c != EOF); } static int read_line (lua_State *L, FILE *f, int chop) { luaL_Buffer b; int c; luaL_buffinit(L, &b); do { char *buff = luaL_prepbuffer(&b); int i = 0; l_lockfile(f); while (i < LUAL_BUFFERSIZE && (c = l_getc(f)) != EOF && c != '\n') buff[i++] = c; l_unlockfile(f); luaL_addsize(&b, i); } while (c != EOF && c != '\n'); if (!chop && c == '\n') luaL_addchar(&b, c); luaL_pushresult(&b); return (c == '\n' || lua_rawlen(L, -1) > 0); } static void read_all (lua_State *L, FILE *f) { size_t nr; luaL_Buffer b; luaL_buffinit(L, &b); do { char *p = luaL_prepbuffer(&b); nr = fread(p, sizeof(char), LUAL_BUFFERSIZE, f); luaL_addsize(&b, nr); } while (nr == LUAL_BUFFERSIZE); luaL_pushresult(&b); } static int read_chars (lua_State *L, FILE *f, size_t n) { size_t nr; char *p; luaL_Buffer b; luaL_buffinit(L, &b); p = luaL_prepbuffsize(&b, n); nr = fread(p, sizeof(char), n, f); luaL_addsize(&b, nr); luaL_pushresult(&b); return (nr > 0); } static int g_read (lua_State *L, FILE *f, int first) { int nargs = lua_gettop(L) - 1; int n, success; clearerr(f); if (nargs == 0) { success = read_line(L, f, 1); n = first + 1; } else { luaL_checkstack(L, nargs+LUA_MINSTACK, "too many arguments"); success = 1; for (n = first; nargs-- && success; n++) { if (lua_type(L, n) == LUA_TNUMBER) { size_t l = (size_t)luaL_checkinteger(L, n); success = (l == 0) ? test_eof(L, f) : read_chars(L, f, l); } else { const char *p = luaL_checkstring(L, n); if (*p == '*') p++; switch (*p) { case 'n': success = read_number(L, f); break; case 'l': success = read_line(L, f, 1); break; case 'L': success = read_line(L, f, 0); break; case 'a': read_all(L, f); success = 1; break; default: return luaL_argerror(L, n, "invalid format"); } } } } if (ferror(f)) return luaL_fileresult(L, 0, NULL); if (!success) { lua_pop(L, 1); luaL_pushfail(L); } return n - first; } static int io_read (lua_State *L) { return g_read(L, getiofile(L, IO_INPUT), 1); } static int f_read (lua_State *L) { return g_read(L, tofile(L), 2); } static int io_readline (lua_State *L) { LStream *p = (LStream *)lua_touserdata(L, lua_upvalueindex(1)); int i; int n = (int)lua_tointeger(L, lua_upvalueindex(2)); if (isclosed(p)) return luaL_error(L, "file is already closed"); lua_settop(L , 1); luaL_checkstack(L, n, "too many arguments"); for (i = 1; i <= n; i++) lua_pushvalue(L, lua_upvalueindex(3 + i)); n = g_read(L, p->f, 2); lua_assert(n > 0); if (lua_toboolean(L, -n)) return n; else { if (n > 1) { return luaL_error(L, "%s", lua_tostring(L, -n + 1)); } if (lua_toboolean(L, lua_upvalueindex(3))) { lua_settop(L, 0); lua_pushvalue(L, lua_upvalueindex(1)); aux_close(L); } return 0; } } static int g_write (lua_State *L, FILE *f, int arg) { int nargs = lua_gettop(L) - arg; int status = 1; for (; nargs--; arg++) { if (lua_type(L, arg) == LUA_TNUMBER) { int len = lua_isinteger(L, arg) ? fprintf(f, LUA_INTEGER_FMT, (LUAI_UACINT)lua_tointeger(L, arg)) : fprintf(f, LUA_NUMBER_FMT, (LUAI_UACNUMBER)lua_tonumber(L, arg)); status = status && (len > 0); } else { size_t l; const char *s = luaL_checklstring(L, arg, &l); status = status && (fwrite(s, sizeof(char), l, f) == l); } } if (l_likely(status)) return 1; else return luaL_fileresult(L, status, NULL); } static int io_write (lua_State *L) { return g_write(L, getiofile(L, IO_OUTPUT), 1); } static int f_write (lua_State *L) { FILE *f = tofile(L); lua_pushvalue(L, 1); return g_write(L, f, 2); } static int f_seek (lua_State *L) { static const int mode[] = {SEEK_SET, SEEK_CUR, SEEK_END}; static const char *const modenames[] = {"set", "cur", "end", NULL}; FILE *f = tofile(L); int op = luaL_checkoption(L, 2, "cur", modenames); lua_Integer p3 = luaL_optinteger(L, 3, 0); l_seeknum offset = (l_seeknum)p3; luaL_argcheck(L, (lua_Integer)offset == p3, 3, "not an integer in proper range"); op = l_fseek(f, offset, mode[op]); if (l_unlikely(op)) return luaL_fileresult(L, 0, NULL); else { lua_pushinteger(L, (lua_Integer)l_ftell(f)); return 1; } } static int f_setvbuf (lua_State *L) { static const int mode[] = {_IONBF, _IOFBF, _IOLBF}; static const char *const modenames[] = {"no", "full", "line", NULL}; FILE *f = tofile(L); int op = luaL_checkoption(L, 2, NULL, modenames); lua_Integer sz = luaL_optinteger(L, 3, LUAL_BUFFERSIZE); int res = setvbuf(f, NULL, mode[op], (size_t)sz); return luaL_fileresult(L, res == 0, NULL); } static int io_flush (lua_State *L) { return luaL_fileresult(L, fflush(getiofile(L, IO_OUTPUT)) == 0, NULL); } static int f_flush (lua_State *L) { return luaL_fileresult(L, fflush(tofile(L)) == 0, NULL); } static const luaL_Reg iolib[] = { {"close", io_close}, {"flush", io_flush}, {"input", io_input}, {"lines", io_lines}, {"open", io_open}, {"output", io_output}, {"popen", io_popen}, {"read", io_read}, {"tmpfile", io_tmpfile}, {"type", io_type}, {"write", io_write}, {NULL, NULL} }; static const luaL_Reg meth[] = { {"read", f_read}, {"write", f_write}, {"lines", f_lines}, {"flush", f_flush}, {"seek", f_seek}, {"close", f_close}, {"setvbuf", f_setvbuf}, {NULL, NULL} }; static const luaL_Reg metameth[] = { {"__index", NULL}, {"__gc", f_gc}, {"__close", f_gc}, {"__tostring", f_tostring}, {NULL, NULL} }; static void createmeta (lua_State *L) { luaL_newmetatable(L, LUA_FILEHANDLE); luaL_setfuncs(L, metameth, 0); luaL_newlibtable(L, meth); luaL_setfuncs(L, meth, 0); lua_setfield(L, -2, "__index"); lua_pop(L, 1); } static int io_noclose (lua_State *L) { LStream *p = tolstream(L); p->closef = &io_noclose; luaL_pushfail(L); lua_pushliteral(L, "cannot close standard file"); return 2; } static void createstdfile (lua_State *L, FILE *f, const char *k, const char *fname) { LStream *p = newprefile(L); p->f = f; p->closef = &io_noclose; if (k != NULL) { lua_pushvalue(L, -1); lua_setfield(L, LUA_REGISTRYINDEX, k); } lua_setfield(L, -2, fname); } LUAMOD_API int luaopen_io (lua_State *L) { luaL_newlib(L, iolib); createmeta(L); createstdfile(L, stdin, IO_INPUT, "stdin"); createstdfile(L, stdout, IO_OUTPUT, "stdout"); createstdfile(L, stderr, NULL, "stderr"); return 1; } //path: src/imports/../dependencies/lua/lmathlib.c #define lmathlib_c #define LUA_LIB #include #include #include #include #undef PI #define PI (l_mathop(3.141592653589793238462643383279502884)) static int math_abs (lua_State *L) { if (lua_isinteger(L, 1)) { lua_Integer n = lua_tointeger(L, 1); if (n < 0) n = (lua_Integer)(0u - (lua_Unsigned)n); lua_pushinteger(L, n); } else lua_pushnumber(L, l_mathop(private_lua_cembed_fabs)(luaL_checknumber(L, 1))); return 1; } static int math_sin (lua_State *L) { lua_pushnumber(L, l_mathop(private_lua_cembed_sin)(luaL_checknumber(L, 1))); return 1; } static int math_cos (lua_State *L) { lua_pushnumber(L, l_mathop(private_lua_cembed_cos)(luaL_checknumber(L, 1))); return 1; } static int math_tan (lua_State *L) { lua_pushnumber(L, l_mathop(private_lua_cembed_tan)(luaL_checknumber(L, 1))); return 1; } static int math_asin (lua_State *L) { lua_pushnumber(L, l_mathop(private_lua_cembed_asin)(luaL_checknumber(L, 1))); return 1; } static int math_acos (lua_State *L) { lua_pushnumber(L, l_mathop(private_lua_cembed_acos)(luaL_checknumber(L, 1))); return 1; } static int math_atan (lua_State *L) { lua_Number y = luaL_checknumber(L, 1); lua_Number x = luaL_optnumber(L, 2, 1); lua_pushnumber(L, l_mathop(private_lua_cembed_atan2)(y, x)); return 1; } static int math_toint (lua_State *L) { int valid; lua_Integer n = lua_tointegerx(L, 1, &valid); if (l_likely(valid)) lua_pushinteger(L, n); else { luaL_checkany(L, 1); luaL_pushfail(L); } return 1; } static void pushnumint (lua_State *L, lua_Number d) { lua_Integer n; if (lua_numbertointeger(d, &n)) lua_pushinteger(L, n); else lua_pushnumber(L, d); } static int math_floor (lua_State *L) { if (lua_isinteger(L, 1)) lua_settop(L, 1); else { lua_Number d = l_mathop(private_lua_embed_floor)(luaL_checknumber(L, 1)); pushnumint(L, d); } return 1; } static int math_ceil (lua_State *L) { if (lua_isinteger(L, 1)) lua_settop(L, 1); else { lua_Number d = l_mathop(private_lua_cembed_ceil)(luaL_checknumber(L, 1)); pushnumint(L, d); } return 1; } static int math_fmod (lua_State *L) { if (lua_isinteger(L, 1) && lua_isinteger(L, 2)) { lua_Integer d = lua_tointeger(L, 2); if ((lua_Unsigned)d + 1u <= 1u) { luaL_argcheck(L, d != 0, 2, "zero"); lua_pushinteger(L, 0); } else lua_pushinteger(L, lua_tointeger(L, 1) % d); } else lua_pushnumber(L, l_mathop(private_lua_embed_fmod)(luaL_checknumber(L, 1), luaL_checknumber(L, 2))); return 1; } static int math_modf (lua_State *L) { if (lua_isinteger(L ,1)) { lua_settop(L, 1); lua_pushnumber(L, 0); } else { lua_Number n = luaL_checknumber(L, 1); lua_Number ip = (n < 0) ? l_mathop(private_lua_cembed_ceil)(n) : l_mathop(private_lua_embed_floor)(n); pushnumint(L, ip); lua_pushnumber(L, (n == ip) ? l_mathop(0.0) : (n - ip)); } return 2; } static int math_sqrt (lua_State *L) { lua_pushnumber(L, l_mathop(private_lua_cembed_sqrt)(luaL_checknumber(L, 1))); return 1; } static int math_ult (lua_State *L) { lua_Integer a = luaL_checkinteger(L, 1); lua_Integer b = luaL_checkinteger(L, 2); lua_pushboolean(L, (lua_Unsigned)a < (lua_Unsigned)b); return 1; } static int math_log (lua_State *L) { lua_Number x = luaL_checknumber(L, 1); lua_Number res; if (lua_isnoneornil(L, 2)) res = l_mathop(private_lua_cembed_log)(x); else { lua_Number base = luaL_checknumber(L, 2); #if !defined(LUA_USE_C89) if (base == l_mathop(2.0)) res = l_mathop(private_lua_cembed_log2)(x); else #endif if (base == l_mathop(10.0)) res = l_mathop(private_lua_embed_log10)(x); else res = l_mathop(private_lua_cembed_log)(x)/l_mathop(private_lua_cembed_log)(base); } lua_pushnumber(L, res); return 1; } static int math_exp (lua_State *L) { lua_pushnumber(L, l_mathop(private_lua_cembed_exp)(luaL_checknumber(L, 1))); return 1; } static int math_deg (lua_State *L) { lua_pushnumber(L, luaL_checknumber(L, 1) * (l_mathop(180.0) / PI)); return 1; } static int math_rad (lua_State *L) { lua_pushnumber(L, luaL_checknumber(L, 1) * (PI / l_mathop(180.0))); return 1; } static int math_min (lua_State *L) { int n = lua_gettop(L); int imin = 1; int i; luaL_argcheck(L, n >= 1, 1, "value expected"); for (i = 2; i <= n; i++) { if (lua_compare(L, i, imin, LUA_OPLT)) imin = i; } lua_pushvalue(L, imin); return 1; } static int math_max (lua_State *L) { int n = lua_gettop(L); int imax = 1; int i; luaL_argcheck(L, n >= 1, 1, "value expected"); for (i = 2; i <= n; i++) { if (lua_compare(L, imax, i, LUA_OPLT)) imax = i; } lua_pushvalue(L, imax); return 1; } static int math_type (lua_State *L) { if (lua_type(L, 1) == LUA_TNUMBER) lua_pushstring(L, (lua_isinteger(L, 1)) ? "integer" : "float"); else { luaL_checkany(L, 1); luaL_pushfail(L); } return 1; } #define FIGS l_floatatt(MANT_DIG) #if FIGS > 64 #undef FIGS #define FIGS 64 #endif #if !defined(LUA_RAND32) && !defined(Rand64) #if ((ULONG_MAX >> 31) >> 31) >= 3 #define Rand64 unsigned long #define SRand64 long #elif !defined(LUA_USE_C89) && defined(LLONG_MAX) #define Rand64 unsigned long long #define SRand64 long long #elif ((LUA_MAXUNSIGNED >> 31) >> 31) >= 3 #define Rand64 lua_Unsigned #define SRand64 lua_Integer #endif #endif #if defined(Rand64) #define trim64(x) ((x) & 0xffffffffffffffffu) static Rand64 rotl (Rand64 x, int n) { return (x << n) | (trim64(x) >> (64 - n)); } static Rand64 nextrand (Rand64 *state) { Rand64 state0 = state[0]; Rand64 state1 = state[1]; Rand64 state2 = state[2] ^ state0; Rand64 state3 = state[3] ^ state1; Rand64 res = rotl(state1 * 5, 7) * 9; state[0] = state0 ^ state3; state[1] = state1 ^ state2; state[2] = state2 ^ (state1 << 17); state[3] = rotl(state3, 45); return res; } #define shift64_FIG (64 - FIGS) #define scaleFIG (l_mathop(0.5) / ((Rand64)1 << (FIGS - 1))) static lua_Number I2d (Rand64 x) { SRand64 sx = (SRand64)(trim64(x) >> shift64_FIG); lua_Number res = (lua_Number)(sx) * scaleFIG; if (sx < 0) res += l_mathop(1.0); lua_assert(0 <= res && res < 1); return res; } #define I2UInt(x) ((lua_Unsigned)trim64(x)) #define Int2I(x) ((Rand64)(x)) #else #if LUAI_IS32INT typedef unsigned int lu_int32; #else typedef unsigned long lu_int32; #endif typedef struct Rand64 { lu_int32 h; lu_int32 l; } Rand64; #define trim32(x) ((x) & 0xffffffffu) static Rand64 packI (lu_int32 h, lu_int32 l) { Rand64 result; result.h = h; result.l = l; return result; } static Rand64 Ishl (Rand64 i, int n) { lua_assert(n > 0 && n < 32); return packI((i.h << n) | (trim32(i.l) >> (32 - n)), i.l << n); } static void Ixor (Rand64 *i1, Rand64 i2) { i1->h ^= i2.h; i1->l ^= i2.l; } static Rand64 Iadd (Rand64 i1, Rand64 i2) { Rand64 result = packI(i1.h + i2.h, i1.l + i2.l); if (trim32(result.l) < trim32(i1.l)) result.h++; return result; } static Rand64 times5 (Rand64 i) { return Iadd(Ishl(i, 2), i); } static Rand64 times9 (Rand64 i) { return Iadd(Ishl(i, 3), i); } static Rand64 rotl (Rand64 i, int n) { lua_assert(n > 0 && n < 32); return packI((i.h << n) | (trim32(i.l) >> (32 - n)), (trim32(i.h) >> (32 - n)) | (i.l << n)); } static Rand64 rotl1 (Rand64 i, int n) { lua_assert(n > 32 && n < 64); n = 64 - n; return packI((trim32(i.h) >> n) | (i.l << (32 - n)), (i.h << (32 - n)) | (trim32(i.l) >> n)); } static Rand64 nextrand (Rand64 *state) { Rand64 res = times9(rotl(times5(state[1]), 7)); Rand64 t = Ishl(state[1], 17); Ixor(&state[2], state[0]); Ixor(&state[3], state[1]); Ixor(&state[1], state[2]); Ixor(&state[0], state[3]); Ixor(&state[2], t); state[3] = rotl1(state[3], 45); return res; } #define UONE ((lu_int32)1) #if FIGS <= 32 #define scaleFIG (l_mathop(0.5) / (UONE << (FIGS - 1))) static lua_Number I2d (Rand64 x) { lua_Number h = (lua_Number)(trim32(x.h) >> (32 - FIGS)); return h * scaleFIG; } #else #define scaleFIG \ (l_mathop(1.0) / (UONE << 30) / l_mathop(8.0) / (UONE << (FIGS - 33))) #define shiftLOW (64 - FIGS) #define shiftHI ((lua_Number)(UONE << (FIGS - 33)) * l_mathop(2.0)) static lua_Number I2d (Rand64 x) { lua_Number h = (lua_Number)trim32(x.h) * shiftHI; lua_Number l = (lua_Number)(trim32(x.l) >> shiftLOW); return (h + l) * scaleFIG; } #endif static lua_Unsigned I2UInt (Rand64 x) { return (((lua_Unsigned)trim32(x.h) << 31) << 1) | (lua_Unsigned)trim32(x.l); } static Rand64 Int2I (lua_Unsigned n) { return packI((lu_int32)((n >> 31) >> 1), (lu_int32)n); } #endif typedef struct { Rand64 s[4]; } RanState; static lua_Unsigned project (lua_Unsigned ran, lua_Unsigned n, RanState *state) { if ((n & (n + 1)) == 0) return ran & n; else { lua_Unsigned lim = n; lim |= (lim >> 1); lim |= (lim >> 2); lim |= (lim >> 4); lim |= (lim >> 8); lim |= (lim >> 16); #if (LUA_MAXUNSIGNED >> 31) >= 3 lim |= (lim >> 32); #endif lua_assert((lim & (lim + 1)) == 0 && lim >= n && (lim >> 1) < n); while ((ran &= lim) > n) ran = I2UInt(nextrand(state->s)); return ran; } } static int math_random (lua_State *L) { lua_Integer low, up; lua_Unsigned p; RanState *state = (RanState *)lua_touserdata(L, lua_upvalueindex(1)); Rand64 rv = nextrand(state->s); switch (lua_gettop(L)) { case 0: { lua_pushnumber(L, I2d(rv)); return 1; } case 1: { low = 1; up = luaL_checkinteger(L, 1); if (up == 0) { lua_pushinteger(L, I2UInt(rv)); return 1; } break; } case 2: { low = luaL_checkinteger(L, 1); up = luaL_checkinteger(L, 2); break; } default: return luaL_error(L, "wrong number of arguments"); } luaL_argcheck(L, low <= up, 1, "interval is empty"); p = project(I2UInt(rv), (lua_Unsigned)up - (lua_Unsigned)low, state); lua_pushinteger(L, p + (lua_Unsigned)low); return 1; } static void setseed (lua_State *L, Rand64 *state, lua_Unsigned n1, lua_Unsigned n2) { int i; state[0] = Int2I(n1); state[1] = Int2I(0xff); state[2] = Int2I(n2); state[3] = Int2I(0); for (i = 0; i < 16; i++) nextrand(state); lua_pushinteger(L, n1); lua_pushinteger(L, n2); } static int math_randomseed (lua_State *L) { RanState *state = (RanState *)lua_touserdata(L, lua_upvalueindex(1)); lua_Unsigned n1, n2; if (lua_isnone(L, 1)) { n1 = luaL_makeseed(L); n2 = I2UInt(nextrand(state->s)); } else { n1 = luaL_checkinteger(L, 1); n2 = luaL_optinteger(L, 2, 0); } setseed(L, state->s, n1, n2); return 2; } static const luaL_Reg randfuncs[] = { {"random", math_random}, {"randomseed", math_randomseed}, {NULL, NULL} }; static void setrandfunc (lua_State *L) { RanState *state = (RanState *)lua_newuserdatauv(L, sizeof(RanState), 0); setseed(L, state->s, luaL_makeseed(L), 0); lua_pop(L, 2); luaL_setfuncs(L, randfuncs, 1); } #if defined(LUA_COMPAT_MATHLIB) static int math_cosh (lua_State *L) { lua_pushnumber(L, l_mathop(cosh)(luaL_checknumber(L, 1))); return 1; } static int math_sinh (lua_State *L) { lua_pushnumber(L, l_mathop(sinh)(luaL_checknumber(L, 1))); return 1; } static int math_tanh (lua_State *L) { lua_pushnumber(L, l_mathop(tanh)(luaL_checknumber(L, 1))); return 1; } static int math_pow (lua_State *L) { lua_Number x = luaL_checknumber(L, 1); lua_Number y = luaL_checknumber(L, 2); lua_pushnumber(L, l_mathop(pow)(x, y)); return 1; } static int math_frexp (lua_State *L) { int e; lua_pushnumber(L, l_mathop(frexp)(luaL_checknumber(L, 1), &e)); lua_pushinteger(L, e); return 2; } static int math_ldexp (lua_State *L) { lua_Number x = luaL_checknumber(L, 1); int ep = (int)luaL_checkinteger(L, 2); lua_pushnumber(L, l_mathop(ldexp)(x, ep)); return 1; } static int math_log10 (lua_State *L) { lua_pushnumber(L, l_mathop(log10)(luaL_checknumber(L, 1))); return 1; } #endif static const luaL_Reg mathlib[] = { {"abs", math_abs}, {"acos", math_acos}, {"asin", math_asin}, {"atan", math_atan}, {"ceil", math_ceil}, {"cos", math_cos}, {"deg", math_deg}, {"exp", math_exp}, {"tointeger", math_toint}, {"floor", math_floor}, {"fmod", math_fmod}, {"ult", math_ult}, {"log", math_log}, {"max", math_max}, {"min", math_min}, {"modf", math_modf}, {"rad", math_rad}, {"sin", math_sin}, {"sqrt", math_sqrt}, {"tan", math_tan}, {"type", math_type}, #if defined(LUA_COMPAT_MATHLIB) {"atan2", math_atan}, {"cosh", math_cosh}, {"sinh", math_sinh}, {"tanh", math_tanh}, {"pow", math_pow}, {"frexp", math_frexp}, {"ldexp", math_ldexp}, {"log10", math_log10}, #endif {"random", NULL}, {"randomseed", NULL}, {"pi", NULL}, {"huge", NULL}, {"maxinteger", NULL}, {"mininteger", NULL}, {NULL, NULL} }; LUAMOD_API int luaopen_math (lua_State *L) { luaL_newlib(L, mathlib); lua_pushnumber(L, PI); lua_setfield(L, -2, "pi"); lua_pushnumber(L, (lua_Number)HUGE_VAL); lua_setfield(L, -2, "huge"); lua_pushinteger(L, LUA_MAXINTEGER); lua_setfield(L, -2, "maxinteger"); lua_pushinteger(L, LUA_MININTEGER); lua_setfield(L, -2, "mininteger"); setrandfunc(L); return 1; } //path: src/imports/../dependencies/lua/loadlib.c #define loadlib_c #define LUA_LIB #include #include #include #if !defined(LUA_CSUBSEP) #define LUA_CSUBSEP LUA_DIRSEP #endif #if !defined(LUA_LSUBSEP) #define LUA_LSUBSEP LUA_DIRSEP #endif #define LUA_POF "luaopen_" #define LUA_OFSEP "_" static const char *const CLIBS = "_CLIBS"; #define LIB_FAIL "open" #define setprogdir(L) ((void)0) typedef void (*voidf)(void); static void lsys_unloadlib (void *lib); static void *lsys_load (lua_State *L, const char *path, int seeglb); static lua_CFunction lsys_sym (lua_State *L, void *lib, const char *sym); #if defined(LUA_USE_DLOPEN) #include #if defined(__GNUC__) #define cast_func(p) (__extension__ (lua_CFunction)(p)) #else #define cast_func(p) ((lua_CFunction)(p)) #endif static void lsys_unloadlib (void *lib) { dlclose(lib); } static void *lsys_load (lua_State *L, const char *path, int seeglb) { void *lib = dlopen(path, RTLD_NOW | (seeglb ? RTLD_GLOBAL : RTLD_LOCAL)); if (l_unlikely(lib == NULL)) lua_pushstring(L, dlerror()); return lib; } static lua_CFunction lsys_sym (lua_State *L, void *lib, const char *sym) { lua_CFunction f = cast_func(dlsym(lib, sym)); if (l_unlikely(f == NULL)) lua_pushstring(L, dlerror()); return f; } #elif defined(LUA_DL_DLL) #include #if !defined(LUA_LLE_FLAGS) #define LUA_LLE_FLAGS 0 #endif #undef setprogdir static void setprogdir (lua_State *L) { char buff[MAX_PATH + 1]; char *lb; DWORD nsize = sizeof(buff)/sizeof(char); DWORD n = GetModuleFileNameA(NULL, buff, nsize); if (n == 0 || n == nsize || (lb = strrchr(buff, '\\')) == NULL) luaL_error(L, "unable to get ModuleFileName"); else { *lb = '\0'; luaL_gsub(L, lua_tostring(L, -1), LUA_EXEC_DIR, buff); lua_remove(L, -2); } } static void pusherror (lua_State *L) { int error = GetLastError(); char buffer[128]; if (FormatMessageA(FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_SYSTEM, NULL, error, 0, buffer, sizeof(buffer)/sizeof(char), NULL)) lua_pushstring(L, buffer); else lua_pushfstring(L, "system error %d\n", error); } static void lsys_unloadlib (void *lib) { FreeLibrary((HMODULE)lib); } static void *lsys_load (lua_State *L, const char *path, int seeglb) { HMODULE lib = LoadLibraryExA(path, NULL, LUA_LLE_FLAGS); (void)(seeglb); if (lib == NULL) pusherror(L); return lib; } static lua_CFunction lsys_sym (lua_State *L, void *lib, const char *sym) { lua_CFunction f = (lua_CFunction)(voidf)GetProcAddress((HMODULE)lib, sym); if (f == NULL) pusherror(L); return f; } #else #undef LIB_FAIL #define LIB_FAIL "absent" #define DLMSG "dynamic libraries not enabled; check your Lua installation" static void lsys_unloadlib (void *lib) { (void)(lib); } static void *lsys_load (lua_State *L, const char *path, int seeglb) { (void)(path); (void)(seeglb); lua_pushliteral(L, DLMSG); return NULL; } static lua_CFunction lsys_sym (lua_State *L, void *lib, const char *sym) { (void)(lib); (void)(sym); lua_pushliteral(L, DLMSG); return NULL; } #endif #if !defined(LUA_PATH_VAR) #define LUA_PATH_VAR "LUA_PATH" #endif #if !defined(LUA_CPATH_VAR) #define LUA_CPATH_VAR "LUA_CPATH" #endif static int noenv (lua_State *L) { int b; lua_getfield(L, LUA_REGISTRYINDEX, "LUA_NOENV"); b = lua_toboolean(L, -1); lua_pop(L, 1); return b; } static void setpath (lua_State *L, const char *fieldname, const char *envname, const char *dft) { const char *dftmark; const char *nver = lua_pushfstring(L, "%s%s", envname, LUA_VERSUFFIX); const char *path = getenv(nver); if (path == NULL) path = getenv(envname); if (path == NULL || noenv(L)) lua_pushextlstring(L, dft, strlen(dft), NULL, NULL); else if ((dftmark = strstr(path, LUA_PATH_SEP LUA_PATH_SEP)) == NULL) lua_pushstring(L, path); else { size_t len = strlen(path); luaL_Buffer b; luaL_buffinit(L, &b); if (path < dftmark) { luaL_addlstring(&b, path, dftmark - path); luaL_addchar(&b, *LUA_PATH_SEP); } luaL_addstring(&b, dft); if (dftmark < path + len - 2) { luaL_addchar(&b, *LUA_PATH_SEP); luaL_addlstring(&b, dftmark + 2, (path + len - 2) - dftmark); } luaL_pushresult(&b); } setprogdir(L); lua_setfield(L, -3, fieldname); lua_pop(L, 1); } static void *checkclib (lua_State *L, const char *path) { void *plib; lua_getfield(L, LUA_REGISTRYINDEX, CLIBS); lua_getfield(L, -1, path); plib = lua_touserdata(L, -1); lua_pop(L, 2); return plib; } static void addtoclib (lua_State *L, const char *path, void *plib) { lua_getfield(L, LUA_REGISTRYINDEX, CLIBS); lua_pushlightuserdata(L, plib); lua_pushvalue(L, -1); lua_setfield(L, -3, path); lua_rawseti(L, -2, luaL_len(L, -2) + 1); lua_pop(L, 1); } static int gctm (lua_State *L) { lua_Integer n = luaL_len(L, 1); for (; n >= 1; n--) { lua_rawgeti(L, 1, n); lsys_unloadlib(lua_touserdata(L, -1)); lua_pop(L, 1); } return 0; } #define ERRLIB 1 #define ERRFUNC 2 static int lookforfunc (lua_State *L, const char *path, const char *sym) { void *reg = checkclib(L, path); if (reg == NULL) { reg = lsys_load(L, path, *sym == '*'); if (reg == NULL) return ERRLIB; addtoclib(L, path, reg); } if (*sym == '*') { lua_pushboolean(L, 1); return 0; } else { lua_CFunction f = lsys_sym(L, reg, sym); if (f == NULL) return ERRFUNC; lua_pushcfunction(L, f); return 0; } } static int ll_loadlib (lua_State *L) { const char *path = luaL_checkstring(L, 1); const char *init = luaL_checkstring(L, 2); int stat = lookforfunc(L, path, init); if (l_likely(stat == 0)) return 1; else { luaL_pushfail(L); lua_insert(L, -2); lua_pushstring(L, (stat == ERRLIB) ? LIB_FAIL : "init"); return 3; } } static int readable (const char *filename) { FILE *f = fopen(filename, "r"); if (f == NULL) return 0; fclose(f); return 1; } static const char *getnextfilename (char **path, char *end) { char *sep; char *name = *path; if (name == end) return NULL; else if (*name == '\0') { *name = *LUA_PATH_SEP; name++; } sep = strchr(name, *LUA_PATH_SEP); if (sep == NULL) sep = end; *sep = '\0'; *path = sep; return name; } static void pusherrornotfound (lua_State *L, const char *path) { luaL_Buffer b; luaL_buffinit(L, &b); luaL_addstring(&b, "no file '"); luaL_addgsub(&b, path, LUA_PATH_SEP, "'\n\tno file '"); luaL_addstring(&b, "'"); luaL_pushresult(&b); } static const char *searchpath (lua_State *L, const char *name, const char *path, const char *sep, const char *dirsep) { luaL_Buffer buff; char *pathname; char *endpathname; const char *filename; if (*sep != '\0' && strchr(name, *sep) != NULL) name = luaL_gsub(L, name, sep, dirsep); luaL_buffinit(L, &buff); luaL_addgsub(&buff, path, LUA_PATH_MARK, name); luaL_addchar(&buff, '\0'); pathname = luaL_buffaddr(&buff); endpathname = pathname + luaL_bufflen(&buff) - 1; while ((filename = getnextfilename(&pathname, endpathname)) != NULL) { if (readable(filename)) return lua_pushstring(L, filename); } luaL_pushresult(&buff); pusherrornotfound(L, lua_tostring(L, -1)); return NULL; } static int ll_searchpath (lua_State *L) { const char *f = searchpath(L, luaL_checkstring(L, 1), luaL_checkstring(L, 2), luaL_optstring(L, 3, "."), luaL_optstring(L, 4, LUA_DIRSEP)); if (f != NULL) return 1; else { luaL_pushfail(L); lua_insert(L, -2); return 2; } } static const char *findfile (lua_State *L, const char *name, const char *pname, const char *dirsep) { const char *path; lua_getfield(L, lua_upvalueindex(1), pname); path = lua_tostring(L, -1); if (l_unlikely(path == NULL)) luaL_error(L, "'package.%s' must be a string", pname); return searchpath(L, name, path, ".", dirsep); } static int checkload (lua_State *L, int stat, const char *filename) { if (l_likely(stat)) { lua_pushstring(L, filename); return 2; } else return luaL_error(L, "error loading module '%s' from file '%s':\n\t%s", lua_tostring(L, 1), filename, lua_tostring(L, -1)); } static int searcher_Lua (lua_State *L) { const char *filename; const char *name = luaL_checkstring(L, 1); filename = findfile(L, name, "path", LUA_LSUBSEP); if (filename == NULL) return 1; return checkload(L, (luaL_loadfile(L, filename) == LUA_OK), filename); } static int loadfunc (lua_State *L, const char *filename, const char *modname) { const char *openfunc; const char *mark; modname = luaL_gsub(L, modname, ".", LUA_OFSEP); mark = strchr(modname, *LUA_IGMARK); if (mark) { int stat; openfunc = lua_pushlstring(L, modname, mark - modname); openfunc = lua_pushfstring(L, LUA_POF"%s", openfunc); stat = lookforfunc(L, filename, openfunc); if (stat != ERRFUNC) return stat; modname = mark + 1; } openfunc = lua_pushfstring(L, LUA_POF"%s", modname); return lookforfunc(L, filename, openfunc); } static int searcher_C (lua_State *L) { const char *name = luaL_checkstring(L, 1); const char *filename = findfile(L, name, "cpath", LUA_CSUBSEP); if (filename == NULL) return 1; return checkload(L, (loadfunc(L, filename, name) == 0), filename); } static int searcher_Croot (lua_State *L) { const char *filename; const char *name = luaL_checkstring(L, 1); const char *p = strchr(name, '.'); int stat; if (p == NULL) return 0; lua_pushlstring(L, name, p - name); filename = findfile(L, lua_tostring(L, -1), "cpath", LUA_CSUBSEP); if (filename == NULL) return 1; if ((stat = loadfunc(L, filename, name)) != 0) { if (stat != ERRFUNC) return checkload(L, 0, filename); else { lua_pushfstring(L, "no module '%s' in file '%s'", name, filename); return 1; } } lua_pushstring(L, filename); return 2; } static int searcher_preload (lua_State *L) { const char *name = luaL_checkstring(L, 1); lua_getfield(L, LUA_REGISTRYINDEX, LUA_PRELOAD_TABLE); if (lua_getfield(L, -1, name) == LUA_TNIL) { lua_pushfstring(L, "no field package.preload['%s']", name); return 1; } else { lua_pushliteral(L, ":preload:"); return 2; } } static void findloader (lua_State *L, const char *name) { int i; luaL_Buffer msg; if (l_unlikely(lua_getfield(L, lua_upvalueindex(1), "searchers") != LUA_TTABLE)) luaL_error(L, "'package.searchers' must be a table"); luaL_buffinit(L, &msg); for (i = 1; ; i++) { luaL_addstring(&msg, "\n\t"); if (l_unlikely(lua_rawgeti(L, 3, i) == LUA_TNIL)) { lua_pop(L, 1); luaL_buffsub(&msg, 2); luaL_pushresult(&msg); luaL_error(L, "module '%s' not found:%s", name, lua_tostring(L, -1)); } lua_pushstring(L, name); lua_call(L, 1, 2); if (lua_isfunction(L, -2)) return; else if (lua_isstring(L, -2)) { lua_pop(L, 1); luaL_addvalue(&msg); } else { lua_pop(L, 2); luaL_buffsub(&msg, 2); } } } static int ll_require (lua_State *L) { const char *name = luaL_checkstring(L, 1); lua_settop(L, 1); lua_getfield(L, LUA_REGISTRYINDEX, LUA_LOADED_TABLE); lua_getfield(L, 2, name); if (lua_toboolean(L, -1)) return 1; lua_pop(L, 1); findloader(L, name); lua_rotate(L, -2, 1); lua_pushvalue(L, 1); lua_pushvalue(L, -3); lua_call(L, 2, 1); if (!lua_isnil(L, -1)) lua_setfield(L, 2, name); else lua_pop(L, 1); if (lua_getfield(L, 2, name) == LUA_TNIL) { lua_pushboolean(L, 1); lua_copy(L, -1, -2); lua_setfield(L, 2, name); } lua_rotate(L, -2, 1); return 2; } static const luaL_Reg pk_funcs[] = { {"loadlib", ll_loadlib}, {"searchpath", ll_searchpath}, {"preload", NULL}, {"cpath", NULL}, {"path", NULL}, {"searchers", NULL}, {"loaded", NULL}, {NULL, NULL} }; static const luaL_Reg ll_funcs[] = { {"require", ll_require}, {NULL, NULL} }; static void createsearcherstable (lua_State *L) { static const lua_CFunction searchers[] = { searcher_preload, searcher_Lua, searcher_C, searcher_Croot, NULL }; int i; lua_createtable(L, sizeof(searchers)/sizeof(searchers[0]) - 1, 0); for (i=0; searchers[i] != NULL; i++) { lua_pushvalue(L, -2); lua_pushcclosure(L, searchers[i], 1); lua_rawseti(L, -2, i+1); } lua_setfield(L, -2, "searchers"); } static void createclibstable (lua_State *L) { luaL_getsubtable(L, LUA_REGISTRYINDEX, CLIBS); lua_createtable(L, 0, 1); lua_pushcfunction(L, gctm); lua_setfield(L, -2, "__gc"); lua_setmetatable(L, -2); } LUAMOD_API int luaopen_package (lua_State *L) { createclibstable(L); luaL_newlib(L, pk_funcs); createsearcherstable(L); setpath(L, "path", LUA_PATH_VAR, LUA_PATH_DEFAULT); setpath(L, "cpath", LUA_CPATH_VAR, LUA_CPATH_DEFAULT); lua_pushliteral(L, LUA_DIRSEP "\n" LUA_PATH_SEP "\n" LUA_PATH_MARK "\n" LUA_EXEC_DIR "\n" LUA_IGMARK "\n"); lua_setfield(L, -2, "config"); luaL_getsubtable(L, LUA_REGISTRYINDEX, LUA_LOADED_TABLE); lua_setfield(L, -2, "loaded"); luaL_getsubtable(L, LUA_REGISTRYINDEX, LUA_PRELOAD_TABLE); lua_setfield(L, -2, "preload"); lua_pushglobaltable(L); lua_pushvalue(L, -2); luaL_setfuncs(L, ll_funcs, 1); lua_pop(L, 1); return 1; } //path: src/imports/../dependencies/lua/loslib.c #define loslib_c #define LUA_LIB #include #include #include #include #include #if !defined(LUA_STRFTIMEOPTIONS) #if defined(LUA_USE_WINDOWS) #define LUA_STRFTIMEOPTIONS "aAbBcdHIjmMpSUwWxXyYzZ%" \ "||" "#c#x#d#H#I#j#m#M#S#U#w#W#y#Y" #elif defined(LUA_USE_C89) #define LUA_STRFTIMEOPTIONS "aAbBcdHIjmMpSUwWxXyYZ%" #else #define LUA_STRFTIMEOPTIONS "aAbBcCdDeFgGhHIjmMnprRStTuUVwWxXyYzZ%" \ "||" "EcECExEXEyEY" "OdOeOHOIOmOMOSOuOUOVOwOWOy" #endif #endif #if !defined(LUA_NUMTIME) #define l_timet lua_Integer #define l_pushtime(L,t) lua_pushinteger(L,(lua_Integer)(t)) #define l_gettime(L,arg) luaL_checkinteger(L, arg) #else #define l_timet lua_Number #define l_pushtime(L,t) lua_pushnumber(L,(lua_Number)(t)) #define l_gettime(L,arg) luaL_checknumber(L, arg) #endif #if !defined(l_gmtime) #if defined(LUA_USE_POSIX) #define l_gmtime(t,r) gmtime_r(t,r) #define l_localtime(t,r) localtime_r(t,r) #else #define l_gmtime(t,r) ((void)(r)->tm_sec, gmtime(t)) #define l_localtime(t,r) ((void)(r)->tm_sec, localtime(t)) #endif #endif #if !defined(lua_tmpnam) #if defined(LUA_USE_POSIX) #include #define LUA_TMPNAMBUFSIZE 32 #if !defined(LUA_TMPNAMTEMPLATE) #define LUA_TMPNAMTEMPLATE "/tmp/lua_XXXXXX" #endif #define lua_tmpnam(b,e) { \ strcpy(b, LUA_TMPNAMTEMPLATE); \ e = mkstemp(b); \ if (e != -1) close(e); \ e = (e == -1); } #else #define LUA_TMPNAMBUFSIZE L_tmpnam #define lua_tmpnam(b,e) { e = (tmpnam(b) == NULL); } #endif #endif #if !defined(l_system) #if defined(LUA_USE_IOS) #define l_system(cmd) ((cmd) == NULL ? 0 : -1) #else #define l_system(cmd) system(cmd) #endif #endif static int os_execute (lua_State *L) { const char *cmd = luaL_optstring(L, 1, NULL); int stat; errno = 0; stat = l_system(cmd); if (cmd != NULL) return luaL_execresult(L, stat); else { lua_pushboolean(L, stat); return 1; } } static int os_remove (lua_State *L) { const char *filename = luaL_checkstring(L, 1); return luaL_fileresult(L, remove(filename) == 0, filename); } static int os_rename (lua_State *L) { const char *fromname = luaL_checkstring(L, 1); const char *toname = luaL_checkstring(L, 2); return luaL_fileresult(L, rename(fromname, toname) == 0, NULL); } #ifdef __linux static int os_tmpname(lua_State *L) { char buff[100]; /// const char *tmpdir = "/tmp/lua_XXXXXX"; int fd = mkstemp(buff); if (fd == -1) { return luaL_error(L, "unable to generate a unique filename"); } close(fd); lua_pushstring(L, buff); return 1; } #endif #ifdef _WIN32 static int os_tmpname(lua_State *L) { char buff[100] = {0}; const char *template_file = "lua_XXXXXX"; GetTempPathA(sizeof(buff), buff); UINT fd = GetTempFileNameA(buff, template_file, 0, buff); if (fd == -1) { return luaL_error(L, "unable to generate a unique filename"); } lua_pushstring(L, buff); return 1; } #endif static int os_getenv (lua_State *L) { lua_pushstring(L, getenv(luaL_checkstring(L, 1))); return 1; } static int os_clock (lua_State *L) { lua_pushnumber(L, ((lua_Number)clock())/(lua_Number)CLOCKS_PER_SEC); return 1; } static void setfield (lua_State *L, const char *key, int value, int delta) { #if (defined(LUA_NUMTIME) && LUA_MAXINTEGER <= INT_MAX) if (l_unlikely(value > LUA_MAXINTEGER - delta)) luaL_error(L, "field '%s' is out-of-bound", key); #endif lua_pushinteger(L, (lua_Integer)value + delta); lua_setfield(L, -2, key); } static void setboolfield (lua_State *L, const char *key, int value) { if (value < 0) return; lua_pushboolean(L, value); lua_setfield(L, -2, key); } static void setallfields (lua_State *L, struct tm *stm) { setfield(L, "year", stm->tm_year, 1900); setfield(L, "month", stm->tm_mon, 1); setfield(L, "day", stm->tm_mday, 0); setfield(L, "hour", stm->tm_hour, 0); setfield(L, "min", stm->tm_min, 0); setfield(L, "sec", stm->tm_sec, 0); setfield(L, "yday", stm->tm_yday, 1); setfield(L, "wday", stm->tm_wday, 1); setboolfield(L, "isdst", stm->tm_isdst); } static int getboolfield (lua_State *L, const char *key) { int res; res = (lua_getfield(L, -1, key) == LUA_TNIL) ? -1 : lua_toboolean(L, -1); lua_pop(L, 1); return res; } static int getfield (lua_State *L, const char *key, int d, int delta) { int isnum; int t = lua_getfield(L, -1, key); lua_Integer res = lua_tointegerx(L, -1, &isnum); if (!isnum) { if (l_unlikely(t != LUA_TNIL)) return luaL_error(L, "field '%s' is not an integer", key); else if (l_unlikely(d < 0)) return luaL_error(L, "field '%s' missing in date table", key); res = d; } else { if (!(res >= 0 ? res - delta <= INT_MAX : INT_MIN + delta <= res)) return luaL_error(L, "field '%s' is out-of-bound", key); res -= delta; } lua_pop(L, 1); return (int)res; } static const char *checkoption (lua_State *L, const char *conv, ptrdiff_t convlen, char *buff) { const char *option = LUA_STRFTIMEOPTIONS; int oplen = 1; for (; *option != '\0' && oplen <= convlen; option += oplen) { if (*option == '|') oplen++; else if (memcmp(conv, option, oplen) == 0) { memcpy(buff, conv, oplen); buff[oplen] = '\0'; return conv + oplen; } } luaL_argerror(L, 1, lua_pushfstring(L, "invalid conversion specifier '%%%s'", conv)); return conv; } static time_t l_checktime (lua_State *L, int arg) { l_timet t = l_gettime(L, arg); luaL_argcheck(L, (time_t)t == t, arg, "time out-of-bounds"); return (time_t)t; } #define SIZETIMEFMT 250 static int os_date (lua_State *L) { size_t slen; const char *s = luaL_optlstring(L, 1, "%c", &slen); time_t t = luaL_opt(L, l_checktime, 2, time(NULL)); const char *se = s + slen; struct tm tmr, *stm; if (*s == '!') { stm = l_gmtime(&t, &tmr); s++; } else stm = l_localtime(&t, &tmr); if (stm == NULL) return luaL_error(L, "date result cannot be represented in this installation"); if (strcmp(s, "*t") == 0) { lua_createtable(L, 0, 9); setallfields(L, stm); } else { char cc[4]; luaL_Buffer b; cc[0] = '%'; luaL_buffinit(L, &b); while (s < se) { if (*s != '%') luaL_addchar(&b, *s++); else { size_t reslen; char *buff = luaL_prepbuffsize(&b, SIZETIMEFMT); s++; s = checkoption(L, s, se - s, cc + 1); reslen = strftime(buff, SIZETIMEFMT, cc, stm); luaL_addsize(&b, reslen); } } luaL_pushresult(&b); } return 1; } static int os_time (lua_State *L) { time_t t; if (lua_isnoneornil(L, 1)) t = time(NULL); else { struct tm ts; luaL_checktype(L, 1, LUA_TTABLE); lua_settop(L, 1); ts.tm_year = getfield(L, "year", -1, 1900); ts.tm_mon = getfield(L, "month", -1, 1); ts.tm_mday = getfield(L, "day", -1, 0); ts.tm_hour = getfield(L, "hour", 12, 0); ts.tm_min = getfield(L, "min", 0, 0); ts.tm_sec = getfield(L, "sec", 0, 0); ts.tm_isdst = getboolfield(L, "isdst"); t = mktime(&ts); setallfields(L, &ts); } if (t != (time_t)(l_timet)t || t == (time_t)(-1)) return luaL_error(L, "time result cannot be represented in this installation"); l_pushtime(L, t); return 1; } static int os_difftime (lua_State *L) { time_t t1 = l_checktime(L, 1); time_t t2 = l_checktime(L, 2); lua_pushnumber(L, (lua_Number)difftime(t1, t2)); return 1; } static int os_setlocale (lua_State *L) { static const int cat[] = {LC_ALL, LC_COLLATE, LC_CTYPE, LC_MONETARY, LC_NUMERIC, LC_TIME}; static const char *const catnames[] = {"all", "collate", "ctype", "monetary", "numeric", "time", NULL}; const char *l = luaL_optstring(L, 1, NULL); int op = luaL_checkoption(L, 2, "all", catnames); lua_pushstring(L, setlocale(cat[op], l)); return 1; } static int os_exit (lua_State *L) { int status; if (lua_isboolean(L, 1)) status = (lua_toboolean(L, 1) ? EXIT_SUCCESS : EXIT_FAILURE); else status = (int)luaL_optinteger(L, 1, EXIT_SUCCESS); if (lua_toboolean(L, 2)) lua_close(L); if (L) exit(status); return 0; } static const luaL_Reg syslib[] = { {"clock", os_clock}, {"date", os_date}, {"difftime", os_difftime}, {"execute", os_execute}, {"exit", os_exit}, {"getenv", os_getenv}, {"remove", os_remove}, {"rename", os_rename}, {"setlocale", os_setlocale}, {"time", os_time}, {"tmpname", os_tmpname}, {NULL, NULL} }; LUAMOD_API int luaopen_os (lua_State *L) { luaL_newlib(L, syslib); return 1; } //path: src/imports/../dependencies/lua/lstrlib.c #define lstrlib_c #define LUA_LIB #include #include #include #include #include #include #include #include #if !defined(LUA_MAXCAPTURES) #define LUA_MAXCAPTURES 32 #endif #define uchar(c) ((unsigned char)(c)) #define MAX_SIZET ((size_t)(~(size_t)0)) #define MAXSIZE \ (sizeof(size_t) < sizeof(int) ? MAX_SIZET : (size_t)(INT_MAX)) static int str_len (lua_State *L) { size_t l; luaL_checklstring(L, 1, &l); lua_pushinteger(L, (lua_Integer)l); return 1; } static size_t posrelatI (lua_Integer pos, size_t len) { if (pos > 0) return (size_t)pos; else if (pos == 0) return 1; else if (pos < -(lua_Integer)len) return 1; else return len + (size_t)pos + 1; } static size_t getendpos (lua_State *L, int arg, lua_Integer def, size_t len) { lua_Integer pos = luaL_optinteger(L, arg, def); if (pos > (lua_Integer)len) return len; else if (pos >= 0) return (size_t)pos; else if (pos < -(lua_Integer)len) return 0; else return len + (size_t)pos + 1; } static int str_sub (lua_State *L) { size_t l; const char *s = luaL_checklstring(L, 1, &l); size_t start = posrelatI(luaL_checkinteger(L, 2), l); size_t end = getendpos(L, 3, -1, l); if (start <= end) lua_pushlstring(L, s + start - 1, (end - start) + 1); else lua_pushliteral(L, "carview.php?tsp="); return 1; } static int str_reverse (lua_State *L) { size_t l, i; luaL_Buffer b; const char *s = luaL_checklstring(L, 1, &l); char *p = luaL_buffinitsize(L, &b, l); for (i = 0; i < l; i++) p[i] = s[l - i - 1]; luaL_pushresultsize(&b, l); return 1; } static int str_lower (lua_State *L) { size_t l; size_t i; luaL_Buffer b; const char *s = luaL_checklstring(L, 1, &l); char *p = luaL_buffinitsize(L, &b, l); for (i=0; i 1) { memcpy(p, s, l * sizeof(char)); p += l; if (lsep > 0) { memcpy(p, sep, lsep * sizeof(char)); p += lsep; } } memcpy(p, s, l * sizeof(char)); luaL_pushresultsize(&b, totallen); } return 1; } static int str_byte (lua_State *L) { size_t l; const char *s = luaL_checklstring(L, 1, &l); lua_Integer pi = luaL_optinteger(L, 2, 1); size_t posi = posrelatI(pi, l); size_t pose = getendpos(L, 3, pi, l); int n, i; if (posi > pose) return 0; if (l_unlikely(pose - posi >= (size_t)INT_MAX)) return luaL_error(L, "string slice too long"); n = (int)(pose - posi) + 1; luaL_checkstack(L, n, "string slice too long"); for (i=0; iinit) { state->init = 1; luaL_buffinit(L, &state->B); } if (b == NULL) { luaL_pushresult(&state->B); lua_replace(L, 1); } else luaL_addlstring(&state->B, (const char *)b, size); return 0; } static int str_dump (lua_State *L) { struct str_Writer state; int strip = lua_toboolean(L, 2); luaL_argcheck(L, lua_type(L, 1) == LUA_TFUNCTION && !lua_iscfunction(L, 1), 1, "Lua function expected"); lua_pushvalue(L, 1); state.init = 0; lua_dump(L, writer, &state, strip); lua_settop(L, 1); return 1; } #if defined(LUA_NOCVTS2N) static const luaL_Reg stringmetamethods[] = { {"__index", NULL}, {NULL, NULL} }; #else static int tonum (lua_State *L, int arg) { if (lua_type(L, arg) == LUA_TNUMBER) { lua_pushvalue(L, arg); return 1; } else { size_t len; const char *s = lua_tolstring(L, arg, &len); return (s != NULL && lua_stringtonumber(L, s) == len + 1); } } static void trymt (lua_State *L, const char *mtname) { lua_settop(L, 2); if (l_unlikely(lua_type(L, 2) == LUA_TSTRING || !luaL_getmetafield(L, 2, mtname))) luaL_error(L, "attempt to %s a '%s' with a '%s'", mtname + 2, luaL_typename(L, -2), luaL_typename(L, -1)); lua_insert(L, -3); lua_call(L, 2, 1); } static int arith (lua_State *L, int op, const char *mtname) { if (tonum(L, 1) && tonum(L, 2)) lua_arith(L, op); else trymt(L, mtname); return 1; } static int arith_add (lua_State *L) { return arith(L, LUA_OPADD, "__add"); } static int arith_sub (lua_State *L) { return arith(L, LUA_OPSUB, "__sub"); } static int arith_mul (lua_State *L) { return arith(L, LUA_OPMUL, "__mul"); } static int arith_mod (lua_State *L) { return arith(L, LUA_OPMOD, "__mod"); } static int arith_pow (lua_State *L) { return arith(L, LUA_OPPOW, "__pow"); } static int arith_div (lua_State *L) { return arith(L, LUA_OPDIV, "__div"); } static int arith_idiv (lua_State *L) { return arith(L, LUA_OPIDIV, "__idiv"); } static int arith_unm (lua_State *L) { return arith(L, LUA_OPUNM, "__unm"); } static const luaL_Reg stringmetamethods[] = { {"__add", arith_add}, {"__sub", arith_sub}, {"__mul", arith_mul}, {"__mod", arith_mod}, {"__pow", arith_pow}, {"__div", arith_div}, {"__idiv", arith_idiv}, {"__unm", arith_unm}, {"__index", NULL}, {NULL, NULL} }; #endif #define CAP_UNFINISHED (-1) #define CAP_POSITION (-2) typedef struct MatchState { const char *src_init; const char *src_end; const char *p_end; lua_State *L; int matchdepth; unsigned char level; struct { const char *init; ptrdiff_t len; } capture[LUA_MAXCAPTURES]; } MatchState; static const char *match (MatchState *ms, const char *s, const char *p); #if !defined(MAXCCALLS) #define MAXCCALLS 200 #endif #define L_ESC '%' #define SPECIALS "^$*+?.([%-" static int check_capture (MatchState *ms, int l) { l -= '1'; if (l_unlikely(l < 0 || l >= ms->level || ms->capture[l].len == CAP_UNFINISHED)) return luaL_error(ms->L, "invalid capture index %%%d", l + 1); return l; } static int capture_to_close (MatchState *ms) { int level = ms->level; for (level--; level>=0; level--) if (ms->capture[level].len == CAP_UNFINISHED) return level; return luaL_error(ms->L, "invalid pattern capture"); } static const char *classend (MatchState *ms, const char *p) { switch (*p++) { case L_ESC: { if (l_unlikely(p == ms->p_end)) luaL_error(ms->L, "malformed pattern (ends with '%%')"); return p+1; } case '[': { if (*p == '^') p++; do { if (l_unlikely(p == ms->p_end)) luaL_error(ms->L, "malformed pattern (missing ']')"); if (*(p++) == L_ESC && p < ms->p_end) p++; } while (*p != ']'); return p+1; } default: { return p; } } } static int match_class (int c, int cl) { int res; switch (tolower(cl)) { case 'a' : res = isalpha(c); break; case 'c' : res = iscntrl(c); break; case 'd' : res = isdigit(c); break; case 'g' : res = isgraph(c); break; case 'l' : res = islower(c); break; case 'p' : res = ispunct(c); break; case 's' : res = isspace(c); break; case 'u' : res = isupper(c); break; case 'w' : res = isalnum(c); break; case 'x' : res = isxdigit(c); break; case 'z' : res = (c == 0); break; default: return (cl == c); } return (islower(cl) ? res : !res); } static int matchbracketclass (int c, const char *p, const char *ec) { int sig = 1; if (*(p+1) == '^') { sig = 0; p++; } while (++p < ec) { if (*p == L_ESC) { p++; if (match_class(c, uchar(*p))) return sig; } else if ((*(p+1) == '-') && (p+2 < ec)) { p+=2; if (uchar(*(p-2)) <= c && c <= uchar(*p)) return sig; } else if (uchar(*p) == c) return sig; } return !sig; } static int singlematch (MatchState *ms, const char *s, const char *p, const char *ep) { if (s >= ms->src_end) return 0; else { int c = uchar(*s); switch (*p) { case '.': return 1; case L_ESC: return match_class(c, uchar(*(p+1))); case '[': return matchbracketclass(c, p, ep-1); default: return (uchar(*p) == c); } } } static const char *matchbalance (MatchState *ms, const char *s, const char *p) { if (l_unlikely(p >= ms->p_end - 1)) luaL_error(ms->L, "malformed pattern (missing arguments to '%%b')"); if (*s != *p) return NULL; else { int b = *p; int e = *(p+1); int cont = 1; while (++s < ms->src_end) { if (*s == e) { if (--cont == 0) return s+1; } else if (*s == b) cont++; } } return NULL; } static const char *max_expand (MatchState *ms, const char *s, const char *p, const char *ep) { ptrdiff_t i = 0; while (singlematch(ms, s + i, p, ep)) i++; while (i>=0) { const char *res = match(ms, (s+i), ep+1); if (res) return res; i--; } return NULL; } static const char *min_expand (MatchState *ms, const char *s, const char *p, const char *ep) { for (;;) { const char *res = match(ms, s, ep+1); if (res != NULL) return res; else if (singlematch(ms, s, p, ep)) s++; else return NULL; } } static const char *start_capture (MatchState *ms, const char *s, const char *p, int what) { const char *res; int level = ms->level; if (level >= LUA_MAXCAPTURES) luaL_error(ms->L, "too many captures"); ms->capture[level].init = s; ms->capture[level].len = what; ms->level = level+1; if ((res=match(ms, s, p)) == NULL) ms->level--; return res; } static const char *end_capture (MatchState *ms, const char *s, const char *p) { int l = capture_to_close(ms); const char *res; ms->capture[l].len = s - ms->capture[l].init; if ((res = match(ms, s, p)) == NULL) ms->capture[l].len = CAP_UNFINISHED; return res; } static const char *match_capture (MatchState *ms, const char *s, int l) { size_t len; l = check_capture(ms, l); len = ms->capture[l].len; if ((size_t)(ms->src_end-s) >= len && memcmp(ms->capture[l].init, s, len) == 0) return s+len; else return NULL; } static const char *match (MatchState *ms, const char *s, const char *p) { if (l_unlikely(ms->matchdepth-- == 0)) luaL_error(ms->L, "pattern too complex"); init: if (p != ms->p_end) { switch (*p) { case '(': { if (*(p + 1) == ')') s = start_capture(ms, s, p + 2, CAP_POSITION); else s = start_capture(ms, s, p + 1, CAP_UNFINISHED); break; } case ')': { s = end_capture(ms, s, p + 1); break; } case '$': { if ((p + 1) != ms->p_end) goto dflt; s = (s == ms->src_end) ? s : NULL; break; } case L_ESC: { switch (*(p + 1)) { case 'b': { s = matchbalance(ms, s, p + 2); if (s != NULL) { p += 4; goto init; } break; } case 'f': { const char *ep; char previous; p += 2; if (l_unlikely(*p != '[')) luaL_error(ms->L, "missing '[' after '%%f' in pattern"); ep = classend(ms, p); previous = (s == ms->src_init) ? '\0' : *(s - 1); if (!matchbracketclass(uchar(previous), p, ep - 1) && matchbracketclass(uchar(*s), p, ep - 1)) { p = ep; goto init; } s = NULL; break; } case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': { s = match_capture(ms, s, uchar(*(p + 1))); if (s != NULL) { p += 2; goto init; } break; } default: goto dflt; } break; } default: dflt: { const char *ep = classend(ms, p); if (!singlematch(ms, s, p, ep)) { if (*ep == '*' || *ep == '?' || *ep == '-') { p = ep + 1; goto init; } else s = NULL; } else { switch (*ep) { case '?': { const char *res; if ((res = match(ms, s + 1, ep + 1)) != NULL) s = res; else { p = ep + 1; goto init; } break; } case '+': s++; case '*': s = max_expand(ms, s, p, ep); break; case '-': s = min_expand(ms, s, p, ep); break; default: s++; p = ep; goto init; } } break; } } } ms->matchdepth++; return s; } static const char *lmemfind (const char *s1, size_t l1, const char *s2, size_t l2) { if (l2 == 0) return s1; else if (l2 > l1) return NULL; else { const char *init; l2--; l1 = l1-l2; while (l1 > 0 && (init = (const char *)memchr(s1, *s2, l1)) != NULL) { init++; if (memcmp(init, s2+1, l2) == 0) return init-1; else { l1 -= init-s1; s1 = init; } } return NULL; } } static size_t get_onecapture (MatchState *ms, int i, const char *s, const char *e, const char **cap) { if (i >= ms->level) { if (l_unlikely(i != 0)) luaL_error(ms->L, "invalid capture index %%%d", i + 1); *cap = s; return e - s; } else { ptrdiff_t capl = ms->capture[i].len; *cap = ms->capture[i].init; if (l_unlikely(capl == CAP_UNFINISHED)) luaL_error(ms->L, "unfinished capture"); else if (capl == CAP_POSITION) lua_pushinteger(ms->L, (ms->capture[i].init - ms->src_init) + 1); return capl; } } static void push_onecapture (MatchState *ms, int i, const char *s, const char *e) { const char *cap; ptrdiff_t l = get_onecapture(ms, i, s, e, &cap); if (l != CAP_POSITION) lua_pushlstring(ms->L, cap, l); } static int push_captures (MatchState *ms, const char *s, const char *e) { int i; int nlevels = (ms->level == 0 && s) ? 1 : ms->level; luaL_checkstack(ms->L, nlevels, "too many captures"); for (i = 0; i < nlevels; i++) push_onecapture(ms, i, s, e); return nlevels; } static int nospecials (const char *p, size_t l) { size_t upto = 0; do { if (strpbrk(p + upto, SPECIALS)) return 0; upto += strlen(p + upto) + 1; } while (upto <= l); return 1; } static void prepstate (MatchState *ms, lua_State *L, const char *s, size_t ls, const char *p, size_t lp) { ms->L = L; ms->matchdepth = MAXCCALLS; ms->src_init = s; ms->src_end = s + ls; ms->p_end = p + lp; } static void reprepstate (MatchState *ms) { ms->level = 0; lua_assert(ms->matchdepth == MAXCCALLS); } static int str_find_aux (lua_State *L, int find) { size_t ls, lp; const char *s = luaL_checklstring(L, 1, &ls); const char *p = luaL_checklstring(L, 2, &lp); size_t init = posrelatI(luaL_optinteger(L, 3, 1), ls) - 1; if (init > ls) { luaL_pushfail(L); return 1; } if (find && (lua_toboolean(L, 4) || nospecials(p, lp))) { const char *s2 = lmemfind(s + init, ls - init, p, lp); if (s2) { lua_pushinteger(L, (s2 - s) + 1); lua_pushinteger(L, (s2 - s) + lp); return 2; } } else { MatchState ms; const char *s1 = s + init; int anchor = (*p == '^'); if (anchor) { p++; lp--; } prepstate(&ms, L, s, ls, p, lp); do { const char *res; reprepstate(&ms); if ((res=match(&ms, s1, p)) != NULL) { if (find) { lua_pushinteger(L, (s1 - s) + 1); lua_pushinteger(L, res - s); return push_captures(&ms, NULL, 0) + 2; } else return push_captures(&ms, s1, res); } } while (s1++ < ms.src_end && !anchor); } luaL_pushfail(L); return 1; } static int str_find (lua_State *L) { return str_find_aux(L, 1); } static int str_match (lua_State *L) { return str_find_aux(L, 0); } typedef struct GMatchState { const char *src; const char *p; const char *lastmatch; MatchState ms; } GMatchState; static int gmatch_aux (lua_State *L) { GMatchState *gm = (GMatchState *)lua_touserdata(L, lua_upvalueindex(3)); const char *src; gm->ms.L = L; for (src = gm->src; src <= gm->ms.src_end; src++) { const char *e; reprepstate(&gm->ms); if ((e = match(&gm->ms, src, gm->p)) != NULL && e != gm->lastmatch) { gm->src = gm->lastmatch = e; return push_captures(&gm->ms, src, e); } } return 0; } static int gmatch (lua_State *L) { size_t ls, lp; const char *s = luaL_checklstring(L, 1, &ls); const char *p = luaL_checklstring(L, 2, &lp); size_t init = posrelatI(luaL_optinteger(L, 3, 1), ls) - 1; GMatchState *gm; lua_settop(L, 2); gm = (GMatchState *)lua_newuserdatauv(L, sizeof(GMatchState), 0); if (init > ls) init = ls + 1; prepstate(&gm->ms, L, s, ls, p, lp); gm->src = s + init; gm->p = p; gm->lastmatch = NULL; lua_pushcclosure(L, gmatch_aux, 3); return 1; } static void add_s (MatchState *ms, luaL_Buffer *b, const char *s, const char *e) { size_t l; lua_State *L = ms->L; const char *news = lua_tolstring(L, 3, &l); const char *p; while ((p = (char *)memchr(news, L_ESC, l)) != NULL) { luaL_addlstring(b, news, p - news); p++; if (*p == L_ESC) luaL_addchar(b, *p); else if (*p == '0') luaL_addlstring(b, s, e - s); else if (isdigit(uchar(*p))) { const char *cap; ptrdiff_t resl = get_onecapture(ms, *p - '1', s, e, &cap); if (resl == CAP_POSITION) luaL_addvalue(b); else luaL_addlstring(b, cap, resl); } else luaL_error(L, "invalid use of '%c' in replacement string", L_ESC); l -= p + 1 - news; news = p + 1; } luaL_addlstring(b, news, l); } static int add_value (MatchState *ms, luaL_Buffer *b, const char *s, const char *e, int tr) { lua_State *L = ms->L; switch (tr) { case LUA_TFUNCTION: { int n; lua_pushvalue(L, 3); n = push_captures(ms, s, e); lua_call(L, n, 1); break; } case LUA_TTABLE: { push_onecapture(ms, 0, s, e); lua_gettable(L, 3); break; } default: { add_s(ms, b, s, e); return 1; } } if (!lua_toboolean(L, -1)) { lua_pop(L, 1); luaL_addlstring(b, s, e - s); return 0; } else if (l_unlikely(!lua_isstring(L, -1))) return luaL_error(L, "invalid replacement value (a %s)", luaL_typename(L, -1)); else { luaL_addvalue(b); return 1; } } static int str_gsub (lua_State *L) { size_t srcl, lp; const char *src = luaL_checklstring(L, 1, &srcl); const char *p = luaL_checklstring(L, 2, &lp); const char *lastmatch = NULL; int tr = lua_type(L, 3); lua_Integer max_s = luaL_optinteger(L, 4, srcl + 1); int anchor = (*p == '^'); lua_Integer n = 0; int changed = 0; MatchState ms; luaL_Buffer b; luaL_argexpected(L, tr == LUA_TNUMBER || tr == LUA_TSTRING || tr == LUA_TFUNCTION || tr == LUA_TTABLE, 3, "string/function/table"); luaL_buffinit(L, &b); if (anchor) { p++; lp--; } prepstate(&ms, L, src, srcl, p, lp); while (n < max_s) { const char *e; reprepstate(&ms); if ((e = match(&ms, src, p)) != NULL && e != lastmatch) { n++; changed = add_value(&ms, &b, src, e, tr) | changed; src = lastmatch = e; } else if (src < ms.src_end) luaL_addchar(&b, *src++); else break; if (anchor) break; } if (!changed) lua_pushvalue(L, 1); else { luaL_addlstring(&b, src, ms.src_end-src); luaL_pushresult(&b); } lua_pushinteger(L, n); return 2; } #if !defined(lua_number2strx) #define SIZELENMOD (sizeof(LUA_NUMBER_FRMLEN)/sizeof(char)) #define L_NBFD ((l_floatatt(MANT_DIG) - 1)%4 + 1) static lua_Number adddigit (char *buff, int n, lua_Number x) { lua_Number dd = l_mathop(floor)(x); int d = (int)dd; buff[n] = (d < 10 ? d + '0' : d - 10 + 'a'); return x - dd; } static int num2straux (char *buff, int sz, lua_Number x) { if (x != x || x == (lua_Number)HUGE_VAL || x == -(lua_Number)HUGE_VAL) return l_sprintf(buff, sz, LUA_NUMBER_FMT, (LUAI_UACNUMBER)x); else if (x == 0) { return l_sprintf(buff, sz, LUA_NUMBER_FMT "x0p+0", (LUAI_UACNUMBER)x); } else { int e; lua_Number m = l_mathop(frexp)(x, &e); int n = 0; if (m < 0) { buff[n++] = '-'; m = -m; } buff[n++] = '0'; buff[n++] = 'x'; m = adddigit(buff, n++, m * (1 << L_NBFD)); e -= L_NBFD; if (m > 0) { buff[n++] = lua_getlocaledecpoint(); do { m = adddigit(buff, n++, m * 16); } while (m > 0); } n += l_sprintf(buff + n, sz - n, "p%+d", e); lua_assert(n < sz); return n; } } static int lua_number2strx (lua_State *L, char *buff, int sz, const char *fmt, lua_Number x) { int n = num2straux(buff, sz, x); if (fmt[SIZELENMOD] == 'A') { int i; for (i = 0; i < n; i++) buff[i] = toupper(uchar(buff[i])); } else if (l_unlikely(fmt[SIZELENMOD] != 'a')) return luaL_error(L, "modifiers for format '%%a'/'%%A' not implemented"); return n; } #endif #define MAX_ITEMF (110 + l_floatatt(MAX_10_EXP)) #define MAX_ITEM 120 #if !defined(L_FMTFLAGSF) #define L_FMTFLAGSF "-+#0 " #define L_FMTFLAGSX "-#0" #define L_FMTFLAGSI "-+0 " #define L_FMTFLAGSU "-0" #define L_FMTFLAGSC "-" #endif #define MAX_FORMAT 32 static void addquoted (luaL_Buffer *b, const char *s, size_t len) { luaL_addchar(b, '"'); while (len--) { if (*s == '"' || *s == '\\' || *s == '\n') { luaL_addchar(b, '\\'); luaL_addchar(b, *s); } else if (iscntrl(uchar(*s))) { char buff[10]; if (!isdigit(uchar(*(s+1)))) l_sprintf(buff, sizeof(buff), "\\%d", (int)uchar(*s)); else l_sprintf(buff, sizeof(buff), "\\%03d", (int)uchar(*s)); luaL_addstring(b, buff); } else luaL_addchar(b, *s); s++; } luaL_addchar(b, '"'); } static int quotefloat (lua_State *L, char *buff, lua_Number n) { const char *s; if (n == (lua_Number)HUGE_VAL) s = "1e9999"; else if (n == -(lua_Number)HUGE_VAL) s = "-1e9999"; else if (n != n) s = "(0/0)"; else { int nb = lua_number2strx(L, buff, MAX_ITEM, "%" LUA_NUMBER_FRMLEN "a", n); if (memchr(buff, '.', nb) == NULL) { char point = lua_getlocaledecpoint(); char *ppoint = (char *)memchr(buff, point, nb); if (ppoint) *ppoint = '.'; } return nb; } return l_sprintf(buff, MAX_ITEM, "%s", s); } static void addliteral (lua_State *L, luaL_Buffer *b, int arg) { switch (lua_type(L, arg)) { case LUA_TSTRING: { size_t len; const char *s = lua_tolstring(L, arg, &len); addquoted(b, s, len); break; } case LUA_TNUMBER: { char *buff = luaL_prepbuffsize(b, MAX_ITEM); int nb; if (!lua_isinteger(L, arg)) nb = quotefloat(L, buff, lua_tonumber(L, arg)); else { lua_Integer n = lua_tointeger(L, arg); const char *format = (n == LUA_MININTEGER) ? "0x%" LUA_INTEGER_FRMLEN "x" : LUA_INTEGER_FMT; nb = l_sprintf(buff, MAX_ITEM, format, (LUAI_UACINT)n); } luaL_addsize(b, nb); break; } case LUA_TNIL: case LUA_TBOOLEAN: { luaL_tolstring(L, arg, NULL); luaL_addvalue(b); break; } default: { luaL_argerror(L, arg, "value has no literal form"); } } } static const char *get2digits (const char *s) { if (isdigit(uchar(*s))) { s++; if (isdigit(uchar(*s))) s++; } return s; } static void checkformat (lua_State *L, const char *form, const char *flags, int precision) { const char *spec = form + 1; spec += strspn(spec, flags); if (*spec != '0') { spec = get2digits(spec); if (*spec == '.' && precision) { spec++; spec = get2digits(spec); } } if (!isalpha(uchar(*spec))) luaL_error(L, "invalid conversion specification: '%s'", form); } static const char *getformat (lua_State *L, const char *strfrmt, char *form) { size_t len = strspn(strfrmt, L_FMTFLAGSF "123456789."); len++; if (len >= MAX_FORMAT - 10) luaL_error(L, "invalid format (too long)"); *(form++) = '%'; memcpy(form, strfrmt, len * sizeof(char)); *(form + len) = '\0'; return strfrmt + len - 1; } static void addlenmod (char *form, const char *lenmod) { size_t l = strlen(form); size_t lm = strlen(lenmod); char spec = form[l - 1]; strcpy(form + l - 1, lenmod); form[l + lm - 1] = spec; form[l + lm] = '\0'; } static int str_format (lua_State *L) { int top = lua_gettop(L); int arg = 1; size_t sfl; const char *strfrmt = luaL_checklstring(L, arg, &sfl); const char *strfrmt_end = strfrmt+sfl; const char *flags; luaL_Buffer b; luaL_buffinit(L, &b); while (strfrmt < strfrmt_end) { if (*strfrmt != L_ESC) luaL_addchar(&b, *strfrmt++); else if (*++strfrmt == L_ESC) luaL_addchar(&b, *strfrmt++); else { char form[MAX_FORMAT]; int maxitem = MAX_ITEM; char *buff = luaL_prepbuffsize(&b, maxitem); int nb = 0; if (++arg > top) return luaL_argerror(L, arg, "no value"); strfrmt = getformat(L, strfrmt, form); switch (*strfrmt++) { case 'c': { checkformat(L, form, L_FMTFLAGSC, 0); nb = l_sprintf(buff, maxitem, form, (int)luaL_checkinteger(L, arg)); break; } case 'd': case 'i': flags = L_FMTFLAGSI; goto intcase; case 'u': flags = L_FMTFLAGSU; goto intcase; case 'o': case 'x': case 'X': flags = L_FMTFLAGSX; intcase: { lua_Integer n = luaL_checkinteger(L, arg); checkformat(L, form, flags, 1); addlenmod(form, LUA_INTEGER_FRMLEN); nb = l_sprintf(buff, maxitem, form, (LUAI_UACINT)n); break; } case 'a': case 'A': checkformat(L, form, L_FMTFLAGSF, 1); addlenmod(form, LUA_NUMBER_FRMLEN); nb = lua_number2strx(L, buff, maxitem, form, luaL_checknumber(L, arg)); break; case 'f': maxitem = MAX_ITEMF; buff = luaL_prepbuffsize(&b, maxitem); case 'e': case 'E': case 'g': case 'G': { lua_Number n = luaL_checknumber(L, arg); checkformat(L, form, L_FMTFLAGSF, 1); addlenmod(form, LUA_NUMBER_FRMLEN); nb = l_sprintf(buff, maxitem, form, (LUAI_UACNUMBER)n); break; } case 'p': { const void *p = lua_topointer(L, arg); checkformat(L, form, L_FMTFLAGSC, 0); if (p == NULL) { p = "(null)"; form[strlen(form) - 1] = 's'; } nb = l_sprintf(buff, maxitem, form, p); break; } case 'q': { if (form[2] != '\0') return luaL_error(L, "specifier '%%q' cannot have modifiers"); addliteral(L, &b, arg); break; } case 's': { size_t l; const char *s = luaL_tolstring(L, arg, &l); if (form[2] == '\0') luaL_addvalue(&b); else { luaL_argcheck(L, l == strlen(s), arg, "string contains zeros"); checkformat(L, form, L_FMTFLAGSC, 1); if (strchr(form, '.') == NULL && l >= 100) { luaL_addvalue(&b); } else { nb = l_sprintf(buff, maxitem, form, s); lua_pop(L, 1); } } break; } default: { return luaL_error(L, "invalid conversion '%s' to 'format'", form); } } lua_assert(nb < maxitem); luaL_addsize(&b, nb); } } luaL_pushresult(&b); return 1; } #if !defined(LUAL_PACKPADBYTE) #define LUAL_PACKPADBYTE 0x00 #endif #define MAXINTSIZE 16 #define NB CHAR_BIT #define MC ((1 << NB) - 1) #define SZINT ((int)sizeof(lua_Integer)) static const union { int dummy; char little; } nativeendian = {1}; typedef struct Header { lua_State *L; int islittle; int maxalign; } Header; typedef enum KOption { Kint, Kuint, Kfloat, Knumber, Kdouble, Kchar, Kstring, Kzstr, Kpadding, Kpaddalign, Knop } KOption; static int digit (int c) { return '0' <= c && c <= '9'; } static int getnum (const char **fmt, int df) { if (!digit(**fmt)) return df; else { int a = 0; do { a = a*10 + (*((*fmt)++) - '0'); } while (digit(**fmt) && a <= ((int)MAXSIZE - 9)/10); return a; } } static int getnumlimit (Header *h, const char **fmt, int df) { int sz = getnum(fmt, df); if (l_unlikely(sz > MAXINTSIZE || sz <= 0)) return luaL_error(h->L, "integral size (%d) out of limits [1,%d]", sz, MAXINTSIZE); return sz; } static void initheader (lua_State *L, Header *h) { h->L = L; h->islittle = nativeendian.little; h->maxalign = 1; } static KOption getoption (Header *h, const char **fmt, int *size) { struct cD { char c; union { LUAI_MAXALIGN; } u; }; int opt = *((*fmt)++); *size = 0; switch (opt) { case 'b': *size = sizeof(char); return Kint; case 'B': *size = sizeof(char); return Kuint; case 'h': *size = sizeof(short); return Kint; case 'H': *size = sizeof(short); return Kuint; case 'l': *size = sizeof(long); return Kint; case 'L': *size = sizeof(long); return Kuint; case 'j': *size = sizeof(lua_Integer); return Kint; case 'J': *size = sizeof(lua_Integer); return Kuint; case 'T': *size = sizeof(size_t); return Kuint; case 'f': *size = sizeof(float); return Kfloat; case 'n': *size = sizeof(lua_Number); return Knumber; case 'd': *size = sizeof(double); return Kdouble; case 'i': *size = getnumlimit(h, fmt, sizeof(int)); return Kint; case 'I': *size = getnumlimit(h, fmt, sizeof(int)); return Kuint; case 's': *size = getnumlimit(h, fmt, sizeof(size_t)); return Kstring; case 'c': *size = getnum(fmt, -1); if (l_unlikely(*size == -1)) luaL_error(h->L, "missing size for format option 'c'"); return Kchar; case 'z': return Kzstr; case 'x': *size = 1; return Kpadding; case 'X': return Kpaddalign; case ' ': break; case '<': h->islittle = 1; break; case '>': h->islittle = 0; break; case '=': h->islittle = nativeendian.little; break; case '!': { const int maxalign = offsetof(struct cD, u); h->maxalign = getnumlimit(h, fmt, maxalign); break; } default: luaL_error(h->L, "invalid format option '%c'", opt); } return Knop; } static KOption getdetails (Header *h, size_t totalsize, const char **fmt, int *psize, int *ntoalign) { KOption opt = getoption(h, fmt, psize); int align = *psize; if (opt == Kpaddalign) { if (**fmt == '\0' || getoption(h, fmt, &align) == Kchar || align == 0) luaL_argerror(h->L, 1, "invalid next option for option 'X'"); } if (align <= 1 || opt == Kchar) *ntoalign = 0; else { if (align > h->maxalign) align = h->maxalign; if (l_unlikely((align & (align - 1)) != 0)) luaL_argerror(h->L, 1, "format asks for alignment not power of 2"); *ntoalign = (align - (int)(totalsize & (align - 1))) & (align - 1); } return opt; } static void packint (luaL_Buffer *b, lua_Unsigned n, int islittle, int size, int neg) { char *buff = luaL_prepbuffsize(b, size); int i; buff[islittle ? 0 : size - 1] = (char)(n & MC); for (i = 1; i < size; i++) { n >>= NB; buff[islittle ? i : size - 1 - i] = (char)(n & MC); } if (neg && size > SZINT) { for (i = SZINT; i < size; i++) buff[islittle ? i : size - 1 - i] = (char)MC; } luaL_addsize(b, size); } static void copywithendian (char *dest, const char *src, int size, int islittle) { if (islittle == nativeendian.little) memcpy(dest, src, size); else { dest += size - 1; while (size-- != 0) *(dest--) = *(src++); } } static int str_pack (lua_State *L) { luaL_Buffer b; Header h; const char *fmt = luaL_checkstring(L, 1); int arg = 1; size_t totalsize = 0; initheader(L, &h); lua_pushnil(L); luaL_buffinit(L, &b); while (*fmt != '\0') { int size, ntoalign; KOption opt = getdetails(&h, totalsize, &fmt, &size, &ntoalign); totalsize += ntoalign + size; while (ntoalign-- > 0) luaL_addchar(&b, LUAL_PACKPADBYTE); arg++; switch (opt) { case Kint: { lua_Integer n = luaL_checkinteger(L, arg); if (size < SZINT) { lua_Integer lim = (lua_Integer)1 << ((size * NB) - 1); luaL_argcheck(L, -lim <= n && n < lim, arg, "integer overflow"); } packint(&b, (lua_Unsigned)n, h.islittle, size, (n < 0)); break; } case Kuint: { lua_Integer n = luaL_checkinteger(L, arg); if (size < SZINT) luaL_argcheck(L, (lua_Unsigned)n < ((lua_Unsigned)1 << (size * NB)), arg, "unsigned overflow"); packint(&b, (lua_Unsigned)n, h.islittle, size, 0); break; } case Kfloat: { float f = (float)luaL_checknumber(L, arg); char *buff = luaL_prepbuffsize(&b, sizeof(f)); copywithendian(buff, (char *)&f, sizeof(f), h.islittle); luaL_addsize(&b, size); break; } case Knumber: { lua_Number f = luaL_checknumber(L, arg); char *buff = luaL_prepbuffsize(&b, sizeof(f)); copywithendian(buff, (char *)&f, sizeof(f), h.islittle); luaL_addsize(&b, size); break; } case Kdouble: { double f = (double)luaL_checknumber(L, arg); char *buff = luaL_prepbuffsize(&b, sizeof(f)); copywithendian(buff, (char *)&f, sizeof(f), h.islittle); luaL_addsize(&b, size); break; } case Kchar: { size_t len; const char *s = luaL_checklstring(L, arg, &len); luaL_argcheck(L, len <= (size_t)size, arg, "string longer than given size"); luaL_addlstring(&b, s, len); while (len++ < (size_t)size) luaL_addchar(&b, LUAL_PACKPADBYTE); break; } case Kstring: { size_t len; const char *s = luaL_checklstring(L, arg, &len); luaL_argcheck(L, size >= (int)sizeof(size_t) || len < ((size_t)1 << (size * NB)), arg, "string length does not fit in given size"); packint(&b, (lua_Unsigned)len, h.islittle, size, 0); luaL_addlstring(&b, s, len); totalsize += len; break; } case Kzstr: { size_t len; const char *s = luaL_checklstring(L, arg, &len); luaL_argcheck(L, strlen(s) == len, arg, "string contains zeros"); luaL_addlstring(&b, s, len); luaL_addchar(&b, '\0'); totalsize += len + 1; break; } case Kpadding: luaL_addchar(&b, LUAL_PACKPADBYTE); case Kpaddalign: case Knop: arg--; break; } } luaL_pushresult(&b); return 1; } static int str_packsize (lua_State *L) { Header h; const char *fmt = luaL_checkstring(L, 1); size_t totalsize = 0; initheader(L, &h); while (*fmt != '\0') { int size, ntoalign; KOption opt = getdetails(&h, totalsize, &fmt, &size, &ntoalign); luaL_argcheck(L, opt != Kstring && opt != Kzstr, 1, "variable-length format"); size += ntoalign; luaL_argcheck(L, totalsize <= MAXSIZE - size, 1, "format result too large"); totalsize += size; } lua_pushinteger(L, (lua_Integer)totalsize); return 1; } static lua_Integer unpackint (lua_State *L, const char *str, int islittle, int size, int issigned) { lua_Unsigned res = 0; int i; int limit = (size <= SZINT) ? size : SZINT; for (i = limit - 1; i >= 0; i--) { res <<= NB; res |= (lua_Unsigned)(unsigned char)str[islittle ? i : size - 1 - i]; } if (size < SZINT) { if (issigned) { lua_Unsigned mask = (lua_Unsigned)1 << (size*NB - 1); res = ((res ^ mask) - mask); } } else if (size > SZINT) { int mask = (!issigned || (lua_Integer)res >= 0) ? 0 : MC; for (i = limit; i < size; i++) { if (l_unlikely((unsigned char)str[islittle ? i : size - 1 - i] != mask)) luaL_error(L, "%d-byte integer does not fit into Lua Integer", size); } } return (lua_Integer)res; } static int str_unpack (lua_State *L) { Header h; const char *fmt = luaL_checkstring(L, 1); size_t ld; const char *data = luaL_checklstring(L, 2, &ld); size_t pos = posrelatI(luaL_optinteger(L, 3, 1), ld) - 1; int n = 0; luaL_argcheck(L, pos <= ld, 3, "initial position out of string"); initheader(L, &h); while (*fmt != '\0') { int size, ntoalign; KOption opt = getdetails(&h, pos, &fmt, &size, &ntoalign); luaL_argcheck(L, (size_t)ntoalign + size <= ld - pos, 2, "data string too short"); pos += ntoalign; luaL_checkstack(L, 2, "too many results"); n++; switch (opt) { case Kint: case Kuint: { lua_Integer res = unpackint(L, data + pos, h.islittle, size, (opt == Kint)); lua_pushinteger(L, res); break; } case Kfloat: { float f; copywithendian((char *)&f, data + pos, sizeof(f), h.islittle); lua_pushnumber(L, (lua_Number)f); break; } case Knumber: { lua_Number f; copywithendian((char *)&f, data + pos, sizeof(f), h.islittle); lua_pushnumber(L, f); break; } case Kdouble: { double f; copywithendian((char *)&f, data + pos, sizeof(f), h.islittle); lua_pushnumber(L, (lua_Number)f); break; } case Kchar: { lua_pushlstring(L, data + pos, size); break; } case Kstring: { size_t len = (size_t)unpackint(L, data + pos, h.islittle, size, 0); luaL_argcheck(L, len <= ld - pos - size, 2, "data string too short"); lua_pushlstring(L, data + pos + size, len); pos += len; break; } case Kzstr: { size_t len = strlen(data + pos); luaL_argcheck(L, pos + len < ld, 2, "unfinished string for format 'z'"); lua_pushlstring(L, data + pos, len); pos += len + 1; break; } case Kpaddalign: case Kpadding: case Knop: n--; break; } pos += size; } lua_pushinteger(L, pos + 1); return n + 1; } static const luaL_Reg strlib[] = { {"byte", str_byte}, {"char", str_char}, {"dump", str_dump}, {"find", str_find}, {"format", str_format}, {"gmatch", gmatch}, {"gsub", str_gsub}, {"len", str_len}, {"lower", str_lower}, {"match", str_match}, {"rep", str_rep}, {"reverse", str_reverse}, {"sub", str_sub}, {"upper", str_upper}, {"pack", str_pack}, {"packsize", str_packsize}, {"unpack", str_unpack}, {NULL, NULL} }; static void createmetatable (lua_State *L) { luaL_newlibtable(L, stringmetamethods); luaL_setfuncs(L, stringmetamethods, 0); lua_pushliteral(L, "carview.php?tsp="); lua_pushvalue(L, -2); lua_setmetatable(L, -2); lua_pop(L, 1); lua_pushvalue(L, -2); lua_setfield(L, -2, "__index"); lua_pop(L, 1); } LUAMOD_API int luaopen_string (lua_State *L) { luaL_newlib(L, strlib); createmetatable(L); return 1; } //path: src/imports/../dependencies/lua/ltablib.c #define ltablib_c #define LUA_LIB #include #include #include #define TAB_R 1 #define TAB_W 2 #define TAB_L 4 #define TAB_RW (TAB_R | TAB_W) #define aux_getn(L,n,w) (checktab(L, n, (w) | TAB_L), luaL_len(L, n)) static int checkfield (lua_State *L, const char *key, int n) { lua_pushstring(L, key); return (lua_rawget(L, -n) != LUA_TNIL); } static void checktab (lua_State *L, int arg, int what) { if (lua_type(L, arg) != LUA_TTABLE) { int n = 1; if (lua_getmetatable(L, arg) && (!(what & TAB_R) || checkfield(L, "__index", ++n)) && (!(what & TAB_W) || checkfield(L, "__newindex", ++n)) && (!(what & TAB_L) || checkfield(L, "__len", ++n))) { lua_pop(L, n); } else luaL_checktype(L, arg, LUA_TTABLE); } } static int tcreate (lua_State *L) { lua_Unsigned sizeseq = (lua_Unsigned)luaL_checkinteger(L, 1); lua_Unsigned sizerest = (lua_Unsigned)luaL_optinteger(L, 2, 0); luaL_argcheck(L, sizeseq <= UINT_MAX, 1, "out of range"); luaL_argcheck(L, sizerest <= UINT_MAX, 2, "out of range"); lua_createtable(L, (unsigned)sizeseq, (unsigned)sizerest); return 1; } static int tinsert (lua_State *L) { lua_Integer pos; lua_Integer e = aux_getn(L, 1, TAB_RW); e = luaL_intop(+, e, 1); switch (lua_gettop(L)) { case 2: { pos = e; break; } case 3: { lua_Integer i; pos = luaL_checkinteger(L, 2); luaL_argcheck(L, (lua_Unsigned)pos - 1u < (lua_Unsigned)e, 2, "position out of bounds"); for (i = e; i > pos; i--) { lua_geti(L, 1, i - 1); lua_seti(L, 1, i); } break; } default: { return luaL_error(L, "wrong number of arguments to 'insert'"); } } lua_seti(L, 1, pos); return 0; } static int tremove (lua_State *L) { lua_Integer size = aux_getn(L, 1, TAB_RW); lua_Integer pos = luaL_optinteger(L, 2, size); if (pos != size) luaL_argcheck(L, (lua_Unsigned)pos - 1u <= (lua_Unsigned)size, 2, "position out of bounds"); lua_geti(L, 1, pos); for ( ; pos < size; pos++) { lua_geti(L, 1, pos + 1); lua_seti(L, 1, pos); } lua_pushnil(L); lua_seti(L, 1, pos); return 1; } static int tmove (lua_State *L) { lua_Integer f = luaL_checkinteger(L, 2); lua_Integer e = luaL_checkinteger(L, 3); lua_Integer t = luaL_checkinteger(L, 4); int tt = !lua_isnoneornil(L, 5) ? 5 : 1; checktab(L, 1, TAB_R); checktab(L, tt, TAB_W); if (e >= f) { lua_Integer n, i; luaL_argcheck(L, f > 0 || e < LUA_MAXINTEGER + f, 3, "too many elements to move"); n = e - f + 1; luaL_argcheck(L, t <= LUA_MAXINTEGER - n + 1, 4, "destination wrap around"); if (t > e || t <= f || (tt != 1 && !lua_compare(L, 1, tt, LUA_OPEQ))) { for (i = 0; i < n; i++) { lua_geti(L, 1, f + i); lua_seti(L, tt, t + i); } } else { for (i = n - 1; i >= 0; i--) { lua_geti(L, 1, f + i); lua_seti(L, tt, t + i); } } } lua_pushvalue(L, tt); return 1; } static void addfield (lua_State *L, luaL_Buffer *b, lua_Integer i) { lua_geti(L, 1, i); if (l_unlikely(!lua_isstring(L, -1))) luaL_error(L, "invalid value (%s) at index %I in table for 'concat'", luaL_typename(L, -1), (LUAI_UACINT)i); luaL_addvalue(b); } static int tconcat (lua_State *L) { luaL_Buffer b; lua_Integer last = aux_getn(L, 1, TAB_R); size_t lsep; const char *sep = luaL_optlstring(L, 2, "carview.php?tsp=", &lsep); lua_Integer i = luaL_optinteger(L, 3, 1); last = luaL_optinteger(L, 4, last); luaL_buffinit(L, &b); for (; i < last; i++) { addfield(L, &b, i); luaL_addlstring(&b, sep, lsep); } if (i == last) addfield(L, &b, i); luaL_pushresult(&b); return 1; } static int tpack (lua_State *L) { int i; int n = lua_gettop(L); lua_createtable(L, n, 1); lua_insert(L, 1); for (i = n; i >= 1; i--) lua_seti(L, 1, i); lua_pushinteger(L, n); lua_setfield(L, 1, "n"); return 1; } static int tunpack (lua_State *L) { lua_Unsigned n; lua_Integer i = luaL_optinteger(L, 2, 1); lua_Integer e = luaL_opt(L, luaL_checkinteger, 3, luaL_len(L, 1)); if (i > e) return 0; n = (lua_Unsigned)e - i; if (l_unlikely(n >= (unsigned int)INT_MAX || !lua_checkstack(L, (int)(++n)))) return luaL_error(L, "too many results to unpack"); for (; i < e; i++) { lua_geti(L, 1, i); } lua_geti(L, 1, e); return (int)n; } typedef unsigned int IdxT; #if !defined(l_randomizePivot) #define l_randomizePivot(L) luaL_makeseed(L) #endif #define RANLIMIT 100u static void set2 (lua_State *L, IdxT i, IdxT j) { lua_seti(L, 1, i); lua_seti(L, 1, j); } static int sort_comp (lua_State *L, int a, int b) { if (lua_isnil(L, 2)) return lua_compare(L, a, b, LUA_OPLT); else { int res; lua_pushvalue(L, 2); lua_pushvalue(L, a-1); lua_pushvalue(L, b-2); lua_call(L, 2, 1); res = lua_toboolean(L, -1); lua_pop(L, 1); return res; } } static IdxT partition (lua_State *L, IdxT lo, IdxT up) { IdxT i = lo; IdxT j = up - 1; for (;;) { while ((void)lua_geti(L, 1, ++i), sort_comp(L, -1, -2)) { if (l_unlikely(i == up - 1)) luaL_error(L, "invalid order function for sorting"); lua_pop(L, 1); } while ((void)lua_geti(L, 1, --j), sort_comp(L, -3, -1)) { if (l_unlikely(j < i)) luaL_error(L, "invalid order function for sorting"); lua_pop(L, 1); } if (j < i) { lua_pop(L, 1); set2(L, up - 1, i); return i; } set2(L, i, j); } } static IdxT choosePivot (IdxT lo, IdxT up, unsigned int rnd) { IdxT r4 = (up - lo) / 4; IdxT p = (rnd ^ lo ^ up) % (r4 * 2) + (lo + r4); lua_assert(lo + r4 <= p && p <= up - r4); return p; } static void auxsort (lua_State *L, IdxT lo, IdxT up, unsigned rnd) { while (lo < up) { IdxT p; IdxT n; lua_geti(L, 1, lo); lua_geti(L, 1, up); if (sort_comp(L, -1, -2)) set2(L, lo, up); else lua_pop(L, 2); if (up - lo == 1) return; if (up - lo < RANLIMIT || rnd == 0) p = (lo + up)/2; else p = choosePivot(lo, up, rnd); lua_geti(L, 1, p); lua_geti(L, 1, lo); if (sort_comp(L, -2, -1)) set2(L, p, lo); else { lua_pop(L, 1); lua_geti(L, 1, up); if (sort_comp(L, -1, -2)) set2(L, p, up); else lua_pop(L, 2); } if (up - lo == 2) return; lua_geti(L, 1, p); lua_pushvalue(L, -1); lua_geti(L, 1, up - 1); set2(L, p, up - 1); p = partition(L, lo, up); if (p - lo < up - p) { auxsort(L, lo, p - 1, rnd); n = p - lo; lo = p + 1; } else { auxsort(L, p + 1, up, rnd); n = up - p; up = p - 1; } if ((up - lo) / 128 > n) rnd = l_randomizePivot(L); } } static int sort (lua_State *L) { lua_Integer n = aux_getn(L, 1, TAB_RW); if (n > 1) { luaL_argcheck(L, n < INT_MAX, 1, "array too big"); if (!lua_isnoneornil(L, 2)) luaL_checktype(L, 2, LUA_TFUNCTION); lua_settop(L, 2); auxsort(L, 1, (IdxT)n, 0); } return 0; } static const luaL_Reg tab_funcs[] = { {"concat", tconcat}, {"create", tcreate}, {"insert", tinsert}, {"pack", tpack}, {"unpack", tunpack}, {"remove", tremove}, {"move", tmove}, {"sort", sort}, {NULL, NULL} }; LUAMOD_API int luaopen_table (lua_State *L) { luaL_newlib(L, tab_funcs); return 1; } //path: src/imports/../dependencies/lua/lutf8lib.c #define lutf8lib_c #define LUA_LIB #include #include #include #include #define MAXUNICODE 0x10FFFFu #define MAXUTF 0x7FFFFFFFu #define MSGInvalid "invalid UTF-8 code" #if (UINT_MAX >> 30) >= 1 typedef unsigned int utfint; #else typedef unsigned long utfint; #endif #define iscont(c) (((c) & 0xC0) == 0x80) #define iscontp(p) iscont(*(p)) static lua_Integer u_posrelat (lua_Integer pos, size_t len) { if (pos >= 0) return pos; else if (0u - (size_t)pos > len) return 0; else return (lua_Integer)len + pos + 1; } static const char *utf8_decode (const char *s, utfint *val, int strict) { static const utfint limits[] = {~(utfint)0, 0x80, 0x800, 0x10000u, 0x200000u, 0x4000000u}; unsigned int c = (unsigned char)s[0]; utfint res = 0; if (c < 0x80) res = c; else { int count = 0; for (; c & 0x40; c <<= 1) { unsigned int cc = (unsigned char)s[++count]; if (!iscont(cc)) return NULL; res = (res << 6) | (cc & 0x3F); } res |= ((utfint)(c & 0x7F) << (count * 5)); if (count > 5 || res > MAXUTF || res < limits[count]) return NULL; s += count; } if (strict) { if (res > MAXUNICODE || (0xD800u <= res && res <= 0xDFFFu)) return NULL; } if (val) *val = res; return s + 1; } static int utflen (lua_State *L) { lua_Integer n = 0; size_t len; const char *s = luaL_checklstring(L, 1, &len); lua_Integer posi = u_posrelat(luaL_optinteger(L, 2, 1), len); lua_Integer posj = u_posrelat(luaL_optinteger(L, 3, -1), len); int lax = lua_toboolean(L, 4); luaL_argcheck(L, 1 <= posi && --posi <= (lua_Integer)len, 2, "initial position out of bounds"); luaL_argcheck(L, --posj < (lua_Integer)len, 3, "final position out of bounds"); while (posi <= posj) { const char *s1 = utf8_decode(s + posi, NULL, !lax); if (s1 == NULL) { luaL_pushfail(L); lua_pushinteger(L, posi + 1); return 2; } posi = s1 - s; n++; } lua_pushinteger(L, n); return 1; } static int codepoint (lua_State *L) { size_t len; const char *s = luaL_checklstring(L, 1, &len); lua_Integer posi = u_posrelat(luaL_optinteger(L, 2, 1), len); lua_Integer pose = u_posrelat(luaL_optinteger(L, 3, posi), len); int lax = lua_toboolean(L, 4); int n; const char *se; luaL_argcheck(L, posi >= 1, 2, "out of bounds"); luaL_argcheck(L, pose <= (lua_Integer)len, 3, "out of bounds"); if (posi > pose) return 0; if (pose - posi >= INT_MAX) return luaL_error(L, "string slice too long"); n = (int)(pose - posi) + 1; luaL_checkstack(L, n, "string slice too long"); n = 0; se = s + pose; for (s += posi - 1; s < se;) { utfint code; s = utf8_decode(s, &code, !lax); if (s == NULL) return luaL_error(L, MSGInvalid); lua_pushinteger(L, code); n++; } return n; } static void pushutfchar (lua_State *L, int arg) { lua_Unsigned code = (lua_Unsigned)luaL_checkinteger(L, arg); luaL_argcheck(L, code <= MAXUTF, arg, "value out of range"); lua_pushfstring(L, "%U", (long)code); } static int utfchar (lua_State *L) { int n = lua_gettop(L); if (n == 1) pushutfchar(L, 1); else { int i; luaL_Buffer b; luaL_buffinit(L, &b); for (i = 1; i <= n; i++) { pushutfchar(L, i); luaL_addvalue(&b); } luaL_pushresult(&b); } return 1; } static int byteoffset (lua_State *L) { size_t len; const char *s = luaL_checklstring(L, 1, &len); lua_Integer n = luaL_checkinteger(L, 2); lua_Integer posi = (n >= 0) ? 1 : len + 1; posi = u_posrelat(luaL_optinteger(L, 3, posi), len); luaL_argcheck(L, 1 <= posi && --posi <= (lua_Integer)len, 3, "position out of bounds"); if (n == 0) { while (posi > 0 && iscontp(s + posi)) posi--; } else { if (iscontp(s + posi)) return luaL_error(L, "initial position is a continuation byte"); if (n < 0) { while (n < 0 && posi > 0) { do { posi--; } while (posi > 0 && iscontp(s + posi)); n++; } } else { n--; while (n > 0 && posi < (lua_Integer)len) { do { posi++; } while (iscontp(s + posi)); n--; } } } if (n == 0) lua_pushinteger(L, posi + 1); else luaL_pushfail(L); return 1; } static int iter_aux (lua_State *L, int strict) { size_t len; const char *s = luaL_checklstring(L, 1, &len); lua_Unsigned n = (lua_Unsigned)lua_tointeger(L, 2); if (n < len) { while (iscontp(s + n)) n++; } if (n >= len) return 0; else { utfint code; const char *next = utf8_decode(s + n, &code, strict); if (next == NULL || iscontp(next)) return luaL_error(L, MSGInvalid); lua_pushinteger(L, n + 1); lua_pushinteger(L, code); return 2; } } static int iter_auxstrict (lua_State *L) { return iter_aux(L, 1); } static int iter_auxlax (lua_State *L) { return iter_aux(L, 0); } static int iter_codes (lua_State *L) { int lax = lua_toboolean(L, 2); const char *s = luaL_checkstring(L, 1); luaL_argcheck(L, !iscontp(s), 1, MSGInvalid); lua_pushcfunction(L, lax ? iter_auxlax : iter_auxstrict); lua_pushvalue(L, 1); lua_pushinteger(L, 0); return 3; } #define UTF8PATT "[\0-\x7F\xC2-\xFD][\x80-\xBF]*" static const luaL_Reg funcs[] = { {"offset", byteoffset}, {"codepoint", codepoint}, {"char", utfchar}, {"len", utflen}, {"codes", iter_codes}, {"charpattern", NULL}, {NULL, NULL} }; LUAMOD_API int luaopen_utf8 (lua_State *L) { luaL_newlib(L, funcs); lua_pushlstring(L, UTF8PATT, sizeof(UTF8PATT)/sizeof(char) - 1); lua_setfield(L, -2, "charpattern"); return 1; } //path: src/imports/../dependencies/lua/linit.c #define linit_c #define LUA_LIB #include static const luaL_Reg stdlibs[] = { {LUA_GNAME, luaopen_base}, {LUA_LOADLIBNAME, luaopen_package}, {LUA_COLIBNAME, luaopen_coroutine}, {LUA_DBLIBNAME, luaopen_debug}, {LUA_IOLIBNAME, luaopen_io}, {LUA_MATHLIBNAME, luaopen_math}, {LUA_OSLIBNAME, luaopen_os}, {LUA_STRLIBNAME, luaopen_string}, {LUA_TABLIBNAME, luaopen_table}, {LUA_UTF8LIBNAME, luaopen_utf8}, {NULL, NULL} }; LUALIB_API void luaL_openselectedlibs (lua_State *L, int load, int preload) { int mask; const luaL_Reg *lib; luaL_getsubtable(L, LUA_REGISTRYINDEX, LUA_PRELOAD_TABLE); for (lib = stdlibs, mask = 1; lib->name != NULL; lib++, mask <<= 1) { if (load & mask) { luaL_requiref(L, lib->name, lib->func, 1); lua_pop(L, 1); } else if (preload & mask) { lua_pushcfunction(L, lib->func); lua_setfield(L, -2, lib->name); } } lua_assert((mask >> 1) == LUA_UTF8LIBK); lua_pop(L, 1); } #endif #ifdef MAKE_LUAC //path: src/imports/../dependencies/lua/luac.c #define luac_c #define LUA_CORE #include #include #include #include #include //path: src/imports/../dependencies/lua/lopnames.h #if !defined(lopnames_h) #define lopnames_h #include static const char *const opnames[] = { "MOVE", "LOADI", "LOADF", "LOADK", "LOADKX", "LOADFALSE", "LFALSESKIP", "LOADTRUE", "LOADNIL", "GETUPVAL", "SETUPVAL", "GETTABUP", "GETTABLE", "GETI", "GETFIELD", "SETTABUP", "SETTABLE", "SETI", "SETFIELD", "NEWTABLE", "SELF", "ADDI", "ADDK", "SUBK", "MULK", "MODK", "POWK", "DIVK", "IDIVK", "BANDK", "BORK", "BXORK", "SHRI", "SHLI", "ADD", "SUB", "MUL", "MOD", "POW", "DIV", "IDIV", "BAND", "BOR", "BXOR", "SHL", "SHR", "MMBIN", "MMBINI", "MMBINK", "UNM", "BNOT", "NOT", "LEN", "CONCAT", "CLOSE", "TBC", "JMP", "EQ", "LT", "LE", "EQK", "EQI", "LTI", "LEI", "GTI", "GEI", "TEST", "TESTSET", "CALL", "TAILCALL", "RETURN", "RETURN0", "RETURN1", "FORLOOP", "FORPREP", "TFORPREP", "TFORCALL", "TFORLOOP", "SETLIST", "CLOSURE", "VARARG", "VARARGPREP", "EXTRAARG", NULL }; #endif static void PrintFunction(const Proto* f, int full); #define luaU_print PrintFunction #define PROGNAME "luac" #define OUTPUT PROGNAME ".out" static int listing=0; static int dumping=1; static int stripping=0; static char Output[]={ OUTPUT }; static const char* output=Output; static const char* progname=PROGNAME; static TString **tmname; static void fatal(const char* message) { fprintf(stderr,"%s: %s\n",progname,message); exit(EXIT_FAILURE); } static void cannot(const char* what) { fprintf(stderr,"%s: cannot %s %s: %s\n",progname,what,output,strerror(errno)); exit(EXIT_FAILURE); } static void usage(const char* message) { if (*message=='-') fprintf(stderr,"%s: unrecognized option '%s'\n",progname,message); else fprintf(stderr,"%s: %s\n",progname,message); fprintf(stderr, "usage: %s [options] [filenames]\n" "Available options are:\n" " -l list (use -l -l for full listing)\n" " -o name output to file 'name' (default is \"%s\")\n" " -p parse only\n" " -s strip debug information\n" " -v show version information\n" " -- stop handling options\n" " - stop handling options and process stdin\n" ,progname,Output); exit(EXIT_FAILURE); } #define IS(s) (strcmp(argv[i],s)==0) static int doargs(int argc, char* argv[]) { int i; int version=0; if (argv[0]!=NULL && *argv[0]!=0) progname=argv[0]; for (i=1; itop.p+(i))) static const Proto* combine(lua_State* L, int n) { if (n==1) return toproto(L,-1); else { Proto* f; int i=n; if (lua_load(L,reader,&i,"=(" PROGNAME ")",NULL)!=LUA_OK) fatal(lua_tostring(L,-1)); f=toproto(L,-1); for (i=0; ip[i]=toproto(L,i-n-1); if (f->p[i]->sizeupvalues>0) f->p[i]->upvalues[0].instack=0; } return f; } } static int writer(lua_State* L, const void* p, size_t size, void* u) { UNUSED(L); return (fwrite(p,size,1,(FILE*)u)!=1) && (size!=0); } static int pmain(lua_State* L) { int argc=(int)lua_tointeger(L,1); char** argv=(char**)lua_touserdata(L,2); const Proto* f; int i; tmname=G(L)->tmname; if (!lua_checkstack(L,argc)) fatal("too many input files"); for (i=0; i1); if (dumping) { FILE* D= (output==NULL) ? stdout : fopen(output,"wb"); if (D==NULL) cannot("open"); lua_lock(L); luaU_dump(L,f,writer,D,stripping); lua_unlock(L); if (ferror(D)) cannot("write"); if (fclose(D)) cannot("close"); } return 0; } int main(int argc, char* argv[]) { lua_State* L; int i=doargs(argc,argv); argc-=i; argv+=i; if (argc<=0) usage("no input files given"); L=luaL_newstate(); if (L==NULL) fatal("cannot create state: not enough memory"); lua_pushcfunction(L,&pmain); lua_pushinteger(L,argc); lua_pushlightuserdata(L,argv); if (lua_pcall(L,2,0,0)!=LUA_OK) fatal(lua_tostring(L,-1)); lua_close(L); return EXIT_SUCCESS; } #define UPVALNAME(x) ((f->upvalues[x].name) ? getstr(f->upvalues[x].name) : "-") #define VOID(p) ((const void*)(p)) #define eventname(i) (getstr(tmname[i])) static void PrintString(const TString* ts) { const char* s=getstr(ts); size_t i,n=tsslen(ts); printf("\"carview.php?tsp="); for (i=0; ik[i]; switch (ttypetag(o)) { case LUA_VNIL: printf("nil"); break; case LUA_VFALSE: printf("false"); break; case LUA_VTRUE: printf("true"); break; case LUA_VNUMFLT: { char buff[100]; sprintf(buff,LUA_NUMBER_FMT,fltvalue(o)); printf("%s",buff); if (buff[strspn(buff,"-0123456789")]=='\0') printf(".0"); break; } case LUA_VNUMINT: printf(LUA_INTEGER_FMT,ivalue(o)); break; case LUA_VSHRSTR: case LUA_VLNGSTR: PrintString(tsvalue(o)); break; default: printf("?%d",ttypetag(o)); break; } } #define COMMENT "\t; " #define EXTRAARG GETARG_Ax(code[pc+1]) #define EXTRAARGC (EXTRAARG*(MAXARG_C+1)) #define ISK (isk ? "k" : "carview.php?tsp=") static void PrintCode(const Proto* f) { const Instruction* code=f->code; int pc,n=f->sizecode; for (pc=0; pc0) printf("[%d]\t",line); else printf("[-]\t"); printf("%-9s\t",opnames[o]); switch (o) { case OP_MOVE: printf("%d %d",a,b); break; case OP_LOADI: printf("%d %d",a,sbx); break; case OP_LOADF: printf("%d %d",a,sbx); break; case OP_LOADK: printf("%d %d",a,bx); printf(COMMENT); PrintConstant(f,bx); break; case OP_LOADKX: printf("%d",a); printf(COMMENT); PrintConstant(f,EXTRAARG); break; case OP_LOADFALSE: printf("%d",a); break; case OP_LFALSESKIP: printf("%d",a); break; case OP_LOADTRUE: printf("%d",a); break; case OP_LOADNIL: printf("%d %d",a,b); printf(COMMENT "%d out",b+1); break; case OP_GETUPVAL: printf("%d %d",a,b); printf(COMMENT "%s",UPVALNAME(b)); break; case OP_SETUPVAL: printf("%d %d",a,b); printf(COMMENT "%s",UPVALNAME(b)); break; case OP_GETTABUP: printf("%d %d %d",a,b,c); printf(COMMENT "%s",UPVALNAME(b)); printf(" "); PrintConstant(f,c); break; case OP_GETTABLE: printf("%d %d %d",a,b,c); break; case OP_GETI: printf("%d %d %d",a,b,c); break; case OP_GETFIELD: printf("%d %d %d",a,b,c); printf(COMMENT); PrintConstant(f,c); break; case OP_SETTABUP: printf("%d %d %d%s",a,b,c,ISK); printf(COMMENT "%s",UPVALNAME(a)); printf(" "); PrintConstant(f,b); if (isk) { printf(" "); PrintConstant(f,c); } break; case OP_SETTABLE: printf("%d %d %d%s",a,b,c,ISK); if (isk) { printf(COMMENT); PrintConstant(f,c); } break; case OP_SETI: printf("%d %d %d%s",a,b,c,ISK); if (isk) { printf(COMMENT); PrintConstant(f,c); } break; case OP_SETFIELD: printf("%d %d %d%s",a,b,c,ISK); printf(COMMENT); PrintConstant(f,b); if (isk) { printf(" "); PrintConstant(f,c); } break; case OP_NEWTABLE: printf("%d %d %d",a,b,c); printf(COMMENT "%d",c+EXTRAARGC); break; case OP_SELF: printf("%d %d %d%s",a,b,c,ISK); if (isk) { printf(COMMENT); PrintConstant(f,c); } break; case OP_ADDI: printf("%d %d %d",a,b,sc); break; case OP_ADDK: printf("%d %d %d",a,b,c); printf(COMMENT); PrintConstant(f,c); break; case OP_SUBK: printf("%d %d %d",a,b,c); printf(COMMENT); PrintConstant(f,c); break; case OP_MULK: printf("%d %d %d",a,b,c); printf(COMMENT); PrintConstant(f,c); break; case OP_MODK: printf("%d %d %d",a,b,c); printf(COMMENT); PrintConstant(f,c); break; case OP_POWK: printf("%d %d %d",a,b,c); printf(COMMENT); PrintConstant(f,c); break; case OP_DIVK: printf("%d %d %d",a,b,c); printf(COMMENT); PrintConstant(f,c); break; case OP_IDIVK: printf("%d %d %d",a,b,c); printf(COMMENT); PrintConstant(f,c); break; case OP_BANDK: printf("%d %d %d",a,b,c); printf(COMMENT); PrintConstant(f,c); break; case OP_BORK: printf("%d %d %d",a,b,c); printf(COMMENT); PrintConstant(f,c); break; case OP_BXORK: printf("%d %d %d",a,b,c); printf(COMMENT); PrintConstant(f,c); break; case OP_SHRI: printf("%d %d %d",a,b,sc); break; case OP_SHLI: printf("%d %d %d",a,b,sc); break; case OP_ADD: printf("%d %d %d",a,b,c); break; case OP_SUB: printf("%d %d %d",a,b,c); break; case OP_MUL: printf("%d %d %d",a,b,c); break; case OP_MOD: printf("%d %d %d",a,b,c); break; case OP_POW: printf("%d %d %d",a,b,c); break; case OP_DIV: printf("%d %d %d",a,b,c); break; case OP_IDIV: printf("%d %d %d",a,b,c); break; case OP_BAND: printf("%d %d %d",a,b,c); break; case OP_BOR: printf("%d %d %d",a,b,c); break; case OP_BXOR: printf("%d %d %d",a,b,c); break; case OP_SHL: printf("%d %d %d",a,b,c); break; case OP_SHR: printf("%d %d %d",a,b,c); break; case OP_MMBIN: printf("%d %d %d",a,b,c); printf(COMMENT "%s",eventname(c)); break; case OP_MMBINI: printf("%d %d %d %d",a,sb,c,isk); printf(COMMENT "%s",eventname(c)); if (isk) printf(" flip"); break; case OP_MMBINK: printf("%d %d %d %d",a,b,c,isk); printf(COMMENT "%s ",eventname(c)); PrintConstant(f,b); if (isk) printf(" flip"); break; case OP_UNM: printf("%d %d",a,b); break; case OP_BNOT: printf("%d %d",a,b); break; case OP_NOT: printf("%d %d",a,b); break; case OP_LEN: printf("%d %d",a,b); break; case OP_CONCAT: printf("%d %d",a,b); break; case OP_CLOSE: printf("%d",a); break; case OP_TBC: printf("%d",a); break; case OP_JMP: printf("%d",GETARG_sJ(i)); printf(COMMENT "to %d",GETARG_sJ(i)+pc+2); break; case OP_EQ: printf("%d %d %d",a,b,isk); break; case OP_LT: printf("%d %d %d",a,b,isk); break; case OP_LE: printf("%d %d %d",a,b,isk); break; case OP_EQK: printf("%d %d %d",a,b,isk); printf(COMMENT); PrintConstant(f,b); break; case OP_EQI: printf("%d %d %d",a,sb,isk); break; case OP_LTI: printf("%d %d %d",a,sb,isk); break; case OP_LEI: printf("%d %d %d",a,sb,isk); break; case OP_GTI: printf("%d %d %d",a,sb,isk); break; case OP_GEI: printf("%d %d %d",a,sb,isk); break; case OP_TEST: printf("%d %d",a,isk); break; case OP_TESTSET: printf("%d %d %d",a,b,isk); break; case OP_CALL: printf("%d %d %d",a,b,c); printf(COMMENT); if (b==0) printf("all in "); else printf("%d in ",b-1); if (c==0) printf("all out"); else printf("%d out",c-1); break; case OP_TAILCALL: printf("%d %d %d%s",a,b,c,ISK); printf(COMMENT "%d in",b-1); break; case OP_RETURN: printf("%d %d %d%s",a,b,c,ISK); printf(COMMENT); if (b==0) printf("all out"); else printf("%d out",b-1); break; case OP_RETURN0: break; case OP_RETURN1: printf("%d",a); break; case OP_FORLOOP: printf("%d %d",a,bx); printf(COMMENT "to %d",pc-bx+2); break; case OP_FORPREP: printf("%d %d",a,bx); printf(COMMENT "exit to %d",pc+bx+3); break; case OP_TFORPREP: printf("%d %d",a,bx); printf(COMMENT "to %d",pc+bx+2); break; case OP_TFORCALL: printf("%d %d",a,c); break; case OP_TFORLOOP: printf("%d %d",a,bx); printf(COMMENT "to %d",pc-bx+2); break; case OP_SETLIST: printf("%d %d %d",a,b,c); if (isk) printf(COMMENT "%d",c+EXTRAARGC); break; case OP_CLOSURE: printf("%d %d",a,bx); printf(COMMENT "%p",VOID(f->p[bx])); break; case OP_VARARG: printf("%d %d",a,c); printf(COMMENT); if (c==0) printf("all out"); else printf("%d out",c-1); break; case OP_VARARGPREP: printf("%d",a); break; case OP_EXTRAARG: printf("%d",ax); break; #if 0 default: printf("%d %d %d",a,b,c); printf(COMMENT "not handled"); break; #endif } printf("\n"); } } #define SS(x) ((x==1)?"carview.php?tsp=":"s") #define S(x) (int)(x),SS(x) static void PrintHeader(const Proto* f) { const char* s=f->source ? getstr(f->source) : "=?"; if (*s=='@' || *s=='=') s++; else if (*s==LUA_SIGNATURE[0]) s="(bstring)"; else s="(string)"; printf("\n%s <%s:%d,%d> (%d instruction%s at %p)\n", (f->linedefined==0)?"main":"function",s, f->linedefined,f->lastlinedefined, S(f->sizecode),VOID(f)); printf("%d%s param%s, %d slot%s, %d upvalue%s, ", (int)(f->numparams),f->is_vararg?"+":"carview.php?tsp=",SS(f->numparams), S(f->maxstacksize),S(f->sizeupvalues)); printf("%d local%s, %d constant%s, %d function%s\n", S(f->sizelocvars),S(f->sizek),S(f->sizep)); } static void PrintDebug(const Proto* f) { int i,n; n=f->sizek; printf("constants (%d) for %p:\n",n,VOID(f)); for (i=0; isizelocvars; printf("locals (%d) for %p:\n",n,VOID(f)); for (i=0; ilocvars[i].varname),f->locvars[i].startpc+1,f->locvars[i].endpc+1); } n=f->sizeupvalues; printf("upvalues (%d) for %p:\n",n,VOID(f)); for (i=0; iupvalues[i].instack,f->upvalues[i].idx); } } static void PrintFunction(const Proto* f, int full) { int i,n=f->sizep; PrintHeader(f); PrintCode(f); if (full) PrintDebug(f); for (i=0; ip[i],full); } #endif #endif #ifndef privateluacembed_consts #define privateluacembed_consts //path: src/imports/../constants/consts.aplication.h //mannaged by silver chain #ifndef LUA_CEMBED_INDEX_DIF #define LUA_CEMBED_INDEX_DIF 1 #endif #define PRIVATE_LUA_EMBED_FILE_EVALUATION_TYPE 1 #define PRIVATE_LUA_EMBED_STRING_EVALUATION_TYPE 2 #define LUA_CEMBED_DEFAULT_TIMEOUT 10 #define LUA_CEMBED_DEFAULT_MEMORY_LIMIT 100 #define PRIVATE_LUA_CEMBED_ONE_MB (1024 * 1024) //path: src/imports/../constants/consts.errors.h //mannaged by silver chain #define PRIVATE_LUA_CEMBED_TIMEOUT_ERROR "timeout error" #define PRIVATE_LUA_CEMBED_ARG_NOT_PROVIDED "arg %ld at function:%s not provided" #define PRIVATE_LUA_CEMBED_ARG_WRONG_TYPE "arg %d at function:%s its %s instead of %s" #define PRIVATE_LUA_CEMBED_GLOBAL_WRONG_TYPE "global variable:%s its %s instead of %s" #define PRIVATE_LUA_CEMBED_RESULT_EVALUATION_WRONG_TYPE "result evaluation its:%s instead of %s" #define PRIVATE_LUA_CEMBED_RESULT_EVALUATION_ARG_WRONG_TYPE "result evaluation of function %s at index %d its:%s instead of %s" #define PRIVATE_LUA_CEMBED_CODE_ITS_NOT_A_FUNCTION "value %s its not a function" #define PRIVATE_LUA_CEMBED_WRONG_TYPE_PROPETY "propety %s at object %s its %s instead of %s" #define PRIVATE_LUA_CEMBED_WRONG_TYPE_INDEX "index %d at object %s its %s instead of %s" #define PRIVATE_LUA_CEMBED_ELEMENT_DOES_NOT_HAVE_KEY "index %d at object %s not have a key" #define PRIVVATE_LUA_CEMBED_TIMEOUT_ERROR "timeout error" #define PRIVATE_LUA_CEMBED_LIB_PROP_WRONG_TYPE "lib prop %s its %s insteadd of %s" //path: src/imports/../constants/consts.lua_code.h //mannaged by silver chain #define PRIVATE_LUA_CEMBED_TOTAL_LIBS "private_lua_c_embed_total_running_libs" #define PRIVATE_LUA_CEMBED_STACK_LEVEL "private_lua_c_embed_stack_level" #define PRIVATE_LUA_CEMBED_EVALUATION_NAME "private_lua_c_embed_evaluation" #define PRIVATE_LUA_CEMBED_DEL_PREFIX "__gc" #define PRIVATE_LUA_CEMBED_GLOBAL_EVALUATION_CODE "%s = %s\n" #define PRIVATE_LUA_CEMBED_SELFNAME "private_lua_c_embed_self" #define PRIVATE_LUA_CEMBED_STAGE_AREA_TABLE "private_lua_c_embed_stage_area_table" #define PRIVATE_LUA_CEMBED_TABLE_RETURN "private_lua_embed_table_return" #define PRIVATE_LUA_CEMBED_MAIN_LIB_TABLE_NAME__ "private_lua_c_embed_main_lib_table_%d" #define PRIVATE_LUA_CEMBED_MAIN_LIB_SUB_TABLE "private_lua_c_embed_main_lib_table_%d_%s" #define PRIVATE_LUA_CEMBED_MAIN_META_TABLE__ "private_lua_c_embed_main_meta_table_%d" #define PRIVATE_LUA_CEMBED_ANONYMOUS_TABLE_ "private_lua_c_embed_anononymous_table_%d_%d" #define PRIVATE_LUA_CEMBED_ANONYMOUS_FUNC_TABLE_ "private_lua_c_embed_anononymous_func_table_%d_%d" #define PRIVATE_LUA_CEMBED_ARGS_ "private_lua_c_embed_args_%d_%d" #define PRIVATE_LUA_CEMBED_MULTIRETURN_ "private_lua_c_embed_multi_return_%d_%d" //path: src/imports/../constants/consts.main_callback.h //mannaged by silver chain #define PRIVATE_LUACEMBED_NO_RETURN 0 #define PRIVATE_LUACEMBED_ONE_RETURN 1 //path: src/imports/../constants/consts.responses.h //mannaged by silver chain #define PRIVATE_LUA_CEMBED_STRING_RESPONSE 1 #define PRIVATE_LUA_CEMBED_LONG_RESPONSE 2 #define PRIVATE_LUA_CEMBED_DOUBLE_RESPONSE 3 #define PRIVATE_LUA_CEMBED_BOOL_RESPONSE 4 #define PRIVATE_LUA_CEMBED_TABLE_RESPONSE 5 #define PRIVATE_LUA_CEMBED_EVALUATION 6 #define PRIVATE_LUA_CEMBED_ERROR_RESPONSE 7 #define PRIVATE_LUA_CEMBED_MULTI_RESPONSE 8 #define LUA_CEMBED_OK 0 #define LUA_CEMBED_GENERIC_ERROR (-1) //path: src/imports/../constants/consts.types.h //mannaged by silver chain #define LUA_CEMBED_NOT_FOUND LUA_TNONE #define LUA_CEMBED_STRING LUA_TSTRING #define LUA_CEMBED_NUMBER LUA_TNUMBER #define LUA_CEMBED_BOOL LUA_TBOOLEAN #define LUA_CEMBED_NIL LUA_TNIL #define LUA_CEMBED_FUNCTION LUA_TFUNCTION #define LUA_CEMBED_TABLE LUA_TTABLE #define PRIVATE_LUA_CEMBED_NOT_FOUND_STRING "not Found" #define PRIVATE_LUA_CEMBED_STRING_STRING "string" #define PRIVATE_LUA_CEMBED_NUMBER_STRING "number" #define PRIVATE_LUA_CEMBED_BOOL_STRING "boolean" #define PRIVATE_LUA_CEMBED_NIL_STRING "nil" #define PRIVATE_LUA_CEMBED_TABLE_STRING "table" #define PRIVATE_LUA_CEMBED_FUNCTION_STRING "function" #define PRIVATE_LUA_CEMBED_UNKNOW_STRING "unknow" #endif #ifndef privateluacembed_macros #define privateluacembed_macros //path: src/imports/../LuaCEmbed/macros.protection_macros.h //mannaged by silver chain #define PRIVATE_LUA_CEMBED_PROTECT_VOID \ if(!self){ \ return; \ } #define PRIVATE_LUA_CEMBED_PROTECT_NUM \ if(!self){ \ return LUA_CEMBED_GENERIC_ERROR; \ } #define PRIVATE_LUA_CEMBED_PROTECT_BOOL \ if(!self){ \ return false; \ } #define PRIVATE_LUA_CEMBED_PROTECT_NULL \ if(!self){ \ return NULL; \ } #define PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK if(lua_gettop(self->main_object->state)){lua_settop(self->main_object->state,0);} #define PRIVATE_LUA_CEMBED_CLEAR_STACK if(lua_gettop(self->state)){lua_settop(self->state,0);} //path: src/imports/../LuaCEmbed/table/macros.protection_macros.h //mannaged by silver chain #define PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID \ if(!self){ \ return; \ } #define PRIVATE_LUA_CEMBED_TABLE_PROTECT_NUM \ if(!self){ \ return LUA_CEMBED_GENERIC_ERROR; \ } #define PRIVATE_LUA_CEMBED_TABLE_PROTECT_BOOL \ if(!self){ \ return false; \ } #define PRIVATE_LUA_CEMBED_TABLE_PROTECT_NULL \ if(!self){ \ return NULL; \ } #endif #ifndef privateluacembed_types #define privateluacembed_types //path: src/imports/../LuaCEmbed/types.LuaCEmbed.h //mannaged by silver chain typedef struct LuaCEmbed{ lua_State *state; const char *current_function; bool is_lib; int total_args; char *error_msg; void (*delete_function)(struct LuaCEmbed *self); void *global_tables; void *func_tables; int lib_identifier; int stack_leve; char *main_lib_table; bool field_protection; }LuaCEmbed; int lua_cembed_timeout = -1; LuaCEmbed *global_current_lua_embed_object; //path: src/imports/../LuaCEmbedResponse/types.LuaCembedResponse.h //mannaged by silver chain typedef struct { int type; double double_val; lua_Integer int_val; bool its_string_ref; lua_Integer string_size; char *string_val; }LuaCEmbedResponse; //path: src/imports/../types.typedefs.h //mannaged by silver chain typedef lua_Integer private_lua_cembed_incremented_arg ; #endif #ifndef privateluacembed_typesB #define privateluacembed_typesB //path: src/imports/../LuaCEmbed/table/table/typesB.table.h //mannaged by silver chain typedef struct { LuaCEmbed *main_object; char *prop_name; char *global_name; void *sub_tables; long index; }LuaCEmbedTable; #endif #ifndef privateluacembed_typesC #define privateluacembed_typesC //path: src/imports/../namespace/args/typesC.args.h //mannaged by silver chain typedef struct { lua_Integer (*size)(LuaCEmbed *self); lua_Integer (*get_type)(LuaCEmbed *self,lua_Integer index); lua_Integer (*get_long)(LuaCEmbed *self, lua_Integer index); double (*get_double)(LuaCEmbed *self, lua_Integer index); bool (*get_bool)(LuaCEmbed *self, lua_Integer index); char * (*get_raw_str)(LuaCEmbed *self, lua_Integer *size, lua_Integer index); char * (*get_str)(LuaCEmbed *self, lua_Integer index); LuaCEmbedTable * (*get_table)(LuaCEmbed *self,lua_Integer index); lua_Integer (*generate_arg_clojure_evalation)(LuaCEmbed *self,lua_Integer index,const char *code,...); lua_Integer (*get_type_clojure_evalation)(LuaCEmbed *self,lua_Integer index,const char *code,...); lua_Integer (*get_long_arg_clojure_evalation)(LuaCEmbed *self,lua_Integer index,const char *code,...); double (*get_double_arg_clojure_evalation)(LuaCEmbed *self,lua_Integer index,const char *code,...); bool (*get_bool_arg_clojure_evalation)(LuaCEmbed *self,lua_Integer index,const char *code,...); char* (*get_string_arg_clojure_evalation)(LuaCEmbed *self,lua_Integer index,const char *code,...); LuaCEmbedTable* (*run_lambda)(LuaCEmbed *self, lua_Integer index, LuaCEmbedTable *args_to_call,lua_Integer total_returns); } LuaCembedArgsModule; //path: src/imports/../namespace/globals/typesC.globals.h //mannaged by silver chain typedef struct { int (*ensure_type)(LuaCEmbed *self, const char *name,int expected_type); int (*get_type)(LuaCEmbed *self,const char *name); lua_Integer (*get_long)(LuaCEmbed *self,const char *name); double (*get_double)(LuaCEmbed *self,const char *name); bool (*get_bool)(LuaCEmbed *self,const char *name); char * (*get_string)(LuaCEmbed *self,const char *name); LuaCEmbedTable* (*run_global_lambda)(LuaCEmbed *self, const char *name, LuaCEmbedTable *args_to_call, int total_returns); void (*set_table)(LuaCEmbed *self, const char *name, LuaCEmbedTable *table); void (*set_raw_string)(LuaCEmbed *self, const char *name, const char *value, long size); char * (*get_raw_string)(LuaCEmbed *self, const char *name, long *size); void (*set_string)(LuaCEmbed *self,const char *name,const char *value); void (*set_long)(LuaCEmbed *self,const char *name,lua_Integer value); void (*set_double)(LuaCEmbed *self,const char *name,double value); void (*set_bool)(LuaCEmbed *self,const char *name,bool value); LuaCEmbedTable * (*get_table)(LuaCEmbed *self, const char *name); LuaCEmbedTable * (*new_table)(LuaCEmbed *self, const char *name); }LuaCEmbedGlobalModule; //path: src/imports/../namespace/response/typesC.response.h //mannaged by silver chain typedef struct { LuaCEmbedResponse * (*send_multi_return)(LuaCEmbedTable *table); LuaCEmbedResponse * (*send_str)(const char *text); LuaCEmbedResponse * (*send_raw_string)(const char *text,lua_Integer size); LuaCEmbedResponse * (*send_str_reference)( const char *text); LuaCEmbedResponse * (*send_raw_string_reference)(const char *text,lua_Integer size); LuaCEmbedResponse * (*send_table)(LuaCEmbedTable *table); LuaCEmbedResponse * (*send_evaluation_function)(const char *function); LuaCEmbedResponse * (*send_double)(double value); LuaCEmbedResponse * (*send_bool)(bool value); LuaCEmbedResponse * (*send_long)(lua_Integer value); LuaCEmbedResponse * (*send_error)(const char *format,...); }LuaCEmbedResponseModule; //path: src/imports/../namespace/table/typesC.table.h //mannaged by silver chain typedef struct { void (*append_string)(LuaCEmbedTable *self, const char *value); void (*append_long)(LuaCEmbedTable *self, lua_Integer value); void (*append_double)(LuaCEmbedTable *self, double value); void (*append_bool)(LuaCEmbedTable *self, bool value); void (*append_table)(LuaCEmbedTable *self, LuaCEmbedTable *table); void (*set_evaluation_prop)(LuaCEmbedTable *self, const char *name, const char *code, ...); void (*append_evaluation)(LuaCEmbedTable *self, const char *code, ...); void (*insert_string_at_index)(LuaCEmbedTable *self, lua_Integer index, const char *value); void (*insert_bool_at_index)(LuaCEmbedTable *self, lua_Integer index,bool value); void (*insert_long_at_index)(LuaCEmbedTable *self, lua_Integer index,lua_Integer value); void (*insert_double_at_index)(LuaCEmbedTable *self, lua_Integer index,double value); void (*insert_table_at_index)(LuaCEmbedTable *self, lua_Integer index,LuaCEmbedTable *table); void (*set_sub_table_by_index)(LuaCEmbedTable *self, lua_Integer index,LuaCEmbedTable *sub_table); void (*set_string_by_index)(LuaCEmbedTable *self, lua_Integer index, const char *value); void (*set_raw_string_by_index)(LuaCEmbedTable *self, lua_Integer index, const char *value,lua_Integer size); void (*set_long_by_index)(LuaCEmbedTable *self, lua_Integer index, lua_Integer value); void (*set_double_by_index)(LuaCEmbedTable *self, lua_Integer index, double value); void (*set_bool_by_index)(LuaCEmbedTable *self, lua_Integer index, bool value); void (*set_evaluation_by_index)(LuaCEmbedTable *self, lua_Integer index, const char *code, ...); lua_Integer (*get_listable_size)(LuaCEmbedTable *self); LuaCEmbedTable *(*get_sub_table_by_index)(LuaCEmbedTable *self, lua_Integer index); LuaCEmbedTable *(*new_sub_table_appending)(LuaCEmbedTable *self); void (*set_method)(LuaCEmbedTable *self , const char *name, LuaCEmbedResponse *(*callback)(LuaCEmbedTable *self, LuaCEmbed *args)); void (*set_string_prop)(LuaCEmbedTable *self , const char *name, const char *value); void (*set_raw_string_prop)(LuaCEmbedTable *self , const char *name, const char *value,lua_Integer size); void (*set_long_prop)(LuaCEmbedTable *self , const char *name,lua_Integer value); void (*set_double_prop)(LuaCEmbedTable *self , const char *name, double value); void (*set_bool_prop)(LuaCEmbedTable *self , const char *name, bool value); int (*get_type_prop)(LuaCEmbedTable *self, const char *name); char* (*get_string_prop)(LuaCEmbedTable *self , const char *name); char* (*get_raw_string_prop)(LuaCEmbedTable *self, const char *name,lua_Integer *size); lua_Integer (*get_long_prop)(LuaCEmbedTable *self , const char *name); double (*get_double_prop)(LuaCEmbedTable *self , const char *name); bool (*get_bool_prop)(LuaCEmbedTable *self , const char *name); LuaCEmbedTable * (*new_anonymous_table)(LuaCEmbed *self); void (*destroy_prop)(LuaCEmbedTable *self, const char *name); LuaCEmbedTable *(*get_sub_table_prop)(LuaCEmbedTable *self, const char *name); LuaCEmbedTable *(*new_sub_table_prop)(LuaCEmbedTable *self, const char *name); void (*set_sub_table_prop)(LuaCEmbedTable *self, const char *name, LuaCEmbedTable *sub_table); char *(*get_key_by_index)(LuaCEmbedTable *self, lua_Integer index); bool (*has_key)(LuaCEmbedTable *self,lua_Integer index); lua_Integer (*get_size)(LuaCEmbedTable *self); int (*get_type_by_index)(LuaCEmbedTable *self, lua_Integer index); lua_Integer (*get_long_by_index)(LuaCEmbedTable *self, lua_Integer index); double (*get_double_by_index)(LuaCEmbedTable *self, lua_Integer index); char * (*get_string_by_index)(LuaCEmbedTable *self, lua_Integer index); char * (*get_raw_string_by_index)(LuaCEmbedTable *self, lua_Integer index, lua_Integer *size); bool (*get_bool_by_index)(LuaCEmbedTable *self, lua_Integer index); }LuaCembedTableModule; //path: src/imports/../namespace/types/typesC.types.h //mannaged by silver chain typedef struct { int NOT_FOUND; int STRING; int NUMBER; int BOOL; int NILL; int TABLE; int FUNCTION; }LuaCEmbedTypeModule; #endif #ifndef privateluacembed_typesD #define privateluacembed_typesD //path: src/imports/../namespace/LuaCEmbedNamespace/typesD.LuaCEmbedNamespace.h //mannaged by silver chain typedef struct{ LuaCEmbedTypeModule types; LuaCEmbedResponseModule response; LuaCembedArgsModule args; LuaCEmbedGlobalModule globals; LuaCembedTableModule tables; void (*clear_errors)(LuaCEmbed *self); LuaCEmbed * (*newLuaLib)(lua_State *state); void (*set_delete_function)(LuaCEmbed *self,void (*delelte_function)(struct LuaCEmbed *self)); LuaCEmbed * (*newLuaEvaluation)(); void (*load_native_libs)(LuaCEmbed *self); void (*load_lib_from_c)(LuaCEmbed *self,int (*callback)(lua_State *l),const char *name); int (*perform)(LuaCEmbed *self); int (*send_self_as_lib)(LuaCEmbed *self); int (*send_global_as_lib)(LuaCEmbed *self,const char *global_name); const char * (*convert_arg_code)(int arg_code); void (*set_memory_limit)(LuaCEmbed *self, double limit); char * (*get_error_message)(LuaCEmbed *self); bool (*has_errors)(LuaCEmbed *self); void (*set_timeout)(int seconds); int (*evaluate)(LuaCEmbed *self, const char *code, ...); char * (*get_string_evaluation)(LuaCEmbed *self,const char *code, ...); int (*get_evaluation_type)(LuaCEmbed *self,const char *code,...); long (*get_evaluation_size)(LuaCEmbed *self,const char *code,...); long long (*get_evaluation_long)(LuaCEmbed *self,const char *code,...); double (*get_evaluation_double)(LuaCEmbed *self,const char *code,...); bool (*get_evaluation_bool)(LuaCEmbed *self, const char *code,...); void (*set_long_lib_prop)(LuaCEmbed *self,const char *name,lua_Integer value); void (*set_double_lib_prop)(LuaCEmbed *self,const char *name,double value); void (*set_bool_lib_prop)(LuaCEmbed *self,const char *name,bool value); void (*set_string_lib_prop)(LuaCEmbed *self,const char *name,const char * value); void (*set_table_lib_prop)(LuaCEmbed *self,const char *name,LuaCEmbedTable *value); lua_Integer (*get_long_lib_prop)(LuaCEmbed *self,const char *name); double (*get_double_lib_prop)(LuaCEmbed *self,const char *name); bool (*get_bool_lib_prop)(LuaCEmbed *self,const char *name); char * (*get_string_lib_prop)(LuaCEmbed *self,const char *name); LuaCEmbedTable *(*get_table_lib_prop)(LuaCEmbed *self,const char *name); int (*evaluete_file)(LuaCEmbed *self, const char *file); void (*add_callback)(LuaCEmbed *self, const char *callback_name, LuaCEmbedResponse* (*callback)(LuaCEmbed *args) ); void (*add_global_callback)(LuaCEmbed *self, const char *callback_name, LuaCEmbedResponse* (*callback)(LuaCEmbed *args) ); void (*dangerous_raise_error_jumping)(LuaCEmbed *self,const char *error_msg,...); void (*dangerous_raise_self_error_jumping)(LuaCEmbed *self); void (*free)(LuaCEmbed *self); } LuaCEmbedNamespace; #endif #ifndef privateluacembed_fdeclare #define privateluacembed_fdeclare //path: src/imports/../LuaCEmbed/args/args_error/fdeclare.args_error.h //mannaged by silver chain int LuaCEmbed_ensure_arg_exist(LuaCEmbed *self, private_lua_cembed_incremented_arg index); int private_LuaCEmbed_ensure_top_stack_arg_type(LuaCEmbed *self, int index,int arg_type); //path: src/imports/../LuaCEmbed/args/basic/fdeclare.basic.h //mannaged by silver chain lua_Integer privateLuaCEmbed_put_arg_on_top(LuaCEmbed *self, lua_Integer index); lua_Integer LuaCEmbed_get_total_args(LuaCEmbed *self); lua_Integer LuaCEmbed_get_arg_type(LuaCEmbed *self,lua_Integer index); lua_Integer LuaCEmbed_get_long_arg(LuaCEmbed *self, lua_Integer index); double LuaCEmbed_get_double_arg(LuaCEmbed *self, lua_Integer index); bool LuaCEmbed_get_bool_arg(LuaCEmbed *self, lua_Integer index); char * LuaCEmbed_get_str_arg(LuaCEmbed *self, lua_Integer index); char * LuaCEmbed_get_raw_str_arg(LuaCEmbed *self,lua_Integer *size, lua_Integer index); LuaCEmbedTable * LuaCEmbed_get_arg_table(LuaCEmbed *self,lua_Integer index); LuaCEmbedTable* LuaCEmbed_run_args_lambda(LuaCEmbed *self, lua_Integer index, LuaCEmbedTable *args_to_call, lua_Integer total_returns); //path: src/imports/../LuaCEmbed/args/evaluation/fdeclare.evaluation.h //mannaged by silver chain lua_Integer private_LuaCembed_run_code_with_args(LuaCEmbed *self,lua_Integer index,const char *code,va_list args); lua_Integer privateLuaCembed_ensure_arg_evaluation_type(LuaCEmbed *self,lua_Integer index,lua_Integer expected_type); lua_Integer LuaCEmbed_get_type_clojure_evalation(LuaCEmbed *self,lua_Integer index,const char *code,...); lua_Integer LuaCEmbed_generate_arg_clojure_evalation(LuaCEmbed *self,lua_Integer index,const char *code,...); lua_Integer LuaCEmbed_get_long_arg_clojure_evalation(LuaCEmbed *self,lua_Integer index,const char *code,...); double LuaCEmbed_get_double_arg_clojure_evalation(LuaCEmbed *self,lua_Integer index,const char *code,...); bool LuaCEmbed_get_bool_arg_clojure_evalation(LuaCEmbed *self,lua_Integer index,const char *code,...); char* LuaCEmbed_get_string_arg_clojure_evalation(LuaCEmbed *self,lua_Integer index,const char *code,...); //path: src/imports/../LuaCEmbed/basic/fdeclare.basic.h //mannaged by silver chain LuaCEmbed * newLuaCEmbedEvaluation(); void LuaCEmbed_load_lib_from_c(LuaCEmbed *self,int (*callback)(lua_State *l),const char *name); void LuaCEmbed_load_native_libs(LuaCEmbed *self); void LuaCembed_set_delete_function(LuaCEmbed *self,void (*delelte_function)(struct LuaCEmbed *self)); void privateLuaCEmbd_get_field_protected(LuaCEmbed *self,const char *name); void * privateLuaCEmbed_get_current_table_array(LuaCEmbed *self); void LuaCEmbed_set_timeout(int seconds); void privata_LuaCEmbed_increment_stack_(LuaCEmbed *self); void privata_LuaCEmbed_decrement_stack(LuaCEmbed *self); void LuaCEmbed_free(LuaCEmbed *self); //path: src/imports/../LuaCEmbed/callback_handle/fdeclare.callback_handle.h //mannaged by silver chain int privateLuaCEmbed_main_callback_handler(lua_State *L); void private_LuaCEmbed_add_lib_callback(LuaCEmbed *self, const char *callback_name, LuaCEmbedResponse* (*callback)(LuaCEmbed *args),bool global_functions ); void private_LuaCEmbed_add_evaluation_callback(LuaCEmbed *self, const char *callback_name, LuaCEmbedResponse* (*callback)(LuaCEmbed *args) ); void LuaCEmbed_add_callback(LuaCEmbed *self, const char *callback_name, LuaCEmbedResponse* (*callback)(LuaCEmbed *args) ); void LuaCEmbed_add_global_callback(LuaCEmbed *self, const char *callback_name, LuaCEmbedResponse* (*callback)(LuaCEmbed *args)); //path: src/imports/../LuaCEmbed/errors/fdeclare.errors.h //mannaged by silver chain char * LuaCEmbed_get_error_message(LuaCEmbed *self); bool LuaCEmbed_has_errors(LuaCEmbed *self); void LuaCEmbed_clear_errors(LuaCEmbed *self); void privateLuaCEmbed_raise_error_not_jumping(LuaCEmbed *self, const char *error, ...); void LuaCEmbed_dangerous_raise_error_jumping(LuaCEmbed *self,const char *error_msg,...); void LuaCEmbed_dangerous_raise_self_error_jumping(LuaCEmbed *self); //path: src/imports/../LuaCEmbed/evaluation/fdeclare.evaluation.h //mannaged by silver chain #ifdef _WIN32 VOID CALLBACK TimerHandler(HWND hwnd, UINT uMsg, UINT_PTR idEvent, DWORD dwTime); #else void private_LuaCembed_handle_timeout(int signum); #endif int privateLuaCEmbed_start_func_evaluation(lua_State *state); int LuaCEmbed_evaluate(LuaCEmbed *self, const char *code, ...); int LuaCEmbed_evaluete_file(LuaCEmbed *self, const char *file); int private_LuaCEmbed_ensure_evaluation_type(LuaCEmbed *self,int type); int private_LuaCEmbed_evaluate_puting_on_top_of_stack(LuaCEmbed *self,const char *code, va_list args); char * LuaCEmbed_get_evaluation_string(LuaCEmbed *self,const char *code, ...); int LuaCEmbed_get_evaluation_type(LuaCEmbed *self,const char *code, ...); long LuaCEmbed_get_evaluation_table_size(LuaCEmbed *self,const char *code, ...); long long LuaCEmbed_get_evaluation_long(LuaCEmbed *self,const char *code, ...); double LuaCEmbed_get_evaluation_double(LuaCEmbed *self,const char *code, ...); bool LuaCEmbed_get_evaluation_bool(LuaCEmbed *self,const char *code, ...); //path: src/imports/../LuaCEmbed/globals/errors/fdeclare.errors.h //mannaged by silver chain int LuaCEmbed_ensure_global_type(LuaCEmbed *self, const char *name,int expected_type); //path: src/imports/../LuaCEmbed/globals/getters/fdeclare.getters.h //mannaged by silver chain int LuaCEmbed_get_global_type(LuaCEmbed *self,const char *name); lua_Integer LuaCEmbed_get_global_long(LuaCEmbed *self,const char *name); double LuaCEmbed_get_global_double(LuaCEmbed *self,const char *name); bool LuaCEmbed_get_global_bool(LuaCEmbed *self,const char *name); char * LuaCEmbed_get_global_string(LuaCEmbed *self,const char *name); char * LuaCEmbed_get_global_raw_string(LuaCEmbed *self,const char *name,long *size); LuaCEmbedTable * LuaCembed_new_anonymous_table(LuaCEmbed *self); LuaCEmbedTable* LuaCEmbed_run_global_lambda(LuaCEmbed *self, const char *name, LuaCEmbedTable *args_to_call, int total_returns); LuaCEmbedTable * LuaCembed_get_global_table(LuaCEmbed *self, const char *name); LuaCEmbedTable * LuaCembed_new_global_table(LuaCEmbed *self, const char *name); //path: src/imports/../LuaCEmbed/globals/setters/fdeclare.setters.h //mannaged by silver chain void LuaCEmbed_set_global_string(LuaCEmbed *self, const char *name, const char *value); void LuaCEmbed_set_global_raw_string(LuaCEmbed *self, const char *name, const char *value,long size); void LuaCEmbed_set_global_long(LuaCEmbed *self, const char *name, lua_Integer value); void LuaCEmbed_set_global_double(LuaCEmbed *self, const char *name, double value); void LuaCEmbed_set_global_bool(LuaCEmbed *self, const char *name, bool value); void LuaCEmbed_set_global_table(LuaCEmbed *self, const char *name, LuaCEmbedTable *table); //path: src/imports/../LuaCEmbed/lib_props/fdeclare.lib_props.h //mannaged by silver chain void LuaCEmbed_set_long_lib_prop(LuaCEmbed *self,const char *name,lua_Integer value); void LuaCEmbed_set_double_lib_prop(LuaCEmbed *self,const char *name,double value); void LuaCEmbed_set_bool_lib_prop(LuaCEmbed *self,const char *name,bool value); void LuaCEmbed_set_string_lib_prop(LuaCEmbed *self,const char *name,const char * value); void LuaCEmbed_set_table_lib_prop(LuaCEmbed *self,const char *name,LuaCEmbedTable *value); int private_LuaCEmbed_ensure_lib_prop_type(LuaCEmbed *self,const char *name,int expected_type);; lua_Integer LuaCEmbed_get_long_lib_prop(LuaCEmbed *self,const char *name); double LuaCEmbed_get_double_lib_prop(LuaCEmbed *self,const char *name); bool LuaCEmbed_get_bool_lib_prop(LuaCEmbed *self,const char *name); char * LuaCEmbed_get_string_lib_prop(LuaCEmbed *self,const char *name); LuaCEmbedTable *LuaCEmbed_get_table_lib_prop(LuaCEmbed *self,const char *name); //path: src/imports/../LuaCEmbed/lib_start/fdeclare.lib_start.h //mannaged by silver chain int private_LuaCemb_internal_free(lua_State *L); LuaCEmbed * newLuaCEmbedLib(lua_State *state); int LuaCembed_perform(LuaCEmbed *self); int LuaCembed_send_self_as_lib(LuaCEmbed *self); int LuaCembed_send_global_as_lib(LuaCEmbed *self,const char *global_name); //path: src/imports/../LuaCEmbed/memory/fdeclare.memory.h //mannaged by silver chain long lua_cembed_used_memory = 0; long lua_cembed_memory_limit = -1; void LuaCEmbed_set_memory_limit(LuaCEmbed *self, double limit); static void *private_LuaCembed_custom_allocator(void *ud, void *ptr, size_t osize, size_t nsize) ; //path: src/imports/../LuaCEmbed/table/table/append/fdeclare.append.h //mannaged by silver chain void LuaCEmbedTable_append_table(LuaCEmbedTable *self, LuaCEmbedTable *table); void LuaCEmbedTable_append_evaluation(LuaCEmbedTable *self, const char *code, ...); void LuaCEmbedTable_append_string(LuaCEmbedTable *self, const char *value); void LuaCEmbedTable_append_long(LuaCEmbedTable *self, lua_Integer value); void LuaCEmbedTable_append_double(LuaCEmbedTable *self, double value); void LuaCEmbedTable_append_bool(LuaCEmbedTable *self, bool value); //path: src/imports/../LuaCEmbed/table/table/basic/fdeclare.basic.h //mannaged by silver chain LuaCEmbedTable * private_newLuaCembedTable(LuaCEmbed *main_embed, const char *format, ...); int private_lua_cEmbed_unpack(LuaCEmbedTable *self,const char * previews_function); void privateLuaCEmbedTable_free(LuaCEmbedTable *self); void privateLuaCEmbedTable_free_setting_nill(LuaCEmbedTable *self); //path: src/imports/../LuaCEmbed/table/table/destroy/fdeclare.destroy.h //mannaged by silver chain void LuaCembedTable_destroy_prop(LuaCEmbedTable *self, const char *name); void LuaCEmbedTable_destroy_by_index(LuaCEmbedTable *self, long index); //path: src/imports/../LuaCEmbed/table/table/errors/fdeclare.errors.h //mannaged by silver chain int privateLuaCEmbedTable_ensure_type_with_key(LuaCEmbedTable *self, const char *name, int expected_type); int privateLuaCEmbedTable_ensure_type_with_index(LuaCEmbedTable *self, long index, int expected_type); //path: src/imports/../LuaCEmbed/table/table/getters/index/fdeclare.index.h //mannaged by silver chain char *LuaCembedTable_get_key_by_index(LuaCEmbedTable *self, lua_Integer index); bool LuaCembedTable_has_key_at_index(LuaCEmbedTable *self, lua_Integer index); lua_Integer LuaCEmbedTable_get_full_size(LuaCEmbedTable *self); lua_Integer LuaCEmbedTable_get_listable_size(LuaCEmbedTable *self); lua_Integer privateLuaCEmbedTable_convert_index(LuaCEmbedTable *self, private_lua_cembed_incremented_arg index); int LuaCEmbedTable_get_type_by_index(LuaCEmbedTable *self, lua_Integer index); lua_Integer LuaCEmbedTable_get_long_by_index(LuaCEmbedTable *self, lua_Integer index); double LuaCEmbedTable_get_double_by_index(LuaCEmbedTable *self, lua_Integer index); char * LuaCEmbedTable_get_string_by_index(LuaCEmbedTable *self, lua_Integer index); char * LuaCEmbedTable_get_raw_string_by_index(LuaCEmbedTable *self, lua_Integer index, lua_Integer *size); bool LuaCEmbedTable_get_bool_by_index(LuaCEmbedTable *self, lua_Integer index); //path: src/imports/../LuaCEmbed/table/table/getters/keys/fdeclare.keys.h //mannaged by silver chain char* LuaCembedTable_get_string_prop(LuaCEmbedTable *self, const char *name); char* LuaCembedTable_get_raw_string_prop(LuaCEmbedTable *self, const char *name,lua_Integer *size); lua_Integer LuaCembedTable_get_long_prop(LuaCEmbedTable *self, const char *name); double LuaCembedTable_get_double_prop(LuaCEmbedTable *self, const char *name); bool LuaCembedTable_get_bool_prop(LuaCEmbedTable *self, const char *name); int LuaCEmbedTable_get_type_prop(LuaCEmbedTable *self, const char *name); //path: src/imports/../LuaCEmbed/table/table/setters/index/fdeclare.index.h //mannaged by silver chain void LuaCEmbedTable_set_string_by_index(LuaCEmbedTable *self, lua_Integer index, const char *value); void LuaCEmbedTable_set_raw_string_by_index(LuaCEmbedTable *self, lua_Integer index, const char *value,lua_Integer size); void LuaCEmbedTable_set_long_by_index(LuaCEmbedTable *self, lua_Integer index, lua_Integer value); void LuaCEmbedTable_set_double_by_index(LuaCEmbedTable *self, lua_Integer index, double value); void LuaCEmbedTable_set_bool_by_index(LuaCEmbedTable *self, lua_Integer index, bool value); void LuaCEmbedTable_set_evaluation_by_index(LuaCEmbedTable *self, lua_Integer index, const char *code, ...); //path: src/imports/../LuaCEmbed/table/table/setters/insert/fdeclare.insert.h //mannaged by silver chain void private_LuaCEmbedTable_add_space(LuaCEmbedTable *self, lua_Integer formatted_index); void LuaCEmbedTable_insert_string_at_index(LuaCEmbedTable *self, lua_Integer index, const char *value); void LuaCEmbedTable_insert_bool_at_index(LuaCEmbedTable *self, lua_Integer index,bool value); void LuaCEmbedTable_insert_long_at_index(LuaCEmbedTable *self,lua_Integer index,lua_Integer value); void LuaCEmbedTable_insert_double_at_index(LuaCEmbedTable *self, lua_Integer index,double value); void LuaCEmbedTable_insert_table_at_index(LuaCEmbedTable *self, lua_Integer index,LuaCEmbedTable *table); //path: src/imports/../LuaCEmbed/table/table/setters/keys/fdeclare.keys.h //mannaged by silver chain void LuaCEmbedTable_set_method(LuaCEmbedTable *self, const char *name, LuaCEmbedResponse *(*callback)(LuaCEmbedTable *self, LuaCEmbed *args)); void LuaCEmbedTable_set_string_prop(LuaCEmbedTable *self, const char *name, const char *value); void LuaCEmbedTable_set_raw_string_prop(LuaCEmbedTable *self , const char *name, const char *value,lua_Integer size); void LuaCEmbedTable_set_long_prop(LuaCEmbedTable *self, const char *name,lua_Integer value); void LuaCEmbedTable_set_double_prop(LuaCEmbedTable *self, const char *name, double value); void LuaCEmbedTable_set_bool_prop(LuaCEmbedTable *self, const char *name, bool value); void LuaCEmbedTable_set_evaluation_prop(LuaCEmbedTable *self, const char *name, const char *code, ...); //path: src/imports/../LuaCEmbed/table/table/sub_tables/index/fdeclare.index.h //mannaged by silver chain LuaCEmbedTable *LuaCEmbedTable_new_sub_table_appending(LuaCEmbedTable *self); LuaCEmbedTable *LuaCEmbedTable_get_sub_table_by_index(LuaCEmbedTable *self, lua_Integer index); void LuaCEmbedTable_set_sub_table_by_index(LuaCEmbedTable *self, lua_Integer index,LuaCEmbedTable *sub_table); //path: src/imports/../LuaCEmbed/table/table/sub_tables/key/fdeclare.key.h //mannaged by silver chain LuaCEmbedTable *LuaCEmbedTable_new_sub_table_by_key(LuaCEmbedTable *self, const char *name); LuaCEmbedTable *LuaCEmbedTable_get_sub_table_by_key(LuaCEmbedTable *self, const char *name); void LuaCEmbedTable_set_sub_table_prop(LuaCEmbedTable *self, const char *name, LuaCEmbedTable *sub_table); //path: src/imports/../LuaCEmbed/table/table_array/fdeclare.table_array.h //mannaged by silver chain typedef struct { LuaCEmbedTable **tables; long size; }privateLuaCEmbedTableArray; privateLuaCEmbedTableArray *newprivateLuaCEmbedTableArray(); void privateLuaCEmbedTableArray_append(privateLuaCEmbedTableArray *self,LuaCEmbedTable *element); LuaCEmbedTable *privateLuaCEmbedTableArray_find_by_global_name(privateLuaCEmbedTableArray *self, const char *name); LuaCEmbedTable *privateLuaCEmbedTableArray_find_by_prop_name(privateLuaCEmbedTableArray *self, const char *name); LuaCEmbedTable *privateLuaCEmbedTableArray_find_by_internal_index(privateLuaCEmbedTableArray *self, lua_Integer internal_index); void privateLuaCEmbedTableArray_free(privateLuaCEmbedTableArray *self); //path: src/imports/../LuaCEmbedResponse/fdeclare.LuaCEmbedResponse.h //mannaged by silver chain LuaCEmbedResponse *private_LuaCEmbedReturn_raw(); LuaCEmbedResponse * LuaCEmbed_send_str(const char *text); LuaCEmbedResponse * LuaCEmbed_send_raw_string(const char *text,lua_Integer size); LuaCEmbedResponse * LuaCEmbed_send_str_reference( const char *text); LuaCEmbedResponse * LuaCEmbed_send_raw_string_reference(const char *text,lua_Integer size); LuaCEmbedResponse * LuaCEmbed_send_error(const char *format,...); LuaCEmbedResponse * LuaCEmbed_send_evaluation(const char *code); LuaCEmbedResponse * LuaCEmbed_send_double(double value); LuaCEmbedResponse * LuaCEmbed_send_bool(bool value); LuaCEmbedResponse * LuaCEmbed_send_long(lua_Integer value); void private_LuaCEmbedResponse_free(LuaCEmbedResponse *self); LuaCEmbedResponse * LuaCEmbed_send_table(LuaCEmbedTable *table); LuaCEmbedResponse * LuaCEmbed_send_multi_return(LuaCEmbedTable *table); //path: src/imports/../extra/fdeclare.extra.h //mannaged by silver chain const char * LuaCembed_convert_arg_code(int arg_code); char * private_LuaCembed_format_vaarg(const char *expresion, va_list args); char * private_LuaCembed_format(const char *expresion, ...); //path: src/imports/../namespace/LuaCEmbedNamespace/fdeclare.LuaCEmbedNamespace.h //mannaged by silver chain LuaCEmbedNamespace newLuaCEmbedNamespace(); //path: src/imports/../namespace/args/fdeclare.args.h //mannaged by silver chain LuaCembedArgsModule newLuaCembedArgsModule(); //path: src/imports/../namespace/globals/fdeclare.globals.h //mannaged by silver chain LuaCEmbedGlobalModule newLuaCEmbedGlobalModule(); //path: src/imports/../namespace/response/fdeclare.response.h //mannaged by silver chain LuaCEmbedResponseModule newLuaCEmbedResponseModule(); //path: src/imports/../namespace/table/fdeclare.table.h //mannaged by silver chain LuaCembedTableModule newLuaCembedTableModule(); //path: src/imports/../namespace/types/fdeclare.types.h //mannaged by silver chain LuaCEmbedTypeModule newLuaCEmbedTypeModule(); #endif #ifndef privateluacembed_fdefine #define privateluacembed_fdefine //path: src/imports/../LuaCEmbed/args/args_error/fdefine.args_error.c //mannaged by silver chain int LuaCEmbed_ensure_arg_exist(LuaCEmbed *self, private_lua_cembed_incremented_arg index){ PRIVATE_LUA_CEMBED_PROTECT_NUM if(index > self->total_args){ privateLuaCEmbed_raise_error_not_jumping(self, PRIVATE_LUA_CEMBED_ARG_NOT_PROVIDED,index,self->current_function); return LUA_CEMBED_GENERIC_ERROR; } return LUA_CEMBED_OK; } int private_LuaCEmbed_ensure_top_stack_arg_type(LuaCEmbed *self, int index,int arg_type) { PRIVATE_LUA_CEMBED_PROTECT_NUM int type = lua_type(self->state, -1); if (type != arg_type) { privateLuaCEmbed_raise_error_not_jumping(self, PRIVATE_LUA_CEMBED_ARG_WRONG_TYPE, index + LUA_CEMBED_INDEX_DIF, self->current_function, LuaCembed_convert_arg_code(type), LuaCembed_convert_arg_code(arg_type) ); return LUA_CEMBED_GENERIC_ERROR; } return LUA_CEMBED_OK; } //path: src/imports/../LuaCEmbed/args/basic/fdefine.basic.c //mannaged by silver chain lua_Integer privateLuaCEmbed_put_arg_on_top(LuaCEmbed *self, lua_Integer index){ PRIVATE_LUA_CEMBED_PROTECT_NUM lua_Integer formatted_index = index + LUA_CEMBED_INDEX_DIF; if(formatted_index > self->total_args){ privateLuaCEmbed_raise_error_not_jumping(self,PRIVATE_LUA_CEMBED_ARG_NOT_PROVIDED,formatted_index,self->current_function); return LUA_CEMBED_GENERIC_ERROR; } char *formated_arg = private_LuaCembed_format(PRIVATE_LUA_CEMBED_ARGS_,self->stack_leve,formatted_index-1); lua_getglobal(self->state,formated_arg); int type = lua_type(self->state,-1); if(type == LUA_CEMBED_NOT_FOUND || type == LUA_CEMBED_NIL){ privateLuaCEmbed_raise_error_not_jumping(self,PRIVATE_LUA_CEMBED_ARG_NOT_PROVIDED,formatted_index,self->current_function); free(formated_arg); return LUA_CEMBED_GENERIC_ERROR; } free(formated_arg); return LUA_OK; } lua_Integer LuaCEmbed_get_total_args(LuaCEmbed *self){ return self->total_args; } lua_Integer LuaCEmbed_get_arg_type(LuaCEmbed *self,lua_Integer index){ lua_Integer formatted_index = index + LUA_CEMBED_INDEX_DIF; if(formatted_index > self->total_args){ return LUA_CEMBED_NIL; } char *formated_arg = private_LuaCembed_format(PRIVATE_LUA_CEMBED_ARGS_,self->stack_leve,formatted_index-1); lua_getglobal(self->state,formated_arg); int type = lua_type(self->state, -1); free(formated_arg); PRIVATE_LUA_CEMBED_CLEAR_STACK return type; } lua_Integer LuaCEmbed_get_long_arg(LuaCEmbed *self, lua_Integer index){ PRIVATE_LUA_CEMBED_PROTECT_NUM if(privateLuaCEmbed_put_arg_on_top(self,index)){ PRIVATE_LUA_CEMBED_CLEAR_STACK return (lua_Integer )LUA_CEMBED_NOT_FOUND; } if(private_LuaCEmbed_ensure_top_stack_arg_type(self,index,LUA_CEMBED_NUMBER)){ PRIVATE_LUA_CEMBED_CLEAR_STACK return (lua_Integer )LUA_CEMBED_NOT_FOUND; } lua_Integer result = lua_tointeger(self->state,-1); PRIVATE_LUA_CEMBED_CLEAR_STACK return result; } double LuaCEmbed_get_double_arg(LuaCEmbed *self, lua_Integer index){ PRIVATE_LUA_CEMBED_PROTECT_NUM if(privateLuaCEmbed_put_arg_on_top(self,index)){ PRIVATE_LUA_CEMBED_CLEAR_STACK return LUA_CEMBED_NOT_FOUND; } if(private_LuaCEmbed_ensure_top_stack_arg_type(self,index,LUA_CEMBED_NUMBER)){ PRIVATE_LUA_CEMBED_CLEAR_STACK return LUA_CEMBED_NOT_FOUND; } double result = lua_tonumber(self->state,-1); PRIVATE_LUA_CEMBED_CLEAR_STACK return result; } bool LuaCEmbed_get_bool_arg(LuaCEmbed *self, lua_Integer index){ PRIVATE_LUA_CEMBED_PROTECT_BOOL if(privateLuaCEmbed_put_arg_on_top(self,index)){ PRIVATE_LUA_CEMBED_CLEAR_STACK return LUA_CEMBED_NOT_FOUND; } if(private_LuaCEmbed_ensure_top_stack_arg_type(self,index,LUA_CEMBED_BOOL)){ PRIVATE_LUA_CEMBED_CLEAR_STACK return LUA_CEMBED_NOT_FOUND; } bool result = lua_toboolean(self->state,-1); PRIVATE_LUA_CEMBED_CLEAR_STACK return result; } char * LuaCEmbed_get_str_arg(LuaCEmbed *self, lua_Integer index){ PRIVATE_LUA_CEMBED_PROTECT_NULL PRIVATE_LUA_CEMBED_CLEAR_STACK if(privateLuaCEmbed_put_arg_on_top(self,index)){ PRIVATE_LUA_CEMBED_CLEAR_STACK return NULL; } if(private_LuaCEmbed_ensure_top_stack_arg_type(self,index,LUA_CEMBED_STRING)){ return NULL; } char *result = (char*)lua_tostring(self->state,-1); PRIVATE_LUA_CEMBED_CLEAR_STACK return result; } char * LuaCEmbed_get_raw_str_arg(LuaCEmbed *self,lua_Integer *size, lua_Integer index){ PRIVATE_LUA_CEMBED_PROTECT_NULL PRIVATE_LUA_CEMBED_CLEAR_STACK if(privateLuaCEmbed_put_arg_on_top(self,index)){ PRIVATE_LUA_CEMBED_CLEAR_STACK return NULL; } if(private_LuaCEmbed_ensure_top_stack_arg_type(self,index,LUA_CEMBED_STRING)){ return NULL; } char *result = (char*)lua_tolstring(self->state,-1,(size_t*)size); PRIVATE_LUA_CEMBED_CLEAR_STACK return result; } LuaCEmbedTable * LuaCEmbed_get_arg_table(LuaCEmbed *self,lua_Integer index){ PRIVATE_LUA_CEMBED_PROTECT_NULL if(privateLuaCEmbed_put_arg_on_top(self,index)){ PRIVATE_LUA_CEMBED_CLEAR_STACK return NULL; } if(private_LuaCEmbed_ensure_top_stack_arg_type(self,index,LUA_CEMBED_TABLE)){ return NULL; } int formatted_index = index + LUA_CEMBED_INDEX_DIF; char *formated_arg = private_LuaCembed_format(PRIVATE_LUA_CEMBED_ARGS_,self->stack_leve,formatted_index-1); LuaCEmbedTable *created = LuaCembed_get_global_table(self,formated_arg); free(formated_arg); PRIVATE_LUA_CEMBED_CLEAR_STACK return created; } LuaCEmbedTable* LuaCEmbed_run_args_lambda(LuaCEmbed *self, lua_Integer index, LuaCEmbedTable *args_to_call, lua_Integer total_returns){ long formatted_index = index + LUA_CEMBED_INDEX_DIF; char *formatted_arg = private_LuaCembed_format(PRIVATE_LUA_CEMBED_ARGS_,self->stack_leve,formatted_index-1); if(privateLuaCEmbed_put_arg_on_top(self,index)){ PRIVATE_LUA_CEMBED_CLEAR_STACK free(formatted_arg); return NULL; } if(private_LuaCEmbed_ensure_top_stack_arg_type(self,index,LUA_CEMBED_FUNCTION)){ free(formatted_arg); PRIVATE_LUA_CEMBED_CLEAR_STACK return NULL; } int total_args = private_lua_cEmbed_unpack(args_to_call,formatted_arg); if(lua_pcall(self->state,total_args,total_returns,0)){ privateLuaCEmbed_raise_error_not_jumping(self, lua_tostring(self->state,-1)); free(formatted_arg); PRIVATE_LUA_CEMBED_CLEAR_STACK return NULL; } for(int i = 0; i < total_returns; i++){ char *formatted = private_LuaCembed_format(PRIVATE_LUA_CEMBED_MULTIRETURN_,self->stack_leve,i); int position = (i +1) * -1; lua_pushvalue(self->state,position); lua_setglobal(self->state,formatted); free(formatted); } LuaCEmbedTable *result = LuaCembed_new_anonymous_table(self); for(int i = 0; i < total_returns; i++){ lua_getglobal(self->state,result->global_name); lua_pushinteger(self->state,i+1); char *formatted = private_LuaCembed_format(PRIVATE_LUA_CEMBED_MULTIRETURN_,self->stack_leve,i); lua_getglobal(self->state,formatted); lua_settable(self->state,-3); free(formatted); } free(formatted_arg); PRIVATE_LUA_CEMBED_CLEAR_STACK return result; } //path: src/imports/../LuaCEmbed/args/evaluation/fdefine.evaluation.c //mannaged by silver chain lua_Integer private_LuaCembed_run_code_with_args(LuaCEmbed *self,lua_Integer index,const char *code,va_list args){ PRIVATE_LUA_CEMBED_PROTECT_NUM int formatted_index = index + LUA_CEMBED_INDEX_DIF; if(LuaCEmbed_ensure_arg_exist(self,formatted_index)){ return LUA_CEMBED_GENERIC_ERROR; } char *formated_expresion = private_LuaCembed_format_vaarg(code,args); char *buffer = private_LuaCembed_format( PRIVATE_LUA_CEMBED_GLOBAL_EVALUATION_CODE, PRIVATE_LUA_CEMBED_EVALUATION_NAME, formated_expresion ); if(LuaCEmbed_evaluate(self, buffer)){ free(formated_expresion); free(buffer); return LUA_CEMBED_GENERIC_ERROR; } free(buffer); lua_getglobal(self->state,PRIVATE_LUA_CEMBED_EVALUATION_NAME); int type = lua_type(self->state,-1); if(type != LUA_CEMBED_FUNCTION){ privateLuaCEmbed_raise_error_not_jumping(self,PRIVATE_LUA_CEMBED_CODE_ITS_NOT_A_FUNCTION,formated_expresion); free(formated_expresion); return LUA_CEMBED_GENERIC_ERROR; } free(formated_expresion); lua_getglobal(self->state,PRIVATE_LUA_CEMBED_EVALUATION_NAME); privateLuaCEmbed_put_arg_on_top(self,index); if(lua_pcall(self->state,1,1,0)){ const char *generated_error = lua_tostring(self->state,-1); privateLuaCEmbed_raise_error_not_jumping(self, generated_error); } return LUA_CEMBED_OK; } lua_Integer privateLuaCembed_ensure_arg_evaluation_type(LuaCEmbed *self,lua_Integer index,lua_Integer expected_type){ PRIVATE_LUA_CEMBED_PROTECT_NUM int actual_type = lua_type(self->state,-1); if(actual_type== expected_type){ return LUA_CEMBED_OK; } privateLuaCEmbed_raise_error_not_jumping(self, PRIVATE_LUA_CEMBED_RESULT_EVALUATION_ARG_WRONG_TYPE, self->current_function, index, LuaCembed_convert_arg_code(actual_type), LuaCembed_convert_arg_code(expected_type) ); return LUA_CEMBED_GENERIC_ERROR; } lua_Integer LuaCEmbed_get_type_clojure_evalation(LuaCEmbed *self,lua_Integer index,const char *code,...){ PRIVATE_LUA_CEMBED_PROTECT_NUM va_list args; va_start(args,code); lua_Integer possible_error = private_LuaCembed_run_code_with_args(self,index,code,args); va_end(args); if(possible_error){ return possible_error; } return lua_type(self->state,-1); } lua_Integer LuaCEmbed_generate_arg_clojure_evalation(LuaCEmbed *self,lua_Integer index,const char *code,...){ PRIVATE_LUA_CEMBED_PROTECT_NUM va_list args; va_start(args,code); int possible_error = private_LuaCembed_run_code_with_args(self,index,code,args); va_end(args); if(possible_error){ return possible_error; } return LUA_CEMBED_OK; } lua_Integer LuaCEmbed_get_long_arg_clojure_evalation(LuaCEmbed *self,lua_Integer index,const char *code,...){ PRIVATE_LUA_CEMBED_PROTECT_NUM va_list args; va_start(args,code); int possible_error = private_LuaCembed_run_code_with_args(self,index,code,args); va_end(args); if(possible_error){ return possible_error; } if(privateLuaCembed_ensure_arg_evaluation_type(self,index,LUA_CEMBED_NUMBER)){ return LUA_CEMBED_GENERIC_ERROR; } return lua_tointeger(self->state,-1); } double LuaCEmbed_get_double_arg_clojure_evalation(LuaCEmbed *self,lua_Integer index,const char *code,...){ PRIVATE_LUA_CEMBED_PROTECT_NUM va_list args; va_start(args,code); int possible_error = private_LuaCembed_run_code_with_args(self,index,code,args); va_end(args); if(possible_error){ return possible_error; } if(privateLuaCembed_ensure_arg_evaluation_type(self,index,LUA_CEMBED_NUMBER)){ return LUA_CEMBED_GENERIC_ERROR; } return (double ) lua_tonumber(self->state,-1); } bool LuaCEmbed_get_bool_arg_clojure_evalation(LuaCEmbed *self,lua_Integer index,const char *code,...){ PRIVATE_LUA_CEMBED_PROTECT_BOOL va_list args; va_start(args,code); int possible_error = private_LuaCembed_run_code_with_args(self,index,code,args); va_end(args); if(possible_error){ return possible_error; } if(privateLuaCembed_ensure_arg_evaluation_type(self,index,LUA_CEMBED_NUMBER)){ return false; } return lua_toboolean(self->state,-1); } char* LuaCEmbed_get_string_arg_clojure_evalation(LuaCEmbed *self,lua_Integer index,const char *code,...){ PRIVATE_LUA_CEMBED_PROTECT_NULL va_list args; va_start(args,code); lua_Integer possible_error = private_LuaCembed_run_code_with_args(self,index,code,args); va_end(args); if(possible_error){ return NULL; } if(privateLuaCembed_ensure_arg_evaluation_type(self,index,LUA_CEMBED_NUMBER)){ return NULL; } return (char*)lua_tostring(self->state,-1); } //path: src/imports/../LuaCEmbed/basic/fdefine.basic.c //mannaged by silver chain LuaCEmbed * newLuaCEmbedEvaluation(){ LuaCEmbed *self = (LuaCEmbed*) malloc(sizeof (LuaCEmbed)); *self = (LuaCEmbed){0}; self->state = luaL_newstate(); self->global_tables = (void*)newprivateLuaCEmbedTableArray(); return self; } void LuaCEmbed_load_lib_from_c(LuaCEmbed *self,int (*callback)(lua_State *l),const char *name){ if(LuaCEmbed_has_errors(self)){ return; } lua_pushcfunction(self->state, callback); int result = lua_pcall(self->state,0,1,0); if(result){ privateLuaCEmbed_raise_error_not_jumping(self,lua_tostring(self->state,-1)); lua_settop(self->state,0); return; } lua_setglobal(self->state,name); lua_settop(self->state,0); } void LuaCEmbed_load_native_libs(LuaCEmbed *self) { luaL_openlibs(self->state); } void LuaCembed_set_delete_function(LuaCEmbed *self,void (*delelte_function)(struct LuaCEmbed *self)){ self->delete_function = delelte_function; } void LuaCEmbed_set_timeout(int seconds){ lua_cembed_timeout = seconds; } void * privateLuaCEmbed_get_current_table_array(LuaCEmbed *self){ if(self->current_function){ return self->func_tables; } return self->global_tables; } void privata_LuaCEmbed_increment_stack_(LuaCEmbed *self){ lua_getglobal(self->state,PRIVATE_LUA_CEMBED_STACK_LEVEL); int value = 0; if(lua_type(self->state,-1) == LUA_CEMBED_NUMBER){ value = lua_tonumber(self->state,-1); } lua_Integer new_value = value+1; lua_pushinteger(self->state,new_value); lua_setglobal(self->state,PRIVATE_LUA_CEMBED_STACK_LEVEL); self->stack_leve =new_value; } void privata_LuaCEmbed_decrement_stack(LuaCEmbed *self){ lua_getglobal(self->state,PRIVATE_LUA_CEMBED_STACK_LEVEL); int value = 0; if(lua_type(self->state,-1) == LUA_CEMBED_NUMBER){ value = lua_tointeger(self->state,-1); } if(value> 0){ int new_value = value -1; lua_pushinteger(self->state,new_value); lua_setglobal(self->state,PRIVATE_LUA_CEMBED_STACK_LEVEL); self->stack_leve = new_value; } } void privateLuaCEmbd_get_field_protected(LuaCEmbed *self,const char *name){ bool old_field_proection = self->field_protection; self->field_protection = true; lua_getfield(self->state,-1,name); self->field_protection = old_field_proection; } void LuaCEmbed_free(LuaCEmbed *self){ privateLuaCEmbedTableArray_free((privateLuaCEmbedTableArray*)self->global_tables); if(!self->is_lib){ //se for do próprio lua, o lua cuidará de limpar lua_close(self->state); // Fecha o estado Lua } if(self->error_msg){ free(self->error_msg); } if(self->main_lib_table){ free(self->main_lib_table); } free(self); } //path: src/imports/../LuaCEmbed/callback_handle/fdefine.callback_handle.c //mannaged by silver chain int privateLuaCEmbed_main_callback_handler(lua_State *L){ bool is_a_method = lua_toboolean(L, lua_upvalueindex(1)); bool is_a_function = !is_a_method; LuaCEmbedResponse *possible_return = NULL; LuaCEmbed *self = (LuaCEmbed*)lua_touserdata(L,lua_upvalueindex(2)); int old_total_args = self->total_args; self->total_args = lua_gettop(self->state); privata_LuaCEmbed_increment_stack_(self); lua_getglobal(self->state,PRIVATE_LUA_CEMBED_STACK_LEVEL); self->stack_leve = (int)lua_tonumber(self->state,-1); for(int i = 0; i < self->total_args; i++){ char *formated_arg = private_LuaCembed_format(PRIVATE_LUA_CEMBED_ARGS_,self->stack_leve,i); lua_pushvalue(L,i+1); lua_setglobal(L,formated_arg); free(formated_arg); } const char *func_name = lua_tostring(L,lua_upvalueindex(3)); self->current_function = func_name; void *old_funct_tables = self->func_tables; self->func_tables = (void*)newprivateLuaCEmbedTableArray(); if(is_a_method){ LuaCEmbedResponse *(*method_callback)(LuaCEmbedTable *tb, LuaCEmbed *self); //equivalent of PRIVATE_LUA_CEMBED_SELFNAME = index[4] lua_pushvalue(L, lua_upvalueindex(4)); lua_setglobal(L,PRIVATE_LUA_CEMBED_SELFNAME); LuaCEmbedTable *table = private_newLuaCembedTable(self, PRIVATE_LUA_CEMBED_SELFNAME); method_callback = (LuaCEmbedResponse *(*)(LuaCEmbedTable *tb, LuaCEmbed *self))lua_touserdata(L, lua_upvalueindex(5)); possible_return = method_callback(table,self); privateLuaCEmbedTable_free(table); } if(is_a_function){ LuaCEmbedResponse *(*function_callback)(LuaCEmbed *self); function_callback = (LuaCEmbedResponse *(*)(LuaCEmbed *self))lua_touserdata(L, lua_upvalueindex(4)); possible_return = function_callback(self); } privateLuaCEmbedTableArray_free((privateLuaCEmbedTableArray*)self->func_tables); self->func_tables = old_funct_tables; self->total_args = old_total_args; privata_LuaCEmbed_decrement_stack(self); PRIVATE_LUA_CEMBED_CLEAR_STACK self->current_function = NULL; if(possible_return==NULL){ return PRIVATE_LUACEMBED_NO_RETURN; } if(possible_return->type == PRIVATE_LUA_CEMBED_ERROR_RESPONSE){ if(self->field_protection){ private_LuaCEmbedResponse_free(possible_return); if(self->error_msg){ free(self->error_msg); self->error_msg = NULL; } return PRIVATE_LUACEMBED_NO_RETURN; } lua_pushstring(L, possible_return->string_val); privateLuaCEmbed_raise_error_not_jumping(self,possible_return->string_val); private_LuaCEmbedResponse_free(possible_return); lua_error(L); return PRIVATE_LUACEMBED_NO_RETURN; } if(possible_return->type == PRIVATE_LUA_CEMBED_LONG_RESPONSE){ lua_pushinteger(L, possible_return->int_val); private_LuaCEmbedResponse_free(possible_return); return PRIVATE_LUACEMBED_ONE_RETURN; } if(possible_return->type == PRIVATE_LUA_CEMBED_BOOL_RESPONSE){ lua_pushboolean(L, (bool)possible_return->int_val); private_LuaCEmbedResponse_free(possible_return); return PRIVATE_LUACEMBED_ONE_RETURN; } if(possible_return->type == PRIVATE_LUA_CEMBED_DOUBLE_RESPONSE){ lua_pushnumber(L, possible_return->double_val); private_LuaCEmbedResponse_free(possible_return); return PRIVATE_LUACEMBED_ONE_RETURN; } if(possible_return->type == PRIVATE_LUA_CEMBED_STRING_RESPONSE){ lua_pushlstring(self->state,possible_return->string_val,possible_return->string_size); private_LuaCEmbedResponse_free(possible_return); return PRIVATE_LUACEMBED_ONE_RETURN; } if(possible_return->type == PRIVATE_LUA_CEMBED_TABLE_RESPONSE){ lua_getglobal(self->state, PRIVATE_LUA_CEMBED_TABLE_RETURN); lua_pushvalue(self->state,-1); private_LuaCEmbedResponse_free(possible_return); return PRIVATE_LUACEMBED_ONE_RETURN; } if(possible_return->type == PRIVATE_LUA_CEMBED_MULTI_RESPONSE){ LuaCEmbedTable *table = private_newLuaCembedTable(self, PRIVATE_LUA_CEMBED_TABLE_RETURN); int size =private_lua_cEmbed_unpack(table,NULL); private_LuaCEmbedResponse_free(possible_return); privateLuaCEmbedTable_free(table); return size; } if(possible_return->type == PRIVATE_LUA_CEMBED_EVALUATION){ char *formated_function =private_LuaCembed_format( PRIVATE_LUA_CEMBED_GLOBAL_EVALUATION_CODE, PRIVATE_LUA_CEMBED_EVALUATION_NAME, possible_return->string_val ); int error_code = LuaCEmbed_evaluate(self, formated_function); free(formated_function); if(error_code){ private_LuaCEmbedResponse_free(possible_return); return PRIVATE_LUACEMBED_NO_RETURN; } lua_getglobal(self->state, PRIVATE_LUA_CEMBED_EVALUATION_NAME); int v_type = lua_type(self->state,-1); if(v_type == LUA_CEMBED_FUNCTION){ const int TOTAL_ARGS =0; const int TOTAL_RETURNS =1; if(lua_pcall(self->state,TOTAL_ARGS,TOTAL_RETURNS,0)){ private_LuaCEmbedResponse_free(possible_return); return PRIVATE_LUACEMBED_NO_RETURN; } } lua_pushvalue(self->state,-1); private_LuaCEmbedResponse_free(possible_return); return PRIVATE_LUACEMBED_ONE_RETURN; } private_LuaCEmbedResponse_free(possible_return); return PRIVATE_LUACEMBED_NO_RETURN; } void private_LuaCEmbed_add_lib_callback(LuaCEmbed *self, const char *callback_name, LuaCEmbedResponse* (*callback)(LuaCEmbed *args),bool global_functions ){ char *main_lib_table = private_LuaCembed_format(PRIVATE_LUA_CEMBED_MAIN_LIB_TABLE_NAME__,self->lib_identifier); //get the table lua_getglobal(self->state,main_lib_table); lua_pushvalue(self->state,-1); //set the function name lua_pushstring(self->state,callback_name); //creating the clojure //creating the clojure lua_pushboolean(self->state,false);//is a method lua_pushlightuserdata(self->state,(void*)self); //self lua_pushstring(self->state,callback_name);//calback name lua_pushlightuserdata(self->state,(void*)callback);//calback lua_pushcclosure(self->state,privateLuaCEmbed_main_callback_handler,4); lua_settable(self->state,-3); if(global_functions){ //it points the function to a global function //like: callback = private_lua_c_embed_main_lib_table.callback lua_getglobal(self->state, main_lib_table); lua_getfield(self->state,-1,callback_name); lua_setglobal(self->state, callback_name); } lua_settop(self->state, 0); free(main_lib_table); } void private_LuaCEmbed_add_evaluation_callback(LuaCEmbed *self, const char *callback_name, LuaCEmbedResponse* (*callback)(LuaCEmbed *args) ){ PRIVATE_LUA_CEMBED_PROTECT_VOID //creating the clojure lua_pushboolean(self->state,false);//is a method lua_pushlightuserdata(self->state,(void*)self); //self lua_pushstring(self->state,callback_name);//calback name lua_pushlightuserdata(self->state,(void*)callback);//calback lua_pushcclosure(self->state,privateLuaCEmbed_main_callback_handler,4); lua_setglobal(self->state, callback_name); lua_settop(self->state, 0); } void LuaCEmbed_add_callback(LuaCEmbed *self, const char *callback_name, LuaCEmbedResponse* (*callback)(LuaCEmbed *args) ){ PRIVATE_LUA_CEMBED_PROTECT_VOID if(self->is_lib){ private_LuaCEmbed_add_lib_callback(self,callback_name,callback,false); return; } private_LuaCEmbed_add_evaluation_callback(self,callback_name,callback); } void LuaCEmbed_add_global_callback(LuaCEmbed *self, const char *callback_name, LuaCEmbedResponse* (*callback)(LuaCEmbed *args)){ PRIVATE_LUA_CEMBED_PROTECT_VOID if(self->is_lib){ private_LuaCEmbed_add_lib_callback(self,callback_name,callback,true); return; } private_LuaCEmbed_add_evaluation_callback(self,callback_name,callback); } //path: src/imports/../LuaCEmbed/errors/fdefine.errors.c //mannaged by silver chain char * LuaCEmbed_get_error_message(LuaCEmbed *self){ if(!self){ return NULL; } return self->error_msg; } void LuaCEmbed_clear_errors(LuaCEmbed *self){ if(!self){ return; } if(self->error_msg){ free(self->error_msg); self->error_msg = NULL; } } void privateLuaCEmbed_raise_error_not_jumping(LuaCEmbed *self, const char *error_msg, ...){ if(LuaCEmbed_has_errors(self)){ return; } va_list args; va_start(args,error_msg); self->error_msg = private_LuaCembed_format_vaarg(error_msg, args); va_end(args); } bool LuaCEmbed_has_errors(LuaCEmbed *self){ if(!self){ return true; } if(self->error_msg){ return true; } return false; } void LuaCEmbed_dangerous_raise_error_jumping(LuaCEmbed *self,const char *error_msg,...){ if(LuaCEmbed_has_errors(self)){ return; } va_list args; va_start(args,error_msg); char *error_formmated = private_LuaCembed_format_vaarg(error_msg, args); va_end(args); lua_pushstring(self->state, error_formmated); free(error_formmated); lua_error(self->state); } void LuaCEmbed_dangerous_raise_self_error_jumping(LuaCEmbed *self){ if(!LuaCEmbed_has_errors(self)){ return; } char *msg = LuaCEmbed_get_error_message(self); lua_pushstring(self->state,msg); LuaCEmbed_clear_errors(self); lua_error(self->state); } //path: src/imports/../LuaCEmbed/evaluation/fdefine.evaluation.c //mannaged by silver chain #ifdef _WIN32 VOID CALLBACK TimerHandler(HWND hwnd, UINT uMsg, UINT_PTR idEvent, DWORD dwTime) { privateLuaCEmbed_raise_error_not_jumping(global_current_lua_embed_object, PRIVATE_LUA_CEMBED_TIMEOUT_ERROR); lua_pushstring(global_current_lua_embed_object->state,PRIVVATE_LUA_CEMBED_TIMEOUT_ERROR); lua_error(global_current_lua_embed_object->state); } #else void private_LuaCembed_handle_timeout(int signum) { privateLuaCEmbed_raise_error_not_jumping(global_current_lua_embed_object, PRIVATE_LUA_CEMBED_TIMEOUT_ERROR); lua_pushstring(global_current_lua_embed_object->state,PRIVVATE_LUA_CEMBED_TIMEOUT_ERROR); lua_error(global_current_lua_embed_object->state); } #endif int privateLuaCEmbed_start_func_evaluation(lua_State *state){ int evaluation_type = lua_tointeger(state, lua_upvalueindex(1)); char *text_value = (char*)lua_touserdata(state,lua_upvalueindex(2)); LuaCEmbed *self = (LuaCEmbed*)lua_touserdata(state,lua_upvalueindex(3)); global_current_lua_embed_object = self; #ifdef _WIN32 if (lua_cembed_timeout > 0) { SetTimer(NULL, 0,lua_cembed_timeout > 0 * 1000, TimerHandler); } #else if (lua_cembed_timeout > 0) { signal(SIGALRM, private_LuaCembed_handle_timeout); alarm(lua_cembed_timeout); } #endif int error = 0; if(evaluation_type == PRIVATE_LUA_EMBED_FILE_EVALUATION_TYPE){ error =luaL_dofile(self->state,text_value); } if(evaluation_type == PRIVATE_LUA_EMBED_STRING_EVALUATION_TYPE){ error = luaL_dostring(self->state,text_value); } if(error){ privateLuaCEmbed_raise_error_not_jumping(self,lua_tostring(self->state,-1)); } lua_pushinteger(self->state,error); return 1; } int LuaCEmbed_evaluate(LuaCEmbed *self, const char *code, ...){ PRIVATE_LUA_CEMBED_PROTECT_NUM va_list args; va_start(args,code); char * formated_expresion = private_LuaCembed_format_vaarg(code,args); va_end(args); lua_pushinteger(self->state,PRIVATE_LUA_EMBED_STRING_EVALUATION_TYPE); lua_pushlightuserdata(self->state,(void*)formated_expresion); //code lua_pushlightuserdata(self->state,(void*)self); //code lua_pushcclosure(self->state,privateLuaCEmbed_start_func_evaluation,3); lua_pcall(self->state,0,1,0); int error = lua_tointeger(self->state,-1); free(formated_expresion); return error; } int LuaCEmbed_evaluete_file(LuaCEmbed *self, const char *file){ PRIVATE_LUA_CEMBED_PROTECT_NUM lua_pushinteger(self->state,PRIVATE_LUA_EMBED_FILE_EVALUATION_TYPE); lua_pushlightuserdata(self->state,(void*)file); //code lua_pushlightuserdata(self->state,(void*)self); //code lua_pushcclosure(self->state,privateLuaCEmbed_start_func_evaluation,3); lua_pcall(self->state,0,1,0); int error = lua_tointeger(self->state,-1); return error; } int private_LuaCEmbed_evaluate_puting_on_top_of_stack(LuaCEmbed *self,const char *code, va_list args){ char * formated_expresion =private_LuaCembed_format_vaarg(code,args); char * buffer =private_LuaCembed_format( PRIVATE_LUA_CEMBED_GLOBAL_EVALUATION_CODE, PRIVATE_LUA_CEMBED_EVALUATION_NAME, formated_expresion ); if(LuaCEmbed_evaluate(self, buffer)){ free(formated_expresion); free(buffer); return LUA_CEMBED_GENERIC_ERROR; } lua_getglobal(self->state,PRIVATE_LUA_CEMBED_EVALUATION_NAME); int type = lua_type(self->state,-1); if(type == LUA_CEMBED_FUNCTION){ if(lua_pcall(self->state,0,1,0)){ const char *generated_error = lua_tostring(self->state,-1); privateLuaCEmbed_raise_error_not_jumping(self, generated_error); } } free(formated_expresion); free(buffer); return LUA_CEMBED_OK; } int private_LuaCEmbed_ensure_evaluation_type(LuaCEmbed *self,int type){ int actual_type = lua_type(self->state,-1); if(actual_type== type){ return LUA_CEMBED_OK; } privateLuaCEmbed_raise_error_not_jumping(self, PRIVATE_LUA_CEMBED_RESULT_EVALUATION_WRONG_TYPE, LuaCembed_convert_arg_code(actual_type), LuaCembed_convert_arg_code(type) ); return LUA_CEMBED_GENERIC_ERROR; } char * LuaCEmbed_get_evaluation_string(LuaCEmbed *self,const char *code, ...){ PRIVATE_LUA_CEMBED_PROTECT_NULL va_list args; va_start(args,code); int possible_error = private_LuaCEmbed_evaluate_puting_on_top_of_stack(self,code,args); va_end(args); if(possible_error){ return NULL; } if(private_LuaCEmbed_ensure_evaluation_type(self,LUA_CEMBED_STRING)){ return NULL; } return (char*)lua_tostring(self->state,-1); } int LuaCEmbed_get_evaluation_type(LuaCEmbed *self,const char *code, ...){ PRIVATE_LUA_CEMBED_PROTECT_NUM va_list args; va_start(args,code); int possible_error = private_LuaCEmbed_evaluate_puting_on_top_of_stack(self,code,args); va_end(args); if(possible_error){ return LUA_CEMBED_GENERIC_ERROR; } return lua_type(self->state,-1); } long LuaCEmbed_get_evaluation_table_size(LuaCEmbed *self,const char *code, ...){ PRIVATE_LUA_CEMBED_PROTECT_NUM va_list args; va_start(args,code); int possible_error = private_LuaCEmbed_evaluate_puting_on_top_of_stack(self,code,args); va_end(args); if(possible_error){ return LUA_CEMBED_GENERIC_ERROR; } if(private_LuaCEmbed_ensure_evaluation_type(self,LUA_CEMBED_TABLE)){ return LUA_CEMBED_GENERIC_ERROR; } return (long)lua_rawlen(self->state,-1); } long long LuaCEmbed_get_evaluation_long(LuaCEmbed *self,const char *code, ...){ PRIVATE_LUA_CEMBED_PROTECT_NUM va_list args; va_start(args,code); int possible_error = private_LuaCEmbed_evaluate_puting_on_top_of_stack(self,code,args); va_end(args); if(possible_error){ return LUA_CEMBED_GENERIC_ERROR; } if(private_LuaCEmbed_ensure_evaluation_type(self,LUA_CEMBED_NUMBER)){ return LUA_CEMBED_GENERIC_ERROR; } return (long)lua_tonumber(self->state,-1); } double LuaCEmbed_get_evaluation_double(LuaCEmbed *self,const char *code, ...){ PRIVATE_LUA_CEMBED_PROTECT_NUM va_list args; va_start(args,code); int possible_error = private_LuaCEmbed_evaluate_puting_on_top_of_stack(self,code,args); va_end(args); if(possible_error){ return LUA_CEMBED_GENERIC_ERROR; } if(private_LuaCEmbed_ensure_evaluation_type(self,LUA_CEMBED_NUMBER)){ return LUA_CEMBED_GENERIC_ERROR; } return (double)lua_tonumber(self->state,-1); } bool LuaCEmbed_get_evaluation_bool(LuaCEmbed *self,const char *code, ...){ PRIVATE_LUA_CEMBED_PROTECT_BOOL va_list args; va_start(args,code); int possible_error = private_LuaCEmbed_evaluate_puting_on_top_of_stack(self,code,args); va_end(args); if(possible_error){ return LUA_CEMBED_GENERIC_ERROR; } if(private_LuaCEmbed_ensure_evaluation_type(self,LUA_CEMBED_BOOL)){ return LUA_CEMBED_GENERIC_ERROR; } return (bool)lua_toboolean(self->state,-1); } //path: src/imports/../LuaCEmbed/globals/errors/fdefine.errors.c //mannaged by silver chain int LuaCEmbed_ensure_global_type(LuaCEmbed *self, const char *name,int expected_type){ PRIVATE_LUA_CEMBED_PROTECT_NUM lua_getglobal(self->state,name); int type = lua_type(self->state,-1); if(type != expected_type){ privateLuaCEmbed_raise_error_not_jumping(self, PRIVATE_LUA_CEMBED_GLOBAL_WRONG_TYPE, name, LuaCembed_convert_arg_code(type), LuaCembed_convert_arg_code(expected_type) ); return LUA_CEMBED_GENERIC_ERROR; } return LUA_CEMBED_OK; } //path: src/imports/../LuaCEmbed/globals/getters/fdefine.getters.c //mannaged by silver chain int LuaCEmbed_get_global_type(LuaCEmbed *self,const char *name){ PRIVATE_LUA_CEMBED_PROTECT_NUM lua_getglobal(self->state, name); return lua_type(self->state,-1); } lua_Integer LuaCEmbed_get_global_long(LuaCEmbed *self,const char *name){ PRIVATE_LUA_CEMBED_PROTECT_NUM if(LuaCEmbed_ensure_global_type(self,name,LUA_CEMBED_NUMBER)){ return LUA_CEMBED_GENERIC_ERROR; } lua_getglobal(self->state, name); return lua_tointeger(self->state,-1); } double LuaCEmbed_get_global_double(LuaCEmbed *self,const char *name){ PRIVATE_LUA_CEMBED_PROTECT_NUM if(LuaCEmbed_ensure_global_type(self,name,LUA_CEMBED_NUMBER)){ return LUA_CEMBED_GENERIC_ERROR; } lua_getglobal(self->state, name); return (double )lua_tonumber(self->state,-1); } bool LuaCEmbed_get_global_bool(LuaCEmbed *self,const char *name){ PRIVATE_LUA_CEMBED_PROTECT_BOOL if(LuaCEmbed_ensure_global_type(self,name,LUA_CEMBED_BOOL)){ return LUA_CEMBED_GENERIC_ERROR; } lua_getglobal(self->state, name); return lua_toboolean(self->state,-1); } char * LuaCEmbed_get_global_raw_string(LuaCEmbed *self,const char *name,long *size){ PRIVATE_LUA_CEMBED_PROTECT_NULL if(LuaCEmbed_ensure_global_type(self,name,LUA_CEMBED_STRING)){ return NULL; } lua_getglobal(self->state, name); return (char*)lua_tolstring(self->state,-1,(size_t*)size); } char * LuaCEmbed_get_global_string(LuaCEmbed *self,const char *name){ PRIVATE_LUA_CEMBED_PROTECT_NULL if(LuaCEmbed_ensure_global_type(self,name,LUA_CEMBED_STRING)){ return NULL; } lua_getglobal(self->state, name); return (char*)lua_tostring(self->state,-1); } LuaCEmbedTable * LuaCembed_new_anonymous_table(LuaCEmbed *self){ PRIVATE_LUA_CEMBED_PROTECT_NULL const char *format_raw = PRIVATE_LUA_CEMBED_ANONYMOUS_TABLE_; if(self->current_function){ format_raw =PRIVATE_LUA_CEMBED_ANONYMOUS_FUNC_TABLE_; } privateLuaCEmbedTableArray *target = (privateLuaCEmbedTableArray*)privateLuaCEmbed_get_current_table_array(self); char *buffer= private_LuaCembed_format(format_raw, self->stack_leve, target->size); LuaCEmbedTable *created_table =LuaCembed_new_global_table(self,buffer); free(buffer); return created_table; } LuaCEmbedTable * LuaCembed_get_global_table(LuaCEmbed *self, const char *name){ PRIVATE_LUA_CEMBED_PROTECT_NULL if(LuaCEmbed_ensure_global_type(self,name,LUA_CEMBED_TABLE)){ return NULL; } privateLuaCEmbedTableArray *target = (privateLuaCEmbedTableArray*)privateLuaCEmbed_get_current_table_array(self); LuaCEmbedTable *possible = privateLuaCEmbedTableArray_find_by_global_name(target,name); if(possible){ return possible; } LuaCEmbedTable *creaeted = private_newLuaCembedTable(self, "%s", name); privateLuaCEmbedTableArray_append( target, creaeted ); return creaeted; } LuaCEmbedTable * LuaCembed_new_global_table(LuaCEmbed *self, const char *name){ PRIVATE_LUA_CEMBED_PROTECT_NULL lua_newtable(self->state); lua_setglobal(self->state,name); privateLuaCEmbedTableArray *target = (privateLuaCEmbedTableArray*)privateLuaCEmbed_get_current_table_array(self); LuaCEmbedTable *possible = privateLuaCEmbedTableArray_find_by_global_name(target,name); if(possible){ return possible; } LuaCEmbedTable *creaeted = private_newLuaCembedTable(self, "%s", name); privateLuaCEmbedTableArray_append( target, creaeted ); return creaeted; } LuaCEmbedTable* LuaCEmbed_run_global_lambda(LuaCEmbed *self, const char *name, LuaCEmbedTable *args_to_call, int total_returns){ PRIVATE_LUA_CEMBED_PROTECT_NULL if(LuaCEmbed_ensure_global_type(self,name,LUA_CEMBED_FUNCTION)){ return NULL; } int total_args = private_lua_cEmbed_unpack(args_to_call,name); if(lua_pcall(self->state,total_args,total_returns,0)){ privateLuaCEmbed_raise_error_not_jumping(self, lua_tostring(self->state,-1)); return NULL; } for(int i = 0; i < total_returns; i++){ char *formatted = private_LuaCembed_format(PRIVATE_LUA_CEMBED_MULTIRETURN_, self->stack_leve, i); int position = (i +1) * -1; lua_pushvalue(self->state,position); lua_setglobal(self->state,formatted); free(formatted); } LuaCEmbedTable *result = LuaCembed_new_anonymous_table(self); for(int i = 0; i < total_returns; i++){ lua_getglobal(self->state,result->global_name); lua_pushinteger(self->state,i+1); char *formatted = private_LuaCembed_format(PRIVATE_LUA_CEMBED_MULTIRETURN_,self->stack_leve,i); lua_getglobal(self->state,formatted); lua_settable(self->state,-3); free(formatted); } return result; } //path: src/imports/../LuaCEmbed/globals/setters/fdefine.setters.c //mannaged by silver chain void LuaCEmbed_set_global_string(LuaCEmbed *self, const char *name, const char *value){ PRIVATE_LUA_CEMBED_PROTECT_VOID lua_pushstring(self->state,value); lua_setglobal(self->state,name); } void LuaCEmbed_set_global_raw_string(LuaCEmbed *self, const char *name, const char *value,long size){ PRIVATE_LUA_CEMBED_PROTECT_VOID lua_pushlstring(self->state,value,size); lua_setglobal(self->state,name); } void LuaCEmbed_set_global_long(LuaCEmbed *self, const char *name, lua_Integer value){ PRIVATE_LUA_CEMBED_PROTECT_VOID lua_pushinteger(self->state,value); lua_setglobal(self->state,name); } void LuaCEmbed_set_global_double(LuaCEmbed *self, const char *name, double value){ PRIVATE_LUA_CEMBED_PROTECT_VOID lua_pushnumber(self->state,(double )value); lua_setglobal(self->state,name); } void LuaCEmbed_set_global_bool(LuaCEmbed *self, const char *name, bool value){ PRIVATE_LUA_CEMBED_PROTECT_VOID lua_pushboolean(self->state,value); lua_setglobal(self->state,name); } void LuaCEmbed_set_global_table(LuaCEmbed *self, const char *name, LuaCEmbedTable *table){ PRIVATE_LUA_CEMBED_PROTECT_VOID lua_getglobal(self->state,table->global_name); lua_setglobal(self->state,name); } //path: src/imports/../LuaCEmbed/lib_props/fdefine.lib_props.c //mannaged by silver chain void LuaCEmbed_set_long_lib_prop(LuaCEmbed *self,const char *name,lua_Integer value){ char *main_lib_table = private_LuaCembed_format(PRIVATE_LUA_CEMBED_MAIN_LIB_TABLE_NAME__,self->lib_identifier); lua_getglobal(self->state,main_lib_table); lua_pushvalue(self->state,-1); //set the function name lua_pushstring(self->state,name); lua_pushinteger(self->state,value); lua_settable(self->state,-3); free(main_lib_table); } void LuaCEmbed_set_double_lib_prop(LuaCEmbed *self,const char *name,double value){ lua_getglobal(self->state,self->main_lib_table); lua_pushvalue(self->state,-1); //set the function name lua_pushstring(self->state,name); lua_pushnumber(self->state,value); lua_settable(self->state,-3); } void LuaCEmbed_set_bool_lib_prop(LuaCEmbed *self,const char *name,bool value){ lua_getglobal(self->state,self->main_lib_table); lua_pushvalue(self->state,-1); //set the function name lua_pushstring(self->state,name); lua_pushboolean(self->state,value); lua_settable(self->state,-3); } void LuaCEmbed_set_string_lib_prop(LuaCEmbed *self,const char *name,const char * value){ lua_getglobal(self->state,self->main_lib_table); lua_pushvalue(self->state,-1); //set the function name lua_pushstring(self->state,name); lua_pushstring(self->state,value); lua_settable(self->state,-3); } void LuaCEmbed_set_table_lib_prop(LuaCEmbed *self,const char *name,LuaCEmbedTable *value){ lua_getglobal(self->state,self->main_lib_table); lua_pushvalue(self->state,-1); lua_pushstring(self->state,name); lua_getglobal(self->state,value->global_name); lua_settable(self->state,-3); } int private_LuaCEmbed_ensure_lib_prop_type(LuaCEmbed *self,const char *name,int expected_type){ int type = lua_type(self->state,-1); if(type!= expected_type){ privateLuaCEmbed_raise_error_not_jumping( self, PRIVATE_LUA_CEMBED_LIB_PROP_WRONG_TYPE, name, LuaCembed_convert_arg_code(type), LuaCembed_convert_arg_code(expected_type) ); return LUA_CEMBED_GENERIC_ERROR; } return LUA_CEMBED_OK; } lua_Integer LuaCEmbed_get_long_lib_prop(LuaCEmbed *self,const char *name){ lua_getglobal(self->state,self->main_lib_table); lua_getfield(self->state, -1,name); if(private_LuaCEmbed_ensure_lib_prop_type(self,name,LUA_CEMBED_NUMBER)){ return LUA_CEMBED_GENERIC_ERROR; } return lua_tointeger(self->state,-1); } double LuaCEmbed_get_double_lib_prop(LuaCEmbed *self,const char *name){ lua_getglobal(self->state,self->main_lib_table); lua_getfield(self->state, -1,name); if(private_LuaCEmbed_ensure_lib_prop_type(self,name,LUA_CEMBED_NUMBER)){ return LUA_CEMBED_GENERIC_ERROR; } return lua_tonumber(self->state,-1); } bool LuaCEmbed_get_bool_lib_prop(LuaCEmbed *self,const char *name){ lua_getglobal(self->state,self->main_lib_table); lua_getfield(self->state, -1,name); if(private_LuaCEmbed_ensure_lib_prop_type(self,name,LUA_CEMBED_BOOL)){ return LUA_CEMBED_GENERIC_ERROR; } return lua_toboolean(self->state,-1); } char * LuaCEmbed_get_string_lib_prop(LuaCEmbed *self,const char *name){ lua_getglobal(self->state,self->main_lib_table); lua_getfield(self->state, -1,name); if(private_LuaCEmbed_ensure_lib_prop_type(self,name,LUA_CEMBED_STRING)){ return NULL; } return (char*)lua_tostring(self->state,-1); } LuaCEmbedTable *LuaCEmbed_get_table_lib_prop(LuaCEmbed *self,const char *name){ ; lua_getglobal(self->state,self->main_lib_table); lua_getfield(self->state, -1,name); if(private_LuaCEmbed_ensure_lib_prop_type(self,name,LUA_CEMBED_TABLE)){ return NULL; } char *global_sub_table_name = private_LuaCembed_format( PRIVATE_LUA_CEMBED_MAIN_LIB_SUB_TABLE, self->lib_identifier, name ); lua_setglobal(self->state,global_sub_table_name); privateLuaCEmbedTableArray *target = (privateLuaCEmbedTableArray*)privateLuaCEmbed_get_current_table_array(self); LuaCEmbedTable *possible = privateLuaCEmbedTableArray_find_by_global_name(target,global_sub_table_name); if(possible){ free(global_sub_table_name); return possible; } LuaCEmbedTable *creaeted = private_newLuaCembedTable(self, "%s",global_sub_table_name); free(global_sub_table_name); privateLuaCEmbedTableArray_append( target, creaeted ); return creaeted; } //path: src/imports/../LuaCEmbed/lib_start/fdefine.lib_start.c //mannaged by silver chain int private_LuaCemb_internal_free(lua_State *L){ LuaCEmbed *self = (LuaCEmbed*)lua_touserdata(L, lua_upvalueindex(1)); if(self->delete_function){ self->delete_function(self); } LuaCEmbed_free(self); return 0; } LuaCEmbed * newLuaCEmbedLib(lua_State *state){ LuaCEmbed *self = (LuaCEmbed*) malloc(sizeof (LuaCEmbed)); *self = (LuaCEmbed){0}; self->state = state; self->lib_identifier = 0; lua_getglobal(self->state,PRIVATE_LUA_CEMBED_TOTAL_LIBS); if(lua_type(self->state,-1) != LUA_CEMBED_NIL){ self->lib_identifier = lua_tointeger(self->state,-1); } self->lib_identifier +=1; self->main_lib_table = private_LuaCembed_format(PRIVATE_LUA_CEMBED_MAIN_LIB_TABLE_NAME__,self->lib_identifier); lua_pushinteger(self->state,self->lib_identifier); lua_setglobal(self->state,PRIVATE_LUA_CEMBED_TOTAL_LIBS); self->is_lib = true; self->global_tables = (void*)newprivateLuaCEmbedTableArray(); UniversalGarbage *garbage = newUniversalGarbage(); char *lib_meta_table = private_LuaCembed_format(PRIVATE_LUA_CEMBED_MAIN_META_TABLE__,self->lib_identifier); UniversalGarbage_add_simple(garbage,lib_meta_table); //creating the metatable luaL_newmetatable(self->state, lib_meta_table); //seting the clojure key lua_pushstring(self->state,PRIVATE_LUA_CEMBED_DEL_PREFIX); //set self as first clojure argument lua_pushlightuserdata(self->state,(void*)self); lua_pushcclosure(self->state,private_LuaCemb_internal_free,1); lua_settable(self->state, -3); char *lib_main_table = private_LuaCembed_format(PRIVATE_LUA_CEMBED_MAIN_LIB_TABLE_NAME__,self->lib_identifier); UniversalGarbage_add_simple(garbage,lib_main_table); //creating the global table to store the elements lua_newtable(self->state); lua_setglobal(self->state,lib_main_table); luaL_setmetatable(self->state, lib_meta_table); UniversalGarbage_free(garbage); return self; } int LuaCembed_perform(LuaCEmbed *self){ PRIVATE_LUA_CEMBED_PROTECT_NUM char *lib_main_table = private_LuaCembed_format(PRIVATE_LUA_CEMBED_MAIN_LIB_TABLE_NAME__,self->lib_identifier); lua_getglobal(self->state,lib_main_table); free(lib_main_table); return 1; } int LuaCembed_send_self_as_lib(LuaCEmbed *self){ return LuaCembed_perform(self); } int LuaCembed_send_global_as_lib(LuaCEmbed *self,const char *global_name){ if(global_name == NULL){ return 0; } lua_getglobal(self->state,global_name); int type = lua_type(self->state,-1); if(type == LUA_CEMBED_NIL){ return 0; } return 1; } //path: src/imports/../LuaCEmbed/memory/fdefine.memory.c //mannaged by silver chain void LuaCEmbed_set_memory_limit(LuaCEmbed *self, double limit){ lua_setallocf(self->state, private_LuaCembed_custom_allocator, &lua_cembed_used_memory); lua_cembed_memory_limit = limit; } static void *private_LuaCembed_custom_allocator(void *ud, void *ptr, size_t osize, size_t nsize) { int *used = (int *)ud; if (ptr == NULL) { osize = 0; } if (nsize == 0) { free(ptr); *used -= osize; return NULL; } else { long custom_limit = (long)(lua_cembed_memory_limit * PRIVATE_LUA_CEMBED_ONE_MB); if (*used + (nsize - osize) > custom_limit) return NULL; ptr = realloc(ptr, nsize); if (ptr) *used += (nsize - osize); return ptr; } } //path: src/imports/../LuaCEmbed/table/table/append/fdefine.append.c //mannaged by silver chain void LuaCEmbedTable_append_table(LuaCEmbedTable *self, LuaCEmbedTable *table){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID long size = LuaCEmbedTable_get_listable_size(self); lua_getglobal(self->main_object->state,self->global_name); lua_pushinteger(self->main_object->state,size+1); lua_getglobal(self->main_object->state,table->global_name); lua_rawset(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_append_string(LuaCEmbedTable *self, const char *value){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID long size = LuaCEmbedTable_get_listable_size(self); lua_getglobal(self->main_object->state,self->global_name); lua_pushinteger(self->main_object->state,size+1); lua_pushstring(self->main_object->state,value); lua_rawset(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_append_long(LuaCEmbedTable *self, lua_Integer value){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID long size = LuaCEmbedTable_get_listable_size(self); lua_getglobal(self->main_object->state,self->global_name); lua_pushinteger(self->main_object->state,size+1); lua_pushinteger(self->main_object->state,value); lua_rawset(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_append_double(LuaCEmbedTable *self, double value){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID long size = LuaCEmbedTable_get_listable_size(self); lua_getglobal(self->main_object->state,self->global_name); lua_pushinteger(self->main_object->state,size+1); lua_pushnumber(self->main_object->state,value); lua_rawset(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_append_bool(LuaCEmbedTable *self, bool value){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID long size = LuaCEmbedTable_get_listable_size(self); lua_getglobal(self->main_object->state,self->global_name); lua_pushinteger(self->main_object->state,size+1); lua_pushboolean(self->main_object->state,value); lua_rawset(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_append_evaluation(LuaCEmbedTable *self, const char *code, ...){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID va_list args; va_start(args,code); char *buffer = private_LuaCembed_format_vaarg(code,args); va_end(args); LuaCEmbed_evaluate( self->main_object, PRIVATE_LUA_CEMBED_GLOBAL_EVALUATION_CODE, PRIVATE_LUA_CEMBED_EVALUATION_NAME, buffer ); free(buffer); if(LuaCEmbed_has_errors(self->main_object)){ return; } long size = LuaCEmbedTable_get_listable_size(self); lua_getglobal(self->main_object->state,self->global_name); lua_pushinteger(self->main_object->state,size+1); lua_getglobal(self->main_object->state,PRIVATE_LUA_CEMBED_EVALUATION_NAME); lua_rawset(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } //path: src/imports/../LuaCEmbed/table/table/basic/fdefine.basic.c //mannaged by silver chain LuaCEmbedTable * private_newLuaCembedTable(LuaCEmbed *main_embed, const char *format, ...){ LuaCEmbedTable *self = (LuaCEmbedTable*)malloc(sizeof (LuaCEmbedTable)); *self = (LuaCEmbedTable){0}; self->main_object =main_embed; va_list args; va_start(args,format); self->global_name = private_LuaCembed_format_vaarg(format,args); va_end(args); self->sub_tables = (void*)newprivateLuaCEmbedTableArray(); return self; } int private_lua_cEmbed_unpack(LuaCEmbedTable *self,const char * previews_function){ long size = LuaCEmbedTable_get_listable_size(self); lua_settop(self->main_object->state, 0); lua_getglobal(self->main_object->state,self->global_name); int table_index = lua_gettop(self->main_object->state); int total = 0; lua_pushnil(self->main_object->state); while(lua_next(self->main_object->state,table_index)){ lua_pushvalue(self->main_object->state,-1); char *formated = private_LuaCembed_format(PRIVATE_LUA_CEMBED_MULTIRETURN_,self->main_object->stack_leve,total); lua_setglobal(self->main_object->state,formated); free(formated); lua_pop(self->main_object->state,1); total+=1; } if(previews_function){ lua_getglobal(self->main_object->state,previews_function); } for(int i = 0; i < size; i++){ char *formated = private_LuaCembed_format(PRIVATE_LUA_CEMBED_MULTIRETURN_,self->main_object->stack_leve,i); lua_getglobal(self->main_object->state,formated); free(formated); } return (int)size; } void privateLuaCEmbedTable_free(LuaCEmbedTable *self){ free(self->global_name); if(self->prop_name){ free(self->prop_name); } privateLuaCEmbedTableArray_free((privateLuaCEmbedTableArray*)self->sub_tables); free(self); } //path: src/imports/../LuaCEmbed/table/table/destroy/fdefine.destroy.c //mannaged by silver chain void LuaCembedTable_destroy_prop(LuaCEmbedTable *self, const char *name){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID lua_getglobal(self->main_object->state,self->global_name); lua_pushstring(self->main_object->state,name); lua_pushnil(self->main_object->state); lua_settable(self->main_object->state,-3); } void LuaCEmbedTable_destroy_by_index(LuaCEmbedTable *self, long index){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID long formatted_index = index + LUA_CEMBED_INDEX_DIF; if(LuaCembedTable_has_key_at_index(self,index)){ char *key = LuaCembedTable_get_key_by_index(self,index); LuaCembedTable_destroy_prop(self,key); return; } lua_getglobal(self->main_object->state,self->global_name); long converted_index = privateLuaCEmbedTable_convert_index(self,formatted_index); int table_index = lua_gettop(self->main_object->state); int total = 0; lua_pushnil(self->main_object->state); while(lua_next(self->main_object->state,table_index)){ if(total >= converted_index){ lua_getglobal(self->main_object->state,self->global_name); lua_pushnumber(self->main_object->state,(double)(total)); lua_pushvalue(self->main_object->state,-3); lua_settable(self->main_object->state,-3); lua_pop(self->main_object->state,1); } lua_pop(self->main_object->state,1); total+=1; } lua_getglobal(self->main_object->state,self->global_name); lua_pushnumber(self->main_object->state,total); lua_pushnil(self->main_object->state); lua_settable(self->main_object->state,-3); } //path: src/imports/../LuaCEmbed/table/table/errors/fdefine.errors.c //mannaged by silver chain int privateLuaCEmbedTable_ensure_type_with_key(LuaCEmbedTable *self, const char *name, int expected_type){ if(!self){ return LUA_CEMBED_GENERIC_ERROR; } int type = lua_type(self->main_object->state,-1); if(type == expected_type){ return LUA_CEMBED_OK; } privateLuaCEmbed_raise_error_not_jumping( self->main_object, PRIVATE_LUA_CEMBED_WRONG_TYPE_PROPETY, name, self->global_name, LuaCembed_convert_arg_code(type), LuaCembed_convert_arg_code(expected_type) ); return LUA_CEMBED_GENERIC_ERROR; } int privateLuaCEmbedTable_ensure_type_with_index(LuaCEmbedTable *self, long index, int expected_type){ if(!self){ return LUA_CEMBED_GENERIC_ERROR; } int type = lua_type(self->main_object->state,-1); if(type == expected_type){ return LUA_CEMBED_OK; } privateLuaCEmbed_raise_error_not_jumping( self->main_object, PRIVATE_LUA_CEMBED_WRONG_TYPE_INDEX, index, self->global_name, LuaCembed_convert_arg_code(type), LuaCembed_convert_arg_code(expected_type) ); return LUA_CEMBED_GENERIC_ERROR; } //path: src/imports/../LuaCEmbed/table/table/getters/index/fdefine.index.c //mannaged by silver chain lua_Integer LuaCEmbedTable_get_full_size(LuaCEmbedTable *self){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NUM lua_getglobal(self->main_object->state,self->global_name); int index = lua_gettop(self->main_object->state); lua_Integer total = 0; lua_pushnil(self->main_object->state); while(lua_next(self->main_object->state,index)){ total+=1; lua_pop(self->main_object->state,1); } PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return total; } lua_Integer LuaCEmbedTable_get_listable_size(LuaCEmbedTable *self){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NUM lua_getglobal(self->main_object->state,self->global_name); return (long)lua_rawlen(self->main_object->state,-1); } lua_Integer privateLuaCEmbedTable_convert_index(LuaCEmbedTable *self, private_lua_cembed_incremented_arg index){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NUM if(index >= 0){ return index; } return LuaCEmbedTable_get_full_size(self) + index; } int LuaCEmbedTable_get_type_by_index(LuaCEmbedTable *self, lua_Integer index){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NUM long formatted_index = index + LUA_CEMBED_INDEX_DIF; lua_getglobal(self->main_object->state,self->global_name); int table_index = lua_gettop(self->main_object->state); long converted_index = privateLuaCEmbedTable_convert_index(self,formatted_index); int total = 1; lua_pushnil(self->main_object->state); while(lua_next(self->main_object->state,table_index)){ if(total == converted_index){ int type = lua_type(self->main_object->state,-1); lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return type; } lua_pop(self->main_object->state,1); total+=1; } PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return LUA_CEMBED_NOT_FOUND; } char *LuaCembedTable_get_key_by_index(LuaCEmbedTable *self, lua_Integer index){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NULL long formatted_index = index + LUA_CEMBED_INDEX_DIF; lua_getglobal(self->main_object->state,self->global_name); int table_index = lua_gettop(self->main_object->state); long converted_index = privateLuaCEmbedTable_convert_index(self,formatted_index); lua_Integer total = 1; lua_pushnil(self->main_object->state); while(lua_next(self->main_object->state,table_index)){ if(total == converted_index){ if(lua_type(self->main_object->state,-2) != LUA_CEMBED_STRING ){ lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return NULL; } char* result = (char*)lua_tostring(self->main_object->state,-2); lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return result; } lua_pop(self->main_object->state,1); total+=1; } PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return NULL; } bool LuaCembedTable_has_key_at_index(LuaCEmbedTable *self, lua_Integer index){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_BOOL lua_settop(self->main_object->state,0); long formatted_index = index + LUA_CEMBED_INDEX_DIF; lua_getglobal(self->main_object->state,self->global_name); int table_index = lua_gettop(self->main_object->state); long converted_index = privateLuaCEmbedTable_convert_index(self,formatted_index); int total = 1; lua_pushnil(self->main_object->state); while(lua_next(self->main_object->state,table_index)){ if(total == converted_index){ bool has_key =lua_type(self->main_object->state,-2) == LUA_CEMBED_STRING; lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return has_key; } lua_pop(self->main_object->state,1); total+=1; } PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return false; } lua_Integer LuaCEmbedTable_get_long_by_index(LuaCEmbedTable *self, lua_Integer index){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NUM lua_settop(self->main_object->state,0); int formatted_index = index + LUA_CEMBED_INDEX_DIF; lua_getglobal(self->main_object->state,self->global_name); int table_index = lua_gettop(self->main_object->state); lua_Integer converted_index = privateLuaCEmbedTable_convert_index(self,formatted_index); lua_Integer total = 1; lua_pushnil(self->main_object->state); while(lua_next(self->main_object->state,table_index)){ if(total == converted_index){ if(privateLuaCEmbedTable_ensure_type_with_index(self,converted_index,LUA_CEMBED_NUMBER)){ lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return LUA_CEMBED_GENERIC_ERROR; } long result = (long)lua_tonumber(self->main_object->state,-1); lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return result; } lua_pop(self->main_object->state,1); total+=1; } privateLuaCEmbed_raise_error_not_jumping( self->main_object, PRIVATE_LUA_CEMBED_WRONG_TYPE_INDEX, index, self->global_name, LuaCembed_convert_arg_code(LUA_CEMBED_NIL), LuaCembed_convert_arg_code(LUA_CEMBED_NUMBER) ); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return LUA_CEMBED_GENERIC_ERROR; } double LuaCEmbedTable_get_double_by_index(LuaCEmbedTable *self, lua_Integer index){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NUM int formatted_index = index + LUA_CEMBED_INDEX_DIF; lua_getglobal(self->main_object->state,self->global_name); int table_index = lua_gettop(self->main_object->state); long converted_index = privateLuaCEmbedTable_convert_index(self,formatted_index); lua_Integer total = 1; lua_pushnil(self->main_object->state); while(lua_next(self->main_object->state,table_index)){ if(total == converted_index){ if(privateLuaCEmbedTable_ensure_type_with_index(self,converted_index,LUA_CEMBED_NUMBER)){ lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return LUA_CEMBED_GENERIC_ERROR; } double result = (double )lua_tonumber(self->main_object->state,-1); lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return result; } lua_pop(self->main_object->state,1); total+=1; } privateLuaCEmbed_raise_error_not_jumping( self->main_object, PRIVATE_LUA_CEMBED_WRONG_TYPE_INDEX, index, self->global_name, LuaCembed_convert_arg_code(LUA_CEMBED_NIL), LuaCembed_convert_arg_code(LUA_CEMBED_NUMBER) ); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return LUA_CEMBED_GENERIC_ERROR; } char * LuaCEmbedTable_get_string_by_index(LuaCEmbedTable *self, lua_Integer index){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NULL int formatted_index = index + LUA_CEMBED_INDEX_DIF; lua_getglobal(self->main_object->state,self->global_name); int table_index = lua_gettop(self->main_object->state); long converted_index = privateLuaCEmbedTable_convert_index(self,formatted_index); lua_Integer total = 1; lua_pushnil(self->main_object->state); while(lua_next(self->main_object->state,table_index)){ if(total == converted_index){ if(privateLuaCEmbedTable_ensure_type_with_index(self,converted_index,LUA_CEMBED_STRING)){ lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return NULL; } char * result = (char*)lua_tostring(self->main_object->state,-1); lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return result; } lua_pop(self->main_object->state,1); total+=1; } privateLuaCEmbed_raise_error_not_jumping( self->main_object, PRIVATE_LUA_CEMBED_WRONG_TYPE_INDEX, index, self->global_name, LuaCembed_convert_arg_code(LUA_CEMBED_NIL), LuaCembed_convert_arg_code(LUA_CEMBED_STRING) ); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return NULL; } char * LuaCEmbedTable_get_raw_string_by_index(LuaCEmbedTable *self, lua_Integer index, lua_Integer *size){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NULL int formatted_index = index + LUA_CEMBED_INDEX_DIF; lua_getglobal(self->main_object->state,self->global_name); int table_index = lua_gettop(self->main_object->state); long converted_index = privateLuaCEmbedTable_convert_index(self,formatted_index); int total = 1; lua_pushnil(self->main_object->state); while(lua_next(self->main_object->state,table_index)){ if(total == converted_index){ if(privateLuaCEmbedTable_ensure_type_with_index(self,converted_index,LUA_CEMBED_STRING)){ lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return NULL; } char * result = (char*)lua_tolstring(self->main_object->state,-1,(size_t*)size); lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return result; } lua_pop(self->main_object->state,1); total+=1; } privateLuaCEmbed_raise_error_not_jumping( self->main_object, PRIVATE_LUA_CEMBED_WRONG_TYPE_INDEX, index, self->global_name, LuaCembed_convert_arg_code(LUA_CEMBED_NIL), LuaCembed_convert_arg_code(LUA_CEMBED_STRING) ); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return NULL; } bool LuaCEmbedTable_get_bool_by_index(LuaCEmbedTable *self, lua_Integer index){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_BOOL int formatted_index = index + LUA_CEMBED_INDEX_DIF; lua_getglobal(self->main_object->state,self->global_name); int table_index = lua_gettop(self->main_object->state); long converted_index = privateLuaCEmbedTable_convert_index(self,formatted_index); int total = 1; lua_pushnil(self->main_object->state); while(lua_next(self->main_object->state,table_index)){ if(total == converted_index){ if(privateLuaCEmbedTable_ensure_type_with_index(self,converted_index,LUA_CEMBED_BOOL)){ lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return LUA_CEMBED_GENERIC_ERROR; } bool result = lua_toboolean(self->main_object->state,-1); lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return result; } lua_pop(self->main_object->state,1); total+=1; } privateLuaCEmbed_raise_error_not_jumping( self->main_object, PRIVATE_LUA_CEMBED_WRONG_TYPE_INDEX, converted_index, self->global_name, LuaCembed_convert_arg_code(LUA_CEMBED_NIL), LuaCembed_convert_arg_code(LUA_CEMBED_BOOL) ); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return LUA_CEMBED_GENERIC_ERROR; } //path: src/imports/../LuaCEmbed/table/table/getters/keys/fdefine.keys.c //mannaged by silver chain int LuaCEmbedTable_get_type_prop(LuaCEmbedTable *self, const char *name){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NUM lua_getglobal(self->main_object->state,self->global_name); privateLuaCEmbd_get_field_protected(self->main_object,name); return lua_type(self->main_object->state,-1); } char* LuaCembedTable_get_string_prop(LuaCEmbedTable *self , const char *name){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NULL lua_getglobal(self->main_object->state,self->global_name); privateLuaCEmbd_get_field_protected(self->main_object,name); if(privateLuaCEmbedTable_ensure_type_with_key(self, name, LUA_CEMBED_STRING)){ return NULL; } char *value = (char*)lua_tostring(self->main_object->state,-1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return value; } char* LuaCembedTable_get_raw_string_prop(LuaCEmbedTable *self, const char *name,lua_Integer *size){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NULL lua_getglobal(self->main_object->state,self->global_name); privateLuaCEmbd_get_field_protected(self->main_object,name); if(privateLuaCEmbedTable_ensure_type_with_key(self, name, LUA_CEMBED_STRING)){ return NULL; } char *value = (char*)lua_tolstring(self->main_object->state,-1,(size_t*)size); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return value; } lua_Integer LuaCembedTable_get_long_prop(LuaCEmbedTable *self , const char *name){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NUM lua_getglobal(self->main_object->state,self->global_name); privateLuaCEmbd_get_field_protected(self->main_object,name); if(privateLuaCEmbedTable_ensure_type_with_key(self, name, LUA_CEMBED_NUMBER)){ return LUA_CEMBED_GENERIC_ERROR; } lua_Integer value = lua_tointeger(self->main_object->state,-1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return value; } double LuaCembedTable_get_double_prop(LuaCEmbedTable *self , const char *name){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NUM lua_getglobal(self->main_object->state,self->global_name); privateLuaCEmbd_get_field_protected(self->main_object,name); if(privateLuaCEmbedTable_ensure_type_with_key(self, name, LUA_CEMBED_NUMBER)){ return LUA_CEMBED_GENERIC_ERROR; } double value = (double )lua_tonumber(self->main_object->state,-1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return value; } bool LuaCembedTable_get_bool_prop(LuaCEmbedTable *self , const char *name){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_BOOL lua_getglobal(self->main_object->state,self->global_name); privateLuaCEmbd_get_field_protected(self->main_object,name); if(privateLuaCEmbedTable_ensure_type_with_key(self, name, LUA_CEMBED_BOOL)){ return LUA_CEMBED_GENERIC_ERROR; } bool value = lua_toboolean(self->main_object->state,-1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return value; } //path: src/imports/../LuaCEmbed/table/table/setters/index/fdefine.index.c //mannaged by silver chain void LuaCEmbedTable_set_string_by_index(LuaCEmbedTable *self, lua_Integer index, const char *value){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID char *possible_key = LuaCembedTable_get_key_by_index(self,index); if(possible_key){ LuaCEmbedTable_set_string_prop(self,possible_key,value); return; } long formatted_index = index + LUA_CEMBED_INDEX_DIF; lua_getglobal(self->main_object->state,self->global_name); lua_pushnumber(self->main_object->state,(double)formatted_index); lua_pushstring(self->main_object->state,value); lua_settable(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_set_raw_string_by_index(LuaCEmbedTable *self, lua_Integer index, const char *value,lua_Integer size){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID char *possible_key = LuaCembedTable_get_key_by_index(self,index); if(possible_key){ LuaCEmbedTable_set_string_prop(self,possible_key,value); return; } long formatted_index = index + LUA_CEMBED_INDEX_DIF; lua_getglobal(self->main_object->state,self->global_name); lua_pushnumber(self->main_object->state,(double)formatted_index); lua_pushlstring(self->main_object->state,value,size); lua_settable(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_set_long_by_index(LuaCEmbedTable *self, lua_Integer index, lua_Integer value){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID char *possible_key = LuaCembedTable_get_key_by_index(self,index); if(possible_key){ LuaCEmbedTable_set_long_prop(self,possible_key,value); return; } lua_Integer formatted_index = index + LUA_CEMBED_INDEX_DIF; lua_getglobal(self->main_object->state,self->global_name); lua_pushinteger(self->main_object->state,formatted_index); lua_pushinteger(self->main_object->state,value); lua_settable(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_set_double_by_index(LuaCEmbedTable *self, lua_Integer index, double value){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID char *possible_key = LuaCembedTable_get_key_by_index(self,index); if(possible_key){ LuaCEmbedTable_set_double_prop(self,possible_key,value); return; } long formatted_index = index + LUA_CEMBED_INDEX_DIF; lua_getglobal(self->main_object->state,self->global_name); lua_pushinteger(self->main_object->state,formatted_index); lua_pushnumber(self->main_object->state,value); lua_settable(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_set_bool_by_index(LuaCEmbedTable *self, lua_Integer index, bool value){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID char *possible_key = LuaCembedTable_get_key_by_index(self,index); if(possible_key){ LuaCEmbedTable_set_bool_prop(self,possible_key,value); return; } long formatted_index = index + LUA_CEMBED_INDEX_DIF; lua_getglobal(self->main_object->state,self->global_name); lua_pushinteger(self->main_object->state,formatted_index); lua_pushboolean(self->main_object->state,value); lua_settable(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_set_evaluation_by_index(LuaCEmbedTable *self, lua_Integer index, const char *code, ...){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID long formatted_index = index + LUA_CEMBED_INDEX_DIF; va_list args; va_start(args,code); char * buffer = private_LuaCembed_format_vaarg(code,args); va_end(args); LuaCEmbed_evaluate(self->main_object, PRIVATE_LUA_CEMBED_GLOBAL_EVALUATION_CODE, PRIVATE_LUA_CEMBED_EVALUATION_NAME, buffer ); free(buffer); if(LuaCEmbed_has_errors(self->main_object)){ return; } lua_getglobal(self->main_object->state,self->global_name); lua_pushinteger(self->main_object->state,formatted_index); lua_getglobal(self->main_object->state,PRIVATE_LUA_CEMBED_EVALUATION_NAME); lua_settable(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } //path: src/imports/../LuaCEmbed/table/table/setters/insert/fdefine.insert.c //mannaged by silver chain void private_LuaCEmbedTable_add_space(LuaCEmbedTable *self, lua_Integer formatted_index){ lua_newtable(self->main_object->state); lua_setglobal(self->main_object->state,PRIVATE_LUA_CEMBED_STAGE_AREA_TABLE); lua_getglobal(self->main_object->state, self->global_name); lua_Integer table_index = lua_gettop(self->main_object->state); lua_Integer total = 1; lua_pushnil(self->main_object->state); // Empilhando o primeiro par chave-valor while (lua_next(self->main_object->state, table_index)) { if (total >= formatted_index) { lua_getglobal(self->main_object->state, PRIVATE_LUA_CEMBED_STAGE_AREA_TABLE); lua_pushinteger(self->main_object->state, total + 1); lua_pushvalue(self->main_object->state, -3); lua_settable(self->main_object->state, -3); lua_pop(self->main_object->state, 1); } lua_pop(self->main_object->state, 1); // Removendo o valor atual total+=1; } lua_getglobal(self->main_object->state, PRIVATE_LUA_CEMBED_STAGE_AREA_TABLE); table_index = lua_gettop(self->main_object->state); lua_pushnil(self->main_object->state); while (lua_next(self->main_object->state, table_index)) { lua_getglobal(self->main_object->state,self->global_name); lua_pushvalue(self->main_object->state,-3); //table[index] = stage_area[index] lua_pushvalue(self->main_object->state,-3); //table[index] = stage_area[index] lua_settable(self->main_object->state,-3); lua_pop(self->main_object->state, 2); // Removendo o valor atual } lua_getglobal(self->main_object->state, "stage_arrea"); lua_pushnil(self->main_object->state); } void LuaCEmbedTable_insert_string_at_index(LuaCEmbedTable *self, lua_Integer index, const char *value) { // Movendo os elementos existentes para frente long formatted_index = index + LUA_CEMBED_INDEX_DIF; private_LuaCEmbedTable_add_space(self,formatted_index); // Inserindo o novo valor na posição especificada lua_getglobal(self->main_object->state, self->global_name); lua_pushinteger(self->main_object->state, formatted_index); lua_pushstring(self->main_object->state, value); lua_settable(self->main_object->state, -3); // Limpando a pilha lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_insert_bool_at_index(LuaCEmbedTable *self, lua_Integer index,bool value){ // Movendo os elementos existentes para frente long formatted_index = index + LUA_CEMBED_INDEX_DIF; private_LuaCEmbedTable_add_space(self,formatted_index); // Inserindo o novo valor na posição especificada lua_getglobal(self->main_object->state, self->global_name); lua_pushinteger(self->main_object->state, formatted_index); lua_pushboolean(self->main_object->state, value); lua_settable(self->main_object->state, -3); // Limpando a pilha lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_insert_long_at_index(LuaCEmbedTable *self, lua_Integer index,lua_Integer value){ // Movendo os elementos existentes para frente long formatted_index = index + LUA_CEMBED_INDEX_DIF; private_LuaCEmbedTable_add_space(self,formatted_index); // Inserindo o novo valor na posição especificada lua_getglobal(self->main_object->state, self->global_name); lua_pushinteger(self->main_object->state, formatted_index); lua_pushinteger(self->main_object->state, value); lua_settable(self->main_object->state, -3); // Limpando a pilha lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_insert_double_at_index(LuaCEmbedTable *self, lua_Integer index,double value){ // Movendo os elementos existentes para frente long formatted_index = index + LUA_CEMBED_INDEX_DIF; private_LuaCEmbedTable_add_space(self,formatted_index); // Inserindo o novo valor na posição especificada lua_getglobal(self->main_object->state, self->global_name); lua_pushinteger(self->main_object->state, formatted_index); lua_pushnumber(self->main_object->state, value); lua_settable(self->main_object->state, -3); // Limpando a pilha lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_insert_table_at_index(LuaCEmbedTable *self, lua_Integer index,LuaCEmbedTable *table){ // Movendo os elementos existentes para frente lua_Integer formatted_index = index + LUA_CEMBED_INDEX_DIF; private_LuaCEmbedTable_add_space(self,formatted_index); // Inserindo o novo valor na posição especificada lua_getglobal(self->main_object->state, self->global_name); lua_pushinteger(self->main_object->state, formatted_index); lua_getglobal(self->main_object->state,table->global_name); lua_settable(self->main_object->state, -3); // Limpando a pilha lua_settop(self->main_object->state, 0); } //path: src/imports/../LuaCEmbed/table/table/setters/keys/fdefine.keys.c //mannaged by silver chain void LuaCEmbedTable_set_method(LuaCEmbedTable *self , const char *name, LuaCEmbedResponse *(*callback)(LuaCEmbedTable *self, LuaCEmbed *args)){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID bool is_meta = false; if(strlen(name) > 3){ if(name[0] == '_' && name[1] == '_' ){ is_meta = true; } } lua_getglobal(self->main_object->state,self->global_name); if(is_meta){ int found =lua_getmetatable(self->main_object->state,-1); if(!found){ //equivalent of meta ={} ;setmetatable(table,meta) lua_getglobal(self->main_object->state,self->global_name); lua_newtable(self->main_object->state); lua_setmetatable(self->main_object->state,-2); lua_getglobal(self->main_object->state,self->global_name); lua_getmetatable(self->main_object->state,-1); } } lua_pushstring(self->main_object->state,name); //creating the clojure lua_pushboolean(self->main_object->state,true);//is a method lua_pushlightuserdata(self->main_object->state,(void*)self->main_object); //self lua_pushstring(self->main_object->state,name);//calback name lua_getglobal(self->main_object->state,self->global_name);//table lua_pushlightuserdata(self->main_object->state,(void*)callback); //add these clojure to be handled by the callbacks lua_pushcclosure(self->main_object->state,privateLuaCEmbed_main_callback_handler,5); lua_settable(self->main_object->state,-3); if(is_meta){ //equivalent of meta ={} ;setmetatable(table,meta) lua_getglobal(self->main_object->state,self->global_name); lua_getmetatable(self->main_object->state,-1); lua_setmetatable(self->main_object->state,-2); } lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_set_string_prop(LuaCEmbedTable *self , const char *name, const char *value){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID lua_getglobal(self->main_object->state,self->global_name); lua_pushstring(self->main_object->state,name); lua_pushstring(self->main_object->state,value); lua_settable(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_set_raw_string_prop(LuaCEmbedTable *self , const char *name, const char *value,lua_Integer size){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID lua_getglobal(self->main_object->state,self->global_name); lua_pushstring(self->main_object->state,name); lua_pushlstring(self->main_object->state,value,size); lua_settable(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_set_long_prop(LuaCEmbedTable *self , const char *name,lua_Integer value){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID lua_getglobal(self->main_object->state,self->global_name); lua_pushstring(self->main_object->state,name); lua_pushinteger(self->main_object->state,value); lua_settable(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_set_double_prop(LuaCEmbedTable *self , const char *name, double value){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID lua_getglobal(self->main_object->state,self->global_name); lua_pushstring(self->main_object->state,name); lua_pushnumber(self->main_object->state,value); lua_settable(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_set_bool_prop(LuaCEmbedTable *self , const char *name, bool value){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID lua_getglobal(self->main_object->state,self->global_name); lua_pushstring(self->main_object->state,name); lua_pushboolean(self->main_object->state,value); lua_settable(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } void LuaCEmbedTable_set_evaluation_prop(LuaCEmbedTable *self, const char *name, const char *code, ...){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID va_list args; va_start(args,code); char *buffer = private_LuaCembed_format_vaarg(code,args); va_end(args); LuaCEmbed_evaluate(self->main_object, PRIVATE_LUA_CEMBED_GLOBAL_EVALUATION_CODE, PRIVATE_LUA_CEMBED_EVALUATION_NAME, buffer ); free(buffer); if(LuaCEmbed_has_errors(self->main_object)){ return; } lua_getglobal(self->main_object->state,self->global_name); lua_pushstring(self->main_object->state,name); lua_getglobal(self->main_object->state,PRIVATE_LUA_CEMBED_EVALUATION_NAME); lua_settable(self->main_object->state,-3); lua_settop(self->main_object->state, 0); } //path: src/imports/../LuaCEmbed/table/table/sub_tables/index/fdefine.index.c //mannaged by silver chain LuaCEmbedTable *LuaCEmbedTable_new_sub_table_appending(LuaCEmbedTable *self){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NULL //equivalent of: full_sub_table_name = {} long index= LuaCEmbedTable_get_listable_size(self) +1; char *full_sub_table_name = private_LuaCembed_format("%s_%d", self->global_name, index); lua_newtable(self->main_object->state); lua_setglobal(self->main_object->state,full_sub_table_name); //equivalent of: table[index] = full_sub_table_name lua_getglobal(self->main_object->state,self->global_name); lua_pushinteger(self->main_object->state,index); lua_getglobal(self->main_object->state,full_sub_table_name); lua_settable(self->main_object->state,-3); lua_settop(self->main_object->state, 0); LuaCEmbedTable *possible = privateLuaCEmbedTableArray_find_by_internal_index( (privateLuaCEmbedTableArray *) self->sub_tables, index ); if(possible){ free(full_sub_table_name); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return possible; } LuaCEmbedTable *created = private_newLuaCembedTable(self->main_object, full_sub_table_name); created->index = index; privateLuaCEmbedTableArray_append( (privateLuaCEmbedTableArray*)self->sub_tables, created ); free(full_sub_table_name); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return created; } LuaCEmbedTable *LuaCEmbedTable_get_sub_table_by_index(LuaCEmbedTable *self, lua_Integer index){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NULL long formatted_index = index + LUA_CEMBED_INDEX_DIF; lua_getglobal(self->main_object->state,self->global_name); lua_Integer table_index = lua_gettop(self->main_object->state); lua_Integer converted_index = privateLuaCEmbedTable_convert_index(self,formatted_index); lua_Integer total = 1; lua_pushnil(self->main_object->state); while(lua_next(self->main_object->state,table_index)){ if(total == converted_index){ if(privateLuaCEmbedTable_ensure_type_with_index(self,converted_index,LUA_CEMBED_TABLE)){ lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return NULL; } //equivalent of full_sub_table_name = table[index] char *full_sub_table_name = private_LuaCembed_format("%s_%d", self->global_name, index); lua_setglobal(self->main_object->state,full_sub_table_name); LuaCEmbedTable *possible = privateLuaCEmbedTableArray_find_by_internal_index( (privateLuaCEmbedTableArray *) self->sub_tables, index ); if(possible){ free(full_sub_table_name); lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return possible; } LuaCEmbedTable *created = private_newLuaCembedTable(self->main_object, full_sub_table_name); created->index = index; privateLuaCEmbedTableArray_append( (privateLuaCEmbedTableArray*)self->sub_tables, created ); free(full_sub_table_name); lua_pop(self->main_object->state,1); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return created; } lua_pop(self->main_object->state,1); total+=1; } privateLuaCEmbed_raise_error_not_jumping( self->main_object, PRIVATE_LUA_CEMBED_WRONG_TYPE_INDEX, index, self->global_name, LuaCembed_convert_arg_code(LUA_CEMBED_NIL), LuaCembed_convert_arg_code(LUA_CEMBED_TABLE) ); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return NULL; } void LuaCEmbedTable_set_sub_table_by_index(LuaCEmbedTable *self, lua_Integer index,LuaCEmbedTable *sub_table){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID char *possible_key = LuaCembedTable_get_key_by_index(self,index); if(possible_key){ LuaCEmbedTable_set_sub_table_prop(self,possible_key,sub_table); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return; } lua_Integer formatted_index = index + LUA_CEMBED_INDEX_DIF; lua_getglobal(self->main_object->state,self->global_name); lua_pushinteger(self->main_object->state,formatted_index); lua_getglobal(self->main_object->state,sub_table->global_name); lua_settable(self->main_object->state,-3); lua_settop(self->main_object->state, 0); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK } //path: src/imports/../LuaCEmbed/table/table/sub_tables/key/fdefine.key.c //mannaged by silver chain LuaCEmbedTable *LuaCEmbedTable_new_sub_table_by_key(LuaCEmbedTable *self, const char *name){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NULL //equivalent of: table.sub_table = {} lua_getglobal(self->main_object->state,self->global_name); lua_pushstring(self->main_object->state,name); lua_newtable(self->main_object->state); lua_settable(self->main_object->state,-3); //equivalent of full_sub_table_name = table.sub_table lua_getglobal(self->main_object->state,self->global_name); lua_pushstring(self->main_object->state, name); lua_gettable(self->main_object->state, -2); char *full_sub_table_name = private_LuaCembed_format("%s_%s", self->global_name, name); lua_setglobal(self->main_object->state,full_sub_table_name); LuaCEmbedTable *possible = privateLuaCEmbedTableArray_find_by_prop_name( (privateLuaCEmbedTableArray *) self->sub_tables, name ); if(possible){ free(full_sub_table_name); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return possible; } LuaCEmbedTable *created = private_newLuaCembedTable(self->main_object, full_sub_table_name); created->prop_name = strdup(name); privateLuaCEmbedTableArray_append( (privateLuaCEmbedTableArray*)self->sub_tables, created ); free(full_sub_table_name); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return created; } LuaCEmbedTable *LuaCEmbedTable_get_sub_table_by_key(LuaCEmbedTable *self, const char *name){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_NULL lua_getglobal(self->main_object->state,self->global_name); privateLuaCEmbd_get_field_protected(self->main_object,name); if(privateLuaCEmbedTable_ensure_type_with_key(self, name, LUA_CEMBED_TABLE)){ PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return NULL; } //equivalent of full_sub_table_name = table.sub_table lua_getglobal(self->main_object->state,self->global_name); privateLuaCEmbd_get_field_protected(self->main_object,name); char *full_sub_table_name = private_LuaCembed_format("%s_%s", self->global_name, name); lua_setglobal(self->main_object->state,full_sub_table_name); LuaCEmbedTable *possible = privateLuaCEmbedTableArray_find_by_prop_name( (privateLuaCEmbedTableArray *) self->sub_tables, name ); if(possible){ free(full_sub_table_name); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return possible; } LuaCEmbedTable *created = private_newLuaCembedTable(self->main_object, full_sub_table_name); created->prop_name = strdup(name); privateLuaCEmbedTableArray_append( (privateLuaCEmbedTableArray*)self->sub_tables, created ); free(full_sub_table_name); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK return created; } void LuaCEmbedTable_set_sub_table_prop(LuaCEmbedTable *self, const char *name, LuaCEmbedTable *sub_table){ PRIVATE_LUA_CEMBED_TABLE_PROTECT_VOID //equivalent of table.name = sub_table; lua_getglobal(self->main_object->state,self->global_name); lua_pushstring(self->main_object->state,name); lua_getglobal(self->main_object->state,sub_table->global_name); lua_settable(self->main_object->state,-3); //equivalent of full_sub_table_name = table.sub_table lua_getglobal(self->main_object->state,self->global_name); privateLuaCEmbd_get_field_protected(self->main_object,name); char *full_sub_table_name = private_LuaCembed_format("%s_%s", self->global_name, name); lua_setglobal(self->main_object->state,full_sub_table_name); free(full_sub_table_name); PRIVATE_LUA_CEMBED_TABLE_CLEAR_STACK } //path: src/imports/../LuaCEmbed/table/table_array/fdefine.table_array.c //mannaged by silver chain privateLuaCEmbedTableArray *newprivateLuaCEmbedTableArray(){ privateLuaCEmbedTableArray *self = (privateLuaCEmbedTableArray*) malloc(sizeof (privateLuaCEmbedTableArray)); *self = (privateLuaCEmbedTableArray){0}; self->tables = (LuaCEmbedTable**)malloc(0); return self; } void privateLuaCEmbedTableArray_append(privateLuaCEmbedTableArray *self,LuaCEmbedTable *element){ self->tables = (LuaCEmbedTable **)realloc( self->tables, (self->size+1)* sizeof (LuaCEmbedTable**) ); self->tables[self->size] = element; self->size+=1; } LuaCEmbedTable *privateLuaCEmbedTableArray_find_by_prop_name(privateLuaCEmbedTableArray *self, const char *name){ for(int i = 0; i < self->size;i++){ LuaCEmbedTable *current_table = self->tables[i]; if(current_table->prop_name){ if(strcmp(current_table->prop_name,name) ==0){ return current_table; } } } return NULL; } LuaCEmbedTable *privateLuaCEmbedTableArray_find_by_global_name(privateLuaCEmbedTableArray *self, const char *name){ for(int i = 0; i < self->size;i++){ LuaCEmbedTable *current_table = self->tables[i]; if(strcmp(current_table->global_name,name) ==0){ return current_table; } } return NULL; } LuaCEmbedTable *privateLuaCEmbedTableArray_find_by_internal_index(privateLuaCEmbedTableArray *self, lua_Integer internal_index){ for(lua_Integer i = 0; i < self->size;i++){ LuaCEmbedTable *current_table = self->tables[i]; if(current_table->index == internal_index){ return current_table; } } return NULL; } void privateLuaCEmbedTableArray_free(privateLuaCEmbedTableArray *self){ for(int i = 0; i < self->size;i++){ LuaCEmbedTable *current_table = self->tables[i]; privateLuaCEmbedTable_free(current_table); } free(self->tables); free(self); } //path: src/imports/../LuaCEmbedResponse/fdefine.LuaCEmbedResponse.c //mannaged by silver chain LuaCEmbedResponse *private_LuaCEmbedReturn_raw(){ LuaCEmbedResponse *self = (LuaCEmbedResponse*)malloc(sizeof(LuaCEmbedResponse)); *self = (LuaCEmbedResponse){0}; return self; } LuaCEmbedResponse * LuaCEmbed_send_bool(bool value){ LuaCEmbedResponse * self= private_LuaCEmbedReturn_raw(); self->type = PRIVATE_LUA_CEMBED_BOOL_RESPONSE; self->int_val = value; return self; } LuaCEmbedResponse * LuaCEmbed_send_str(const char *text){ LuaCEmbedResponse * self= private_LuaCEmbedReturn_raw(); self->type = PRIVATE_LUA_CEMBED_STRING_RESPONSE; self->string_size = (long)strlen(text); self->string_val = (char*)malloc(sizeof(char) * self->string_size +1); memcpy(self->string_val,text,self->string_size); self->string_val[self->string_size] = '\0'; return self; } LuaCEmbedResponse * LuaCEmbed_send_raw_string(const char *text,lua_Integer size){ LuaCEmbedResponse * self= private_LuaCEmbedReturn_raw(); self->type = PRIVATE_LUA_CEMBED_STRING_RESPONSE; self->string_size = size; self->string_val = (char*)malloc(sizeof(char) * self->string_size +1); memcpy(self->string_val,text,self->string_size); self->string_val[self->string_size] = '\0'; return self; } LuaCEmbedResponse * LuaCEmbed_send_str_reference(const char *text){ LuaCEmbedResponse * self= private_LuaCEmbedReturn_raw(); self->type = PRIVATE_LUA_CEMBED_STRING_RESPONSE; self->string_size = (long)strlen(text); self->string_val = (char*)text; self->its_string_ref = true; return self; } LuaCEmbedResponse * LuaCEmbed_send_raw_string_reference(const char *text,lua_Integer size){ LuaCEmbedResponse * self= private_LuaCEmbedReturn_raw(); self->type = PRIVATE_LUA_CEMBED_STRING_RESPONSE; self->string_size = size; self->string_val = (char*)text; self->its_string_ref = true; return self; } LuaCEmbedResponse * LuaCEmbed_send_error(const char *format,...){ va_list args; va_start(args,format); char *error = private_LuaCembed_format_vaarg(format,args); va_end(args); LuaCEmbedResponse * self= private_LuaCEmbedReturn_raw(); self->type = PRIVATE_LUA_CEMBED_ERROR_RESPONSE; self->string_val = error; return self; } LuaCEmbedResponse * LuaCEmbed_send_multi_return(LuaCEmbedTable *table){ LuaCEmbedResponse * self= private_LuaCEmbedReturn_raw(); self->type = PRIVATE_LUA_CEMBED_MULTI_RESPONSE; lua_getglobal(table->main_object->state,table->global_name); lua_setglobal(table->main_object->state,PRIVATE_LUA_CEMBED_TABLE_RETURN); return self; } LuaCEmbedResponse * LuaCEmbed_send_table(LuaCEmbedTable *table){ LuaCEmbedResponse * self= private_LuaCEmbedReturn_raw(); self->type = PRIVATE_LUA_CEMBED_TABLE_RESPONSE; lua_getglobal(table->main_object->state,table->global_name); lua_setglobal(table->main_object->state,PRIVATE_LUA_CEMBED_TABLE_RETURN); return self; } LuaCEmbedResponse * LuaCEmbed_send_evaluation(const char *code){ LuaCEmbedResponse * self= private_LuaCEmbedReturn_raw(); self->type = PRIVATE_LUA_CEMBED_EVALUATION; self->string_val = strdup(code); return self; } LuaCEmbedResponse * LuaCEmbed_send_double(double value){ LuaCEmbedResponse * self= private_LuaCEmbedReturn_raw(); self->type = PRIVATE_LUA_CEMBED_DOUBLE_RESPONSE; self->double_val = value; return self; } LuaCEmbedResponse * LuaCEmbed_send_long(lua_Integer value){ LuaCEmbedResponse * self= private_LuaCEmbedReturn_raw(); self->type = PRIVATE_LUA_CEMBED_LONG_RESPONSE; self->int_val = value; return self; } void private_LuaCEmbedResponse_free(LuaCEmbedResponse *self){ if(self->string_val && self->its_string_ref == false){ free(self->string_val); } free(self); } //path: src/imports/../extra/fdefine.extra.c //mannaged by silver chain const char * LuaCembed_convert_arg_code(int arg_code){ if(arg_code == LUA_CEMBED_NOT_FOUND){ return PRIVATE_LUA_CEMBED_NOT_FOUND_STRING; } if(arg_code == LUA_CEMBED_STRING){ return PRIVATE_LUA_CEMBED_STRING_STRING; } if(arg_code == LUA_CEMBED_NUMBER){ return PRIVATE_LUA_CEMBED_NUMBER_STRING; } if(arg_code == LUA_CEMBED_BOOL){ return PRIVATE_LUA_CEMBED_BOOL_STRING; } if(arg_code == LUA_CEMBED_NIL){ return PRIVATE_LUA_CEMBED_NIL_STRING; } if(arg_code == LUA_CEMBED_TABLE){ return PRIVATE_LUA_CEMBED_TABLE_STRING; } if(arg_code == LUA_CEMBED_FUNCTION){ return PRIVATE_LUA_CEMBED_FUNCTION_STRING; } return PRIVATE_LUA_CEMBED_UNKNOW_STRING; } char * private_LuaCembed_format_vaarg(const char *expresion, va_list args){ va_list args_copy; va_copy(args_copy, args); long required_size = vsnprintf(NULL, 0,expresion,args_copy); va_end(args_copy); char *buffer = (char*)malloc(sizeof(char) * required_size + 2); vsnprintf(buffer,sizeof (char) * required_size+1,expresion,args); return buffer; } char * private_LuaCembed_format(const char *expresion, ...){ va_list args; va_start(args,expresion); char *result = private_LuaCembed_format_vaarg(expresion,args); va_end(args); return result; } //path: src/imports/../namespace/LuaCEmbedNamespace/fdefine.LuaCEmbedNamespace.c //mannaged by silver chain LuaCEmbedNamespace newLuaCEmbedNamespace(){ LuaCEmbedNamespace self = {0}; self.newLuaLib = newLuaCEmbedLib; self.load_lib_from_c = LuaCEmbed_load_lib_from_c; self.newLuaEvaluation = newLuaCEmbedEvaluation; self.set_delete_function = LuaCembed_set_delete_function; self.perform = LuaCembed_perform; self.send_self_as_lib = LuaCembed_send_self_as_lib; self.send_global_as_lib = LuaCembed_send_global_as_lib; self.load_native_libs = LuaCEmbed_load_native_libs; self.set_memory_limit = LuaCEmbed_set_memory_limit; self.clear_errors = LuaCEmbed_clear_errors; self.convert_arg_code = LuaCembed_convert_arg_code; self.tables = newLuaCembedTableModule(); self.args = newLuaCembedArgsModule(); self.types = newLuaCEmbedTypeModule(); self.globals = newLuaCEmbedGlobalModule(); self.response = newLuaCEmbedResponseModule(); self.get_error_message = LuaCEmbed_get_error_message; self.has_errors = LuaCEmbed_has_errors; self.set_timeout = LuaCEmbed_set_timeout; self.evaluate = LuaCEmbed_evaluate; self.get_string_evaluation = LuaCEmbed_get_evaluation_string; self.get_evaluation_type = LuaCEmbed_get_evaluation_type; self.get_evaluation_size = LuaCEmbed_get_evaluation_table_size; self.get_evaluation_long = LuaCEmbed_get_evaluation_long; self.get_evaluation_double = LuaCEmbed_get_evaluation_double; self.get_evaluation_bool = LuaCEmbed_get_evaluation_bool; self.evaluete_file = LuaCEmbed_evaluete_file; self.add_callback = LuaCEmbed_add_callback; self.add_global_callback = LuaCEmbed_add_global_callback; self.set_bool_lib_prop = LuaCEmbed_set_bool_lib_prop; self.set_long_lib_prop = LuaCEmbed_set_long_lib_prop; self.set_double_lib_prop = LuaCEmbed_set_double_lib_prop; self.set_string_lib_prop = LuaCEmbed_set_string_lib_prop; self.set_table_lib_prop = LuaCEmbed_set_table_lib_prop; self.get_long_lib_prop = LuaCEmbed_get_long_lib_prop; self.get_double_lib_prop = LuaCEmbed_get_double_lib_prop; self.get_bool_lib_prop = LuaCEmbed_get_bool_lib_prop; self.get_string_lib_prop = LuaCEmbed_get_string_lib_prop; self.get_table_lib_prop = LuaCEmbed_get_table_lib_prop; self.dangerous_raise_error_jumping = LuaCEmbed_dangerous_raise_error_jumping; self.dangerous_raise_self_error_jumping = LuaCEmbed_dangerous_raise_self_error_jumping; self.free = LuaCEmbed_free; return self; } //path: src/imports/../namespace/args/fdefine.args.c //mannaged by silver chain LuaCembedArgsModule newLuaCembedArgsModule(){ LuaCembedArgsModule self = {0}; self.get_bool = LuaCEmbed_get_bool_arg; self.get_long = LuaCEmbed_get_long_arg; self.get_double = LuaCEmbed_get_double_arg; self.get_str = LuaCEmbed_get_str_arg; self.get_raw_str = LuaCEmbed_get_raw_str_arg; self.get_type = LuaCEmbed_get_arg_type; self.get_table = LuaCEmbed_get_arg_table; self.size = LuaCEmbed_get_total_args; self.get_type_clojure_evalation = LuaCEmbed_get_type_clojure_evalation; self.generate_arg_clojure_evalation = LuaCEmbed_generate_arg_clojure_evalation; self.get_bool_arg_clojure_evalation = LuaCEmbed_get_bool_arg_clojure_evalation; self.get_long_arg_clojure_evalation = LuaCEmbed_get_long_arg_clojure_evalation; self.get_double_arg_clojure_evalation = LuaCEmbed_get_double_arg_clojure_evalation; self.get_string_arg_clojure_evalation = LuaCEmbed_get_string_arg_clojure_evalation; self.run_lambda = LuaCEmbed_run_args_lambda; return self; } //path: src/imports/../namespace/globals/fdefine.globals.c //mannaged by silver chain LuaCEmbedGlobalModule newLuaCEmbedGlobalModule(){ LuaCEmbedGlobalModule self = {0}; self.ensure_type = LuaCEmbed_ensure_global_type; self.get_double = LuaCEmbed_get_global_double; self.get_string = LuaCEmbed_get_global_string; self.get_long = LuaCEmbed_get_global_long; self.get_raw_string = LuaCEmbed_get_global_raw_string; self.set_raw_string = LuaCEmbed_set_global_raw_string; self.get_bool = LuaCEmbed_get_global_bool; self.get_type = LuaCEmbed_get_global_type; self.run_global_lambda = LuaCEmbed_run_global_lambda; self.set_table = LuaCEmbed_set_global_table; self.set_string = LuaCEmbed_set_global_string; self.set_bool = LuaCEmbed_set_global_bool; self.set_double = LuaCEmbed_set_global_double; self.set_long = LuaCEmbed_set_global_long; self.new_table = LuaCembed_new_global_table; self.get_table = LuaCembed_get_global_table; return self; } //path: src/imports/../namespace/response/fdefine.response.c //mannaged by silver chain LuaCEmbedResponseModule newLuaCEmbedResponseModule(){ LuaCEmbedResponseModule self = {0}; self.send_multi_return = LuaCEmbed_send_multi_return; self.send_str = LuaCEmbed_send_str; self.send_str_reference = LuaCEmbed_send_str_reference; self.send_raw_string = LuaCEmbed_send_raw_string; self.send_raw_string_reference = LuaCEmbed_send_raw_string_reference; self.send_bool = LuaCEmbed_send_bool; self.send_double = LuaCEmbed_send_double; self.send_evaluation_function = LuaCEmbed_send_evaluation; self.send_long = LuaCEmbed_send_long; self.send_table = LuaCEmbed_send_table; self.send_error = LuaCEmbed_send_error; return self; } //path: src/imports/../namespace/table/fdefine.table.c //mannaged by silver chain LuaCembedTableModule newLuaCembedTableModule(){ LuaCembedTableModule self ={0}; self.append_string = LuaCEmbedTable_append_string; self.append_bool = LuaCEmbedTable_append_bool; self.append_double = LuaCEmbedTable_append_double; self.append_long = LuaCEmbedTable_append_long; self.append_table = LuaCEmbedTable_append_table; self.append_evaluation = LuaCEmbedTable_append_evaluation; self.insert_string_at_index = LuaCEmbedTable_insert_string_at_index; self.insert_double_at_index = LuaCEmbedTable_insert_double_at_index; self.insert_long_at_index = LuaCEmbedTable_insert_long_at_index; self.insert_table_at_index = LuaCEmbedTable_insert_table_at_index; self.set_evaluation_prop = LuaCEmbedTable_set_evaluation_prop; self.set_method = LuaCEmbedTable_set_method; self.set_method = LuaCEmbedTable_set_method; self.set_bool_prop = LuaCEmbedTable_set_bool_prop; self.set_double_prop = LuaCEmbedTable_set_double_prop; self.set_long_prop = LuaCEmbedTable_set_long_prop; self.set_string_prop = LuaCEmbedTable_set_string_prop; self.set_raw_string_prop = LuaCEmbedTable_set_raw_string_prop; self.get_sub_table_prop = LuaCEmbedTable_get_sub_table_by_key; self.new_sub_table_prop = LuaCEmbedTable_new_sub_table_by_key; self.set_sub_table_prop = LuaCEmbedTable_set_sub_table_prop; self.new_anonymous_table = LuaCembed_new_anonymous_table; self.set_sub_table_by_index = LuaCEmbedTable_set_sub_table_by_index; self.get_bool_prop = LuaCembedTable_get_bool_prop; self.get_double_prop = LuaCembedTable_get_double_prop; self.get_long_prop = LuaCembedTable_get_long_prop; self.get_string_prop = LuaCembedTable_get_string_prop; self.get_raw_string_prop= LuaCembedTable_get_raw_string_prop; self.get_type_prop = LuaCEmbedTable_get_type_prop; self.destroy_prop = LuaCembedTable_destroy_prop; self.set_long_by_index = LuaCEmbedTable_set_long_by_index; self.set_bool_by_index= LuaCEmbedTable_set_bool_by_index; self.set_double_by_index =LuaCEmbedTable_set_double_by_index; self.set_string_by_index = LuaCEmbedTable_set_string_by_index; self.set_raw_string_by_index = LuaCEmbedTable_set_raw_string_by_index; self.set_evaluation_by_index = LuaCEmbedTable_set_evaluation_by_index; self.get_listable_size = LuaCEmbedTable_get_listable_size; self.new_sub_table_appending = LuaCEmbedTable_new_sub_table_appending; self.has_key = LuaCembedTable_has_key_at_index; self.get_key_by_index = LuaCembedTable_get_key_by_index; self.get_size = LuaCEmbedTable_get_full_size; self.get_type_by_index = LuaCEmbedTable_get_type_by_index; self.get_long_by_index = LuaCEmbedTable_get_long_by_index; self.get_double_by_index = LuaCEmbedTable_get_double_by_index; self.get_bool_by_index = LuaCEmbedTable_get_bool_by_index; self.get_string_by_index= LuaCEmbedTable_get_string_by_index; self.get_raw_string_by_index =LuaCEmbedTable_get_raw_string_by_index; self.get_sub_table_by_index = LuaCEmbedTable_get_sub_table_by_index; return self; } //path: src/imports/../namespace/types/fdefine.types.c //mannaged by silver chain LuaCEmbedTypeModule newLuaCEmbedTypeModule(){ LuaCEmbedTypeModule self = {0}; self.NOT_FOUND = LUA_CEMBED_NOT_FOUND; self.STRING = LUA_CEMBED_STRING; self.NUMBER = LUA_CEMBED_NUMBER; self.BOOL = LUA_CEMBED_BOOL; self.NILL = LUA_CEMBED_NIL; self.TABLE = LUA_CEMBED_TABLE; self.FUNCTION = LUA_CEMBED_FUNCTION; return self; } #endif #define LUACEMBED_H #endif Private_darwin_old_package = package.loadlib package.loadlib = function (item, funcname) for i =1,#REQUIRE_SO do local current = REQUIRE_SO[i] if current.comptime_included == item then if current.loaded_obj then return current.loaded_obj end local dest = PRIVATE_DARWIN_SO_DEST.."/"..i..".so" current.loaded_obj = Private_darwin_old_package(dest,funcname) if not current.loaded_obj then error("impossible to load "..dest) end return current.loaded_obj end end return Private_darwin_old_package(item, funcname) end function PrivateDarwing_parse_to_bytes(seq) local buffer = {} for i = 1, #seq do buffer[#buffer + 1] = string.char(seq[i]) end return buffer end Private_darwin_old_require = require if not Private_darwin_old_package then Private_darwin_old_package = package.loadlib end function require(item) if REQUIRE_SO then for i =1,#REQUIRE_SO do local current = REQUIRE_SO[i] if current.comptime_included == item then if current.loaded_obj then return current.loaded_obj end local dest = PRIVATE_DARWIN_SO_DEST.."/"..i..".so" current.loaded_obj = Private_darwin_old_package(dest,"luaopen_"..current.comptime_included) if not current.loaded_obj then error("impossible to load "..dest) end current.loaded_obj = current.loaded_obj() return current.loaded_obj end end end for i = 1, #REQUIRE_FUNCS do local current = REQUIRE_FUNCS[i] if current.comptime_include == item then if current.loaded_obj then return current.loaded_obj end current.loaded_obj = current.content() return current.loaded_obj end end return Private_darwin_old_require(item) end if Private_darwin_old_require then require = Private_darwin_old_require end if Private_darwin_old_package then package.loadlib = Private_darwin_old_package end ---create a dir for dest if not exists os.execute("mkdir -p "..PRIVATE_DARWIN_SO_DEST) for i=1, #SO_INCLUDE do local current = SO_INCLUDE[i] local dest = PRIVATE_DARWIN_SO_DEST.."/"..i..".so" local write_point = io.open(dest, "wb") if not write_point then error("impossible to write in "..dest) end write_point:write(current.content) end ---@class PrivateDarwinEmbed ---@field name string ---@field value table | string | boolean | number | DarwinFileStream ---@class Asset ---@field path string ---@field content string ---@class PrivateAmalgamatorCInterop ---@field generate_amalgamation_simple fun(filename:string,max_content:number,max_recursion:number) ---@field generate_amalgamation_complex fun(filename:string,max_content:number,max_recursion:number,generator_callback:fun(include:string,path:string):"dont-include"| "dont-change" | "include-once" | "include-perpetual"):string ---@field CAMALGAMATOR_UNEXPECTED_ERROR number ---@field CAMALGAMATOR_DONT_INCLUDE number ---@field CAMALGAMATOR_DONT_CHANGE number ---@field CAMALGAMATOR_INCLUDE_ONCE number ---@field CAMALGAMATOR_INCLUDE_PERPETUAL number ---@class Amalgamator ---@field generate_amalgamation fun(filename:string, max_content_size:number | nil,max_recursion:number|nil):string ---@field generate_amalgamation_with_callback fun(filename:string,verifier_callback:(fun(include:string,path:string):"dont-include"|"dont-change"|"include-once"|"include-perpetual"), max_content_size:number|nil,max_recursion:number|nil):string ---@field ONE_MB number ---@field ONE_BYTE number ---@field Amalgamator private_darwin_camalgamator = private_darwin_camalgamator ---@class HtmlContent ---@field exist_error boolean ---@field error_message boolean ---@field render_text string ---@class Cadango ---@field Render_text fun(text:string):HtmlContent ---@type Cadango private_darwin_candango = private_darwin_candango ---@class DarwinCGenerationComplexProps ---@field include_lua_cembed boolean | nil ---@field stream fun(data:string) ---@class DarwinCGenerationCodeProps ---@field include_lua_cembed boolean | nil ---@class DarwinCGenerationFileProps ---@field include_lua_cembed boolean | nil ---@field output string ---@class DarwinCLIBGenerationComplexProps ---@field lib_name string ---@field object_export string | nil ---@field include_lua_cembed boolean | nil ---@field stream fun(data:string) ---@class DarwinCLIBGenerationCodeProps ---@field lib_name string ---@field object_export string | nil ---@field include_lua_cembed boolean | nil ---@class DarwinCLIBGenerationFileProps ---@field lib_name string ---@field object_export string | nil ---@field include_lua_cembed boolean | nil ---@field output string ---@type Asset[] PRIVATE_DARWIN_API_ASSETS = PRIVATE_DARWIN_API_ASSETS ---@type string PRIVATE_DARWIN_TYPES = PRIVATE_DARWIN_TYPES ---@class Darwin ---@field file_stream fun(src:string):DarwinFileStream ---@field create_project fun(project_name:string):DarwinProject ---@field dtw DtwModule ---@field candango Cadango ---@field chunk_size number ---@field argv Argv ---@field camalgamator Amalgamator ---@type Darwin darwin = darwin ---@class DarwinProject ---@field lua_code (DarwinFileStream | string)[] ---@field c_code string[] ---@field c_calls string[] ---@field embed_data PrivateDarwinEmbed[] ---@field c_external_code (DarwinFileStream | string)[] ---@field c_main_code (DarwinFileStream | string)[] ---@field required_funcs DarwinEmbedCode[] ---@field so_includeds DarwinEmbedCode[] ---@field project_name string ---- methods ---@class DarwinProject ---@field add_c_external_code fun(code:string) ---@field add_c_include fun(include:string) ---@field add_c_file fun(filename:string, follow_includes:boolean, verifier_callback:(fun(import:string,path:string):boolean)) ---@field add_c_call fun(func_name:string) ---@field load_lib_from_c fun(lib_start_func:string, lua_obj:string) ---@field generate_c_complex fun(props:DarwinCGenerationComplexProps) ---@field generate_c_code fun(props:DarwinCGenerationCodeProps):string ---@field generate_c_file fun(props:DarwinCGenerationFileProps) ---@field generate_c_lib_complex fun(props:DarwinCLIBGenerationComplexProps) ---@field generate_c_lib_code fun(props:DarwinCLIBGenerationCodeProps):string ---@field generate_c_lib_file fun(props:DarwinCLIBGenerationFileProps) ---@field embed_global fun(name:string,value:table | string | number |boolean | DarwinFileStream) ---@field add_lua_code fun(code:string) ---@field add_lua_file fun(src:string) ---@field generate_lua_complex fun(props:LuaGenerationComplexProps) ---@field generate_lua_code fun(props:LuaGenerationCodeProps):string ---@field generate_lua_file fun(props:LuaGenerationOutputProps) ---@field add_lua_file_followin_require fun(src:string,relative_path:string) ---@class DarwinFileStream ---@field type string ---@field filename string ---@class DtwFork ---@field sleep_time number ---@field kill fun() ---@field is_alive fun():boolean ---@field wait fun(milliseconds:number) ---@class DtwLocker ---@field lock fun(element:string):boolean ---@field unlock fun(element:string):DtwLocker ---@class DtwRandonizer ---@field set_seed fun(seed:number):DtwRandonizer ---@field set_time_seed fun(seed:number):DtwRandonizer ---@field generate_token fun(size:number):DtwRandonizer ---@field generate_num fun(size:number):number ---@class DtwTreeProps ---@field include_content boolean | nil ---@field include_content_data boolean | nil ---@field include_hardware_data boolean | nil ---@field include_ignored_elements boolean | nil ---@field mimify_json boolean | nil ---@field include_path_attributes boolean | nil ---@class DtwTreePart ---@field path DtwPath ---@field get_value fun():string ---@field set_value fun(value:string | number | boolean | DtwTreePart | DtwResource | DtwActionTransaction) ---@field hardware_remove fun(as_transaction:boolean|nil):DtwTreePart ---@field hardware_write fun(as_transaction:boolean|nil):DtwTreePart ---@field hardware_modify fun(as_transaction:boolean|nil):DtwTreePart ---@field get_sha fun():string ---@field is_blob fun():boolean ---@field unload fun():DtwTreePart ---@field load fun():DtwTreePart ---@field content_exist_in_hardware fun():boolean ---@field content_exist fun():boolean ---@class DtwTree ---@field newTreePart_empty fun (path:string):DtwTreePart ---@field newTreePart_loading fun (path:string):DtwTreePart ---@field get_tree_part_by_index fun(index:number):DtwTreePart ---@field insecure_hardware_write_tree fun():DtwTree ---@field insecure_hardware_remove fun():DtwTree ---@field commit fun():DtwTree ---@field get_size fun():number ---@field get_tree_part_by_name fun(name:string):DtwTreePart ---@field get_tree_part_by_path fun(name:string):DtwTreePart ---@field add_tree_from_hardware fun(path:string,props:DtwTreeProps | nil):DtwTreePart ---@field list fun(): DtwTreePart[] ,number ---@field find fun(callback: fun(part:DtwTreePart):boolean):DtwTreePart ---@field count fun(callback: fun(part:DtwTreePart):boolean):number ---@field map fun(callback: fun(part:DtwTreePart):any):any[] ---@field each fun(callback: fun(part:DtwTreePart)) ---@field filter fun(callback:fun(part:DtwTreePart):boolean):DtwTreePart[],number ---@field dump_to_json_string fun(props:DtwTreeProps | nil):string ---@field dump_to_json_file fun(file:string,props:DtwTreeProps | nil):DtwTree ---@class DtwPath ---@field path_changed fun():boolean ---@field add_start_dir fun(start_dir:string):DtwPath ---@field add_end_dir_method fun (end_dir:string):DtwPath ---@field changed fun():boolean ---@field get_dir fun():string ---@field get_extension fun():string ---@field get_name fun():string ---@field get_only_name fun():string ---@field get_full_path fun():string ---@field set_name fun(new_name:string) DtwPath ---@field set_only_name fun(new_name:string) DtwPath ---@field set_extension fun(extension:string):DtwPath ---@field set_dir fun(dir:string):DtwPath ---@field set_path fun(path:string):DtwPath ---@field replace_dirs fun(old_dir:string,new_dir:string):DtwPath ---@field get_total_dirs fun():number ---@field get_sub_dirs_from_index fun(start:number,end:number):string ---@field insert_dir_at_index fun(dir:string,index:number):DtwPath ---@field remove_sub_dir_at_index fun(start:number,end:number):DtwPath ---@field insert_dir_after fun(point:string, dir:string):DtwPath ---@field insert_dir_before fun(point:string, dir:string):DtwPath ---@field remove_dir_at fun(point:string):DtwPath ---@field unpack fun():string[],number ---@class DtwHasher ---@field digest fun(value:string | number | boolean | string ):DtwHasher ---@field digest_file fun(source:string):DtwHasher ---@field digest_folder_by_content fun(source:string):DtwHasher ---@field digest_folder_by_last_modification fun(source:string):DtwHasher ---@field get_value fun():string ---@class DtwActionTransaction ---@field get_type_code fun():number ---@field get_type fun():string ---@field get_content fun():string ---@field set_content fun() ---@field get_source fun():string ---@field get_dest fun():string ---@field set_dest fun():string ---@class DtwTransaction ---@field write fun(src :string , value:string | number | boolean | string | DtwResource ):DtwTransaction ---@field remove_any fun(src:string):DtwTransaction ---@field copy_any fun(src:string,dest:string):DtwTransaction ---@field move_any fun(src:string,dest:string):DtwTransaction ---@field dump_to_json_string fun():string ---@field dump_to_json_file fun(src:string):DtwTransaction ---@field list fun(): DtwActionTransaction[] ,number ---@field each fun(callbac: fun(value:DtwActionTransaction)) ---@field map fun(callbac: fun(value:DtwActionTransaction):any):any[],number ---@field find fun(callbac: fun(value:DtwActionTransaction):boolean):DtwActionTransaction ---@field count fun(callbac: fun(value:DtwActionTransaction):boolean):number ---@field filter fun(callback:fun(part:DtwActionTransaction):boolean):DtwActionTransaction[],number ---@field __index fun(index:number):DtwActionTransaction ---@field get_action fun(index:number):DtwActionTransaction ---@field commit fun():DtwTransaction ---@class DtwSchema ---@field add_primary_keys fun(values:string | string[]) ---@field sub_schema fun(values:string | string[]):DtwSchema ---@field set_value_name fun(name:string):DtwSchema ---@field set_index_name fun(name:string):DtwSchema ---@class DtwDatabaseSchema ---@field sub_schema fun(values:string | string[]):DtwSchema ---@field set_value_name fun(name:string):DtwSchema ---@field set_index_name fun(name:string):DtwSchema ---@class DtwResourceListaage ---@field resources DtwResource[] | nil ---@field size number | nil ---@field error string | nil ---@class DtwResource ---@field schema_new_insertion fun():DtwResource ---@field dangerous_remove_prop fun(primary_key:string):DtwResource ---@field dangerous_rename_prop fun(primary_key:string ,new_name:string) :DtwResource ---@field get_resource_matching_primary_key fun(primary_key: string, value:string | number | boolean | Dtwblobs | DtwResource ):DtwResource ---@field get_resource_by_name_id fun(id_name:string) DtwResource | nil ---@field list fun(): DtwResource[] ,number ---@field each fun(callback :fun(element:DtwResource)) ---@field find fun(callback:fun(value:DtwResource):boolean):DtwResource ---@field map fun(callback:fun(value:DtwResource):any):any[],number ---@field count fun(callback:fun(value:DtwResource):boolean):number ---@field filter fun(callback:fun(value:DtwResource):boolean):DtwResource[],number ---@field schema_list fun(): DtwResource[] ---@field schema_each fun(callback:fun(value:DtwResource)) ---@field schema_find fun(callback:fun(value:DtwResource):boolean):DtwResource ---@field schema_map fun(callback:fun(value:DtwResource):any):any[],number ---@field schema_count fun(callback:fun(value:DtwResource):boolean):number ---@field schema_filter fun(callback:fun(value:DtwResource):boolean):DtwResource[],number ---@field sub_resource fun(str:string) :DtwResource ---@field sub_resource_next fun(str:string | nil) :DtwResource ---@field sub_resource_now fun(str:string | nil) :DtwResource ---@field sub_resource_random fun(str:string | nil) :DtwResource ---@field sub_resource_now_in_unix fun(str:string | nil) :DtwResource ---@field __index fun(str:string) : number ,DtwResource ---@field get_value fun():string | number | boolean | nil | string ---@field get_string fun():string | nil ---@field get_type fun():string ---@field get_number fun(): number | nil ---@field get_bool fun(): boolean | nil ---@field set_value fun(value:string | number | boolean | string | DtwResource ):boolean ---@field commit fun() apply the modifications ---@field lock fun() boolean ---@field unlock fun():DtwResource ---@field unload fun() unload the content ---@field get_path_string fun() :string ---@field set_extension fun(extension:string) ---@field destroy fun():DtwResource ---@field set_value_in_sub_resource fun(key:string ,value:string | number | boolean | string | DtwResource ) ---@field try_set_value_in_sub_resource fun(key:string ,value:string | number | boolean | string | DtwResource ):boolean,string | nil ---@field get_value_from_sub_resource fun(key:string):string | number | boolean | nil | string ---@field newDatabaseSchema fun():DtwDatabaseSchema ---@field try_newSchema fun():boolean,string | DtwSchema ---@field try_rename fun(new_name:string):boolean,string | nil ---@field rename fun(new_name:string) ---@field try_set_value fun(value:string | number | boolean | string | DtwResource ):boolean,string | nil ---@field try_destroy fun():boolean,string | nil ---@field try_schema_new_insertion fun():boolean,string | DtwResource ---@field try_get_resource_by_name_id fun(id_name:string) :boolean,string | DtwResource ---@field try_dangerous_rename_prop fun(primary_key:string ,new_name:string):boolean,string | nil ---@field try_dangerous_remove_prop fun(primary_key:string):boolean,string | nil ---@field try_sub_resource fun(name:string):boolean,string | DtwResource ---@field try_sub_resource_next fun(name:string):boolean,string | DtwResource ---@field try_sub_resource_now fun(name:string):boolean,string | DtwResource ---@field try_sub_resource_now_in_unix fun(name:string):boolean,string | DtwResource ---@field try_sub_resource_random fun(name:string):boolean,string | DtwResource ---@field try_schema_list fun():DtwResourceListaage ---@field get_transaction fun():DtwTransaction ---@class DtwModule ---@field copy_any_overwriting fun(src:string,dest:string):boolean returns true if the operation were ok otherwise false ---@field copy_any_merging fun(src:string,dest:string):boolean returns true if the operation were ok otherwise false ---@field move_any_overwriting fun(src:string,dest:string):boolean returns true if the operation were ok otherwise false ---@field move_any_merging fun(src:string,dest:string):boolean returns true if the operation were ok otherwise false ---@field remove_any fun(src:string):boolean returns true if the operation were ok otherwise false ---@field base64_encode_file fun(src:string):string transform file into base64 ---@field base64_encode fun(value:string | number | boolean | string):string transform content into base64 ---@field base64_decode fun(value:string): string | string retransform base64 into normal value ---@field list_files fun(src:string,concat_path:boolean):string[],number ---@field list_dirs fun(src:string,concat_path:boolean):string[],number ---@field list_all fun(src:string,concat_path:boolean):string[],number ---@field list_files_recursively fun(src:string,concat_path:boolean):string[],number ---@field list_dirs_recursively fun(src:string,concat_path:boolean):string[],number ---@field list_all_recursively fun(src:string,concat_path:boolean):string[],number ---@field load_file fun(src:string):string | string ---@field write_file fun(src:string,value:string | number | boolean | DtwTreePart | DtwResource | DtwActionTransaction) ---@field is_blob fun(value:any):boolean returns if a value is a blob ---@field newResource fun(src:string):DtwResource ---@field generate_sha fun(value:string | number | boolean | string):string ---@field generate_sha_from_file fun(src:string):string ---@field generate_sha_from_folder_by_content fun(src:string):string ---@field generate_sha_from_folder_by_last_modification fun(src:string):string ---@field newHasher fun():DtwHasher ---@field isdir fun(file:string):boolean ---@field isfile fun(file:string):boolean ---@field isfile_blob fun(file:string):boolean ---@field newTransaction fun():DtwTransaction ---@field new_transaction_from_file fun(file:string):DtwTransaction ---@field new_transaction_from_string fun(content:string):DtwTransaction ---@field try_new_transaction_from_file fun(file:string):boolean,DtwTransaction |string ---@field try_new_transaction_from_string fun(content:string):boolean, DtwTransaction | string ---@field newPath fun(path:string):DtwPath ---@field newTree fun():DtwTree ---@field newTree_from_hardware fun(path:string,props:DtwTreeProps | nil):DtwTree ---@field newTree_from_json_file fun(path:string):DtwTree ---@field newTree_from_json_string fun (content:string):DtwTree ---@field try_newTree_from_json_file fun(path:string):DtwTree ---@field try_newTree_from_json_string fun (content:string):DtwTree ---@field concat_path fun(path1:string,path2:string):string ---@field starts_with fun(comparation:string,prefix:string):boolean ---@field ends_with fun(comparation:string,sulfix:string):boolean ---@field newRandonizer fun():DtwRandonizer ---@field newFork fun(callback:fun()):DtwFork ---@field newLocker fun():DtwLocker ---@field get_entity_last_modification_in_unix fun(entity:string):number | nil ---@field get_entity_last_modification fun(entity:string):string | nil ---@type DtwModule private_darwin_dtw = private_darwin_dtw -- file: src/types.lua ---@class Argv ---@field get_flag_size fun(flags:string[]|string):number ---@field get_flag_arg_by_index fun(flags:string[]|string,index:number,default:string | nil):string|nil ---@field flags_exist fun(flags:string[]):boolean ---@field get_flag_size_consider_only_first fun(flags:string[]|string):number ---@field get_flag_arg_by_index_consider_only_first fun(flags:string[]|string,index:number,default:string | nil):string|nil ---@field one_of_args_exist fun(arg:string[] | string):boolean ---@field get_total_args_size fun():number ---@field get_arg_by_index_not_adding_to_used fun(index:number):string ---@field get_arg_by_index fun(index:number):string | nil ---@field get_compact_flags fun(flags:string[]|string,index,default:string | nil):string|nil ---@field get_compact_flags_size fun(flags:string[]|string):number ---@field used_args number[] ---@field type fun(value:any):string ---@field argslist string[] ---@field substr_func fun(str:string,start:number,endnum:number):string ---@field get_str_size fun(str:string):number ---@field flag_identifiers string[] ---@field add_used_args_by_index fun(used_flag:number) ---@field get_total_unused_args fun():number ---@field get_unsed_arg_by_index fun(index:number):string|nil ---@field get_next_unused_index fun():number|nil ---@field get_next_unused fun():string|nil ---@class PrivateArgv ---@field starts_with fun(str:string,target:string):boolean ---@field get_array_size fun(array:table):number ---@field is_inside fun(array:table,item:any):boolean ---@field get_formmated_flag_if_its_a_flag fun(current_arg:string):string |nil ---@type PrivateArgv private_luargv = private_luargv ---@type Argv luargv = luargv ---@type PrivateArgv private_luargv = private_luargv ---@type Argv luargv = luargv ---@class LuaGenerationComplexProps ---@field stream fun(content:string) ---@field include_embed_data boolean ---@class LuaGenerationCodeProps ---@field include_embed_data boolean ---@class LuaGenerationOutputProps ---@field include_embed_data boolean ---@field output string ---@class PrivateDarwin ---@field get_asset fun(asset_struct:Asset[],src:string):string ---@field list_assets_recursivly fun(asset_struct:Asset[],src:string):string[] ---@field list_assets fun(asset_struct:Asset[],src:string):string[] ---@field is_file_stream fun(item:any):boolean ---@field transfer_file_stream fun(filestream:DarwinFileStream, stream:fun(data:string)) ---@field transfer_file_stream_bytes fun(filestream:DarwinFileStream, stream:fun(data:string)) ---@field transfer_byte_direct_stream fun(str:string,stream:fun(data:string)) ---@field transfer_byte_internal_format fun(str:string,stream:fun(data:string)) ---@field transfer_byte_size_decide fun(str:string,stream:fun(data:string)) ---@class PrivateDarwin ---@field is_inside fun(array:any[],value:any):boolean ---@field count_bars fun(src:string):number ---@field extract_dir fun(src:string):string ---@class PrivateDarwin ---@field is_string_at_point fun(str:string,target:string,point:number):boolean ---@field starts_with fun(str:string,target:string):boolean ---@type PrivateDarwin private_darwin = private_darwin ---@class PrivateDarwinProject ---@field construct_globals fun(selfobj:DarwinProject) ---@field add_lua_methods fun(selfobj:DarwinProject ) ---@field add_c_external_code fun(selfobj:DarwinProject,code:string) ---@field add_c_include fun(selfobj:DarwinProject,include:string) ---@field add_c_file fun(selfobj:DarwinProject,filename:string, follow_includes:boolean, verifier_callback:(fun(import:string,path:string):boolean)) ---@field add_c_call fun(selfobj:DarwinProject,func_name:string) ---@field load_lib_from_c fun(selfobj:DarwinProject, lib_start_func:string, lua_obj:string) ---@field create_include_stream fun(self_obj:DarwinProject, include:string, relative_path:DtwSchema):string | nil ---@class PrivateDarwinProject ---@field add_lua_code fun(selfobj:DarwinProject,code:string) ---@field add_lua_file fun(selfobj:DarwinProject,src:string) ---@field is_required_included fun(self_obj:DarwinProject, include:string):boolean ---@field is_so_includeds fun(self_obj:DarwinProject, include:string):boolean ---@field add_lua_file_followin_require fun(selfobj:DarwinProject,src:string,relative_path:string) ---@field add_lua_file_followin_require_recursively fun(selfobj:DarwinProject,src:string,relative_path:string) ---@field create_c_str_buffer fun(str_code:string,str_shas:string[],stream:fun(data:string)):string ---@field embed_c_table fun(current_table:table,increment:(fun():number), streamed_shas:string[], stream:fun(data:string)):string ---@field embed_global_in_c fun(name:string, var:any, streamed_shas:string[], stream:fun(data:string), increment:(fun():string)) ---@field generate_c_complex fun(selfobj:DarwinProject,props:DarwinCGenerationComplexProps) ---@field generate_c_code fun(selfobj:DarwinProject,props:DarwinCGenerationCodeProps):string ---@field generate_c_file fun(selfobj:DarwinProject,props:DarwinCGenerationFileProps) ---@field generate_c_lib_complex fun(selfobj:DarwinProject,props:DarwinCLIBGenerationComplexProps) ---@field generate_c_lib_code fun(selfobj:DarwinProject,props:DarwinCLIBGenerationCodeProps):string ---@field generate_c_lib_file fun(selfobj:DarwinProject,props:DarwinCLIBGenerationFileProps) ---@class PrivateDarwinProject ---@field add_c_methods fun(selfobj:DarwinProject) ---@field embed_global_in_lua fun(name:string,var:table | number | boolean | string,streammed_shas:string[], stream:fun(data:string)) ---@field embed_table_in_lua fun(name:string,var:table,streamed_shas:string[],stream:fun(data:string)) ---@field create_lua_str_buffer fun(str:string,streamed_shas:string[], stream:fun(data:string)):string ---@field create_lua_stream_buffer fun(filestream:DarwinFileStream ,streamed_shas:string[], stream:fun(data:string)):string ---@class PrivateDarwinProject ---@field embed_global fun(selfobj:DarwinProject,name:string,value:table | string | boolean | number | DarwinFileStream) ---@class PrivateDarwinProject ---@field generate_lua_complex fun(selfobj:DarwinProject,props:LuaGenerationComplexProps) ---@field generate_lua_code fun(selfobj:DarwinProject,props:LuaGenerationCodeProps):string ---@field generate_lua_file fun(selfobj:DarwinProject,props:LuaGenerationOutputProps) ---@type PrivateDarwinProject private_darwin_project = private_darwin_project ---@class DarwinEmbedCode ---@field content DarwinFileStream | string ---@field comptime_included string darwin = {} darwin.os = 'windows' darwin.dtw=private_darwin_dtw darwin.json=private_darwin_json darwin.candango=private_darwin_candango darwin.camalgamator=private_darwin_camalgamator darwin.silverchain = private_darwin_silverchain darwin.argv = function() private_luargv = {} luargv = {} private_lua_argv_string_functions = {} -- file: src/luargv/base_flags.lua luargv.get_flag_size = function(flags) if luargv.type(flags) == "string" then flags = { flags } end local total_found = 0 local args_size = luargv.get_total_args_size() local capturing_flags = false for i = 1, args_size do local current = luargv.get_arg_by_index_not_adding_to_used(i) local possible_flag = private_luargv.get_formmated_flag_if_its_a_flag(current) if possible_flag then if private_luargv.is_inside(flags, possible_flag) then capturing_flags = true else capturing_flags = false end end if capturing_flags and not possible_flag then total_found = total_found + 1 end end return total_found end luargv.get_flag_arg_by_index = function(flags, index, default) if luargv.type(flags) == "string" then flags = { flags } end local total_found = 0 local args_size = luargv.get_total_args_size() local capturing_flags = false local possible_flag_index = nil for i = 1, args_size do local current = luargv.get_arg_by_index_not_adding_to_used(i) local possible_flag = private_luargv.get_formmated_flag_if_its_a_flag(current) if possible_flag then if private_luargv.is_inside(flags, possible_flag) then possible_flag_index = i capturing_flags = true else capturing_flags = false end end if capturing_flags and not possible_flag then total_found = total_found + 1 if total_found == index then if possible_flag_index then luargv.add_used_args_by_index(possible_flag_index) end luargv.add_used_args_by_index(i) return current end end end return default end luargv.flags_exist = function(flags) local args_size = luargv.get_total_args_size() for i = 1, args_size do local current = luargv.get_arg_by_index_not_adding_to_used(i) local possible_flag = private_luargv.get_formmated_flag_if_its_a_flag(current) if possible_flag then if private_luargv.is_inside(flags, possible_flag) then return true end end end return false end -- file: src/luargv/base_flags_consider_only_first.lua luargv.get_flag_size_consider_only_first = function(flags) if luargv.type(flags) == "string" then flags = { flags } end local total_found = 0 local args_size = luargv.get_total_args_size() local skip = 0 for i = 1, args_size do if skip > 0 then skip = skip - 1 goto continue end local current = luargv.get_arg_by_index_not_adding_to_used(i) local possible_flag = private_luargv.get_formmated_flag_if_its_a_flag(current) if possible_flag then if private_luargv.is_inside(flags, possible_flag) then total_found = total_found + 1 skip = skip + 1 end end ::continue:: end return total_found end luargv.get_flag_arg_by_index_consider_only_first = function(flags, index, default) if luargv.type(flags) == "string" then flags = { flags } end local total_found = 0 local args_size = luargv.get_total_args_size() local skip = 0 for i = 1, args_size do if skip > 0 then skip = skip - 1 goto continue end local current = luargv.get_arg_by_index_not_adding_to_used(i) local possible_flag = private_luargv.get_formmated_flag_if_its_a_flag(current) if possible_flag then if private_luargv.is_inside(flags, possible_flag) then total_found = total_found + 1 skip = skip + 1 end if total_found == index then luargv.add_used_args_by_index(i) return luargv.get_arg_by_index(i + 1) end end ::continue:: end return default end -- file: src/luargv/basic.lua luargv.one_of_args_exist = function(args_list) if luargv.type(args_list) == "string" then args_list = { args_list } end for i = 1, #args_list do local arg_value = args_list[i] local size = luargv.get_total_args_size() for i = 1, size do local current = luargv.get_arg_by_index_not_adding_to_used(i) if current == arg_value then luargv.add_used_args_by_index(i) return true end end return false end end luargv.get_total_args_size = function() local count = 0 for i = -3, 1000000 do local current = luargv.argslist[i] if current then count = count + 1 end if i > 0 and current == nil then return count end end return 0 end luargv.get_arg_by_index_not_adding_to_used = function(index) local decrementer = 0 for i = 0, 1000000 do local converted_i = i * -1 if luargv.argslist[converted_i] == nil then break end decrementer = decrementer + 1 end return luargv.argslist[index - decrementer] end luargv.get_arg_by_index = function(index) luargv.add_used_args_by_index(index) return luargv.get_arg_by_index_not_adding_to_used(index) end -- file: src/luargv/compact_flag.lua luargv.get_compact_flags = function(flags, index, default) local converted_flags = flags if luargv.type(flags) == "string" then ---@type string flags = flags flags = { flags } end local total = 0 for i = 1, #flags do local flag_name = flags[i] local flag_size = luargv.get_str_size(flag_name) local args_size = luargv.get_total_args_size() for i = 1, args_size do local current = luargv.get_arg_by_index_not_adding_to_used(i) if private_luargv.starts_with(current, flag_name) then total = total + 1 if total == index then local current_size = luargv.get_str_size(current) local formmated = luargv.substr_func(current, flag_size + 1, current_size) luargv.add_used_args_by_index(i) return formmated end end end end return default end luargv.get_compact_flags_size = function(flags) local converted_flags = flags if luargv.type(flags) == "string" then flags = { flags } end local total = 0 for i = 1, #flags do local flag_name = flags[i] local flag_size = luargv.get_str_size(flag_name) local args_size = luargv.get_total_args_size() for i = 1, args_size do local current = luargv.get_arg_by_index_not_adding_to_used(i) if private_luargv.starts_with(current, flag_name) then total = total + 1 end end end return total end -- file: src/luargv/constructor.lua luargv.argslist = arg luargv.flag_identifiers = { "-", "--" } luargv.used_args = {} if string then luargv.substr_func = string.sub luargv.get_str_size = string.len end luargv.type = type if not luargv.get_str_size then luargv.get_str_size = function(str) return #str end end -- file: src/luargv/used_flags.lua luargv.add_used_args_by_index = function(index) if index > luargv.get_total_args_size() then return end if not private_luargv.is_inside(luargv.used_args, index) then luargv.used_args[#luargv.used_args + 1] = index end end luargv.get_total_unused_args = function() return luargv.get_total_args_size() - #luargv.used_args end luargv.get_unsed_arg_by_index = function(index) local total = 0 local total_flags = luargv.get_total_args_size() for i = 1, total_flags do if not private_luargv.is_inside(luargv.used_args, i) then total = total + 1 if total == index then return luargv.get_arg_by_index_not_adding_to_used(i) end end end return nil end luargv.get_next_unused_index = function() local total_flags = luargv.get_total_args_size() for i = 1, total_flags do if not private_luargv.is_inside(luargv.used_args, i) then return i end end return nil end luargv.get_next_unused = function() local i = luargv.get_next_unused_index() if i then return luargv.get_arg_by_index(i) end return nil end -- file: src/private_luargv/algo.lua private_luargv.starts_with = function(str, target) local target_size = luargv.get_str_size(target) local divided = luargv.substr_func(str, 1, target_size) if divided == target then return true end return false end private_luargv.get_array_size = function(array) local i = 1 local count = 0 while array[i] do count = count + 1 i = i + 1 end return count end private_luargv.is_inside = function(array, item) local size = private_luargv.get_array_size(array) for i = 1, size do if array[i] == item then return true end end return false end -- file: src/private_luargv/formmated_flags.lua private_luargv.get_formmated_flag_if_its_a_flag = function(current_arg) local total_flags = private_luargv.get_array_size(luargv.flag_identifiers) local chose_flag_size = 0 for i = 1, total_flags do local current_flag = luargv.flag_identifiers[i] if private_luargv.starts_with(current_arg, current_flag) then local current_flag_size = luargv.get_str_size(current_flag) if current_flag_size >= chose_flag_size then chose_flag_size = current_flag_size end end end -- means its a flag if chose_flag_size > 0 then local args_size = luargv.get_str_size(current_arg) return luargv.substr_func(current_arg, chose_flag_size + 1, args_size) end return nil end -- file: src/types.lua ---@class Argv ---@field get_flag_size fun(flags:string[]|string):number ---@field get_flag_arg_by_index fun(flags:string[]|string,index:number,default:string | nil):string|nil ---@field flags_exist fun(flags:string[]):boolean ---@field get_flag_size_consider_only_first fun(flags:string[]|string):number ---@field get_flag_arg_by_index_consider_only_first fun(flags:string[]|string,index:number,default:string | nil):string|nil ---@field one_of_args_exist fun(arg:string[] | string):boolean ---@field get_total_args_size fun():number ---@field get_arg_by_index_not_adding_to_used fun(index:number):string ---@field get_arg_by_index fun(index:number):string | nil ---@field get_compact_flags fun(flags:string[]|string,index,default:string | nil):string|nil ---@field get_compact_flags_size fun(flags:string[]|string):number ---@field used_args number[] ---@field type fun(value:any):string ---@field argslist string[] ---@field substr_func fun(str:string,start:number,endnum:number):string ---@field get_str_size fun(str:string):number ---@field flag_identifiers string[] ---@field add_used_args_by_index fun(used_flag:number) ---@field get_total_unused_args fun():number ---@field get_unsed_arg_by_index fun(index:number):string|nil ---@field get_next_unused_index fun():number|nil ---@field get_next_unused fun():string|nil ---@class PrivateArgv ---@field starts_with fun(str:string,target:string):boolean ---@field get_array_size fun(array:table):number ---@field is_inside fun(array:table,item:any):boolean ---@field get_formmated_flag_if_its_a_flag fun(current_arg:string):string |nil ---@type PrivateArgv private_luargv = private_luargv ---@type Argv luargv = luargv ---@type PrivateArgv private_luargv = private_luargv ---@type Argv luargv = luargv return luargv end darwin.argv = darwin.argv() private_darwin = {} private_darwin_project = {} -- file src/api/darwin/config.lua darwin.chunk_size = 1048576 ---One mega -- file src/api/darwin/create_project.lua darwin.create_project = function(project_name) local selfobj = {} if not project_name then error("project_name is required") end selfobj.project_name = project_name selfobj.embed_global = function(name, value) private_darwin_project.embed_global(selfobj, name, value) end private_darwin_project.construct_globals(selfobj) private_darwin_project.add_lua_methods(selfobj) private_darwin_project.add_c_methods(selfobj) private_darwin_project.embed_global(selfobj, "PRIVATE_DARWIN_"..selfobj.project_name.."_SO_INCLUDED", selfobj.so_includeds ) return selfobj end -- file src/api/darwin/file_stream.lua darwin.file_stream = function(src) return { type = "DarwinFileStream", filename = src } end -- file src/api/private_darwin/assets.lua private_darwin.get_asset = function(asset_struct, src) for i = 1, #asset_struct do local current = asset_struct[i] if current.path == src then return current.content end end error("unknow asset" .. src) end private_darwin.list_assets_recursivly = function(asset_struct, src) local result = {} for i = 1, #asset_struct do local current = asset_struct[i] if private_darwin.starts_with(current.path, src .. "/") then local formmated_path = string.sub(current.path, #src + 2, #current.path) result[#result + 1] = formmated_path end end return result end private_darwin.list_assets = function(asset_struct, src) local values = private_darwin.list_assets_recursivly(asset_struct, src) local valid_values = {} for i = 1, #values do local current = values[i] if private_darwin.count_bars(current) == 0 then valid_values[#valid_values + 1] = current end end return valid_values end -- file src/api/private_darwin/extra.lua private_darwin.is_inside = function(target_table, value) for i = 1, #target_table do if target_table[i] == value then return true end end return false end private_darwin.extract_dir = function(path) local i = string.len(path) while i > 0 do local current_char = string.sub(path, i, i) if current_char == '/' then return string.sub(path, 1, i) end i = i - 1 end return "carview.php?tsp=" end private_darwin.count_bars = function(str) local total = 0 for i = 1, #str do if string.sub(str, i, i) == "/" then total = total + 1 end end return total end -- file src/api/private_darwin/native_funcs.lua -- file src/api/private_darwin/stream.lua private_darwin.transfer_byte_direct_stream = function(str, stream) local current_chunk_size = #str for i = 1, current_chunk_size do local current_char = string.sub(str, i, i) local byte = string.byte(current_char) stream(string.format("%d,", byte)) end end private_darwin.transfer_byte_internal_format = function(str, stream) local current_chunk_size = #str local data = {} for i = 1, current_chunk_size do local current_char = string.sub(str, i, i) local byte = string.byte(current_char) data[#data + 1] = string.format("%d,", byte) end stream(table.concat(data)) end private_darwin.transfer_byte_size_decide = function(str, stream) local limit = darwin.chunk_size if #str > limit then private_darwin.transfer_byte_direct_stream(str, stream) return end private_darwin.transfer_byte_internal_format(str, stream) end private_darwin.is_file_stream = function(item) if type(item) ~= "table" then return false end if item.type == "DarwinFileStream" then return true end return false end private_darwin.transfer_file_stream = function(filestream, stream) local file = io.open(filestream.filename, "a+b") if not file then error("impossible to open" .. filestream.filename) end while true do local chunk = file:read(math.floor(darwin.chunk_size)) if not chunk then break end stream(chunk) end end private_darwin.transfer_file_stream_bytes = function(filestream, stream) local file = io.open(filestream.filename, "a+b") if not file then error("impossible to open" .. filestream.filename) end local count = 0 while true do local chunk = file:read(math.floor(darwin.chunk_size)) if chunk then count = count + #chunk --print("transfed: " .. count) end if not chunk then break end private_darwin.transfer_byte_internal_format(chunk, stream) end end -- file src/api/private_darwin/string_functions.lua private_darwin.is_string_at_point = function(str, target, point) local possible = string.sub(str, point, point + #target - 1) if possible == target then return true end return false end private_darwin.is_one_of_string_at_point = function(str, targets, point) for i = 1, #targets do local target = targets[i] if private_darwin.is_string_at_point(str, target, point) then return true end end return false end private_darwin.starts_with = function(str, target) return private_darwin.is_string_at_point(str, target, 1) end private_darwin.ends_with = function(str, target) return private_darwin.is_string_at_point(str, target, #str - #target + 1) end private_darwin.replace_str = function(str, target, replacement) local result = "carview.php?tsp=" local i = 1 while i <= #str do local current_char = string.sub(str, i, i) if private_darwin.is_string_at_point(str, target, i) then result = result .. replacement i = i + #target else result = result .. current_char i = i + 1 end end return result end -- file src/api/private_darwin_project/constructors/c.lua private_darwin_project.add_c_methods = function(selfobj) selfobj.add_c_external_code = function(code) private_darwin_project.add_c_external_code(selfobj, code) end selfobj.add_c_include = function(include_code) private_darwin_project.add_c_include(selfobj, include_code) end selfobj.add_c_file = function(filename, follow_includes, verifier_callback) private_darwin_project.add_c_file(selfobj, filename, follow_includes, verifier_callback) end selfobj.add_c_call = function(func_name) private_darwin_project.add_c_call(selfobj, func_name) end selfobj.load_lib_from_c = function(lib_start_func, lua_obj) private_darwin_project.load_lib_from_c(selfobj, lib_start_func, lua_obj) end selfobj.generate_c_complex = function(props) return private_darwin_project.generate_c_complex(selfobj, props) end selfobj.generate_c_code = function(props) return private_darwin_project.generate_c_code(selfobj, props) end selfobj.generate_c_file = function(props) return private_darwin_project.generate_c_file(selfobj, props) end selfobj.generate_c_lib_complex = function(props) return private_darwin_project.generate_c_lib_complex(selfobj, props) end selfobj.generate_c_lib_code = function(props) return private_darwin_project.generate_c_lib_code(selfobj, props) end selfobj.generate_c_lib_file = function(props) return private_darwin_project.generate_c_lib_file(selfobj, props) end end -- file src/api/private_darwin_project/constructors/lua.lua private_darwin_project.add_lua_methods = function(selfobj) selfobj.add_lua_code = function(code) private_darwin_project.add_lua_code(selfobj, code) end selfobj.add_lua_file = function(src) private_darwin_project.add_lua_file(selfobj, src) end selfobj.add_lua_file_following_require = function(src,relative_path) private_darwin_project.add_lua_file_following_require(selfobj, src,relative_path) end selfobj.generate_lua_complex = function(props) private_darwin_project.generate_lua_complex(selfobj, props) end selfobj.generate_lua_code = function(props) return private_darwin_project.generate_lua_code(selfobj, props) end selfobj.generate_lua_file = function(props) private_darwin_project.generate_lua_file(selfobj, props) end end -- file src/api/private_darwin_project/constructors/props.lua private_darwin_project.construct_globals = function(self_obj) self_obj.lua_code = {} self_obj.c_external_code = {} self_obj.c_main_code = {} self_obj.embed_data = {} -- self_obj.embed_lua_requires = {} self_obj.required_funcs = {} self_obj.so_includeds = {} end -- file src/api/private_darwin_project/methods/c/c_data.lua private_darwin_project.add_c_external_code = function(selfob, code) selfob.c_external_code[#selfob.c_external_code + 1] = code end private_darwin_project.add_c_include = function(selfobj, file) local include_code = string.format('#include "%s"\n', file) private_darwin_project.add_c_external_code(selfobj, include_code) end private_darwin_project.add_c_file = function(selfobj, filename, follow_includes, verifier_callback) if not follow_includes then selfobj.c_external_code[#selfobj.c_external_code + 1] = darwin.file_stream(filename) return end local MAX_CONTENT = darwin.camalgamator.ONE_MB * 100000 local MAX_RECURSION = 1000 if not verifier_callback then local result = darwin.camalgamator.generate_amalgamation(filename, MAX_CONTENT, MAX_RECURSION) selfobj.c_external_code[#selfobj.c_external_code + 1] = result return end local callback = function(import, path) local internal_result = verifier_callback(import, path) if internal_result then return "include-once" end return "dont-include" end local result = darwin.camalgamator.generate_amalgamation_with_callback( filename, callback, MAX_CONTENT, MAX_RECURSION ) selfobj.c_external_code[#selfobj.c_external_code + 1] = result end private_darwin_project.add_c_call = function(selfob, func_name) local c_call = string.format("%s(darwin_main_obj);", func_name) selfob.c_main_code[#selfob.c_main_code + 1] = c_call end private_darwin_project.load_lib_from_c = function(selfobj, lib_start_func, lua_obj) local c_call = string.format( "LuaCEmbed_load_lib_from_c(darwin_main_obj,%s,%q);", lib_start_func, lua_obj ) selfobj.c_main_code[#selfobj.c_main_code + 1] = c_call end -- file src/api/private_darwin_project/methods/c/c_embed.lua private_darwin_project.create_c_str_buffer = function(str_code, streamed_shas, stream) local name = string.format("private_darwin_sha%s", darwin.dtw.generate_sha(str_code)) if private_darwin.is_inside(streamed_shas, name) then return name end streamed_shas[#streamed_shas + 1] = name stream(string.format( "unsigned char %s[] ={", name )) private_darwin.transfer_byte_size_decide(str_code, stream) stream("0};\n") return name end private_darwin_project.create_c_stream_buffer = function(filestream, streamed_shas, stream) local name = string.format("private_darwin_sha%s",darwin.dtw.generate_sha_from_file(filestream.filename)) if private_darwin.is_inside(streamed_shas, name) then return name end streamed_shas[#streamed_shas + 1] = name stream(string.format( "unsigned char %s[] ={", name )) private_darwin.transfer_file_stream_bytes(filestream, stream) stream("0};\n") return name end private_darwin_project.embed_c_table = function(current_table, increment, streamed_shas, stream) local table_name = "private_darwin_table" .. increment() stream(string.format("LuaCEmbedTable *%s = LuaCembed_new_anonymous_table(darwin_main_obj);\n", table_name)) for key, val in pairs(current_table) do local key_type = type(key) local valtype = type(val) if not private_darwin.is_inside({ "string", "number" }, key_type) then error("invalid key on ") end if not private_darwin.is_inside({ "string", "number", "table", "boolean" }, key_type) then error("invalid val on ") end if valtype == "function" then error("function cannot be embed") end local is_stream = private_darwin.is_file_stream(val) if key_type == "number" and valtype == "number" then stream(string.format( "LuaCEmbedTable_set_double_by_index(%s,%d,%f);\n", table_name, key - 1, val )) end if key_type == "number" and valtype == "string" then local sha_name = private_darwin_project.create_c_str_buffer(val, streamed_shas, stream) stream(string.format( "LuaCEmbedTable_set_raw_string_by_index(%s,%d,%s,%d);\n", table_name, key - 1, sha_name, string.len(val) )) end if key_type == "number" and val == true then stream(string.format( "LuaCEmbedTable_set_bool_by_index(%s,%d,true);\n", table_name, key - 1 )) end if key_type == "number" and val == false then stream(string.format( "LuaCEmbedTable_set_bool_by_index(%s,%d,false);\n", table_name, key - 1 )) end if key_type == "number" and is_stream then local sha_name = private_darwin_project.create_c_stream_buffer(val, streamed_shas, stream) local size = io.open(val.filename, "rb"):seek("end") stream(string.format( "LuaCEmbedTable_set_raw_string_by_index(%s,%d,%s,%d);\n", table_name, key - 1, sha_name, size )) end if key_type == "number" and valtype == "table" and not is_stream then local created_name = private_darwin_project.embed_c_table(val, increment, streamed_shas, stream) stream(string.format( "LuaCEmbedTable_set_sub_table_by_index(%s,%d,%s);\n", table_name, key - 1, created_name )) end if key_type == "string" and valtype == "number" then stream(string.format( "LuaCEmbedTable_set_double_prop(%s,%q,%f);\n", table_name, key, val )) end if key_type == "string" and valtype == "string" then local sha_name = private_darwin_project.create_c_str_buffer(val, streamed_shas, stream) stream(string.format( "LuaCEmbedTable_set_raw_string_prop(%s,%q,(const char*)%s,%d);\n", table_name, key, sha_name, string.len(val) )) end if key_type == "string" and val == true then stream(string.format( "LuaCEmbedTable_set_bool_prop(%s,%q,true);\n", table_name, key )) end if key_type == "string" and val == false then stream(string.format( "LuaCEmbedTable_set_bool_prop(%s,%q,false);\n", table_name, key )) end if key_type == "string" and is_stream then local sha_name = private_darwin_project.create_c_stream_buffer(val, streamed_shas, stream) local size = io.open(val.filename, "rb"):seek("end") stream(string.format( "LuaCEmbedTable_set_raw_string_prop(%s,%q,(const char*)%s,%d);\n", table_name, key, sha_name, size )) end if key_type == "string" and valtype == "table" and not is_stream then local created_name = private_darwin_project.embed_c_table(val, increment, streamed_shas, stream) stream(string.format( "LuaCEmbedTable_set_sub_table_prop(%s,%q,%s);\n", table_name, key, created_name )) end end return table_name end private_darwin_project.embed_global_in_c = function(name, var, streamed_shas, stream, increment) local var_type = type(var) if var_type == "number" then stream( string.format('LuaCEmbed_set_global_double(darwin_main_obj,"%s",%f);\n', name, var) ) end if var_type == "function" then error("function cannot be embed") end if var_type == "boolean" then if var == true then stream( string.format('LuaCEmbed_set_global_bool(darwin_main_obj,"%s",true);\n', name) ) end if var == false then stream( string.format('LuaCEmbed_set_global_bool(darwin_main_obj,"%s",false);\n', name) ) end end if var_type == "string" then local sha_name = private_darwin_project.create_c_str_buffer(var, streamed_shas, stream) stream(string.format('LuaCEmbed_set_global_raw_string(darwin_main_obj,%q,(const char*)%s,%d);\n', name, sha_name, string.len(var))) end local is_stream = private_darwin.is_file_stream(var) if is_stream then local sha_name = private_darwin_project.create_c_stream_buffer(var, streamed_shas, stream) local size = io.open(var.filename, "rb"):seek("end") stream( string.format( 'LuaCEmbed_set_global_raw_string(darwin_main_obj,%q,(const char*)%s,%d);\n', name, sha_name, size ) ) end if var_type == "table" and not is_stream then local table_name = private_darwin_project.embed_c_table(var, increment, streamed_shas, stream) stream(string.format('LuaCEmbed_set_global_table(darwin_main_obj,%q,%s);\n', name, table_name)) end end -- file src/api/private_darwin_project/methods/c/executable_generators.lua private_darwin_project.generate_c_complex = function(selfobj, props) local include_lua_cembed = true if props.include_lua_cembed ~= nil then include_lua_cembed = props.include_lua_cembed end for i = 1, #selfobj.c_external_code do props.stream("\n") local current = selfobj.c_external_code[i] if private_darwin.is_file_stream(current) then private_darwin.transfer_file_stream(current, props.stream) else props.stream(current) end end if include_lua_cembed then local lua_cembedd = private_darwin.get_asset(PRIVATE_DARWIN_API_ASSETS, "LuaCEmbed.h") props.stream(lua_cembedd) end props.stream([[ int main(int argc, char **argv) { LuaCEmbed *darwin_main_obj = newLuaCEmbedEvaluation(); LuaCEmbedTable *args_table =LuaCembed_new_global_table(darwin_main_obj,"arg"); for(int i =0; i last_string_start_point and not is_a_scape then local is_small_string_end = private_darwin.is_string_at_point(content, "'", i) if is_small_string_end then inside_string = false last_string_end_point = i end end if inside_string and string_starter_char == '"' and i > last_string_start_point and not is_a_scape then local is_medium_string_end = private_darwin.is_string_at_point(content, '"', i) if is_medium_string_end then inside_string = false last_string_end_point = i end end if inside_string and string_starter_char == "[[" and i > last_string_start_point and not is_a_scape then local is_big_string_end = private_darwin.is_string_at_point(content, "]]", i) if is_big_string_end then inside_string = false last_string_end_point = i + 1 end end if inside_string then local current_char = string.sub(content, i, i) if current_char == "\\" then acumulative_scape = acumulative_scape + 1 else acumulative_scape = 0 end is_a_scape = acumulative_scape % 2 == 1 end if not inside_string and not inside_comment then local is_require_start = private_darwin.is_one_of_string_at_point(content, { "require ", "require(" }, i) if is_require_start then waiting_required_string = true required_call_point = i i = i + #"require" end local is_package_start = private_darwin.is_one_of_string_at_point(content, { "package.loadlib ", "package.loadlib(" }, i) if is_package_start then waiting_package_string = true package_call_point = i i = i + #"package.loadlib" end end if (waiting_package_string or waiting_required_string) and not inside_string then local current_char = string.sub(content, i, i) --print(string.sub(content, i-5, i).."("..current_char..")"..string.sub(content, i, i+5)) local valid_chars = { "(", ")", " ", '"', "'", "[", "]", "," } if not private_darwin.is_inside(valid_chars, current_char) then error("invalid package call at:(" .. src .. ") only raw string is allowed ") end end -- means it found a required call if waiting_required_string and not inside_string and last_string_start_point > required_call_point then local require_string = string.sub(content, last_string_start_point, last_string_end_point) local identifier_size = string.len(string_starter_char) require_string = string.sub(require_string, identifier_size + 1, string.len(require_string) - identifier_size) point = private_darwin_project.create_include_stream(selfobj, require_string, relative_path) waiting_required_string = false if point then private_darwin_project.add_lua_file_following_require_recursively(selfobj, point, relative_path) end end if waiting_package_string and not inside_string and last_string_start_point > package_call_point then local package_string = string.sub(content, last_string_start_point, last_string_end_point) local identifier_size = string.len(string_starter_char) package_string = string.sub(package_string, identifier_size + 1, string.len(package_string) - identifier_size) if relative_path then package_string_path = relative_path .. "/" .. package_string end if not private_darwin_project.is_so_includeds(selfobj, package_string) then selfobj.so_includeds[#selfobj.so_includeds + 1] = { comptime_included = package_string, content = darwin.file_stream(package_string_path) } end waiting_package_string = false end i = i + 1 end end private_darwin_project.add_lua_file_following_require = function(selfobj, src, relative_path) if relative_path == nil then relative_path = "." end private_darwin_project.add_lua_file(selfobj, src) private_darwin_project.add_lua_file_following_require_recursively(selfobj, src, relative_path) end -- file src/api/private_darwin_project/methods/lua/generators.lua private_darwin_project.generate_lua_complex = function(selfobj, props) local embed_data = props.include_embed_data if embed_data == nil then embed_data = true end if #selfobj.embed_data == 0 then embed_data = false end local so_dest = props.so_dest if not props.so_dest then so_dest = "/tmp/"..selfobj.project_name.."_so" end -----------------------------Embedding global variables if embed_data then local parse_to_bytes = private_darwin.get_asset(PRIVATE_DARWIN_API_ASSETS, "parse_to_bytes.lua") props.stream(parse_to_bytes) local streamed_shas = {} for i = 1, #selfobj.embed_data do local current = selfobj.embed_data[i] private_darwin_project.embed_global_in_lua(current.name, current.value, streamed_shas, props.stream) end end local required_func_name = "PRIVATE_DARWIN_"..selfobj.project_name.."_REQUIRED_FUNCS" local so_includeds_name = "PRIVATE_DARWIN_"..selfobj.project_name.."_SO_INCLUDED" -----------------------------Embedding so files if #selfobj.so_includeds > 0 then local so_actions = private_darwin.get_asset(PRIVATE_DARWIN_API_ASSETS, "so_actions.lua") local so_actions_format = private_darwin.replace_str(so_actions, "SO_INCLUDE", so_includeds_name) so_actions_format = private_darwin.replace_str(so_actions_format, "PRIVATE_DARWIN_SO_DEST","'"..so_dest.."'") props.stream(so_actions_format) local load_lib_overload = private_darwin.get_asset(PRIVATE_DARWIN_API_ASSETS, "load_lib_overload.lua") local load_lib_overload_format = private_darwin.replace_str(load_lib_overload, "REQUIRE_SO", so_includeds_name) load_lib_overload_format = private_darwin.replace_str(load_lib_overload_format, "PRIVATE_DARWIN_SO_DEST", "'"..so_dest.."'") props.stream(load_lib_overload_format) end -----------------------------Embedding required functions if #selfobj.required_funcs > 0 then props.stream(required_func_name.." = {}\n") for i=1,#selfobj.required_funcs do local current = selfobj.required_funcs[i] props.stream(required_func_name.."[" .. i .. "] = {\n") props.stream("comptime_include ='".. current.comptime_included .. "',\n") props.stream("loaded_obj = nil,\n") props.stream("content = function()\n") private_darwin.transfer_file_stream(current.content, props.stream) props.stream("end\n") props.stream("\n}\n") end local require_code = private_darwin.get_asset(PRIVATE_DARWIN_API_ASSETS, "require_overload.lua") local require_code_format = private_darwin.replace_str(require_code, "REQUIRE_FUNCS", required_func_name) require_code_format = private_darwin.replace_str(require_code_format, "REQUIRE_SO", so_includeds_name) require_code_format = private_darwin.replace_str(require_code_format, "PRIVATE_DARWIN_SO_DEST", "'"..so_dest.."'") props.stream(require_code_format) end -----------------------------Embedding lua code for i = 1, #selfobj.lua_code do props.stream("\n") local current = selfobj.lua_code[i] if private_darwin.is_file_stream(current) then private_darwin.transfer_file_stream(current, props.stream) else props.stream(selfobj.lua_code[i]) end end if #selfobj.required_funcs > 0 then local resset_require = private_darwin.get_asset(PRIVATE_DARWIN_API_ASSETS, "resset_require.lua") props.stream(resset_require) props.stream("\n") end if #selfobj.so_includeds > 0 then local resset_so = private_darwin.get_asset(PRIVATE_DARWIN_API_ASSETS, "resset_so.lua") props.stream(resset_so) props.stream("\n") end end private_darwin_project.generate_lua_code = function(selfobj, props) local content = {} local function stream(data) content[#content + 1] = data end private_darwin_project.generate_lua_complex(selfobj, { stream = stream, include_embed_data = props.include_embed_data }) return table.concat(content, "carview.php?tsp=") end private_darwin_project.generate_lua_file = function(selfobj, props) darwin.dtw.write_file(props.output, "carview.php?tsp=") local file = io.open(props.output, "a+b") local function stream(data) if not file then file = io.open(props.output, "a+b") end if not file then error("impossible to generate output in" .. props.output) end file:write(data) end private_darwin_project.generate_lua_complex(selfobj, { stream = stream, include_embed_data = props.include_embed_data }) if file then file:close() end end -- file src/api/private_darwin_project/methods/lua/lua_embed.lua private_darwin_project.create_lua_str_buffer = function(str_code, streamed_shas, stream) local name = string.format("private_darwin_sha%s", darwin.dtw.generate_sha(str_code)) if private_darwin.is_inside(streamed_shas, name) then return name end streamed_shas[#streamed_shas + 1] = name stream(string.format( "%s = table.concat(PrivateDarwing_parse_to_bytes({", name )) private_darwin.transfer_byte_size_decide(str_code, stream) stream("}))\n") return name end private_darwin_project.create_lua_stream_buffer = function(filestream, streamed_shas, stream) local name = string.format("private_darwin_sha%s", darwin.dtw.generate_sha_from_file(filestream.filename)) if private_darwin.is_inside(streamed_shas, name) then return name end streamed_shas[#streamed_shas + 1] = name stream(string.format( "%s = table.concat(PrivateDarwing_parse_to_bytes({", name )) private_darwin.transfer_file_stream_bytes(filestream, stream) stream("}))\n") return name end private_darwin_project.embed_table_in_lua = function(table_name, current_table, streamed_shas, stream) stream( string.format('%s = {}\n', table_name) ) for key, val in pairs(current_table) do local key_type = type(key) local val_type = type(val) if not private_darwin.is_inside({ "string", "number" }, key_type) then error("invalid key on " .. table_name) end if not private_darwin.is_inside({ "string", "number", "table", "boolean" }, val_type) then error("invalid val on " .. table_name) end -- Format the key appropriately local formatted_key if key_type == "number" then formatted_key = string.format("[%d]", key) else formatted_key = string.format("[%q]", key) end -- Handle different value types if val_type == "number" then stream( string.format('%s%s = %f\n', table_name, formatted_key, val) ) end if val_type == "boolean" then stream( string.format('%s%s = %s\n', table_name, formatted_key, tostring(val)) ) end if val_type == "string" then local sha_name = private_darwin_project.create_lua_str_buffer(val, streamed_shas, stream) stream( string.format('%s%s = %s;\n', table_name, formatted_key, sha_name) ) end local is_stream = private_darwin.is_file_stream(val) if is_stream then local sha_name = private_darwin_project.create_lua_stream_buffer(val, streamed_shas, stream) stream( string.format('%s%s = %s;\n', table_name, formatted_key, sha_name) ) end if val_type == "table" and not is_stream then private_darwin_project.embed_table_in_lua( table_name .. formatted_key, val, streamed_shas, stream ) end end end private_darwin_project.embed_global_in_lua = function(name, var, streamed_shas, stream) local var_type = type(var) if not private_darwin.is_inside({ "string", "number", "table", "boolean" }, var_type) then error("var " .. name .. "cannot be embed") end if var_type == "number" then stream( string.format('%s = %f;\n', name, var) ) end if var_type == "boolean" then stream( string.format('%s = %s;\n', name, tostring(var)) ) end if var_type == "string" then local sha_name = private_darwin_project.create_lua_str_buffer(var, streamed_shas, stream) stream( string.format('%s = %s;\n', name, sha_name) ) end local is_stream = private_darwin.is_file_stream(var) if is_stream then local sha_name = private_darwin_project.create_lua_stream_buffer(var, streamed_shas, stream) stream( string.format('%s = %s;\n', name, sha_name) ) end if var_type == 'table' and not is_stream then private_darwin_project.embed_table_in_lua(name, var, streamed_shas, stream) end end -- file src/cli/blueprint_mode.lua ---@param blueprint string[] ---@param used_flags string[] function Perform_blue_print() local blue_print_mode = darwin.argv.get_flag_arg_by_index_consider_only_first("mode",1, "file") if not private_darwin.is_inside({ "file", "folder" }, blue_print_mode) then private_darwin.print_red("blue print mode must be file or folder\n") return end local file_or_folder = darwin.argv.get_next_unused() if not file_or_folder then file_or_folder = "darwinconf.lua" end if blue_print_mode == "folder" then if not darwin.dtw.isdir(file_or_folder) then private_darwin.print_red(file_or_folder .. "its not a folder\n") return end local all_paths = darwin.dtw.list_files_recursively(file_or_folder, true) for i = 1, #all_paths do dofile(all_paths[i]) end if not main then private_darwin.print_red("main function not provided\n") return end main() end if blue_print_mode == "file" then if not darwin.dtw.isfile(file_or_folder) then private_darwin.print_red("blue print:"..file_or_folder.." its not a file") return end dofile(file_or_folder) end return end -- file src/cli/colors.lua ---typestart ---@class PrivateDarwin ---@field print_color fun(color:string,text:string) ---@field print_red fun(text:string) ---@field print_green fun(text:string) ---@field print_blue fun(text:string) ---typeend private_darwin.print_color = function(color, text) local RESSET = "\x1b[0m" io.write(color .. text .. RESSET) end private_darwin.print_green = function(text) private_darwin.print_color("\x1b[32m", text) end private_darwin.print_blue = function(text) private_darwin.print_color("\x1b[34m", text) end private_darwin.print_red = function(text) private_darwin.print_color("\x1b[31m", text) end -- file src/cli/default_execution.lua local valid_out_modes = { lua= {"lua"}, executable_source= {"c"}, lib_source={}, linux_bin={"o", "out"}, windows_bin={"exe"}, linux_so={"so"}, windows_dll={"dll"} } local function get_default_output_mode(output) local extension = darwin.dtw.newPath(output).get_extension() for key,val in pairs(valid_out_modes) do for i=1,#val do if val[i] == extension then return key end end end return nil end function output_mode_its_valid(output_mode) if not output_mode then return false end for key,_ in pairs(valid_out_modes) do if key == output_mode then return true end end return false end function Default_execution() local output = darwin.argv.get_flag_arg_by_index_consider_only_first({"o", "output"},1) if not output then private_darwin.print_red("output not found") return end local output_mode = darwin.argv.get_flag_arg_by_index_consider_only_first( {"mode", "output_mode"}, 1, get_default_output_mode(output) ) if not output_mode_its_valid(output_mode) then private_darwin.print_red("output mode not valid") return end local default_name = darwin.dtw.newPath(output).get_only_name() local project_name = darwin.argv.get_flag_arg_by_index_consider_only_first({"name"}, 1,default_name) local project = darwin.create_project(project_name) local ok =get_embed_vars(project) if not ok then return end local cinclude_size = darwin.argv.get_flag_size_consider_only_first({"c_include"}, 1) for i=1,cinclude_size do local cinclude = darwin.argv.get_flag_arg_by_index_consider_only_first( "c_include", i) project.add_c_include(cinclude) end local c_call_size = darwin.argv.get_flag_size_consider_only_first({"c_call"}, 1) for i=1,c_call_size do local c_call = darwin.argv.get_flag_arg_by_index_consider_only_first({"c_call"}, i) project.add_c_call(c_call) end local c_amalgamate_size = darwin.argv.get_flag_size_consider_only_first({"amalgamation"}, 1) for i=1,c_amalgamate_size do local c_amalgamate = darwin.argv.get_flag_arg_by_index_consider_only_first({"amalgamation"}, i) project.add_c_file(c_amalgamate, true) end local lib_objects_size = darwin.argv.get_flag_size_consider_only_first({"lib_objects"}, 1) for i=1,lib_objects_size do local lib_object = darwin.argv.get_flag_arg_by_index_consider_only_first({"lib_objects"}, i) local func_name_flag = lib_object..":func" local func_name = darwin.argv.get_flag_arg_by_index_consider_only_first({func_name_flag}, 1) project.load_lib_from_c(func_name, lib_object) end if output_mode == "lua" then create_lua_project(project,output, output_mode) return end if output_mode == "linux_bin" or output_mode == "windows_bin" then create_executable_bin_project( project,output, output_mode) return end if output_mode == "executable_source" then create_executable_c_project(project,output, output_mode) return end if output_mode == "lib_source" then create_lib_source_project(project,output, output_mode) return end if output_mode == "linux_so" or output_mode == "windows_dll" then create_dynamic_link_lib_project( project,output, output_mode) return end end -- file src/cli/drop.lua function Drop_types() local file = darwin.argv.get_next_unused() if not handle_unused() then return end if not file then file = "darwintypes.lua" end darwin.dtw.write_file(file, PRIVATE_DARWIN_TYPES) end function Drop_lua_cembed() local file = darwin.argv.get_next_unused() if not handle_unused() then return end if not file then file = "LuaCEmbed.c" end local lua_cembedd = private_darwin.get_asset(PRIVATE_DARWIN_API_ASSETS, "LuaCEmbed.h") darwin.dtw.write_file(file, lua_cembedd) end -- file src/cli/embed_data.lua ---@param project DarwinProject function get_embed_vars(project) local embed_vars_size = darwin.argv.get_flag_size_consider_only_first("embed_vars") for i=1,embed_vars_size do local embed_var = darwin.argv.get_flag_arg_by_index_consider_only_first("embed_vars", i) local possible_text = darwin.argv.get_flag_arg_by_index_consider_only_first(embed_var..":text",1) local possible_file = darwin.argv.get_flag_arg_by_index_consider_only_first(embed_var..":file",1) local possible_folder = darwin.argv.get_flag_arg_by_index_consider_only_first(embed_var..":folder",1) if not possible_text and not possible_file and not possible_folder then private_darwin.print_red("embed_var:"..embed_var.." not found\n") return false end if possible_text then project.embed_global(embed_var, possible_text) end if possible_file then project.embed_global(embed_var,darwin.file_stream(possible_file)) end if possible_folder then local folder_to_be_embed = {} if not darwin.dtw.isdir(possible_folder) then private_darwin.print_red("folder not found") return end local concat_path = false local files = darwin.dtw.list_files_recursively(possible_folder,concat_path) for i=1,#files do local file = files[i] local full_path = darwin.dtw.concat_path(possible_folder,file) folder_to_be_embed[file] = darwin.file_stream( full_path) end project.embed_global(embed_var,folder_to_be_embed) end end return true end -- file src/cli/errors.lua function handle_unused() local unused_index = darwin.argv.get_next_unused_index() if unused_index then local unused_arg = darwin.argv.get_arg_by_index(unused_index) local msg = "arg: " .. unused_arg .. " at index: " .. unused_index .. " its unused" private_darwin.print_red(msg) return false end return true end -- file src/cli/lua_save.lua function handle_main_file(project) local entry_mode = darwin.argv.get_flag_arg_by_index_consider_only_first("entry_mode",1, "file") if not private_darwin.is_inside({"file","folder"},entry_mode) then private_darwin.print_red("entry mode not valid") return end local relative_path = darwin.argv.get_flag_arg_by_index_consider_only_first("relative_path") local main_file_or_folder = darwin.argv.get_next_unused() if not main_file_or_folder then private_darwin.print_red("main file not found") return false end if entry_mode == "file" then project.add_lua_file_following_require(main_file_or_folder,relative_path) end if entry_mode == "folder" then if not darwin.dtw.isdir(main_file_or_folder) then private_darwin.print_red(main_file_or_folder .. "its not a folder\n") return false end local all_paths = darwin.dtw.list_files_recursively(main_file_or_folder, true) for i = 1, #all_paths do project.add_lua_file(all_paths[i],relative_path) end end return true end -- file src/cli/main.lua ---typestart ---@class PrivateDarwin ---@field main fun() ---typeend private_darwin.main = function() darwin.argv.get_arg_by_index(1) if darwin.argv.one_of_args_exist("run_blueprint") then Perform_blue_print() elseif darwin.argv.one_of_args_exist("drop_types") then Drop_types() elseif darwin.argv.one_of_args_exist("drop_lua_cembed") then Drop_lua_cembed() else Default_execution() end end -- file src/cli/projects/dynamic_link_lib.lua function create_dynamic_link_lib_project( project,output, output_mode) local compiler = nil if output_mode == "windows_bin" then compiler = darwin.argv.get_flag_arg_by_index_consider_only_first("compiler",1,"i686-w64-mingw32-gcc") end if output_mode == "linux_bin" then compiler = darwin.argv.get_flag_arg_by_index_consider_only_first("compiler",1, "gcc") end local flags_size = darwin.argv.get_flag_size_consider_only_first("flags") local flags_text = "carview.php?tsp=" for i = 1, flags_size do local flag = darwin.argv.get_flag_arg_by_index_consider_only_first("flags", i, "carview.php?tsp=") flags_text = flags_text .. " " .. flag end if not handle_main_file(project) then return end if not handle_unused() then return end local cache_output = "darwin_cache.c" darwin.dtw.remove_any(cache_output) project.generate_c_lib_file({ output = cache_output, object_export = object_export }) os.execute(compiler.." -shared -fPIC "..cache_output.." -o "..output.." "..flags) end -- file src/cli/projects/executabe_bin_project.lua function create_executable_bin_project(project, output,output_mode) local compiler = nil if output_mode == "windows_bin" then compiler = darwin.argv.get_flag_arg_by_index_consider_only_first("compiler",1,"i686-w64-mingw32-gcc") end if output_mode == "linux_bin" then compiler = darwin.argv.get_flag_arg_by_index_consider_only_first("compiler",1, "gcc") end local flags_size = darwin.argv.get_flag_size_consider_only_first("flags") local flags_text = "carview.php?tsp=" for i = 1, flags_size do local flag = darwin.argv.get_flag_arg_by_index_consider_only_first("flags", i, "carview.php?tsp=") flags_text = flags_text .. " " .. flag end if not handle_main_file(project) then return end if not handle_unused() then return end local cache_output = "darwin_cache.c" darwin.dtw.remove_any(cache_output) project.generate_c_file({ output = cache_output, include_embed_data = true }) os.execute(compiler.." "..cache_output.." -o "..output.." "..flags_text) darwin.dtw.remove_any(cache_output) end -- file src/cli/projects/executable_c_project.lua function create_executable_c_project(project, output, output_mode) if not handle_main_file(project) then return end if not handle_unused() then return end project.generate_c_file({ output = output, include_embed_data = true }) end -- file src/cli/projects/lib_source.lua function create_lib_source_project(project,output, output_mode) local object_export = darwin.argv.get_flag_arg_by_index_consider_only_first("object_export", 1) if not object_export then private_darwin.print_red("Error: object_export is required") return end if not handle_main_file(project) then return end if not handle_unused() then return end project.generate_c_lib_file({ output = output, object_export = object_export }) end -- file src/cli/projects/lua_project.lua ---@param entry string ---@param output string ---@param output_mode string function create_lua_project(entry_mode,project,output,output_mode) if not handle_main_file(project) then return end if not handle_unused() then return end project.generate_lua_file({ output = output, include_embed_data = true }) end private_darwin.main()
????????????JKIM
__eq__band__bor__bxor__shl__shr__bnot__lt__le__concat__call`?Gp?G?vG?G{?G??T%?G+?G1?G7?G=?GC?GI?G??T??T??T??T??TP?G??T??T??T??T??T}?G ?A??Al?AB?B?
B
BvB?BsB;BbB?B| BB[ B$B?B?B?B?B?B?B?B B<"B?$Bj&B?'B\*B?+B-Bf.B?/B?0B3B&5B]7B?9B?;B=Bz?B-AB?BBFBoDB?GB?HB?IBKB?LBFNB?NB?OB?PBGQB?QB@RBBSBUB?VB?WB?XB?ZBP\B?]B?_B?`B?aB?bB?cBQeBfB`gB?hB?iB?jB4lB?lB?nB?oB?pBxqBstoprestartisrunningparam??T??T??G??G?G??T??G??G??T
 minormulmajorminorminormajorpausestepmulstepsize1?T:?TE?TP?TV?T^?T
linetail call??G%wG??T??G??Tset??TH?G?vG
nofull??T??T??T@?:CL7C?8CZ9Ccollatectypemonetarynumeric?G?T?T?T?TF?G
?????
abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
?/?B?D7q?????۵?[?V9??Y?????^????
[???1$?}Ut]?r??ހ?ܛt???i??G??Ɲ?̡$o,?-??tJܩ?\ڈ?vRQ>?m?1??'??Y????G???Qc?g))? ?'8!.?m,M 8STs e? jv.??,r??迢Kf?p?K£Ql???$?օ5?p?j??l7LwH'???4?9J??NOʜ[?o.htoc?xxȄnj?????lP??????xq???-DT?!??-DT?!???!3|?@??V瞯?<U???k@@$@(w@0@?A???C?@?@??cܥL@9?R?Fߑ??<-DT?! @?@?@?????????A???C0zXl? ??2D
KuFu|uxutCup; ?
A?A?A?A?CF? ?
A?A?A?A?CC??#????#????#??C T
zR
|
?
,?#???A?B F???} ?A?A?A?GL,$??/A?B k?
zR
|
?
$$??A?B V?<$??-A?B i?\+$??-A?B i? |8$??<A?B D?t???P$??-A?B i??]$??4A?B p??q$??(A?B d?
y$??:A?B v?
?$???A?B ?@
?$??OA?B K?`
%%??A?B Z??
#%??=A?B y??
@%??FA?B B??
f%???A?B ???
&??7A?B s?2&???A?B ?? ?&??7A?B s?@'??^A?B Z?`P'??7A?B s??g'??bA?B ^???'??CA?B ???'???A?B ???5(??DA?B @?Y(??mA?B i? ?(??wA?B s?@?(???A?B }?`^)??)A?B e??g)???A?B }???)??
A?B ????*??)A?B e???*??)A?B e??*??nA?B j? +??)A?B e?@+???A?B ??`?+??7A?B s???+???A?B ???,??7A?B s???,??
A?B 
??z-??)A?B e??-??!A?B ]? ?-???A?B D????D?-??BA?B ~?d.??AA?B }??-.??TA?B P??a.??A?B X??].???A?B ????.??.A?B j??.??OA?B K?$/??+A?B g?D&/??7A?B s?d=/??6A?B r??S/??MA?B I???/??{A?B w???/??&A?B b???/??(A?B d??/??3A?B o?$?/??LA?B H?D(0???A?B ??d?0???A?B ???/1???A?B ????1??9A?B u???1??yA?B u??2??7A?B s?,2??SA?B O?$_2??)A?B e?Dh2???A?B ??d?2??
A?B 

???3??PA?B L???3??WA?B S??"4??lA?B h??n4??9A?B u? ?4??NA?B J?$ ?4??9A?B u?,D ?4??
A?B I????
?A?A?A? t ?6???A?B D????(? 7???A?B I?????A?A?A?? ?7???A?B ??? g=??@A?B |? ?=??A?B Q?$ |=??A?B X?D x=??A?B Q?d m=??A?B Q?? b=??A?B Q?? W=??MA?B I?? ?=??.A?B j?? ?=??A?B [??=??SA?B O?$?=??]A?B Y?D
>???A?B ??di>???A?B ????>???A?B ????????A?B ?? ?K@???A?B D??????@??GA?B C?A??7A?B s?(%A??{A?B w?H?A??`A?B \?h?A???A?B ???TB??WA?B S???B??JA?B F???B???A?B ???gC??:A?B v? ?C??yA?B u?( ?C??VA?B R?H D??)A?B e?h D??:A?B v?? 3D???A?B ??? ?D???A?B ??? E??0A?B l?? E???A?B ???E??HA?B D?(?E??HA?B D?H?E??fA?B b?h F??A?B {??F??dA?B `???F??pA?B l??G??4A?B p??'G??IA?B E?PG???A?B }?(?G??[A?B W?H?G???A?B ??h?H??LA?B H???H??A?B ??H??IA?B E???H??lA?B h??"I???A?B ???I??eA?B a? $?I???A?B D????HtJ??AA?B d?J??MA?B I? ??J??HA?B D?@????J??MA?B I??K??lA?B h??cK??aA?B ]??K??A?B W?(?K??A?B W?H?K??%A?B a?h?K??(A?B d? ??K??A?B G?????N???A?B ???IO???
A?B ?
? ??P??C
A?B D?;
?? ?Q???A?B D???? 4?R???A?B D????XvU???A?B ??xLV??_A?B [???V??GA?B C???V??5
A?B 1
???W??r
A?B n
??Y??RA?B N? KY??IA?B D?A??<pY??)A?B e?\yY??fA?B b?|?Y??A?B W???Y??A?B W???Y??/A?B k???Y??/A?B k???Y??a
A?B ]
?[??WA?B S?<K[???A?B ??\ \??YA?B U?|F\???A?B ????\???
A?B ?
???^???A?B ???`_???A?B ???`???A?B ???`??IA?B E?<?`??fA?B b?\$a??hA?B d?|la???A?B ???a??OA?B K???a??;A?B w??b???A?B ????b??XA?B T?$c??
A?B 
?<d??eA?B a?\]d???A?B ??|?d???A?B ???e???A?B ???Nf??LA?B H??zf???A?B ???;g??CA?B ?^g??9A?B 5?<wj??#A?B _?\zj??@A?B |?|?j???A?B ???Ok??^A?B Z???k??*A?B f???k??A?B Z???k??^A?B Z??k???A?B ~? <5l???A?B D?~??`?l??XA?B T???l??~A?B z??-m??)A?B e? ?6m??h
A?B D?`
???zn??bA?B ^??n??RA?B N?$?n???A?B ??D?o??>A?B z?d?o???A?B ?? ?Jp??lA?B D?d?? ??p??C
A?B D?;
????q???A?B ???Zr???
A?B ?
? (t???A?B D????0u??f
A?B b
?PIv???A?B ??p?v???
A?B ?
???x???A?B }??0y???A?B ????y??T
A?B P
???z???A?B ???{??-A?B i?0?{???A?B ?? P|???A?B D???? t?|???
A?B D?~
???~??>A?B z? ?:~???
A?B D??
???????A?B ???????6A?B r?????MA?B I?<????A?B ??\d???)A?B e?|m????
A?B ?
?????*A?B f?????A?B W??????A?B ???????A?B V????iA?B e?<ȃ??D
A?B @
?\???]A?B Y?|)????A?B ??????
A?B 
??چ???A?B ????????A?B |??????lA?B h?A???CA?B ?<d????A?B ??\????gA?B c? |A????A?B D??????????A?B ???????4A?B p??????gA?B c?܌??gA?B c? #???5A?B q?@8????A?B ??`????4A?B p??ō??4A?B p??ٍ???A?B ???D???A?B ??*???ZA?B V? d????
A?B ?
? ???6A?B r?@ 2????A?B ??` Ғ???A?B ?? 5???{A?B w?? ?????A?B ?? ? ?????A?B D????? ?????A?B ??!????A?B ??$!m???^A?B Z?D!?????A?B `!???"A?B |!????A?B ???!Ζ???A?B ?? ?!?????A?B D?????!-???YA?B U?"f????A?B ?? "И??A?B ?@"?????A?B ??`"x????A?B ???"????A?B ~??"T????A?B ?? ?"Ğ??JA?B D?B?? ?"????
A?B D??
??#????RA?B N?(#?????A?B ??H#~???A?B  ?h#o????A?B ???#٬??gA?B c??# ???)A?B e??#)???"A?B ?#/????A?B ?$????#A?B _?$$?????A?B ??D$b???4A?B p?d$v???
A?B 
??$e???=A?B y??$????nA?B j??$Я??iA?B e??$???+A?B g?%$???dA?B `?$%h???AA?B }?D%????A?B S?d%????HA?B D??%?????A?B ???%???AA?B }??%@???~A?B z??%????1A?B m?&????0A?B l? $&????E
A?B D?=
??H&???vA?B r?h&6???#A?B _? ?&9????A?B D?????&????8A?B t??&ֳ??(A?B d??&޳??3A?B o?'???3A?B o?,'??? A?B \?L'???nA?B j?l'R???VA?B R??'????-A?B i??'????)A?B e??'????[A?B W??'ٴ??(A?B d?(???VA?B R?,(???A?B ?
?L(????GA?B C?l(???HA?B D??(F????A?B ???(???%A?B a??(????%A?B a??(????FA?B B?$)#???DA?B E??y?A?A?4)????AA?B }?T)`???}A?B y?t)?????A?B ???)5????A?B ???)?????A?B ???)???-A?B i??)(????A?B ??*????gA?B c?4*׼???
A?B ?
?T*y???IA?B E?t*????DA?B @??*ƾ??SA?B O??*?????
A?B ?
??*m???cA?B _? ?*?????A?B D????+???5A?B q?8+2????A?B {?X+Q????A?B ??x+%???<A?B x??+A???OA?B K??+p????
A?B ?
??+?????A?B ???+j???0A?B l?,z????A?B ??8,2????A?B ??X,?????A?B ??x,R????A?B ???,0???SA?B O??,c???+A?B g? ?,n???@A?B D?x???,????<A?B x?-?????A?B ??<-&???+
A?B '
?\-1????A?B ??|-?????A?B ???-????A?B N??-????A?B G??-????A?B G??-?????A?B ~?.?????A?B ??<.?????A?B ??\.???\A?B X?|.K????A?B ~? ?.????
A?B D?
???.????}A?B y??.????HA?B D?/#????A?B ?? /?????A?B ??@/5????A?B ??`/????b
A?B ^
??/ ???
A?B 
??/?????A?B ???/u???
A?B 
??/\????A?B ??0????A?B ?? 0????/A?B k?@0?????A?B ??`0'????A?B ???0????NA?B J??0????4
A?B 0
??0???AA?B ?06????A?B ?0????*A?B f?1????*A?B f?81????&A?B b?X1????&A?B b? x1?????A?B D?????1????2A?B n??1Q???-A?B i??1^???.A?B j??1l???#A?B _? 2o???4
A?B D?,
?? @2????A?B D????d2E???"A?B ^??2G???(A?B d??2O???KA?B G??2z???!A?B ]??2{???PA?B L?3????PA?B L?$3????
A?B 
?D3?????A?B ??d3?????A?B ~??3????OA?B K? ?3?????A?B D?????3?????A?B ???3[????A?B ??4????9A?B u?(4????'A?B c?H4????
A?B 
?h4?????A?B ???4m????A?B ???4????A?B D??4?????A?B ???4W???SA?B O?5?????A?B ??$52???5A?B q?D5G????A?B ??d5?????A?B ?? ?5d????A?B D?????5?????A?B ???5S????A?B D??5????f
A?B b
? 64???
A?B D?
??(6)???fA?B b?H6o???4
A?B 0
?h6????A?B ??6k???CA?B ??6????FA?B B??6????ZA?B V??6????NA?B J?7???
A?B 
?(7????A?B ??H7t????A?B ??h71???*A?B f??7;???zA?B v??7?????
A?B ?
??7???OA?B K??7A???
A?B ??8#???
A?B ??(8???hA?B d?H8N????
A?B ?
?h8?????A?B ???8{???J
A?B F
??8????A?B ??8????RA?B N??8????
A?B 
?9????^
A?B Z
?(9????#A?B _?H9????BA?B ~?h9????
A?B ?
??9?????
A?B ?
??9=??AA?B }? ?9^???A?B D???? ?91
??iA?B D?a??:v
???A?B ??0:?
???A?B ?P:=???A?B ??p:???Z
A?B V
??:(??0A?B l??:8??sA?B o??:????
A?B ?
??:???e
A?B a
?;7???
A?B ?
?0;????A?B ?? P;f ???
A?B D??
??t;? ???A?B ???;???A?B ???;????A?B ???;???[A?B W??;????
A?B ?
?<M??gA?B c?4<????A?B ??T<???A?B ??t<???;
A?B 7
??<????
A?B ?
??<???A?B ?? ?<@???
A?B G??
???<???"A?B ^?=????A?B ??8=_??\A?B X?X=???)A?B e?x=???3A?B o??=???aA?B ]??=???A?B G??=???A?B G??=???A?B G?>???kA?B g?8>??AA?B }?X>%??_A?B [?x>d???A?B ???>????A?B ???>???|A?B x??>A??
A?B 
??>;??DA?B @??_??
A?B 
?8?Y??BA?B ~?X?{???
A?B ?
?x???
A?B 
?????A?B S??????
A?B ?
???x??dA?B `???????
A?B ~
?@ ??EA?B A?8@C ??YA?B U?X@| ??}A?B y?x@? ???
A?B ?
??@K"???
A?B ?
??@?#???A?B ???@J$??SA?B O??@}$??hA?B d?A?$??6A?B r?8A?$???A?B ??XAs%??CA?B tA?%??5A?B ?A?%???A?B ?A &??6A?B ?A:&??JA?B ?Ah&??7A?B B?&??SA?B B?&???A?B 8B'???A?B ??XB?'???A?B tB6(???A?B  ?B?(???A?B D?????Bm)??xA?B t??B?)??FA?B B??B?+???A?B {?C ,??hA?B d?4CR,???A?B ??TC?,???A?B ??tC[-??^A?B Z??C?-???A?B ???Cq.???A?B ???C?.??hA?B d??C3/???A?B ??D?/??-A?B i?4D?/???A?B ??TD0??MA?B I?tD?0??zA?B v??D1???A?B ???D?1??=
A?B 9
??D?2???A?B ???D?3??9A?B u?E?3??iA?B e?4E?3???A?B ??,TE|4???
A?B F????
?A?A?A??E?5???A?B ?? ?E?6???A?B D?????Ed9??^A?B Z??E?9??-A?B i?F?9??CA?B ?(F?9??GA?B C?HF?;???A?B ~?hF[A?B D?v???M?\???A?B ??Nt]???
A?B ?
?$N _??gA?B c?(DNP_???A?B F?????A?A?A?pN?_??}A?B y??N(`??YA?B U?(?Na`???A?B F?????A?A?A??N?`???A?B ???N?a???A?B ??O"b??/A?B k?5??]A?B Y??d{5???A?B ???d?5???A?B ???dt6???A?B ???d?6??D
A?B @
?e#8??4A?B p?(e78??
A?B ??He9??1A?B m?,he+9??=A?B F???0?A?A?A??e8;???A?B ???e?;??0A?B l??e?;???A?B {??e???A?B ??xfX???-A?B i??fe????
A?B ?
??f?@??
A?B 
??f?A??hA?B d??fB??A?B K?g?A??3A?B /?8gD??RA?B Tg=D??hA?B d?tg?D??\A?B X??g?D???A?B ???g,E??IA?B E??gUE??*A?B f??g_E??A?B Y?h\E??$A?B `?4h`E??"A?B ^?ThbE???A?B ??th?E??
A?B 
??h?F???A?B ???hEG???A?B ???h H??cA?B _??hPH???A?B ??i?H???A?B ??4iNI??E
A?B A
?TisJ??@
A?B <
?ti?K??%
A?B !
??i?L???A?B ???iM?? A?B ??i?N??
A?B 
??i?O???A?B ??j?P??1A?B m?4j?P???A?B ~?TjQ??XA?B T?tj?Q???A?B ???j?Q???A?B ???jBR???A?B ???j?R??6A?B r??j?R???A?B ??kkS??PA?B L?4k?S???A?B ??TkDT??\A?B X?tk?T??AA?B }??k?T??BA?B ~??k?T??OA?B K??k?T??_A?B [??k1U??PA?B L?laU??AA?B }?4l?U??UA?B Q?Tl?U??NA?B J?tl?U??DA?B @? ?l V???A?B D?????l?V??(A?B d??l?V??A?B {??lW??vA?B r?mkW??5
A?B 1
?8m?X??"A?B ^?Xm?X??VA?B R?xm?X??*A?B f??m?X??#
A?B 
??m?Y??%A?B a??m?Y???A?B ???m3Z??CA?B ?nVZ??4A?B p?8njZ??p
A?B l
?Xn?[???A?B ??xn;\??zA?B v??n?\???A?B ???n]??SA?B O??n>]??\A?B X??nz]??bA?B ^?o?_??9A?B u?8o?_??<A?B x?Xo?_??8A?B t?xo `???A?B ???o?`???A?B ??o?`??uA?B q??o:a???A?B ???o?c???A?B ??pOd???A?B ??8p?d??I
A?B E
?Xp?e??A?B {?xpXf??lA?B h??p?f??2A?B n??p?f???A?B ???pg???A?B ???p?g??"A?B ^?q?g???A?B ??8q-h??}A?B y?Xq?h??wA?B s?xq?h?? A?B I??q?h??fA?B b??qi??zA?B v??qni??
A?B 
??qXj???A?B ?? rk??O
A?B D?G
??x??A?B R??t4x???A?B ??u?x???A?B ??A?B :?Ѕ(???jA?B f???r????A?B ????????A?B ??0?n????A?B ??P?-????A?B ??p?κ??;A?B w??????nA?B j???7????A?B |?І????o
A?B k
?(??????A?B F?????A?A?A???????A?B ??
?,?G/??A?B H?L?3/???A?B ??l??/??
A?B 
????0??
A?B 
????1??
A?B 

?̙?2??
A?B 
???3??
A?B ???s4??
A?B 
?,?`5??A?B ?L?S8???
A?B ?
? l?:???A?B D???????:???A?B ???;??lA?B h?Кj;???A?B ?????&A?B b????>??A?B K?؛?>??A?B J????>??A?B Y???>???A?B ??8?)????A?B ??X?????@A?B |?x?????mA?B i???@???A?B ?????E??R
A?B N
?؜G???A?B ?????G??UA?B Q???G??UA?B Q?8??G??A?B T?X??G??3A?B o?x?H??8A?B t???H??(A?B d???&H??aA?B ]?؝gH??WA?B S????H??FA?B @???H???
A?B ?
?8?dJ???A?B ??X?A?B z???
P??uA?B q???VP??jA?B f???P??hA?B d? ??P??kA?B g?@?3Q??lA?B h?`?Q???A?B |????Q???A?B ????\R???A?B ?????R???
A?B ?
???T??6A?B r???T??=A?B y? ??T??IA?B E?@?U??BA?B ~?`?)U??=A?B y???FU??9A?B u???_U???A?B ?????U??~A?B z??CV??yA?B u???V??rA?B n? ??V??uA?B q? @?CW??rA?B D?j??d??W???A?B ~????W??|A?B x???OX??zA?B v?Ģ?X??~A?B z??Y??
A?B 
???Y??FA?B B?($?Z??6A?B E??+?A?A?P?$\??RA?B N?p?V\??A?B O???I\??SA?B O???|\??TA?B P?У?\???A?B ???.]???A?B ????]???A?B ??0?'^???A?B ??P??^???A?B ??p?<_???A?B ?????_???A?B ?????`??pA?B l?Ф?`??z
A?B v
??Fb??HA?B D??nb??cA?B _?0??b???
A?B ?
? P?bd???A?B D???? t??d???A?B D??????4e???A?B ?????e??KA?B G? إf??MA?B D?E????8f??]
A?B Y
??ug???
A?B ?
?A?B z?ش????YA?B U??????N
A?B J
??!???~A?B z?8????rA?B n?X?Ѳ???
A?B ?
?x?????:A?B v???????tA?B p??????A?B V?ص????tA?B p???Q???A?B V??K????A?B ??8????A?B V?X?????lA?B h?x?9???xA?B t???????=A?B y???????)A?B e?ض????)A?B e???????)A?B e??ɶ??AA?B }?8????HA?B D?,X????NA?B I???>?A?A?A???0????A?B ?????????A?B ??ȷ?????
A?B ?
??9???KA?B G??d???$A?B `?(?h???D
A?B @
?H?????=A?B y?h??????A?B ????;????A?B ?????????A?B ??ȸ?????A?B ???Ŀ??A?B G???????A?B ??(?,????A?B ??H?????RA?B N?h?????kA?B g??????(A?B d???$???KA?B G?ȹO????A?B ????????A?B ???B???YA?B U?(?{???A
A?B =
?H?????BA?B ~?h?????X
A?B T
???????!
A?B 
???????eA?B a?Ⱥ???UA?B Q???s???QA?B M????????A?B ??Լ-???A?B V???'????A?B ???????8A?B t?4?????RA?B N?T?????A?B V?t?????:A?B v??????bA?B ^???H???=A?B y?Խe???;A?B w?$???????A?B E????A?A??V???A?B G?A?B z???????A?B ?????"??a
A?B ]
???#??&
A?B "
?,??$???A?B ??L??%??7A?B s?l??%??SA?B O???&??tA?B p???V&??\A?B X????&??cA?B _????&??EA?B A???&??GA?B C?,?!'??_A?B [?L?`'??KA?B G?l??'??kA?B g????'??0A?B l????'??0A?B l????'??0A?B l???(??0A?B l??(??)A?B e?,?(??@A?B |?L??(??PA?B L?l?o(???A?B ????5)??=
A?B 9
???R*???A?B ?????*???A?B ????H+??TA?B P??|+??SA?B O?,??+??EA?B A?L??+??+A?B g? l??+???A?B G??????c,??)A?B e???l,??XA?B T????,??dA?B `????,??_A?B [??'-??SA?B O?0?Z-??:A?B v?P?t-??wA?B s?p??-??wA?B s???".???A?B ?????.??wA?B s????.???A?B ????e/???A?B ???0???A?B ??0??0??!A?B ]?P??0??]A?B Y?(p??0???A?B F?????A?A?A? ???1???A?B D????(??$2???A?B F?????A?A?A????2??]A?B Y???2??*A?B f?,,??2???
A?B I????
?A?A?A?\??4??qA?B m? |??4???A?B D??????s5??*A?B f?,??}5???
A?B I???}
?A?A?A????6??]A?B Y?,?7??8A?B I???(?A?A?A? @?:???A?B D????d??:??*A?B f????:??A?B U?,???:??A?B I????A?A?A????>??A?B N????>??)A?B c???>??*A?B d?4??>??9A?B u? T??>???A?B D????x?v???mA?B i????????A?B ????8@??=A?B y???U@???A?B ????A?? A?B F???@???
A?B ?
?8??B??~A?B x? X??B???A?B D????|??C???
A?B ?
? ??@E??OA?B D?G????kE??^A?B Z????E??
A?B ?
???G???A?B ?? ?YH???
A?B ?
?@?J???A?B ??`??L??sA?B o????N??A?B Y????N???A?B ????lO??|A?B x????O??KA?B E???O??|
A?B v
? ?OQ??(A?B b?@?WQ??/A?B i?`?fQ??k
A?B g
????R??%A?B _????R??%A?B _? ???R???A?B D???? ??JS??|A?B D?r????S???A?B ??(?V???
A?B ?
?H??W??A?B ?h??Y???
A?B ?
???C[???A?B ????^??'A?B #??? a??EA?B ???Ea??BA?B ~??ga??)A?B c?(?pa???A?B ??H??a??$A?B ^?h??a??$A?B ^???b??'A?B a??? b??A?B S???b???A?B ????db???A?B ????b??A?B V?(??b??A?B D?H??b???A?B ??h?fc??3A?B m???yc??3A?B m????c??9A?B s????c??VA?B P????c??WA?B Q??d??WA?B Q?(?Id??WA?B Q?H??d??`A?B Z?h??d??lA?B f???e??`A?B Z???Le??`A?B Z????e??WA?B Q????e??WA?B Q???e???A?B ??(?if??;A?B u?H??f??+A?B e?h??f??7A?B q????f??7A?B q????f??+A?B e????f??+A?B e????f???A?B ???hg???A?B ??(?6h??BA?B |?H?Xh???A?B ??h??h??+A?B e????h??+A?B e???i??*A?B f??? i??*A?B f???i??*A?B f??!i??:A?B t?(?;i???A?B ??H??i??dA?B ^?h??i??=A?B w???j??=A?B w???3j??=A?B w???Pj??dA?B ^????j??*A?B f???j??*A?B f?(??j???A?B ??H?ok???A?B ??h?0l???A?B ?????l???A?B ?????m???
A?B ?
???>o??HA?B D???fo??WA?B S???o???A?B ??(?ap???A?B ??H? q??%A?B _?h?q??&A?B `???q??&A?B `???q??%A?B _???#q??&A?B `???)q??&A?B `??/q??&A?B `?(?5q??&A?B `?H?;q??&A?B `?h?Aq??(A?B b???Iq???A?B ????'t??A?B Q???t??A?B Y???t??A?B M? ?t??A?B G???,?w???A?B ?? L?lw??
A?B D?

??p?Qx???
A?B ?
???z??BA?B ~????z??xA?B t????z??QA?B M????z??rA?B n? ?{??[A?B D?S??4?Q}??1A?B m? T?b}???A?B D????x??}???A?B ?????~??MA?B I????~??MA?B I?????MA?B I? ??9??A?B G?????????A?B ??$???zA?B v?H?????yA?B u?h?????A?B ????l????A?B ????ռ??{A?B w???0???rA?B n????????A?B ???3???rA?B n?(?????XA?B T?H?????SA?B O?h????*
A?B &
???????sA?B o???M???.A?B j???[???,A?B h???g????A?B ??????M
A?B I
?(?2????A?B ??H?????q
A?B m
?h?:???4A?B p???N???oA?B k????????A?B ????:???4A?B p???N???GA?B C??u???4A?B p?(?????7
A?B 3
?H??????
A?B ?
?h?n???;A?B w???????7A?B s???????oA?B k????????A?B ????????~A?B z?

????A?B ??(
?????A?B ??H
?????
A?B ?
?h
1???}
A?B y
??
????u
A?B q
??
????l
A?B h
??
/????A?B ???
?????A?B ??

]????A?B ??(

?????A?B ??H

????@
A?B <
?h

????0A?B ,??

?????A?B ???

?????
A?B ?
??

?????A?B ???

????r
A?B n
?
????A?B ??(
????M
A?B I
?H
????
A?B 
?h
????N
A?B J
??
?????
A?B ?
??
q????
A?B ?
??
???A?B 
??
?????
A?B ?
?
????[
A?B W
?(
?????A?B ??H
5????A?B ??h
????iA?B e??
F????A?B ???
????s
A?B o
? ?
????A?B D???? ?
?????
A?B D??
?? 
t????A?B D???? 4
O????
A?B D??
?? X
?????A?B D???? |
?????
A?B D??
?? ?
????A?B D???? ?
?????
A?B D??
???
p???zA?B v?
????yA?B u?(
#???T
A?B P
?H
W????A?B ??h
?????A?B ???
V????A?B ???
?????A?B ???
E????A?B ???
?????A?B ~?
_???4A?B p?(
s???AA?B }?H
????LA?B H?h
?????A?B ???
j????A?B ???
?????A?B ???
V??=A?B y??
s??=A?B y?
???3
A?B /
?(
?
???A?B ??H
n???A?B ?h
????A?B ???
Y???A?B ?? ?
????A?B D?????
f??OA?B K??
????
A?B ?
?
M???A?B ??,
????A?B ??L
r???A?B ??l
0???A?B ???
????
A?B ?
??
? ??g
A?B c
??
???^
A?B Z
??
 ??g
A?B c
?
Z???A?B ?,
???gA?B c?L
??]
A?B Y
?l
A??+A?B '??
L??A?B ??
8??A?B ??
??4A?B p??
3??0A?B l?
C??4A?B p?,
W??4A?B p?L
k??.A?B j?l
y??9A?B 5??
???0A?B l??
???(
A?B $
??
???9
A?B 5
??
???2
A?B .
?
????A?B ??,
p??X
A?B T
?L
???a
A?B ]
?l
????
A?B ?
??
|!??`
A?B \
??
?"???A?B ???
?#???
A?B ?
??
V%??%
A?B !
?
[&??w
A?B s
?,
?'???A?B ??L
=*??!
A?B 
?l
>+??2
A?B .
??
P,??X
A?B T
??
?-???A?B ???
.???A?B ???
?.???A?B ??
/???A?B ??,
?/???A?B ??L
+0??0A?B l?l
;0??[A?B W??
v0??LA?B H??
?0??\A?B X??
?0???A?B ???
W1???A?B ??
?1???A?B ??,
i2???A?B ??L
?2??=A?B y?l
3??4A?B p??
#3??4A?B p??
73??0A?B l??
G3???
A?B ?
? ?
?4???A?B G????
?5???
A?B ?
?0
-7??NA?B J?P
[:??,A?B h?p
g:???A?B ???
???,A?B h??
???NA?B J??
I????
A?B ?
??
?@??YA?B U?
*A??CA?B ? 0
MA???A?B D????(T
?C???
A?B E???
?A?A? ?
WE??A?B D??
???
6G???A?B ???
?G??BA?B ~??
H??=A?B y? 
8q839?:?;d;;?9AM?CKC?AFoA'E@DA?ADC?CmB?F?BEA?<=?=>
=g=?=r<?G?4X4 W ?5?5. ?5?+>?L6L?K?K[L?L?LM?LL?J?"#c!!?$?$?%?$???@?@?>3?? VP?P?CXCqC?C?C?C?C?CD/DJDdD|D?D?D?D?D?DEE2EKEbEuE?E?E?E?E?E?EF/F>FZFwF?F?F?FG!G3GHG]GqG?G?G?G?G?GHH+H:HJH\HkH|H?H?H?H?H?H?H?H I$I2IIIdI}I?I?I?I?IJ/J?JLJ
   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMdarwin.execJSON_AddArrayToObject@8cJSON_AddBoolToObject@12cJSON_AddFalseToObject@8cJSON_AddItemReferenceToArray@8cJSON_AddItemReferenceToObject@12cJSON_AddItemToArray@8cJSON_AddItemToObject@12cJSON_AddItemToObjectCS@12cJSON_AddNullToObject@8cJSON_AddNumberToObject@16cJSON_AddObjectToObject@8cJSON_AddRawToObject@12cJSON_AddStringToObject@12cJSON_AddTrueToObject@8cJSON_Compare@12cJSON_CreateArray@0cJSON_CreateArrayReference@4cJSON_CreateBool@4cJSON_CreateDoubleArray@8cJSON_CreateFalse@0cJSON_CreateFloatArray@8cJSON_CreateIntArray@8cJSON_CreateNull@0cJSON_CreateNumber@8cJSON_CreateObject@0cJSON_CreateObjectReference@4cJSON_CreateRaw@4cJSON_CreateString@4cJSON_CreateStringArray@8cJSON_CreateStringReference@4cJSON_CreateTrue@0cJSON_Delete@4cJSON_DeleteItemFromArray@8cJSON_DeleteItemFromObject@8cJSON_DeleteItemFromObjectCaseSensitive@8cJSON_DetachItemFromArray@8cJSON_DetachItemFromObject@8cJSON_DetachItemFromObjectCaseSensitive@8cJSON_DetachItemViaPointer@8cJSON_Duplicate@8cJSON_GetArrayItem@8cJSON_GetArraySize@4cJSON_GetErrorPtr@0cJSON_GetNumberValue@4cJSON_GetObjectItem@8cJSON_GetObjectItemCaseSensitive@8cJSON_GetStringValue@4cJSON_HasObjectItem@8cJSON_InitHooks@4cJSON_InsertItemInArray@12cJSON_IsArray@4cJSON_IsBool@4cJSON_IsFalse@4cJSON_IsInvalid@4cJSON_IsNull@4cJSON_IsNumber@4cJSON_IsObject@4cJSON_IsRaw@4cJSON_IsString@4cJSON_IsTrue@4cJSON_Minify@4cJSON_Parse@4cJSON_ParseWithLength@8cJSON_ParseWithLengthOpts@16cJSON_ParseWithOpts@12cJSON_Print@4cJSON_PrintBuffered@12cJSON_PrintPreallocated@16cJSON_PrintUnformatted@4cJSON_ReplaceItemInArray@12cJSON_ReplaceItemInObject@12cJSON_ReplaceItemInObjectCaseSensitive@12cJSON_ReplaceItemViaPointer@12cJSON_SetNumberHelper@12cJSON_SetValuestring@8cJSON_Version@0cJSON_free@4cJSON_malloc@4PP?[xR?P@]?RpRP]?T?T?T?T?T?T?TUU4UDUZUnU?U?U?U?U?U?UVV,VYHYRY\YhYrY~Y?Y?Y?Y?Y?Y?Y?Y?Y?Y?Y?Y?Y?YZZZ$Z0Z:ZDZNZXZbZlZvZ?Z?Z?Z?Z?Z?Z?Z?Z?Z?Z?Z?Z?Z[[?T?T?T?T?T?TUU4UDUZUnU?U?U?U?U?U?UVV,VYHYRY\YhYrY~Y?Y?Y?Y?Y?Y?Y?Y?Y?Y?Y?Y?Y?YZZZ$Z0Z:ZDZNZXZbZlZvZ?Z?Z?Z?Z?Z?Z?Z?Z?Z?Z?Z?Z?Z[[
DeleteCriticalSection6
EnterCriticalSection{
FindClose
FindFirstFileA?
FindNextFileA?
FormatMessageA?
FreeLibrary GetCurrentProcessIdiGetLastError{GetModuleFileNameA}GetModuleHandleA?GetModuleHandleW?GetProcAddress?GetStartupInfoA?GetSystemTimeAsFileTime?GetTempFileNameA?GetTempPathAmInitializeCriticalSection?IsDBCSLeadByteEx?LeaveCriticalSection?LoadLibraryA?LoadLibraryExAMultiByteToWideCharZSetUnhandledExceptionFilterjSleep?TlsGetValue?VirtualProtect?VirtualQuery?WideCharToMultiByte:__getmainargs;__initenvE__mb_cur_maxL__p__acmdlnN__p__commodeS__p__fmodeh__set_app_typek__setusermatherr?_amsg_exit?_cexitB
_errno?_fullpathR
_inittermV
_iob?
_lock:_onexitB_pcloseF_popenn_setjmp3?_stati64?_unlock?abort?atof?atoi?calloc?clearerr?clock?exit?fclose?feof?ferror?fflush?fgets?fopen?fprintf?fputc?fputs?fread?free?freopen?fseek?ftell?fwrite?getc?getenv?isalnum?isalpha?iscntrl?isgraph?islower?ispunct?isspace?isupper?isxdigit?localeconvmalloc memchr memcmpmemcpymemmove memset6mktime?
localtimeE
gmtime9
difftime%
_mkdirputsqsortrandreallocremove rename&setlocale'setvbuf(signal.srand2strcat4strchr5strcmp6strcoll7strcpy:strerror;strftime<strlen?strncmp@strncpyBstrpbrkCstrrchrDstrspnEstrstrIstrtolJstrtoulRsystemVtmpfileZtolower[toupper^ungetcavfprintf?time{wcslen?longjmp?_strdup?_rmdir_getpid_getcwduSetTimerPPPPPPPPPPPPPPPPPPPPPPPPPPPPPKERNEL32.dllPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPmsvcrt.dll(PUSER32.dll @@ptF tF?0 0*040@0F0P0W0\0w0?0?0?0$1,11161>1J1Q1?1?1?1?1?1?1?1242:2B2I2Y2]2?2?2?2?2?2^3h3n3y3?3?3?3?3?3?3
444%454N4b4n4u4?4?4?4?45555505=5I5P5Y5?5?5?5?5<689K9W:?:|;?= >?>?>&?4?}??????? l}0V12j2?2?4?4?4?4?4+5255?5?5?5?56{6?6?6?6?6?6?6'7?8,9f9?9?9:@:s:?:+;X;_0H0R0\0f0p0z0?0?0?0?0?0?0?0?0?0?0?0?0?0?0?0?0?0?01111!1(1/161=1D1K1R1Y1?1?1?1?1?1?1?1?1?1?1?3?3
4/4~4?4?4t5?5Z6?6?6?67`7?789$999N9c9????@80'0?0n1v1?1?1$2[2?2?3+4?4?495?5?8?9L`?5?5d6?8p?2?3?34I4v4?7??7?;??0?0?5?02f6?67v7?7?7?7?7=8?8?:;i?000.0?2?2?3?3l4?4?56?6?6Y7?8?8?8?:?<? O0?01Z3D4?5?7?9H:_;j=???Q4.6?8D>???Q4?E3?3?5g3?
f0?0X3 5K5z:"@
$?5?677?8?8<9m9t9m;|g?P
H00]0E1?1?2?2?223?3?3E45c5h5?56 6>6C6-7Z7r7o8&9c9?97:?:?:A;?>`
44:s;"=R=a=p
<1q1?1E2x2$3j34@4?4|56?6?6e8?8?8?8};?;??
S1?2c> ??
?3?
,?536s6?6?6788?8:]:?:;<>>x??
?0%2w2?2?2S4o5?6k7?>?
,4?6o7[8i;>?>c???$?0?1?1m2?2j324Y5?6s9??0?0?25T7?9?:;?;=q?@ $1?2f46?7?8?9 ;?<=>?>??P$?0>1?172935?6?7?8?:G??p?0o1?1E4W8??0??79?:>?P70?0?2?4V5i5?5?67?7u7?7?89G9q9?9?9r:?:?:?:;?;Z;?;?;z?>?0?0=1R1?1F3?495X5?5?>6>I>s>?>????p
0?0X2?2?2r3?3?3?3 4%4?45?69)9:9N9?9?9?9?9':8:L:k:?:?:?:?:?:; ;;&;?;<(?@??????@A1?2333Z394t5{5?5?5?5?5 677Y7@8939y9I:1;e;*????<?0?1?2=3c3~3?3?3#4?4c7M8?9?9?9?9F:?:?=>>x>(??????????\070l0?0?0?0?0(1F1{1?1?1?24>6(7d7?7?7:2:U:h:?;?;?;??S?r?????`000X0v0?0?01,1?1?12?2?2?243}3?3?34Z4?4 55?5?6?6?6?6,7?7+8?8:d:?:?:?:?:W;^;|;1P-0?0\1?1523B34?4?45+5?56T6?6?6!747k7?7?7?7:8t8?8?8?8?8?8?8?8?8?;?;?= P20A0?01e12?2?2?4?6 7?9?9?9?9:):@:v:?:?:;;{;?;<;=>PT40>1?1c2?23?4?4?57_7?8?9?9?9?9 :C:f:?:?:V;?;?;3`i0?1?3?6?6?78Q=?>p\?0?144$434H4}425T5?5
6<6R7?7?7z8?8?8?8?8?8?8?8,9s9?:?:;?;?;?;<>w>?>?>?>?>.?w????0'0D0?0?0 1?1?1V2?3?3?5*6?6 7?9E:;
=?=?>?<W0?02?2K3n3?3!5?5M6`6?6?667?78@8?89:?:?;`=?=???(50?1?2?4E5?9?:?:?;F=?=*?j??????4E0?0?0r2?2?4?5?5?5@6z6?6?6?6?6?7?89F9?9T:?0?0:1?2?3?4?4?4 5]5?6?;'??????8G2?2?2?2D34?4?5 88"8,898?8?8?8?8?8?:p;?;?>[????????(060d0{01?1?1?112?5
6}6?7h8?;&<?4?6 94;S=?6?6?6j7?7?8o9?> F2N2?2*3?5?7?9?;P=0
02|2h3u3?3?3?3?3?3?3y4?4?4?4?4?4?4?4?4?4?4?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?78888 8'8.858<8?8?8?8?8?8?8?8?8?8?8?8?8?8?8?8f9m9t9{9?9?9?9?9?9?9?9?9?9?9?9?9X:_:f:m:t:{:?:?:?:?:?:;;(;2;<;F;P;Z;d;n;x;;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;< <<<(<2<<@LD0x0?0?0?1?1<2F2?2?2?2?24%4?4p5?5+62696P6n6?6?6?6K7?7?7?7{8?9:6:Y:PT?1?12t2?3N4r67?7?7?7?728?89919>9K9X9e9r99?9?9?;??>?>????`\ 0701?1?12'4N4?4k6v6?6?6?6?6?6?6?6?6?6 77-787D:_:u:}:?:?:;E;t;?;?;?;?,>F>`>?\?2?2?2?2?2?2?2?2?2333*3J3`3v3?3?3?34-43:L:e:~:?:?:?:?:?:;>+>?>?>?>'?O????????"0s0?0?0"1g1?1?>?411s13W3?3?3?3?375A57#7:?;< =?>?>?>?????`00?0?0"1?1?1 2'2?2?2?3?4F5?5?67O7j8:,:C:Z::?;?;?;?;?;'?>?>\?x????DP0l0?0C1Z1x1?1?1 2?3?3.4?4m5?5?5?67?7?7m8?89?9?9?:?;{>I????<0@0?0?081?1?12n2:4z7 8?9?9?9?9=:#<+{>?????0?0?0[1{5?5?5?56 66'6Q6j6?6?6?6?67/7j7?7?7?7?7?788(8G8O8s8{8?8?8?8?8?89E9?9?97:?:?:?:(;J;v;?;?;?;<<3<:2?N?????h1?1w2?2t5?56?6$7?7?=E=L=S=Z=a=h=o=v=}=?=?=?=?=?=?=?=?=?=?=> >>q>x>>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>1?8???F??????????????????????
000'010;0E0O0Y0c0m0w0?0?0?0?0?0?0?0?0?0?1?1?1?1?1?1?1?1?1?12 2222&2-2?2?2?2?2?2?2?2333#3-373>3E3L3S3Z3a3h3o3v3}3?3?3_4f4m4t4?4?4?4?4?4?4?45 555(525<5F5P5Z5d5n5x5?5?5?5?5?5?5?5?5?5?5?5?5?5666"6,666@6J6T6^6h6r6|6?6?6?6?6?6?6?6?6?6?6?6?6?6?67 7777&7-747;7B7I7P7W7^7e7l7s7?7?7?7?78 888"8)80878>8E8L8S8?8?8?8*949>9H9R9\9f9p9z9?9?9?9?9?9?9?9?9?9?9?9?9?9:::$:.:8:B:L:V:`:j:t:~:!=&=q=?=?=?=>!>8>M>?>?>?>?>?>?>?>?> ???,?2?;?@?G?L?T?X???(.0H0?1?1G2e2E3?5?6?6?67C7YP(F0]0?2c9?9?9:\:?:?:A;H;O;?>?>?>`p0M0?0&1o1?1?1+2z2?23}3?3s4t6+7N7q7?7?7?7?7?7?7*8]8e8?8?8?8?9?9?9X:n:v:?:?:?:?;?L>i>?>?9?Z?|?pl?0N1o1?1?1?2?2?23'323?3?3?3?3e4?4?465=5D5?56$6G6j6?6?67P77?7?7?7?7?7?78E8V8?8?8?9?9?9b:x:?:??h?1?1?1?1?1?122*222E2M2`2h2{2?2?2?2?2+3T3?34?8?9:?:?:;k;?;?;?;?;?;
< <<$<7.?????~0&1?1?12T2g2o2?2?2?2?2?2?2?2?2?2?2 33$3,3?3G3Z3b3u3}3?3?3?3?3?3?3?3?3?344424:4M4U4h4p4?4?4?4?4?4?4?4?45?5?5H6?6X7?738F8N8a8i8|8?8?8?8?8?8(9?9:?:?:?:?:?:?:?:?:r;?;?<'==>?>o????????02334P4?4|5?5?5I6?7P9?9?9?9O:n:?:?:?:?:?:?:?:?:?:?:;;#;+;>;F;Y;a;t;|;?;?;?;?;?;?;?;?;?;<<<1<9>>2>:>M>U>h>p>?>?>?>?>?>?>?>?>?>?> ??%?-?@?H?[?c?v?~????????????????????D00 030;0N0V0i0q0?0?0?0?0?0?0?0?0?1S2L35@6?68q9?9?:f;??$0,1?2?3?4?5?6?7?8?:F???80G1a1~1?12?3b5?5a6 7?7l8?8?9?:;?;E<6=?=5>?>??0?0?0D1?1a2?2?2?2?233323:35?56V6?6?7J8?8?809O9b9j9}9?9?9?9?9?9?9?9?9?9:::':?:x;>">5>=>P>X>k>s>?>?>?>?>?>?>?>?>?>?> ??(?0?C?K?^?f?y?????????????D0D0v0?1?12?2?4?56y7(9c95:N:?:?:?;]>t>?>??020I0?0?0?0?1"2e2?2?2?213y3?3?3?3?3?3?3?3?3?3444.464I4Q4d4l44?4?4?4?4?4?4?4?4?455!5)5<5D5W5_5r5z5?5676[66?6?8[9:n;????? H?0r1?1?1?1#3h3?3I4t4?4?45?5N6w6?67(7?7?8?9;?;??>!?|???0
]0*1?1|2?2?2)3]3?3?3?344)414D4L4_4g4z4?4?4?4?4?4?4?4?4?4
5 55$575?5a5?5?5?5?6a6?67x7!8?9?9Z:a:?:Q;Y;l;t;?;?;?;?;?;?;?;?;?;?;<<)<1>*>2>E>M>`>h>{>?>?>?>?>?>?>?>?>?>? ??%?8?@?S?[?n?v?????????????????????@|?0]1e2?2?2?2?2?2?2?3?4C5?5616?6?67?7?7 8^89R:{:?:?:?:\;b;u;?;?;?;U<[>.>x>~>?>?>?>?>?>?*?2?u???????P,
00#0/0B0H0\0?0?0?0?0?0?0?0?01111,1;1K1Y1^1d1|1?1?1?1?1?1?1?1220262>2K2P2V2^2k2p2v2~2?2?2?2?2?2?2?2?2?2?2?2?2?2?2
3 333!3)33393A3I3S3Y3a3i3s3y3?3?3?3?3?34?5?5F6}6?6?6?6
7>7{7?78M8?8?8?8?8&9j9?9?9?9?9:J:?:?:?:?:>;?;?;?;?;?;<95>?>?>?>?>?>0???[?h?????`?0 0?0?0?011E1O1?1?1?1?1?1?12282I2Y2?2?2?2383B3x3?3?3?3?3?3 4454F4d4z4?4?4?4?4?4r5?5?5?5?56$646Q6g6?6?6?6?6?6?677$7,797A7I7V7^7f7s7{7?7?7?7?7?7?7?7?7?7?7?778?8?8>9?9:z:?:J;h;?;?;0?>?>2?d???p
0z0?0?0?0?0%1-1i1?1?1?1?1
2=2c2k2?2?23Q3c3o3?3?3?3?3?34w4?4?4?4#5;5s5?56'6a6}6?6?6?677787J7^7{7?7?7?7?7?7?7?7808>8D8`8?8?8?8?8?8?8?859>9M9[9j9?9?9?9 :::::@:K:Q:f:t:?:6;z>6>I>R>]>{>?>?>?>?>?>}????????????`000030?0G0U0?0?0?0?0?0?0?0?0?0?0?01E1O1U1c1j1?1?1?1?1?1?1?12%2+252K2U2?2?28L8?9??053?=??0?2?2?7?7[=??6d8?;?;?>Q?v? 52?2?7?:?:?:?>#?0T?0X1?12W2?3?3q7?7?9?9?9:%:@:Y:;?>?>?>?>?>?>?>?>???6?W?n?u?????????????@H
0+0A0^0?0?0?0?0?0?1?1?1
2 2-2I2O2e234?4?4?4?45&545:5g5u5P???P?
0091?1?3?3?4 5B5?6?6?6?6?67 777"7*727:7B7J7R7Z7b7j7r7z7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?78 888"8*828:8B8J8R8Z8b8j8r8z8?8?8?8?8?8?8?8?8?8?8?8?8?8?8?8?89 999"9*929:9B9J9R9Z9b9j9r9z9?9?9?9?9?9:::4:>:J:R:a:r:?:`<0000 0$0(0,0004080<0@0D0H0L0P0T0?0?0?0?0?0?0?0?0pP33 3$3(3,3034383<3@3D3H3L3P3T3X3\3`3d3h3?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?455555555 5$5(5,5054585<5@5D5H5L5P5T5X5\5`5d5h5l5p5t5x5|5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?566666666 6$6(6,6064686<6@6D6H6L6P6T6X6\6`6d6h6l6p6t6x6|6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?788888888 8$8(8,808h9l9p9t9x9|9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9:::::::: :$:(:,:0:4:8:<:@:D:H:L:P:T:X:\:`:d:h:l:p:t:x:|:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:;;;;;;;; ;$;(;,;0;4;8;<;@;D;H;L;P;T;x;|;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;<<<<<<<< <$<(<,<0<4<8<<<@>>>>>>> >$>(>,>0>4>8><>@>D>H>L>P>T>X>\>`>d>h>l>p>t>x>|>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>???????? ?$?(?,?0?4?8?>>>>>>> >?>?>?>?>?>?>?>?>?>?>??
?0?0?0?0?2?2?2?2?2?2?2 4$4(4,4044484<4@4D4H4L4P4T4X4\4`4d4h4l4p4t4x4|4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4?4P5T5X5\5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?5?56?7?7?7?7?7?7?7?788888888 8$8(8,8084888<8@8D8H8L8P8T8X8\8?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9?9 :$:(:,:0:4:8:<:@:D:H:L:P:T:?:?:?:?:?:?:?:(;,;0;4;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;?;<<<<<<<< <$<(<,<0<4<8<<<@D>H>L>P>X>`>h>p>?>?>??`1d1h1l1p1t1x1|1?1?1?1?1?1?1?1?1?1?1?1?1?1?1`2d2h2l2p2t2x2|2?2?2?2?2?2?2?2?2?2(3,3034383<3@3D3H3L3P3T3X3\3`3d3h3l3p3t3x3|3?3?3?3?3?5?5?5?5?5?5?5?5?566666666 6$6(6,6064686<6@6D6H6L6P6T6X6\6`6d6h6l6p6t6x6|6?6?6?6?6?6?6?6?6?6?6?6?6?6?6?6(7,7074787<7@7D7H7L7P7T7X7\7`7d7h7l7p7t7x7|7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?7?788888888 8$8(8,8084888<8@8D8H8L8P8T8X8\8`8d8h8l8p8t8x8|8?8?8?8?8?8@9D9H9L9P9T9X9\9`9d9h98:<:@:D:H:L:P:T:X:\:`:?:?:?:?:?:?:?:?:;;;;;;;; ;$;(;,;0;4;8;<;@;D;H;L;P;T;X;\;`;d;?$>(>,>0>4>8><>@>D>H>L>P>T>X>\>`>d>h>l>?D
X=\=`=d=h=l=p=t=x=|=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=?=>>>>>>>> >$>(>,>0>8><>@>D>H>L>P>T>X>\>`>d>h>l>p>t>x>|>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>???????? ?$?(?,?0?4?8?>>>>>>> >$>(>,>0>4>8><>@>D>H>L>P>T>X>\>`>d>h>l>p>t>x>|>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>`000 0@??$PsF?&*//?/tF 1?1 tF?8?8?9 uF{=?uF?=>?uF??RpzFn?U4V?zF?
(ap|Fu?jgk,l?~F???F
ƒ0?FU????F??????F8?ЉFK.? ?F?5???Fv??`?F9????F+???Fy5?P?F?!???F?p???F?9?P?F?
????F?????F?????F?'?*
?G?]/
?G<?@
?.G? ?L
`8Gd
?O
?9G~?R
P:G/?W
?>GH 4p
?KG?v
?NG,jw
?NG#?x
 OG?̂
PG?
 PG
??
0QG?
@QG??
`SGt??
?YG?i?
`ZG?$
5GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE@?
char!lsize_t%?unsigned intintuintptr_tM?wchar_tb?!?short unsigned intlong int"?long long intl?long unsigned int
unsigned char3
_EXCEPTION_RECORDP? ?

ExceptionCode? ?
ExceptionFlags? ??
? !.

ExceptionAddress? @
NumberParameters? ?
ExceptionInformation? :6"?
?
7_CONTEXT?N o
ContextFlagsO ?
Dr0P ?
Dr1Q ?
Dr2R ?
Dr3S ?
Dr6T ?
Dr7U ?
FloatSaveV ?
SegGsW ??
SegFsX ??
SegEsY ??
SegDsZ ??
Edi\ ??
Esi] ??
Ebx^ ??
Edx_ ??
Ecx` ??
Eaxa ??
Ebpb ??
Eipc ??
SegCsd ??
EFlagse ??
Espf ??
SegSsg ??
ExtendedRegistersh 
?WINBOOL ?BYTE?
WORD??DWORD?
floatLPBYTE???8 __globallocalestatusT?
signed charshort intlong long unsigned intLONG_PTR6?ULONG_PTR7
PVOID

?
CHAR
lLONG
?OLPSTRP
kHANDLE?
?
ULONGLONG?
.EXCEPTION_ROUTINE?)?#??.
@?
@PEXCEPTION_ROUTINE? ??_FLOATING_SAVE_AREAp@ ?
ControlWordA ?
StatusWordB ?
TagWordC ?
ErrorOffsetD ?
ErrorSelectorE ?
DataOffsetF ?
DataSelectorG ?
RegisterAreaH ?
Cr0NpxStateI ?l??OFLOATING_SAVE_AREAJ ?9??
CONTEXTi ?
PCONTEXTk 5.J?EXCEPTION_RECORD? 3
PEXCEPTION_RECORD? J_EXCEPTION_POINTERS? ??
? d
ContextRecord? #EXCEPTION_POINTERS??$  Next0>prev0>_EXCEPTION_REGISTRATION_RECORD>%?%C $kHandler?handler?$$?FiberData%@Version&?_NT_TIB#-
ExceptionList .>
StackBase! @
StackLimit" @
SubSystemTib# @%k
ArbitraryUserPointer( @
Self)-?NT_TIB*?PNT_TIB+S2_IMAGE_DOS_HEADER@u?
e_magicv?
e_cblpw?
e_cpx?
e_crlcy?
e_cparhdrz?
e_minalloc{?
e_maxalloc|?
e_ss}?
e_sp~?
e_csum?
e_ip??
e_cs??
e_lfarlc??
e_ovno??
e_res?? 
e_oemid??$
e_oeminfo??&
e_res2?? (
e_lfanew?]<?? ??? ? IMAGE_DOS_HEADER?XPIMAGE_DOS_HEADER? X_IMAGE_FILE_HEADER??
Machine??
NumberOfSections??
TimeDateStamp? ?
PointerToSymbolTable? ?
NumberOfSymbols? ?
SizeOfOptionalHeader??
Characteristics??IMAGE_FILE_HEADER? _IMAGE_DATA_DIRECTORY!5
VirtualAddress" ?
Size# ?IMAGE_DATA_DIRECTORY$? _IMAGE_OPTIONAL_HEADER?(
Magic*??+?,{- ??. ?
/ ?(
0 ?1 ?
BaseOfData2 ?q3 ?*4 ? |
5 ?$`
6?(?
7?* 8?,?
9?.<
:?0;;?2?
< ?4= ?8R
> ?< ? ?@@?D?
A?F?B ?H_C ?L?D ?P?E ?T?
F ?X?
G ?\QH `5 ?IMAGE_OPTIONAL_HEADER32ISPIMAGE_OPTIONAL_HEADER32I c S_IMAGE_OPTIONAL_HEADER64?[
Magic\??]?^{_ ??` ?
a ?(
b ?c ?qd?*e ? |
f ?$`
g?(?
h?* i?,?
j?.<
k?0;l?2?
m ?4n ?8R
o ?< p ?@q?D?
r?F?s?H_t?P?u?X?v?`?
w ?h?
x ?lQy pPIMAGE_OPTIONAL_HEADER64z 5h _IMAGE_NT_HEADERS???
Signature? ?
FileHeader?? 
OptionalHeader? PIMAGE_NT_HEADERS32??:PIMAGE_NT_HEADERS?!?PIMAGE_TLS_CALLBACK??!??*@?@#]"?&HINSTANCE__?Hunused??HINSTANCE?Z"PTOP_LEVEL_EXCEPTION_FILTERLPTOP_LEVEL_EXCEPTION_FILTER%_&_STARTUPINFOAD3cb4?lpReserved5plpDesktop6plpTitle7pdwX8?dwY9?dwXSize:?dwYSize;?dwXCountChars<? dwYCountChars=?$dwFillAttribute>?(dwFlags??,wShowWindow@ ?0cbReserved2A ?2lpReserved2B?4hStdInputC8hStdOutputD<hStdErrorE@STARTUPINFOAF?LPSTARTUPINFOAF=?STARTUPINFO]?_onexit_t 2mr:?doublelong double?;_invalid_parameter_handler ???*???????V ynewmode z ?_startupinfo {???? ?^__uninitialized__initializing
__initialized@? ?"^ __native_startup_state ?+j __native_startup_lock ???A_PVFV?_PIFVm?&_exception ? 0type? ?name?0arg1?warg2?wretval?wt_TCHAR?l _image_base__
+? _fmode
4? _commode
5???+ __xi_a
<${ __xi_z
=${??+ __xc_a
>$? __xc_z
?$? __dyn_tls_init_callback
C"? __mingw_app_type
E?__mingw_winmain_hInstanceGH0V__mingw_winmain_lpCmdLineH T0V5__mingw_winmain_nShowCmdI?`GargcK?$0VargvQV 0VenvpRV0VBargret
U?mainretV?0VmanagedappW?0Vhas_cctorX?0VstartinfoY0V __mingw_oldexcpt_handler
Z%?__mingw_pcinitf?`V__mingw_pcppinitg?`V _MINGW_INSTALL_DEBUG_MATHERR
i?'__mingw_initltsdrot_forceL
?'__mingw_initltsdyn_forceM
?'__mingw_initltssuo_forceN
?C__mingw_module_is_dll
?
l0V(_onexit ?[@[memcpy2?
c?
?ystrlen@y|0(malloc ?
?y_cexitC Dexit ?
??main t???VV__main
L __p__acmdlnV_fpreset
- _set_invalid_parameter_handler ?.?3?,_gnu_exception_handler
]_gnu_exception_handler@4?uu?,SetUnhandledExceptionFilter4SetUnhandledExceptionFilter@4???_pei386_runtime_relocator
\ _initterm
8
?? _amsg_exit m?ESleepSleep@46?FGetStartupInfoAzGetStartupInfoA@4g&memset5?
??
?y__getmainargs ~??
????(_matherr
???? __mingw_setusermatherr?  #??_setargv o?__p__commode
1
__p__fmode ?
__set_app_type ?s?Gatexit
?
??@
??Hfunc
?
???@% t?Iduplicate_ppstrings
?

ac
?
&?av
?
2?avl
?
Vi
?
?n
?
VJl
?
yKcheck_managed_app
Q

?
?pDOSHeader
S
? pPEHeader
T
?pNTHeader32
U
A pNTHeader64
V
-__tmainCRTStartupޘ`@2
??!lpszCommandLine?TStartupInfo?Bu?inDoubleQuote?o@4L?!lock_free??
zrfiberid??
??nested? ???M?#?@?@
??N?#?@?@ ?#???#??.W$?@
7???$???$

/$O??@B
8
? ?

?/
+
0B?B
>
?U
Q
n
f
PM{ ?
?
(@c3@|i twI@?$ tw?@| twQ $#@
#@

? B$?
?
/2$?@? t ?R)@? t
0 t
2 t
0 1@?>@z!tR@ ! t@ W@? f@? g@? ?@??@
X! t
O@?n!tt M@?~@??!tt ?@?9@6 tu?1mainCRTStartupØ?@
??!2retŘ?3?@?1WinMainCRTStartup???@
?"2ret???3?@?4pre_cpp_init? @>
?m"Z@? t$0V t 0V t0V t0V-pre_c_init~?@

?%#.@??"0S<P?
?
c?
?
x?
?
p@V?" t
2 u@C ?@. ?@?@V# t
1?@?t4__mingw_invalidParameterHandlerq@

??#expressionq2??functionr??files??linet??pReservedu??T_TEBUNtCurrentTeb ?#?#)__readfsdwordt

$Offsett

rett

)_InterlockedExchangePointer??
R$Target?3R$Value?@?
?
)_InterlockedCompareExchange{ ??$Destination{9?$ExChange{O?Comperand{b??Vmemcpy__builtin_memcpyG
6GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE?
?
PsF??
charunsigned intintptrdiff_tZ ?short unsigned intlong intlong long intlong unsigned int
unsigned charfloat
signed charshort intlong long unsigned intdoublelong doubleS
tagCOINITBASEt??

COINITBASE_MULTITHREADED VARENUMt

VT_EMPTY
VT_NULL

VT_I2
VT_I4
VT_R4
VT_R8
VT_CY
VT_DATE
VT_BSTR
VT_DISPATCH
VT_ERROR
VT_BOOL
VT_VARIANT
VT_UNKNOWN
VT_DECIMAL
VT_I1
VT_UI1
VT_UI2
VT_UI4
VT_I8
VT_UI8
VT_INT
VT_UINT
VT_VOID
VT_HRESULT
VT_PTR
VT_SAFEARRAY
VT_CARRAY
VT_USERDEFINED
VT_LPSTR
VT_LPWSTR
VT_RECORD$
VT_INT_PTR%
VT_UINT_PTR&
VT_FILETIME@
VT_BLOBA
VT_STREAMB
VT_STORAGEC
VT_STREAMED_OBJECTD
VT_STORED_OBJECTE
VT_BLOB_OBJECTF
VT_CFG
VT_CLSIDH
VT_VERSIONED_STREAMIVT_BSTR_BLOB?VT_VECTORVT_ARRAY VT_BYREF@VT_RESERVED?VT_ILLEGAL??VT_ILLEGALMASKED?VT_TYPEMASK?func_ptr
).:__CTOR_LIST__/__DTOR_LIST__ /initialized2??2Vatexit?
??N
__main
5
?sF
??tF? __do_global_ctors ?sFR
? nptrs"??
?
i#? ?sF{tPsF __do_global_dtorsPsF1
?EpET`G
pGNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE*I?
charunsigned intlintshort unsigned intlong intlong long intlong unsigned int
unsigned charfloat
signed charshort intlong long unsigned intdoublelong doubletagCOINITBASEl
?q

COINITBASE_MULTITHREADED VARENUMl
?
VT_EMPTY
VT_NULL

VT_I2
VT_I4
VT_R4
VT_R8
VT_CY
VT_DATE
VT_BSTR
VT_DISPATCH
VT_ERROR
VT_BOOL
VT_VARIANT
VT_UNKNOWN
VT_DECIMAL
VT_I1
VT_UI1
VT_UI2
VT_UI4
VT_I8
VT_UI8
VT_INT
VT_UINT
VT_VOID
VT_HRESULT
VT_PTR
VT_SAFEARRAY
VT_CARRAY
VT_USERDEFINED
VT_LPSTR
VT_LPWSTR
VT_RECORD$
VT_INT_PTR%
VT_UINT_PTR&
VT_FILETIME@
VT_BLOBA
VT_STREAMB
VT_STORAGEC
VT_STREAMED_OBJECTD
VT_STORED_OBJECTE
VT_BLOB_OBJECTF
VT_CFG
VT_CLSIDH
VT_VERSIONED_STREAMIVT_BSTR_BLOB?VT_VECTORVT_ARRAY VT_BYREF@VT_RESERVED?VT_ILLEGAL??VT_ILLEGALMASKED?VT_TYPEMASK? l?C
__uninitialized
__initializing

__initialized??C__native_startup_state?+O__native_startup_lock??? __native_dllmain_reason? |__native_vcclrit_reason? |?\`G?X`GT "?2Vr?2V?
$
GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE???_dowildcard
~?2VintT

RGNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE/MtF

char
unsigned int
int
short unsigned int
long int
long long int
long unsigned int

unsigned char
float

signed char
short int
long long unsigned int
double
long double_setargv

?tF
?
?
GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE??m_newmode
{?2Vint?
?GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE?? tF??

char
unsigned int
intuintptr_tMt
short unsigned int
long int
long long intl
long unsigned int

unsigned charULONG?WINBOOL ?BOOL??DWORD??
floatLPVOID??

signed char
short int
long long unsigned intULONG_PTR7?PVOID

?HANDLE?
?PIMAGE_TLS_CALLBACK??
?
?
?
?
(
?
_IMAGE_TLS_DIRECTORY32??StartAddressOfRawData?(
EndAddressOfRawData?(
AddressOfIndex?(
AddressOfCallBacks?(
SizeOfZeroFill?(
Characteristics?(
IMAGE_TLS_DIRECTORY32??
IMAGE_TLS_DIRECTORY?#? ?
double
long double_PVFV _tls_index#??2V_tls_start)?pV_tls_end*?pV__xl_a,+?
`V__xl_z-+?
$`V_tls_used/???T__xd_a? (`V__xd_z@ ,`V_CRT_MT
G?__dyn_tls_init_callbackg?
??T__xl_ch+?
`V__xl_d?+?
 `V__mingw_initltsdrot_force???2V__mingw_initltsdyn_force???2V__mingw_initltssuo_force???2V__mingw_TLScallback

??
(
?
__dyn_tls_dtor
?

tFC
?6 @?
? 7*(
? K;?
?XtF?t?t?t?__tlregdtor
m
?uF
?ifunc
m ?__dyn_tls_init
L
__dyn_tls_init@12

? @?
7*(
K;?
pfuncN psO ?i__dyn_tls_init@12ptF?
?????????i?tF?tF'
L
k?31?><?IG?VR?kg?tF?t?t
1t?
?
GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE???_commode
{?2VintJ

? GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE???

char
unsigned int
int
short unsigned int
long int
long long int
long unsigned int

unsigned char_PVFV
???

l__xi_a ?`V__xi_z?`V__xc_a?`V__xc_z ?`V
& GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE81 uF{.double
char vunsigned intintshort unsigned intlong intlong long intvlong unsigned int
unsigned charlong long unsigned intfloatlong double_exception??

type? ?
name??

arg1?l
arg2?l
retval?l~?
_iobuf!
_ptr%?
_cnt& ?
_base'?
_flag( ?
_file) ?
_charbuf* ?
_bufsiz+ ?
_tmpfname,? FILE/?
fprintf?KP?
K __acrt_iob_func]Kw?_matherr
? uF{
?pexcept
?type
?
??cuFU?t
2?uF*t??Ttstvt?X?lt?`?lt ?h?l*
?
)
GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE???uF?_fpreset
?uF
??
V
GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE$?__mingw_app_type
??2Vint?
?$GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIEf??uF?- __gnuc_va_list?%__builtin_va_list?
char&?va_listlsize_t%?unsigned intintptrdiff_tZ ?short unsigned intlong intlong long int ?long unsigned int
unsigned char'ULONG(
WINBOOL ?BYTE?=
WORD??DWORD?(
floatPBYTE??
n
LPBYTE??
PDWORD??
?
LPVOID?N
LPCVOID??
?
(
signed charshort intlong long unsigned intULONG_PTR7(
SIZE_T?'0PVOID

N
LONG

_MEMORY_BASIC_INFORMATIONwBaseAddressx QAllocationBasey QAllocationProtectz ?
RegionSize{BState| ?
Protect} ?
Type~ ?
MEMORY_BASIC_INFORMATIONlPMEMORY_BASIC_INFORMATION!\ ln
q?_IMAGE_DOS_HEADER@u?e_magicv{
e_cblpw{
e_cpx{
e_crlcy{
e_cparhdrz{
e_minalloc{{
e_maxalloc|{
e_ss}{
e_sp~{
e_csum{
e_ip?{
e_cs?{
e_lfarlc?{
e_ovno?{
e_res??e_oemid?{
$e_oeminfo?{
&e_res2??(e_lfanew?_<{
??{
?? IMAGE_DOS_HEADER?q)3PhysicalAddress?
VirtualSize?
_IMAGE_SECTION_HEADER(FName
aMisc ?VirtualAddress ?
SizeOfRawData ?
PointerToRawData ?
PointerToRelocations  ?
PointerToLinenumbers  ?
NumberOfRelocations{
NumberOfLinenumbers{
"Characteristics  ?
$PIMAGE_SECTION_HEADERd 3doublelong double*tagCOINITBASE???
COINITBASE_MULTITHREADED+VARENUM?
F
VT_EMPTY
VT_NULL

VT_I2
VT_I4
VT_R4
VT_R8
VT_CY
VT_DATE
VT_BSTR
VT_DISPATCH
VT_ERROR
VT_BOOL
VT_VARIANT
VT_UNKNOWN
VT_DECIMAL
VT_I1
VT_UI1
VT_UI2
VT_UI4
VT_I8
VT_UI8
VT_INT
VT_UINT
VT_VOID
VT_HRESULT
VT_PTR
VT_SAFEARRAY
VT_CARRAY
VT_USERDEFINED
VT_LPSTR
VT_LPWSTR
VT_RECORD$
VT_INT_PTR%
VT_UINT_PTR&
VT_FILETIME@
VT_BLOBA
VT_STREAMB
VT_STORAGEC
VT_STREAMED_OBJECTD
VT_STORED_OBJECTE
VT_BLOB_OBJECTF
VT_CFG
VT_CLSIDH
VT_VERSIONED_STREAMIVT_BSTR_BLOB?VT_VECTORVT_ARRAY VT_BYREF@VT_RESERVED?VT_ILLEGAL??VT_ILLEGALMASKED?VT_TYPEMASK?,_iobuf ! ? _ptr %#
_cnt & ?_base '#
_flag ( ?_file ) ?_charbuf * ?_bufsiz + ?_tmpfname ,#
FILE /F __RUNTIME_PSEUDO_RELOC_LIST__1 ?__RUNTIME_PSEUDO_RELOC_LIST_END__2 ?_image_base__3? ?
runtime_pseudo_reloc_item_v1
?F G? sym
H ?
target
I ?
flags
J ?
runtime_pseudo_reloc_item_v2
K? M%magic1
N ?
magic2
O ?
version
P ?
runtime_pseudo_reloc_v2
Q? -V
??old_protect
? ?
base_address
? Qregion_size
? Bsec_start
? ?
hash
?F.V
?Ethe_secs???2V ?maxSections???2V/GetLastError 0GetLastError@0?
VirtualProtectEVirtualProtect@16^
Y?
B?
?
VirtualQuery-VirtualQuery@12B??
:B_GetPEImageBase??
__mingw_GetSectionForAddress
?F??
memcpy2N
?N
?
?0abort?
(1vfprintf "?+ 0 : ? ? + ? 5 __acrt_iob_func ]+ a ?__mingw_GetSectionCount??2_pei386_runtime_relocator
?

pwF?
?r3was_init
?
??2V4mSecs
?
???5r?wFd
?
,???6d ??? ??? ?\L ??? ??? ???7-o? .? C'!?xFt?Ttvg*yF*yF?
%?HF?SQ}b`g*yF*yF

?mk?xv}??2yF?
P?Hg?yF?yF?
???????}??g?yF?yF

??????}???yF?
P?HgzFzF?
A??????}??gzFzF

?
?? }zF?
P?H8zFB? *$9 DBgDzFDzFs
?NL?YW}hfgDzFDzF

?rp?}{}??IzF?:
P ?xFt??TozFt??T;?KyFT
?
h ???restore_modified_sections
?

?#i??#oldprot? ?
?mark_section_writable
?
vFW

?@addr
??
??b??Th?F??i??A?vF`?new_protect? P
86 wF?tswF?&wFt??T VvF??ts{vF? ?vFY?t?Tt
L WwF?tL?TgwFt,?TtsB__report_error
T
?uFY
??Cmsg
T5 ?Dargp??B@ ?uF? kt
2 ?uF??t?Tt
1t
K ?uF? ?t
2 vF ?t?ts vF?Efwrite__builtin_fwrite?
?GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIEp?pzFnP

char l
unsigned int
int
short unsigned int
long int
long long int
long unsigned int

unsigned char
double
long long unsigned int
float
long double _exception ? }
type? ?name?}
arg1??arg2??retval??tfUserMathErr
?
?
??
?
%
stUserMathErr ?
?2V __setusermatherr??
?
__mingw_setusermatherr??zF
?1f,?
??zF?
??__mingw_raise_matherr?pzFR
?typ!??name2}
?a1???a2J??rslt ??ex%
?P?zFt?P}
?
GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE?? _fmode
y?2Vint? 
?GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIELn?zF?
)
charunsigned intintshort unsigned intlong intlong long intlong unsigned int
unsigned char?_EXCEPTION_RECORDP? ?
ExceptionCode? 'ExceptionFlags? '_? !?ExceptionAddress? ?NumberParameters? 'ExceptionInformation? ?_CONTEXT?N ContextFlagsO 'Dr0P 'Dr1Q 'Dr2R 'Dr3S 'Dr6T 'Dr7U 'FloatSaveV ?SegGsW '?SegFsX '?SegEsY '?SegDsZ '?Edi\ '?Esi] '?Ebx^ '?Edx_ '?Ecx` '?Eaxa '?Ebpb '?Eipc '?SegCsd '?EFlagse '?Espf '?SegSsg '?ExtendedRegistersh ?? BYTE?? DWORD??float
signed charshort intlong long unsigned int ULONG_PTR7?PVOID

?
LONG
?_FLOATING_SAVE_AREAp@ yControlWordA 'StatusWordB 'TagWordC 'ErrorOffsetD 'ErrorSelectorE 'DataOffsetF 'DataSelectorG 'RegisterAreaH yCr0NpxStateI 'l?tOFLOATING_SAVE_AREAJ ??t?
CONTEXTi ?
PCONTEXTk ??t?tEXCEPTION_RECORD? ?PEXCEPTION_RECORD? ?_EXCEPTION_POINTERS? d_? ContextRecord? ?EXCEPTION_POINTERS##???  PTOP_LEVEL_EXCEPTION_FILTER? LPTOP_LEVEL_EXCEPTION_FILTER%?doublelong doubletagCOINITBASEt?2
COINITBASE_MULTITHREADEDVARENUMt
?
VT_EMPTY
VT_NULL

VT_I2
VT_I4
VT_R4
VT_R8
VT_CY
VT_DATE
VT_BSTR
VT_DISPATCH
VT_ERROR
VT_BOOL
VT_VARIANT
VT_UNKNOWN
VT_DECIMAL
VT_I1
VT_UI1
VT_UI2
VT_UI4
VT_I8
VT_UI8
VT_INT
VT_UINT
VT_VOID
VT_HRESULT
VT_PTR
VT_SAFEARRAY
VT_CARRAY
VT_USERDEFINED
VT_LPSTR
VT_LPWSTR
VT_RECORD$
VT_INT_PTR%
VT_UINT_PTR&
VT_FILETIME@
VT_BLOBA
VT_STREAMB
VT_STORAGEC
VT_STREAMED_OBJECTD
VT_STORED_OBJECTE
VT_BLOB_OBJECTF
VT_CFG
VT_CLSIDH
VT_VERSIONED_STREAMIVT_BSTR_BLOB?VT_VECTORVT_ARRAY VT_BYREF@VT_RESERVED?VT_ILLEGAL??VT_ILLEGALMASKED?VT_TYPEMASK? __p_sig_fn_t0??? ?__mingw_oldexcpt_handler
??3V_fpreset
) signal<?5 ? ?_gnu_exception_handler
?
_gnu_exception_handler@4??zF?

?? exception_data
?-? XT old_handler? ?vf action???? reset_fpu??<2${F ? t
8t
0k{F  t
8t
0?{F 2 t
8t
1?{F L t
;t
0?{F\ t
;?{F v t
4t
0?{F? t
4|F? t
84|F ? t
;t
1J|F ? t
4t
1`|F ? t
8t
1e|F d? 
yGNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE 6 p|Fu?
charsize_t%?unsigned intint?short unsigned intlong intlong long intlong unsigned int
unsigned charWINBOOL ?WORD??DWORD??floatLPVOID??
signed charshort intlong long unsigned intULONG_PTR7?LONG
?HANDLE?
?_LIST_ENTRYd?

Flinke?

Blinkf?
?
LIST_ENTRYg?
_RTL_CRITICAL_SECTION_DEBUG ; ?
Type< 

CreatorBackTraceIndex= 

CriticalSection> %?
ProcessLocksList? ?

EntryCount@ 

ContentionCountA 

FlagsB 

CreatorBackTraceIndexHighC 

SpareWORDD 
_RTL_CRITICAL_SECTIONV ?
DebugInfoW #?
LockCountX ?

RecursionCountY ?

OwningThreadZ ?

LockSemaphore[ ?

SpinCount\ s
?PRTL_CRITICAL_SECTION_DEBUGE #??
RTL_CRITICAL_SECTION] ?PRTL_CRITICAL_SECTION] ?CRITICAL_SECTION? ?LPCRITICAL_SECTION?!?doublelong double__mingwthr_cs?3V__mingwthr_cs_init?3V__mingwthr_key_t
?t__mingwthr_key
?key! 
dtor" ?next#?????key_dtor_list'#?3VGetLastError 0GetLastError@0
TlsGetValue #
TlsGetValue@4.
R
_fpreset
%DeleteCriticalSection.DeleteCriticalSection@4?InitializeCriticalSectionpInitializeCriticalSection@4?free??LeaveCriticalSection,LeaveCriticalSection@4'EnterCriticalSection+EnterCriticalSection@4_calloc?~tt__mingw_TLScallbackz??}F?
?? hDllHandlez?
? reason{
? reserved|.
?[~FM/ keyp?&?rl t?-???u~F??~F_t3V ?5~F
5~F
?W?C~F5 !?H~F?
??"???~F5 ?~FR?~F?t3V#__mingwthr_run_key_dtors
c

?keype?$valuem.
___w64_mingwthr_remove_key_dtorA?`}F?
?? keyA(
? prev_keyC??? cur_keyD??? ?}F'ft3V?}F??}F?t3V___w64_mingwthr_add_key_dtor*??|Fu
?0 key*%
? dtor*1?? new_key,0 ?? }F_ t
1t
< (}F' t3VF}F?t3Vt%?p|Fm
?? &??|F!? ??|F%?|F
'?|Ftv ?|F'? t3V?|F?t3V~
?
GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE?  ._CRT_MT
z``Gint?
?GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIEL t h
__RUNTIME_PSEUDO_RELOC_LIST_END__?%3V
char
__RUNTIME_PSEUDO_RELOC_LIST__?$3V?
(!GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE? ? ?~F??
char"l size_t%?unsigned intintshort unsigned intlong intlong long intlong unsigned int
unsigned char# WINBOOL ? BYTE?? WORD?? DWORD??float PBYTE?I

LPVOID??
signed charshort intlong long unsigned int ULONG_PTR7? DWORD_PTR?'?
LONG
?
?
? _IMAGE_DOS_HEADER@u(
e_magicv

e_cblpw

e_cpx

e_crlcy

e_cparhdrz

e_minalloc{

e_maxalloc|

e_ss}

e_sp~

e_csum

e_ip?

e_cs?

e_lfarlc?

e_ovno?

e_res?(
e_oemid?
$
e_oeminfo?
&
e_res2?8(
e_lfanew??
<
8?
H? IMAGE_DOS_HEADER??
PIMAGE_DOS_HEADER?{?
_IMAGE_FILE_HEADER?6
Machine?

NumberOfSections?
x? $

PointerToSymbolTable? $

NumberOfSymbols? $

SizeOfOptionalHeader?
??
IMAGE_FILE_HEADER?? _IMAGE_DATA_DIRECTORY!??" $

Size# $
IMAGE_DATA_DIRECTORY$P _IMAGE_OPTIONAL_HEADER?(?
Magic*

MajorLinkerVersion+

MinorLinkerVersion,

SizeOfCode- $

SizeOfInitializedData. $

SizeOfUninitializedData/ $

AddressOfEntryPoint0 $

BaseOfCode1 $

BaseOfData2 $

ImageBase3 $

SectionAlignment4 $

FileAlignment5 $
$
MajorOperatingSystemVersion6
(
MinorOperatingSystemVersion7
*
MajorImageVersion8
,
MinorImageVersion9
.
MajorSubsystemVersion:
0
MinorSubsystemVersion;
2
Win32VersionValue< $
4
SizeOfImage= $
8
SizeOfHeaders> $
<
CheckSum? $
@
Subsystem@
D
DllCharacteristicsA
F
SizeOfStackReserveB $
H
SizeOfStackCommitC $
L
SizeOfHeapReserveD $
P
SizeOfHeapCommitE $
T
LoaderFlagsF $
X
NumberOfRvaAndSizesG $
\
DataDirectoryH?`???IMAGE_OPTIONAL_HEADER32I?PIMAGE_OPTIONAL_HEADER32I 7?PIMAGE_OPTIONAL_HEADER?& _IMAGE_NT_HEADERS???
Signature? $

FileHeader?6
OptionalHeader??PIMAGE_NT_HEADERS32??[PIMAGE_NT_HEADERS?!?# PhysicalAddress$
VirtualSize$
_IMAGE_SECTION_HEADER(
Name
?

Misc ?? $

SizeOfRawData $

PointerToRawData $

PointerToRelocations  $

PointerToLinenumbers  $

NumberOfRelocations

NumberOfLinenumbers
"?  $
$PIMAGE_SECTION_HEADER= # ?r $??$
OriginalFirstThunk$
_IMAGE_IMPORT_DESCRIPTOR?? %B x $

ForwarderChain $

Name $

FirstThunk $
IMAGE_IMPORT_DESCRIPTORr PIMAGE_IMPORT_DESCRIPTOR0"? doublelong double&_image_base__
HstrncmpV?yyyytstrlen@y?y__mingw_enum_import_library_names?y?F?
??i?(?4.?? ;
???MKimportDesc?
WUo? a_importsStartRVA? $
mi??F`
ɰ?`
??? ?$?Fu

?u
???|???d]?F
]?F+????}?????????_IsNonwritableInCurrentImage????F?
?3pTarget?%;
??? ;
rvaTarget? ?
??o? ?????F5
?? ?5
??? ???FE

?E
?? ??  dցF
P
??  }P
?) ' ?3 1 ?? ; _GetPEImageBase?;
@?F2
???? ;
?@?F
? ?
??? ?M?F*

?*
???_FindPESectionExec? ??Fs
??eNo?yS O ?? ;
???e c o? o m ???{ w ???F?? ????? ?ҀF

?
??? ? ?? ? __mingw_GetSectionCountp???F3
?7?r ;
?s? ???F?v ????? ???F?
?????__mingw_GetSectionForAddressb ?F}
?Lpb&N
??d ;
rvae ?
? ? ??F?h?????? ? ?F?
????? ? ?? ? dY?F
?l ?? ? }??? ? ?? ? ?? ? _FindPESectionByNameC `F?
?dpNameC#y??E ;
?F?  oG   ?H?& " '?zFzF.
O 0??????F?F#
???8 6 ?B @ (uF~Etw)?FVtstwt
8_FindPESection- ??-;
*rva
--?
?/?o0 ?1?_ValidateImageBase??;
pDOSHeadera??pOptHeader<+??~F.
?? ???N L ?? ??~F?
?Y U ???l f ?? ? ,d F=
? }??? ? ?? ? ?? ? ?? ? ?
?GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE^??F
/
charlunsigned intintshort unsigned intlong intlong long intllong unsigned int
unsigned charlong doubleULong5? y;?

STRTOG_Zero
STRTOG_Normal

STRTOG_Denormal
STRTOG_Infinite
STRTOG_NaN
STRTOG_NaNbits
STRTOG_NoNumber
STRTOG_Retmask
STRTOG_Neg
STRTOG_Inexlo
STRTOG_Inexhi
STRTOG_Inexact0
STRTOG_Underflow@
STRTOG_Overflow?FPIP
inbitsQ?eminR?emaxS?roundingT?sudden_underflowU?int_maxV?FPIW?
doublefloat?long long unsigned intt??y
__strtodgm???????i??__strtod
(t?F

? s?? sp(??fpi* id`Gbits+??hexpo,??dk
-?? ? 
.? L? dtu
."m??F?t?t?td`Gt?dt?h?

GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE??0?FUR

char
unsigned int
int
short unsigned int
long int
long long int
long unsigned int

unsigned charz
low{thigh{t?w3
xx3
valy=
lh|?
double
long long unsigned int?}

float
long double __fpclassify?
?0?FU
? _x
3
?hlp
W
lt ht#[

?GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIEHe??F?

char
unsigned int
int
short unsigned int
long int
long long int
long unsigned int

unsigned char
double
long long unsigned int
float
long double__isnan???F
?_x
??_sw
?hf?
0
GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE??__MINGW_INSTALL_DEBUG_MATHERR

?|`Gint?

^GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE% B ??F?

char
unsigned int
int
short unsigned int
long int
long long int
long unsigned int

unsigned char
short intDWORD??
float

signed char
long long unsigned int
double
long doubleSleepSleep@4f
?sleep
t??F
?seconds
"t?ĉFJ
t? ??
? GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE? ? ЉFK__gnuc_va_list?__builtin_va_list?

char?va_listl
unsigned int
int
short unsigned int
long int
long long int?
long unsigned int

unsigned char _iobuf ! ?
_ptr%
_cnt& ?_base'
_flag( ?_file) ?_charbuf* ?_bufsiz+ ?_tmpfname,
FILE/-
_unlock_file??
?
?
__mingw_pformatb ?????_lock_file?6?
__mingw_vfprintf
1 ?ЉFK
?stream?
?fmt5?argvB??retval
3??z ?F?tv ?F?
?t `tvt
0t?t??F?
tvt:
?4GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIEV| ?F?5?long doubledouble__gnuc_va_list?5__builtin_va_list?
char6?va_list?size_t%?unsigned intssize_t/
intwchar_tb
short unsigned intlong intlong long int?
O

long unsigned int$lconvP-decimal_point.J
thousands_sep/J
grouping0J
int_curr_symbol1J
currency_symbol2J
mon_decimal_point3J
mon_thousands_sep4J
mon_grouping5J
positive_sign6J
negative_sign7J
$int_frac_digits8 ?(frac_digits9 ?)p_cs_precedes: ?*p_sep_by_space; ?+n_cs_precedes< ?,n_sep_by_space= ?-p_sign_posn> ?.n_sign_posn? ?/_W_decimal_pointAO
0_W_thousands_sepBO
4_W_int_curr_symbolCO
8_W_currency_symbolDO
<_W_mon_decimal_pointEO
@_W_mon_thousands_sepFO
D_W_positive_signGO
H_W_negative_signHO
Ls

unsigned char$_iobuf !?_ptr%J
_cnt&
_base'J
_flag(
_file)
_charbuf*
_bufsiz+
_tmpfname,J
FILE/
signed charshort intlong long unsigned intfloatJ
?7??9 _Wchar?^
_Byte?
 _State?
8???9mbstate_t?9:
Nx%fpOx%strPz;?z<_IFP
L?=Ybch
R?&is_stringS
?>back_top
T
&seen_eofU
`?!
????_IFP
V?@??
?4count
? ?next
?4ptrs
? 9?!?I'?ungetc?
h
h?getc?
?hAabort?
(Bfree?x__mingw_strtof???__mingw_strtoldl??strtoul ^
?
strtol-
<?
strtoull?1?b?
strtoll?(9
??
isxdigitv
?
tolower?
?
mbrtowc???T
??F?reallocxx?mallocx*?isspacex
D
mbrlen??h??strlen @??z(localeconv[!(_errno Y
memset 5x?x
?)__mingw_vsscanfX
??FK
?F sXz?*?X-z?argpX=??ifpZ???_ҿF?

Ps

R?

Q?)__mingw_vfscanfO
@?FC
?? sOh?*?O'z?argpO7??ifpQ???_z?F?

Ps

R?

Q?+__mingw_sformat/

ЌFl2
??4s/
?4??,?/
'z??argp/
7?J:f1
z2 ?-?2
4??read_in3
???-?3
???cnt3
(???str_sz4
??1str5
J
?pstr5
??wbuf5
%J
?@wstr6
O
?qrval7

A?c7

?ignore_ws7

t!!arg8
?##fc9
?%b%npos:
?9'?&width;

4)?(flags;

?++base;

/.?-errno_sv;

00wbuf_cur_sz<
??060read_in_sv<
??3?3new_sz<
#?4?3n<
+??4w4seen_dot=
??4?4seen_exp=
??5?5is_neg=
??6?6not_in=
$??8k8tmp_wbuf_ptr>
J
?Dbuf>
?4?Klc_decimal_point?
z?9?9lc_thousands_sep?
"z?9?9state@
F?Pcstate@
F?XC
A
? ullB
?ulC
^
llD
9
lE
-
cv_valF
 ?:?:#?len[

;;?50?F
=d
?5);!; ?5?5T;L;?5?;z;D?5?F+? ?5?;?;6?;?;-?F?@?F#6

P??

R?@\7̡F
Mc
??7?;?;|7?;?;s7?;?;j7<?;\7ЮFXu s7?7<<|7<<j7)<'<?7X?73<1<ޮFI
tw??Fh?
tv??FD?
tv
t?PF7

P??~

Rvcsvf?
zD<><?/p?zn<`<remain?
?<?<\7z?F??7?<?<|7?<?<s7==j7%=!=\7??F
u s7?76=4=|7A=?=j7M=K=?7+.?7??FI˫F7

P??~

Ru:?F\7

Pw

R??~

Q??~
t
0?</?~za=U=?5?F

???5?=?= ?5?5?=?=?5?=?=?5??5?=?=6?=?=
?F?+?F?9?F?h?F?4?

P
0

Rv??F7

P??~

R??~??F?
tw??F?4

Ps

R??

Qvk/??z>?=?5ͲF
{???5>}> ?5?5?>?>?5?>?>?5???5?>?>6?>?>޲F??F??F?
t??I?F?4


P
0

Rvo?F7

P??~

R??~~?F?4
tw??F?4V

Ps

R??

Qv??F7t

P??~

R??~ ?F??
tw&?F\7?

Pw

R??~

Q??~
t
0U?F?4?

Pu

Rv

Q??|?F7?

P??~

R??~??F?
tw??F?4

Ps

Rv4\p?z?>?>remain?
P?$?v(ppz????\7??F
?# ?7$@ @|79@5@s7R@L@ j7\7t?F?u s7?7n@l@|7y@w@ j7?7??7?@?@??FI
tw??F7

P??~

R??~c?F7D

P??~

RwˤF?4

Pv

R???ld9l?@?@ ?7??F??F<(?8?@?@ 8?@?@8?@?@?F?
ts
t?D?Id@{A?@ ?7??F??FC08CA=A 8cAaA8sAmA?F?
ts
t?D?dG??A?A ?7?F?FI?8?A?A 8?A?A8?A?A??F?\7?F
?
?
`?7?A?A|7BBs7-B'Bj7KBGB\7?F
?
u s7?7\BZB|7gBeBj7tBrB?7?
?7~B|B?FI
tw ?5A?FA?F ?
??5?B?B ?5?5?B?B?5?B?B?5A?F ?5?B?B6?B?B]?F??5??F
?
A^?5?B?B ?5?5?B?B?5?B?B?5?
K?5?B?B6?B?BőF??F???F?\7?F
?
H?7C C|7(C"Cs7GCACj7eCaC\7³F
u s7?7vCtC|7?CCj7?C?C?7?7?C?CгFI
ts ?5'?F'?FYK ??5?C?C ?5?5?C?C?5?C?C?5??5?C?C6?C?CM?F?k?F?y?F?
tv ?5?F?F2
?5?C?C ?5?5?C?C?5?C?C?5?F2?5DD6DD-?F?\7??F
s ??7&D"D|7;D7Ds7VDPD j7\78?F?u s7?7rDpD|7}D{D j7?7??7?D?DF?FI
twz5??F?R?5?D?D??5?D?D??F
t?z5?F??H?5?D?D??5?D?D7?F
t?z5??F???5?D?D??5?D?D?F
t?z5V?F?_??5?D?D??5?D?D{?F
t??5??F
?? H?5?D?D ?5?5?D?D?5E?D?5??5E E6EEՙF??5?F
?x ??5)E'E ?5?55E3E?5BE@E?5??5NELE6ZEVE?F?\7?F
?1h?7kEiE|7vEtEs7?E?Ej7?E?E\7W?F
?u s7?7?E?E|7?E?Ej7?E?E?7??7?E?Ei?FI
twz5?F????5?E?E??5?E?E7?F
t? ?5@?F
@?F& (?5?E?E ?5?5?E?E?5?E?E?5@?F&?5?E?E6FF]?F? ?5??F??F+ ??5FF ?5?5(F&F?55F3F?5??F+?5?F=F6KFGF??F? ?5?F?F+u
?5\FZF ?5?5hFfF?5wFsF?5?F+?5?F?F6?F?F=?F??7!?F
?;w?7?F?F?7?F?F ?7??7?F?F?7?F?FA?F? ?5??F
??FJ? ?5?F?F ?5?5?F?F?5?F?F?5???5?F?F6G?F??F???F?̧F?
tv ?7n?Fn?F4?f?7GG?7!GG ?7?74G2G?7>G?F?.2
ts{?F\7Y2

Pw

R??~

Q??~
tu?F?n2
ts??F?4?2

P??~

Rv??F7?2

P??~

R??~??F?u?F<??F?4?2

Pw

RvW?F7?2

P??~

R??~a?F?3
tw?F?4 3

P
0

Rv7?F7??F7G3

P??~

R??~??F?5p3

P??~

R??

Q
0
t?@M?F?7?3

P??~

Rs

Q??1$ܶF??3
ts@?F7?3

P??~

R??~R?F?4?3

P??~

Rvk?F74

P??~

R??~??F?4
tw??F??F?84
ts1$??F?5\4

R??

Q??~
t?@??F?4{4

P
1

Rv

QsԾF7

P??~

R??~?!??4'?+resize_wbuf
J
??Fl
?u5wpsz
??Q?Q,?
#u5?Q?Qold
6J
%RRwbuf
J
jRdRnsz
??R?R?F?N5
tw
ts8?Fc5
tsH?F?
tw?Eresize_gcollect


4
?5Fpf

#4Gnp

4cleanup_return?
6 rval?
pfree?-6 strp?;? wbuf?H?"pf?4pf_sv?*4}?F?4Hrelease_ptrs
?
`?Fu
??60pt?!6?R?R0wbuf?,??R?R1pf?4?R?R1cnt? ??R?R?
?6pf_sv?4??F???F?
tvt?F?match_string?
7 s??4 rin? u5 c?*Y
str?9zch?
in_ch?
\7 s??4 rin?u5r?
IO7ps?z"fp?h2back_chu?7 cu
su?4 rinu"u5 not_eofu+
"fp{ h2optimize_allocd?7 pd? endd!J
alloc_szd-?need_szf ?hg J
get_va_nthYx*8 argpY? nY(?ap[?#?7 ?F1
??8?7SS?7;S5S?7TSNS?7iSgS?7qSoSB?F?#?5P?F?
?9?5?SwS?5?S?S?5?S?S3?5??5?
?8?5TT6$T T??F???F?ˋF#6

Pw

R?#7??F?
??9"7CT3T+7?T?T67?T?T7?F?
?+7?T?T"7#UU?
67IUCU?7?
?9D7aU_UO7@?FP7kUiUH?FmJ\7p?F]
?j7xUtUs7?U?U|7?U?U3?7?K\7??F
??F
u
s7?7?U?U|7?U?Uj7?U?U?7?
.?7ŒFI
t?
PP
? GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE-U?FvtL__gnuc_va_list?__builtin_va_list?
char ?va_listlsize_t%?unsigned intintshort unsigned intlong intlong long int?long unsigned int
unsigned char __mingw_pformatb ?r
?r
?t
??__mingw_vsnprintf
??Fv
?buf"
? length
.?VVfmtEt
?argvR??retval
"?1V/V?F<
%
t
0
tv
ts
t?
t?P?F<

t
0
tv
t
0
t?
t??

d!GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE?`?F9M__gnuc_va_list?__builtin_va_list?

char ?va_listl
unsigned int
int
short unsigned int
long int
long long int?
long unsigned int

unsigned char __mingw_pformatb ?a
?a
?c
??__mingw_vsprintf
1 ?`?F9
?buf!
?fmt5c
?argvB?? retval
3?EVCV??F+
t @tst
0t?t? 
("
?M??F+'.
?
<"GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE????Fy?M

char
unsigned int
int
short unsigned int
long int
long long int?
long unsigned int

unsigned char
double
long long unsigned int
float
long double_errno? ldexp????Fy
??
x??expn?? res
 ?aVWV?
??F??F?
?V?V?V?V?
??F
??F?
?V?V?V?V;?F&
__fpclassify?
? x?
1?sw?
?k
+#-GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE/OP?F?!?N double
charvsize_t%? unsigned int int?wchar_tb? short unsigned int long int long long int v ? ? long unsigned int!lconvP- ?decimal_point.?thousands_sep/?grouping0?int_curr_symbol1?currency_symbol2?mon_decimal_point3?mon_thousands_sep4?mon_grouping5?positive_sign6? negative_sign7?$int_frac_digits8 v(frac_digits9 v)p_cs_precedes: v*p_sep_by_space; v+n_cs_precedes< v,n_sep_by_space= v-p_sign_posn> v.n_sign_posn? v/_W_decimal_pointA?0_W_thousands_sepB?4_W_int_curr_symbolC?8_W_currency_symbolD?<_W_mon_decimal_pointE?@_W_mon_thousands_sepF?D_W_positive_signG?H_W_negative_signH?L 

unsigned char long doubleULong5
"?;?STRTOG_ZeroSTRTOG_Normal
STRTOG_DenormalSTRTOG_InfiniteSTRTOG_NaNSTRTOG_NaNbitsSTRTOG_NoNumberSTRTOG_RetmaskSTRTOG_NegSTRTOG_InexloSTRTOG_Inexhi STRTOG_Inexact0STRTOG_Underflow@STRTOG_Overflow?!FPIP
0nbitsQ?eminR?emaxS?roundingT?.FU?int_maxV?FPIW?"?Y?FPI_Round_zeroFPI_Round_near
FPI_Round_upFPI_Round_downl float ? long long unsigned int ~/_dbl_union
?#d#l#L,????
0dbl_union
4?1=?

bnext?
bk?
?maxwds?
?sign?
?wds?
?x?
g ?w?2=?
??3?__bigtens_D2A?__tens_D2A ?__tinytens_D2A(?????4fivesbits
'
???T__any_on_D2A3?? w__copybits_D2A6JJ? ?$_errno?__trailz_D2AO?}__sum_D2AN?__ratio_D2AHl?__cmp_D2A5??__diff_D2A9__mult_D2AC&__pow5mult_D2AFL?__i2b_D2A>h?__s2b_D2AK??????__lshift_D2AA??__rshift_D2AI??__d2b_D2A7
l??__hexnan_D2A<?* * / J ? 0__match_D2AB?W * ?__gethex_D2A:?? * / ? ? ? ? %strlen@?? ?$localeconv[!?__Bfree_D2A,? %memcpy2? ? ? ? ?5 ? 6__Balloc_D2A+ ?7__strtodg

???F`
??8s00

??V?Vse(??fpi1/ ?expo?F??
ts??F??
tsd?F? 
tup?F? +
t??~|?F? B
t??~??F? Y
t????F? n
tw??F? C?FU?
t?
t?
tv5&2$??F??
t??~
t??~v?F??
tsg?FO??F??
t
1??F? 
ts??F? 
tv?F?3
ts??F??FO??FW z
t?X
t?
t?
t?\
t??B?F??
tw
t
1T?F??
tw
t??~#?F???F??
t??v??F^?
tv??F?
tvmantbits

?
+d

!+'L

? ?(rvOK??d?+fpi?%/ expo?0? bits?=Jexact? ?rd??irv??b? carry??inex??lostbits??bdif??e??j??k??k1??nb??rv??)trunc?)ret?*__set_ones_D2A|??F?
?'b|????n|"????k~?P?>?x J????xe Jń???FU?
tw
t?
t0?5&2$sw"E2%2$#4?5&2$w"@K$"s@K$"*(
i?FU
ts
t?
tu??F? 
ts??F
tw(all_onn?^bnnn#?xp Jxep J;__decrement_D2A
Tp?F1
?????F???@S??F
S
??o.?,??F??
t??l
t?\
t?Xj?F?

ts~?F?
ts??F?+
ts??F?F
ts
t
1?F? [
ts??F?x
ts
t?L??F$?
t?@
tw
tsL?F??
tso?F??
ts??F??
ts??FO??F??
ts?F?
ts,?F?*
ts
tv]?F?
ts,memcpy__builtin_memcpy,memset__builtin_memset?
6'GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE??F?Eh
char lunsigned intintshort unsigned intlong intlong long intllong unsigned int
unsigned charlong doubleULong5?y;?

STRTOG_Zero
STRTOG_Normal

STRTOG_Denormal
STRTOG_Infinite
STRTOG_NaN
STRTOG_NaNbits
STRTOG_NoNumber
STRTOG_Retmask
STRTOG_Neg
STRTOG_Inexlo
STRTOG_Inexhi
STRTOG_Inexact0
STRTOG_Underflow@
STRTOG_Overflow?FPIP
inbitsQ?eminR?emaxS?roundingT?sudden_underflowU?int_maxV?FPIW?
doublefloat?long long unsigned intt??y__strtodgm???????i??__strtof
"~?F?
? s?? sp'??fpi0$ i?`Gbits%??hexpo&??l k'?O?M?
(?L?f~ u(!mf?V?/?F?t?t?t?`Gt?lt?h?
m(GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIELE??F?i
charlunsigned intintshort unsigned intlong intlong long intllong unsigned int
unsigned charlong doubleULong5?UShort8?y;
STRTOG_Zero
STRTOG_Normal

STRTOG_Denormal
STRTOG_Infinite
STRTOG_NaN
STRTOG_NaNbits
STRTOG_NoNumber
STRTOG_Retmask
STRTOG_Neg
STRTOG_Inexlo
STRTOG_Inexhi
STRTOG_Inexact0
STRTOG_Underflow@
STRTOG_Overflow?FPIP
ynbitsQ?eminR?emaxS?roundingT?sudden_underflowU?int_maxV?FPIWdoublefloat??long long unsigned intt??? y
lD
:?L; ?D<?
 ylD
=?__strtodgm?@??@EJy??__strtold
v
???F?
?Asrcv&??endptrv@??retx?dA??F
?
z i???? `ԊΊ X?????\??X??????????F??Ft?t?t?`Gt?Xt?\__strtopx
??
? s#? sp-? V5?fpi0A y?`GbitsC?expoD?kE?LF ?normal_bits
\
V
* GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE??P?F?
?i

charsize_t%?
unsigned int
int
short unsigned int
long int
long long int
long unsigned int

unsigned char
long doubleULong5?
double
float
long long unsigned intW?

?
next?
?
k?
?maxwds?
?sign?
?wds?
?x?
?
=

?
?W?
=
__Bfree_D2A, ?
?
?
memcpy2t__Balloc_D2A+?
(?__sum_D2A
" ?
P?F?

?9a?
+?#?b!?
S?I?c$ ?
??t?carry%
????xc%9(??xa%9i?[?xb%9????xe%9ƌ??y%#
??z'
?? {?F ??F??F>&tvts??F?
t?\
memcpy__builtin_memcpy
p+GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIEG@??F?@l

char l
unsigned int
int
short unsigned int
long int
long long intl?
long unsigned int

unsigned char
double
float
long double? 


signed char
short int
long long unsigned int intmax_tD&? uintmax_tE0;
islowerr??
?isupperp??
?isspacex??
?_errno??strtoimax
"
U
??F?
?nptr#%J?*?endptr
$
?base%?????accum'e
?׍n(?D?:?minus)?}?i?toobig*???-? ?F?
?tso?F?
?tu?Fv
?tu?FN?F?
?ts??F?
?Fv
?tsB?F?
??F?
t ``
n,GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE????F??n

charl
unsigned int
int
short unsigned int
long int
long long intl?
long unsigned int

unsigned char
double
float
long double? 


signed char
short int
long long unsigned int uintmax_tE0;
islowerr?
?isupperp??
?isspacex??
?_errno??strtoumax
"
U
??F?
? nptr#%????endptr
$
? base%?'?!?accum'U
H?>?next(U
????n)?????minus*?̐??toobig+?u?k? ?F?
?tso?F
?tu?Fg
?tu?F^?F
?ts??F?
?Fg
?ts}?F?
t ii?,
k-9GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIEh???F?'+qlong long unsigned intlong double __gnuc_va_list?:__builtin_va_list?
char1? va_list? size_t%?unsigned intint wchar_tb
1
short unsigned intlong intlong long int?"O

"Y

long unsigned int#lconvP- decimal_point.O
thousands_sep/O
grouping0O
int_curr_symbol1O
currency_symbol2O
mon_decimal_point3O
mon_thousands_sep4O
mon_grouping5O
positive_sign6O
negative_sign7O
$int_frac_digits8 ?(frac_digits9 ?)p_cs_precedes: ?*p_sep_by_space; ?+n_cs_precedes< ?,n_sep_by_space= ?-p_sign_posn> ?.n_sign_posn? ?/_W_decimal_pointAY
0_W_thousands_sepBY
4_W_int_curr_symbolCY
8_W_currency_symbolDY
<_W_mon_decimal_pointEY
@_W_mon_thousands_sepFY
D_W_positive_signGY
H_W_negative_signHY
L}

unsigned char#_iobuf ! ?_ptr%O
_cnt&
_base'O
_flag(
_file)
_charbuf*
_bufsiz+
_tmpfname,O
 FILE/!
signed charshort int int32_t'
uint32_t(? int64_t)&>
doublefloat
O
;??i_Wchar?h
_Byte?
_State?
?
c??__uI128
e!=t128f?t128_2g  __uI128
h@
? N__pformat_long_t?2
__pformat_llong_t?>
__pformat_ulong_t?h
__pformat_ullong_t?l__pformat_ushort_t?
__pformat_uchar_t?__pformat_short_t??__pformat_char_t??__pformat_ptr_t?N__pformat_u128_t?=A __pformat_intarg_t
?M$?
?
?PFORMAT_INITPFORMAT_SET_WIDTH
PFORMAT_GET_PRECISIONPFORMAT_SET_PRECISIONPFORMAT_END __pformat_state_t
?k$?
?
?PFORMAT_LENGTH_INTPFORMAT_LENGTH_SHORT
PFORMAT_LENGTH_LONGPFORMAT_LENGTH_LLONGPFORMAT_LENGTH_LLONG128PFORMAT_LENGTH_CHAR __pformat_length_t
??2,
p dest

Nflags


width


B?
!

rplen
"

rpchr
#

thousands_chr_len
$

thousands_chr
%

count
&

quota
'

$expmin
(

(.__pformat_t
)
?2 ? __pformat_fpreg_mantissa
l__pformat_fpreg_exponent
?C
 ` %__pformat_fpreg_double_t%__pformat_fpreg_ldouble_t?D? %__pformat_fpreg_bitmap` %__pformat_fpreg_bitsh

p ?.__pformat_fpreg_t
? ULong 5h
$? ;?STRTOG_ZeroSTRTOG_Normal
STRTOG_DenormalSTRTOG_InfiniteSTRTOG_NaNSTRTOG_NaNbitsSTRTOG_NoNumberSTRTOG_RetmaskSTRTOG_NegSTRTOG_InexloSTRTOG_Inexhi STRTOG_Inexact0STRTOG_Underflow@STRTOG_Overflow?#FPI P
nbits Q
emin R
emax S
rounding T
sudden_underflow U
int_max V
 FPI W?$? Y]FPI_Round_zeroFPI_Round_near
FPI_Round_upFPI_Round_down/fputcz
{
{?__gdtoa fO
??
?c


c
#? E__freedtoa h ?O
strlen @???strnlen A? ??wcslen ??1 wcsnlen ??P ?/wcrtomb??u T

z v"u /mbrtowc??? ^
??z 3localeconv[!memset 5N? N
?strerror RO
? 
3_errnoc
F__mingw_pformat
l

0GH
?<flagsl 
????destl Nˑɑmaxl '
֑ԑfmtl ;??ߑargvl H??ޒcn 
Z??saved_errnoo 
????sq p ??Gformat_scan
? &??argval? P??!?? ????length? ???˖backtrack? ?ؗΗwidth_spec? c
$??&??iargval? 
??? GG#

P??

R
1

Q??'hG] lene
????rpchre"
??cstatee3v???G? ?G
t??
t
@
tv ??G?-??ԘƘ?4? ?#??(??&?G?G?y?& ?&????'?G
?G? ?5' @'????
G?*?
tw3G?

R??T

Q?? <8G?2?`????U4? l&??(x?&:G
:G( C?& ?&?????&iG
iG4 p' '????H??G? ??????G?*?

Qw
t??G??

P
0

R??T

Q??G?

Pw ?

R??T

Q?? #?G? ?:#Қƚ/# ? ?G1 9
tw,GG#T

Pw

Q???G i
tw?GG#

Pw

Q??? G?'?

P??~
t??? G )?

Q??WGe&?

P%

R??. Gd?

P??[ G??

P??? G?

P??|G? %
t??~?G?$:

R??G?'V

Px
t?? Gr%w

P??

R
1

Q??SG??

P???G??

P???Gd?

P???G?$?

R??`Ge&?

P%

R???G ) e&?G??2?& ??{&9?5?? G]
twMG? __pformat_xdouble ?x
 s 0??# ?z
$ p shifted
F
p __pformat_xldouble??x
?&?s?6????z
?p __pformat_emit_xfloat????/p s?C?buf
??p
?O
??Pz?&?Ihi
)
c
-? min_width
t
exponent2
u
???__pformat_gfloatg?
Gh

?d)xg$??sg4?\?H??p
?h?p
?l!?pO
???? ??
G
??????????:?6??M?K??
G?

P
2

Q?l
t???

t?h?
G??

Rv

Qw
tsGe&?

P

Rs!G??
tv<G??
tvRG

Rv

Qw
tsZG?#
tv?G?=

Rv

Qs?G?R
tv?G?
tv__pformat_efloatB G?
??)xB$??sB4?b?V??J
?h?J
?l!?JO
???? ?1G
?TK?ɜ?????????*?(?NG?

P
2

Q?l
t???

t?hjGf

Rv
tsrG?{
tv?G??

Rv

Qs?G?
tv__pformat_float>?G?
?)x>#??s>3?9?3??F
?h?F
?l!?FO
\?R? S?G
?P???????????yΝʝn?ߝ?G?

P
3

Q?l
t???

t?h e&/
G
?b??&??{&
???V
G]
t 
G??

Rv
tsm
G?

Rv

Qsu
G?
tv__pformat_emit_efloat?@?F?
????!
????-O
.?(?e?8
U?G?0s?H??!z
?????
P??F??

P?\

Rv

Q
1
ts??Fe&?

Rs5G )

Q?__pformat_emit_floatWp?F?
???W
?Ξ?W,O
H?.?lenW7
????0sWI??&??cths?
??i?Fe&?

Rs??FG#?

Ps

R
1

Qs??Fe&?

P-

Rs?F??

Ps1?Fe&?

Rs\?Fe&

P0

Rsn?F?&

Ps??Fe&@

P0

Rs??Fe&Z

P

Rs4?Fe&t

P+

Rs\?Fe&?

P0

Rs?Fe&

P

Rs__pformat_emit_inf_or_nan'0?F?
?O?'%
-?%??'1O
^?P?s'E?????i
,
buf-O?\p. O
٠ɠ??Fr%

Pv

Qu?_?__pformat_emit_numeric_value?c
(
s8? wcs

__pformat_emit_radix_point? ?FN

?@s?/?>?0?'?FPSlen?
z?v?rpchr?
?V??'v?X?F? 3?F
t?V
t
@
tv&?len?
????buf?@??????7v?X'??FU?p? O
ۡ١6e&??F?? ?&??{&??????F]}?FP 
tv
t?X\?Fe&

P.

RsJ?????Fe&

P.

Rs?SK?*__pformat_fcvt?O
?x
?#???*
dp
?:c
??Cc
*__pformat_ecvt{O
?x
{#??{*
dp
{:c
?{Cc
L__pformat_cvt
CO
??F?
?V!modeC
;?3?)valC,??ndC5
`?X?dpC>c
???0?CGc
?kI
?XeI?????epI$O
?\fpiJ?`GxKp ?`V!??F??FK? u!ܢڢ(?!'??F??FM!5'?? @'??F?F?
t?`G
t?`
t?X
ts
t?
R
t?
Q
tv*init_fpreg_ldoublep ?!val
:?x
p exp
'
mant
(ltopbit
)
signbit
*
__pformat_xintuj"fmt
u
?u2PsuF?width
~
shift

bufflen
?
buf
? O
p
? O
mask
?
q
?O
__pformat_int??"??(Ps?
????'??FQ0$pcO
????6e&??F?e?&ã??{&֣ң??F]+?FP R$
tw
t
0
t?H??FP n$
tw
t?H?Fe&?$

P

RsL?Fe&

P

Rs??$?__pformat_puts??FX
?r%s"????s2?i?Y???F? %
ts7?Fr%5%

P?
Pp?T?
P0.(


Q?
R?F?J%
ts5(?Fr%

P?
Pp?T?
P0.(


Q?
R__pformat_putchars?
??FL

?e&s?
&?????count?
-
?֤s?
A?f?V? e&??F??
&?&????{&?????F] e&0?F
?
N&?&ܥإ{&??T?F]
t ??Fe&

P

Rs__pformat_putc?
?&c
?

s?
*?+__isnanl0
?&_x02?sw?
+__isnan
?&_x,sw
+__fpclassify?

'x?
1sw?

+__fpclassifyl?

M'x?
7?sw?

,e&??FR
??'{&???&+?!???F]
t?
P,?!??Fl
? )?!m?U??!ئ֦ "#?? "A?9? %"n?b? 6"???? C"s?1? N"v?r??!???? ?"??F
?S( #????"D?4??"????-\"An( ]"???? e&I?FL??(?&ʫƫ{&ݫ٫l?F] e&??F
a?(?&???{&????F]
t ??F?,??Fe& )

P

Rs??F?,?F?,,j"0?F?
??*?":?&? ?"???? ?"?Ϭ ?"j?B? ?"???"*?? ?"9?F
l??) #?????"?????"ծѮ e&A?F?g?)?&??{&????d?F] e&??F
?q;*?& ??{&3?/???F]
t ??F?,W*
t0
tw??F?,s*
t0
tw??Fe&

P

Rs,??G4
??,M?8?H '~?F?(2 >c?U?԰??-J+ O:?*?NZ0 [??w?-hTI+ iֲʲ |$??|Ge&

P

Rs _1Gn??+?f?`????|?-?~?+8??F?GG#

P?F

R
1

QsFGe&?+

Rs?G?

Ps?Ge&?+

P0

Rs?Ge&?+

Rs?Ge&,

P0

Rs?Ge&1,

P0

Rs?Ge&E,

Rs7?G )Z,

Q?Ge&t,

P-

RsDGe&?,

P+

Rs?Ge&

P

RsOmemset__builtin_memset?
2GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIEp??G??long long unsigned intunsigned int
charintshort unsigned intlong intlong long int??long unsigned int
unsigned charlong doubleULong5?doublefloat???

?
next?
?
k?
?maxwds?
?sign?
?wds?
?x?
?
=

?
???
=
__cmp_D2A5??
?
?
?
__Bfree_D2A, ?
?
__Balloc_D2A+?
?__quorem_D2AU?`G
?,bU?
?SU ?
?
nW??׳
bxX ,*??
bxeX,r?h?
qX
????
sxX,ʹɴ
sxeX,?ܴ
borrowZ l???
carryZl??
yZl'?%?
ysZl8?4? ?G?
t?t?
__freedtoa
J@G
?y sJ?W?S?
bL ?
m?i?`G?
__nrv_alloc_D2A8??Gt
?I s8?????rve8"8
?n8+??
rv:?????
t: ?µ??I?G?
<eֵе?o??w? ?&?$? ?G?
tw__rv_alloc_D2A
&?
?i
&? j? k ? r ?I?G6
?e?o2?,?wG?C?W?S? ?G?
ts0
?3GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE???G<??doubleint
charsize_t%?unsigned intshort unsigned intlong intlong long int } vlong unsigned int
unsigned charlong doubleULong5??;STRTOG_ZeroSTRTOG_Normal
STRTOG_DenormalSTRTOG_InfiniteSTRTOG_NaNSTRTOG_NaNbitsSTRTOG_NoNumberSTRTOG_RetmaskSTRTOG_NegSTRTOG_InexloSTRTOG_Inexhi STRTOG_Inexact0STRTOG_Underflow@STRTOG_Overflow?FPIP
?nbitsQveminRvemaxSvroundingTvsudden_underflowUvint_maxVvFPIWlfloat ?long long unsigned int_dbl_union
?d#lL,?
??
??

Pnext?
Pk?
vmaxwds?
vsign?
vwds?
vx?
U ?
e?!??
??}"r__bigtens_D2A}__tens_D2A }__diff_D2A9???? e__quorem_D2AGv???#memcpy2?$ %__Balloc_D2A+?<v__multadd_D2AD?f?vv__cmp_D2A5v???__lshift_D2AA???v__mult_D2AC????__pow5mult_D2AF???v__i2b_D2A>?v__rv_alloc_D2AJ?0v__b2d_D2A4lQ??__Bfree_D2A,j?__rshift_D2AI??v__trailz_D2AOv??__nrv_alloc_D2AE????v&__gdtoa
j??G<
?mfpimv?p?bev????bits)r????kindpj4??mode?vӷ??ndigitsIvM?7?decptk??rvek??bbits?v۸??b2? v???b5?vi?5?be0?vs?K?dig?vV?(?'i
?v?\ieps?"v??ilim?(v??G?ilim0?.v??ilim1?5v?i?inex?,Gaccept?s*Groundoff?4(Gchopzeros?w)GwG? ???????????????) ???? ?#?? ?9?3? ?U?O? ?q?o? ?}?y?*??G??G
#C? ????7G+??&G3
 .?????G?C
tu?G0_
tu
t?\yG??GQ}
tu?G??
t ?T
t??~
t
1?G?Gj?
tuGnG?
t??~#
GQ?
t??~ GQ
tvGQ%
tuX G?9
t
1? G?W
tu
t??? G?k
t
1 !G??
tu
t??s"0!G??
t??~?!G<?
t??~
t
5
t
0?!Gf?
tu
t??~#G?
tv
tsH#GQ?#G<*
tu
t
:
t
0?#G<K
tv
t
:
t
0?#G<n
t??~
t
:
t
0$G??
tu
t??~3$Gf?
tu
tvI$G??
t??~
t??~f$Gf?
tu
t??v$GQ?
t???$GQ
t??~?$GQ+
t??~%G<4%GfR
tu
t??~d%G<s
tu
t
:
t
0?%G<?
tu
t
:
t
0?%G??
tu
twt&G??
t??~
t??
)G??
tv
t??)G? 
tv
tu)GQ
tuJ)G?:
tu
t
1\)GfX
tu
t??~?)G<y
ts
t
:
t
0*G<?
tu
t
:
t
0'*G??
tu
t??~F*Gf?
t??~
ts%+GG+G?
ts
tvW+G?
ts
t
1?+G?1
tu
t
1?+GfO
tu
t??~,>-G<
tv
t
:
t
0 ? 
-bitstob
"?
?bits rnbits*vbbits6? i$v k$ v b% ? be& r x&r x0&r.ret
D/__hi0bits_D2A?

v0y?

1memcpy__builtin_memcpy8
?6GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIEv??.G? ??
charlunsigned intintwchar_tb?short unsigned intlong intlong long intl??long unsigned intlconvP- ?
decimal_point.?
thousands_sep/?
grouping0?
int_curr_symbol1?
currency_symbol2?
mon_decimal_point3?
mon_thousands_sep4?
mon_grouping5?
positive_sign6?
negative_sign7?$
int_frac_digits8 l(
frac_digits9 l)
p_cs_precedes: l*
p_sep_by_space; l+
n_cs_precedes< l,
n_sep_by_space= l-
p_sign_posn> l.
n_sign_posn? l/
_W_decimal_pointA?0
_W_thousands_sepB?4
_W_int_curr_symbolC?8
_W_currency_symbolD?<
_W_mon_decimal_pointE?@
_W_mon_thousands_sepF?D
_W_positive_signG?H
_W_negative_signH?L??
unsigned char?long doubleULong5?y;?STRTOG_ZeroSTRTOG_Normal
STRTOG_DenormalSTRTOG_InfiniteSTRTOG_NaNSTRTOG_NaNbitsSTRTOG_NoNumberSTRTOG_RetmaskSTRTOG_NegSTRTOG_InexloSTRTOG_Inexhi STRTOG_Inexact0STRTOG_Underflow@STRTOG_Overflow?FPIP
)
nbitsQ?
eminR?
emaxS?
roundingT?
sudden_underflowU?
int_maxV?FPIW?yY?FPI_Round_zeroFPI_Round_near
FPI_Round_upFPI_Round_downdoublefloatlong long unsigned intt??

 next?
 k?
? maxwds?
? sign?
? wds?
? x?
??'y??
???__hexdig_D2A)4__increment_D2A?www'_errno?__Bfree_D2A,?w__lshift_D2AAw?w?__rshift_D2AI?w?__any_on_D2A3?w?__Balloc_D2A+w*?__mingw_hexdig_init_D2A; localeconv[!?__gethex_D2A
&??.G?
?? sp?? fpi#?? expo.?? bp=??sign
&E?????b( w3???decpt)?)??s0)???y?s)$?F??s1)(?%???big*?????esign*?!? ?havedig*???r?irv*?g?O?j* ?????k*#?#??n*&?????n0*)?????nbits*-? ???up*4?}?s?zret*8?????L+???lostbits+?f?H?x+????e,?/???e1, ?!??i.?Q???decimalpoint/?????pcheckwB/Gret_tiny?4Gretz
?4Gdret
)4Govfl1?55Gret_big??/Govfl?-5Gone_bit
?6G ??2GJ
? !?"?r6GU
G
% #?? ? ?.GG ?/G0G \ twt?tu2$ 1G 1G"z tu U3G*4G? t
0 ?4G|?4G?? tv ?4G|?4G?? tvt?H55G?? tv :5G|n5G?tvtw?5G?1tvtw6G?FtvX6GU[tv?6G?vtvt
17G??tvtu8G??tvt?D$08G?tvtw?)?w?%__hi0bits_D2A?

? &y?
?memset__builtin_memsetstrlen__builtin_strlen 
9GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE#A`8Gd
-?

char
unsigned int
int
short unsigned int
long int
long long int
long unsigned int

unsigned char
long doubleULong5?
double
float
long long unsigned int??

?
next?
?
k?
?maxwds?
?sign?
?wds?
?x?
?
.
??
t??
.
__trailz_D2A
>??9G4
?Sb>S?L@?A???x@XP?J?xe@Xj?h?nA?v?r? ??9G?9G
I ?????????
?__rshift_D2A
"`8G#

??b"S?k
"?????x$ X???x1$ Xt?^?xe$X????y$?
???n%? ??__lo0bits_D2A?

?y?
Xret?
??
V:GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE???9G~?

char
unsigned int
int
short unsigned int
long int
long long int
long unsigned int

unsigned char
long double
double
float
long long unsigned int?+
__hexdig_D2A)
?Q
t?+

"A
@3V __mingw_hexdig_init_D2A
+?9G~
?cc?9Gl
.?
?M?K?{V?T?sc?a?l?t?n??????c
:G(
/(?{s??????????c):G#
0?{s??????????htinit
$
?h$?s6?inc=?i?j ??#
i;GNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE? P:G/?
char lunsigned intintshort unsigned intlong intlong long intlong unsigned int
unsigned charlong double ULong5?y;?

STRTOG_Zero
STRTOG_Normal

STRTOG_Denormal
STRTOG_Infinite
STRTOG_NaN
STRTOG_NaNbits
STRTOG_NoNumber
STRTOG_Retmask
STRTOG_Neg
STRTOG_Inexlo
STRTOG_Inexhi
STRTOG_Inexact0
STRTOG_Underflow@
STRTOG_Overflow?FPIP
dnbitsQ?eminR?emaxS?roundingT?sudden_underflowU?int_maxV? FPIW?
doublefloatlong long unsigned intt??__hexdig_D2A)?__mingw_hexdig_init_D2A; __hexnan_D2A
/?P:G/
??sp??fpi#??x0/??c1?,??h1?????x1?????x11?????xe1?/?)?s2?s?S?havedig3?????hd03?L?G
>GT
u}???????????????????UGH ??
charlsize_t%?unsigned intintshort unsigned intlong int/?long long intl?long unsigned int
unsigned char0WORD??DWORD??float2
1
signed charshort intlong long unsigned intULONG_PTR7?LONG
?HANDLE?

_LIST_ENTRYd?
Flinke?
Blinkf?
?
LIST_ENTRYg?
_RTL_CRITICAL_SECTION_DEBUG ; ?Type< 
CreatorBackTraceIndex= 
CriticalSection> %?ProcessLocksList? ?
EntryCount@ 
ContentionCountA 
FlagsB 
CreatorBackTraceIndexHighC 
SpareWORDD 
_RTL_CRITICAL_SECTIONV ?DebugInfoW #?LockCountX {
RecursionCountY {
OwningThreadZ ?
LockSemaphore[ ?
SpinCount\ i
?PRTL_CRITICAL_SECTION_DEBUGE #??
RTL_CRITICAL_SECTION] ?PRTL_CRITICAL_SECTION] ?CRITICAL_SECTION? ?LPCRITICAL_SECTION?!?double'long doubleJ2 ?[?
dtoa_CritSec7K?=Vdtoa_CS_init8 ??=VULong 5?'t3_dbl_union
?%d#'%L,? ???
4??

Anext?
Ak?
?maxwds?
?sign?
?wds?
?x?
F? ?V?5??
? 1n6c__bigtens_D2An__tens_D2A n__tinytens_D2A(n ??? Vfreelistq?`=V '?7?
private_memw?`4Vpmem_nextw*??`G&p5s?
?@4V 1;?+sA
;??T?B;`?T 1t?d?E
t??T8memcpy 2
? 
-
y9free? 
LeaveCriticalSection,LeaveCriticalSection@4? DeleteCriticalSection.DeleteCriticalSection@44 SleepSleep@4N 
'atexit?
?g EInitializeCriticalSectionpInitializeCriticalSection@4? EnterCriticalSection+EnterCriticalSection@4? 'malloc
? y__strcp_D2AK??KG(
?AaK?? ?bK'?$??__d2b_D2A? ??JG?
?? dd?'?e???bits?&??
b? ???;?d
??
i??T?N?
de??u?k?
k? ?????
x? ? ????
y?????
z??5?+? -?JG
 ?L F????! Q????-@KG
@KG ? ? F????Q???? ?KG
 5? !?????JG?t
1?__b2d_D2A?'pIG6

?? a???e???
xa? ? ????
xa0?? C?3?w
??
y??????
z??????
k??!??d
??:ret_d
?SJG;?IG
?IG
?!k?i?__diff_D2A9 ? GGB
?Oa9??s?b9"?????
c; ?????
i<???
wa< ?P?H?
wb< ?}?u?
xa= ? ????
xae=? ????
xb=? ??
xbe=? "??
xc=? c?O?
borrow? O
????
y?O
??O/GG/GGAG5r%?#?g/?-?}9?7??C?A??M?K??W?U??g?a??????{GG?IG?t
0"__cmp_D2A
?
?a
?b
?xa
 ? xa0
? xb
? xb0
? i
?j
 ?__lshift_D2A?
??EG4

?? b?
?????k?
?????
i?
?????
k1?
???
n?
???
n1?
?C?;?
b1?
?j?f?
x?
? ??z?
x1?
? ????
xe?
? 0?&?
z?
?h?b??EG? FGD? t?L#t
0tv?FG?__pow5mult_D2A?
?DGt

??b?
????k?
"?????
b1?
?A?=?
p5?
?`?P?
p51?
?????
i?
?????&p05?
???T _?DG
??
?q???DG?t?=V_$EG
$EG"?
q??>EG?t?=V?FEGFEG ?
I?$?"??1?/?REG?t
1 mDG?etutw?DG? ?DG{?
P
1 ?DG??twtw ?DG??tvt s32$|?T"t
0EG{
P
1 ???__mult_D2AE
?pBG?

??aE
?A?9?bE
"?j?f?
cG
??{?
kH
?????
waH
?????
wbH
?????
wcH
?????
xI
? ????
xaI
? ?
?
xaeI
? 2?.?
xbI
? H?B?
xbeI
? a?_?
xcI
#? o?i?
xc0I
(? ????
yJ
?????
carryL
O
????
zL
O
?????BG??BGDtst
0tu2$s"?LE2%2$#"__i2b_D2A
9
?
?i
9
?b
;
?<__multadd_D2A
? ??@G?
??(b??????)m?!??)a?(??i??"??wds? ?Y?I?x? ? ????carry? O
????y?O
????b1? ?????vAG? ?AG]?tvts?AG?t?=__Bfree_D2A
?
?#v??>__Balloc_D2A
z ?
#kz?x|?rv} ?len?*__hi0bits_D2A?
?-y?
?*__lo0bits_D2A?
?_y?
? ret?
?+dtoa_unlockc{#nc??dtoa_lock
H ?>G?
??(nH? ??@?YA?
O?N?J?B?>G*(iQ?a?[? ?>Gg?t?=V ?>Ggt?=V
?GNtP?GC??>G
?>G
O?w?u????~? ?>G4mt
1?G?tv1$v"3$?=V"+dtoa_lock_cleanup>?D?
@?EiB?"_InterlockedExchange? ??Target?2?Value?C???P?G?
???????,?P?GP?G@W??????????F?h?G?
> !?G?H??????? {?G??t?=V??G?t?=V???G?
?\?????????????(?"?$_??G
??0qN?J???G?t?=V ??G{C
P
0??G?t s2$# ??p@Gb
???$_?@G???qc?_?,??@G?@G???v?t?I_?@G
?Jq?@G?t?=VK?@G??@G{
P
0??AG?
???????~?L??AG?
=
?????!????????????????$_?AG
???q??SBG?t?=V ?AG{?
P
0'BG?t O?FGJ
?Dg?r?}'?%??1?/??;?9??E?C??Z?R??????-memset__builtin_memset-memcpy__builtin_memcpy?
?AGNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIEp??KG??
charlunsigned intintshort unsigned intlong intlong long intl?long unsigned int
unsigned charlong doubleULong5?doublefloatlong long unsigned intt_dbl_union
h
d#
L,h

x
y
?

?
next?
?
k?
?maxwds?
?sign?
?wds?
?x?
?
x

?
y?
x
__b2d_D2A4
??
__multadd_D2ADH?? __Balloc_D2A+g? __any_on_D2A~
PNGb
?b~????k~?????
n??? ?
nwds? ?A?9?
x? n?f?x0? 
x1?
????
x2?
????
__copybits_D2A
e?MGt
??ce????ne?"??be);?3?
ceg `?Z?
xg??x?
xeg???? %?ProcessLocksList? IEntryCount@ ?
ContentionCountA ?
FlagsB ?
CreatorBackTraceIndexHighC ?
SpareWORDD ?
_RTL_CRITICAL_SECTIONV ?DebugInfoW #?LockCountX ?
RecursionCountY ?
OwningThreadZ 
LockSemaphore[ 
SpinCount\ ?
 TPRTL_CRITICAL_SECTION_DEBUGE # \RTL_CRITICAL_SECTION] TPRTL_CRITICAL_SECTION] ?CRITICAL_SECTION? LPCRITICAL_SECTION?!=doublelong doubletagCOINITBASEt??
COINITBASE_MULTITHREADEDVARENUMt
l
VT_EMPTY
VT_NULL

VT_I2
VT_I4
VT_R4
VT_R8
VT_CY
VT_DATE
VT_BSTR
VT_DISPATCH
VT_ERROR
VT_BOOL
VT_VARIANT
VT_UNKNOWN
VT_DECIMAL
VT_I1
VT_UI1
VT_UI2
VT_UI4
VT_I8
VT_UI8
VT_INT
VT_UINT
VT_VOID
VT_HRESULT
VT_PTR
VT_SAFEARRAY
VT_CARRAY
VT_USERDEFINED
VT_LPSTR
VT_LPWSTR
VT_RECORD$
VT_INT_PTR%
VT_UINT_PTR&
VT_FILETIME@
VT_BLOBA
VT_STREAMB
VT_STORAGEC
VT_STREAMED_OBJECTD
VT_STORED_OBJECTE
VT_BLOB_OBJECTF
VT_CFG
VT_CLSIDH
VT_VERSIONED_STREAMIVT_BSTR_BLOB?VT_VECTORVT_ARRAY VT_BYREF@VT_RESERVED?VT_ILLEGAL??VT_ILLEGALMASKED?VT_TYPEMASK?8 Z?f [ y
lock \[ _FILEX ]l_imp___lock_file?!

pwc?Y
G
1
C ?W??[ ?RG?
tu
tw
t?L @RG? GRG? ?RG?
tv
tw
t?LY
$
l?wcrtomb0
t?QGA
??dst0??wc0??ps0-??2??ktmp_dst3 ??
?
?QG? RG? RG?
ts
tv
tw__wcrtomb_cp
?@QG?
?dst??wc#??
?
cp:??
?
mb_max??
?
pQGhinvalid_char
!??lsize#??
?
?QG*?
t?
t
0
t?\
t
1
t?
t?
t
0
t?l ?QG? 
?JGNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIE??`SGtu?
charlsize_t%?unsigned int?intwchar_tb?short unsigned intlong intlong long int???long unsigned int
unsigned charshort int mbstate_t??doublefloatlong doubleWINBOOL ?BYTE?
DWORD??UINT??
signed charlong long unsigned int CHAR
l?
WCHAR'
??
LPWSTR+
?
LPCCHO
?
IsDBCSLeadByteEx?IsDBCSLeadByteEx@8^
F?
n
_errno??MultiByteToWideChar)MultiByteToWideChar@24???
{
?
??
?___lc_codepage_func ?___mb_cur_max_funcy?mbrlen?y?VGT
??s?#??n?-y?ps???s_mbstate?)
?=V???n?VG??VG? ?VG?
t?n
t?
t?
ts
tvt?)
?mbsrtowcsmy@UG<

?dstm"??
?
srcmC#

lenny?psn)?>
<
retp?Y
G
nq y?
?
'r)
?=V internal_pss??
?
cpt??
?
mb_maxu?

_ ????^ ZVG?
tu
tv
t?
t?H
tvhUG?qUG? ?UG?
tv
tws
t?
t?H
t?L?mbrtowc`y?TG_
??pwc`!??s`@??na y?psa%??'c)
?=Vd??n dste?;
7
UG? UG? 8UG?
ts
t?
t?
tv
tw__mbrtowc_cp

?`SG?

?pwc&??sE??ny_
Y
ps*??cp?}
w
mb_max2??
?

wval)
mbcs shift_stateV?l?SG ?
t??SGU?
t?
t
8?TGU?
t?
t
8
ts
t
1
t?
t
1?TGFl??
~LGNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIEl??YG??
char lunsigned intintwchar_tb?short unsigned intlong intlong long intllong unsigned int
unsigned charfloaty
signed charshort intlong long unsigned intCHAR
l D
WCHAR'
? V
d
LPCWSTR/
i
Q
LPCSTRS
~
HANDLE?
?FARPROC??
?
??
HINSTANCE__??
unused??HINSTANCE??
?
HMODULE??
doublelong doubletagCOINITBASEy?_
COINITBASE_MULTITHREADEDVARENUMy
?
VT_EMPTY
VT_NULL

VT_I2
VT_I4
VT_R4
VT_R8
VT_CY
VT_DATE
VT_BSTR
VT_DISPATCH
VT_ERROR
VT_BOOL
VT_VARIANT
VT_UNKNOWN
VT_DECIMAL
VT_I1
VT_UI1
VT_UI2
VT_UI4
VT_I8
VT_UI8
VT_INT
VT_UINT
VT_VOID
VT_HRESULT
VT_PTR
VT_SAFEARRAY
VT_CARRAY
VT_USERDEFINED
VT_LPSTR
VT_LPWSTR
VT_RECORD$
VT_INT_PTR%
VT_UINT_PTR&
VT_FILETIME@
VT_BLOBA
VT_STREAMB
VT_STORAGEC
VT_STREAMED_OBJECTD
VT_STORED_OBJECTE
VT_BLOB_OBJECTF
VT_CFG
VT_CLSIDH
VT_VERSIONED_STREAMIVT_BSTR_BLOB?VT_VECTORVT_ARRAY VT_BYREF@VT_RESERVED?VT_ILLEGAL??VT_ILLEGALMASKED?VT_TYPEMASK?msvcrt__lc_codepage

?=Vy_imp_____lc_codepage_func
:?`G GetModuleHandleW?GetModuleHandleW@4?
tn
atoi?
???t strchr D???? setlocale Z????GetProcAddress?GetProcAddress@8?
?
?
___lc_codepage_func
8yPZG
?init_codepage_func
"y?YG?
?? msvcrt$ ?
?
?
func%:?
?
?YG{
$??YG?t??T?YG??tst??T)ZG?YG=ZG?tst ?Tmsvcrt___lc_codepage_func
y?YG
? __mingw_get_msvcrt_handle?
!setlocale_codepage_hack
y?YG@
? cp_str ?

?YG??t
2t
0?YG??t."?YGt

?NGNU C17 12 20220819 -m32 -mtune=generic -march=pentiumpro -g -O2 -fno-PIEt ? `ZGe?

char_imp____mb_cur_max
??
int_f___mb_cur_max_func
???_imp_____mb_cur_max_func
??`G___mb_cur_max_func
 ?`ZG
?
:!;9I8 :!;9I8(I!I:;9I :;9I8:;9I 4:;9I?< I~$>
:!;9
 H}
4:;9IH
}



I
(4:!
;9I:;9I41?B :!;9I.
?:;9'I<
H
}
1?BI!I/4:!
;9I?4:!
;9I?B:!
;9I.?:;9'<.?:;9'I< .
?:;9'<
!&I"5I#
'I
$
!:!;9!
% I8&
:;9
'4:!
;9!I?<(.
?:;9'I<
).
?:!;9'I !
*
'
+!,.
?:;9n'I<
-.
:!
;9!
'I
@z
.
1R
?BUX!
YW
/10
U1.
?:!
;9!'I
@z
24:!
;9!I3H}
?
4.
:!
;9!
'
@z
5
%
67
:;9
8&9!I/:'I;'<
>I:;9
=
>I:;9
>
:;9
?
>I:;9
@:;9IA5B4:;9IC4:;9I?D.
?:;9'?
<
E.
?:;9n'<
F.
?:;9n'<
G.
?:;9'I
@z
H:;9II.
:;9' 
J
K.
:;9'I 
L
U
M
1R
?B
XYW
N
1R
?B
XYWO
1R
?BUXYW
P
1U
Q
1R
?B
XYW
RH
}

S41T<U.?:;9'I V.?<n:;
($>(!I:;9I'4:!
;9!I?<4:!
;9I .
?:!
;9!
'
@|
 4:!
;9!I?B
%

>I:;9
 
>I:;9


I
!.
?:;9'I<
I.
?:;9'
@z
H}
?
H
}
I~
($>(4:!;9I?<4G:!;95I
%
>I:;9
 
>I:;9
 
>I:;9
:;9II 5

%4:;9I?$>
$>
%
.?:;9'I
@z

%4:;9I?$>
$>4:!
;9I?:;9II :!;9! I8I~:!;9I!I :!
;!?
9I :!
;!?9I11?B &I4:!
;9!$IH
}
4:!
;9I4141?B
%

'

:;9
'4:;9I?<.
?:;9'I<
.
:;9'I
@z
.
?:;9'I
@z
:;9I.
?:;9n'I 
.
1n
@|
1R
?B
XYW


%4:;9I?$>
$>4:!
;9!I?
%:;9II'

I
!I/
:;9I8$>I~!II
! :;9!
7I
%
 &I :;9I.
?:;9'I<
 .
?:;9'I<
.
?:;9'I
@z
:;9I4:;9I?BH
}

H
}


%
.?:;9'
@z

%4:;9I?$>
( :!;9I81?BI~ :;9I8:;9II$> !I 41?B4:!
;9IH
}
 H
}

(:!;9I:!
;9I
1R
?B
X!
YWH}
4:!
;9I?B
:!;9!


I
!I/4:!
;9I?<
:!
;9!
4:!
;9I.
?:;9'I<
1
1R
?B
X!
YW!
 :!;9!I.
?:! ;9n'I<
.?:!
;9'I< 7I!.
:!
;9!
' !

"
#4:!
;9I$
%
%I&&I'(&)
:;9
*
>I:;9
+
>I:;9
,
:;9
-
:;9
.:;9I/.?:;9n'I<0.?:;9'?
<1.
?:;9'I<
2.
?:;9'
@z
34:;9I44:;9I?B5
1R
?BUXYW
6
U7
1U
8
1

9
1U:I;
1
XYW
<41=

>.
:;9' 
?.
:;9'
@z
@:;9I?BA


B.
:;9'?

@z
C:;9IDE.?<n:;
$>:!
;9I :!;9I8!II4:!
;9!II~
%
 &I 
:;9
:;9I
'I
 .
?:;9'<
.
?:;9'
@z
H
}
?
.
?:;9'
@zH
}


%4:;9I?$>
( :!;9I8I~$>:!;9I(H
}

!I :;9I I
:!;9!


I
 4:!
;9I?BH
}

 :!;9I8!I/
%

:;9
!I/
'I

>I:;9

>I:;9

'
4:;9I?.?:;9'<.
?:;9'I<
.
?:;9n'I
@
:;9I?BH}

:!;9I8$>I~:;9IIH}
:!;9I!I :!
;9I 4:!
;9I?BH
}
.
?:!;9!n'<
 H
}


:!;9
4:!
;9I :!
;9I8.
?:!
;9!
'I
@z
5I414:!
;9I41?B
%

:;9

'
.?:;9n'I<.
?:;9n'I<
.?:;9'<.
?:;9'<
.
?:;9'I<



 
1R
?B
XYW
!
1R
?BUXYW
"
U#.
:;9' 
$
%.
1
@z&
1

'H
}


%4:;9I?$>
4:!
;9!I?
%$>
:!;9I84141?B1
U$>:!;9I4:!
;9I 
1R
?BUX!
YW :;9I4:!
;9I?B!I 
:!;9!
.
?:!
;9!
'I
@z
 :!;9I81?B

I
!I/I4:!
;9I?BI~ :!;9!I
1R
?BUX!
YW!
:!
;9I
!:!;9
.
?:!;9'I<
:!
;9I?B
1R
?B
X!
YW.
?:!
;9!
'I !

:!
;9I4:!
;9I 1!
%
"&I#$ :;9I% I8&4:;9I?<'
1R
?B
XYW
(H
}

)H
}
*:;9I+.
1
@z
,.
1
@z
($>!I :!;9!I8II~4:!
;9I:!;9I :!
;!(9I :!
;!.9I
%
&I 
>I:;9

:;9


I
!I/.
?:;9'I<
.
?:;9'I
@z4:;9I?B
:;9
4:;9IH
}

$> :!;9I :!;9I84:!
;!9I?B
%

:;9

:;9
:;9I .
?:;9'I
@z :;9I4:;9I
$>
%
.
?:;9'I
@z:;9I4:;9I?B

%4:;9I?$>
$>
%
:;9I.
?:;9n'<
I.
?:;9'I
@z:;9IH
}
 I~
$> :!;9I8II~:;9I!I:!
;!19I.
?:!;9!'<
 H
}

 
%
I&I 
:;9
.
?:;9'I<
.
?:;9'I
@z4:;9I?BH
}

I~1?BH
}

41?BH}
4:!
;9I?B :;9I8I 
1R
?B
X!
YW
 1H
}

1R
?BUX!
YW
 :!
;9I$>
1U!I.
?:;9'I<

1R
?BUX!
YW!

U

U4:!
;9I
1
4:!
;9I:;9I
1U
.
?:;9'I<
7I:!
;9I:!
;9I?B :!
;9I.
:!
;9!
'I !

 :!;9I8!

I
"
#.
1
@z
$
:;9!
% :!
;9I& :!
;9!I !
k'!I/(.?:;9'I<).
?:!
;9!
'I
@z
*:!
;9I+.
:!
;9!
'I
@z
,:!
;9I?B-4:!
;9I.41/4:!
;9!I?B0:!
;9I?B14:!
;9I?B2.
:!
;9!
' !

314
%
5I6&I7
:;9
8:;9I9:;9I:
:;9
;<
:;9
= I8> :;9I8?!I/@
:;9
A.?:;9'?
<B.
?:;9'<
C
:;9
D
1

E.
:;9'I 
F:;9IG4:;9IH.
:;9'
@z
I

J.
1
@zK
1R
?B
XYW
I~$>I:;9I:!
;! 9I!I
%
I &I .
?:;9'I<
.
?:;9'I
@z :;9I?B4:;9I?BH
}

H
}

$>II~:!
;!19I:!;9I!I
%
I &I .
?:;9'I<
.
?:;9'I
@z 4:;9I?BH
}


%
$>:!
;! 9I
1R
?B
X!
YW!
1?B41?B
%
I.?:;9'I< .
?:;9'I
@z
 4:;9I?BH}
.
?:;9'I  :;9I4:;9I
I~H
}

4:!
;9I?BI :;9I8(.
?:!;9'I<
1?B !I 41?BH}
4:!
;9I $> :!
;9!
:!
;9I4:!
;9I?B4:!
;9I
1R
?BUX!
YW
 :!;9I8&I:;9I

I
:!
;!?9I
UH
}
!I/4:!;!?9I?<.
?:!;9! '<
.
:;9'I 
:;9I:!
;9I?B 1!
:;9
"
>!!I:!;9!
# :!;!?9I$.?:;9'I<%.
?:!;9!'I<
&
1R
?B
X!
YW
'4:;9I(.
:!
;9!'I !

) :!
;9!*.
?:!
;9! 'I
@z
+41,.?<n:!;!-
%
. :;9I8/
:;9
0:;9I1
:;9
2:;9I3!44:;9I56&7.
?:;9'I
@z
8:;9I?B94:;9I?B:
1R
?B
XYW;.
?:;9'
@z
<:;9I=.
1
@z
> 1? 1
@
1R
?BUXYW

($>!I :!;9!I8II~4:!
;9I:!;9I :!
;!"9I 4:!
;9I?B :!
;!(9I
%
 &I
>I:;9

:;9


I
!I/.
?:;9'I<
.
?:;9'I
@z
:;9
H
}

($>!I :!;9!I8II~:;9I4:!
;9I 1?B :!
;!?9I7I

I
 !I/ :!
;9I:!
;9I4:!
;9I4141?B
%
&I
>I:;9

:;9

:;9
.
?:;9'I<
.
?:;9'I
@z

1R
?BUXYW
U 1
H
}
.
:;9'I 
 :;9
$>4:!
;9I?B :!;9I8I!II~:;9I:!
;!"9I?B H}
 
%

:;9


I
 !I/:;9I.
?:;9'<
.
?:;9'I<
&.
?:;9'I<
.
?:;9'I
@z
H
}

H
}
.?<n:;
$>H
}

I~!I4:!
;9I?BH}
.
?:!;9!'I<
I 7I :!;9I:!
;9I?B
%
 &I.?:;9'I<.
?:;9'I
@z
:;9I.?<n
$>4:!
;9I?BH
}

I~!I.
?:!;9!'I<
IH}
 7I :!
;9I?B
%
&I :;9I.?:;9'I<.
?:;9'I
@z
:;9I.?<n
I~H
}

1?B :;9I8H
}
4:;9I(I 41?B 
1R
?BUX!
YW
:;9I:!
;9I :;9I :;9I8:!
;9I?B4:!
;9I?B$>:!
;9I?B!I :!
;9IH}
4:!
;9I4:!
;9I.
:!
;9!'
@z
.
:!
;9!' !



I
.
?:;9'I<
!I/1
1R
?B
X!
YW
4:!
;9I 
!4:!
;9I?B"7I#
:;9
$
>!!I:;9
% :!
;9!I&
U
'


(41):!
;9I*.
:!
;9'I !

+.
?:!;9!'I !
,.
1
@z
-
1U
.:;9I/.
?:;9'I<
0:!
;9I1&I2
:!
;9
3.?:;9'I<4
U5H
}
?
6
1R
?BUX!
YW7H
}
?

8419
%
:I;
:;9
<:;9I=
:;9
>:;9I?
:;9
@
:;9
AB :;9I8C
:;9
D IE.
?:;9'<
F.
?:;9'I
@z
G :;9H
1

I

J4I4?BK!I/L.
:;9'I
@z
M1N
1UO.?<n:;
4:!
;9I?B$>!I :!;9I841?BI:!
;9II~ H
}
 4:!
;!(9I.
?:!;9'I<
.
?:!
;9'I
@z
 :!
;9!I?B
%
:;9I
:;9


I
!I/:;9I.
?:;9'<
.
?:;9'
@z
H}
?

1R
?BUXYW1?B
U.
?:;9'I 
:;9I.
1
@z1
I~H
}

4:!
;9I?BI(.
?:!;9'I<
$> :!
;9!
!I 4:!
;9I :!;9!I8 :!;9I8 41?B:!
;!?9I?B1?BH}
:;9I

I
:!
;9I:!
;!"9I&I :!;!?9I!I/4:!;!?9I?<.
?:!;9! '<

1R
?BUX!
YW
H}
?

%

>I:;9

:;9

:;9
 
:;9
!:;9I"!#.
?:;9'I<
$%&&.
?:;9'I
@z
'4:;9I( :;9
)
U* 1
+
1R
?BUXYW
,H
}
-.
:;9'I 
. :;9/.
:;9'I 
0:;9I1.?<n:;
:;9I84:!
;9I?BI~(!IH
}

$>I H}
 :!;9I8 :!
;9!
.
?:!;9'I<
 :!
;!&9I:;9I :!
;9!
&I
:;9

>!!I:!;9!


I
.?:;9'I<.
?:!;9! '<
.?<n:!;!
%

:;9
!I/:;9I!4:;9I?<.?:;9'<.
?:;9'I
@z
:;9I?B 
1R
?BUXYW
!1"
1R
?BUXYW
#1?B$H
}
%.
:;9'I 
&:;9I
$>4:!
;9I?B :!;9I8!I:!
;9I
%
:;9I
:;9


I
 !I/:;9I.
?:;9'I
@z
 
1R
?B
XYW1?B41?B.
?:;9'
@z
:;9I?B.
:;9'I :;9I4:;9I
$>41?B11?B:!
;!$9I

I
4:!
;!&9I
%
 ! 4:;9I?<!I/4G:;9I .
?:;9'
@z

1R
?BUXYW

U
1
XYW

1
XYW.
:;9' 
I
($>4:!
;9I?B :!;9!I81?B!I:!
;!/9II~ :!
;!"9I :!;9I41?B
%
 &I
>I:;9

:;9


I
!4:;9I?<.?:;9'<.
?:;9'I
@z

1R
?BUXYW

U
1R
?B
XYW
H
}

H}
.
:;9' 
4:;9I.?<n:;
4:!
;9I?BI~41?B :;9I81?BH
}
$>!I H
}

 I4:;9I:!
;9I?B

I
:;9I!I/.
?:!
;9'I
@z
:;9I4:!
;9I?B:!;9IH}
&I4:!
;9I.
?:!;9!n'<
:!
;9I.
1
@z
1
1R
?B
X!
YW
4:!
;9I
:!;9
4:!;!?9I?<4G:!
;9I 
1R
?BUX!
YW
!
U".
?:;9'I 
#:!
;9I$
1R
?BUX!
YW
% :!;!?9I&4:!
;9I'.
?:!;9'I<
(:!
;9I?B):!
;9I*.
:!;9!
'I !
+.
:!
;9! ' !

,
1R
?B
X!
YW
-.?<n:! ;!.
%
/5I01&2'3
:;9
4
:;9
5:;9I6!7!I/8.
?:;9'I<
9.
?:;9'<
: :;9
;
1R
?B
XYW<.
?:;9'I
@z
=.
?:;9' 
>.
?:;9'I 
?.
:;9'
@z
@
U
A4:;9I?BB


C
1R
?B
XYWD4:;9IE
F
1R
?BUXYWG41H
1UI
1
XYWJ1KH}
?
L
1R
?BUXYW
4:!
;9I?B$>:!
;9I?B!II~ :!;9I8I:!
;9I .
?:!
;9'I
@z
 .
?:!;9'I<
4:!
;9I :!;!?9I

I
!I/4:!
;9IH
}

H
}

%
&I:;9I
:;9

:;9
:;9I.
?:;9'
@z
H
}
?
H}
.?<n:;
$>:!
;!9I?B
%
&I:;9I.
?:;9'I
@z
4:;9I?BI
$>:!;9I:!
;!9I?B
%
&I.
?:;9'I
@z
4:;9I?BI
( :!;9I8$> :;9I8(I~:;9I:!;9I H
}

 !II
:!;9
 1?B4:!
;9!I?.
?:! ;9!n'<
.
?:!
;9!'<
.
?:!
;9!' !

:!
;9IH
}

%

:;9

>I:;9

>I:;9

:;9
.
?:;9'I<
.
1
@z
1
1R
?B
XYW
H}
.
1
@z 
1R
?BUXYW
!H}
?

($>(I!I:;9I4:!
;9!&I?1?B :!;!? 9I 
%
&I 5I
'

>I:;9

>I:;9
4:;9I
'I
'I.:;9'I
@z.
:;9'I
@z
:;9I?B
1R
?B
XYW.
?:;9'I 

$> :!
;9!I k:;9I:!
;!9I
%
I
:;9

:;9
 I :;9I.
?:;9'I
@z4:;9I?B 4:;9I
$> :!;9I8!I:;9!I
%

:;9


I
! 4:;9I?< 
'I
I4:;9I? .
?:;9'I
@z:;9I
I~$>!II:!
;9I4:!
;9I?B:;9I:;9I H}
 &I:!
;9I?B.?:;9'I< H
}
.
?:!
;9'I
@z
4:!
;9I
%
.
?:;9n'I<

U


I
!I/.
:;9'I
@z

4:;9IH
}


I~$>:!
;9II!IH}
:;9I:!
;9I?B 4:!
;9I?B :;9I4:!
;9I7I H
}
&I.?:;9'I<.
?:!
;9!
'I
@z
H
}

4:!
;9I :!
;9I
%
.
?:;9n'I<
.
?:;9n'I<

U
.
:;9'I
@z

:;9


I!I/
($>!I(II~:!;9I:;9I &I 4:!
;9I?BH
}

.
?:!;9n'I<
 .
?:;9'I<
H
}

%

I

:;9
 :;9I8
>I:;9

>I:;9
4:;9I'I4:;9I?.
?:;9'I<
.?:;9'I
@.
:;9'I
@

1R
?BUXYW
H}
?
?
.:;9'I
@z .:;9'I !.
:;9'I
@z"H}

$>!I
%
4:;9I?<:;9I'I4:;9I?.?:;9'I
@z??


?







$+?]?
?
?
???????


(
0
;
M
T
\
e
o
z
?

@?
?
?


?~
?
<-??
?
?
1 
g ?g
.?~
Y
??
X?
X?Z
?
m??
?
J? 
?
J?~
?
?
? 
?
f
?~t
=]}]

%

A
?JrL%?
?

 ? .Z
 .7Kf!<z
?
?
X<X=
g
X.f<L
??
+J.=+W.=Xu
q?"?F?#
Jg ;=
J <M e? \
tw??
pwF?

z
?f
JnȠ
Y
<!??Y
?~
 
?
Xeb?-X
$?<? 
<?
>
M'
<'r<f'r<A#
.gx
?? X
Y ic0 
n
?J"?
'? XvX???Jn.
u fY
i
X/Z 
R
t

?~

?t5?
<??~
??
? .L!?<
??f??
u fK
d
X/Z 
R
J

?~

? ?


?~

<X?
4X1$(= *(@g$
?f
Xf ?
?


?7


?







???
?
?
?
pzF

>
V?h
LKGK
 MGK
 
g%
KY

6.


?







"
6
A

U


?







u|?
 ?
?
?????  
?zF?



s
J* JJ-$

= 
?
+
??

LH?f2t
= 
Z=J?x
= 
_
?
??
?t?
= 
_
?
?,
<0
k?
?
?
s=?
M.=2
f.=

~_


?







= D X 
v
?
? ? ? ? ? ? ? ? ? 
p|F?

z
z ?d>
0'
.?
0
J K
<Z
<x
J
?J?t
XK
.rX
 "OY
M
J/
v?Yc>
=s? .=
Jt <
?
N
TN
Ji??U>
Gts
 fu.
 .$1 90
 M
>?
?,=
 s?

*?
JK?
 X?
?

a X
J

X?

]

XJ

 XZ
&f v. =?&P
?
??Y
.? e


6.


?







 $ 
8
B
6.


?







{ ? 
?
?
?K


?







? ? ? 

$
-7CMU
?~F

 P-
yt
 
=
?
~

?.B
 . ?>!
%K!IKW2
 <&K<G
<; Q
/ ^
y
R
x.<Q?[
I


y?
 
g ?g
0
?-
!
%u!IKWL
<;M
 <
N?p<
.?
?
?
?.
y?
 
g ?g
.
?
??
??

x
!R 
.t%S "5t!JJ"6Jg
A
W2
 <&K<G
<;J3

2 \
?
?
?.
y?
 
g
?
?
? 
??
 

u?
?
?

x. ?J
y?
 
g ?g
.
?
?f
??
!
%u!sKWj 
h
Lz<
<;E
.?
?~
?

?~.
y?
 
g
?
?

?~ ?

?
>?
?~
?

?~.
y?
 
Y ?g
.
?

?~?
??


x
!? 
?t(%?J!I?
Jg
?~
W\
 <&K<G
<;?J
4. 9<

= <
Y.Q
?~
?


w.?~ 
?
?.?~J
y.
 
Y ?g
.
?

?~?
??


g
M
?~
!
%K!IKW2
 <&K<G
<;J?


. mX
Y ?=
x<
 
*
tw 
K

B z.
l.



3


?







??
?
?
?

?F(

y
C,
X?
?
?
K
? 

Kb? 
?

i?
?4
?:J<fg

n??

s?
?

x?
?


?7


?







?? 
'
4
A
0?F

 ^
J/Wf/WhWLV
w.d

>
?.


_7


?







ls?
?
?
?
??F

?J
?


6.


?







??


n<


?







I P e 
?
?
? ? 
??F

=?
?,=


~A


?







? ? ? 

$
5>F

ЉF1

XM?
(;/Z
f

?0_


?







???
?
?
???? $
 ?F?



F
j 
.M
/
M
?K

/JJ??
z
?.? ,h
O..??
&G?&c
O 
=? w
 R?

gf0?
?.L.X.
Y
M
?
P

0J ?.fu?
?
f0?
G?
?^H
?.=~P
h 
L? 
h? 
?
f fJJ.X
f.?~?
?fL
?
K


?.2
?D
J*
<?
<?"?$
G$?f <? ?
L m yJ?]<
K
uJ< ?
?
J ?
J ?
Cy<Q]
 $
 E<;.?-
<*<-<<;'
X??o?
<q?hr
J=

<#
f
?
X ?o.
1
J7
f&
< L8
<.8f< Y  ??f. E
 / 
 /
.f?J
 X/[ ?i
?
?
.\z?
YX?
??|X?Jg
?|

?.=~??
?zX?Jg
?z

?.=~?
?~
.<?
K?
?
tJX ?
??
?
??
?.....?
 
?|$

?
??
?}J =tXJKrX
J? =W'?9YX*JKjX
J? ;?y? 
J#XJ? =?K'
KX
%J? =W??
? 
Jf??
J<?

?
????
? ?
2?
I?yX??
J??Gf9?J?#U
EtB? ? 
5
?+
? ?(p ?
 ?
 f 

? ? 
X


?
??.?t 
<
?
?
tF.9< ?
? u
<<J?{X 
..?!
?
J
XX
<.?t# Y? 
J? 
?{<???
X??Iu<*?d>
vI Iu
?0
 ?
?
9J2t=t*f?
?x

Zp IK
fK
???
? Eu/L??
/Wg
 X.
?
?D
??jJ.?
<X?y? 
??.?
Z=???y
?f?y.?f?y<?J?
?
 ?
J? 
??
 ?
?JJ 0
 ?

?wJ
J#?. ?wXZ
?  rg
=
'?
IK#
'.E?
?vJ? tL?7/LX>
?
?
 K?
 ?t0?? 
t=
&
XR
xJ<
<
??

J!
<
XBJ.J)L?
?;=?I)
;
)<?|f ?T ?wX
 I?@
<KsX Y?X??? ?x?
?~
p IK
fK
? ?



??
K
.=~??

;?
?}

K
?.=~? ?

 ?(s
 X??y
E
??.X?
?yX.<?
KX?X?

Z
?
 ? 
 ? 
 ? 
??

?w?K 
?X
<.? 
.b?
.[?
X .
?
??
Y
9
?)
t?Z
3.ZJt3JL?p
 
?
9
?)
t ?n

t@.?_???}

?VJZI Iu
?0


? ?
???y? KW[
?.?
?? s
 Js<J?

=?;/ ?|X
2
??JJ??
X.?JJ5
?;
J5
f;
.*
.?
<#
f
?
.\?
?
 ?
 .< =
?t? ? .
?v

?p IK
fK
??

?
??
?~?
?W u
L

M
?
.;X?S.8tLLdZ
u1p .u
<=cx.
?xJ??
?x

L.=~P H? 
LJ? 
h?X ?

? 
??
<?
J
?
? 
?tJ?J <=
?t

J .M
K
i
?K
.?

X  L?}?XX
?v
.<?
KX.?

?
?
> 
?tJ ?J X=
?t

J .M?
?tJK?
?t.M
?K
.?

X L?y?
?z

KI=g 
.J ?X
?3
??LJ?
?
?z

KI=g 
.J?X?
>??^J0?X
??yX
?{

KI=g 
.X ??
?t
8 IK
fK
?
s
X?
K?
?xtX?
 

?{?
K
?.=~?
?~
KI/

</= 
.?X 
J
?|?
K
?.=~??
?f
?z
8 IK
fK
??

? 
tY! / UL?}?
 9
??QJ?? 
JX?xX
?|

KI=g 
.J?X
J? 1 ??Jt?

/ 
 K I/

?tX
KI=g 
.?X
 ?
 LH< > 
???
X
?W u
L

M
?
.;X?S.8tMLdZ
xp .u
t.=cwJ
?xJJ?.
?x

L.=~l H? 
L K.I? 
h?X?

 ?H; .u 
?/
J?
7?
?
?w?\?w? ? f
?u
8 IK
fK
֐?
 
J
?w?KI/

</= 
.??

?u

KI=g 
.J
yXKI/

</= 
.??

<a?
?u

KI=g 
.J
yXKI/

</= 
.??
Xg?|X@
??K???

?
?
X
.>?;? ? ??


?u

KI=g 
.J? X 
?

?u

KI=g 
.J
X.<?
KX
[
KI/

</= 
.^?
0?|X 
.
?|X.<?
KX#?J.2 K?v?
H/ 
.K
X?
?yXKI/

</= 
.?X1
t?HJ
?|tKI/

</= 
.H?
&
1t 
< ?JJ*
?X
J 
<P?
?tX.<?
KX ?
 y<?
?/IK @
f
?t?K 
?X


?w?K 
?X

??UJ- u
 =?xJ 
?
?w
.<?
KX$?
?
?v
KI/

</= 
.
X.<?
KX%
?

J
]YKg=>0L=


?<


?







???


'
??F

<?J
Y

?|
J1?.2?

Y

?|
Jt
2?cX
?

?U


?







V]s
 ?
?
?
???
???
P?F,

y
fR;=
<_
<uzJ
.YY

Xw?
^

i+?
Jxt 
<? ;/<?=-Y <?<x
?JxJRx?RY J-/IK-K
K
?
?X
?:LJ?
?V/
.=u
?

?}
 ?J rf?
?
?
?
r
?X/
?m?Js?
gtt
XJ?d
??
+

<?/e?.Z 
<<H:
?<+? 
+X <+.Y
Z
Y 
t?X??


?
?/
 ?zf?X
?z?m

<-??
H?1.?0?
X?'?
?
fi
? ? 
?????
?t

?
?
?
?
K? ?
u?{?
f?
?
<t? ??
<?p!
? -?
<p??

<tJg
;t.=I
J??~.?J??
t 
t 
.
<?
H???
?t H.u?
?}tu ?/?

?%"?>g 
???|. JI? Fg
tt>?`xt
hY>
u
J??
Y
't?'. J?
Y
?
g
??~
?
J?~t
?
?


?~
KW?
fK

?~
f?

 ??gt&;gK 
&r= K??tX?
j-?
?
KGe?
g z
z>
#J/#W>#Vh?u
 ?u
Y
?
<..?~??.<?Y.=
<? 
v<u ?K
<K
z
5
JJKGe?
g z
z>
#J/#W>#VhHu
 ?.u
?
?
<..??t s?t?0 
? 
???
?
/f
J?f?
??. ?? . wJ  ??J??
? 
Y;u
=

?}X
?
 ?}U.+?KE

??
XX
? ?

K 
u


h? 
?

z??


IK


?







???



!
,5
P?F"

y
t??
?9?G/
?=9 I= ;K
8NF NF
^



J
@
:
<
V
.
>
:
>
:
0
,
.
/


1 
K
F
=
/


/
I
= 

?GJf<?H0,NH0
JK
=
2::>:/1G=/
/I= ?
K
^
f?
?xJ
?;/<?=-Y 

?A


?







ho?
?
?
?????F%
z
zzJPK
h
 f ;
 << .
?
J


z<
4?G>
? y??
??<?H>
?
'M>
'/?IX.?'
.$f?
?. X9F
<

??s?

?5?"tO?`t Xg 
?J_Jq?
t??<?????

h
l 
?M
?Y Wg8\.. gt ?
x??
??
LY Wg
t W?
,? 


?

NA


?







?
6
B
NV_??F%
y
{yJQK
h
 f ;
 << .
?
J


y<
5?F>
? x??
??<?H>
?
M>
/?IX.?
#$f?tX..?9,
<

??s?

?5?"tO?\t Xg 
=JfJp?
t??<??~?
K
h
P

?
? o? ?
x?? Y ?g 
X]?

?!m


?







????
 ?
?
)2:CKS\e
??F?



y
?WJ
 
.J
?z

Y

?

\+
?+bJh ?
?!
J fj 
?
(Jcf
??b.?b
!.s? 
?
?z?
?<C
X)
<]* X2
h<
gJxf?<
gJ?
?

u
? J?>
  ?f
?t?

J3
?
X#
J
?
??
;?~J2
h<f?


K?~
?
<?~<
CX) 
<K

?;..
/ ?

?;..
/ X
0?F?

z
 ?
vz<P X_ 
? ?9 JX(
?
<]@.J
Yf ? nXJ l?J.?|.
J Xv
J- <??~

<7<J7<<=
f-?
?.?~t<u
 ?/
(fJ<?

(?~
 ?
<+? q.+? qJ=
 +- =+-u
f<
9Z,h9
4XX.?< <X
(t
?<m?

fXX(X
 ??}?
<(<J<?

(?~
 ?
<+? qX-y. {?

( ?7s(g?7
J7<.?H> ;=
? v
ff
?
9?4t)J? 
?
?
?C"?z<? ??
<M??{?2
h<f?
JA?{<
CX)<?X?{<*\J?
?{<_<f?
J<
.?{?2
v<f?

<?/?{

CX)<]*\???
?~

<7<J7<<=
f-?
?X?f
?s.^
>
? 
KI/
?l??t? f> r>
+[^ 
KJ ;= .?? 
 ?<J
?<t
?
.?
^ 
KI/ <X??}?
<(<J<?

(?~
 ?
<+? qX-y. {?
? 
?? 
<<yX X
J
X<_?
> :>,0t t 
KJ ;=mXt? f??}?
?j
yf7<..7<=;=
<.X?
(<J<
(l
 <?
,f
?
?> 
< .<l?u\
<t</t
t?
tf? u
 <J
<J?

h?~? 
?67A
1?c?

?3tz?
<$
?
<<s
<f
Lfc??
<?z
P<

?


?


<??
k
??
??
<fT?
6f< ?
 X5
#
<?
?9?#J t
??
<f9P??
<YWg
??
 
: L:
f
?
;Jit
9??
??
$< 
<$<?
\
'?K?u
f? Jtg. ?vJ .<< <?o
?? ?
5
>
? X
?
f?-
6<?}??|f??
t
?z?yX J 
m
+]:G<4< .
?
x<4)`X%t)[t  t
 f J
 ?
?:?
?<:?J8?<8`
?
x@
 ? ?~t ?
.Y?
X?
J?{??. ?
?
??}
?J?z? ?t
?
?~??|J tn? .]?X
?r?
)
?-
X??*
?*
?ztL ?t
 ??"
 <"J <.?~??
J"b??{. ?t
?
?~??|J ?t
?
?~??|J ?t
?~??
J?zX ?t
?
??}
?|J?.?{X ?t
??{f?r

Z

?
??Y
??q

Y

?
? ?Xf$
]t?X?

 ?
t
?f??~? ?
t
?f? ?}?
 ?B!
=+?!J?,?
t
?f???
J?
#???|
?J? <vX ?X?
?J ??{
?. Y?X
J??|??.XrXJ?|??.X ?X
J??{??.X ?|X
?J?. ???X
/\t8l
?
?
4\*24
.:?}?@<. ?
X
)
J 6? =6V?~. ?
.??
X
 
 ??{f
2?q

Z

?
??Y
??p

u

?
? ?X+
 < u$
 ?$
. 
$
k"oyXX. ?
:Jof ?; ?*
u:?/?t?. ?
?
 
 ?.?<.?.  t

 ?/<</t.. ??
 
 ?/<</t.. ?~?:rJ<;X
??.?.?z<!
?q<

? 
t?
?t.tX ?

?zX?X? X?]?}X?
J?z??.X ?yX.??
?|??.X?}X ???}X 
 ???
'
?}t:?@
??#
?}<#?ftJ?yJt?
?~t ?
J??{
?.KX?|X+
??X8
?#?X??|
?J?<nX?}X?p?
?t.tX?
*!
_J? +K
..J.t?
 ?w?  J ?
?



<
L
.
?
<
? 


/ 
I
K


. 
?
K
K

;
?
 
/
<
k

tLJ
?
)?;

J
tL
?
< ?PJ 0J
?

 
,
<
=


 
,
0
?
;
?
 
K
<h
Ju
g
?<?;

J
?L
Z?)? 

K

?K


?







?

5
=
E
PZ
bk
?G?
$

L
? 4R

L.4J
L.4JY
.=f?bJK
etJF?j(*j=8 ?S1
K
?f0
??
.? 
JXgEOo?
????O
Y?g=
H?J?? t 
? 
?t
??? ?{.?? 
? 

?Ȟ?{f 
? 
?t
??? ?{.??
u??
?
 ?-K
 .??
K?O
Y?g
????
?
?
 ??J??
?ZK -KJz<z
? 
J,u
.K
? /t 
fK
?K
 Jw? ?
=

?
?
t
J
X ?
J?t?|????.??
. ?

?~J I ?
??~f?~Xt/ ?.?
<f-u 
XK
JK
< <=
t?
 ??
J?
?yJJK
???:JL?? ?

J?~td?.
K 
?
?R?X

?
J0(?
u?? 
?

v?/
K??
Y?/
J??J?t?J< 
u 
?p <.N
YI/
J?
<
?
?
I
K
?

&
?+
??J
?
? ?=
K e.=?J??
?
?l??a?
??X?
??;K?u
^EI/.X<)?
????
????
t*t<J< ;u
X <=
?~??
?
?
<
?)?!<
?
0


X?~?
ASN
e

a?

 
.

J 
R<
?
?~f??
%???
s
YY?M?
?
KI=
?
P
?
??/?Xt J vJ?
 ?w<J?
Rx?6 ?.?}?6
?J? 
ts?
f <v<uJ!
Rx?6 x<6
?
?}????
? XJP
y<?t??~X
kJ J fzJz v. .eJ.L6JX
%?Jf?
s
YY??
? 
 JfX ?=?~X
? Ys/ 
Y ;KY
?Lf?
X.
X/
J?

?.?
 K?f???

?? 
?
?=u:0?>?K
X/ 
J z?NLyt 
 ?;  J? 
? ?X. 
g?~X
? 
ʺ ?X?
J? ??f cJK
?K
??
X 
? ;/<? 

g
?/
? ?}????
vJ ?
?
. ?~?4<tz.
h.? K;Z
<?c7.&
?
?s/
u?
J; 
g
 LV/Xg 
l?
K
?
J<??YWg
5
??
/;/
??/
G?

uX\ 
 J??Y;\

ZXn? ?

?
?s

L?;
?
?
?l

??

Xv?
\X
dX ?

?
?s

 
?



 
O
?
;



?





5f
y
'
y.XQ[

X
tK
_.!tt B

.KȺ#

?@v
 t?
NG
 9t=
> B

.=

tu
e?
 .wXz@
v19 ?.?

?
K
KK
g
xJ?u
?<?tus/ ?

.
?
t?@
?
?
3?
s
 
q.f Ju
JMG?
?
 


.
K
 
I
. 
q<
/



g
.g
?
 K-K<
@?ut 
?X/
Lf? \*Y
?<
(? ?~

?
.?~<[
XK
_.!tf B

.=
 ?

?~Ju
?

  s=
?~tX ?<?
?
NG
 9tu
v B

.K??.


?
?
r
tJJ<<A
=
=
Y
=<J
XK
?
<J<K?
u
<K
J=
=
???"<?
.< M? h
?



<
J
J
<
?


/
;
J
K


=KJ
JJJvJ <vJ
?(
? 
<=?
G
<=;P
= 

Y t
2 2
z
B
zJ?<=;K 
<=
?
 K.  ?K<?&.
J
<
?
/fc



fX?


K ?
? =
 J5

YJ5?Z5

Y5W w?2
!? Y2=K
 t


Q.


?







? ? 
?
?

`ZG


u


SubsystemCheckSumSizeOfImageBaseOfCodeSectionAlignmentMinorSubsystemVersionDataDirectorySizeOfStackCommitImageBaseSizeOfCodeMajorLinkerVersionSizeOfHeapReserveSizeOfInitializedDataSizeOfStackReserveSizeOfHeapCommitMinorLinkerVersion__enative_startup_stateSizeOfUninitializedDataAddressOfEntryPointMajorSubsystemVersionSizeOfHeadersMajorOperatingSystemVersionFileAlignmentNumberOfRvaAndSizesExceptionRecordDllCharacteristicsMinorImageVersionMinorOperatingSystemVersionLoaderFlagsWin32VersionValueMajorImageVersion__enative_startup_statedwReasonhDllHandlelpreservedsSecInfoExceptionRecordpSectionTimeDateStamppNTHeaderCharacteristicspImageBaseVirtualAddressiSection__mingw_dbl_type_t_Mbstatetmatch_txtformatgcollectwbuf_max_sz./mingw-w64-crt/math/x86/floor.S/buildGNU AS 2.38.90__Bigintsudden_underflow__Bigint__divdi3__udivdi3streamexp_widthstatesignintlen__tI128_2_Mbstatetprecisionvalueexponentsign_bit__Bigint__Bigint__Bigint__Bigint__Bigintlast_CS_init__Bigintbyte_bucketbyte_bucketinternal_mbstate./mingw-w64-crt/crt/crtexe.c/build/build./mingw-w64-crt/crt/usr/i686-w64-mingw32/include/usr/i686-w64-mingw32/include/psdk_inc./mingw-w64-crt/includecrtexe.ccrtexe.cwinnt.hintrin-impl.hcorecrt.hminwindef.hbasetsd.herrhandlingapi.hprocessthreadsapi.hstdlib.hcombaseapi.hwtypes.hctype.hinternal.hcorecrt_startup.hmath.htchar.hstring.hprocess.hsynchapi.hwinbase.h./mingw-w64-crt/crt/gccmain.c/build/build./mingw-w64-crt/crt/usr/i686-w64-mingw32/includegccmain.cgccmain.ccombaseapi.hwtypes.hcorecrt.hstdlib.h./mingw-w64-crt/crt/natstart.c/build/build./mingw-w64-crt/crt/usr/i686-w64-mingw32/include./mingw-w64-crt/includenatstart.ccombaseapi.hwtypes.hinternal.hnatstart.c./mingw-w64-crt/crt/wildcard.c/build/build./mingw-w64-crt/crtwildcard.cwildcard.c./mingw-w64-crt/crt/dllargv.c/build/build./mingw-w64-crt/crtdllargv.cdllargv.c./mingw-w64-crt/crt/_newmode.c/build/build./mingw-w64-crt/crt_newmode.c_newmode.c./mingw-w64-crt/crt/tlssup.c/build/build./mingw-w64-crt/crt/usr/i686-w64-mingw32/includetlssup.ctlssup.ccorecrt.hminwindef.hbasetsd.hwinnt.hcorecrt_startup.h./mingw-w64-crt/crt/xncommod.c/build/build./mingw-w64-crt/crtxncommod.cxncommod.c/build./mingw-w64-crt/crt/cinitexe.c/build./mingw-w64-crt/crtcinitexe.ccinitexe.c/build./mingw-w64-crt/crt/merr.c/build./mingw-w64-crt/crt/usr/i686-w64-mingw32/includemerr.cmerr.cmath.hstdio.h./mingw-w64-crt/crt/CRT_fp10.c/build/build./mingw-w64-crt/crtCRT_fp10.cCRT_fp10.c./mingw-w64-crt/crt/mingw_helpers.c/build/build./mingw-w64-crt/crtmingw_helpers.cmingw_helpers.c./mingw-w64-crt/crt/pseudo-reloc.c/build/build./mingw-w64-crt/crt/usr/i686-w64-mingw32/includepseudo-reloc.cpseudo-reloc.cvadefs.hcorecrt.hminwindef.hbasetsd.hwinnt.hcombaseapi.hwtypes.hstdio.hmemoryapi.hstring.hstdlib.herrhandlingapi.h./mingw-w64-crt/crt/usermatherr.c/build/build./mingw-w64-crt/crt/usr/i686-w64-mingw32/includeusermatherr.cusermatherr.cmath.h./mingw-w64-crt/crt/xtxtmode.c/build/build./mingw-w64-crt/crtxtxtmode.cxtxtmode.c./mingw-w64-crt/crt/crt_handler.c/build/build./mingw-w64-crt/crt/usr/i686-w64-mingw32/includecrt_handler.ccrt_handler.cwinnt.hminwindef.hbasetsd.herrhandlingapi.hcombaseapi.hwtypes.hsignal.h./mingw-w64-crt/crt/tlsthrd.c/build/build./mingw-w64-crt/crt/usr/i686-w64-mingw32/includetlsthrd.ctlsthrd.ccorecrt.hminwindef.hbasetsd.hwinnt.hminwinbase.hsynchapi.hstdlib.herrhandlingapi.hprocessthreadsapi.h./mingw-w64-crt/crt/tlsmcrt.c/build/build./mingw-w64-crt/crttlsmcrt.ctlsmcrt.c./mingw-w64-crt/crt/pseudo-reloc-list.c/build/build./mingw-w64-crt/crtpseudo-reloc-list.cpseudo-reloc-list.c./mingw-w64-crt/crt/pesect.c/build/build./mingw-w64-crt/crt/usr/i686-w64-mingw32/includepesect.cpesect.ccorecrt.hminwindef.hbasetsd.hwinnt.hstring.h./mingw-w64-crt/gdtoa/strtodnrp.c/build/build./mingw-w64-crt/gdtoastrtodnrp.cstrtodnrp.cgdtoa.h/build./mingw-w64-crt/math/fpclassify.c/build./mingw-w64-crt/math/usr/i686-w64-mingw32/includefpclassify.cfpclassify.cmath.h./mingw-w64-crt/math/isnan.c/build/build./mingw-w64-crt/math/usr/i686-w64-mingw32/includeisnan.cisnan.cmath.h./mingw-w64-crt/misc/mingw_matherr.c/build/build./mingw-w64-crt/miscmingw_matherr.cmingw_matherr.c./mingw-w64-crt/misc/sleep.c/build/build./mingw-w64-crt/misc/usr/i686-w64-mingw32/includesleep.csleep.cminwindef.hsynchapi.h./mingw-w64-crt/stdio/mingw_vfprintf.c/build/build./mingw-w64-crt/stdio/usr/i686-w64-mingw32/includemingw_vfprintf.cmingw_vfprintf.cvadefs.hstdio.hmingw_pformat.h./mingw-w64-crt/stdio/mingw_vfscanf.c/build/build./mingw-w64-crt/stdio/usr/i686-w64-mingw32/includemingw_vfscanf.cmingw_vfscanf.cvadefs.hcorecrt.hlocale.hstdio.hwchar.hstdlib.hctype.hstring.hstddef.h./mingw-w64-crt/stdio/mingw_vsnprintf.c/build/build./mingw-w64-crt/stdio/usr/i686-w64-mingw32/includemingw_vsnprintf.cmingw_vsnprintf.cvadefs.hcorecrt.hmingw_pformat.h./mingw-w64-crt/stdio/mingw_vsprintf.c/build/build./mingw-w64-crt/stdio/usr/i686-w64-mingw32/includemingw_vsprintf.cmingw_vsprintf.cvadefs.hmingw_pformat.h/build./mingw-w64-crt/math/x86floor.S/build./mingw-w64-crt/math/x86/ldexp.c/build./mingw-w64-crt/math/x86/usr/i686-w64-mingw32/includeldexp.cldexp.cmath.herrno.h./mingw-w64-crt/gdtoa/strtodg.c/build/build./mingw-w64-crt/gdtoa/usr/i686-w64-mingw32/includestrtodg.cstrtodg.cgdtoaimp.hcorecrt.hlocale.hgdtoa.hstring.hstddef.h./mingw-w64-crt/gdtoa/strtof.c/build/build./mingw-w64-crt/gdtoastrtof.cstrtof.cgdtoa.h/build./mingw-w64-crt/gdtoa/strtopx.c/build./mingw-w64-crt/gdtoastrtopx.cstrtopx.cgdtoa.h/build./mingw-w64-crt/gdtoa/sum.c/build./mingw-w64-crt/gdtoa/usr/i686-w64-mingw32/includesum.csum.ccorecrt.hgdtoa.hgdtoaimp.hstring.h/build./mingw-w64-crt/misc/strtoimax.c/build./mingw-w64-crt/misc/usr/i686-w64-mingw32/includestrtoimax.cstrtoimax.cstdint.hctype.hstdlib.h./mingw-w64-crt/misc/strtoumax.c/build/build./mingw-w64-crt/misc/usr/i686-w64-mingw32/includestrtoumax.cstrtoumax.cctype.hstdint.hstdlib.h./mingw-w64-crt/stdio/mingw_pformat.c/build/build./mingw-w64-crt/stdio/usr/i686-w64-mingw32/include./mingw-w64-crt/stdio/../gdtoamingw_pformat.cmingw_pformat.cmath.hvadefs.hcorecrt.hlocale.hstdio.hstdint.hwchar.hgdtoa.hstring.hstddef.h./mingw-w64-crt/gdtoa/dmisc.c/build/build./mingw-w64-crt/gdtoadmisc.cdmisc.cgdtoaimp.hgdtoa.h./mingw-w64-crt/gdtoa/gdtoa.c/build/build./mingw-w64-crt/gdtoa/usr/i686-w64-mingw32/includegdtoa.cgdtoa.cgdtoaimp.hcorecrt.hgdtoa.hstring.h./mingw-w64-crt/gdtoa/gethex.c/build/build./mingw-w64-crt/gdtoa/usr/i686-w64-mingw32/includegethex.cgethex.cgdtoaimp.hlocale.hcorecrt.hgdtoa.hstddef.h./mingw-w64-crt/gdtoa/gmisc.c/build/build./mingw-w64-crt/gdtoagmisc.cgmisc.cgdtoaimp.hgdtoa.h/build./mingw-w64-crt/gdtoa/hd_init.c/build./mingw-w64-crt/gdtoahd_init.chd_init.cgdtoaimp.h./mingw-w64-crt/gdtoa/hexnan.c/build/build./mingw-w64-crt/gdtoahexnan.chexnan.cgdtoa.hgdtoaimp.h./mingw-w64-crt/gdtoa/misc.c/build/build./mingw-w64-crt/gdtoa/usr/i686-w64-mingw32/include/psdk_inc/usr/i686-w64-mingw32/includemisc.cmisc.cintrin-impl.hgdtoaimp.hcorecrt.hminwindef.hbasetsd.hwinnt.hminwinbase.hgdtoa.hstring.hsynchapi.hstdlib.h./mingw-w64-crt/gdtoa/smisc.c/build/build./mingw-w64-crt/gdtoasmisc.csmisc.cgdtoaimp.hgdtoa.h./mingw-w64-crt/misc/strnlen.c/build/build./mingw-w64-crt/misc/usr/i686-w64-mingw32/includestrnlen.cstrnlen.ccorecrt.h./mingw-w64-crt/misc/wcsnlen.c/build/build./mingw-w64-crt/misc/usr/i686-w64-mingw32/includewcsnlen.cwcsnlen.ccorecrt.h./mingw-w64-crt/stdio/mingw_lock.c/build/build./mingw-w64-crt/stdio/usr/i686-w64-mingw32/include./mingw-w64-crt/includemingw_lock.cmingw_lock.cstdio.hminwindef.hbasetsd.hwinnt.hminwinbase.hcombaseapi.hwtypes.hinternal.hsynchapi.h/build./mingw-w64-crt/misc/invalid_parameter_handler.c/build./mingw-w64-crt/misc/usr/i686-w64-mingw32/include/psdk_inc/usr/i686-w64-mingw32/includeinvalid_parameter_handler.cinvalid_parameter_handler.cintrin-impl.hcorecrt.hstdlib.hcombaseapi.hwtypes.h./mingw-w64-crt/math/frexp.c/build/build./mingw-w64-crt/math/usr/i686-w64-mingw32/includefrexp.cfrexp.cstdint.h./mingw-w64-crt/stdio/acrt_iob_func.c/build/build./mingw-w64-crt/stdio/usr/i686-w64-mingw32/includeacrt_iob_func.cacrt_iob_func.cstdio.h./mingw-w64-crt/misc/wcrtomb.c/build/build./mingw-w64-crt/misc/usr/i686-w64-mingw32/includewcrtomb.cwcrtomb.ccorecrt.hwchar.hminwindef.hwinnt.hstdlib.hmb_wc_common.hstringapiset.h./mingw-w64-crt/misc/mbrtowc.c/build/build./mingw-w64-crt/misc/usr/i686-w64-mingw32/includembrtowc.cmbrtowc.ccorecrt.hwchar.hminwindef.hwinnt.hwinnls.hstringapiset.hstdlib.hmb_wc_common.h./mingw-w64-crt/misc/lc_locale_func.c/build/build./mingw-w64-crt/misc./mingw-w64-crt/include/usr/i686-w64-mingw32/includelc_locale_func.clc_locale_func.cmsvcrt.hcorecrt.hwinnt.hminwindef.hcombaseapi.hwtypes.hstdlib.hstring.hlocale.hlibloaderapi.h./mingw-w64-crt/misc/___mb_cur_max_func.c/build/build./mingw-w64-crt/misc___mb_cur_max_func.c___mb_cur_max_func.c?
??0???
P??0??? 0???0???
Q??
Q??s1'???0??? 0?
??0???
P??
P??
P??
W??
W??
W
??0???
S??0???
S??
S
??H?
??
P
??0?
??
W
?? 0V?? ?  0V???
V? ?
V
??
S? ?
S??0?? ? 0???
P??
Q??u?? ?
P??
W
??0?TV
Q?
?

Q?
?
Q
?
?
q??
?q?
?
?
q?BJO
Su?

S?
?

P?
?

S

O_
S_bs?bt
SV?
?
??
?
2??
?
?
?
?

S?
?
s|??
?
(`V??
?

Sy
S???
P

??
V???L





???H??
P??
V??0???p ?????p ????|!???
V??p???? p??!???
V??
P??
V??
P??
P???H??
P???H???H???H??
P??
S??st?? ?
S??
S??
S??
S


?? ???@???8??? ?


?? ???? ?????????@K$??????? ????2????*L???H??2????*L???H??1????*L???H??1????*L???H??4????*L???H??4????*L???H??
S? ? sx?? ?
S? ?
W? ? 4?? ? ?N? ?
P? ? 4?? ? ?N? ?
P??0???
W`{
P{?

S?
??
P???
P???
P???
S
?
?

P?
?
W??
W??
W??
P??
W`?
0??
?

Q??0???
PY
S
f?l??DU
P?
?

P?
?

P??
P??
P??
P??
P??
P










U0?l?
0??
?
 ???
?0??? ????0???0??? ????0??? ????0??? ????0?

00?0M1?l?0???0???1??
??
S??
P??
S??
S


??0???
Q??
P??
Q??
Q??
P??
R??
P??
P?
?

P?
?

S?
?

P?
?

S
i
S<=
P=U
V??????
S??
S??
V??
P??
R??
P??
P??
V??
V
??v?
??
P??
V??
R??r(???
R??0???
V??
S??
S??
P??
Q??
Q
??q?
??
S??
Q??
P??0???
Q?????
Q??
R??
P??0???
R??
R??
R
??r???
S??
R??
R
??r?
??
S??
R??
P??0???
Q?
?

P?
?

S?
?
S?
?
0??
?

V?
?

P
?
?
p?.? ?.?
P-
P-.??#<"?
-p?-. ??#<"#?0h?hk
Skm?=P
RPm??#<"?Ij
P
=P0?Ph
Q/?
PUU
Q


P
Q?:
P:< ???B
PBI
SIK
PbJ??
P????~??3?
P??3?4??~?4?5?
P??5?5??~?5?j?
P???
R????~??3?
R??3?4??~?4?5?
R??5?5??~?5?j?
R???
Q????~??3?
Q??3?4??~?4?5?
Q??5?5
Q?5?5??~?5?j?
Q?







??
R????~??
V? ?
V? ???~??
U??
V??
V??v???
V? ? v?? ?
V? ?v???
V????~??
P????~??
V????~#
???
V??
Q??
V??
P????~??
V? ?!??~?!?!
V?!?!
P?!?!
V?!?!v
??!?!
P?!?!
V?!?"
P?"?"
V?"?"v
??"?"
P?"?"
V?"?"
P?"?"
V?"?"v
??"?"
P?"?*??~?*?,??~?,?,
P?,?-??~?-?-??~?-?.
R?.?/??~?/?0
U?0?0
V?0?0??~?0?0
Q?0?0
V?0?1??~?1?2
V?2?7??~?7?7v
??7?7
P?7?7v
??7?7
P?7?7v
??7?7
P?7?:??~?:?:w
??:?:
W?;?>??~?>?>
R?>?G??~?G?G??~?G?I??~?I?I
U?I?J??~?J?U??~?U?\??~?\?^??~?^?^
R?^?a??~?a?c??~?c?d??~?d?j??~

?>??0?????
U???@u??@?@0??G?G0??S?S
U?S?S
V?S?T0??]?]
U?]?]
V?c?c
V?h?h0??h?h0?










??0?????? ? ??? ?????d???????
P??????????d???????
P??????????
W?? ??? ?*???*?+???+?,d??,?-???.?3???3?40??4?5???5?50??5?:???;?;???;?<d???????@???@?E???E?J???J?N???N?U???U?X???Y?Y???Y?^???^?a???a?a???a?a
S?a?b???b?b
W?b?c???c?d???d?j??

??0?????? ? ??? ?????
P??????
P??
W??
P??????
Q????~??
Q????~??
Q??
U??
Q??
P??
Q?? ??? ? ???!?*???*?-???.?3???3?40??4?5???5?50??5?7???7?7
W?7?8???8?8
S?8?:???;?<??????@?E???E?E
P?E?E
W?E?E
P?E?E
W?E?G???G?G???G?G
Q?G?H???H?H
W?H?J???J?N???N?N
P?N?O
U?O?O
P?O?R???R?R
U?R?R???R?S
S?S?S???T?U???U?U???U?U???U?V
U?V?X???Y?Y???Y?Y
P?Y?Y
U?Y?Y
P?Y?Y
U?Y?]???]?^???^?^???^?_???_?a???a?b???b?b
P?b?b
Q?b?b
P?b?c
U?c?d???d?d???d?d
P?d?d
W?e?g???g?g
U?g?h???h?h???h?j??











??0??3?40??5?50??8?80??=?=0??F?Fp?F?F
P?F?Fp?F?G
P?R?S0??T?T0??T?Tp?T?T
P?X?X0??Y?Yp?Y?Y
P?^?^p?^?^
P?`?`p?`?`
P?c?c0??h?h0??h?h ??~ ??j?j0?




??0?????? ? ??? ?????
P??????
P??????
P??q??
P?? ??? ? ???!?*???*?+???+?+
P?+?-???.?2???2?2
S?2?3???3?40??4?5???5?50??5?:???;?<????????@???@?@
P?@?@r?@?@
P?@?F???F?G???G?J???J?N???O?R???S?S???S?T
S?T?U???U?U???V?X???X?X
S?X?X???Y?Y???Y?^???^?`???`?a???a?a???a?a
S?a?a???a?a
P?a?ar?a?a
P?a?b???c?c???c?d???d?g???g?h???h?h
P?h?h
P?h?i???i?i
P

??0?????~? ? ??~? ? ??~? ? ??~?!?*??~?*?-??~?.?3??~?3?40??4?5??~?5?50??5?8??~?8?:??~?;?<??~???~?@?G??~?G?J??~?J?N??~?O?R??~?R?R??~?S?S??~?T?T??~?T?U??~?U?U??~?U?U??~?V?X??~?X?X??~?Y?Y??~?Y?]??~?]?^??~?^?_??~?_?a??~?a?a??~?a?b??~?c?c
P?c?d??~?d?g??~?g?h??~?h?h??~?h?h
P?h?j??~?j?j
P


??0???
P??
W? ?
P? ?
S??
P??
W??
W??
P??
W??
P??
W??
P??
W??
V??
U??
P??
P??
W??
V??
U??
P??
P??
S??
P??
S??
P??
P??
S??
P??
P?? ????
P??
U??
P??
U??
W?#?#
P?#?#???#?#
P?#?$
W?$?%
S?%?%
P?%?&
S?&?&
P?&?&
P?'?'
P?'?'
W?(?(
P?(?(
W?)?*
W?*?*
P?*?*
W?/?/
S?/?0
W?0?0
S?0?1 ???1?1
P?1?2
W?2?2
U?2?3
V?3?3
P?3?3
V?3?3
U?3?3
V?3?3
P?3?3
V?3?40??4?4
S?4?4
R?4?4
P?4?4
R?4?5
S?5?5??~?5?50??5?6
P?6?6
S?6?6???6?7
P?7?7
S?7?7
S?7?8
W?8?9
S?
W?>?>
P?>??
W????
P???A
W?A?B
S?B?B
P?B?B
S?B?B
W?B?C
S?C?C
R?C?C
P?C?C
R?C?C
S?C?C
P?C?C
R?C?C
S?C?D
W?E?E
R?E?E???E?E
S?E?E
V?E?E
S?G?G
W?H?H
S?H?I
W?I?I
P?I?I
R?I?I
W?I?I
R?I?J
W?L?L
P?L?M
W?M?M
P?M?M
W?N?N
P?N?N
W?N?N
P?N?O
W?P?P
W?P?P
P?P?Q
W?R?S
W?S?S
S?S?T
W?U?U
W?U?V
W?V?V
P?V?W
W?W?W
P?W?W
W?W?X
V?X?X
P?X?Y
W?Y?Y
W?Y?Z
W?Z?Z
P?Z?Z
W?Z?Z
P?Z?[
W?\?\
W?\?\
P?\?]
W?]?]
P?]?]???_?_
W?_?_
P?_?`
W?`?`
S?`?a
W?a?a
P?a?a
W?a?a
V?a?b
W?b?b
S?b?c
W?c?d
W?d?d
P?d?d
W?d?e
V?e?e
W?e?es?
???e?f
W?f?f
P?f?g
W?g?g
S?h?h
V?h?h
W?h?h
V?h?i
W?i?i
P?i?i
W?i?j
V


??0?????~??0?? ? ??~? ???~??0?????~??0?????~??0???0?????~?? 0?? ? 0??!?!0??!?"??~?"?&0??*?.0??/?/0??/?0??~?0?00??0?0??~?1?2??~?2?70??7?7??~?8?<0???@0??E?E0??F?G0??G?G??~?G?H0??I?I0??I?I??~?I?I0??J?L0??N?S0??S?S??~?S?T0??U?V0??V?W0??W?X0??Y?Y0??Z?_0??_?`0??a?a0??a?b0??b?c0??e?e0??f?g0??h?j0?











??
Q????~????~#???
P????~#???
P????~#???
P????~#???
P? ? ??~#?? ?
P?!?!??~#??!?!
P?*?*??~#??*?*
Q?+?+??~#??+?+
P?1?1??~#??1?1
Q?3?4??~?5?5
Q?5?5??~?:?:
P?;?;??~#??;?;
P?>?>??~#??>?>
Q?E?E??~#??E?F
P?G?G??~#??G?G
P?K?K
P?K?L
P?M?M??~#??M?N
Q?O?O??~#??O?O
P?R?R??~#??R?R
P?T?T??~#??T?T
Q?U?U??~#??U?U
Q?X?X??~#??X?X
Q?_?_??~#??_?_
Q?b?b??~#??b?b
Q



??
S? ?
S??
S????~??
R??
S??
S????~????~??
R??
R????~?!?"??~?"?#
R?*?*
R?*?+
R?-?-
R?-?-??~?.?.r?.?.
P?.?.
Q?.?.
P?.?.
Q?0?0??~?0?0??~?0?1??~?1?1
S?7?7??~?:?:
R?;?;
R?>?>
P?G?G??~?O?O
R?Q?R
R?^?^
Q?^?^
S?^?^
R?`?`
R?`?`
R??0???????0???
U????????????????? ? ???!?*???*?-???.?/???0?0???0?0
U?0?1???4?5???5?7???8?:???;?<??????@?E???E?G???G?H???H?I???I?J???J?N???O?R???S?S???T?U???U?U???V?W???X?X???Y?Y???Y?]???]?^???^?_???_?a???a?a???a?b???c?d???d?d???e?g???g?h???h?i??







??0?? ? r1$p"?? ?
S? ?0???0???v???
V??s???
S?"?"
P?"?$???$?%
W?%?&
W?&?&
S?&?&s??&?&
S?'?(s??(?(
S?/?/
W?0?00??0?0
W?0?00??2?2p??2?2
P?3?3??1??3?3???4?4
W?4?4???5?6???8?9
W???~?@?G??~?G?I??~?I?J??~?J?N??~?O?R??~?S?S??~?T?U??~?U?U??~?V?X??~?Y?Y??~?Y?]??~?]?^??~?^?_??~?_?a??~?a?b??~?c?d??~?d?g??~?g?h??~?h?h??~?h?i??~?i?i??~@!??i?i
P?i?j??~






??0?????~? ? ??~? ? ??~? ? ??~?!?'??~?'?':??'?(??~?*?-??~?.?.??~?.?.@??.?.??~?.?.:??.?.??~?.?.@??.?.??~?.?/0??/?/??~?/?3??~?3?40??4?5??~?5?50??5?:??~?;?<??~??@0??@?A??~?A?A
V?A?Bv
??B?B??~?B?C??~?C?C
V?C?E??~?E?G0??H?H0??H?I1??J?Jv
??L?L
P?L?L??~?L?Lw
??L?L??~#
??L?L
U?M?M1??M?O0??O?P0??P?P1??Q?Q
P?Q?S0??S?U0??U?V0??V?W0??W?Y0??Y?Z
U?Z?Z0??Z?Z1??Z?[
S?[?[
P?[?[??~?[?[
S?\?\0??\?]1??]?]0??]?]??~?]?]0??^?^0??^?^0??_?_0??_?_
P?_?`??~?`?`0??`?`0??a?a0??a?b1??b?c0??d?d??~#
??d?d
U?d?e0??e?e??~?f?f??~?f?g
S?g?g??~?g?g
S?g?g0??g?h0??h?i1??i?i2??i?j0?

?>?>r?>?@???G?G???N?Nr?S?T???]?]???c?c???h?h???h?h??
??
R??
U?E?Ep1$??Y?Yp1$??a?a
S?b?b
P?b?c
P?e?e
P?h?h
Q?h?h
Q?i?i
S?i?i
P?i?j
S??
P??
P?2?2
P?3?3
P?@?@
P?G?G
P


?#?$0??$?&???/?/???0?0???4?5???5?7???8?8???8?91??9?9???E?E0??I?I???I?I???O?O???P?Q0??S?S???Z?]0??]?]0??_?`0??`?`???`?`???a?b0??f?g0??g?g???h?i0?

?#?$0??$?&???/?/???0?0???4?5???5?7???8?8???8?91??9?9???E?E0??I?I???I?I???O?O???P?Q0??S?S???Z?]0??]?]0??_?`0??`?`???`?`???a?b0??f?g0??g?g???h?i0?? ? ??-)??#?#p-)??#?&??-)??/?/??-)??0?0??-)??4?5??-)??5?7??-)??8?:??-)??E?E??-)??G?H??-)??I?I??-)??I?I??-)??J?L??-)??O?O??-)??P?Q??-)??S?S??-)??Z?]??-)??]?]??-)??]?^??-)??^?^??-)??^?_??-)??_?`??-)??`?`??-)??`?`??-)??a?b??-)??f?g??-)??g?g??-)??h?i??-)?
?#?$e??$?&???,?- q?^)??-?. u?^)??/?/???0?0???4?5???5?7???8?9???:?; u?^)??>?> u?^)??I?I???I?I???N?N u?^)??O?O???S?S???\?]e??^?^ u?^)??`?`???`?`???a?be??g?g???h?ie??i?ip???
P?????3?4??
??
Q????~? ? ??~? ? ??~?!?*??~?*?-??~?.?5??~?5?:??~?;?<??~???~?@?G??~?G?J??~?J?N??~?O?R??~?S?S??~?T?U??~?U?U??~?V?X??~?Y?Y??~?Y?]??~?]?^??~?^?_??~?_?a??~?a?b??~?c?d??~?d?g??~?g?h??~?h?h??~?h?j??~? ? P?V??*?*P?V???
P? ? ?@?? ?
R? ? ?@??/?0?@?? ? ???? ?
P? ? ????/?0???? ?  ???/?/
P?/?0??~?/?0
S
?/?0
S?0?0
P
?/?/1??I?I1?
?/?/
V?I?I
V
?/?/??~?I?I
P?I?I??~
?/?/
W?I?I
W
?I?I1??I?I
V?I?I
W?I?I??~??
V?0?0
V?0?0??~#
?
?B?C??~?C?C
V?C?D
V?D?D
S?D?E
U?E?E
V?e?e
U?B?C
U?C?C
S?C?C
U?C?C
S?C?C
U?E?E
S?E?E
U?D?D1??D?E1??D?D??~?D?E??~?D?D
W?D?E
W?D?D
Q?D?D
Q?D?E1??D?E??~?D?D
Q




?Z?Z~?T??Z?Z?T??Z?[ s~?T"??[?[??~~?T"??[?[ s~?T"??]?]??~~?T"?
?[?\?@?
?[?\???
?[?\??~?[?[
S
?[?[
S?[?[
P





?P?P??T??P?P??T??Q?Q p??T"??_?_ p??T"??_?`??~??T"??f?f??~??T"??f?f??T??f?f??T?
?Q?Q?@?
?Q?Q???
?Q?Q??~?Q?Q
S
?Q?Q
S?Q?Q
P
?$?%???0?0???4?4???4?4
U?4?5???5?6
U?8?8???I?I
U?I?I
U?g?g
R?$?%
W?%?%
Q?0?0?????4?4
W?4?4
Q?4?4
S?4?5
Q?5?5
S?5?5
Q?5?5
S?5?6
Q?6?6???6?6
Q?6?7
U?8?8?????I?I
S?I?I
Q?I?I
S?I?I
Q?S?S
Q?`?`
Q?g?g
Q
?%?%??~?6?6??~?6?7
V?`?`
V
?O?O0??`?`0?
?O?O??~?`?`??~
?O?O??~?`?`
P?`?`??~
?`?`0??`?`??~?`?`??~? ?
[?H?H
[?K?K
[?^?^???^?^??1??^?^
R?^?^??~

?^?^??~?^?^
P?^?^p?? ? ?l?{??9?:?l?{??:?:??~?G?G?l?{??^?^??~?^?^???^?^??1??^?^
R?^?^??~

?^?^??~?^?^
P?^?^p?? ?
[?G?H
[?J?K
[?]?]???]?]??1??]?]
R?]?]??~

?]?]??~?]?]
P?]?]p?
??0??? 0?
??????? ???
????~??
P?? ??~
??
W??
W?? 0??? ?????
W????~???@??????????~??
S
??
S??
P
???@?
?????
????~??
S
??
S??
P
? ? 0??S?S0?
? ?
W? ? ????S?S
W
? ? ??~?S?S
P?S?S??~
? ?
S?S?S
S?S?S0??S?S
W?S?S
S?S?S??~? ? ?@?? ? ???? ? ??~? ?
S
? ?
S? ?
P???@????????
V??
S
??
S??
P
??0??F?F0?
??????F?F???
????~?F?F
P?F?F??~
?F?F0??F?F????F?F??~
??
V
??
P
??
V
??
P
??
V
??
P
??
V
??
P
???@?
?????
????~??
S
??
S??
P
???@?
?????
????~??
S
??
S??
P
?(?(0?
?(?(??~
?(?(??~
?(?(
W?V?V0??V?V??~?V?V
W?V?V??~
?+?,
V
?,?,
P
?0?0?@?
?0?0???
?0?0??~?0?0
S
?0?0
S?0?0
P?0?1?@??0?1????0?1
V?0?1
S
?1?1
S?1?1
P?1?2?@??1?2????1?2
P?2?2??~?1?2
S
?2?2
S?2?2
P
?8?8??
?8?8
S?8?8
R?8?8
P
?:?;?@?
?:?;???
?:?;??~?:?;
S
?:?:
S?:?:
P???0????@??~?A?A??~?A?C??~
????~??
S??
V??
P??vw??,?,
P?,?,??~?,?,vw??,?,??~?2?2
P?2?2vw?
??!??~?*?2??~?2?3??~?4?6??~?7?8??~?9?9??~?:?=??~??????~???@??~?A?A??~?A?C??~
??
S??w??~"??,?,
S?,?,w??~"?
??????
P??
U?*?+
U?,?,
U?,?,???,?,
P?-?.
U?2?3
U?5?6
U?7?7
U?:?:
U?;?;
U?
Q?A?A
Q?A?A
P?C?C
Q


??0?? ? 0?? ???~????~????~????~?!?"0??"?"0??"?#1??#?$??~?%?&1??'?(??~?)?*??~?7?70??7?7??~?:?:1??:?:??~?=?>1??>?>0??A?A1??A?A1??C?C1?






? ?0???0???1???0???1??? ??~? ? 1?? ?!??~?!?&0??&?'1??'?*0??*?,??~?,?-??~?-?-0??-?/??~?2?3??~?3?31??4?4??~?4?50??5?6??~?6?60??6?7??~?7?70??7?8??~?8?90??9?91??9?9??~?9?:0??:?;??~?;?<??~?0??>??1???????~????0????@??~?@?A0??A?A??~?A?A0??A?C??~?C?C0???
S?*?+
S?-?/
S?2?3
S?4?4
S?5?5
S?7?8
S?8?8
S?:?;
S?;?;
S??A???A?A???A?C??







??
P??????0???
V??v ????
V?"?"???"?"
V?$?$
V?$?$
R?$?$
Q?$?$q??$?$
Q?%?%
R?%?%r1&??%?%
R?(?(???(?(
V?(?(v ???(?(
V?(?(
W?(?(
R?(?)r??)?)
R?)?)
W?)?)w1&??)?)
W?9?:???:?:???:?:
Q?:?:
V???????@?A???A?Arp??A?A
R?A?A
R?A?A
W




??????0???
V??
W?????"?"0??$?$0??$?$
W?$?$
V?%?%
V?&?'???(?(0??(?)
V?)?)
Q?)?)
V?6?6
W?9?9
W?9?9???:?:0??>?????A?Arp??A?A
R?A?A0??A?A0???
Q??????
Q??!???&?&
Q?&?'???*?2???2?3???4?6???7?8???9?9
Q?9?9???:?=???>?>
Q?>???????@???A?A???A?C??
??0??????#?#???#?#0??#?$???7?70??:?:??


??0???
Q????~??!??~?*?+0??+?,??~?,?-??~?-?-0??-?-??~?-?/0??/?/??~?2?3
Q?3?3??~?4?40??4?5??~?5?5
Q?5?6??~?7?80??:?;
Q?;?=0????@0??A?A0??A?C0?





??p??~"5,??????2$??T"??~"5,????
V??vu-(
???
P??
P??0???
S?!?"1??"?"
Q?"?"v???"?"
P?"?"
Q?&?&1??(?(v???(?(
P?*?*
P?5?50??:?:???~??;?;
P?1????@
P?@?A?v??A?A???~??A?A1??A?A
P?A?A
P?C?C1?



?? ???!???*?+ ??+?+@??+?,???,?-???-?. ??.?/???2?3 ??3?3@??3?3???4?5???5?6 ??7?7@??7?8???8?8
P?8?8???:?; ??;?= ????@ ??A?A ??A?C ?

??vq???v?????
W??
W??vq???v?????
R????~??
P??p ???
P?%?%0??%?%
P?&?'
W?)?)0??)?)
P?1?1vO??1?2
V?3?3
S?3?3v????5?5
S?5?5??~?5?5
P?9?9v????=?=
S?=?=??~?>?>vq??>??v????B?CrO??C?C
Q
????~@??~@,(
???
P??
W????~@??~@,(
???r???
Q? ? v1??"?"
W?$?$
W?$?%??~@??~@,(
??&?'??~@??~@,(
??(?(
W?(?)??~@??~@,(
??+?+
Q?+?,p1??,?, ?\#1??,?-v1??3?3??~@??~@,(
??4?4p1??6?6??~@??~@,(
??9?9??~@??~@,(
??9?:
W?:?:
W?>????~@??~@,(
?????
W?@?A
W?A?A
W?A?A??~@??~@,(
???
P???????~???????~?????!??~?!?"??"?"??~?"?$??$?%??~?%?&??&?'??~?'?'??'?(??~?(?(??(?7??~?7?7??7?8??~?8?8??8?9??~?9?:??:?:??~?:?:??:?=??~?=?>??>????~????????@??~?@?A??A?A??~?A?A??A?A??~?A?A??A?C??~?C?C?


??0???
S? ?
S? ???~????~????~????~?"?"??~?#?#??~?#?%??~?&?&0??&?&1??&?*??~?3?3??~?6?6??~?7?70??7?7??~?9?9??~?9?:??~?:?:??~?=?>??~?>?>
S?>?>??~?>?>??~#
??>????~??????~?@?A??~?A?A??~#
??A?A??~?A?A??~?C?C
P?C?C??~
? ?
S??
S??
S?!?#
S?$?&
S?&?'
S?(?)
S?3?3
S?6?6
S?9?9
S?9?:
S?>??
S????
S?@?A
S?A?A
S?A?A
S




??0?? ? 0?? ????????????????!?"0??"?"???"?#0??#?#
W?#?#???#?%???%?&0??&?&
W?&?&
P?&?*???3?3???6?6???7?70??7?7???9?9???9?:???:?:0??:?:???=?=???=?=??w"??=?> ????"??>?>0??>???????????@?A???A?A???A?A0??A?A???C?C??w"?


? ? 0?? ?
W??
W??0???
W??
W?!?"0??"?#0??#?#
W?#?$
W?%?%0??%?%qr??%?%qr#
??%?%vr#
??%?%qr??&?&0??&?&1??&?&0??'?'
W?)?*
W?7?70??7?7
W?8?90??:?:
W?=?=
W?=?>???>?>0??A?A0??C?C
W? ?0?????~?? 0?? ? ??~????~??0?????~?!?"??~?"?$??~?%?&??~?&?&0??7?7??~?8?90??:?:??~?:?:??~?=?>??~?A?A??~?A?A??~?C?C??~
??????0???!???"?"???$?%???&?'???(?)???*?7???7?8???9?:???:?:???:?=???>?A???A?A???A?C??


??????
W??????????!???&?'???*?-???-?-???-?/???2?3???3?3
W?4?4???5?6???7?8???9?9
W?9?9???:?;???;?=???>???????@???A?A???A?C??



? ?0??????? 0?? ?????&???&?&0??&?&???&?&0??&?9???9?90??9?C??
??
P???#? ??#???????#???#???????#??!???!?"?#?"?"???"?$?#?$?%???%?&?#?&?'???'?'?#?'?(???(?(?#?(?/???2?3???4?5???5?6???7?7?#?7?8???9?9???9?:?#?:?:???:?:?#?:?;???;?=???=?>?#?>?????????#???@???@?A?#?A?A???A?A?#?A?A???A?A?#?A?B???B?C???C?C?#

???X? ?
U??
U??
U??
U?"?"
U?#?#
U?#?#
U?#?%
U?&?&
U?&?*
U?3?3
U?6?6
U?7?7?X?7?7
U?9?9
U?9?:
U?:?:
U?=?>
U?>?>???>??
U????
U?@?A
U?A?A
U?A?A
U?C?C
U???X??!???+?,???,?-???.?.
[?.?.???.?/
[?/?/??~?/?/???3?3???4?5???7?7
[?7?8??~?8?8???8?8
[?8?8??~? ?
[? ?!??~?l?lV瞯?<??/?/??~?l?lV瞯?<?

??
V??0???!???*?+0??+?,???,?-???-?-0??-?-???-?.0??.?/???/?/???2?30??3?3???4?40??4?4???4?50??5?60??7?70??7?8???8?8???:?;0??;?=0?????0????@0??A?A0??A?C0?
??!??~??!?![??!?!???l?l?????*?+[??+?,??~??,?-??~??-?-??~??.?.[??.?.????/?/??~??/?/???l?l?????3?3??~??4?4????4?5??~??8?8[???R?R??:?:P?R?
?1?1?

?1?1
S?1?2s|?
??0???
W? ?
W? ???~????~????~????~??
V??!???"?"??~?#?#??~?#?%??~?&?&??~?&?&
P?&?*??~?+?,???,?-???/?/???3?3
V?3?3???3?3??~?4?5???6?6??~?7?70??7?7??~?9?9??~?9?:??~?:?:??~?=?>??~?>?>
W?>?>
W?>?>??~?>????~??????~?@?A??~?A?A??~?C?C??~

??0?????~??
P? ? ??~? ???~????~????~????~? ? ?T?P"?? ?
P? ?!?T?P"??"?"??~?#?#??~?#?$??~?&?&??~?'?(??~?)?*??~?-?-?T?P"??/?/?T?P"??7?70??7?7??~?9?:??~?:?:??~?=?>??~?>?>
P?>?>u1$??>?>
P?>?>??~??????~?@?@??~?@?A??~?A?A
P?C?C??~??
P??!
S?+?,
S?,?-
S?/?/
S?/?/
P?/?/
S?4?5
S

??
P??
V????~??
W??!??~?*?,??~?,?,
P?,?0??~?2?3??~?4?6??~?7?8??~?9?9??~?:?;??~?;?=??~??????~???@??~?A?A??~?A?C??~??
P??
W??
P??!??~?*?,??~?,?,
P?,?2??~?2?3??~?4?6??~?7?8??~?9?9??~?:?=??~??????~???@??~?A?A??~?A?C??~
??0???0???
P??
W??!???"?"0??$?%0??&?'0??(?)0??*?2???2?3???3?30??4?6???6?60??7?8???9?90??9?9???9?:0??:?:0??:?=???>??0???????????0????@???@?A0??A?A0??A?A???A?A0??A?C????
P????~??
P??!??~?*?,??~?,?,
P?,?2??~?2?3??~?4?6??~?7?8??~?9?9??~?:?=??~??????~???@??~?A?A??~?A?C??~??
P??!
W?*?,
W?,?/
W?2?3
W?4?5
W?5?6
W?7?8
W?9?9
W?:?;
W?;?;
W?;?;
P?;?=
W????
W???@
W?A?A
W?A?C
W??
V?+?,
V?,?-
V?4?5
V? ?
W????~??
W??
W? ? ??~??
W?&?&
W?7?7
W?8?9
W
? ?
P? ???~????~????~?!?*??~?3?3??~?6?6??~?7?7??~?8?9??~?9?:??~?=????~??????~?@?A??~?A?A??~?C?C??~???.??@?@?.?





??
R?? ??~@@$!???
Q?? ??~@@$!?????~@@$!q%??@?@
R?@?@rq%??@?@??~q%????;???
Q
?@?@?;??@?@
Q?? q2$p"#? ? v#2$p"#? ? v#2$v"#?+?+ q2$p"#?+?+p#2$p"#?+?+p#2$v"#
?6?6
V
?6?6
Q


?
V?>??
V????
V????pH$H&??@?@
V?@?A
V?A?ApH$H&??B?B
V?C?C
V?C?C
V?C?C
V?D?E
V?E?F
V?F?F
V?F?G
V?G?GpH$H&??H?H
V?H?I
V?I?I
V?I?J
V?J?J
V?J?J
V?K?K
V?K?K
V?K?K
V?K?L
V?L?L
V?L?L??~?L?L
V?L?M
V?M?M??~?M?M
V?M?M??~?M?N
V?N?N
V?9?9
P?9?:??~

?;?;0??;?;
W?
W?>?A
W?A?B
W?B?D
W?D?D
W?D?D4??D?E
W?E?E
W?E?E
W?E?F
W?F?G
W?H?I
W?I?J
W?K?K
W?K?K
W?K?K
W?K?K
W?K?K
W?K?L
W?L?L
W?L?L
W?M?M2??M?M
W?M?M
W?M?N
W?N?N
W?N?N
W?N?O
W



?;?;0??;?;??~???~?>?C??~?C?C2??C?D??~?D?D2??D?D??~?E?E??~?E?E??~?E?F??~?F?I??~?I?J??~?K?K??~?K?K??~?K?M??~?M?M3??M?M??~?M?M??~?M?N5??N?N??~?N?N3??N?O??~?;?;
V?;?;??~?@@$@&??
?

P
[

[

P??
P??????
P??????
R??
V??
P??????
P??
V??
P??
V??
P??
Q??
S???
Q???
S

??
P??p???
W??
V??
S??
S?? v?
H$H&??? v?
H$H&???
P??
S??
P???
Pp?T?
P0.(
???
S??
P???
Pp?T?
P0.(
???
R??
V??
Q???
R???
R??
V??
Q???
R???
P??
W??
V??
W??
W??
R??
V??
U??wvu"#
??? wu"v???wvu"#
???
U??
V??
U??
V??
U??
Q??
S??
Q??
S???
Q???
Q??
S??
Q??
S??
S?? v?
H$H&??? v?
H$H&?
??
S??
S
?? ??? ??
?
P??
Q???
P??
?

R?
?
S???
R???
S???
R?? ?
P? ??L???
P????L???
P???
P???L???
P????L???
P????L???
P?? ? ?























???H??
V??v???r?P??? ??? ? ?H? ?
V??
P??rs???
W??w???
W?? ????
S??
P??
S??r?P???
W??
W??w??? ????
W???H??
P?? ????
W??
V??r?P??? ????
W??
W??w??? ??? ? 4???4???3???3?? ?rs+(
????#s+(
???rs+(
????Ds+(
???rs+(
????Ds+(
?? ?0???
P???P??0???
P??0???
P












??
P???P??
R???\??
R??
P?? ?P? ?
R??
R??
V??
R??r
???
P??
R???\??
P??p
???p???
R??p
???r
???r???
P??
P??r
???
R??
Q??
R??r
???r???
R???\??
P??
R??
R? ?V?W???? V?W??? ? V?W????V?W????V?W????V?W??
? ? ?? ?
P? ? ???
P????????
P???
? ? 4?? ? B?? ?
S??
S??3???H???
S??
S
? ? 2???2???2???2?? ?
R??
R??
R??
S??
S?? v?
H$H&??? v?
H$H&?
??
V??
V
?? ??? ???
Q??
S???D???
Q???
S???D???
Q???
S???
Q???
S??rq+(
???rq+(
???rq+(
???0???
P???L??t ????t ?????L??t ????
P??t ?????L




??
P???L??
W??
V??v
???
V??t??
V??
W??
V??
W??
V??
W??
V??
P???L??
V??t??
V???L

??
W??w???
W

??V?W????Q?S????Q?S????V?W????V?W???? ?l?????V?W??
??
Q??
S??
S
??3???G???
Q??
Q
??1???1???
S??
S?? w?
H$H&??? w?
H$H&?
??
S??
S
?? ??? ?

?.?/?H??/?/
V?/?/
U?/?3
V?3?4?H??4?4
P?4?4???4?4?I??4?4
P?4?4
V?4?5?H??5?5
V?5?5
U?5?5
V?5?5
U?5?6
V?6?6
V?6?6
U?6?7
V?7?7?H??7?7
P?7?8
V?8?8v
??8?8
V?8?8???8?8
V?8?8?H??8?8
P
?.?02??0?0u???#??0?1u???#??3?52??6?62??7?72??8?82?







?.?.P?R?Q???.?.P?R?W???.?/ P?R??????/?/?l4?l%????3?3P?R?0????3?3P?R???3?3?l1?l%????3?3P?R???3?3?l1?l$???????3?4 ??????4?4P?R???4?4 P?R??????4?4?l3?l%???????4?4 ??????4?5 ??????7?7??0????7?7 P?R??????7?7 ??????8?8??0????/?/
W?/?/w??/?/
W?/?00??4?5
W?6?6
W?8?8
W?8?80??/?/
Q?/?/p???5?5
Q?5?5qI??5?5p???5?5
Q?6?6
Q?8?8
Q?0?0
P?0?0qv??s0+(
??0?0
P?0?1
U?8?8
U?8?8???0?0
W?0?0rw??0?0
R?0?0
Q?0?1rp??1?1
R?8?8
R?2?2
S?3?3
S?6?6
S?2?2
P?2?2 v?
H$H&??3?3
P?6?6
P?6?6 v?
H$H&??6?6 v?
H$H&??
?
?
U???L??
R???L??
W??
R???L





??
V??v|???
V??
V??v|???
V???H??
Q

??
R??r|???
P??w2$?H"4??? w2$q"4???
P???D???P??
W??
U
??
R???@?????????????? ???Q?S???P?R???q??
?l??
?
??
?
p??
?
?4??
?

P@?
V?

R?
?

R?
?
??

W?
?

P?

W?
?

PJs
Qs??
?

Q

J^4?^b
Pel
P?
?
4?
J^0?^l
W?
?
0?t
P
4?
P$
P0?$
S,4
P46p|?U!???????0??????????????????????
R????????????????? ? ??? ?#???#?#???#?$???$?$???'?)???)?)???*?*???+?+???+?-???-?.???/?/???/?/???0?0?????????0?????
P????~??
P????~?????
P????~??
P?????
P? ?
P?#?#
P

????
P? ? ??~? ? ?? ?0??????0????? ? ??#?#??+?+0?

??
S??
S??0???
S??
S? ?
S??
S??
S??
S??
S? ?"
S?"?#
S?#?#
S?#?$
S?$?%
S?'?(
S?(?)
S?)?)
S?+?+
S?+?,
S?,?,
S?,?,
S?-?.
S?.?.
S?.?.
S?/?/
S?/?/
S




??
R??
R?????????????????????? ?\??"???????????
R????s"?????????????s"?????s"??? ??? ? ??? ?#???#?#???#?$???$?$???$?%???'?)???)?)???*?*???+?+???+?+??s"??+?-???-?-??s"??-?-???.?.???/?/???/?/???0?0??


??0???
R????????????????????????? ? ??? ?!???!?!
V?!?#???#?#???#?#???#?$
P?$?%???'?)???)?)???*?*???+?+???+?-???-?-
V?-?.???/?/???/?/???0?0??????~????~????~????~????~????~????~??#??~?#?#??~?#?$??~?$?%??~?'?)??~?)?)??~?*?*??~?+?+??~?+?-??~?-?.??~?/?/??~?/?/??~?0?0??~


????~??
Q????~??
Q????~??
P??
P??
Q?#?#??~?%?%
Q?%?%??~?&?&??~?&?'??~?'?'q
??'?'
Q?)?*??~?*?+??~?+?+w1??+?+
Q?.?/??~?/?/
Q?/?0??~?0?0??~


? ? 2???2???2??(?(2??(?)3?




?? ????
P?? ??? ? ??? ?
V? ? ???? ????
P?????? ????0???
V?????????? ????
V??????
P????????????? ?  ???#?#???#?# ???#?#???$?$???%?'???(?)
V?)?)???)?)0??)?*???*?+???+?+ ???+?+???+?,
V?-?-???.?.
V?.?/???/?0???0?0??? ?
V? ?????
V?????????(?(
V?(?)???)?)
V?)?)???+?,???.?.???/?/??

?? ????
P?? ??? ? ???? ???????? ???? ??? ?  ???#?# ???+?+ ??









?0?? ?0??? ?????~??0???@???0?????~????~??0?????~??#0??#?#??~?#?$0??$?'0??'?'??~?'?*0??*?* ??*?*0??*?+0??+?+???+?+0??+?+ ??+?,0??,?-??~?-?/0??/?/???/?/0??/?/ ??/?00?



??
P??1??qq0-(
 5???1??????0-(
 5???1??????0-(
 5???1??????0-(
 5???1??????0-(
 5???1??qq0-(
 5???1??????0-(
 5???
S??
P??
S? ?!
P?!?!p??#?#
S?#?#
P?#?$p????$?$
R?$?$p????%?% ??????%?%???%?%
P?-?-
P?-?-w??-?.??1??.?.
P?.?.p??.?.w??.?.?\1??0?0
S? ?0???0???0???1??????(?)0??)?)0??*?+
P?+?,0??.?.0??/?/0??/?0
P






??????
Q????? ? 0?? ??H?? ?H??????
Q??????0????H??0?????~ ????H??0???
P????~?(?) ???)?)0??*?*?H?+?+??~?+?,?H?,?-?H?-?-??~?.?.?H?/?/0?
? ?0???0???0??(?)0??)?)0??+?,0??.?.0??/?/0?

??1???0???1???????1?mo
Po}q}?
??
?v ???????v ????v ????q??v ???? v ??? ?v ????v ??? ? v ???#?#v ???+?+v ??
??1??? ??? ?1???1???????1???1?? ? 1??#?#1??+?+1?


??????
W??sw"???sw"???sw"???
W? ?
W? ?!???!?!
W?#?$???$?$
W?$?%
W?+?+sw"??-?-sw"??-?-???.?.????????
R????~??
R? ?!???!?!
R?#?#???#?$0??$?%
R?%?%???-?.
R?.?.???.?.
R?
?
W??
W??
W? ?
W??
W??
W??
W? ?
W?#?#
W?(?)
W?)?)
W?+?+
W?,?,
W

? ? ??1?? ?
P? ?
R? ? ??? ? ??~1?

??0?????????? ????????????????? ?\??"???????
R?????????? ??? ? ??? ?"???#?#???#?#???$?$???$?%???(?)???)?)???+?+???+?,???-?-???.?.???.?.???/?/??
?????????????????????????????????? ??? ? ??? ?#???#?#???#?$???$?$???$?%???'?)???)?)???*?*???+?+???+?-???-?.???/?/???/?/???0?0??

??0??? 0?? ? 0?? ? 1??$?$0??$?$1?


??1???
P??????1???0?????????~?? ?@?l?v??????~?? ?@?l?v???? ?@?l?v??????~??
Q????~??qP??!?#??~?'?(??~?+?,??~?,?,??~?.?.??~?.?.??~?/?/qP??/?/??~?0?0??~

??
U??
U??
U? ?
U??
U??
U??
U??
P??
U??
U??????
U??
P??
U??
P??
U??
P??
U????~??!
U?#?$
U?%?%??~?%?%
U?%?%
P?%?'
U?'?'
P?'?'
U?(?*
U?*?*
U?*?*
P?*?+
U?+?,???,?,
U?-?.
U?.?.???.?/
U?/?/???/?/
U?/?0
U?0?0
U?%?%??~??
R??
P??
R?????#?#???0?0??
??0???0???0???
V??
P??
V??
R??
R????~??
V??
P??
R? ?!0??#?#
V?#?#??~?#?$0??%?%
R?%?%??~?&?'
V?'?'
V?'?'
R?)?)
V?)?*
V?*?*
R?*?*
V?*?*
R?*?+
V?+?+
R?+?+
V?+?+
R?-?.0??.?.0??.?/
V?/?/
R?/?/
V?/?/
R?/?0
V?0?0
V

??0???
V??0???0???
V??0???
V??
V??
P??
V??
P??
V????~??
V? ?
V? ?!0??#?#
V?#?#
V?#?$0??$?$
V?$?%
V?%?%
P?%?&
V?'?'
P?'?'??~?)?)
V?)?)
P?)?)
S?)?)
P?)?)0??+?+
V?-?-
V?-?-
P?-?-
V?-?.0??.?.0??&?'
P?'?'??~
??0?????~??0???
P????~??
P????~??0?????~????~??
P????~??
P? ? ??~? ? ??~?#?#??~?#?#??~?$?$
P?$?$??~?%?'??~?)?)??~?)?)0??)?*??~?*?+??~?+?+??~?-?-??~?.?/??~?/?/??~?/?0??~?0?0??~? ?
[? ? ??~? ?
[? ? ??~? ???????~????????~?????????(?(??~?(?)???)?)???+?,???.?.???/?/??

??
[??q?v?l?l?y?PD?????
[? ? ?????
[?? ?????
[?? ????? ????!?!
[?(?) ????)?) ????+?, ????,?, ????.?. ????/?/ ???


















? ?
P? ?????
Q??
R??r???
R??
P??
R??
P?? ??? ?
P? ?????????????
R??????????????
R??r
???
R??????
W??
W??????
S??
S?? ??? ?!???!?"
V?"?"
R?#?#
S?#?#
W?#?$???$?$
S?$?$
W?$?%???%?&
S?'?'
W?(?)???*?*
P?+?+
W?+?+???+?,
R?-?-p??-?-
R?-?.???.?.
R?.?.???/?/??? ?
P? ???? ?
P? ????????????????? ??? ?"???"?#???#?#???#?(???(?*???*?,???,?-???-?0??
?
???5
????5

?
?
W??
W

?
?
??
?

P?
?
p|??
?

P?
?
 ??
?

P??
S??
S?
?
0??
?

R
?
?

P?
?
U??
U
?
?

Q?
?q???q??
?
R
?
?u???u?
?? s2$u"#? ? ??~##2$??~"#r ??? ??? ??????????
P??
W??
P??
V???T???T???LD???
V?? ?? ?
P? ?
V? ? w? ? ???
V???LD???
P??
V??
V? ? ?LD???
V??
V??
P??
V??
V??
V??
V??
V???LD?
Z?
0???0???
P??
P? ? 0?? ?
P??
P??
P??
P??
P??
P

+Zs?Z?

W??
W??
W? ?
W? ?
W? ?
W? ?
W??
W? ? s?? ?
W??
W??
S??
W??
W??
W??
W


Z?

W?
?

P??
W??
S??
S??s
???
V???T??
P??
P? ? s
?? ?
P? ? ?T? ?
W? ?
W??
S??s
?? ?
P??
W??
S??
S??
P??
S??
S??
P





?
?

P?
?
S??
S??
Q??
V??
Q??
V??
S??
P??
S??
V??q???
Q? ?
S? ?
S??
S? ?
P??
S??
S??
S?
?
0??
?

V??0???0???
V? ? 0???0?? ?0???0??
?
0??
?
?P??0???0????P? ? 0?? ? ?P??0?? ?0???0?



%;0?;;ps3?;Hps2?HZqs2??
??H???H???H???H???H???H? ? ?H? ? 1?? ? ?H???H? ? 0?? ??H??1????H???H???H???H


??1???
W? ?
P??1???2???2???
W??2???
W??2???
W??2?



??
V??v1&???
P??p1&???
P??0?

??0???
R??0???
R? ?
Q? ? w???
Q??w?????1???
S??
Q??
S??
Q???D??
Q??w?


??
U??
V??s0.u"???
P??
P??0???
R??
R??0???r?????T??p???
U??
Q??
U??
R??
W??v??
W??
W??
W??
R???H? ?
W??
W??????uO???
R??
W??
W??0???
W??
W??
U??
S??
U??p?????
U??
U??
U??
U? ?
U??
U??
U??
U??
U??
U


??0???0???
P?????0?Zn0??
?
1???0????L???L? ? ?L???L? ?1????L???L???L
??0???up!???
U??0???0?




??0???
S??
S??0?? ? 0?? ? 1?? ? 2?? ?
S??
S??
S??
S??
S??
S??
P??2?

??
P???L???H???H#???
Q???H???H???H#???
W???H#???
S???L???L???L??
P? ?
S? ? ?L???L???L??
P??v????L??
P???L???L???L??
P???L



Z?
0??
?
?D??0????D??0????D???D?? ?D? ? 0???
R???D???D??0????D? ? ?D? ?0???
R??
P??0????D??
P???D??
R???D??0????D??0????D??
R??0?
???X??
R??
R??
Qnz0???
P??0?? ?
P??1???
R??0???1???
R?

U??
U??
U???\? ?
U? ?
U??
U? ?
U? ?
U??
U??
U??
U??
U??s????2$p"?? s????2$v"#
??p

??
P??p|???
P??
Q
??0???
R????N
??
P

#?A]?]`wO?`?

W?
?
?O??
?

W?
??O???
W???O?



#?#?A]v?]l
Vl?

S?
?
s|??
?

S?
?

V?
?
v??
?

V??
S

.?#?A]v?]?
?#??
?

V?
?

Q?
?
?#??
?

W?
?
w??
?

W?
?
Q???#?V?
U???`2$?"#???
Uu?

P?
?

P??
P

#
PAL
PLb?dbq?\?
?
?d?=@?=X?T?=@3V?
0? X?T r"?$ rZ?T?0?;p??
=F c?T r"?FL re?T?=cp??
hn j?T r"?nt rl?T?h~p???Qd
Pdi
Ri{
P{?

R?
?
R??
R??
R??
R??
R??
R??
R??
R??
R?
?
q????q????q????q??

-:
R::?X:?
?X4??
?
V???L??
V??????
V??v???
V??
V??v|???
V??
S??
V??
R??
P??????
V???????????X4?


E?
?X4??
??D??
W??w???
W???X4???
U???D??
S???D???D???D???D???X4?
E??X4????X4????X4?



K?

S?
?

P?
??P??
P??
P??
P??
S??
P??
P??p???p
???
P??p???
S??s???
PE?
0??
??@???@???@???@???@???@??0?

E?
0??
??H???H???@???H???H???H??0?


E?
0??
?
U??
U??
V??
U??1???0???
U???\??
U??
V??
V??0?&
P&???????????
?
?
U??
Q??
W
?
??D


?
?
V??
S??s|???
S??
U
??
V??
P??
V
???D


??????
R??r|???
R??
P??
S???@??????
P?????
R??
R??
P??
R
??1???
S??
S??p ????
P?? ?\D% ????
P?? ?\D% ??

??
Q??
V??
V??v??
??p???r???r?
????????
W?? ?Xq?%?

??
S??sq%???*?\??@@$!?\???\D% ?0.(
q%???
S??r
????`
??
Q

????`

??
V
?? s????2$r"#??
S??
W??sx???
R??r|???st???
W??
W??
W??w|???
V???#???
V???#???
V???#???
V???#?

??
R??s|??
R??w??
R??w??s|??
R??
P??sx??r??sx??0?



??
P??u???
U??
P??pu???
U??pu???
P??qk?
??
R
?????
V??wl????PD???????PD?
?????
S????????
P??
Q???D??
P???D
??
W??q???D#??0????D#
??
P???P4??
P???P4??
R??s???#???#??
W??????
P??????
S??
W??
Q??
Q????

???H???H??
U??
R???@???#2$?"#????@


??
V???L??????
U??
S??s|???
S??
S??
U??!?\2$#4?@@K$"?T@K$"*(
?L"??? ???V?W???????V?W???????P?R???
S??
V??
P??
Q??
R
??s?

??v??vp???
W??
P??s???


?????sO???
S???H???O???
S

??
P??
P??0?

??
Q???T??
V??s5&????5&???
U???X???P#
???
U??
P???L

??
V??v|???
V??
V??v???
V??v???
V??
W???????L#???
S??
W??w???
W??w???
W??
Q??
R??
Q???#2$?"#???
Q??0???
P??
P
?????
V??
U???P??
V??
U?????
P? ?
V



?????s2&???
S??s1&???
S??s1&???
S??
S?? ?? ?
S??
P??
V??
W??
V??
W??
W??
W? ?
W? ?
P? ?0???
V??
V??
P??s3???
P??s3????3???
P?? s3?? ??3?
??1?
? ? 1?
? ?  q?
? ?
P
?????
W? ? wk?? ??PD?????????
P???L??
P????
??w???#

??
U? ? ?\? ?
U? ? u?? ?
U??
S? ?
S
??
P?? u2$s"?? ?
P? ??P
? ?
P? ??H


? ?
V? ? ?@? ?
V? ?
P

? ?
Q? ? q|?? ?
Q


? ?
S? ?
W? ? ?D? ?
W? ?
U? ?
U? ? ??? ? ??? ? ??? ? P?R?

?????
S?????
S??0???
Q??q???
Q??
Q

??
P??s??p
???
P??s???\???\#
???
P

??s??? q2$s"#??? q2$s"#???W?U???W?U???P?R???
P??
V??
S
P@
V@A?
P?A?

V?
?
?
P??
?

VSe
P?
?

P




Wi0?iu1?u?
2?
AS1?
AS?=V??
?

P?
?
3??
?
?=V?




?
?
0??
?1???2???
S??
S

??
P???l??
P??
P?? v2$`=V"??
P
?? s2$13%???q3%???
W

??0???0???0???0?
??
S
??
P
??1???1?
??2???2???
P??
P??d=V??
P???l??d=V??
P??4???4?

??0???0???
P??
Q??
R
???#?

???#?? ?#p???
S???#?#???
P???#?????
P????????
Q??qO???
Q???O???
S???5&???
S???5&?
??
V???#??
V???#??
R??
P??
R??
P

??
V??
S??sq$???vq?%q$???v?O?%?O$???
V

?????
W??w???
W??
Q??
Q???????????
S??
S?????
R??r
???
R


??
V??v???
V??
V??
P???#2$?"#???s2$s"#???s2$s"#????#2$?"#??????
U????????
Q??
P??
P??vv`w@K$"?-(
???w?w?w@K$"?-(
???-r?
H$H&# r?
H$H&r?
H$H&A@K$"?-(
???
S??
S??
S?? q?
H$H&?

??
R??r???r
???
R??r???r
?

??
P??vs5$?l?h"???v?#5$?l?h"????#?#5$?l?h"???
P??p????lvs5$?h????lv?#5$?h????l?#?#5$?h?_?_?

U?
?

S?
?
??
?

S?
?
?I?

P?
?

P?
?

P

Wa9?awu??w?
? u"??
?
u???
?
9?
$40?4A
Q?
?
0?$H
R?
?

R
$41?4A
P?
?
1?@?+
S+,?#?#,
Q?*
PG? p1$q"??
R #?0?
P6@k
Skl?p?
??
?

S?
?
?2??=V??=V?_?

Q
?
????
V??
V?????
V??
V???
?
?0???
P??
P??0???
P??
P??
P??0???
P?
?0???
S??0???
V??
S??
P??
S??p
???0???
V??p
???
P??
W??
W??
W??
W??
W??
P???L??
S??
U??
S??
U??
S?????
U??
S??p?????
S?
?

S?
?
?k??0)(
?%?)x??
??
?|?

P?
?????
U??
V?????????????????0???
P??
Q??0???
P??0???
P??
P??0?
??0???
S??
S??0???
W??
P??0???
P?????
P???H??
P??
W???L??
W??
V??
S???n??0)(
??
??
??????
??
??????
??
?????ee}
P}?

S?
?

Se?
0??
?

P?
?

P?
?
?YG??
?

P7@
P@Gp?TV?
?
?
??????????? ??????? ? ????.???? ??????? ? ? ? ?????  +?????????????????????????????????????????????????????????????????????????????`?
?
?
???????????????????????? ???? ??????????? ? ?S?S? ? ?S?S? ? ? ? ? ? ? ?? ? ?,?,?/?0?I?I? ? ?,?,?/?0?/?/?I?I?/?/?I?I???0?0?0?0?????F?F???F?F????????????????????????????????? ? ?9?9?9?:?G?G?^?^? ? ?G?H?J?K?]?^? ? ?9?9?9?9?H?H?K?L?^?_?$?$?$?$?$?%?0?0?4?4?5?5?5?7?8?8?O?O?S?S?`?`?`?`?g?g?$?$?$?$?%?%?6?7?O?O?`?`?`?`?O?O?O?O?`?`?O?O?`?`?(?)?V?V?V?V?(?(?V?V?V?V?+?,?,?,?7?7?8?8?:?;?;?;?A?A?B?E?e?e?e?e?D?D?D?D?D?E?D?D?D?D?D?E?D?D?D?D?D?D?D?E?B?B?L?M?H?H?H?H?a?a?H?H?H?H?a?a?P?Q?_?`?f?g?Q?Q?Q?Q?Q?Q?Q?Q?Q?Q?R?R?R?R?S?S?S?S?T?T?T?T?U?V?V?V?g?g?U?V?V?V?g?g?W?W?W?X?h?h?W?W?W?W?h?h?Z?\?]?]?[?[?[?\?[?[?[?[?[?[?]?]?]?]?c?c?]?]?]?]?c?c?d?d?d?de?????????@?@???????? ?+?+?+?+?6?6?6?6?i
M?
`?
z
??
??
??
?V
??
??
?I
?
%?!
:'"
M#
s?(
_time?(
?)
?,)
_gmtimeA)
_mktimeV)
?k)
??)
 ?)
7 *
Y X*
n ?*
? =+
? ?+
? ?,
? -
? ?.
/ ?.
W ?.
n 8/
? ?/
? L0
? ?0
? ?0
? ?1
?1
 r2
8?2
Q?2
o+3
??3
?=4
?m4
?5
?J5

?5
?5
0w6
I?6
TK7
_7
l?7
wI8
?????8
?\9
??9
??9
? :
?v:
?;
 ;
 ,<
) m<
4 ?<
? =
I O=
S ?=
_ >
_loadInt7>
i R>
u w>
? ?>
? ?A
? ?B
? :D
? }E
? zF
? >I
? 4J
? ?J
? ?J

L
?M
?M
$?7N
AEN
M?N
_dumpInt?N
W?N
cO
p?O
|?P
??P
??Q
?2R
??R
??T
??U
?zV
?AW
??W
_freeCI?W
?XX
?X
*Y
-eY
9XZ
D?Z
S?[
^)\
n?\
{?]
?z^
??^
??_
??_
?#c
?Fc
??c
?[d
?d
 ?d

e
"_e
1?e
Dgf
N?f
]=g
jfg
_markmt?h
|0i
??i
?cj
??j
_genlink>k
??k
??l
??m
??o
?p
 r
#?r
2?t
DPu
V?u
f5w
ux
?/x
??x
??y
?${
_freeobjb{
?X}
?~
?H~
??~
?0
_GCTMY
??
=?
!X?
2?
@?
Qt?
f??
p?
{??
?P_ ??
??
_markolda?
?͇
??
?ƈ
?-?
???
???
?
L?
_fullgen??
&?
7??
C??
O?
_atomict?
dz?
oԑ
{??
_incstep?
???
_fullinc%?
???
??_save*?
?ז
?^?
?
?
?_?
???
??
ڙ
??
!}?
.֛
;`?
Ig?
SH?
e?
_gethexad?
o??
|>?
_utf8esc??
?O?
?6?
_llexG?
?ѱ
?8?
?a?
???
??
?)?
??
X_ J?
_getjumpY?
_fixjump??
(?
5m?
@??
J??
T=?
cT?
s??
?3?
?t?
??
?#?
?S?
???
??
?1?
ڻ
?
 :?
_codesJm?
*??
8??
D.?
U??
_freereg??
gڽ
_freeexp5?
q]?
_addk??
_stringK??
{??
?B?
_boolF?
_boolT4?
_nilKY?
_fitsC??
_fitsBx??
?$?
???
?9?
???
_str2K_?
???
??
?{?
?=?
??
??
_exp2reg?
&??
8?
I??
\??
j?
_exp2RK ?
vI?
???
?3?
???
??
???
???
_codenot:?
_isKstr8?
_isKint??
_isCint??
_isSCint??
?2?
???
_validop??
???
???
 ??
??
?
,??
=R?
L??
V7?
`??
q??
{K?
???
?(?
???
???
_codeeq??
??
_ef.23`_ ???
???
???
??
?J?
??
??
) ?
6A?
F??
R ?
^3?
_check]?
h??
s??
?K?
?}?
???
???
???
?/?
??
?;?
?c?
???
??
?
&o?
6|?
G?
S??
b??
p??
|??
?K?
???
???
???
?e?
?2?
???
???
???
???
 ??
??
&X?
4??
@??
KB

W?


e?

r'

}[

?c

??

??

_yindexF

??

??

?,

?

_field3

??

?J

_parlist?

_body?

_explist?

?


?

 s

?

%?

/

: _subexpr1

_expr?

_block?

D?

T?

_condU

`?

j?

u?

?z

??

??

_exp1(

?X

_forbody?

?x_ ??_ _fornumR"

_forlist?#

_forstatT%

?&&

_ifstat?'

??(

?)

??)

6*

?+

8,

&?,

_retstati-

0?.

;?0

E?1

RU3

]w3

j4

|c4

??4

??4

? 5

?+5

?65

?A5

??5

??5

?L6

G7

 8

$?8

.?9

8?9

K
;

XC;

d=

q>

{/>

_kname??

?$@

_rname?A

_rkname?A

_isEnvDB

??B

?SD

??E

_instack?F

??F

?MG

_varinfo?G

?;H

?~H

?H

 ?T

P &U

b SU

s CV

 ?V

? W

? ?W

? 5Y

? ?Y

? ?_ ? -Z

? ?Z

? @[


!?\

!?]

!?`

&!?`

_isneg'a

6!ja

G!?c

_l_str2d3d

S!De

^!Ag

l!?g

z!@h

?!?h

_pushstrGi

?!?i

_getbuffj

?!6j

?!?j

?!?j

?!&
?

K&*?

[&_?

e&Y?

t&ͣ

?&?

?&?

?&?

?&N?

?&L?

?&6?

?&??

?&a?

?&??

?&ի

 '??

'ٮ

('??

>'"?

H'°

V'?

i'??

y'??

?'??

?'??

?'۴

?'w?

_rethook?

?'!?

?'A?

?'8?

?'??

?'!?

?'5?

(9?

_ccall??

(??

'(??

9(?

G(??

_unroll??

T(??

_(3?

_resume??

m(??

w(?

?(??

?(??

?(|?

?(??

?(%?

?(??

?(.?
H.@?
T.??
`./?
m.n?
z.'?
?.??
?.??
_f_call@?
?.m?
?.?
?.?
?.m?
_lua_gc|?
?.??
?.
?
?.i?
?.ō
_lua_lenP?
/??
/Î
"/??
0/?
=/&?
P/ɏ
]/?
m/i?
}/Q?
?/?b ?/??
?/W?
?/?
?/7?
?/w?
?/??
?//?
?/9?
0P?
0?
'0I?
30˜
?0#?
P0ɝ
a0f?
t0#?
?0Y?
?0?
?0??
?0?
?0d?
?0??
?0?
?06?
1??
 1?
01&?
:1{?
M1ɣ
^1 ?
_boxgc֤
_boxmt? _newbox??
i1}?
v1?
?1(?
?1J?
?1??
?1ʧ
?1??
?1?
?1??
?1ީ
2?
2??
_getF#?
_errfile??
_skipBOM3?
%2??
22?
_getSD?
B2}?
T2??
e2?
x2??
?2 ?
?2??
?2?
?2׵
?2x?
?2??
?2@?
_l_alloc??
_panic޸
?2c?
?2?
3?
_warnfonպ
 3R?
3ɻ
+3ֻ
:34??
J4??
U4$?
b4??
_getmode?
l4??
{4 ?
?45?
?4??
?4??
?4Z?
?4?
?4??
?4f?
?4 ?
?4??
?4 $ 5?
_getco??
5??
#5*?
25??
@5??
O5F?
\5y?
h5P%r5??
}5$?
?5g?
?5??
?5??
?5?%?5??
_HOOKKEY&?5?
?5X?
?5x?
6??
6D?
$6??
56r?
@6??
J6??
T6+?
^6`?
p6??
|6??
?6??
?6??
?6??
?6??
?6??
?6c?
?6??
_hookf??
?6?c ?6l?
7??
7M?
73?
&7??
07?
_dblib?'>7??
M7,?
_io_type??
Z7&?
_tofile??
f7??
r7"?
_f_closef?
}7??
_f_gc??
?7?
_newfilej?
?7??
_io_open?
?7??
?7*?
?7N?
?7??
?7?
?7??
?7??
?7?
_f_lines??
?7??
_nextc@?
_test2??
?7??
 89?
8?
 8L?
+8l?
58??
_g_readx?
_io_read?
_f_read?
A8

_g_write?
N8
_f_writeD
_f_seek?
X8?c _mode.10?c f8?
q8?c _mode.8?c ~8J
_f_flush?
_iolib?)_meth *?8?*?8?
?8a
?8?
?8*
?8 
?8? 
?8? 
?8- 
?8d 
?8? 
9? 
92
9?
&9.
29?
=9 
H9d
S9-
^9d
h9?
r9?
|9?
?9

?98
?9?
?9v
_rotl?
?9=
_I2dV
_project?
?9?
_setseed?
?9<
?9(+?9
_mathlib?+?9?
_CLIBS?,?9?
 :?
:M
$:f
/:?
_noenv?
_setpath*
9:h
D:?
_gctm} 
O:!
\:?!
h:?"
r:?"
?:W#
?:?#
?:F%
?:/&
?:?&
?:L'
?:?'
?:?(
?:Z)
?:?*
;*+
;?,
$;@..;?.8;?.
N;?c [;?/
m;0
~;?1
?;J2
?;?2
?;3
?;?3
?;?3
?;4
?;i4
?;?4
?;?5
?;L6
?;?7
<S8
_os_date?8
_os_time?:
<z<
&<?<
4<(d _cat.5Dd _os_exitU=
_syslib`1@<?=
_str_lenS>
L<?>
W<?>
_str_sub??
b<M@
o<?@
z<zA
_str_repB
?<D
?<BE
_writerF
?<?F
_tonum?G
_trymt H
_arith)I
?<?I
?<?I
?<?I
?<?I
?<J
?<9J
?<\J
?<J
?<`2=?J
=K
0=dK
:=&L
G=OM
Z=N
g=?N
u=gO
?=?O
?=FP
?=?P
?=EQ
_match?Q
?=?U
?=UV
?=)W
?=~W
?=X
?=ZX
 >?X
>?X
$>C[
.>^[
9>y[
_gmatch5\
_add_sj]
E>'_
P>?`
Z>c
d>?c
p>?e
?>Rf
?>ch
?>?i
?>k
?>Ok
?>?k
?>Wl
?>?l
?>?6_digit?r
_getnum?r
?>4s
?>?s
??s
?@v
_packintEw
?"x
-??x
7??
E??
P?7?
_strlib?:\? ?
m??
}?W?
????
_tcreate??
_tinsertV?
_tremove??
_tmoveX?
??A?
_tconcat?
_tpackZ?
_tunpack ?
_set2q?
????
????
?? ?
_auxsortE?
_sort??
???<????
???
??7?
??\d _utflen>?
??U?
@??
_utfchar??
@??
!@?
+@(?
;@C?
H@^?
_funcs?=T@0?
_stdlibs >b@Ʀ
y@??
?@?
?@??
?@?
?@?
Aê
-A߫
GA?
_A?
vA?
?A?
?A??
?A?
?A??
B??
>B>?
hB??
?Bg?
?B?
?B˹
C??
,CԺ
GC??
cC޻
?C??
?C??
?C?
?CѼ
 Dv?
/D??
?D#?
gD??
?DP?
?D??
?DN?
?D??
 E??
"E??
LE&?
bEN?
?E??
?E?
?EL?
?E?
F?
F??
RF?
|Fk?
?F??
?FD?
?F??
Gg?
!G??
@G`?
^G??
yG1?
?G??
?G?
?Gx?
?G??
 HO?
)H??
EHl?
aH?
~H??
?H1?
?Hn?
?H??
?H??
I6?
+Io?
HI?
gI??
?I?
?I~?
?I??
?Ie?
J??
%Jc?
BJ??
aJ[?
Jh?
?J??
?J??
?J6?
?JI?
?J??
K??
M??
`M
?
?M??
?M_?
?M??
?M?
NM?
4Nt?
VN??
tN??
?N??
?N]?
?N&
?N?
O?

8Ok
`OX
?O\
?OG
?O0
?O.
P? 
9P: 
^P? 
?P?
?Pi
?P& 
?PM
Q?
/Qb
MQ?
mQ?
?Q
?Q?
?Q?
?Q?
%R
JR?
oR?
?R?
?R?
?R=
S?
2S?
eS]
?S?
?S?
?S 
?S? 
?S-!
Tn!
*T?!
@T?!
]TA"
sT?"
?T?"
?T?"
?T$#
?T^#
?T?#
U-$
0US$
GUf(
_UK)
yU=*
?U?*
?U?,
?UA-
?U?-
?U?-
*V.
BVS.
kV?.
}VZ/
?V1
?V?3
?V?3
?V>4
?V?4
_chars.3?d W?4
&W5
BW5
]W<5
{W\5
?W?5
?W?5
?W6
XF6
>X?6
lX?7
?X?8
?X?8
?X49
?X?9
?Xp:
Y?:
*Y?;
?Y?;
PYI<
_Y?<
?Yu=
?Y?=
?Y?>
?Y?>
?Y?>
ZY?
Z??
CZ?@
_Z?A
vZ(B
?Z?B
?ZzC
?ZBE
?Z?E
?Z?E
?Z?F
[G
/[[G
H[?H
d['I
x[?I
?[}K
?[?K
?[+L
?[EL
\?L
$\?L
N\?M
j\?M
?\!N
?\?N
?\?N
?\?N
?\(O
?\QO
]?O
']?O
7](R
R]S
n]?S
?]?U
?]?U
?]V
?]DW
?]?W
?]3X
?]?X
^wY
^Z
)^'Z
@^?Z
R^W[
i^?[
z^\
?^<\
?^?\
?^]
?^?]
?^^
_T_
&_?_
C_?`
e_b
_tb
?_?b
?__c
?_?c
?_?c

`?d
*`?d
A`1e
U`?e
k`?e
?`f
?`?f
?`?f
?`"g
?`wg
a?g
&aqh
7a?h
ea,m
?adm
?a?m
?a?m
?a n
 bln
(b?n
Sb?n
cb?o
?b?o
?b?o
?bXq
?b?q
c?q
1c$r
Ncyr
ec9t
cdt
?c?t
?cKu
?c?u
?c,v
d?v
d?w
;d*y
Xd?y
qd?|
?d4}
?d(?
?d??
?d݂
e@?
e??
/e?
Oe??
ce??
veІ
?e?
?e?
?eɉ
?ez?
?e??
fO?
*f??
Ff?
`fw?
wf(?
?fL?
?f??
?f?
?f??
g??
2g7?
Xg~?
vg??
?g?
?g??
?g??
?g?
?gg?
h??
h??
(hĔ
=hڔ
Mh??
ch??
?hە
?hA?
?h_?
?h?
?h@?
i??
>i??
ciN?
?i??
?i$?
?i??
?i??
?i??
jN?
/j/?
Mjh?
sj??
?ji?
?j[?
?jܣ
?j&?
!kh?
4k??
Pk??
lkߥ
?k??
?k`?
?kܦ
?kQ?
?k??
 l̨
!l
?
5l3?
Gl_?
_l??
qlت
?l?
?lH?
?l??
?l?
?l??
 m˭
4m>?
Lm??
vm?
?m??
?m?
?m??
?m??
n˱
4n7?
Hn??
Zn?
zn?
?nl?
?n??
?n??
o??
(
~?q(
???(
???(
ނ3)
???)
??)
*?8*
D??*
`?+
|?d+
???+
??,
ʃr,
?
-
?<-
"?g-
@??-
k??-
??.
??+.
Є?.
???/
 ?0
%??0
C??0
n?1
??E1
??o1
???1
???1
Յm2
??2
 ?3
)?K3
G??3
Z??3
o?4
??@4
??'5
??6
҆?6
??7
?v9
??9
.?:
=??:
M??;
`??;
q?<
??6<
??[<
???<
???<
Ň?<
և?<
?=
??A=
 ??@
?V@
'?u@
2??@
_k.0?d A??C
O?(D
^?1E
m?G
{?_G
???G
؈(H
???H
??J
G?&K
a??K
???L
ĉM
??TM
1??M
]??T
??SU
ÊV
??W
(? X
C?Y
^?Y
}?4Y
??HY
???Y
?1Z
??[
5?k\
L??\
o??]
???^
??Zb
֌?c
?Ud
$?nd
F??d
_?e
??ae
???e
???e
?Ag
?gi
G?Aj
j??j
??k
??Zk
֎?k
??Cl
2??l
Y?Tm
{??m
???m
ʏ-o
??Wp
!??p
J??p
o??p
??q
ؐKq
??q
4??r
M??s
a?Vt
p??t
?u
???u
ˑ?v
??v
??hw
??w
??x
%?7y
9??y
Z?1z
???z
???z
??a{
???{
Ē?|
ϒF}
_is_dirF~
_exist?~
_is_blob&
_is_file?
ے?
?h?
????
???
'?-?
9?Ă
E?.?
S?|?
_???
j???
t?̈́
???
???
???
ȓ??
Փ7?
?e?
???

?2?
?!?
"???
4?'?
B?k?
V???
e??
y?7?
??h?
????
???
????
Ԕ"?
???
?(?
?Ѝ
??
7???
Q?f?
o??
????
??^?
???
ĕ0?
Օ?
?+?
??ĕ
?>?
1???
L?N?
e?ٗ
x??
??֘
??P?
˖ə
?d?
??
?h?
/?ڛ
????
V??
m?u?
??ȝ
???
??e?
ȗ??
ۗ??
?}?

?ʡ
???
-??
>?F?
P???
f?r?
v???
????
??!?
??X?
?F?
????
???
!?'?
6???
G?y?
V?I?
h?B?
y? ?
????
????
??g?
???
ԙպ
?\?
?C?
2???
`???
y???
??#?
???
֚x?
??6?
???
-???
H???
^???
u??
2???
O?X?
k?W?
????
????
Ŝ??
???
?,?
-?+?
O???
f?B?
}???
???
????
??N?
؝??
??}?
,?U?
:???
h??
??L?
????
ўb?
???
 ???
,???
I??
h?;?
{?&?
????
??Q?
????
ӟ??
???
 ???
*?l?
?H?
a?T?
??[
???
???
ˡ?
?'
??U
??
??
.??
H?
_?Q 
j? 
u?d
???
??x
???
???
͢?
??
?N
6??
P?
h?L
w??
??J
???
???
ף?
??
?
 ?r
5??
J? 
_?? 
z?\!
??"
???"
ʤ?"
?#
??S#
??#
+?S%
>?&
T??'
e?+
t?G+
??0
??;0
???0
֥Q2
??2
???2
,?5
K?G7
j?J9
~?1:
??s:
???:
Ǧ??
??A
??)B
??B
"??C
??D
a??E
??E
???G
???I
??K
 ?L
.??L
R??N
w?gP
???P
???R
ר?U
???U
?`V
7??V
_main?W
.text?

?]i.data
L.bss`
_.rdata`
`f <?
Dq 
?
l

,
|.file& ??g
gccmain.cA?Pc

_p.0TT??c
___main?c
g??.textPc

? .dataT

.bss?
%
?$
K1
6 
:
?
?

FO

n
?

?
?

??
Xq 
?
?

h.file< ??g
natstart.c.textd

.dataX
.bss?
%
&*
 1
p 
?O
@

n
?
Q z

?
*
??
pq 
.fileP ??g
wildcard.c.textd

.data`
.bss?
%
//
?1
$ 
.O
X

n
?
:?
?
W?
?q 
.fileh ??g
dllargv.ct?d

.textd

.data`
.bss?
%
?/
X
1
R 
:O
p
n

R?
/
T?
?q 
?


,
.file| ??g
_newmode.c.text d

.data`
.bss?
%
1
?1
? 
.O
?

n
m
:?
?
W?
?q 
.file? ??g
tlssup.c~? d

??pd
___xd_a(___xd_z,??e
.text d

?.data`
.bss?
.CRT$XLD 

.CRT$XLC

.rdata?f 
.CRT$XDZ,
.CRT$XDA(
.CRT$XLZ$
.CRT$XLA
.tls$ZZZ 
.tls 
%
?1
?*1
? 
?
?
%
Z
O
?
n
?

z
7
?
?
??
?q 
?
,

?.file? ??g
xncommod.c.text e

.data`
.bss?
%
8
?1
? 
.O
?

n
?
:?
?
W?
?q 
.file? ??g
cinitexe.c.text e

.data`
.bss?
.CRT$XCZ
.CRT$XCA
.CRT$XIZ
.CRT$XIA
%
?8
N
1
? 
aO
?

n
?
:?
?
W?
r 
.file? ??g
merr.c?? e

???g .text e

{.data`
.bss?
.rdata?f 
4
%
?9
1
& 

?

O
?
n
.
q?
1
x?
r 
?
?

D
.file ??g
CRT_fp10.cũ?e

_fpreset?e
.text?e

.data`
.bss?
%
=
?1
) 
-O


n
?
T?
?
W?
0r 
?


,
.file( ??g
mingw_helpers..text?e

.data`
.bss?
%
?=
?1
V 
.O
8


n
?
:?

f?
Hr 
.fileM ??g
pseudo-reloc.cϩ?e

ߩf
????? ?pg
(??.text?e

?;.data`
.bss?
.rdatah 
K
%
>
??1
? 
?
?
?O
P

^
X
2n
- 
#z
V
?
f

?
`r 
?
0

?.fileg ??g
usermatherr.c4?pj

K??Z??j
.textpj

n.data`
.bss?
%
?R
? 1
? 
?O
p

n
P 
??
p
??
xr 
?
?

D.file{ ??g
xtxtmode.c.text?j

.data`
.bss?
%
?U
?1
? 
.O
?


n
? 
:?
?
W?
?r 
.file? ??g
crt_handler.cr??j

.text?j

?
.data`
.bss
%
4V
? 1
? 
?
?
H

O
?

n
)
?
z
_
?
L
??
?r 
?
,

H
.file? ??g
tlsthrd.c??pl

????˪?l
???`m
??m
.textpl

u%.data`
.bss
%
(a
? :1
y 
Q?
`
?O
?

^
?
n
?
??
 
??
?r 
?
t


.file? ??g
tlsmcrt.c.text?n

.data`
.bss$
%
?j
?1
? 
.O
?


n
.
:?
? 
T?
?r 
.file? ??g
3?.text?n

.datad
.bss$
%
gk
?1
? 
0O


n
h
:?
L 
r?
?r 
.file??g
pesect.cG??n

[? o
k?`o
??p
???p
???p
̫@q
ݫ?q
??r
.text?n

?0.datad
.bss(
%
,l
??1
( 
??
"
?O

^
?
?n
?
?z
o
T?
? 
??
s 
?
?

?
?s

.texts

9
(?@t

.text@t

m
2??u

.text?u


=??v

.text?v

?
.file5??g
strtodnrp.cH?x

_fpi.0dR?x
.textx


.datad
.bss8
.rdata\i 
%
?
?1
? 
E
?
? 
O
8
n
/
#
?
^
f?
?s 
?
?

4
.fileQ??g
fpclassify.cb?0y

.text0y

U.data|
.bss8
%
ƒ
?
1
 
??


YO
X
n
R
?z
?
?
?
??
?s 
?


<
.filel??g
isnan.c___isnan?y

_isnan?y
.text?y

.data|
.bss8
%
??
_
1
? 
_?
Z
O
x
n
?
c?
H
u?
?s 
?
T

,
.file???g
mingw_matherr..text?y

.data|
.bss8
%
??
?1
0 
.O
?

n
_
:?
?
h?
?s 
.file???g
sleep.c_sleep?y

.text?y


.data?
.bss8
%
??
?
1
^ 
?O
?
n
?
r?
% 
??
?s 
?
?

8
.file???g
mingw_vfprintfp??y

.text?y

K.data?
.bss8
%
8?
?1
? 

?
n
"O
?
n

? ?
? 
??
?s 
?
?

D
.file???g
mingw_vfscanf.?? z

??`z
???z
??P{
_in_ch?{
_back_chp|
???|
ά@?
߬??
.text z

?5|.data?
.bss8
.rdataxi 
`?%
.?
x:^1
? 
??
?
fJO
?
^
?

?n
?
?0z
?
0?
V
??
t 
?
?

 .file???g
mingw_vsnprint??

.text?

v.data?
.bss8
%
??
T1
? 
??
?U
AO

n
tL
? ?
-
??
,t 
?


P
.file??g
mingw_vsprintf?`?

.text`?

9
.data?
.bss8
%
??
?
1
d! 
??
7V
O
0
n
M
w?
?
??
Dt 
?
\

8
.file$??g
floor.S_floor??

%
??
$1
(" 
n
?M
U.text??

+.data?
.bss8
?
?
(O
P
z

7.file>??g
ldexp.c_ldexpа

.textа

y
.data?
.bss8
%
?
1
<" 
??
KV
cO
p
n
?M
??
?
??
\t 
?
?

8
.filec??g
strtodg.c?P?

&??
??p?
P???
`???
k??l .textP?

?!j.data?
.bss8
.rdata?k 
X
.%
5?
oU
1
+# 
?
?V
?3O
?
^
G
in
?N
? z
=
?
/
??
tt 
?
?

h
.file???g
strtof.cv??

_fpi0.0????
.text?

?.data?
.bss8
.rdata@m 
%
??
? 1
6' 
7
?
A?
lO
?
n
Eh
??
?
]?
?t 
?
4"

4
.file???g
strtopx.c????

_fpi0.0?_strtold??
????
.text??

?.data?
.bss8
.rdataXm 
%
p?
?1
m( 
?
?
??
jO
?
^
?
n
i
??
E
`?
?t 
?
h"

4
.file???g
sum.c??P?

.textP?

?
.data?
.bss8
%
9?
Z 1
* 
Q
?
?
O
?
n
?i
Mz
W
?
?
??
?t 
?
?"

X
.file???g
strtoimax.c????

_strtoll??
.text??

? .data?
.bss8
%
??
1
p+ 
??
?
gO

n
@l
? z
`
?
@
??
?t 
?
?"

p
.file???g
strtoumax.c­??

ͭ??
.text??

?.data?
.bss8
%
??
1
n, 
??
??
O
0
n
?n
R z
i
?
?
??
?t 
?
d#

X
.file( ??g
mingw_pformat.׭??

_fpi.0????
???
???
???
/?0?
J???
a?0?
w? ?
??p?
??@?
?? ?
Ү??
???
????
?0?
.text??

?'2.data?
.bss8
.rdatapm 
?
[%
??
?, 1
k- 
??
??
-"O
P
^
?
&n
+q
?!z
s
Y?
h

?
u 
?
?#

?.fileI ??g
dmisc.c$??

4??
E?@
Q?`
.text?

?.data?
.bss8
%
?*

?>1
2 
?
?
˳
?O
p
^
?
n
?
?z
?
?
p
e?
u 
?
?'

?.filei ??g
gdtoa.c___gdtoa?

.text?

<N.data?
.bss8
.rdatao 
X%
]/

4?1
?3 
??
d?
Y!O
?
^

2n
??
?z
?
?
?
??
4u 
?
t(

?
.file? ??g
gethex.c_??

.text?

? .data?
.bss8
%
?@

<[1
?6 
R?
??
v O
?
^
>
"n
??
?z
?
?
v
??
Lu 
?
)

?
.file? ??g
gmisc.cm?`(

{??)
.text`(

d
.data?
.bss8
%
?L

$#1
9 
N
?
3?

O
?
n
-?
?
z
?
?
#
e?
du 
?
?)

?.file? ??g
hd_init.c???)

.text?)

~.data?
.bss@

.rdataXo 
%
?O

?1
V: 

?
??
?O
?
^
`
n
?
??
?
c?
|u 
?
8*

4
.file? ??g
hexnan.c??P*

.textP*

/.data?
.bss@
%
?R

'11
i; 
?
?
?
?O

^
s
n
?
??
?
s?
?u 
?
l*

X
.file??g
misc.c???.

??? ɯ? ׯP/
??/
??` ?? ?`?p0
'??0
6??1
A?p2
M?4
_p5s@_p05.0?o ]??5
k??6
v? 7
??p9
???:
???;
.text?.

H 9.data?

.bss@
? .rdata?o 
H
%
?W

w[
1
= 
??
??
?O
0
^
?
?n
??
Zz
?
?
^

?
?u 
?
?*

?.file2??g
smisc.c???;

???<
???=
ʰ?=
ڰP>
.text?;

?.data?
.bss? 
%
4p

?D1
?A 
?
?
??
O
P
n
?
&z

?
p
p?
?u 
?
L.

D
.fileL??g
strnlen.c_strnlen?>

.text?>

,.data?
.bss? 
%
v

V
1
nC 
??
?


DO
p
n
+?
??
?
~?
?u 
?
?/

4
.filef??g
wcsnlen.c_wcsnlen?>

.text?>

#.data?
.bss? 
%
jw

a
1
?C 
??


KO
?
n
??
??
^
~?
?u 
?
?/

,
.file???g
mingw_lock.c? ?

????
.text ?

? .data?
.bss? 
%
?x


1
yD 
?
R

:O
?
^

n
9?
5
?
?
??
v 
?
?/

x.file???g
???@

_handler? '?@
G?@
l?@
.text@

.data?
.bss? 
%
̂

1
yF 
f
?
?

6O
?
n
n?
??
?

?
$v 
?
h0

@.file???g
frexp.c_frexp @

.text @


.data?
.bss? 
%
?

?
1
?G 
??
?

O
?
n
?

?
?
w?
.textXH
.data?.bss? .idata$7?.idata$5?.idata$4?
.idata$6H .text`H
.data?.bss? .idata$7?.idata$5?.idata$4?
.idata$6? .texthH
.data?.bss? .idata$7?.idata$5?.idata$4?
.idata$6? .textpH
.data?.bss? .idata$7?.idata$5.idata$4?
.idata$6? .textxH
.data?.bss? .idata$7?.idata$5.idata$4?
.idata$6? .text?H
.data?.bss? .idata$7?.idata$5.idata$4?
.idata$6? .text?H
.data?.bss? .idata$7?.idata$5.idata$4?
.idata$6? .text?H
.data?.bss? .idata$7?.idata$5.idata$4?
.idata$6? .text?H
.data?.bss? .idata$7?.idata$5.idata$4?
.idata$6? .text?H
.data?.bss? .idata$7?.idata$5.idata$4?
.idata$6? .text?H
.data?.bss? .idata$7?.idata$5.idata$4?
.idata$6? .text?H
.data?.bss? .idata$7?.idata$5 .idata$4?
.idata$6? .text?H
.data?.bss? .idata$7?.idata$5$.idata$4?
.idata$6? .text?H
.data?.bss? .idata$7?.idata$5(.idata$4.idata$6? .text?H
.data?.bss? .idata$7?.idata$5,.idata$4.idata$6 .text?H
.data?.bss? .idata$7?.idata$50.idata$4.idata$6 .text?H
.data?.bss? .idata$7?.idata$54.idata$4.idata$6 .text?H
.data?.bss? .idata$7?.idata$58.idata$4.idata$6$ .text?H
.data?.bss? .idata$7?.idata$5<.idata$4.idata$60 .text?H
.data?.bss? .idata$7?.idata$5@.idata$4.idata$6: .text?H
.data?.bss? .idata$7?.idata$5D.idata$4.idata$6D .textI
.data?.bss? .idata$7?.idata$5H.idata$4 .idata$6N .textI
.data?.bss? .idata$7?.idata$5L.idata$4$.idata$6X .textI
.data?.bss? .idata$7?.idata$5P.idata$4(.idata$6b .textI
.data?.bss? .idata$7 .idata$5T.idata$4,.idata$6l .text I
.data?.bss? .idata$7 .idata$5X.idata$40.idata$6v .text(I
.data?.bss? .idata$7 .idata$5\.idata$44.idata$6? .text0I
.data?.bss? .idata$7 .idata$5`.idata$48.idata$6? .text8I
.data?.bss? .idata$7 .idata$5d.idata$4<.idata$6? .text@I
.data?.bss? .idata$7 .idata$5h.idata$4@.idata$6? .textHI
.data?.bss? .idata$7 .idata$5p.idata$4H.idata$6? .textPI
.data?.bss? .idata$7 .idata$5t.idata$4L.idata$6? .textXI
.data?.bss? .idata$7( .idata$5|.idata$4T.idata$6? .text`I
.data?.bss? .idata$70 .idata$5?.idata$4\.idata$6? .texthI
.data?.bss? .idata$74 .idata$5?.idata$4`.idata$6? .textpI
.data?.bss? .idata$78 .idata$5?.idata$4d.idata$6? .textxI
.data?.bss? .idata$7< .idata$5?.idata$4h.idata$6.file??g
fakehname?fthunk?.text?I

.data?
.bss? 
.idata$2
.idata$4?.idata$5?.file???g
fake.text?I

.data?
.bss? 
.idata$4l
.idata$5?
.idata$7@ 
.file???g
lc_locale_func ??I

;?? P??I
i??I
}?PJ
.text?I

?.data?

.bss? 
.rdata?p 
8%
??

?1
~L 
?
?

i
O
p
^
o 
n
?
I
?
l

?
?v 
?
?3

?.file???g
????`J

.text`J


.data?

.bss? 
%
i?


1
?N 
?O
?
n
e?
U?
t 
w?
?v 
?
(4

,
.textpJ
.data?.bss? .idata$7?.idata$5?.idata$4?.idata$6?.textpJ
.data?.bss? .idata$7?.idata$5L.idata$4$
.idata$6?.file???g
fakehnamePfthunkx.textxJ

.data?
.bss? 
.idata$2
.idata$4P.idata$5x.file???g
fake.textxJ

.data?
.bss? 
.idata$4?
.idata$5?
.idata$7?
.file???g
fakehnamepfthunk?.textxJ

.data?
.bss? 
.idata$2(
.idata$4p.idata$5?.file ??g
fake.textxJ

.data?
.bss? 
.idata$4t
.idata$5?
.idata$7P 
.filei??g
cygming-crtend??T4
ʲ?J

.textxJ

.data?
.bss? 
?
T4

0
߲?J


???J


?
?v 
.text.data?.bss? .idata$7?.idata$5.idata$4?.idata$6p.text.data?.bss? .idata$7?.idata$50.idata$4
.idata$6?.text.data?.bss? .idata$7?.idata$54.idata$4
.idata$6?.text.data?.bss? .idata$7?.idata$5<.idata$4
.idata$6?.text.data?.bss? .idata$7P.idata$5?.idata$4|
.idata$6?.text.data?.bss? .idata$7T.idata$5?.idata$4?
.idata$6?.text.data?.bss? .idata$7X.idata$5?.idata$4?
.idata$6?.text.data?.bss? .idata$7\.idata$5?.idata$4?
.idata$6?.text.data?.bss? .idata$7d.idata$5?.idata$4?
.idata$6?.text.data?.bss? .idata$7?.idata$5?.idata$4?
.idata$6R .text.data?.bss? .idata$7?.idata$5?.idata$4?
.idata$6\ .text.data?.bss? .idata$7?.idata$5?.idata$4?
.idata$6h .text.data?.bss? .idata$7?.idata$5?.idata$4?
.idata$6r .text.data?.bss? .idata$7?.idata$5?.idata$4?
.idata$6~ .text.data?.bss? .idata$7 .idata$5l.idata$4D.idata$6? .text.data?.bss? .idata$7$ .idata$5x.idata$4P.idata$6? .text.data?.bss? .idata$7, .idata$5?.idata$4X.idata$6? .text.data?.bss? .idata$7?.idata$5?.idata$4?.idata$6?.text.data?.bss? .idata$7?.idata$5?.idata$4?.idata$6?.text.data?.bss? .idata$7?.idata$5?.idata$4?.idata$6?.text.data?.bss? .idata$7|.idata$5?.idata$4?.idata$6?.text.data?.bss? .idata$7x.idata$5?.idata$4?.idata$6?.text.data?.bss? .idata$7t.idata$5?.idata$4?.idata$6d.text.data?.bss? .idata$7p.idata$5?.idata$4?.idata$6N.text.data?.bss? .idata$7l.idata$5?.idata$4?.idata$6<.text.data?.bss? .idata$7h.idata$5?.idata$4?.idata$6,.text.data?.bss? .idata$7d.idata$5?.idata$4?.idata$6.text.data?.bss? .idata$7`.idata$5?.idata$4?.idata$6.text.data?.bss? .idata$7\.idata$5?.idata$4?.idata$6?.text.data?.bss? .idata$7X.idata$5?.idata$4?.idata$6?.text.data?.bss? .idata$7T.idata$5?.idata$4?.idata$6?.text.data?.bss? .idata$7P.idata$5?.idata$4?.idata$6?.text.data?.bss? .idata$7L.idata$5?.idata$4?.idata$6?.text.data?.bss? .idata$7H.idata$5?.idata$4?.idata$6?.text.data?.bss? .idata$7D.idata$5?.idata$4|.idata$6n.text.data?.bss? .idata$7@.idata$5?.idata$4x.idata$6Z.text.data?.bss? .idata$7<.idata$5?.idata$4t.idata$6D.text.data?.bss? .idata$78.idata$5?.idata$4p.idata$64.text.data?.bss? .idata$74.idata$5?.idata$4l.idata$6.text.data?.bss? .idata$70.idata$5?.idata$4h.idata$6.text.data?.bss? .idata$7,.idata$5?.idata$4d.idata$6?.text.data?.bss? .idata$7(.idata$5?.idata$4`.idata$6?.text.data?.bss? .idata$7$.idata$5?.idata$4\.idata$6?.text.data?.bss? .idata$7 .idata$5?.idata$4X.idata$6?.text.data?.bss? .idata$7.idata$5|.idata$4T.idata$6?.text.data?.bss? .idata$7.idata$5x.idata$4P.idata$6?.text.data?.bss? .idata$7L .idata$5?.idata$4p.idata$6???__cexitG
???%?H_getpidpI
I??v h?(?????_isspaceH
??8γ??_feof?G
???????J
 ?P '???___xi_a_free?G
2??_strcat?H
K?G
_strcmp?H
]??l?l?????,???F
???????ߴ???@G
????%?T5???L? [??r????????_longjmp????@ʵ?__errno G
??,???!??v 5??_randpH
H??T?D___xl_c_clockpG
a?Xn?@
????@?? ????Զ?? ????????+?_getc?G
=??_ungetcHI
[??e???y?<????ķxӷ??p ___xl_z$??? H
??H_setvbuf?H
+??????_puts`H
O?c?d__unlockHG
{????????$?????_rmdirhI
Ƹ??ڸT?@???? 

?\,?(9??_fputc?G
G?U?|_toupper??b?Pp??v __popen??????????ѹ`p ???_fputs?G
????_atofXG
??4???F???_ferror?G
r?(??????|???_strcoll?H
_srand?H
̺|ںh?????("???0?>??o __dll__??J??V???_fwrite?G
_strncpy?H
k?@??z?\_isupperH
????????_atoipJ
???????ϻp___xc_aݻ?????l_memcpyHH
??'??3??G??a??p??v _memsetXH
???H
????i??Ѽ????? ?L!?$;??H
E?,T??l??_remove?H
y???????F
??????@B½?F
Ͻ?_tolower@I
___xl_a___xl_d ??J
?4??G
__CRT_MT`_fflush?G
?hG
?3?? ???Q?4h?_fprintf?G
x?8???_strtol I
_wcslenXI
??????_strdup`I
??pȾk?$???'??J
6??_fread?G
S?d_??z??????_fopen?G
??(G
__mkdir??_calloc`G
??0__fmode?????ȿ??ۿ???
??_strpbrkI
???%??3?`A???R??l?(z??H
??????????<??0??@???????L_isalpha??_reallocxH
?L ??.?D_memchr8H
=??K?Dp?????(__lock0G
??_getenvH
??x___xc_z??P?? __end__?????????_rename?H
_strchr?H
??;??_islowerH
U?@ _signal?H
s?(_malloc0H
???J
_fclose?G
??????x???_strcpy?H
?????????`_fseek?G
_memcmp@H
?? ???__pclose??_lua??h$???=?(_strspnI
O?@??\???j?<x????l??X??0??_isalnum????P_abortPG
_tmpfile8I
?????X??/?G
;???E???U?l?ty?????????????\__onexit8G
?? ??@???!?(H
___xi_z_getcwdxI
_strncmp?H
_ftell?G
-?4=???Z??i??u?????? 

?????
???????h?d-??F?8V?_isgraph??q???|??_strrchrI
???r
_strtoul(I
???v ??_fgets?G
?????????????j??"?t_strlen?H
2??E?[?v?H_memmovePH
_exitxG
??????x????_freopen?G
????????v ??f _qsorthH
*??_Sleep@4??C??R?`s???????f __time32??_iscntrl?????????????_strstrI
???(,??_ispunct??B?PI
_system0I
L?wr? ???F
??|?????.eh_frame.debug_aranges.debug_info.debug_abbrev.debug_line.debug_str.debug_line_str.debug_loclists.debug_rnglists___mingw_invalidParameterHandler_pre_c_init_managedapp_pre_cpp_init_startinfo___tmainCRTStartup_has_cctor_WinMainCRTStartup_mainCRTStartup.CRT$XCAA.CRT$XIAA.debug_info.debug_abbrev.debug_loclists.debug_aranges.debug_rnglists.debug_line.debug_str.debug_line_str.rdata$zzz.eh_frame___EH_FRAME_BEGIN___deregister_frame_fn___gcc_register_frame___gcc_deregister_frame_snprintf_vsnprintf_CTextStack_self_transform_in_string_and_self_clear_private_CTextStack_parse_ownership_CTextStack_restart_CTextStack_represent_CTextStack_free_CTextStack_clone_CTextStack_substr_CTextStack_self_substr_CTextStack_replace_CTextStack_self_replace_CTextStack_replace_long_CTextStack_self_replace_long_CTextStack_replace_double_CTextStack_self_replace_double_CTextStack_index_of_CTextStack_index_of_char_CTextStack_starts_with_CTextStack_ends_with_CTextStack_lower_CTextStack_self_lower_CTextStack_upper_CTextStack_captalize_CTextStack_self_captalize_CTextStack_self_upper_CTextStack_reverse_CTextStack_self_reverse_CTextStack_pop_CTextStack_self_pop_CTextStack_insert_at_CTextStack_self_insert_at_CTextStack_trim_CTextStack_self_trim_CTextStack_equal_newCTextStack_newCTextStack_string_newCTextStack_string_format_newCTextStack_string_getting_ownership_newCTextStack_string_empty_CTextStack_typeof_CTextStack_is_a_num_CTextStack_typeof_in_str_CTextStack_parse_to_bool_CTextStack_parse_to_integer_CTextStack_parse_to_double_private_ctext_text_double_size_if_reachs_CTextStack_text_CTextStack_segment_text_CTextStack_format_CTextStack_segment_format_CTextStack_segment_CTextStack_open_format_CTextStack_only_open_format_CTextStack_auto_close_format_ctext_open_ctext_close_newCTextArray_CTextArray_append_CTextArray_append_string_CTextArray_join_CTextArray_split_CTextArray_free_CTextArray_map_CTextArray_filter_CTextArray_foreach_CTextArray_includes_CTextArray_represent_newCTextStackModule_newCTextArrayModule_newCTextNamespace_private_ctext_generate_formated_text_private_CText_transform_index_difftime_localtime_private_newUniversalGarbageSimpleElement_private_UniversalGarbageSimpleElement_free_pointed_value_private_UniversalGarbageSimpleElement_free_private_new_MainUniversalGarbage_newUniversalGarbage_rawUniversalGarbage_reallocate_rawUniversalGarbage_resset_rawUniversalGarbage_remove_rawUniversalGarbage_disconnect_rawUniversalGarbage_add_private_UniversalGarbage_free_all_sub_elements_UniversalGarbage_free_including_return_UniversalGarbage_free_private_lua_cembed_ldexp_private_lua_cembed_frexp_private_lua_cembed_asin_private_lua_cembed_acos_private_lua_cembed_atan2_private_lua_cembed_ceil_private_lua_cembed_sqrt_private_lua_cembed_exp_private_lua_cembed_fabs_private_lua_cembed_factorial_private_lua_cembed_sin_private_lua_cembed_cos_private_lua_cembed_tan_private_lua_cembed_log_private_lua_cembed_log2_private_lua_embed_log10_private_lua_embed_fmod_private_lua_embed_pow_private_lua_embed_floor_luaZ_fill_luaZ_init_checkbuffer_luaZ_read_luaZ_getaddr_luai_ctype__luaP_opmodes_luaM_growaux__luaM_shrinkvector__luaM_toobig_luaM_free__tryagain_luaM_realloc__luaM_saferealloc__luaM_malloc__private_lua_error_loadBlock_loadAlign_getaddr__loadByte_loadVarint_loadSize_loadNumber_loadInteger_loadString_loadCode_loadConstants_loadProtos_loadUpvalues_loadDebug_loadFunction_checkliteral_fchecksize_checkHeader_luaU_undump_dumpBlock_dumpAlign_paddingContent.26_dumpByte_dumpVarint_dumpSize_dumpNumber_dumpInteger_dumpString_dumpCode_dumpConstants_dumpProtos_dumpUpvalues_dumpDebug_dumpFunction_dumpHeader_luaU_dump_luaE_setdebt_luaE_extendCI_luaE_shrinkCI_luaE_checkcstack_luaE_incCstack_stack_init_freestack_init_registry_f_luaopen_preinit_thread_close_state_lua_newthread_luaE_freethread_luaE_resetthread_lua_closethread_lua_newstate_lua_close_luaE_warning_luaE_warnerror_getgclist_linkgclist__clearkey_iscleared_luaC_barrier__luaC_barrierback__luaC_fix_luaC_newobjdt_luaC_newobj_reallymarkobject_markbeingfnz_remarkupvals_cleargraylists_restartcollection_traverseweakvalue_traversearray_traverseephemeron_traversestrongtable_traversetable_traverseudata_traverseproto_traverseCclosure_traverseLclosure_traversethread_propagatemark_propagateall_convergeephemerons_clearbykeys_clearbyvalues_freeupval_sweeplist_sweeptolive_checkSizes_udata2finalize_dothecall_callallpendingfinalizers_findlast_separatetobefnz_checkpointer_correctpointers_luaC_checkfinalizer_setpause_sweep2old_sweepgen_nextage.25_correctgraylist_correctgraylists_finishgencycle_minor2inc_checkminormajor_youngcollection_atomic2gen_setminordebt_entergen_luaC_changemode_checkmajorminor_entersweep_deletelist_luaC_freeallobjects_sweepstep_singlestep_luaC_runtilstate_luaC_step_luaC_fullgc_luaX_tokens_luaX_init_luaX_token2str_txtToken_lexerror_luaX_syntaxerror_luaX_newstring_inclinenumber_luaX_setinput_check_next1_check_next2_read_numeral_skip_sep_read_long_string_esccheck_readhexaesc_readutf8esc_readdecesc_read_string_luaX_next_luaX_lookahead_luaK_semerror_tonumeral_const2val_luaK_exp2const_previousinstruction_invalidinstruction.24_luaK_nil_luaK_concat_luaK_jump_luaK_ret_condjump_luaK_getlabel_getjumpcontrol_patchtestreg_removevalues_patchlistaux_luaK_patchlist_luaK_patchtohere_savelineinfo_removelastlineinfo_removelastinstruction_luaK_code_luaK_codeABCk_luaK_codeABx_codeAsBx_codeextraarg_luaK_codek_luaK_checkstack_luaK_reserveregs_freeregs_freeexps_luaK_intK_luaK_numberK_luaK_int_luaK_float_const2exp_luaK_setreturns_luaK_setoneret_luaK_dischargevars_discharge2reg_discharge2anyreg_code_loadbool_need_value_luaK_exp2nextreg_luaK_exp2anyreg_luaK_exp2anyregup_luaK_exp2val_luaK_exp2K_codeABRK_luaK_storevar_luaK_self_negatecondition_jumponcond_luaK_goiftrue_luaK_goiffalse_isSCnumber_luaK_indexed_constfolding_binopr2op_unopr2op_binopr2TM_codeunexpval_finishbinexpval_codebinexpval_codebini_codebinK_finishbinexpneg_swapexps_codebinNoK_codearith_codecommutative_codebitwise_codeorder_luaK_prefix_luaK_infix_codeconcat_luaK_posfix_luaK_fixline_luaK_settablesize_luaK_setlist_finaltarget_luaK_finish_error_expected_errorlimit_checklimit_testnext_checknext_check_match_str_checkname_init_exp_codestring_codename_registerlocalvar_new_localvarkind_new_localvar_getlocalvardesc_reglevel_luaY_nvarstack_localdebuginfo_init_var_check_readonly_adjustlocalvars_removevars_searchupvalue_allocupvalue_newupvalue_searchvar_markupval_marktobeclosed_singlevaraux_singlevar_adjust_assign_jumpscopeerror_solvegoto_findlabel_newlabelentry_newgotoentry_solvegotos_createlabel_movegotosout_enterblock_undefgoto_leaveblock_addprototype_codeclosure_open_func_close_func_block_follow_statlist_fieldsel_recfield_closelistfield_lastlistfield_listfield_constructor_setvararg_funcargs_primaryexp_suffixedexp_simpleexp_getunopr_getbinopr_priority_check_conflict_restassign_gotostat_breakstat_checkrepeated_labelstat_whilestat_repeatstat_fixforjump_forprep.22_forloop.21_test_then_block_localfunc_getlocalattribute_checktoclose_localstat_funcname_funcstat_exprstat_statement_mainfunc_luaY_parser_currentpc_getbaseline_luaG_getfuncline_getcurrentline_settraps_lua_sethook_lua_gethook_lua_gethookmask_lua_gethookcount_lua_getstack_upvalname_findvararg_luaG_findlocal_lua_getlocal_lua_setlocal_funcinfo_nextline_collectvalidlines_getfuncname_auxgetinfo_lua_getinfo_filterpc_findsetreg_basicgetobjname_getobjname_funcnamefromcode_funcnamefromcall_getupvalname_formatvarinfo_typeerror_luaG_typeerror_luaG_callerror_luaG_forerror_luaG_concaterror_luaG_opinterror_luaG_tointerror_luaG_ordererror_luaG_addinfo_luaG_errormsg_luaG_runerror_changedline_luaG_tracecall_luaG_traceexec_luaF_newCclosure_luaF_newLclosure_luaF_initupvals_newupval_luaF_findupval_callclosemethod_checkclosemth_prepcallclosemth_luaF_newtbcupval_luaF_unlinkupval_luaF_closeupval_poptbclist_luaF_close_luaF_newproto_luaF_freeproto_luaF_getlocalname_luaO_ceillog2_log_2.20_luaO_codeparam_luaO_applyparam_intarith_numarith_luaO_rawarith_luaO_arith_luaO_hexavalue_lua_strx2number_l_str2dloc_l_str2int_luaO_str2num_luaO_utf8esc_tostringbuff_luaO_tostring_clearbuff_addstr2buff_addnum2buff_luaO_pushvfstring_luaO_pushfstring_luaO_chunkid_udatatypename_luaT_typenames__luaT_init_luaT_eventname.19_luaT_gettm_luaT_gettmbyobj_luaT_objtypename_luaT_callTM_luaT_callTMres_callbinTM_luaT_trybinTM_luaT_tryconcatTM_luaT_trybinassocTM_luaT_trybiniTM_luaT_callorderTM_luaT_callorderiTM_luaT_adjustvarargs_luaT_getvarargs_luaS_eqlngstr_luaS_hash_luaS_hashlongstr_tablerehash_luaS_resize_luaS_clearcache_luaS_init_luaS_sizelngstr_createstrobj_luaS_createlngstrobj_luaS_remove_growstrtab_internshrstr_luaS_newlstr_luaS_new_luaS_newudata_f_newext_f_pintern_luaS_newextlstr_dummynode__absentkey_l_hashfloat_mainpositionTV_mainpositionfromnode_equalkey_luaH_realasize_ispow2realasize_setlimittosize_getgeneric_arrayindex_findindex_luaH_next_freehash_keyinarray_computesizes_countint_arraykeyisempty_numusearray_numusehash_concretesize_resizearray_setnodevector_reinsert_exchangehashpart_reinsertOldSlice_clearNewSlice_luaH_resize_luaH_resizearray_luaH_new_luaH_free_getfreepos_luaH_newkey_getintfromhash_hashkeyisempty_finishnodeget_luaH_getint_luaH_Hgetshortstr_luaH_getshortstr_luaH_getstr_luaH_getstrkey_luaH_get_finishnodeset_rawfinishnodeset_luaH_psetint_luaH_psetshortstr_luaH_psetstr_luaH_pset_luaH_finishset_luaH_set_luaH_setint_hash_search_binsearch_luaH_getn_luaD_seterrorobj_luaD_throw_luaD_rawrunprotected_relstack_correctstack_luaD_reallocstack_luaD_growstack_stackinuse_luaD_shrinkstack_luaD_inctop_luaD_hook_luaD_hookcall_tryfuncTM_moveresults_luaD_poscall_prepCallInfo_precallC_luaD_pretailcall_luaD_precall_luaD_call_luaD_callnoyield_finishpcallk_finishCcall_findpcall_resume_error_precover_lua_resume_lua_isyieldable_lua_yieldk_closepaux_luaD_closeprotected_luaD_pcall_checkmode_f_parser_luaD_protectedparser_l_strton_luaV_tonumber__luaV_flttointeger_luaV_tointegerns_luaV_tointeger_forlimit_floatforloop_luaV_finishget_luaV_finishset_l_strcmp_LTintfloat_LEintfloat_LTfloatint_LEfloatint_lessthanothers_luaV_lessthan_lessequalothers_luaV_lessequal_luaV_equalobj_copy2buff_luaV_concat_luaV_objlen_luaV_idiv_luaV_mod_luaV_modf_luaV_shiftl_pushclosure_luaV_finishOp_luaV_execute_disptab.18_advancegc_index2value_index2stack_lua_checkstack_lua_xmove_lua_atpanic_lua_version_lua_absindex_lua_gettop_lua_settop_lua_closeslot_lua_rotate_lua_copy_lua_pushvalue_lua_type_lua_typename_lua_iscfunction_lua_isinteger_lua_isnumber_lua_isstring_lua_isuserdata_lua_rawequal_lua_arith_lua_compare_lua_stringtonumber_lua_tonumberx_lua_tointegerx_lua_toboolean_lua_tolstring_lua_rawlen_lua_tocfunction_touserdata_lua_touserdata_lua_tothread_lua_topointer_lua_pushnil_lua_pushnumber_lua_pushinteger_lua_pushlstring_lua_pushextlstring_lua_pushstring_lua_pushvfstring_lua_pushfstring_lua_pushcclosure_lua_pushboolean_lua_pushlightuserdata_lua_pushthread_auxgetstr_getGlobalTable_lua_getglobal_lua_gettable_lua_getfield_lua_geti_finishrawget_gettable_lua_rawget_lua_rawgeti_lua_rawgetp_lua_createtable_lua_getmetatable_lua_getiuservalue_auxsetstr_lua_setglobal_lua_settable_lua_setfield_lua_seti_aux_rawset_lua_rawset_lua_rawsetp_lua_rawseti_lua_setmetatable_lua_setiuservalue_lua_callk_lua_pcallk_lua_load_lua_dump_lua_status_lua_error_lua_next_lua_toclose_lua_concat_lua_getallocf_lua_setallocf_lua_setwarnf_lua_warning_lua_newuserdatauv_aux_upvalue_lua_getupvalue_lua_setupvalue_getupvalref_nullup.17_lua_upvalueid_lua_upvaluejoin_findfield_pushglobalfuncname_pushfuncname_lastlevel_luaL_traceback_luaL_argerror_luaL_typeerror_tag_error_luaL_where_luaL_error_luaL_fileresult_luaL_execresult_luaL_newmetatable_luaL_setmetatable_luaL_testudata_luaL_checkudata_luaL_checkoption_luaL_checkstack_luaL_checktype_luaL_checkany_luaL_checklstring_luaL_optlstring_luaL_checknumber_luaL_optnumber_interror_luaL_checkinteger_luaL_optinteger_resizebox_newbuffsize_prepbuffsize_luaL_prepbuffsize_luaL_addlstring_luaL_addstring_luaL_pushresult_luaL_pushresultsize_luaL_addvalue_luaL_buffinit_luaL_buffinitsize_luaL_ref_luaL_unref_skipcomment_luaL_loadfilex_luaL_loadbufferx_luaL_loadstring_luaL_getmetafield_luaL_callmeta_luaL_len_luaL_tolstring_luaL_setfuncs_luaL_getsubtable_luaL_requiref_luaL_addgsub_luaL_gsub_checkcontrol_warnfoff_warnfcont_luai_makeseed_luaL_makeseed_luaL_newstate_luaL_checkversion__luaB_print_luaB_warn_b_str2int_luaB_tonumber_luaB_error_luaB_getmetatable_luaB_setmetatable_luaB_rawequal_luaB_rawlen_luaB_rawget_luaB_rawset_pushmode_luaB_collectgarbage_optsnum.15_params.14_luaB_type_luaB_next_pairscont_luaB_pairs_ipairsaux_luaB_ipairs_load_aux_luaB_loadfile_generic_reader_luaB_load_dofilecont_luaB_dofile_luaB_assert_luaB_select_finishpcall_luaB_pcall_luaB_xpcall_luaB_tostring_base_funcs_luaopen_base_auxresume_luaB_coresume_luaB_auxwrap_luaB_cocreate_luaB_cowrap_luaB_yield_statname_auxstatus_luaB_costatus_luaB_yieldable_luaB_corunning_luaB_close_co_funcs_luaopen_coroutine_checkstack_db_getregistry_db_getmetatable_db_setmetatable_db_getuservalue_db_setuservalue_getthread_settabss_settabsi_settabsb_treatstackoption_db_getinfo_db_getlocal_db_setlocal_auxupvalue_db_getupvalue_db_setupvalue_checkupval_db_upvalueid_db_upvaluejoin_hooknames.12_makemask_unmakemask_db_sethook_db_gethook_db_debug_db_traceback_luaopen_debug_l_checkmode_f_tostring_newprefile_aux_close_io_close_io_fclose_opencheck_io_pclose_io_popen_io_tmpfile_getiofile_g_iofile_io_input_io_output_aux_lines_io_lines_readdigits_read_number_test_eof_read_line_read_all_read_chars_io_readline_io_write_modenames.11_f_setvbuf_modenames.9_io_flush_metameth_createmeta_io_noclose_createstdfile_luaopen_io_math_abs_math_sin_math_cos_math_tan_math_asin_math_acos_math_atan_math_toint_pushnumint_math_floor_math_ceil_math_fmod_math_modf_math_sqrt_math_ult_math_log_math_exp_math_deg_math_rad_math_min_math_max_math_type_nextrand_math_random_math_randomseed_randfuncs_setrandfunc_luaopen_math_setprogdir_pusherror_lsys_unloadlib_lsys_load_lsys_sym_checkclib_addtoclib_lookforfunc_ll_loadlib_readable_getnextfilename_pusherrornotfound_searchpath_ll_searchpath_findfile_checkload_searcher_Lua_loadfunc_searcher_C_searcher_Croot_searcher_preload_findloader_ll_require_pk_funcs_ll_funcs_createsearcherstable_searchers.7_createclibstable_luaopen_package_os_execute_os_remove_os_rename_os_tmpname_os_getenv_os_clock_setfield_setboolfield_setallfields_getboolfield_getfield_checkoption_l_checktime_os_difftime_os_setlocale_catnames.6_luaopen_os_posrelatI_getendpos_str_reverse_str_lower_str_upper_str_byte_str_char_str_dump_arith_add_arith_sub_arith_mul_arith_mod_arith_pow_arith_div_arith_idiv_arith_unm_stringmetamethods_check_capture_capture_to_close_classend_match_class_matchbracketclass_singlematch_matchbalance_max_expand_min_expand_start_capture_end_capture_match_capture_lmemfind_get_onecapture_push_onecapture_push_captures_nospecials_prepstate_reprepstate_str_find_aux_str_find_str_match_gmatch_aux_add_value_str_gsub_adddigit_num2straux_lua_number2strx_addquoted_quotefloat_addliteral_get2digits_checkformat_getformat_addlenmod_str_format_nativeendian_getnumlimit_initheader_getoption_getdetails_copywithendian_str_pack_str_packsize_unpackint_str_unpack_createmetatable_luaopen_string_checkfield_checktab_addfield_sort_comp_partition_choosePivot_tab_funcs_luaopen_table_u_posrelat_utf8_decode_limits.4_codepoint_pushutfchar_byteoffset_iter_aux_iter_auxstrict_iter_auxlax_iter_codes_luaopen_utf8_luaL_openselectedlibs_LuaCEmbed_ensure_arg_exist_private_LuaCEmbed_ensure_top_stack_arg_type_privateLuaCEmbed_put_arg_on_top_LuaCEmbed_get_total_args_LuaCEmbed_get_arg_type_LuaCEmbed_get_long_arg_LuaCEmbed_get_double_arg_LuaCEmbed_get_bool_arg_LuaCEmbed_get_str_arg_LuaCEmbed_get_raw_str_arg_LuaCEmbed_get_arg_table_LuaCEmbed_run_args_lambda_private_LuaCembed_run_code_with_args_privateLuaCembed_ensure_arg_evaluation_type_LuaCEmbed_get_type_clojure_evalation_LuaCEmbed_generate_arg_clojure_evalation_LuaCEmbed_get_long_arg_clojure_evalation_LuaCEmbed_get_double_arg_clojure_evalation_LuaCEmbed_get_bool_arg_clojure_evalation_LuaCEmbed_get_string_arg_clojure_evalation_newLuaCEmbedEvaluation_LuaCEmbed_load_lib_from_c_LuaCEmbed_load_native_libs_LuaCembed_set_delete_function_LuaCEmbed_set_timeout_privateLuaCEmbed_get_current_table_array_privata_LuaCEmbed_increment_stack__privata_LuaCEmbed_decrement_stack_privateLuaCEmbd_get_field_protected_LuaCEmbed_free_privateLuaCEmbed_main_callback_handler_private_LuaCEmbed_add_lib_callback_private_LuaCEmbed_add_evaluation_callback_LuaCEmbed_add_callback_LuaCEmbed_add_global_callback_LuaCEmbed_get_error_message_LuaCEmbed_clear_errors_privateLuaCEmbed_raise_error_not_jumping_LuaCEmbed_has_errors_LuaCEmbed_dangerous_raise_error_jumping_LuaCEmbed_dangerous_raise_self_error_jumping_TimerHandler@16_privateLuaCEmbed_start_func_evaluation_LuaCEmbed_evaluate_LuaCEmbed_evaluete_file_private_LuaCEmbed_evaluate_puting_on_top_of_stack_private_LuaCEmbed_ensure_evaluation_type_LuaCEmbed_get_evaluation_string_LuaCEmbed_get_evaluation_type_LuaCEmbed_get_evaluation_table_size_LuaCEmbed_get_evaluation_long_LuaCEmbed_get_evaluation_double_LuaCEmbed_get_evaluation_bool_LuaCEmbed_ensure_global_type_LuaCEmbed_get_global_type_LuaCEmbed_get_global_long_LuaCEmbed_get_global_double_LuaCEmbed_get_global_bool_LuaCEmbed_get_global_raw_string_LuaCEmbed_get_global_string_LuaCembed_new_anonymous_table_LuaCembed_get_global_table_LuaCembed_new_global_table_LuaCEmbed_run_global_lambda_LuaCEmbed_set_global_string_LuaCEmbed_set_global_raw_string_LuaCEmbed_set_global_long_LuaCEmbed_set_global_double_LuaCEmbed_set_global_bool_LuaCEmbed_set_global_table_LuaCEmbed_set_long_lib_prop_LuaCEmbed_set_double_lib_prop_LuaCEmbed_set_bool_lib_prop_LuaCEmbed_set_string_lib_prop_LuaCEmbed_set_table_lib_prop_private_LuaCEmbed_ensure_lib_prop_type_LuaCEmbed_get_long_lib_prop_LuaCEmbed_get_double_lib_prop_LuaCEmbed_get_bool_lib_prop_LuaCEmbed_get_string_lib_prop_LuaCEmbed_get_table_lib_prop_private_LuaCemb_internal_free_newLuaCEmbedLib_LuaCembed_perform_LuaCembed_send_self_as_lib_LuaCembed_send_global_as_lib_LuaCEmbed_set_memory_limit_private_LuaCembed_custom_allocator_LuaCEmbedTable_append_table_LuaCEmbedTable_append_string_LuaCEmbedTable_append_long_LuaCEmbedTable_append_double_LuaCEmbedTable_append_bool_LuaCEmbedTable_append_evaluation_private_newLuaCembedTable_private_lua_cEmbed_unpack_privateLuaCEmbedTable_free_LuaCembedTable_destroy_prop_LuaCEmbedTable_destroy_by_index_privateLuaCEmbedTable_ensure_type_with_key_privateLuaCEmbedTable_ensure_type_with_index_LuaCEmbedTable_get_full_size_LuaCEmbedTable_get_listable_size_privateLuaCEmbedTable_convert_index_LuaCEmbedTable_get_type_by_index_LuaCembedTable_get_key_by_index_LuaCembedTable_has_key_at_index_LuaCEmbedTable_get_long_by_index_LuaCEmbedTable_get_double_by_index_LuaCEmbedTable_get_string_by_index_LuaCEmbedTable_get_raw_string_by_index_LuaCEmbedTable_get_bool_by_index_LuaCEmbedTable_get_type_prop_LuaCembedTable_get_string_prop_LuaCembedTable_get_raw_string_prop_LuaCembedTable_get_long_prop_LuaCembedTable_get_double_prop_LuaCembedTable_get_bool_prop_LuaCEmbedTable_set_string_by_index_LuaCEmbedTable_set_raw_string_by_index_LuaCEmbedTable_set_long_by_index_LuaCEmbedTable_set_double_by_index_LuaCEmbedTable_set_bool_by_index_LuaCEmbedTable_set_evaluation_by_index_private_LuaCEmbedTable_add_space_LuaCEmbedTable_insert_string_at_index_LuaCEmbedTable_insert_bool_at_index_LuaCEmbedTable_insert_long_at_index_LuaCEmbedTable_insert_double_at_index_LuaCEmbedTable_insert_table_at_index_LuaCEmbedTable_set_method_LuaCEmbedTable_set_string_prop_LuaCEmbedTable_set_raw_string_prop_LuaCEmbedTable_set_long_prop_LuaCEmbedTable_set_double_prop_LuaCEmbedTable_set_bool_prop_LuaCEmbedTable_set_evaluation_prop_LuaCEmbedTable_new_sub_table_appending_LuaCEmbedTable_get_sub_table_by_index_LuaCEmbedTable_set_sub_table_by_index_LuaCEmbedTable_new_sub_table_by_key_LuaCEmbedTable_get_sub_table_by_key_LuaCEmbedTable_set_sub_table_prop_newprivateLuaCEmbedTableArray_privateLuaCEmbedTableArray_append_privateLuaCEmbedTableArray_find_by_prop_name_privateLuaCEmbedTableArray_find_by_global_name_privateLuaCEmbedTableArray_find_by_internal_index_privateLuaCEmbedTableArray_free_private_LuaCEmbedReturn_raw_LuaCEmbed_send_bool_LuaCEmbed_send_str_LuaCEmbed_send_raw_string_LuaCEmbed_send_str_reference_LuaCEmbed_send_raw_string_reference_LuaCEmbed_send_error_LuaCEmbed_send_multi_return_LuaCEmbed_send_table_LuaCEmbed_send_evaluation_LuaCEmbed_send_double_LuaCEmbed_send_long_private_LuaCEmbedResponse_free_LuaCembed_convert_arg_code_private_LuaCembed_format_vaarg_private_LuaCembed_format_newLuaCEmbedNamespace_newLuaCembedArgsModule_newLuaCEmbedGlobalModule_newLuaCEmbedResponseModule_newLuaCembedTableModule_newLuaCEmbedTypeModule_calc_sha_256_returning_string_calc_sha_256_from_string_calc_sha_256_from_string_returning_string_calc_sha_256_from_file_calc_sha_256_from_file_returning_string_sha256_open_file_dtw_base64_encode_dtw_base64_decode_dtw_convert_binary_file_to_base64_newDtwRandonizer_DtwRandonizer_generate_num_DtwRandonizer_generate_token_DtwRandonizer_free_dtw_generate_sha_from_file_dtw_generate_sha_from_any_dtw_generate_sha_from_string_dtw_get_entity_last_motification_in_unix_dtw_convert_unix_time_to_string_dtw_get_entity_last_motification_in_string_private_dtw_convert_action_to_string_private_dtw_convert_string_to_action_private_dtw_add_end_bar_to_dirs_string_array_private_dtw_remove_start_path_dtw_get_time_private_dtw_convert_index_private_dtw_remove_double_bars_from_string_array_dtw_concat_path_private_dtw_format_vaarg_private_dtw_format_path_private_dtw_sub_str_dtw_starts_with_dtw_ends_with_private_dtw_replace_string_once_dtw_replace_string_private_dtw_change_beginning_of_string_private_dtw_realoc_formatting_private_dtw_formatt_dtw_is_string_at_point_dtw_index_of_string_private_dtw_convert_string_to_number_dtw_create_dir_recursively_dtw_get_absolute_path_dtw_get_current_dir_dtw_remove_any_dtw_load_any_content_dtw_load_string_file_content_dtw_load_binary_content_dtw_write_any_content_dtw_write_string_file_content_dtw_entity_type_dtw_complex_entity_type_dtw_get_total_itens_of_dir_dtw_convert_entity_dtw_copy_any_dtw_move_any_dtw_load_long_file_content_setting_error_dtw_load_long_file_content_dtw_load_double_file_content_setting_error_dtw_load_double_file_content_dtw_load_bool_file_content_setting_error_dtw_load_bool_file_content_dtw_write_long_file_content_dtw_write_double_file_content_dtw_write_bool_file_content_dtw_list_files_dtw_list_dirs_dtw_list_all_private_dtw_verify_if_add_private_dtw_verify_if_skip_dtw_list_basic_dtw_list_dirs_recursively_dtw_list_files_recursively_dtw_list_all_recursively_newDtwPath_DtwPath_changed_DtwPath_represent_DtwPath_free_DtwPath_get_name_DtwPath_get_extension_DtwPath_get_full_name_DtwPath_get_dir_DtwPath_get_path_DtwPath_set_extension_DtwPath_set_name_DtwPath_set_full_name_DtwPath_set_dir_DtwPath_set_path_DtwPath_add_start_dir_DtwPath_add_end_dir_DtwPath_replace_dirs_DtwPath_get_total_dirs_DtwPath_get_sub_dirs_from_index_private_dtw_count_dirs_before_DtwPath_insert_dir_at_index_DtwPath_remove_sub_dirs_at_index_DtwPath_insert_dir_after_DtwPath_insert_dir_before_DtwPath_remove_sub_dirs_at_newDtwStringArray_DtwStringArray_find_position_DtwStringArray_set_value_DtwStringArray_append_getting_ownership_DtwStringArray_append_DtwStringArray_pop_DtwStringArray_merge_DtwStringArray_represent_private_dtw_string_cmp_DtwStringArray_sort_DtwStringArray_clone_privateDtwStringArray_append_if_not_included_DtwStringArray_free_DtwTreeProps_format_props_newDtwJsonError_DtwJsonTreeError_validate_json_tree_by_cJSON_DtwJsonTreeError_validate_json_tree_by_content_DtwJsonTreeError_represent_DtwJsonTreeError_free_newDtwTreeTransactionReport_DtwTreeTransactionReport_represent_DtwTreeTransactionReport_free_private_DtwTreePart_set_last_modification_newDtwTreePart_DtwTreePart_get_content_string_by_reference_DtwTreePart_get_content_binary_by_reference_DtwTreePart_self_copy_DtwTreePart_set_any_content_DtwTreePart_set_string_content_DtwTreePart_set_binary_content_DtwTreePart_get_content_sha_DtwTreePart_represent_DtwTreePart_free_content_DtwTreePart_free_newDtwTreePartEmpty_newDtwTreePartLoading_DtwTreePart_load_content_from_hardware_DtwTreePart_hardware_remove_DtwTreePart_hardware_write_DtwTreePart_hardware_modify_DtwTreePart_hardware_commit_DtwTree_loads_json_tree_DtwTree_loads_json_tree_from_file_DtwTree_dumps_tree_json_DtwTree_dumps_tree_json_to_file_DtwTree_find_tree_part_by_function_DtwTree_filter_DtwTree_map_DtwTree_find_tree_part_by_name_DtwTree_find_tree_part_by_path_DtwTree_list_files_DtwTree_list_dirs_DtwTree_list_all_DtwTree_list_files_recursively_DtwTree_list_dirs_recursively_DtwTree_list_all_recursively_newDtwTree_DtwTree_get_sub_tree_DtwTree_add_tree_part_referencing_DtwTree_add_tree_part_copy_DtwTree_remove_tree_part_DtwTree_create_report_DtwTree_add_tree_part_getting_onwership_DtwTree_represent_DtwTree_add_tree_parts_from_string_array_DtwTree_add_tree_from_hardware_DtwTree_free_DtwTree_insecure_hardware_remove_tree_DtwTree_insecure_hardware_write_tree_DtwTree_hardware_commit_tree_newDtwMultiFileLocker_DtwMultiFIleLocker_lock_DtwMultifileLocker_unlock_DtwMultiFileLocker_represemt_DtwMultiFileLocker_free_newDtwLocker_DtwLocker_lock_DtwLocker_unlock_DtwLocker_represemt_DtwLocker_free_private_newDtwSchema_privateDtwSchema_get_sub_schema_DtwSchema_new_subSchema_DtwSchema_add_primary_key_private_newDtwSchema_free_private_newDtwDtatabaseSchema_privateDtwDtatabaseSchema_get_sub_schema_DtwDtatabaseSchema_new_subSchema_private_new_DtwDtatabaseSchema_free_private_newDtwResourceRootProps_privateDtwResourceRootProps_free_new_DtwResource_DtwResource_sub_resource_DtwResource_sub_resource_ensuring_not_exist_DtwResource_free_DtwResource_sub_resource_next_DtwResource_sub_resource_now_DtwResource_sub_resource_now_in_unix_DtwResource_sub_resource_random_private_DtwResurce_destroy_primary_key_private_DtwResource_destroy_all_primary_keys_DtwResource_destroy_DtwResource_destroy_sub_resource_DtwResource_error_DtwResource_get_error_code_DtwResource_get_error_path_DtwResource_get_error_message_DtwResource_clear_errors_private_DtwResource_raise_error_DtwResource_rename_DtwResource_rename_sub_resource_DtwResource_lock_DtwResource_unlock_DtwResource_commit_DtwResource_size_DtwResource_list_names_DtwResource_type_DtwResource_is_file_DtwResource_type_in_str_DtwResource_represent_DtwResource_get_any_DtwResource_get_any_from_sub_resource_DtwResource_get_binary_DtwResource_get_binary_from_sub_resource_DtwResource_get_string_DtwResource_get_string_from_sub_resource_DtwResource_get_long_DtwResource_get_long_from_sub_resource_DtwResource_get_double_DtwResource_get_double_from_sub_resource_DtwResource_get_bool_DtwResource_get_bool_from_sub_resource_DtwResource_unload_DtwResource_load_DtwResource_load_if_not_loaded_private_DtwResource_its_a_pk_privateDtwResource_ensure_its_possible_to_sub_resource_DtwResource_new_schema_insertion_DtwResource_find_by_name_id_DtwResource_find_by_primary_key_with_binary_DtwResource_find_by_primary_key_with_string_DtwResource_dangerous_remove_schema_prop_DtwResource_dangerous_rename_schema_prop_DtwResource_newDatabaseSchema_private_dtw_resource_set_primary_key_DtwResource_set_any_DtwResource_set_binary_DtwResource_set_string_DtwResource_set_binary_sha_DtwResource_set_string_sha_DtwResource_set_long_DtwResource_set_double_DtwResource_set_bool_DtwResource_set_any_in_sub_resource_DtwResource_set_binary_in_sub_resource_DtwResource_set_binary_sha_in_sub_resource_DtwResource_set_string_sha_in_sub_resource_DtwResource_set_string_in_sub_resource_DtwResource_set_long_in_sub_resource_DtwResource_set_double_in_sub_resource_DtwResource_set_bool_in_sub_resource_DtwResource_create_foreach_props_DtwResource_foreach_DtwResource_schema_foreach_DtwResource_create_map_props_private_dtwResource_compare_DtwResource_map_DtwResource_schema_map_DtwResource_create_cJSONArrayMapProps_private_dtw_cJSONArray_callback_private_dtw_cJSONArray_filtrage_private_dtw_cJSONArray_ordenation_privateDtwResource_add_to_item_to_cJSONArray_array_DtwResource_map_cJSONArray_DtwResource_schema_map_cJSONArray_DtwResource_create_cJSONObjectProps_private_dtw_cJSONObject_callback_private_dtw_cJSONObject_filtrage_private_dtw_cJSONObject_ordenation_privateDtwResource_add_to_item_to_cJSONObject_DtwResource_map_cJSONObject_DtwResource_schema_map_cJSONObject_DtwResource_get_schema_values_DtwResource_sub_resources_newDtwResourceArray_DtwResourceArray_append_DtwResourceArray_get_by_name_DtwResourceArray_represent_DtwResourceArray_free_private_new_DtwJsonTransactionError_DtwJsonTransactionError_represent_DtwJsonTransactionError_prepend_path_DtwJsonTransactionError_free_newDtwActionTransaction_DtwActionTransaction_write_any_DtwActionTransaction_move_any_DtwActionTransaction_copy_any_DtwActionTransaction_move_any_merging_DtwActionTransaction_copy_any_merging_DtwActionTransaction_delete_any_DtwActionTransaction_commit_DtwActionTransaction_free_DtwActionTransaction_convert_action_to_integer_DtwActionTransaction_convert_action_to_string_private_dtw_validate_json_action_transaction_private_DtwActionTransaction_parse_json_object_private_DtwActionTransaction_create_json_object_DtwActionTransaction_represent_newDtwTransaction_DtwTransaction_append_action_DtwTransaction_remove_from_index_DtwTransaction_filter_DtwTransaction_remove_from_source_DtwTransaction_write_any_DtwTransaction_write_string_DtwTransaction_write_long_DtwTransaction_write_bool_DtwTransaction_write_double_DtwTransaction_move_any_DtwTransaction_copy_any_DtwTransaction_move_any_merging_DtwTransaction_copy_any_merging_DtwTransaction_delete_any_DtwTransaction_commit_DtwTransaction_free_dtw_validate_json_transaction_dtw_validate_json_transaction_file_newDtwTransaction_from_json_newDtwTransaction_from_json_file_DtwTransaction_dumps_to_json_DtwTransaction_dumps_to_json_file_DtwTransaction_represent_newDtwHash_DtwHash_digest_any_DtwHash_digest_string_DtwHash_digest_long_DtwHash_digest_double_DtwHash_digest_bool_DtwHash_digest_file_DtwHash_digest_entity_last_modification_DtwHash_digest_string_array_DtwHash_digest_string_array_last_modifications_DtwHash_digest_string_array_last_modifications_adding_name_DtwHash_digest_string_array_content_DtwHash_digest_string_array_content_adding_name_DtwHash_digest_folder_by_last_modification_DtwHash_digest_folder_by_content_DtwHash_free_newDtwRandonizerModule_newDtwPathModule_newDtwStringArrayModule_newDtwTreePartModule_newDtwJsonTreeErrorModule_newDtwTreeTransactionReportModule_newDtwTreeModule_newDtwLockerModule_newDtwActionTransactionModule_newDtwJsonTransactionErrorModule_newDtwTransactionModule_newDtwResourceArrayModule_newDtwResourceModule_newDtwHashModule_newDtwSchemaModule_newDtwDatabaseSchemaModule_newDtwNamespace_global_error_cJSON_GetErrorPtr@0_cJSON_GetStringValue@4_cJSON_GetNumberValue@4_cJSON_Version@0_version.2_case_insensitive_strcmp_global_hooks_cJSON_strdup_cJSON_InitHooks@4_cJSON_New_Item_cJSON_Delete@4_get_decimal_point_parse_number_cJSON_SetNumberHelper@12_cJSON_SetValuestring@8_update_offset_compare_double_print_number_parse_hex4_utf16_literal_to_utf8_parse_string_print_string_ptr_print_string_buffer_skip_whitespace_skip_utf8_bom_cJSON_ParseWithOpts@12_cJSON_ParseWithLengthOpts@16_cJSON_Parse@4_cJSON_ParseWithLength@8_default_buffer_size.1_cJSON_Print@4_cJSON_PrintUnformatted@4_cJSON_PrintBuffered@12_cJSON_PrintPreallocated@16_parse_value_print_value_parse_array_print_array_parse_object_print_object_cJSON_GetArraySize@4_get_array_item_cJSON_GetArrayItem@8_get_object_item_cJSON_GetObjectItem@8_cJSON_GetObjectItemCaseSensitive@8_cJSON_HasObjectItem@8_suffix_object_create_reference_add_item_to_array_cJSON_AddItemToArray@8_cast_away_const_add_item_to_object_cJSON_AddItemToObject@12_cJSON_AddItemToObjectCS@12_cJSON_AddItemReferenceToArray@8_cJSON_AddItemReferenceToObject@12_cJSON_AddNullToObject@8_cJSON_AddTrueToObject@8_cJSON_AddFalseToObject@8_cJSON_AddBoolToObject@12_cJSON_AddNumberToObject@16_cJSON_AddStringToObject@12_cJSON_AddRawToObject@12_cJSON_AddObjectToObject@8_cJSON_AddArrayToObject@8_cJSON_DetachItemViaPointer@8_cJSON_DetachItemFromArray@8_cJSON_DeleteItemFromArray@8_cJSON_DetachItemFromObject@8_cJSON_DetachItemFromObjectCaseSensitive@8_cJSON_DeleteItemFromObject@8_cJSON_DeleteItemFromObjectCaseSensitive@8_cJSON_InsertItemInArray@12_cJSON_ReplaceItemViaPointer@12_cJSON_ReplaceItemInArray@12_replace_item_in_object_cJSON_ReplaceItemInObject@12_cJSON_ReplaceItemInObjectCaseSensitive@12_cJSON_CreateNull@0_cJSON_CreateTrue@0_cJSON_CreateFalse@0_cJSON_CreateBool@4_cJSON_CreateNumber@8_cJSON_CreateString@4_cJSON_CreateStringReference@4_cJSON_CreateObjectReference@4_cJSON_CreateArrayReference@4_cJSON_CreateRaw@4_cJSON_CreateArray@0_cJSON_CreateObject@0_cJSON_CreateIntArray@8_cJSON_CreateFloatArray@8_cJSON_CreateDoubleArray@8_cJSON_CreateStringArray@8_cJSON_Duplicate@8_skip_oneline_comment_skip_multiline_comment_minify_string_cJSON_Minify@4_cJSON_IsInvalid@4_cJSON_IsFalse@4_cJSON_IsTrue@4_cJSON_IsBool@4_cJSON_IsNull@4_cJSON_IsNumber@4_cJSON_IsString@4_cJSON_IsArray@4_cJSON_IsObject@4_cJSON_IsRaw@4_cJSON_Compare@12_cJSON_malloc@4_cJSON_free@4_right_rot_consume_chunk_sha_256_init_sha_256_write_sha_256_close_calc_sha_256_Private_new_CAmalgamatorErrorOrString_as_error_Private_new_CAmalgamatorErrorOrString_as_ok_CAmalgamatorErrorOrString_free_CAmalgamator_generate_amalgamation_CAmalgamator_generate_amalgamation_simple_newCAmalgamatorNamesapce_private_CAmalgamator_is_include_at_point_private_CAmalgamator_is_start_multiline_coment_at_point_private_CAmalgamator_is_end_multiline_coment_at_point_private_CAmalgamator_is_start_inline_coment_at_point_private_CAmalgamator_generate_amalgamation_private_lua_c_amalgamator_generator_callback_private_lua_c_amalgamator_generate_amalgamation_simple_private_lua_c_amalgamator_generate_amalgamation_complex_luaopen_private_lua_c_amalgamator_cinterop_luaopen_lua_c_amalgamator_newSilverChainStringArray_SilverChainStringArray_append_SilverChainStringArray_free_private_SilverChain_get_tag_index_private_SilverChain_count_path_levels_private_SilverChain_make_relative_path_private_SilverChain_newSilverChainError_SilverChainError_free_private_SilverChain_get_main_path_private_SilverChain_generate_main_SilverChain_generate_code_SilverChain_generate_code_in_watch_mode_private_SilverChain_write_element_if_not_equal_newSilverChainErrorNamespace_newSilverChainGeneratorNamespace_newSilverChainNamespace_newSilverChainStringArrayNamespace_private_SilverChain_newTag_private_SilverChain_Tag_add_file_private_SilverChain_Tag_create_module_file_private_SilverChain_replace_import_file_private_SilverChain_Tag_replace_import_in_files_private_SilverChain_Tag_implement_private_SilverChain_Tag_free_private_SilverChain_newTagList_private_SilverChain_TagList_find_tag_element_private_SilverChain_TagList_add_item_private_SilverChain_TagList_ordanate_tag_by_priority_private_SilverChain_TagList_implement_private_SilverChain_TagList_free_private_silver_chain_get_str_arg_if_exist_private_silver_chain_lua_generator_private_silver_chain_lua_generator_watch_mode_private_silver_chain_lua_get_error_msg_private_silver_chain_lua_get_error_path_private_silver_chain_lua_free_error_private_silver_chain_lua_new_SiverChainStringArray_private_silver_chain_lua_free_SiverChainStringArray_private_silver_chain_lua_apend_SiverChainStringArray_luaopen_private_silverchain_cinterop_luaopen_lua_silverchain_base64_encode_file_base64_decode_base64_encode_lua_get_entity_last_modification_in_unix_lua_get_entity_last_modification_get_table_props_or_default_bool_concat_path_starts_with_ends_with_hasher_digest_path_hasher_digest_file_hasher_digest_folder_by_content_hasher_digest_folder_by_last_modification_delete_hasher_hasher_digest_hasher_get_value_create_hasher_load_file_write_file_is_blob_file_copy_any_overwriting_copy_any_merging_move_any_overwriting_move_any_merging_remove_any_aply_listage_list_files_list_dirs_list_all_list_files_recursively_list_dirs_recursively_list_all_recursively_locker_unlock_locker_lock_locker_delete_create_locker_path_changed_path_unpack_path_add_start_dir_path_add_end_dir_path_get_dir_path_get_extension_path_get_name_path_get_only_name_path_get_full_path_path_to_string_path_set_name_path_set_only_name_path_set_extension_path_set_dir_path_set_path_path_replace_dirs_path_get_total_dirs_path_get_sub_dirs_from_index_path_insert_dir_at_index_path_remove_sub_dir_at_index_path_insert_dir_after_path_insert_dir_before_path_remove_sub_dirs_at_path_delete_raw_create_path_create_path_reference_create_path_set_randonizer_seed_seed_set_randonizer_internal_seed_generate_randonizer_token_generate_randonizer_num_delete_randonizer_create_randonizer_database_schema_set_index_name_database_schema_set_value_name_database_schema_add_sub_schema_raw_create_database_schema_resource_to_string_resource_to_number_resource_value_resource_value_string_resource_value_number_resource_value_bool_resource_value_from_sub_resource_resource_to_boolean_free_resource_resource_get_path_resource_rename_resource_try_rename_resource_set_value_resource_try_set_value_resource_commit_resource_destroy_resource_try_destroy_unload_resurce_lock_resource_unlock_resource_resource_set_value_in_sub_resource_resource_try_set_value_in_sub_resource_resource_is_blob_resource_get_type_resource_get_transaction_raw_create_resource_create_resource_resource_list_resource_foreach_resource_filter_resource_map_resource_count_resource_find_resource_new_schema_resource_try_new_schema_Resource_new_insertion_Resource_try_new_insertion_get_resource_match_schema_by_primary_key_try_get_resource_match_schema_by_primary_key_get_resource_by_name_id_try_get_resource_by_name_id_dangerous_rename_schema_prop_try_dangerous_rename_schema_prop_dangerous_remove_schema_prop_try_dangerous_remove_schema_prop_schema_list_resources_try_schema_list_resources_schema_find_resource_schema_count_resource_schema_filter_resource_schema_map_resource_resource_schema_each_resource_sub_resource_raw_try_resource_sub_resource_raw_resource_sub_resource_method_try_resource_sub_resource_method_resource_sub_resource_index_resource_sub_resource_next_try_resource_sub_resource_next_resource_sub_resource_now_try_resource_sub_resource_now_resource_sub_resource_now_in_unix_try_resource_sub_resource_now_in_unix_resource_sub_resource_random_try_resource_sub_resource_random_set_schema_index_name_set_schema_value_name_add_schema_primary_keys_schema_add_sub_schema_raw_create_schema_generate_sha_from_file_generate_sha_from_folder_by_content_generate_sha_from_folder_by_last_modification_generate_sha_action_transaction_get_transaction_type_code_action_transaction_get_transaction_type_action_transaction_get_content_action_transaction_set_content_action_transaction_set_source_action_transaction_set_dest_action_transaction_get_source_action_transaction_get_dest_raw_create_action_transaction_transaction_write_transaction_remove_any_transaction_copy_any_transaction_move_any_transaction_commit_transaction_delete_private_transaction_add_base_methods_transaction_new_transaction_transaction_list_transaction_index_transaction_foreach_transaction_filter_transaction_map_transaction_find_transaction_count_transaction_dumps_to_json_file_transaction_dumps_to_json_string_create_transaction_from_json_string_try_create_transaction_from_json_string_create_transaction_from_json_file_try_create_transaction_from_json_file_hardware_commit_tree_tree_get_size_insecure_hardware_write_tree_insecure_hardware_remove_tree_tree_delete_raw_create_tree_create_empty_tree_create_tree_props_create_tree_fro_hardware_add_tree_fro_hardware_tree_list_tree_find_tree_count_tree_filter_tree_map_tree_foreach_try_create_tree_from_json_tree_string_create_tree_from_json_tree_string_create_tree_from_json_tree_file_try_create_tree_from_json_tree_file_tree_dump_to_json_string_tree_dump_to_json_file_new_tree_part_new_tree_part_loading_new_tree_part_empty_get_tree_part_by_index_tree_get_tree_part_by_name_tree_get_tree_part_by_path_tree_part_exist_in_hardware_tree_part_exis_tree_part_get_value_tree_part_to_string_tree_part_set_value_tree_part_hardware_remove_tree_part_hardware_write_tree_part_hardware_modify_tree_part_get_content_sha_tree_part_unload_content_tree_part_load_content_tree_part_is_blob_create_tree_part_reference_ensure_table_type_handle_table_writble_create_writeble_Writeble_free_start_lua_props_load_luaDoTheWorld_private_get_string_in_file_content_private_get_any_content_private_file_type_private_callbacks_private_verifyr_second_open_bracket_recurslivy_private_verifyr_function_call_private_verifyr_raw_code_call_private_str_append_private_add_line_breack_private_init_str_append_private_process_block_private_render_text_by_lua_get_string_in_file_content_set_globals_create_table_globais_candango_engine_start_point_private_lua_fluid_json_read_file_private_lua_fluid_write_file_private_lua_fluid_parse_array_private_lua_fluid_parse_object_private_loads_json_from_raw_string_lua_fluid_json_loads_json_from_string_lua_fluid_json_loads_json_from_file_lua_fluid_json_dump_to_cJSON_array_lua_fluid_json_dump_to_cJSON_object_lua_fluid_json_dump_table_to_cJSON_lua_fluid_json_dump_to_string_lua_fluid_json_dump_to_file_lua_json_fluid_table_is_object_lua_json_fluid_is_table_a_object_lua_json_fluid_set_null_code_load_lua___do_global_dtors___do_global_ctors_initialized__setargv___dyn_tls_dtor@12___dyn_tls_init@12___tlregdtor__matherr_CSWTCH.1__fpreset___report_error_mark_section_writable_maxSections_the_secs__pei386_runtime_relocator_was_init.0___mingw_raise_matherr_stUserMathErr___mingw_setusermatherr__gnu_exception_handler@4___mingwthr_run_key_dtors.part.0___mingwthr_cs_key_dtor_list____w64_mingwthr_add_key_dtor___mingwthr_cs_init____w64_mingwthr_remove_key_dtor___mingw_TLScallbackpseudo-reloc-list.c__ValidateImageBase__FindPESection__FindPESectionByName___mingw_GetSectionForAddress___mingw_GetSectionCount__FindPESectionExec__GetPEImageBase__IsNonwritableInCurrentImage___mingw_enum_import_library_names___divdi3___moddi3___udivdi3___umoddi3___strtod___mingw_strtod___fpclassify___mingw_vfprintf_optimize_alloc_release_ptrs_resize_wbuf_cleanup_return___mingw_sformat___mingw_vfscanf___mingw_vsscanf___mingw_vsnprintf___mingw_vsprintf___increment_D2A_rvOK.constprop.0.isra.0___decrement_D2A___set_ones_D2A___strtodg_fivesbits___strtof___mingw_strtof___strtold___mingw_strtold___sum_D2A_strtoimax_strtoumax_strtoull___pformat_cvt___pformat_putc___pformat_wputchars___pformat_putchars___pformat_puts___pformat_emit_inf_or_nan___pformat_xint.isra.0___pformat_int.isra.0___pformat_emit_radix_point___pformat_emit_float___pformat_emit_efloat___pformat_efloat___pformat_float___pformat_gfloat___pformat_emit_xfloat.isra.0___mingw_pformat___rv_alloc_D2A___nrv_alloc_D2A___freedtoa___quorem_D2A___gethex_D2A___rshift_D2A___trailz_D2A___mingw_hexdig_init_D2A___hexnan_D2A_dtoa_lock_dtoa_CS_init_dtoa_CritSec_dtoa_lock_cleanup___Balloc_D2A_freelist_pmem_next_private_mem___Bfree_D2A___multadd_D2A___i2b_D2A___mult_D2A___pow5mult_D2A___lshift_D2A___cmp_D2A___diff_D2A___b2d_D2A___d2b_D2A___strcp_D2A___s2b_D2A___ratio_D2A___match_D2A___copybits_D2A___any_on_D2A__lock_file__unlock_file_mingw_get_invalid_parameter_handler__get_invalid_parameter_handler_mingw_set_invalid_parameter_handler__set_invalid_parameter_handlerinvalid_parameter_handler.c___acrt_iob_func___wcrtomb_cp_wcsrtombs___mbrtowc_cp_internal_mbstate.2_mbsrtowcs_internal_mbstate.1_s_mbstate.0_msvcrt___lc_codepage_func_msvcrt__lc_codepage_setlocale_codepage_hack_init_codepage_func____lc_codepage_func____mb_cur_max_func___mb_cur_max_func.c___FRAME_END___register_frame_ctor.text.startup.ctors.65535__imp__FindFirstFileA@8_VirtualProtect@16_SILVER_CHAIN_SRC_NOT_A_DIR_MESSAGE___RUNTIME_PSEUDO_RELOC_LIST____head_lib32_libuser32_a__imp__getenv__imp___fullpath_SILVER_CHAIN_FILE_NOT_PROVIDED_ERROR_MESSAGE_FindFirstFileA@8__data_start___FreeLibrary@4___DTOR_LIST____lib32_libuser32_a_iname__mktime32__imp__VirtualProtect@16___setusermatherr__imp__islower_CLOSE_BRACKETS_CARACTER__commode__imp___onexit___p__fmode__imp__GetLastError@0_SetUnhandledExceptionFilter@4__imp__VirtualQuery@12__setjmp3__imp__getpid__imp__FindNextFileA@8__imp__clearerr_GetModuleFileNameA@12___tls_start_____native_startup_lock__imp_____lc_codepage_func__imp__IsDBCSLeadByteEx@8__imp__TlsGetValue@4___hexdig_D2A__imp__InitializeCriticalSection@4_PROJECT_SHORT_CUT_DEFAULT_DeleteCriticalSection@4__rt_psrelocs_start__imp____p__acmdln__imp__getc__imp__abort__imp__clock__dll_characteristics___SILVER_CHAIN_WATCHING_FILES_MESSAGE_MANAGED_SYSTEM__size_of_stack_commit____imp__isupper__size_of_stack_reserve____imp__localeconv__major_subsystem_version_____crt_xl_start____imp__WideCharToMultiByte@32__newmode_IsDBCSLeadByteEx@8_SILVER_CHAIN_REMAKING_PROJECT_MESSAGE___crt_xi_start____imp___amsg_exit__imp___time32___crt_xi_end_____bigtens_D2A__imp____mb_cur_max_isxdigit__imp__rand__imp__strpbrk__imp___localtime32_GetLastError@0_lua_cembed_timeout_lua_cembed_used_memory_VirtualQuery@12__imp___gmtime32__imp___iob__dowildcard___mingw_pcinit_GetModuleHandleA@4__imp__strstr__imp__strncmp__imp__isgraph___register_frame_info__imp__strtoul_hmod_libgcc__imp__strdup__bss_start____imp__fputc__imp__strspn___RUNTIME_PSEUDO_RELOC_LIST_END____size_of_heap_commit_____mingw_pcppinit__imp____p__commode___tinytens_D2A__imp__isspace__imp___errno__imp___mktime32__imp__srand__imp__GetProcAddress@8_GetProcAddress@8.weak.___deregister_frame_info._hmod_libgcc___crt_xp_start___MultiByteToWideChar@24__MINGW_INSTALL_DEBUG_MATHERR___mingw_app_type__imp__wcslen__imp__ferror___mingw_initltsdrot_force__imp__isalnum___crt_xp_end____localtime32__imp__signal___tens_D2A__imp__puts__minor_os_version____image_base____imp__exit__section_alignment___GetModuleHandleW@4_LoadLibraryA@4__imp__memmove__imp__ungetc__imp__FreeLibrary@4__imp__fseek__imp__toupper__imp__GetStartupInfoA@4__IAT_end____imp___unlock_file__imp_____mb_cur_max_func__imp__iscntrl__RUNTIME_PSEUDO_RELOC_LIST___setlocale__imp____p__fmode_INIT_IGNORE_lua_cembed_memory_limit___mingw_initltsdyn_force__imp__memchr__tls_start_VARABLE_GLOBAL_TEXT_BY_LUA_SILVER_CHAIN_START_SCOPE_strerror__imp__strcoll___native_startup_state__imp__qsort__data_end____imp__rename___getmainargs_FindClose@4_dtw_base64_table___p__acmdln__imp___difftime32__CTOR_LIST____imp___popen___set_app_type_clearerr___mingw_winmain_lpCmdLine__bss_end____imp___lock_file_DEFAULT_MAIN_CPP_NAME___crt_xc_end____imp___setjmp3__tls_index___crt_xc_start___GetTempFileNameA@16__imp__fgets_OPEN_BRACKETS_CARACTER__imp__strchr__head_lib32_libmsvcrt_def_a__lib32_libkernel32_a_iname___CTOR_LIST____imp__GetCurrentProcessId@0__imp__feof__imp__GetTempFileNameA@16_LoadLibraryExA@12__imp__getcwd__initterm__imp___pclose__rt_psrelocs_size_GetStartupInfoA@4__imp__freopen__imp____acrt_iob_func__imp__fread_GetCurrentProcessId@0__imp__memcpy__imp__system_FindNextFileA@8__imp__GetModuleHandleW@4__imp__strcmp_strftime_SetTimer@16__file_alignment____imp___stati64_DEFAULT_MAIN_C_NAME__imp___unlock__imp__ispunct__imp__LeaveCriticalSection@4__imp__strrchr__imp__atoi__imp__malloc__imp__strncpy__imp__memcmp_SILVER_CHAIN_MAKING_PROJECT_MESSAGE__major_os_version___SILVER_CHAIN_END_SCOPE__imp__realloc__IAT_start___VARABLE_LOCAL_TEXT_BY_CALL_FUNCTION__tls_end__difftime32__imp___mkdir__imp____initenv__imp___get_invalid_parameter_handler__imp__GetModuleHandleA@4__lib32_libmsvcrt_def_a_iname__imp___lock__DTOR_LIST___FormatMessageA@28__imp__fprintf__imp__SetTimer@16_EnterCriticalSection@4__imp__memset__imp__fclose__imp___initterm__fullpath_DEFINE_CODE_RAW__size_of_heap_reserve_____crt_xt_start_____ImageBase__subsystem____imp__strlen__imp__fputs__imp__fflush__imp__strtol__imp__strcpy___mingw_oldexcpt_handler__imp__calloc__imp__MultiByteToWideChar@24___native_vcclrit_reason__imp__GetSystemTimeAsFileTime@4__amsg_exit__stati64_GetTempPathA@8___mingw_module_is_dll__imp__fopen__imp____getmainargs__imp__remove__imp__setvbuf__imp__isxdigit___mingw_winmain_nShowCmd___native_dllmain_reason___tls_end___lua_ident_GetSystemTimeAsFileTime@4_localeconv__imp__strerror_InitializeCriticalSection@4__imp__isalpha__imp__free_IMPORT_NAME__imp__SetUnhandledExceptionFilter@4___deregister_frame_info__imp___set_invalid_parameter_handler__major_image_version____loader_flags____imp__tolower__imp__tmpfile__imp__LoadLibraryExA@12__imp__strftime__head_lib32_libkernel32_a__gmtime32__imp__ftell___chkstk_ms__rt_psrelocs_end__imp___cexit__minor_subsystem_version____imp__FindClose@4__minor_image_version___DEFINE_CALL_FUNCTION__imp__Sleep@4__imp__vfprintf_globals_caracters__imp____set_app_type___mingw_winmain_hInstance__imp__atof_TlsGetValue@4__imp__DeleteCriticalSection@4_LeaveCriticalSection@4__imp__LoadLibraryA@4__imp__setlocale__RUNTIME_PSEUDO_RELOC_LIST_END_____dyn_tls_init_callback__imp__FormatMessageA@28__imp__longjmp_global_current_lua_embed_object__imp____setusermatherr__imp__GetModuleFileNameA@12__tls_used.weak.___register_frame_info._hmod_libgcc__imp__rmdir_WideCharToMultiByte@32___mingw_initltssuo_force___crt_xt_end____imp__GetTempPathA@8_vfprintf_LENGTH_VARABLE_TEXT_BY_CALL_FUNCTION__imp__strcat___p__commode__imp__EnterCriticalSection@4__imp__fwrite