HTTP/2 302 date: Wed, 23 Jul 2025 08:54:11 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/8310d861-51cf-4a22-a8b5-4e49d01b4de6?sp=r&sv=2018-11-09&sr=b&spr=https&se=2025-07-23T09%3A48%3A53Z&rscd=attachment%3B+filename%3Ddarwin.out&rsct=application%2Foctet-stream&skoid=96c2d410-5711-43a1-aedd-ab1947aa7ab0&sktid=398a6654-997b-47e9-b12b-9515b896b4de&skt=2025-07-23T08%3A48%3A02Z&ske=2025-07-23T09%3A48%3A53Z&sks=b&skv=2018-11-09&sig=xaltvwUYB%2BtfCBsC%2FREjWkMsqf4y5hrxKPzl5vcUoBQ%3D&jwt=eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJpc3MiOiJnaXRodWIuY29tIiwiYXVkIjoicmVsZWFzZS1hc3NldHMuZ2l0aHVidXNlcmNvbnRlbnQuY29tIiwia2V5Ijoia2V5MSIsImV4cCI6MTc1MzI2MTE1MSwibmJmIjoxNzUzMjYwODUxLCJwYXRoIjoicmVsZWFzZWFzc2V0cHJvZHVjdGlvbi5ibG9iLmNvcmUud2luZG93cy5uZXQifQ.oyzm0H7W-FE8JWQpljE_-anuO_fiLMDnxdugtjec4dA&response-content-disposition=attachment%3B%20filename%3Ddarwin.out&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: A9FA:261FF2:783F0C:949A10:6880A333 HTTP/2 200 last-modified: Thu, 23 Jan 2025 20:05:00 GMT etag: "0x8DD3BE937BE3344" server: Windows-Azure-Blob/1.0 Microsoft-HTTPAPI/2.0 x-ms-request-id: 49d52133-801e-0034-3baf-fbd29d000000 x-ms-version: 2018-11-09 x-ms-creation-time: Thu, 23 Jan 2025 20:05:00 GMT x-ms-blob-content-md5: Ckm77TI3b3HayWW9aOjrQg== 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 08:54:11 GMT x-served-by: cache-iad-kiad7000043-IAD, cache-bom-vanm7210094-BOM x-cache: MISS, MISS x-cache-hits: 0, 0 x-timer: S1753260851.459238,VS0,VE321 content-disposition: attachment; filename=darwin.out content-type: application/octet-stream content-length: 2158960 ELF

>
[@@?? @8 @
@@??
@@????
??H?H????
?*?:W?:W??.88@8@00hh@h@$$S?td88@8@00Q?tdR?td?*?:W?:W
 GNU

?
?
GNUg.;?y?g\|?[5??E??PX?S???K??G?1???????jH1?H??H?5???H?????7H?WI????HE1?H??@H?ǿ?G?F?f.?f???SWH=?SWtH??H??t??SW???ff.?@??SWH???SWH??H???H??H
?H??tH??H??t ??SW??fD???=?Bu'UH???~???H?=?>t?0Vg??????B
]??ff.?@H?=?>tU?TW?0VH??g???]?\???@?S???UH??}??}? t?E??? ??w?
??]?UH??H?? H?}?H?E?H?@H???(?H?E?H?@ H????H?E?H?H?E?H?E?H???
?H?E???UH??H??H?}?H?u?H?E?H?@H???ېH?E?H?@ H???ːH?E?H?H??輐H?E?H?PH?E?H?PH?E?H?PH?E?H?PH?E??P(H?E??P(H?E?H?PH?E?H?PH?E?H?P H?E?H?P H?E?H?H?E?H?H?E?H???T????UH??H??H?}?H?E?H?H???6??袒H??H?E?H?H?E?H??H?E?H?@H?E?H?@H?E??@(???UH??H??H?}?H?E?H?H???.????UH??H??H?}?H?E?H?@H??踏H?E?H?@ H??訏H?E?H?H??虏H?E?H??荏???UH??H?? H?}?H?E?H?P H?E?H?@H??H???-H?E?H?E?P(H?E??P(H?E?H?H?E?H??H???KH?E???UH??H??@H?}?H?u?H?U?H?E?H?P H?E?H?@H??H???? H?E?H?E؋P(H?E?P(H?E?H?@H??H?E?H??H????.H?E?H?E?H?@H??H?E?H??H????.H?E?H?E?H;E?u5H?E?H?H?E?H
????H?E?H? ??H??H?Ǹ?ZH?E??LH?E?H?E??4H?E?H?H?E?H
????H?E?H? i?H??H?Ǹ?H?E?
H?E?H;E?|?H?E???UH??H??0H?}?H?u?H?U?H?U?H?M?H?E?H??H???????H?E?H?U?H?E?H??H??????????UH??H??@H?}?H?u?H?U?H?E?H?P H?E?H?@H??H???H?E?H?E؋P(H?E?P(H?E?H????H?E?H?E??H?U?H?E?H
?H?M?H?E?H??H???5???H?E?H?E?H?H?U?H??H???????u!H?U?H?E?H??H???IH?E?H??
H
E??/H?E?H?H?E?H
????H?E?H? %?H??H?Ǹ??H?E?H??????H?E?
H?E?H?@H?U?H9??N???H?E???UH??H??0H?}?H?u?H?U?H?U?H?M?H?E?H??H??????H?E?H?U?H?E?H??H?????????UH??H??@H?}?H?u?H?U?dH?%(H?E?1?H?E?H?E??E?H?U?H?E?H? ^?H??H?Ǹ?R?H?U?H?M?H?E?H??H???5???H?U?dH+%(t?r???UH??H??0H?}?H?u?H?U?H?U?H?M?H?E?H??H???O???H?E?H?U?H?E?H??H??????????UH??H??0H?}?H?u??Eظ?H?E?H?U?H?E?fHn?H???H??H?Ǹ
?TH?E?H?H?M?H?E?H??H???y???H?E?H?E?H???{???H?E???UH??H??0H?}?H?u??E?H?M?H?U?H?E?fHn?H??H???X???H?E?H?U?H?E?H??H?????????UH??H??0H?}?H?u?H?E?H?????H?E??E??c?E?Hc?H?E?H
‹E?Hc?H?E?H??H???~???H?E?H?E?H?H?U?H??H??????uH?E?H???????E?H??*H?E?H???????E?
?E?Hc?H?E?H?@H9?r?H????????UH??H?}???E??E??"H?E?H??E?H?H
??8E?u?E?H???E?
?E?Hc?H?E?H?@H9?r?H??????]?UH??H?? H?}?H?u?H?E?H?????H?E?H?U?H?E?H??????H?E?H?E?H?H?U?H??H???,???uH?E?H????????
?H?E?H?????????UH??H?? H?}?H?u?H?E?H????H?E?H?E?H?PH?E?H)?H??H?E?H??????H??H??????H?E?H?E?H?H?U?H??H??????uH?E?H???C????
?H?E?H???0??????UH??H??0H?}?H?E?H?P H?E?H?@H??H???H?E?H?E؋P(H?E??P(H?E??AH?E?H?H?E?H
???E??E???M??H?E?H? ??H??H?Ǹ?Y H?E?
H?E?H?@H?U?H9?r?H?E???UH??H?? H?}?H?E?H???M???H?E?H?U?H?E?H??H???8??????UH??H??0H?}?H?E?H?P H?E?H?@H??H????H?E?H?E؋P(H?E??P(H?E??AH?E?H?H?E?H
???E??E???~??H?E?H? ڄH??H?Ǹ?H?E?
H?E?H?@H?U?H9?r?H?E???UH??H??0H?}?H?E?H?P H?E?H?@H??H???8H?E?H?E؋P(H?E??P(H?E?H?@H??u H?E???H?E?H????????}??H?E?H? >?H??H?Ǹ??H?E?
?H?E?H?H?U?H??
H
???E?H?E?H?H?E?H
???E?}? u*?E???}??H?E?H? ׃H??H?Ǹ??(?E???S}??H?E?H? ??H??H?Ǹ?_H?E?
H?E?H?@H?U?H9??b???H?E???UH??H?? H?}?H?E?H??????H?E?H?U?H?E?H??H???:??????UH??H?? H?}?H?E?H???????H?E?H?U?H?E?H??H?????????UH??H?? H?}?H?E?H?P H?E?H?@H??H???H?E?H?E?P(H?E??P(H?E?H?@H?E??4H?E?H?H?E?H
????H?E?H? ??H??H?Ǹ?e H?m?
H?}?y?H?E???UH??H?? H?}?H?E?H???`???H?E?H?U?H?E?H??H???N??????UH??H??@H?}?H?u?H?U?H?E?H?P H?E?H?@H??H????H?E?H?E؋P(H?E?P(H?E?H?@H??H?E?H??H????$H?E?H?E?H?@H??H?E?H??H????$H?E??E??M?E?H?H9E??E?H?H9E?}2H?E?H??E?H?H
????H?E?H? ??H??H?Ǹ?U ?
??E?
?E?Hc?H?E?H?@H9?r?H?E???UH??H??0H?}?H?u?H?U?H?U?H?M?H?E?H??H???????H?E?H?U?H?E?H??H?????????UH??H??@H?}?H?u?H?U?H?E?H?P H?E?H?@H??H???H?E?H?E؋P(H?E??P(H?E?H?@H??H?E?H??H????#H?E?H?E??4H?E?H?H?E?H
????H?E?H? ??H??H?Ǹ?XH?E?
H?E?H;E?|?H?U?H?E?H??H???kH?E?H?E??4H?E?H?H?E?H
????H?E?H? K?H??H?Ǹ??H?E?
H?E?H?@H?U?H9?r?H?E???UH??H??0H?}?H?u?H?U?H?U?H?M?H?E?H??H???????H?E?H?U?H?E?H??H??????????UH??H??PH?}?H??H????
H?E?H?E??E??PH?E?H??E?H?H
???E??U?H?E??H??????H?E?H?}?????E??EɃ?
??t?E?H?H?E???E?
?E?Hc?H?E?H?@H9?r?H?E?????H?E?H?@H??
H?E??SH?E?H?H?E?H
???E??U?H?E??H??????H?E?H?}?????E??E˃?
??tH?E?H??
H?E??H?m?
H?}?y?H?E?H???????H?U?H?M?H?E?H??H???b?????UH??H?? H?}?H?E?H??????H?E?H?U?H?E?H??H???k??????UH??H??H?}?H?u?H?E?H?H?U?H??H??????????UH??H??PH?}?H?u??0蒃H?E?H?E?f??@@ ??q?H??H?E?H?H?E?H??H?E?H?@H?E?H????H??H?E?H?PH?E?H???}?H??H?E?H?P H?E???UH??H?? H?}?H??}H??H??}H???L???H?E?H?}?tH?U?H?E?H? ?}H??H?Ǹ?3H?E???UH??H???H?????H??X???H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H?}H??H??|H??????H??(???Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??(???H??H???<H??(???H??H???dH+%(t??y??UH??H?? H?}?H?o|H??H?e|H???????H?E?H?E?H?H???"H?E?H?U?H?H?E?H???$?H?U?H?BH?E?H?PH?E?H?PH?E???UH??H? |H??H?|H??????]?UH??H??0H?}?dH?%(H?E?1?H?E?H?@H??u ??H?E?H??{H??H???#?????uH?E?H??{H??H??? ?????t??ZH?E?H?H?U?H? ?{H??H?Ǹ???E?}?u??(H?E?H?_{H??H??????H???u?
??H?U?dH+%(t?^x??UH??H?? H?}?H?E?H???????E??}?t?}?
u?
????UH??H?? H?}?H?E?H????????E??}?u H??z?4?}?u H??z?%?}?
u H??z??}?u H??z?H??z??UH??H??H?}?H?E?H?qzH??H?????????t?
????UH??H??0H?}?dH?%(H?E?1?H?E?H?H?U?H? zH??H?Ǹ蚶?E?}?u H???????H?E?H?U?dH+%(t?,w??UH??H??0H?}?dH?%(H?E?1?H?E?H?H?U?H? ?yH??H?Ǹ?1??E?}?u ?*???E?H?E?dH+%(t??v??UH??H??H?}??9H?E?H?@H??
H?H?E?H?PH?E?H?PH?E?H?H??H?????H?U?H?H?E?H?PH?E?H?@H??H9?s?????UH??H?? H?}?H?u?H?}?tH?E????ttH?E?H?????H?E?H?E?H?PH?E?H
?H?E?H?PH?E?H???G???H?E?H?H?E?H?@H+E?H?H?U?H?E?H??H???0?H?E?H?H?E?H?@H
???
???UH??H??H?}?H?u?H?E?H????
H?U?H?E?H??H???8??????UH??H???H??(???H?? ???H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?? ???H??(???H??H???/?H??H???dH+%(t??t??UH??H???H??(???H?? ???H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H??(???H???gDž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?? ???H??(???H??H???N?H??H???dH+%(t??s??UH??H?? H?}?H?E?H?PH?E?H??H???_????E??H?E?H?P H?E?H??H????????E?
H?E?@(9E?|ِ???UH??H???H??(???H?? ???H?????H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H??(???H???/???H??(????<H? ?uH??H?Ǹ?Y???H?? ???H??(???H??H???u???H?????tpH??(???? H? auH??H?Ǹ????Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??(???H??H???H??(????>H? ?tH??H?Ǹ????H??(????@(?P
H??(????P(?H??H???dH+%(t?r??UH??H???H??(???H?? ???H?????H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H??(???H??????H??(????<H? #tH??H?Ǹ?????H?? ???H??(???H??H???????H?????tpH??(???? H? ?sH??H?Ǹ????Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??(???H??H???) H??(????>H? msH??H?Ǹ?????H??H???dH+%(t?p??UH??H???H??(???H?? ???H?????H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H??(???H???>???H??(????<H? ?rH??H?Ǹ?h???H?? ???H??(???H??H??????H?????tpH??(???? H? prH??H?Ǹ?"???Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??(???H??H???H??(???H?IrH??H????????H??H???dH+%(t?4o??UH??H??H?}?H?u?H?}?uH?E??@(?P
H?E??P(?H?M?H?E??H??H?Ǹ?e?????UH??H??H?}?H?u?H?}?uH?E??@(?P?H?E??P(?fH?E??@(?P?H?E??P(H?E?H???????H?E?H??qH??H???1???H?U?H?E?H??H??????H?E??>H? qH??H?Ǹ???????UH??H????PvH?E?H?E?H?@??6vH??H?E?H?H?E???UH??H??H?}?H?u?H?E?H?@H??
H??H?E?H?H??H???^?H?U?H?H?E?H?H?E?H?@H??H
?H?E?H?H?E?H?@H?P
H?E?H?P???UH??H?? H?}?H?u?H?E?H???|???H?E?H?U?H?E?H??H???\??????UH??H?? H?}?H?u?????H?E??E???E?Hc?H?E?H?@H??
H9?}5H?E?H??U?Hc?H??H
?H?H?M?H?E?H?5pH?Ǹ?p????2H?E?H??U?Hc?H??H
?H?H?E?H? ?oH??H?Ǹ??>??E??E??f???*E??M??Y??E??E?
?E?;E?~??E?]?UH??H??8?E?f???E??E??E??E??E??E??E??Y??E??i?E??XE??E??E??E??~ ͪfW??E܍P
?E܃???f???*??^??M??Y??E?E܉?????f(??E??^??E??E?f/??w??E???UH??H??8?E?f???E??E??!??E??E??E??E??Y??E??d?E??XE??E??E??E??~ ?fW??E܃?
?E?f???*??^??M??Y??E?E܉??S???f(??E??^??E??E?f/ѩw??E???UH??SH???E?H?E?fHn??f???fH~?H?E?fHn?????fHn??^?f(?H?]???UH???E?f??f/E?r??f???^??f???E??E?? ??\??U?? ???X??^??E??E??E??E??Y??E??E?
?3f???*M??E??^??M??X??E??E??YE??E?E??E?f/Ȩw??M?????Y??E??E?]?UH??SH???E?f??f/E?r?0?f???^??1H?E?fHn??????fH~?H?t?fHn??????f(?fHn??^?H?]???UH??SH???E?f??f/E?r?Χf???^??1H?E?fHn?????fH~?H??fHn??r???f(?fHn??^?H?]???UH???E??M??2??E??\E??E??E?f/E?s??E?f/E?w??E??f??f.E?z?f??f.E?u?f???^?]?UH???E??M??-??E?f??f.E?zf??f.E?u ? ??hf??f/E?v(????^E??E??E??~ ?fW??E??E???E??YE??E??E?
f???*M??E?f/?w??E?]?UH???E??E??,??E?f???*E?f.E?zf.E?u?E??$f??f/E?v?E???
f???*?? f???*E?]?UH??H??0H?}?dH?%(H?E?1?H?E?H?@ H?E?H?E?L?@H?E?H?HH?U?H?E?H??H??A??H?E?H?}?t H?E?H??u??????5H?E?H?P?H?E?H?H?E?H?U?H?PH?E?H?@H?H
H?U?H?J???H?U?dH+%(t?3H??UH??H?}?H?u?H?U?H?M?H?E?H?U?H?P H?E?H?U?H?PH?E?H?U?H?PH?E?H?H?E?H?@?]?UH??H??H?}?H?E?H?H??u>H?E?H??????????u??+H?E?H?H?P
H?E?H?H?E?H?@H?P?H?E?H?P?
??UH??H??0H?}?H?u?H?U??H?E?H???~?????uH?E??}H?E?H?H?U?H9?HF?H?E?H?E?H?HH?U?H?E?H??H???v?H?E?H?H+E?H??H?E?H?H?E?H?PH?E?H
?H?E?H?PH?E?H
E?H?E?H)E?H?}??r??????UH??H?? H?}?H?u?H?E?H?????????u??PH?E?H?H;E?s??H?E?H?EЋU?H?E???UH??H??@H?}?H?u?H?UȉM?D?E?H?Eȋ?E?H?H?E?E??E?H?H?E?H?M?H?U?H?u?H?E?H????
H?E?H?EȋUĉH?E???UH??H??H?}?H?E?H??IH??H?Ǹ?;?
UH??H??0H?}?H?u?H?U?H?E?H?@H?E?H?E?L?H?E?H?@H?U?H?u?H??A??H?E?H?@H+E?H??H?E?H?P???UH??H??0H?}?H?u?H?U?H?M?H?E?H?@H?E?H?E??@`??????u@H?E??@u??u4H?E?
H????lH?E?L?H?E?H?@H?M?H?U?H?u?H??A??????UH??H??0H?}?H?u?H?U?H?M?H?E?H?@H?E?H?E?L?H?E?H?@H?M?H?U?H?u?H??A??H?E?H?}?????H??tH?}?????H??t?
????H??t*H?M?H?U?H?u?H?E?H???????H?E?H?}?u??H?E?H?PH?E?H+E?H
?H?E?H?PH?E???UH??H??0H?}?H?u?H?U?H?M?H?M?H?U?H?u?H?E?H??????H?E?H?}?????H??tH?}?????H??t?
????H??tH?E?H????
H?E???UH??H??0H?}?H?u??U?H?}?u ??H?E?H?@H?E?H?E?L??E?Hc?H?E?H?@H?M?H??A??H?E?H?}?????H??t7?E?Hc?H?M?H?E?H??????H?E?H?}?uH?E?H???j?
H?E?H?PH?E?H
?H?E?H?PH?E???UH??H??H?}?H?u?H?E?H?PH?E?H?H?M?H?5?FH?Ǹ??d
H?E?H??H????
UH??H?? H?}?H?u?H?U?H?E?H?@H?U?H?M?H??H??? ???H??tH?E?H??FH??H???k???H?E?H?P H?E?H
?H?E?H?P ???UH??H??0H?}؉u?dH?%(H?E?1??M?H?E?H?@ ?U?Hc??H??H??H???‰?)ЉE?E?;E?}?E?Hc?H?M?H?E?H??H???5????H?E?dH+%(t??@??UH??H?? H?}?H?u?H?E?H?@H?U?H??H???????H?E?H?E?H?P H?E?H
?H?E?H?P H?}?uH?E?H??EH??H???t???H?E???UH??H?? H?}?H?E?H?PH?H?H?H? H??tH?E?H?PH?BH?H
H?J????H?E?H?@H???\????E??}??uH?E?H?3EH??H??????H?E?H?@ H?P
H?E?H?P ?E???UH??H?? H?}?H?u?H?E?H?m?H?E?H???P??????E?H?E?H9E?sH?E?H??DH??H??????H?E?H??H?‹E?H???H ?H?E??E?%???u?H?E???UH??H??H?}?H?E?H??????H???f?????UH??H??H?}?H?E?????H???G?????UH??H?? H?}?dH?%(H?E?1?H?M?H?E?H??H???D????E?H?E?dH+%(t??>??UH??H?? H?}?dH?%(H?E?1?H?M?H?E?H??H???????H?E?H?U?dH+%(t?>??UH??H??H??h???H??`???H??X???dH?%(H?E?1?H??h???H?H?E?H??h???H???????H?E?H?}??oH?}?
??H??h???H??????H?E?H??h???H?@H?U?H?M?H??H???(?
H?E?H??x???H??X???H??x???H?H??`????@ ???? ????H??x????@ ????????H??x???H??`???H?E?H??H???,??H?m?H?}?(??H?E?H?P
H?M?H??h???H??H??????H?U?H?M?H?E?H??H???w
H??x???H??X???H??x???H?H??`????@ ???? ????
H??x????@ ???????u
H??x???H??`???H?E?H??H????+?S
H??h????@0????H?E?H?P
H??h???H??H???????H?E?H?U?H?u?H?E?A??H???z
H??x???H??X???H??x???H?H??`????@ ???? ????H??x????@ ????????H??x???H??`???H?E?H??H???&+?H?U?H?E?H??H???.s
H??x???H??X???H??x???H?H??`????@ ???? ??t2H??x????@ ??????tH??x???H??`???H?E?H??H???*H?E?H?P
H??x???H?HH??h???H??H???????H??h???H?@(H?P
H??h???H?P(H?E?H?E?H??x???H?E?H?U?H?E?H?H?E??@??@??H?E??PH??h???H?P(H??h???H?pH?M?H?E?H???Ρ
H??h???H?@?@ ???? ??t5H??x????@ ??????t H??h???H?@H??H?E?H??H???i*?
?H?E?dH+%(t??:??UH??H?? H?}?H?u?H?E?H???I????E?H?E?H???/???H?E??@0??t0?E?H?H??H?E?H??H??????H?U?H?B@H?E??U??P?Z?E?H?H??H?E?H??H??H???d???H?U?H?B@H?E??U??P?E?H?H??H?E?H?H@H?E?H??H???5??????UH??H??PH?}?H?u?H?E?H???????EЋE?H?H??H??H?E?H??H??H???????H?U?H?B8H?E??UЉP?E??H?E?H?@8?U?Hc?H??H
??@?E?
?E?;E?|??E??S
H?E?H?@8?U?Hc?H??H
?H?E?H?E?H??????????Eԃ}??
?E?H??H??>?H?H??>H
???H?E??@??H?E??@
??H?E??@??H?E?H?E?H?E?H??????fH~?H?U?H?H?E??@?H?E?H?E?H?E?H??????H?U?H?H?E??@?~H?E?H?PpH?M?H?E?H??H???????H?E?H?@pH??uH?E?H??=H??H???J???H?E?H?E?H?E?H?@pH?E?H?U?H?E?H?H?E??@??@??H?E?PH?E?H?@p??E?
?E?;E??????????UH??SH??(H?}?H?u?H?E?H???????E?E?H?H??H?E?H??H??H???????H?U?H?BHH?EЋU?P ?E?? H?E?H?@H?U?Hc?H??H
?H??E?
?E?;E?|??E??H?E?H?H?U?H?RH?M?Hc?H??H? H???2?
H?H?E??@ ???? ??tWH?E?H?@H?U?Hc?H??H
?H??@ ??????t1H?E?H?@H?U?Hc?H??H
?H?H??H?M?H?E?H?H??H????%H?E?H?@H?U?Hc?H??H
?H?H?E?H??H?????E?
?E?;E??8?????H?]???UH??SH??(H?}?H?u?H?E?H???+????E?E?H?H??H??H?E?H??H??H??????H?U?H?BPH?EЋU?P?E?? H?E?H?@P?U?Hc?H??H
?H??E?
?E?;E?|??E??sH?E?H?@P?U?Hc?H??H?H?E?H???t????CH?E?H?@P?U?Hc?H??H?H?E?H???O????C H?E?H?@P?U?Hc?H??H?H?E?H???*????C ?E?
?E?;E?|???H?]???UH??SH??(H?}?H?u?H?E?H???????E?H?E??@0??t)?E?Hc?H?E?H??H???m???H?U?H?BXH?EЋU?P?L?E?Hc?H?E?H??H??H???S???H?U?H?BXH?EЋU?P?E?Hc?H?E?H?HXH?E?H??H???+???H?E?H???????E?}???H?EؾH???e???H?E??@0??t0?E?H?H??H?E?H??H??????H?U?H?B`H?EЋU?P(?Z?E?H?H??H?E?H??H??H??????H?U?H?B`H?EЋU?P(?E?H?H??H?E?H?H`H?E?H??H???k???H?E?H????????E?E?H?H??H??H?E?H??H??H???2???H?U?H?BhH?EЋU?P$?E?? H?E?H?@h?U?Hc?H??H
?H??E?
?E?;E?|??E??yH?E?H?@h?U?Hc?H??H
?H??H?M?H?E?H??H???????H?E?H?@h?U?Hc?H??H?H?E?H??? ????CH?E?H?@h?U?Hc?H??H?H?E?H????????C?E?
?E?;E??{???H?E?H????????E?}?t H?EЋ@?E??E??/H?E?H?@P?U?Hc?H??H
?H??H?M?H?E?H??H???9????E?
?E?;E?|ɐ?H?]???UH??H??H?}?H?u?H?E?H???O???H?U??B,H?E?H???H?E?H?PH?E?H?H?E?H?@ H?E?f?@<H?E?H?@?@H?E?H?@H?PH?E?H?PH?E?H?@H??@
H?E?H?PH?E?H?U?H?P ???UH??H??H?}?H?E?H?@0H??t[H?E?H?P`H?E?H?P H?E?H???????H?E?H?P(H?E?H?@0H)?H??H????H?H??H??H?E?H?H0H?E?H??H???????
???UH??H??pH?}?H?u?dH?%(H?E?1?H?E?H???t
H?E?H?E?H??HH?E?H?E?H?E?H?U?H?E?H?H?E??@EH?u?H?E???H???Xp
?E?
H?U?H?u?H?E?H?Ѻ
H???
?
H?E?H?E?H?E?H?E?H?U?H?E?H?H?E??@HH?U?H?u?H?E?H?ѺH???ƒ
H?E?H?E?H?E?H???Js
H?E?H?U?H?E?H?H?E??@EH?U?H?u?H?E?H?ѺH???{?
?H?E?dH+%(t????UH??H?? H?}?H?u?H?E?H?@H?E?H?U?H?E?H??H???????H?U?H?E?H??H??????H?E?H???R
H?E?H???0B
H?E?H???FH?E??@vH?E??@`???UH??H?}?H?u?H?E?H?U?H?PH?E?H?@0H?E?H?@ H?E?f?@H?E?H?U?H?PPH?E?ǀ?H?E?H?@XH?E?Hǀ?H?E?ǀ?H?E?ǀ?H?E??@
H?E????H?E????H?E?H?@8H?E??@ H?E?Hǀ?H?E?ǀ??]?UH??H?? H?}?H?E?H?@H?E?H?E??@`??????tH?E?H???6<?2H?E?H?P`H?E?H?P H?E??
H????
H?E?H???<H?E?H?@?@DH?H??H?E?H?@H?H8H?E?H??H???????H?E?H???b???H?E?L?H?E?H?p?H?E?H?@??`H??A?А??UH??H??@H?}?H?E?H?@H?E?H?E?H?@H?@ H??H?E?H???BH?Eȹ???H???? H?E?H?E?H?E?H?E?H?@H?E?H?E?H?E?H?U?H?E?H?H?E??@HH?E?H?@H?PH?E?H?PH?U?H?E?H??H??????H?Eȋ??H?E艐?H?Eȋ??H?E艐?H?E?H???H?E?H???H?E苐?H?E艐?H?E?H??
H??H?U?H??H?H?H?U?H?E?H??H???????H?E???UH??H?? H?}?H?u?H?E?H??H?E?H?E?H?P0H?E?H??H???
H?E?H???????H?M?H?E??H??H???!??????UH??H?? H?}?u?H?E?H?P`H?E?H?P H?E?H?@ H?E?H?E?H?@0?@H?E?H?P0H?E?H?H?E?f?@>?}?
u?E?H?E??@ ?U?H?E?
H???k?
?E?}?tH?E?H?@0H?P?M?H?E??H??藃
?H?E?H?@0H?PH?E?H?PH?E?H?@H??@
H?E?H?PH?E?H?PH?E?H?@0H)?H??H????H?E???H????
?E???UH??H?? H?}?H?u?H?}?tH?E????????H?U艂?H?E??@ ??H?E??H???????E??E???UH??H??PH?}?H?u??U?H?E?L?Eȹ`??H??A??H?E?H?}?u ??H?E?H??H?E?H?E?H?H?E?H?E??@H?E??@rH?E??@r????H?E??P H?U?H?E?H??H???????H?U?H?E?H?PxH?E?H?H?E??????
H?E????H?E?H?U?H?H?E?H?U?H?PH?E?Hǀ?H?E?Hǀ?H?E?H?U?H??
H?E??U??PhH?E??@vH?E??@@H?E??P@H?E??PDH?E?H?@8H?E??@PH?E?Hǀ
H?E??@sH?E??@tH?E??@uH?E??@wH?E?Hǀ?H?E?H???H?E?H???H?E?H???H?E?H???H?E?Hǀ?H?E?H???H?E?H???H?E?H???H?E?H???H?E?H???H?E?H???H?E?Hǀ?H?E?H???H?E?H???H?E?H???H?E?H???H?E?Hǀ?H?E?Hǀ?H?E?H???H?E?H???H?E?Hǀ?H?E?H???H?E?H???H?E?H???H?E?H???H?E?Hǀ
H?E?H?@`H?E?H?@
H?E?H?@(H?E?H?@ H?E?H??XH?E?H?E?H?H?E??@????
??H?E??Po????
??H?E??Pp????
??H?E??Pq??
??H?E??Pl?d?
??H?E??Pn?2?
??H?E??Pm?E??H?E??U?Hc?H??H?U?H?E?H??H???HH?E??@ ??????tHH?E??@ ???????H?E؈P ?/H?E??@t<
t#H?E??@ ??lj?H?E??@r?? Љ?H?E??P ???UH??SH?? H?}?H?u?H?E?H?@H?E?H?E??@ ??????uH?E??@ ??lj?H?E؈P ?,H?E?H???H?E?H??????H??H?E?H??H??H??? ???H?E??@ ??????tH?E??@ ???????H?E؈P ?H?]???UH??H?}?H?u?H?E?H?@H?E?H?E??@ ??lj?H?E??P H?E??@ ???????H?E??P H?E?H?H?E?H?PxH?E?H???H?E?H?H?E?H?U?H????]?UH??H??@H?}؉u?H?U?H?M?H?E?H?@H?E?Eԃ???H?M?H?E?H??H???N???H?E?H?U?H?E?H
?H?E?H?E?H?@ H?P?H?E?H?P H?E??@r????H?E??P ?Eԉ?H?E??PH?E?H?PxH?E?H?H?E?H?U?H?PxH?E???UH??H?? H?}??u?H?U?H?U?u?H?E??H???/?????UH??SH??(H?}?H?u?H?E?H?@(H?P
H?E?H?P(H?E??@??????"?w
??H??H???H?H??H
???H?E??@ ??ǃ? ??H?EЈP ?=
H?E?H?E?H?E?H?PH?E?H??H9?tH?E??@ ??lj?H?E??P ?H?E??@ ??ǃ? ??H?E??P H?E?H?@?@????@????H?E?H?@H??@ ????????H?E?H?@H?H?E?H??H????????H?E?H?E?H?E??@ f??uVH?E?H?@H??t0H?E?H?@?@ ??????tH?E?H?@H??H?E?H??H??????H?E??@ ??ǃ? ??H?E?P ?2H?E?H???H?E?H??????H??H?E?H??H??H??????????
??H?]???UH??H?? H?}??E??bH?E?U?Hc?H??H?U?H?E?H??H???>????)H?U?H?E?H??H???????H?U?H?E?H??H???l???????UH??H?? H?}?H?E??H?E?H???????H?E?
H?E?H???H??u?H?E???UH??H??@H?}?H?E??E?H?E?H???H?E?H?E?Hǀ??E??ZH?E?H?E?H?E?H?@(H?E?H?E??@ ?? ??H?E??P ?U?H?M?H?E?H??H??? ?????tH?E?H???3????E?
H?E?
H?E?H?E?H?}?u??}??????E܃}??Y???H?E???UH??H??0H?}?H?u?H?E???H?E?H?E?H?E?H?pH?E??@???
?????Hc?H??H
?H
?H??H
?H?E?H?E?H?@H?E??_H?E??@ ????@??t H?E?H?@??H?U?H??H????????tH?E??@H?E??@??????uH?E?H???0???H?E?H?E?H;E?r?H?E?
H?E?H?@(H?E?H?}??0???H?E???UH??H??PH?}?H?u?H?U?H?E??
H?E?H?E?H?E?H?pH?E??@???
?????Hc?H??H
?H
?H??H
?H?E?H?E?H???=
?E??E??H?E?H?P?E?????H??H??H
?H??H
ЋUЃ????????@??t0H?E?H?P?E?????H??H??H
?H??H
ЋUЃ???H?D???H?E?H?U?H?E?H??H???(?????t-H?E?H?P?E?????H??H??H
?H??H
ЋUЃ?????E?
?E?;E??H?E?H?@ ?ʀf?P>H?E?H?@H?P?H?E?H?@0H)?H?E?A?H?ѺH?5C???H????|
?E?H?E?H?@ ?P>H?E?H?@ ??f?P>H?E??U??P?E???H?E??Pv?}?????H??t*H?E?H???H??H??????H?E?H?@H?P?H?E?H?P?H?E?dH+%(t?????UH??H?? H?}?H?E?H?@H?E??H?E?H???????H?E?H???H??u䐐??UH??H?}??H?E?H?H?E?H?E?H?H??u?H?E?]?UH??H??0H?}؉u?H?E?H?H?E?H?E?H?H??????H?E??tH?E??@ ??????u?}?u H?E?H?E??RH?E?H???H9E?uH?E?H?H?E?H???H?E?H?H?E?H?H?E?H?H?E?H?H?E?H?U?H?H?E?H?E?H?E?H?H?E?H?E?H???H9E??l???????UH??H?}?H?u?H?E?H?H9E?uH?E?H?H?E?H??]?UH??H??H?}?H?u?H?E?H???H?E?H??H??????H?E?H???H?E?H??H??????H?E?H???H?E?H??H???x???H?E?H???H?E?H??H???^??????UH??H??0H?}?H?u?H?U?H?E?H?@H?E?H?E??@ ????@???P
H?}??E
H?E??@ ???????/
H?E?H??0
H?EؾH????
H???
H?E??@v????????H?E??@s<vjH?E??@s<w^H?E??@ ??lj?H?E??@r?? Љ?H?E??P H?E?H???H?E?H9?u:H?E?H???H?E?H??H??????H?U?H????H?U?H?E?H??H???j???H?E?H??xH?E??H?E?H?H?E?H?E?H?H9E?u?H?E?H?H?E?H?H?E?H???H?E?H?H?E?H?U?H???H?E??@ ??@??H?E??P ?
???UH??H?? H?}?H?E?H?P(H?E??@o??H?։????H?E?H?E?H?PH?E?H?@ H)?H?E?H)?H?E?H?}?yH?E?H?U?H?E?H??H?????????UH??H??0H?}?H?u?H?E?H?@H?E???H?E??@ ??????t&H?E?H?H?E?H?H?U?H?E?H??H??? ????H?E??@ ???????H?E??P H?E??@<u,H?E?H?E?H?E?H???H?E?H?HHH?E?H??H???i????KH?E??@< u+H?E?H?PH?E?H??H9?tH?E??@ ??lj?H?E??P ?H?E??@ ?? ??H?E??P H?E?H?E?H?E?H?H?E?H?}?????????UH??H??PH?}?H?u?H?U?H?M?L?E?L?M?H?E?H?E??@r?????E???H?E??@ ??????t&H?E?H?H?E?H?H?U?H?E?H??H????????H?E??@ ?????E?}?u)H?E??@ ??????E?E??
?‹E? Љ?H?E??P ?WH?E??@ ??????E?H?H?[C? ȉ?H?E??P H?E??@ ??????uH?E?
H?E?H?H??uH?E?H?U?H?H?E?H?E?H?E?H?H?E?H?E?H;E?????H?E?H?H?E?H
?H?E?H?H?E???UH??H??H?}???H?E?H??????H?E?H?E??@ ????????H?E??@ ??????u-H?E??@ ?? ??H?E??P H?E??@ ???????H?E??P ?^H?E??@<tQH?E??@ ??????uH?E??@ ???????H?E??P H?E??@ ?? ??H?E??P ?
?H?E?H?H?E?H?? ?H?E?H?E?H?E?H?H?E?H?}?????H?E???UH??H??H?}?H?E?H?H???????H?E?H?E?H???H?E?H?H?E?Hǀ?H?E?H??????H?E?H?E?H???H?E?H?H?E?Hǀ?H?E?H??????H?E?H?E?H???H?E?H?H?E?Hǀ?H?E?H???U??????UH??H??0H?}?H?u?H?U?H?E?H?E??ZH?E??@ ??????u?}?tH??????????H?E?H???H?E?H??H???e???H?U?H?????E??H?E??PsH?E?H?U?H??????UH??H?? H?}?u?H?E?H?@H?E?H?E??@u
H?E??@s??????
??H??H?D??H?H?8?H
???H?E?H??????H?E??@sH?E?
?
?}?uH?E?H???H??uH?E??@s
H?E??d
H?E?H???6???H?E?
?K
H?E?H???O???H?E?H?U?H?E?H??H???S??????
H?E?H???????
H?E?H????M?H?u?H?E?A??H?ѺH???V???H?E???H?E?H????M?H?u?H?E?A??H?ѺH??? ???H?E???U?H?u?H?E?A?й?H???????H?E??yH?U?H?E?H??H??????H?E??@sH?E??TH?E?H???H??t*H?E??@w??uH?E??@uH?E?H???????H?E?
?H?E??@sH?E???? ?H?E??@uH?E???UH??H?? H?}?u?U?H?E?H?@H?E???U?H?E??H??????H?E??@s??9E?uߐ???UH??H??0H?}?H?u?H?E??@q???d????H?E?H?E??@p??H?U?H?։???H?E??E?H?}?uH????????H?E??E?
?U?H?E؉?H???(???H?E?H?E??@t<
tJH?E?H)E?H?}?~H?E??@s<u?H?E??@s<uH?E?H???????H?U?H?E?H??H???????
???UH??H?? H?}?H?E?H?@H?E?H?E??@v??tH?E???H???۵???UH?E??@t????t??@??t??
t?5H?U?H?E?H??H??????? H?U?H?E?H??H??????H?E?H??????????UH??H??H?}?H?u?H?E??@s<wH?E?H??? ???H?E??
?H??????H?E??
?H???????H?E??
?H???????H?E?H??????????UH??H?? H?}?u?H?E?H?@H?E??E??H?E??PwH?E??@t????t8??W??t??
uNH?U?H?E?H??H???a????9H?U?H?E?H??H???????$H?E??@tH?U?H?E?H??H???????H?E??@t?H?E??@w???UH??H?? H?}?u?H?E?H?@HH?E?H?E?H?@H?P
H?E?H?@H9?swH?E?H?@H?????????H9?sH?E?H? '?H??H???IH?E?H?@H
?H?E?H?E?H?PH?E?H?0H?E?H?@8H?M?H???????H?U?H?H?E?H?U?H?PH?E?H?0H?E?H?@H?H
H?U?H?JH
??U????UH??H??0H?}?H?EغH? ??H??H???
H?E?H?U?H?E?H??H????????E??O?E?H?H??H?1sH?H?E?H??H???\
H?E?H?U?H?E?H??H???????E?P
H?E??P ?E?
?}?~?????UH??H?? H?}?u?}??e?E??
H?H?E????????t$H?E?H?@8?U?H? ??H??H?Ǹ????wH?E?H?@8?U?H? ??H??H?Ǹ???S?E?-
H?H??H?VrH?H?E??}?
%H?E?H?@8H?U?H? ??H??H?Ǹ?]??H?E???UH??H??H?}??u?E?-!
??w=H?E??H??????H?E?H?@HH?H?E?H?@8H? #?H??H?Ǹ?????U?H?E???H?????????UH??H?? H?}?H?u??U?H?E??HH?E?H?P`H?E?H?@8H?u?H???X?H?E??}?t4?U?H?E???H???C???H??H?E?H?@8H?U?H?5??H?Ǹ?u?H?E?H?@8?H????
UH??H??H?}?H?u?H?E??PH?M?H?E?H??H???M???UH??H??PH?}?H?u?H?U?H?E?H?@8H?E?H?U?H?M?H?E?H??H???q
H?E?H?E?H?@PH?U?H??H????2
H?E?H?}?t H?E??H?E?H?@H?HH?U?H?JH?E?H?E?H?E?H?E?H?E?H?U?H?E?H?H?E??@??@??H?E??PH?E?H?pPH?M?H?U?H?E?H????8
H?E?H?@H?@ H??H?E?H??????H?E?H?@H?P?H?E?H?PH?E???UH??H?? H?}?H?E??E?H?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H??????H?U?H?E??? tH?E??? uTH?E?9E?tIH?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H??謈??H?U?H?E?@?P
H?E?PH?E?@=???uH?E?H? d?H??H???K??????UH??SH??8H?}?H?u?H?U?H?M?D?E?H?E??@H?E?H?U?H?P8H?E??ỦH?E??@
H?E?H?U?H?P@H?E?H?@0H?E??@
H?E??@
H?E?H?U?H?P`H?E?H? ??H??H???
H?U?H?BhH?E?H?@HH?PH?E?H?@HH?0H?E?H?@8H?M?H?YH? H??????H?H?E?H?@HH?@ ?H?]???UH??H??H?}??u?H?E??9E?uPH?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H??????H?U???
????UH??H??H?}?H?u?H?E??H?E????9?tH?E??H?E?H??
???9?udH?E??H?E???H???????H?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???r???H?U???
????UH??H??@H?}?H?u?dH?%(H?E?1?H?>?H?E?H?Eȋ?E?H?EȋH?Eȉ?H???G???H?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???ԅ??H?Uȉ?}?0u%H?E?H???H??H????????tH???H?E?H?U?H?E?H??H????????tH?E?H???H??H???q?????H?Eȋ??
H?H?o????????uH?Eȋ??.ubH?EȋH?Eȉ?H???e???H?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H??????H?Uȉ?D???H?Eȋ??
H?H????????
??t]H?EȋH?Eȉ?H???????H?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???p???H?UȉH?EȾH??????H?E?H?@HH?H?U?H??H????H??uH?EȺ!
H? ????E? ?
H?E??E??A
H?E?H?@HH?PH?E?H?@HH??
H?PH?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???3x??H?U??mH?E??? tH?E??? uH?E?H???????IH?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H????w??H?U?H?E???
H?H???????????o????H?E???
H?H??????????H?E?H?6???H??????H?E?H???????E??IH?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???w??H?U?H?E?H?@HH?PH?E?H?@HH??
H?P?U?H?E??H???????`??]H?E?H?E??H???????H?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???v??H?U?H?E?9E??A???H?E?H?E??H??????H?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???v??H?U?H?E?H?@HH?@H?P?H?E?H?@HH?H?H
H?E?H??H???q???H?U?H????UH??H??0H?}?H?u?H?E?H?@HH?@H?E؋?? ?????}3????"??\????H??H?t??H?H?h?H
?????
?
??H??H??H?4H!?H???„?uQH??HH???„?u-??
H???????^?c??~?Z??"?p????LH?E?H???????H?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???t??H?U؉?LH?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???et??H?U؉H?E؋??-t ?-??H?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???t??H?U؉H?E؋??[??H?E?H??? ???H?E?H?E?H?@HH?@H?}?
vsH?U?H?EؾH???????H?E?H?@HH?@?EH?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???^s??H?U؉H?E؋?? ??H?E؋?? ??H?E؋???u???H?E?H???A???H?E?H?}?
v!H?U?H?M?H?E?H??H???,????$
?H?}?uH?Eغ$
H? ??H??H???????[?oH?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???r??H?U؉H?Eؾ=H?????????t ?
??=??H?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???r??H?U؉H?Eؾ=H????????t ?
?H?Eؾ<H???e?????t ?
?v?<?lH?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???q??H?U؉H?Eؾ=H?????????t ?
?H?Eؾ>H?????????t ?
???>??H?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H????p??H?U؉H?Eؾ/H???b?????t ?
?s?/?iH?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???}p??H?U؉H?Eؾ=H?????????t ?
?
?~??H?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???p??H?U؉H?Eؾ:H???~?????t ?
??:?H?E؋H?U?H?E؉?H???&????$
?cH?E؋H?E؉?H???????H?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???co??H?U؉H?Eؾ.H?????????t)H?Eؾ.H?????????t ?
??
?
??
H?E؋??
H?H?????????u ?.?
H?U?H?E?H??H???????
H?U?H?E?H??H???l????n
?
?d
H?E؋??
H?H????????
????H?E؋H?E؉?H??????H?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???@n??H?U؉H?E؋??
H?H?5????????u?H?E?H?@HH?PH?E?H?@HH?H?E?H??H??????H?E?H?E?H?U?H?H?E??@<uH?E??@ ??tH?E??@ ????d?#
?]H?E؋?E?H?E?H?P@H?H?H?H? H??tH?E?H?P@H?BH?H
H?J????H?E?H?@@H???hm??H?U؉?E?????????UH??H??H?}?H?E??PH?E??PH?E??@ =
t%H?M?H?E?H?P(H?@ H?AH?QH?E??@
?H?E?H?PH?E?H??H??????H?U??B???UH??H??H?}?H?E?H?P(H?E?H??H???????H?U??B H?E??@ ??UH??H??H?}?H?u?H?E??@H?U?H?E?H??H???????UH??H?}?H?u?H?E?PH?E?@9?t??qH?E???t2??u\H?}?tH?E?H?E?H?E?H?PH?E?H?H?E??@?
?4H?}?t!H?E?H?E?H?E??@H?E??H?E??@?
??]?UH??H?}?H?u?H?E?H?@H?@XH?H?E??@Hc?H??H
?H
?H??H
?]?UH??H??8H?}?H?u?H?U?H?EЋPH?EЋ@9?t ???H?EЋ??????H??H????H?H???H
???H?E??@
?
?H?E??@?
?H?E??@?
?H?E?H?E?H?E?H?@H?E?H?U?H?E?H?H?E??@??@??H?E??P?
?VH?E?H?E?H?U?H?E?H??H???????H?E?H?E?H?U?H?H?H?E??PH?E??P?
?H?U?H?E?H??H??? ?????UH??H?}?H?E??P H?E??@$9?~!H?E?H?H?P@H?E??@ H?H??H??H
??H?y]?UH??H??0H?}؉uԉUЋUԋE?
Ѓ?
?E?H?E?H??????H?E?H?E????????H?E????%??E?H?E?????ЋE?
ЉE?E?;E??E??
9E?~?E?;E?l?E??
9E?a?E?;E?}?E??EԋE?;E?~?E?E?H?E??%????‹E???%? ?H?E??H?E??%????‹E?+E???%? ?H?E???&?EЍH??U?H?E?A?A??H???S??UH??H?}?u?H?E?H?H?@@?U?Hc?H??H
Ћ??-????E??}??u???????E?P
?E?
?]?UH??H?? H?}?u?U?H?E?H?H?@@?U?Hc?H??H
?H?E??E?P
?E?)ЉE?}?
?| ?}?
~H?E?H?@H?&?H??H???????H?E?????‹E?????? ?H?E?????UH??H??0H?}?H?u??U܃}??tWH?E?????uH?E??U܉?BH?E???E???E??E??U?H?E??H????????E??}??u??U܋M?H?E??H??? ????
???UH??H??H?}?H?E????????8H?????UH??H?? H?}?u?U??}?t?}?
t??E?G??E?H??E?F??E??H
?U?u?H?E?A?A?H??????UH??H?? H?}??u?U??M?D?E?D?M?D?E?}?M?U??u?H?E?E??A??H???BH?E?H???+?????UH??H?}?H?E??P H?E??P$H?E??@ ]?UH??H?}?u?H?E?H?H?@@?U?Hc?H??H
?H?E??}?~.H?E?H???????H?????????t H?E?H???H?E?]?UH??H?? H?}?u?U??U?H?E??H???|???H?E?H?E??????Ct??l?}??t3H?E??????9E?t"H?E??%????‹E???%? ?H?E???+H?E??????%???H?E??%? Ѓ?B??H?E???
??UH??H??H?}??u??*?M?H?E?????H???/????U?H?E???H???????E?}??uА???UH??H??0H?}?u?U??M?D?E??\?U?H?E??H???H????E??U܋M?H?E??H?????????t?U??M?H?E??H???c?????U؋M?H?E??H???M????E??E?}??u?????UH??H??H?}??u?U??M??U??u?H?E?A?ȹ?H???P??????UH??H?? H?}?u?H?E?H????????E??U??M?H?E??H?????????UH??H??0H?}?H?u??U?H?E?@(?U?)‰U?H?E?@ ??
?E??E?????Iƒ?H?E??@E?H
H?U?JE????H?E?H?H(H?E?P4H?E?H?p`H?E?H?@H?@8H??H?=?WA????A?H???f??H??H?U?H?B`H?E?H?P`H?E?@4H?H??H
‹E??H?E?H?p`H?E?@4?H
H?U?J4H?H??H??E܉B?E?????H?E??@E
H?E?H?HH?E?H?pXH?E?H?@H?@8?U?H??H?=T?WA????A?
H??? f??H??H?U?H?BXH?E?H?PX?E?H?H
ЋU??H?E?U܉P(???UH??H?}?H?E?H?H?E?H?E?@ ??
?E?H?E?H?PX?E?H?H
???????tH?U?H?M??E?H?Ή??o?????u ??H?E?H?@H?@8H?}?H?M?H?U??u?I??H???S??E?<uH?E??H?U?H?E?H?P?K?E??E??E?f.E?zf??f.E?zf??f.E?u??H?E??H?E??E??@?
H?U?dH+%(t?҈??UH??}??u??U?U??E?)‹E?
?]?UH??}??E???1]?UH??}??E???]?UH??H??0H?}?u?H?U؉M?H?U?H?E?H??H???;????E?H?U?H?E?H??H???b????U??u?H?E?A?A??ѺH???p???H?U؉BH?E???U?H?E??H???????UH??H??@H?}?H?u?H?U؉M?D?E?D?M?H?U?H?E?H??H???????E??MЋU??u?H?E?A?A?ȉѺH????????E?H?U?H?M?H?E?H??H???????H?E??U??PH?E???UH?E??H???.?} D?E̋MЋU??uH?E?E??A??H???????UH?E??H???? ???UH??H??0H?}?u?H?U?H?M?D?E??E?"?????????E?H?U?H?E?H??H????????E??E???G?????D?E??M?H?U?H?u?H?E?H??Wj.?}?WA?H??????H?? ???UH??H??@H?}?u?H?U?H?M?D?E?D?M?H?E?H?@???E?D?M?D?E??M?H?U?H?u?H?E?H???}Wj/?}?WH???P???H?? ???UH??H??@H?}?u?H?U?H?M?D?E?D?M̋E???????E?H?EЋ@?E??E?????????%D?E܋}?H?M?H?U?u?H?E?E??A??H??????????UH??H??0H?}?u?H?U?H?M?D?E??E?H?EؾH?????????tH?U?H?E?H??H???b????E?
?}?uAH?E?H????????t1?}??u?H?M?H?U?H?E?H??jA??A??H???!???H???%D?E??}?H?M?H?U؋u?H?E?E??A??H??????????UH??H??0H?}?u?H?U?H?M?D?E??E?H?E؋??uH?U?H?E?H??H???????E?
H?EЋ??u=H?U?H?E?H??H???G?????t&D?E??}?H?M?H?U؋u?H?E?E??A??H????????%D?E??}?H?M?H?U؋u?H?E?E??A??H??????????UH??H??@H?}؉u?H?U?H?M?dH?%(H?E?1??E?H?U?H?M?H?E?H??H???v?????t8H?U?H?E?H??H???f????E?E?E??EԺ>????????E??H?U?H?M?H?E?H??H???#?????t5H?U?H?E?H??H???????E?E?E??EԺ@????X????E??CH?U?H?E?H??H????????E?H?U?H?E?H??H????????E??EԺ:????????E?H?U?H?M?H?E?H??H???????}?M??U?u?H?E?A?
A??H???e???H?UȉBH?E???H?E?dH+%(t肀??UH??H??@H?}؉u?H?U?H?M?dH?%(H?E?1??E?H?Eȋ??tH?U?H?E?H??H???w???H?U?H?E?H??H????????E?H?U?H?M?H?E?H??H?????????t?E?=?E?E??GH?U?H?E?H??H????????t?E?<H?E??@?E???E?9H?U?H?E?H??H???????E?H?U?H?M?H?E?H??H????????}? ??D???}?M?U?u?H?E?E??A??H???+???H?UȉBH?E???H?E?dH+%(t?H??UH??H?? H?}??u?H?U?M?H?U?H?E?H??H????????}?t7?}?wh?}?
v?}?tF?Z?E????H?U?H?E?H? J?H?????????u6?E???"????ƋM?H?U?H?E?H???+????H?U?H?E?H??H???=????
????UH??H??0H?}?u?H?U?dH?%(H?E?1?H?U?H?E?H??H???,????}????E?H??H?Î?H?H???H
???H?U?H?E?H??H???M????H?U?H?E?H??H????????H?U?H?E?H??H???d????H?EؾH????????uoH?U?H?E?H??H???????ZH?EؾH???\?????uHH?U?H?E?H??H????????3H?U?H?M?H?E?H??H???X?????uH?U?H?E?H??H???H????????
??H?E?dH+%(t?\}??UH??H??0H?}?H?u?H?U؉M?H?E?H???????H?E?H?E??????5umH?E????%??E?H?U?H?E?H??H??????H?E??%?????H?E??@??%? ?H?E??H?E??%????‹E??
??%? ?H?E???MH?E??PH?E?A?A???5H???????H?U?H?E?H??H???????U?H?E??H???%???UH??H?? H?}??u?H?U?H?M?D?E?H?U?H?E?H??H????????}?w?u?H?M?H?U?H?E?H???*????????}????E?H??H????H?H???H
???H?E?PH?E?H?HH?E?H??H??????H?M?H?u?H?H?VH?
H?QH?FH?A?_H?E?PH?E?H?HH?E?H??H???I???H?M?H?u?H?H?VH?
H?QH?FH?A?H?U?H?E?H??H???????M?H?U?H?u?H?E?H?????????
?}?H?M?H?U?u?H?E?A??H????????
?M?H?U?H?u?H?E?A?A?ȹH??????????
?}?H?M?H?U?u?H?E?A??A?H????????x
?}?H?M?H?U?u?H?E?A??H????????V
H?E?H????????tGH?U?H?E?H??H???????u?H?M?H?U?H?E?H??jA??A?
?!H??????H?????M?H?U?H?u?H?E?A?A?ȹ H???M????????}?H?M?H?U?u?H?E?A??H???????H?E?H???u?????t1?u?H?M?H?U?H?E?H??jA??A?? H??????H???o?}?H?M?H?U?u?H?E?A??H???\????PH?M?H?U?u?H?E?H???
????7H?U?H?E?H??H???????m?H?M?H?U?u?H?E?H???^????????
???UH??H??H?}??u?H?E?H???????H?E?H??U?H?E?H??H???s??????UH??H??@H?}؉uԉUЉM?D?E?H?E?H?H?@@?U?Hc?H??H
?H?E??}?t?Eȉ??у??
???E?E̍????H????E?Ủ?????
???)‰U??}??????E?E????‹E??? ‹E??? ‹E??? Ѓ???H?E???E?????H?E?H????R????UH??H??0H?}?u?U??M܃}??u?E??}??%?u??M܋U?H?E?A?A??NH???4????]?E??????H????E??U???????
???)‰U??u??M܋U?H?E?A?
A??NH????????U?H?E??H????????E?P
H?E?PD???UH??H?}?u??E??6?E?H?H??H?E?H
Ћ?E??E?????8u?E???-???
E?E?
?}?c~??
??E?]?UH??H??0H?}?H?E?H?H?E??E??
H?E?H?@@?U?Hc?H??H
?H?E?H?E??????H????Gs ??8????8????E??
???6H?E??@F??uH?E??@????
????H?E???????F??H?E??H?E??@F??tH?E???̀??H?E??H?E??@????
??t\H?E??%?????H?E??@ ????
?? ?H?E???4H?E?H?@@?U??H???????E?U?M?H?E؉?H???:????????
??E?
H?E؋@ 9E??????????UH??H??H?}??u?U?H?E???H??脠??H??H?E?H?@8H? ƆH??H?Ǹ艘H??H?E?H??H??????UH??H??@H?}؉u?H?U?H?E?H?@H?@8H?E?H?E?H??@,?E?}?t ?U?H?E?H? l?H??H?Ǹ?#??H?g?H?E?H?u??M?H?U?H?E?I??H?5Z?H?Ǹ??H?E?H?E?H?@H?U?H??H???u???UH??H?? H?}??u?U?H?M?E?;E?~H?U?M?H?E???H???+??????UH??H??H?}??u?H?E??@9E?uH?E?H???[????
????UH??H??H?}??u?H?E??@9E?t?U?H?E???H???s??????UH??H??H?}??u?U?H?E???H??????H?E?H?????????UH??SH??(H?}?u?U??M܋U?H?E??H???F?????????H??t|H?E?@9E?u?U?H?E??H????????U?H?E??H??胞??H?ËU?H?E??H???o???H??H?E?H?@8?M?A??H??H?5??H?Ǹ?n?H??H?E?H??H????????H?]???UH??H?? H?}?H?E?#
H???????H?E?H?@H?E?H?E?H??????H?E???UH??H?}??u?U?H?E??@????H?E??PH?E??PH?E??U?H?E??U??P?]?UH??H?}?H?u?H?E??@????H?E??PH?E??PH?E??H?E?H?U?H?P?]?UH??H??H?}?H?u?H?E?H???.???H??H?E?H??H?????????UH??H??0H?}?H?u?H?U?H?E?H?H?E?H?E??@$?E?H?E?H?H$H?E??@@??H?E?H?phH?E?H?@8H??H?=??WA??A?H???+??H??H?U?H?Bh?!H?E?H?Hh?E?P
?U?H?H??H
?H?H?E??@$9E?|?H?E?H?PhH?E??@@H??H??H
?H?E?H?H?E?H?PhH?E??@@H??H??H
?H?E??@ ?BH?E??@ ???? ??t-H?E??@ ??????tH?U?H?M?H?E?H?@8H??H???@`??H?E??@@?ƒ?
??H?U?f?J@???UH??H??@H?}?H?uЉU?H?E?H?@8H?E?H?E?H?@0H?E?H?E?H?@XH?E?H?E??@?P
H?E?@8??)?H?E?H?r?H?Ѻ?H???????H?E?H?HH?E??@?P
H?E?H?0H?E?H??H?=:?WA???A?H????*??H??H?U?H?H?E?H?0H?E??@?H
H?U??JHc?H??H
?H
?H??H
?H?E??Ẻ?H?E??P H?E?H?U?H?PH?E??@?P?H?E?@8)‰???UH??H??H?}?H?u?H?M?H?E??H??H?????????UH??H?}??u?H?E?H?@H?@XH?H?E??P8?E?
?Hc?H??H
?H
?H??H
?]?UH??H?? H?}?u??1?U?H?E??H??????H?E?H?E??@ <tH?E??@ ????
??E?P??U??¸??UH??H??H?}?H?E??@B??H?E???H????????UH??H?? H?}?u?U?H?E??H???(???H?E?H?E??@ <u??$H?E??@??E?H?E?H?H?@h?U?Hc?H??H
???UH??H??H?}?H?u??U?H?E??@????H?E??PH?E??PH?E?? ?E??H?E?f?P ?U?H?E???H???????P H?E??P???UH??H??@H?}?H?u?H?E?H?@0H?E?H?E?H?E????t???
?? t9?? tk?
H?E?H?@XH?H?E??@Hc?H??H
?H
?H??H
?H?@H?E??sH?E??@ ??H?E???H???????H?E?H?E??@ ??tFH?E?H?@H?E??8H?E?H?H?PPH?E??@H?H??H
?H?E?H?E??@ ??tH?E?H?H?E????
?H?}?tXH?E??@??x H?E?H???H?E?H?@H?U?H?J8H??H?H??H?ϸ?I?H?E?H?U?H?E?H??H??趷?????UH??H??0H?}؉u?H?E?H?@0H?E?H?E?H???????E??E??hH?E??@B?H
H?U??JB???E?U?H?E???H???????H?E??E?P
?U??H?E??P H?E?H?PH?M?H?E?H??H???4?????H?E?f?P?E?
?E?;E?|?????UH??H?? H?}?u?H?E?H?@H?@X?HH?E??@B??+E??H?E?H?@H?@X)щH?DH?E??@B?P?H?E?PBH?E??@B??H?E??H???????H?E?H?}?tH?E?P H?E??PH?E??@B??9E?|?????UH??H?}?H?u?H?E?H?H?@PH?E??E??%?E?H?H??H??H?E?H
?H?H9E?u?E???E?
H?E??@C??9E?|˸????]?UH??H?? H?}?H?E?H?H?E?H?E??@?E?H?E??@C???p
H?E?H?3}H?Ѻ?H???p???H?E?H?HH?E??@C??H?E?H?pPH?E?H?@H?@8H??H?=?|WA??A?H???$??H??H?U?H?BP?!H?E?H?HP?E?P
?U?H?H??H
?H?H?E??@9E?|?H?E?H?pPH?E??@C?H
H?U?JC??H??H
???UH??H??0H?}?H?u?H?U?H?E?H???????H?E?H?E?H?@H?E?H?E؋?? u=H?E??@
H?E??PH?E??P H?E??@ ??H?E???H???B????P H?E??P ?>H?E??@H?E؋@??H?E??P H?E?H?H?PPH?E؋@H?H??H
??P H?E??P H?E?H?U?H?H?E?H??@ ???? ??t7H?E??@ ??????t%H?U?H?E?H?H??H?E?H?@H?@8H??H???X??H?E??@C????
??UH??H??(H?}?H?u?H?U?H?E??@B????
?E??p?U?H?E??H???X???H?E?H?E?H?@H9E?uIH?E??@ <uH?E?P8?E?
?H?EؾH?????????U?H?M?H?E?H??H??????H?E؋??m?
?}?y????????UH??H?}?u?H?E?H?@H?E??H?E?H?H?E?H?E??@??9E?|?H?E??@
H?E??@F
?]?UH??H?}?H?E?H?@H?E?H?E??@
H?E??@
H?E??@F
?]?UH??H??0H?}?H?u?H?U؉M?H?}?uH?Eغ?H????????H?U?H?M?H?E?H??H???????E??}?x2?}? ???}???H?E??@ ??H?E??H???????H?U?H?E?H??H????????E??}?yNH?E?H?@H?U?H?u?H???H?E?H??E?Hc?H??H
?H
?H??H
??@?? E?H?U??M?H?E??H???^?????E?
H?E??@9E?|??E???UH??H??@H?}?H?uЉỦM?H?E?H?@0H?E?H?E?H?@XH?? H?E?H?E?H???????NjM?H?U?H?u?H?E?A??H???x????E?}?t-H?E?H?HH?E?H?0?E?Hc?H??H
?H
?H??H??A?BH?E?H??E?Hc?H??H
?H
?H??H?
H?E?H??H????????t7H?E?H?????????H?E?A?A???6H??荵???
????UH??SH??0H?}?H?u?H?E?H?@H?@XH??H?E?H?Eȋ@?E??H?E?H??E?Hc?H??H
?H
?H??H
?H?E?H?E??@??H?EЉ?H????????H?E??@??H?EЉ?H???????9?~H?E??PH?E??@ ?H?E??PH?E??PH?E??P?E?
H?E?@9E??k?????H?]???UH??H?}?H?u??ЈE?H?E??U?PH?E??PBH?E??PH?E?H?@H?@X?P(H?E??PH?E?H?@H?@X?PH?E??PH?E??@H?E?H?@H??tH?E?H?@?@??t?
????H?E??PH?E?H?PH?E?H?H?E?H?U?H?P?]?UH??SH??(H?}?H?u?H?E?H?H?E?H?@8?H? ?gH??H????H9?u4H??pH?E?H?EЋPH?E?H?@8H?M?H??H?Ǹ?@?H?E??XH??pH?E?H?EЋPH?E?H??@??x H?E?H?H???H?E?H?H?@H?M?H?y8H?u??H?¸??H?E?H?U?H?E?H??H???S???UH??H??0H?}?H?E?H?@H?E?H?E?H?@H?E??E?H?E??@??H?E؉?H????????E?H?E??@??H?E؉?H???????H?E??@??t;H?E?H?@8?H? ?fH??H??趗H??H?E???H???????E?}?u=H?E?H?H??t1H?E??@??t%?U?H?E?A?A???6H???:????E??H?E؈PDH?E?H?@XH?U??R?P(H?E?H?H?E?H?PH?E?H?H??tH?U?H?E?H??H???o????LH?E??PH?E?H?@X?@9?}6H?E?H?@XH?HH?E??@Hc?H??H
?H
?H??H?
H?E?H??H?????????UH??H??@H?}?H?E?H?@8H?E?H?E?H?@0H?E?H?E?H?H?E?H?E?P0H?E??@ 9???H?E??@ ?E?H?E?H?H H?E?P0H?E?H?pHH?E?H??H?=TnWA???
A?H???z??H??H?U?H?BH?!H?E?H?HH?E܍P
?U?H?H??H
?H?H?E??@ 9E?|?H?E?H???fcH?E?H?E?H?pHH?E?@0?H
H?U?J0H?H??H?H?E?H?H?E??@ ???? ??t)H?E??@ ??????tH?U?H?M?H?E?H??H??? J??H?E???UH??H?? H?}?H?u?H?E?H?@0H?@H?E?H?E??@0??
??H?E??Ѻ?OH???g?????H?E?H??????H?U?H?E?H??H?????????UH??H??0H?}?H?u?H?U?H?E?H?H?E?H?E?H?P0H?E?H?PH?E?H?U?H?PH?E?H?U?H?P0H?E??@ H?E??P,H?E??P(H?E??@EH?E??@$H?E??@DH?E??@,H?E??@4H?E??@0H?E??@CH?E?f?@@H?E??@BH?E??@FH?E?H?@X?PH?E??P8H?E?H?@X?P(H?E??PH?U?H?E?H??H????????)H?U?H?E?H??H???????H?U?H?E?H??H???C???????UH??H??`H?}?H?u?dH?%(H?E?1?H?E?H?@0H?E?H?E??@?E?H?E?A?A????H???&????E?H?E??H???W????E??E?E??E??E?H?E?H?E?H?E??@D??H?E??H???l???H?E??
H???Ȩ??H?E???H???E???H?E??{H??????H?E??@??}tRH?U?H?E?H??H???????H?U?H?E?H??H???e???H?E??,H???l?????u?H?E??;H???W?????u??
??U?H?E??Ѻ{?}H???????H?U?H?E?H??H????????}??M?H?E??P?u?H?E?A??H???????H?E?dH+%(t?P??UH??H??H?}??u?H?E?H??PH?E?H???
?P?U?H?E?A?A???QH??蔥?????UH??H??0H?}?H?E?H?@0H?E?H?E?H?H?E??E??E?H?E؋@??)tH?E؋@=
t+=#
u9H?E?H??????H??H?E?H??H???????E?
?+H?E?H??蝙???E?
?H?E?H?HbH??H???;|???}?uH?Eؾ,H?????????u??U?H?E؉?H???@???H?E??PBH?E??P ?}?tH?E??@ ??H?E???H??????H?E??@B??H?E???H???{??????UH??H??H?}?H?u???|?????x???dH?%(H?E?1?H?E?H??????H?E?H?E???x????P,H?U?H?M?H?E?H??H???(???H?E??(H???w?????|???t>H?E??H? TaH??H???X{??H??H?E?H??H???b???H?E??
H???H???Ļ??H?E?H??EH??H??????u?
?[H?E?H?mEH??H??????u??:H?E?H?@8H?U?H? JEH??H?Ǹ?RH??H?E?H??H???z?????UH??H??H?}??u?}??tAH?E?H????????U?H?E???H??蚿????H?E?A?A???7H??耄?????UH??H??`H?}?dH?%(H?E?1?H?E?H?@0H?E??E??????E?H?E?H??蒻??H?E?H?E?H???p????E??U?H?M?H?E?H??H??藽???Eă}?u/?}??tH?E?H?aDH??H???y??H?E??@B?ЋE?
ЉE??E?
H?E??,H???ҹ?????v???H?E??=H??蹹????tH?U?H?E?H??H???a????E???E??E??U?H?Eȉ?H???-???H?E؋E?;E?uWH?E??@ <
uKH?U?H?M?H?E?H??H???oy????t0H?E??@ ?E??P?H?E???H??????H?E??@B?P
H?EȈPB?'H?M??U??u?H?E?H???????U?H?E???H???d????U?H?Eȉ?H???
????H?E?dH+%(t?-??UH??H?? H?}?H?u??E?H?U?H?E?H??H????????H?U?H?E?H??H??????H?E?@??.t?H?E?@??:u?E?
H?U?H?E?H??H???}????E???UH??H??`H?}??u?dH?%(H?E?1?H?E?H???v??H?U?H?E?H??H???M????E??M??U?H?u?H?E?H???z???H?U?H?E?H??H??????H?E?H?@0H?U?H?M?H??H???K???H?E?H?@0?U???H???-????H?E?dH+%(t?^,??UH??H??PH?}?dH?%(H?E?1?H?E?H?@0H?E?H?E?H?PH?E?H??H???5???H?E??@??=tH?E??@??,u"H?E?H?M?H?E??
H??H???????R?E؃?tH?E?H??@H??H???OX??H?E?H?H?@@?U?Hc?H??H
?H?E?H?Eȋ%???
??H?Eȉ?H?E?dH+%(t?}+??UH??H??@H?}?dH?%(H?E?1?H?E?H?@0H?E?H?E?H???һ???E?H?EȾ
H????????uH?Eȋ@??;u?E???H?U?H?E?H??H???????EЋE???t?E???u}H?M?H?Eغ????H??H????????E???uT?}?
uNH?E?H?@?@??u>H?E?H?H?@@?U?Hc?H??H
Ћ?????H?E?H?H?@@?U?Hc?H??H
Ѓ?E?ʉ?E??????1?}?
uH?U?H?E?H??H???*????E??H?U?H?E?H??H??角???UЋM?H?E؉?H???y??H?EȾ;H???i????H?E?dH+%(t? *??UH??H?? H?}?H?E?@?E?H?E?H?@8H???? ??H?E?@??;tO??;??
=
??
=

??
-

????
??H??H?n??H?H?b?H
???H?E?H???Gs???d
?U?H?E??H???h????N
?U?H?E??H???O????8
H?E?H??? s??H?E?H???:????U?H?E?Ѻ
?
H????????
?U?H?E??H?????????U?H?E??H??????????U?H?E??H????????H?E?H???r??H?E?
H?????????tH?E?H???q????H?E?H???S????~H?E?H???Pr??H?E?H??????H???U?H?E?H??H????????OH?E?H???!r??H?E?H????????5H?E?H???????'H?E?H????q??H?E?H??????? H?E?H???????H?E?H?@0H??茸????H?E?H?@0?PDH?E?H?@8?????
??????UH??H??@H?}?H?u?dH?%(H?E?1?H?U?H?M?H?E?H??H???????H?E??H???????H?E?H??????H?E?H?E??@
H?E??@ H?E??@ H?E?H?PhH?E?H?H?E?H??@ ???? ??t??????uH?E??@(
H?E?H?@H?E?H?}?uА?]?UH??H??H?}?H?u??U?M?H?}?t?}?u?E?H?E?H?E?H?U?H???H?E??U艐?H?E????H?E?????E???H?E?????}?tH?E?H?@ H???:??????UH??H?}?H?E?H???]?UH??H?}?H?E????]?UH??H?}?H?E????]?UH??H?}?u?H?U؃}?y??hH?E?H?@ H?E???m?
H?E?H?@H?E??}?~H?E?H??`H9E?u܃}?u&H?E?H??`H9E?t?E?
H?E?H?U?H?????E??E?]?UH??H?}?u?H?E?H?@P?U?Hc?H??H
?H?H?E?H?}?u H??6?H?E??@??x H?E?H???H?E?H?@]?UH??H?}?u?H?U?H?E?H?H?H?@?@????
??tLH?E?@,?E??E???9E?|8H?E?H??U?HcʋU?Hc?H
?H??H??????H)?H?H?E?H?H?A6??]?UH??H??@H?}?H?uЉU?H?M?H?E?H?H??H?E?H?E?H?E??@>??????uM?}?yH?U??M?H?EЉ?H???'?????H?E?H????????H?E?H?H?H?@?M̉?H???)H?E?H?}?uuH?E?H?@ H9E?u H?E?H?@?H?E?H?@H?H?E?H?E?H+E?H??H?‹E?H?H9?|.?}?~(H?E??@>??????u H?N5?H?Q5H?E????&H?}?t?E?H?H??H?P?H?E?H
?H?E?H?H?E???UH??H??PH?}?H?u??U?dH?%(H?E?1?H?}?uLH?E?H?@H???@???? ??uH?E?H?HH?U?H?E?H??H???+????UH??H??@H?}?H?u?H?U?H?M?L?E??E?
??
H?E??????L??)??
??H??H??/?H?H??/H
???H?U?H?E?H??H???1????
H?}?t H?E??@>??????uH?E?H????????????H?U؉B0?S
H?}?t H?E??@ ??H?U؈B
H?E??@=?
H?E?H?@?@??
??H?E؈P>H?E?H?@?P H?E؈P=??H?}?tH?E??@>?? ????H?E؈P??H?E?H?PH?M?H?E?H??H???H???H?U?H?BH?E?H?@H????H?E?H??H?PH?E?H?@?eH?}?tH?E??@>??%
??uH?E?f?@BH?E??PBH?E?f?P@?/H?E??P8H?E?f?P@H?E??P:H?E?f?PB? ?E????
?H?E?
H?E?????????E???UH??H??PH?}?H?u?H?U?H?E??<>u3H?E?H?E?H?@H??H?E?H?E?
H?E?H?@H?P?H?E?H?P?H?E?H???H?E?H?E?H?H?E?H?E??@
?U܋M?H?E??H???^????E?H?E??U???}???
H?E?H?@@?U?Hc?H??H
Ћ?E?E???E??}? tk?}? ???}????}????}?t?}?th??E???%??E??E?????9E???H?MЋU?H?u?H?E?H?????????E?????H?E??H??????H?U?H?H??)?Y?E?????H?U?H?E??H???$????=H?E?H?@@?U?Hc?H??
H??H
Ћ????H?U?H?E??H???????? ??
????UH??H??0H?}?u?U?H?M?H?M؋U?H?u?H?E?H???=???H?E?H?}?tH?E????????tH?E?H??#H?H??%?uH?E??@>??%???tH?E?H?H?H??$?JH?E??@>??????u3H?E?H????????H?E?H?H?H?pH?U?H?E?H?щ?H???c???????UH??H?}?H?u?H?E?H?H??H?E??E??"?E?H?H??H??H?E?H
?H9E?u?E??)?E?
?E?H?H??H??H?E?H
?H?E?H?@H9?r??????]?UH??H??(H?}?H?u?H?U?H?E?H?H?H?E??E??EH?E??U?Hc?H??H??H?@H9E?u%H?E?H?@?U??H???D???H?U?H?H?*#??E?
H?E??@ ??9E?|????UH??H?? H?}?H?u?H?U?H?}?u H?m? H?M?H?U?H?E?H?5?#H?Ǹ?w.??UH??H??@H?}?H?u?dH?%(H?E?1?H?E?H?@ H?E?H?E?H?E?H?E??@>??????umH?U?H?M?H?E?H??H???????H?E?H?}?uKH?U?H?E?H??H???D????E܃}?x/H?E?H??? ?????H?E?H?H?H?@H?M??U?H???????H?E?H?U?H?M?H?E?H??H???????H?U?dH+%(t? ??UH??H??0H?}?H?u?H?U?H?M?H?U?H?E?H??H????1H?E?H?u?H?M?H?U?H?E?I??H?5?"H?Ǹ?UH??H?? H?}?H?u?H?U?H?U?H?E?H??H??????H??H?U?H?u?H?E?H???l???UH??H??@H?}?H?u?dH?%(H?E?1?H?E?H?@ H?E?H?E?H?U?H?M?H?E?H??H???M???H?E?H?}?tH?U?H?M?H?E?H??H????????H?U?H?E?H??H??????H?E?H?U?H?u?H?E?H??H??!H???????UH??H?? H?}?H?u?H?U?H?U?H?E?H??H???0H??H?U?H?E?H?5?!H?Ǹ?kUH??H?? H?}?H?u?H?U?H?E??@??????tH?E??@??????uH?E?H?E?H?M?H?E?H??!H??H???}???UH??H?? H?}?H?u?H?U?H?M?H?E??@??????tH?E?H?E?H?U?H?M?H?E?H??H???3???UH??H??0H?}?H?u?H?U?dH?%(H?E?1?H?M?H?E?H??H???9???uH?E?H?E?H?U?H?E?H??H??????H??H?E?H? ? H??H?Ǹ?MUH??H??0H?}?H?u?H?U?H?U?H?E?H??H???J/H?E?H?U?H?E?H??H???3/H?E?H?U?H?E?H??H????s??uH?U?H?E?H? ? H??H?Ǹ??
H?M?H?U?H?E?H?5? H?Ǹ?
UH??H?ĀH?}?H?u?H?U??M?dH?%(H?E?1?H?}?tWH?E??@??xH?E??@H??H?E?H?E?H???H?E?H?@H?E?H?E?H?@H?E?H?U?H?M?H?E?H??H???*??E???E?H?u??M?H?U?H?E?I??H?5?H?Ǹ?)H?U?dH+%(t???UH??H??@H?}?H?E?H???H????H?E?H?P0H?E?H???H
?H?E?H?E?H?@H?E?H?E?H?@H??H?E?H?E?H?U?H?H?H?E??PH?E??PH?E?H?@H??H?E?H?E?H?E?H?E?H?U?H?H?H?E??PH?E??PH?E?H?@H?PH?E?H?PH?E?H?@H?H?H?EȺ
H??H??誉H?EȾH????qUH??H??
H?????H?????H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H?????H?@ H?????H?????H?@H?@ H??H?????H????,??Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H?????H??H???)!H?????H??????@>????????H?????H???(?????H?????H?H?H?@H?PpH?????H?????H??????H?????H?@H?? H?? ???H?????H?@H??H??(???H?? ???H??(???H?H?H??(????PH?? ????PH?????H?@H?P?H?????H?PH?????H???L???UH??SH??(H?}؉uԉU?H?E?H?@XH??u ???E?+Eԃ??K?E??EԉE?H?E?H?PX?E?
?E?H?H
?????E?}?t?E?
E?E?;E?uσ}??????-??U?H?E؉?H???`????ËU?H?E؉?H???M???9?????H?]???UH??H?? H?}?H?E?H?@ H?E?H?E?H?H?H?@H?E?H?E??@(
H?E?H?P H?E?H?@@H9?u>H?E??@????
??t??*H?E??@>????@??uH?U?H?E?H??H???#y?
??UH??H??@H?}?H?u?H?E?H?@ H?E?H?Eȋ???E?H?E?H?H?H?@H?E??E߃???uH?E??@(??(H?E?H?E?H?U?H?P ?E߃???t,H?Eȋ???P?H?Eȉ??H?Eȋ????u?
???E??}?tH?Eȋ??H?Eȉ????E߃???u ?
?
H?E??@>????@??tH?E??@>?࿉?H?E?f?P>?
?v
H?E?H?@ H???????H??????? ??tH?E?H?@ H?????????tH?E?H?PH?E?H?P?}?t!H?E?A????????H????t?E߃?????H?Eȋ??H?E??@9?}H?Eȋ?????E?H?E?H?@@H?U?H)?H??H????
?E?E?;E?~?U?M?H?E???H?????????t3?U?H?E???H???????E?U?H?E?A???H???4tH?EȋU艐?H?E??@ <
u:?}?tH?E?ǀ?
H?E??@>??@??H?E?f?P>H?EȾ
H???hl?
??UH??H?? H?}?u?E????Hc?H?E?&H???F???H?E?H?E?H?E??E??H?E??P H?E???UH??H?? H?}?u?E????Hc?H?E?H???????H?E?H?E?H?E?H?E?H?@?E??H?E??P ?H?E??U?Hc?H??H???E?P??U??u?H?E???UH??H??0H?}?H?u??E??H?Eغ(? H???{???H?E?H?E?H?E?H?E?H?PH?E?H?PH?E?H?@?@H?EЋU?Hc?H?JH?U?H??H?E??@ ???? ??t)H?E??@ ??????tH?U?H?M?H?E?H??H???????E?
H?E??@ ??9E??Y???????UH??H??@H?}?H?u?H?U?H?Eغ(? H??????H?E?H?E?H?E?H?E?H?H?E?H?U?H?E?H?PH?E?H?U?H?PH?E?H?U?H?P H?}?tH?E?H?PH?E?H?P H?E?H?U?H?H?E?H?@PH9E?u*H?E?H?@H??
H?E?H?PPH?E?H?@H?U?H??
H?E???UH??H?? H?}?H?u?H?E?H??8H?E?? H?E?H?@H9E?uH?E??CH?E?H??H?E?H?E?H?H?E?H?}?tH?E?H?@H;E?s?H?U?H?M?H?E?H??H?????????UH??H??`H?}?H?u?H?U??M?H?E?H?@H?E?H?M?H?E??H??H????#H?E?H?E?H?E?H?E?H?E?H?E?H?U?H?H?H?E??PH?EЈPH?E?H??H?E?H?E?H?E?H?E?H?U?H?H?H?E??PH?E??PH?E?H?? H?E?H?E?H?E?H?E?H?U?H?H?H?E??PH?E??PH?E?H?P0H?E?H?P?}?tH?M?H?E??H??H?????H?M?H?E??H??H???.????UH??H??0H?}?H?u?H?M?H?EغH??H????"H?E?H?E??@??????umH?E?H?@ H?H?U?H)?H??H???E?H?E?H?p ?U?H?EعH???????H?E?H?}?uH?H?E?H?U?H?E?H? ?H??H?Ǹ????????UH??H??0H?}?H?u??U܉M?H?E?H?E??}??uH?E?H?@H??XH?E??%H?E?H??H?E?H?E?H?P?M?H?E??H???ff?M?H?U?H?u?H?E?H??????????UH??H??H?}?H?u?H?E??@<
??H?E??@????????H?U?H?E?H??H???????%H?E?H?@@H????H?E?H?P@H?E?H?@@f?@ H?E?H?@@H?U?H)?H??H??=??w?H?E?H?@@H?U?H)?H??H????H?E?f?P H?E?H?U?H?P@?
???UH??H?}?H?E?H?@ H?U?H?RH?H?E?H?@H??tH?E?H?@H?U?H?R H?P ?]?UH??H??@H?}?H?u???H?E?H??H?E?H?E?H??????H?E?H?E?H?E?H?@H?E?H?E?H?U?H?H?H?E??PH?E??PH?E?H?U?H?PH?E??@ ??????ujH?E??@ ?? ??H?E؈P H?E??@????@??tDH?E??@ ???? ??t2H?E?H??@ ??????tH?E?H?H??H?M?H?E?H??H???1???H?E?H?@8H?E?H?}?tH?E?H?@H?E?H?E?H;E????????UH??H?}?H?E?H?@@H?E?H?E??@ ??H??H??H
E??H?m???H?E?H?@0H;E?s H?E??@ f??t?H?E?H?U?H?P@?]?UH??H??0H?}?H?u??U܉M?H?E?H?@0H?U?H)?H?U?H?U?H?E?H??H???P????AH?E?H?@@H?E?H?E?H???L????M؋U?H?u?H?E?H??????H?E?H?P0H?E?H
?H?E?H?E?H?@@H;E?s?H?E???UH??H?? H?}?H?E躀? H???H???H?E?H?E?H?E?H?E?H?@8H?E??@H?E?H?@HH?E??@ H?E?H?@@H?E??@H?E?H?@XH?E??@H?E?H?@`H?E??@(H?E?H?@PH?E??@H?E??@ H?E??@H?E??@H?E?H?@hH?E??@$H?E??@,H?E??@0H?E?H?@pH?E???UH??H??H?}?H?u?H?E??@??????uqH?E??@H?H??H?E?H?H@H?E?H??H???ױ??H?E??@Hc?H?E?H?HXH?E?H??H??趱??H?E??@(H?H??H?E?H?H`H?E?H??H??莱??H?E??@ H?H??H?E?H?HHH?E?H??H???f???H?E??@H?H??H??H?E?H?H8H?E?H??H???????H?E??@$H?H??H??H?E?H?HhH?E?H??H??????H?E??@H?H??H??H?E?H?HPH?E?H??H??????H?M?H?E???H??H???ٰ?????UH??H?}?u?U??E??H?E?H?@h?U?Hc?H??H
Ћ@9E?}f?m?
?}?u\H?E?H?@h?U?Hc?H??H
?H??@??xH?E?H?@h?U?Hc?H??H
?H?H???TH?E?H?@h?U?Hc?H??H
?H?H?@?6?E?
H?E?@$9E?}!H?E?H?@h?U?Hc?H??H
Ћ@9E??L????]?UH??}??E??m?
??E??m??}??w?E?H?XN??ЋE?
?]?UH??H???}?}?? v???T?E?????c??Hi???QH?? ???E?}?w?E??-?E??
???t??????E??E??U????ЍP??E???
?? ???UH??}?H?u??E???E??E????E??}?~?m?
?E??m??}?x??E?H?!?B!??H??H??H9E?}?E?H?E?H?‹E???H??H???qH?????????e?]?H?!?B!H9E??E?H?E?H?‹E???H??H???:?E?H?U???H??H?!?B!H9??E?H?U???H???E?H??? H????????]?UH??H?? H?}??u?H?U?H?M??}? ???E?H??H???H?H??H
???H?U?H?E?H
???H?U?H?E?H)?H???H?U?H?E?H???H?U?H?M?H?E?H??H???{??H?U?H?M?H?E?H??H???ѡ?nH?U?H?E?H!??aH?U?H?E?H ??TH?U?H?E?H1??GH?U?H?E?H??H???=??2H?E?H??H??H?E?H??H???"??H?E?H???H?E?H??????UH??H?? H?}??u??E??M??}??
?E?H??H???H?H??H
????E??XE?fH~????E??\E?fH~????E??YE?fH~????E??^E?fH~???E?f.fOz"?E?f.WOu?E??Y?fH~???E?H?E?f(?fHn?蘧??fH~??d?E??^E?fH~?fHn?????fH~??D?E??~ ?NfW?fH~??,?E?H?U?H?E?f(?fHn?H???6?fH~??H?`NfHn???UH??H??H?}??u?H?U?H?M?L??x???dH?%(H?E?1??}? t.?}? ??
?}??}????
?E???????
H?E??@<????H??t H?E?H?H?E??H?M?H?E??H??H???W???tyH?E??@<????H??t H?E?H?H?E??H?M?H?E??H??H??????t;H??x???H?E?H?M?H?U??u?H?E?H??????H?U?H?H?E??@?
??
???
H?E??@<uH?E???E??%H?E??@<??H?E?H?f???H*??E?H?E??@<uH?E???E??!H?E??@<uaH?E?H?f???H*??E?H??x???H?E??E?H?M??U?H?E?f(?fHn???H???????fH~?H?U?H?H?E??@?
?-
??#
H?E??@<uMH?E??@<uAH??x???H?E?H?E?H?H?E?H??u?H?E?H???\???H?U?H?H?E??@?
??H?E??@<uH?E???E??%H?E??@<??H?E?H?f???H*??E?H?E??@<uH?E???E??!H?E??@<u^H?E?H?f???H*??E?H??x???H?E??E?H?MȋU?H?E?f(?fHn???H??????fH~?H?U?H?H?E??@?
??H?U?dH+%(t?????UH??H??0H?}??u?H?U?H?M?L?E?H?}?H?M?H?U?u?H?E?I??H????????u#?E????H?M?H?U?H?u?H?E?A??H???+???UH??}??E???
H?H??????????t?E???0? ?E??? ??W]?UH??H?}?H?E?H??<-uH?E?H?H?P
H?E?H??
?%H?E?H??<+uH?E?H?H?P
H?E?H??]?UH??H??0H?}?H?u??U?dH?%(H?E?1??}?xuH?U?H?E?H??H???VfH~??H?U?H?E?H??H????UfH~?H?U?H?H?E?H9E?u??FH?E?H??
H?E?H?E??????
H?H?}????????u?H?E????uH?E???H?U?dH+%(t????UH??H??
H??????H??????dH?%(H?E?1?H??????H??H??H???YH?????H?????tH???????? ??????????????nu ??
?????H??????H??????H??H??????H?????H???????H???????.H???dVH?????H?????tH??????H????WH=?v ??H??????H?? ???H??H???LW?i?H?H?????H+???????? ????????H??????H?? ???H??H???????H?????H?????t"H?? ???H?????H)?H??????H
?H?????H?????H?U?dH+%(t?s???UH??SH??0H?}?H?u?H?E??E?
?H?E?H??
H?E?H?E??????
H?H?[????????u?H?E?H????????E?H?E??<0?
H?E?H??
????? ??uH?M?H?E??H??H???=Z?H?M?H?E??H??H???QZ???UH??H?ĀH?}?H?u?H?U?H?M?L?E?H?E?H?@0H?U?H)?H?U?H?E?H?@H?E?H?E?H?E?H?E?H?E?H?E?H?U?H?H?H?E??PH?E??PH?E?H??H?E?H?E?H?E?H?E?H?U?H?H?H?E??PH?EЈPH?E?H?? H?E?H?E?H?E?H?E?H?U?H?H?H?E??PH?E??PH?E?H?@H?P0H?E?H?PH?E?H?@ ?@>???? ??uH?M?H?E??
H??H???Y?H?M?H?E??
H??H???(YH?E?H?P0H?E?H
?H?E?H?E?H?E?H?E?H?@H?P?H?E?H?PH?E?H?@H?E?H?E?H?U?H?H?H?E??PH?E??PH?E??@???????UH??H??@H?}?H?u?H?U?H?M?D?E̋U?H?M?H?E?H??H???k???H?E?H?E??@??????u?U?H?M?H?E?H??H???????H?E?H?E??@??????u??????H?}?H?M?H?U?H?u?H?E?I??H?????????UH??H??0H?}?H?u?H?U?H?M?D?E܋}?H?M?H?U?H?u?H?E?A??H???*???????H?????}?w?}? s?^?}?uXH?E??@??????u*H?E??@??????uH?U?H?M?H?E?H??H???,???H?U?H?u?H?E?H? ??H???????H?U?H?u?H?E?H? ??H?????????UH??H?? H?}?H?E?H?@H?? H?E?H?E?H??H??H?u?H?U?H?E?A?H??H??H???J???????H??tH?E?H??H??H?M?H?E?H??H??????????UH??H??0H?}?H?u?H?U?M?L?E?D?M??}?t ?}?H?M?H?U?H?u?H?E?A??H???w?????}?H?M?H?U?H?u?H?E?A??H???W??????UH??H??`H?}?H?u?H?U??M?L?E?D?M?dH?%(H?E?1?H?E?H?E?H?E?H?U?H?H?E??@D?E?H?}??M?H?U?H?u?H?E?E??I??H???,????H?E?dH+%(t????UH??H??0H?}?H?u?H?U؉M?H?E?H?H?}?H?U?H?u?H?E?A??H????????E??}?x?}?
t?E?????t?
???H?U?H?M?H?E?H??H????????UH??H??`H?}?H?u??U??M?D?E?D?M?dH?%(H?E?1??}?t#H?E?H?E?f???*E?H?E??H?E??@?H?E?H?EЋE?Hc?H?E?H?H?E??@?}?tH?E?H?E?H?E?H?E??H?E?H?EȋM?H?U?H?u?H?E?H???????H?U?dH+%(t?????UH??H??PH?}ȉu?H?U?H?M?H?E?H?PH?E?H?H)?H??H????
?E؋E?+EĉE?H?E??U܉P,H?E?H?P(H?E?H?@H)?H??H??H??H?E??@????
H?H9?????H??t!H?E??@???H
H?EȺ
??H???VAH?E?H?@H?HH?U?H?JH?E?H?E?H?H?E?H?E?H?U?H?H?H?E??PH?E??P?E?
?iH?E?H?@H?HH?U?H?JH?E?H?E?H??U?Hc?H??H
?H?E?H?E?H?U?H?H?H?E??PH?E??PH?E?H??U?Hc?H??H
??@?E?
?E?;E?~?H?E?H??U?Hc?H??
H??H
?H?E?H?H?E?H?@?U?Hc?H??
H??H
?H?E?H?P???UH??H??@H?}?H?u?H?UȉM?H?EЋ@,?E?}????E?E?H?E?H?P(H?E?H?@H)?H??H??H?‹E?H?H9?????H??t??;H?U?H?E?H
?H??H?E?H?U?H?E?H??H?????????t H?E?H?E??H?E?H?E?H?E?H+E?H??
w?H?E???UH??H?? H?}?u?U??1?U?E?
???E??U?H?E?H??H????????t?E??E???E??E?E?+E??
wċE???UH??H??H?}?H?E?@?E?}????U?H?E?H??H???3????????}?
vk?E??
??H?E?H??H????????uPH?E?H???C?????t3?E?P??E??!Ѕ?t!?E?P?H?E?PH?E??@ ?Ȁ??H?E?P ?E??
???=
?U?H?E?H????????E?H?E?H?????????t1H?E?H???Y?????;E?sH?E?U??PH?E??@ ?Ȁ??H?E?P ?E???H?E??@ ????H?E?PH?E?@??
!Ѕ?tr?E??
??H?E?H??H????????t?E??H?E?H????????E?U?H?E?H??H?????????t*H?E?H?U?H?E??H???????E?H?E?U??P?E??DH?E??@ ????@??u?E??
??H?E?H??H???u?????t?E???U?H?E?H??H?????????UH??H??PH?}ȉu?H?U??}?t]?}????}????}???H?E?H?E?H?E?H?@H??
H?E?H?U?H?E?H?H?E??@??@??H?E??P?H?E?H?E?H?EȺ#H? ?H??H??????H?E?H?U?H?E?H?H?E??@??@??H?EЈP?@H?E??@?6H?E?H?E?H?E?H?@H??H?E?H?E?H?U?H?H?H?E??PH?E??P?H?E?H?PH?E?H?P???UH??H??0H?}؉u?H?E?H?@XH??t*H?E?H?@X?Uԉ??H?E?H?@XH???
H???H?H?E?H?@H?E?U?H?E؉?H???Vz???E?H?E?H??
H?@XH??t`H?E?H??
H?BH?HH?JH?E?H?E?H?@H??H?E?H?E?H?U?H?H?H?E??PH?E??PH?E?H??
?Uԉ?H???&???H?E?H??
H??tH?E?H??
H?E?H?????}?UH??H??
H?????H?????H??????dH?%(H?E?1?H??????????????E?H?????H?@XH?? ???H?????H?? ???H?PXH?? ???H??H???0???uH??????H?????H?????H??H????H?? ???H?????H?PXH??????????????E?H?U?dH+%(t????UH??H?}?H?E?H?PH?E?H?@0H)?H?E?H?PH?E?H?P@H?E?H?@0H)?H?E?H?P@H?E?H?@8H?E??'H?E?H?PH?E?H?@0H)?H?E?H?PH?E?H?@H?E?H?}?u?H?E?H?@ H?E??@H?E?H?PH?E?H?@0H)?H?E?H?PH?E?H?H?E?H?@0H)?H?E?H?H?E?H?@H?E?H?}?u???]?UH??H?}?H?E?H?P0H?E?H?@H
?H?E?H?PH?E?H?P0H?E?H?@@H
?H?E?H?P@H?E?H?@8H?E??*H?E?H?P0H?E?H?@H
?H??H?E?H?PH?E?H?@H?E?H?}?u?H?E?H?@ H?E??]H?E?H?P0H?E?H?@H
?H?E?H?PH?E?H?P0H?E?H?H
?H?E?H?H?E??@>??????uH?E??@(
H?E?H?@H?E?H?}?u???]?UH??H??0H?}؉uԉU?H?E?H?P(H?E?H?@0H)?H??H???E?H?E?H?@?@u???E?H?E?H???????H?E?H?@?@u
?Eԃ?H?H??H???E???H?H??H??H?E?H?p0H?E?H???}K??H?E?H?E?H?@?U?PuH?}?????H??t*H?E?H???T????}?tH?EؾH????????kH?E?H?U?H?P0H?E?H??????H?E?H?@0?U?Hc?H??H
?H?E?H?P(?E????E???E?H?H??H??H?E?H
??@?E?
?Eԃ?9E?~ڸ
??UH??H?? H?}?u?U?H?E?H?P(H?E?H?@0H)?H??H???E??}?@B????H??t!?}?tH?E?H?????????}??Br?E?
??E?H?E?H?PH?E?H?@0H)?H??H???‹E?
ЉE??}?@B~?E?@B?E?;E?}?E??E?}?@B????H??t?U??M?H?E??H????????:?U?H?E?CH????????}?tH?E?H???H??H?Ǹ???????UH??H?}?H?E?H?@H?E?H?E?H?@ H?E??&H?E?H?@H9E?sH?E?H?@H?E?H?E?H?@H?E?H?}?u?H?E?H?@0H?U?H)?H??H????
?E?}??E??E?]?UH??H?? H?}?H?E?H???k????E?}??U??
?
???@B?E??}?@BMH?E?H?P(H?E?H?@0H)?H??H??9E?}.?}? ??E?
???@B?E??M?H?E???H??????H?E?H????k?????UH??H??H?}?H?E?H?P(H?E?H?@H)?H??????H??tH?E??
?
H??????H?E?H?@H?PH?E?H?P???UH??H???H??8?????4?????0?????,???D??(???dH?%(H?E?1?H??8???H???H??P???H??P????IH??8????@???6DžL???H??8???H?@ H??X???H??8???H?PH??8???H?@0H)?H??`???H??X???H?PH??8???H?@0H)?H??h?????4?????p?????0????E?H??X???H?E???(???t0??L???
??,?????H??X???f?P8??(?????H??X???f?P:H??X????@>??????u1H??8???H?PH??X???H?@H9?sH??X???H?PH??8???H?PH??8???H?P(H??8???H?@H)?H??@
????H??tH??8????
?H???????H??X???H?PH??8???H?@H@
H9?sH??8???H?@H??@
H??X???H?PH??8????@H??X????@>?‹?L??? Љ?H??X???f?P>H??p???H??8???H??P???H??H????H??8????@
H??8???H?P0H??h???H
?H??X???H?PH??8???H?P0H??`???H
?H??8???H?PH??X????@>?‹?L?????!Љ?H??X???f?P>?H?E?dH+%(t蛉??UH??H?? H?}?H?u?H?E?ǀ?H?E苀???
??tuH?E??@>???????E?H?E?H?H?H?@H?E?H?E?H?@ H?PH?E?H?P H?E??@ ?Ћu?H?E?A?й
?????H??????H?E?H?@ H?P?H?E?H?P ???UH??H??@H?}?H?uЉU?H?E؋????????H?E?H?@?U?Hc?H??H??H
?H?E??E?H?E??@>??????u>H?E?H?H?H?@H?E?H?E??@????
??tH?EЋP,H?E??@ ??
Ѓ?
?E?H?E?H??U?Hc?H??H
?H?E?H?H?E?H?H?U?H)?H??H?????E?M̋U?H?E?A?ȉѺ?????
H??????H?E?H??U?Hc?H??H??H
?H?E?H?H?E?H?@H?E?H?E??@>??????u1H?E?H?P H?E?H?H?H?@H?@@H)?H??H???P?H?E؉?????UH??H??PH?}?H?u?H?E?H?P(H?E?H?@H)?H??????H??tH?E?H?@ ??f?P>H?E?H?@ ?U??P8H?u?H?E??
?????H??????H?E?H?E?H?@ ?P>H?E?H?@ ???f?P>H?E??????t@H?E?H?@0H?U?H)?H?U?H?E?H?H ?U?H?E?H??H???????H?E?H?P0H?E?H
?H?E??????+E??E??}??u?E??E??H?E?H?@?U?Hc?H??H??H
?H?E?E?;E?~?E??E??E??O?E?H?H??H??H?E?H
?H?E??E?H?H??H??H?E?H
?H?E?H?E?H?U?H?H?H?E??PH?E??P?E?
?E?;E?|???E?H?H??H??H?E?H
??@?E?
?E?;E?|݋E?H?H??H??H?E?H
?H?E?H?P??UH??H??0H?}?H?u??U?H?E??@H?E?H?U?H?PH?E???UH??H??@H?}?H?uЉU?H?M?H?E?H?P(H?E?H?@H)?H??@
????H??t?? ??H?E?f?P>?E?H?H??H??H?E?H
?H?E?H?P?????? H?U?H?E?H??H??????H?E??E?
??????UH??H??PH?}?H?u??U?H?E??@???????&t??&??
??tV??t-?x
H?E?H?H?H?U?H?u?H?E?H????????l
H?E?H??U?H?u?H?E?H?????????H
H?E?H?H?@H?E?H?E?H?@H+E?H????
?E?H?E??@ ???E?H?E??@???E?H?E?H?P(H?E?H?@H)?H??H??H?‹E?H?H9?????H??tH?U?H?E?H??H???T2H?E苀?+E؉?H?E艐????UH??H?? H?}?H?u??U?U?H?u?H?E??
H??????????UH??H?? H?}?H?u??U?U?H?u?H?E??

H?????????UH??H?? H?}?H?u?H?E??@>f?? ?????E?}?????H??t ?E?
?~H?E?H?P0H?E??@8H?H
?H?E?H?E??@>??
??H?E?P?U?H?u?H?E?
H??躂??H?E?H?U??M?H?E??H???|???H?E?H??????H?E??@>????H?E?f?P>H?E??@>????H?E?f?P>H?E?H?P(H?E?H????E???UH??H?? H?}?H?u?H?E??@>??%??tH?E??@8?E??~?E?
H?E??@>??????tH?U?H?E?H??H???????E?H?E?H?@ H?PH?E?H?@H9?sH?E?H?@ H?U?H?RH?PH?E?L?@ H?E?H?P0?M?H?E??H??A?ЉE??U?H?M?H?E?H??H???a??????UH??H?? H?}?H?u??FH?E??@>??????tH?U?H?E?H??H???????H?E?H???,H?U?H?E?H??H????/H?E?H?@ H?E?H?E?H??`H9E?u?????UH??H?}?H?E?H?@ H?E??$H?E??@>??????tH?E??H?E?H?@H?E?H?}?uո]?UH??H??0H?}?H?u??U?H?E?H?@?U?Hc?H??H??H
?H?E?H?PH?E?H?@H?E?H?U?H?E?H??H???#???H?E?H?U?H?E?H?H?E??@??@??H?E??PH?E?H?@H?PH?E?H?P???UH??H??0H?}?H?u?H?EЋ?E?H?E?H?@?U?Hc?H??H??H
?H?E?H?E?H?@ H?E?H?E??@ ??u#H?E?H?p?H?Eع?????H???-????H?E??@ H?E??@>??????u5H?E?H?@ H?P?H?E?H?P H?E?H?U?H?PH?U?H?E?H??H???".?DH?E?H?@ H??t!H?E?H?H H?E?H?P0H?Eؾ
H???щE?U?H?M?H?E?H??H??? ???H?EؾH?????????UH??H?? H?}?u??IH?E?H?U?H?P H?E??@>???‹E??? Љ?H?E?f?P>H?E?H? O???H??H???????E?}?
~H?E?H??????H?E?H?}?u??E???UH??H??0H?}?H?u??U?H?M?H?E??@ ??uH?E?H?P H?E?H??`H9?t?U?H?E?H? ?H??H???????
H?E?H?PH?E?H?@ H?H??H)?H??H??H?‹E?H?H9?uH?U?H?E?H? ȓH??H???@????N
H?E??@ <
t?U?H?E?H? ??H??H???????$
H?}?tH?E????????H?U艂?H?E苀???=?v?U?H?E?H? ?|H??H????????H?E苀??P
H?E艐?H?U?H?E?H? $???H??H???F????E??U?H?E??H???????E??}?
????H??u9?E???H?E?P H?E?H?P?M?H?E??H???????H?E?H?@ H?U?H?RH?P?}?
u H?E?H?@ ?@8?!H?E?H?PH?E?H?@ H?H??H)?H??H??H?UЉ?E???UH??H?}?H?E????=??????]?UH??H??0H?}?u?H?U?H?M?H?E?H?@ H?E?H?E苀?=??????H??tKH?E?H?@H??
H9E?tH?E?H??H??H?Ǹ?+o??H?E?H?#?H??H?Ǹ?o??H?E??@
H?E??U?P8H?E??@>??????t6H?E?H?U?H?P H?E?H?@ H??tH?E?H?U?H?P0H?E?
H?????????UH??H?? H?}?H?u?H?E?H?E?H?E??PH?E?H?0H?E?H???z{?????UH??H??PH?}?H?u??U?dH?%(H?E?1?H?E?H?@ H?E?H?E??@?E?H?E?H?P0H?E?H
?H?E??E??E?H?U?H?E?H? e???H??H????????E??}?????H??t?E?H?U?dH+%(t ?H?E?H?U?H?P H?E??U׈P??s??UH??H??PH?}?H?u?H?U?H?M?L?E?H?E?H?@ H?E?H?E??@?E?H?E?H???H?E?H?E?H?U?H???H?U?H?M?H?E?H??H???L????E?}?????H??t\H?E?H?U?H?P H?E??U?P?U?H?M?H?E?H??H???????E?H?E?H?P0H?E?H
‹M?H?E؉?H???????H?E?H???]???H?E?H?U?H????E???UH??H?? H?}?H?u?H?U?H?E????H?E???H????H??u1H?M?H?U?H?E?H?5ȏH?Ǹ?.???H?E??H???e??????UH??H??0H?}?H?u?H?E?H?E?H?E?H?@PH??t H?E?H?@P?H???H?E?H?E?H?H?H?H?H? H??tH?E?H?H?BH?H
H?J????H?E?H?H????(???E???9E?ud?E?H?E??BH????H??t ?E?
?H?M?H?E?H??H??H???????H?E?H?PXH?E?H?0?M?H?E?H????A??H?E??SH?M?H?E?H?ގH??H??????H?E?H?xXH?E?H?H H?E?H?PH?E?H?0D?E?H?E?E??I??H???4J??H?E?H?U?H?E?H??H???rq?????UH??H??H??x???H??p???H??h???H??`???dH?%(H?E?1?H??x????????
H??x??????H??p???H?E?H??h???H?E?H??`???H?E?H?E??E?H?E??E?H?E??E?H?E?H?E?H??x???H???H??x???H?PH??x???H?@0H??H)?H?U?H??x???I??H?5????H???_????E?H?U?H?u?H??x????H???i,??H?E?H?E??E?Hc?H??H
?H
?H??H??H?M?H??x???H??H???*???E?Hc?H??H
?H
?H??H??H?M?H??x???H??H???d*???E?Hc?H??H
?H
?H??H??H?M?H??x???H??H???8*??H??x??????????H??x???????E?H?U?dH+%(t??n??UH??H??0H?}?H?u?H?E??@??????t??mH?E?H?H?E?H?E??@??xH?E??@H??H?E?H?E?H???H?E?H?@H?E?H?E?H?@H?E?H?U?H?E?H??H??????H?U?H??
H9???????UH??H??0H?}?H?u?dH?%(H?E?1?H?E??@<uH?E?H?f???H*?H?E???
?GH?U?H?E?H??H??? ?????t+?E?<uH?E?f???H*???E?H?E???
??H?U?dH+%(t?m??UH??H??(?E?H?}??u?H?E?fHn??]$??fH~?H?E??E?f.E?z?E?f.E?t)?}?u??W?}?u?M?????X??E??E?f/?r'??f/E?v?E??H,?H?E?H??
????UH??H??H?}?H?u??U?H?E??@<uH?E?H??M?H?U???H??fHn??????&H?E??@<uH?E?H?H?E?H??
????UH??H??@H?}?H?uЉU?dH?%(H?E?1?H?U?H?E?H??H???|?????tH?E?H?E؋U?H?M?H?E?H??H???C???H?U?dH+%(t?=l??UH??H??@H?}?H?u?H?U?H?M?L?E?dH?%(H?E?1?H?}?y???
H?M?H?E?H??H???B???????H?E??@<uH?E???E??H?U?H?E?H??H???Q?????????tH?M?H?E?H?F?H??H???b???E?f??f/?v!H?}?y?
?]H?E?H????????H?0?H?}?~?
?_??H?E??@<uH?E???E???H?U?H?E?H??H????????????H?H??tH?M?H??x???H?%?H??H????^???E?f??f.?z(f??f.?uH??x???H?ۅH??H?Ǹ?Yb???E?f??f/?v?M??E?f/?????M??E?f/?????t?
?mH??p???H?E??E?H?E??H?E??@H??p???H??H?E??E?H?E??H?E??@H??p???H?? H?E??E?H?E??H?E??@?H?U?dH+%(t?Wg??UH??H?}?H?E?H????E?H?E???E?H?E?H?? ??E??E??XE??E??E?f??f/?v?E?f/E???? ?E?f/E?????t H?E?H?? H?E?H?E??E???
??]?UH??H??@H?}?H?u?H?U?H?M?D?E??E??W
?}?0uUH?M?H?E?H??H???,???H?E?H?E??@??????????H????H?M?H?E?H??H??H????[??H?E?H?H?@ H??tBH?E?H?H?@ ?@ ????
??u)H?E?H?@H??
H?E?H?H?@ ?H???7?????H?E?H?}?uH?E??@??H?E??@??????u'H?}?H?M?H?U?H?u?H?E?I??H???????E̋E??vH?E?H?E?H?E??@?E?H?H??H??H?E?H
??@ ??H??H?E?H
?H?H?E?M?Hc?H??H??H?E??@ ???? ??tHH?E?U?Hc?H??H???@ ??????t(H?E?U?Hc?H??H??H??H?M?H?E?H??H???b?^
?}?;???}?9?J
?}?5wl?}????E??
??H??H??H?xH!?H???„???H??
H!?H???„?u/H? H!?H???????Y
?V?}?6??
?GH?E?H?@ H?????H???H??H??H?E?H
?H?E?H?E?H?@H?P?H?E?H?PH?E?H?@H?E?H?E?H?U?H?H?H?E??PH?E??P??
?E???H???H??H??H?E?H
?H?E?H?E?H?@H?P?H?E?H?PH?E?H?@H?E?H?E?H?U?H?H?H?E??PH?E??P?
H?E?H?@H???@<
t!H?E?H?@H???@??????t?
???E?H?E?H?@H?P?H?E?H?P?E?????
9E??
H?E?H?@ H?PH?E?H?P ?
H?E?H?@H??H?EȋE???%??E?H?E?H?P??E?H?H??H??H?E?H
?H)?H??H???E?H?E?H?? H?E?H?E?H?E?H?E?H?U?H?H?H?E??PH?EЈPH?E?H?P?H?E?H?P?U?H?E???H???x????lH?E?H?@ H?P?H?E?H?P ?V?E???H???H??H??H?E?H
?H?E?H?E??@8H?H??H??H?E?H
?H?E?H?PH?E?H?@ H?P?H?E?H?P ???
????UH??H???H??8???H??0???dH?%(H?E?1?H??8????????@???H??0???H?H?H??????H??????H?@H?@8H??????H??0???H?@ H????????@???????H??tH??8???H???>F????@???H??0???H?H??H????????@???????H??t4H??????H??8???H??H???F????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H???H????D?????H???H??H??H??????H
?H?E?H?E?H?EЋ?D?????H???H??H??H??????H
?H?E?H?E?H?U?H?H?H?E??PH?EЈP??@???????H??u?6??H??????H??8???H??H???E????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H???H?됋?D?????H???H??H??H??????H
?H?E???D?????-??H?H?E?H?E?H?E?H?E?H?U?H?H?E??@??@???????H??t4H??????H??8???H??H????D????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H???H???????D?????H???H??H??H??????H
?H?E???D?????-????d???H?E?H?E?f???*?d???H?E??H?E??@??@???????H??t4H??????H??8???H??H????C????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H???H????????D?????H???H??H??H??????H
?H?E???D?????H?H??H??H??????H
?H?E?H?E?H?E?H?E?H?E?H?E?H?U?H?H?H?E??PH?E??P??@???????H??t4H??????H??8???H??H????B????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H? ?H????????D?????H???H??H??H??????H
?H??`???H?????????H?H??H??H??????H
?H??h???H??????H??`???H??p???H??h???H??x???H??p???H??x???H?H?H??x????PH??p????P??@???????H??t4H??????H??8???H??H????A????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H???H????????D?????H???H??H??H??????H
?H??X???H??X????@
??@???????H??t4H??????H??8???H??H???%A????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H?9?H???????D?????H???H??H??H??????H
?H??P???H??P????@
H????????@???????H??t4H??????H??8???H??H???i@????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H?}?H??^?????D?????H???H??H??H??????H
?H??H???H??H????@??@???????H??t4H??????H??8???H??H????????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H???H???????D?????H???H??H??H??????H
?H????????D?????%???H???H??????H?PH???????@??H????P???H?????u׃?@???????H??t4H??????H??8???H??H????>????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H???H????????D?????H???H??H??H??????H
?H??0?????D?????%???`???H??0???H??8???H????????`???Hc?H??H??H?@H??@???H??8???H??@???H?H?H??@????PH??8????P??@???????H??t4H??????H??8???H??H???=????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H???H???????D?????H???H??H??H??????H
?H???????D???????H??????Hc?H??H??H?????H?????H?@H?? ???H?????H??(???H?? ???H??(???H?H?H??(????PH?? ????PH??????@????@??tSH??????@ ???? ??t>H?????H??@ ??????t&H?????H?H??H?????H??8???H??H???
.????@???????H??t4H??????H??8???H??H???9???H??????H?H???????@??@???????H??t4H??????H??8???H??H????????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H???H?銩????D?????H???H??H??H??????H
?H??`?????D?????H???H??H??H??????H
?H??h?????D?????H?H??H??H??????H
?H??p???H??h????@<????H??tH??h???H?H??x????
?#H??x???H??h????H??H???'???????????H??p????@<????H??tH??p???H?H?E?
? H?M?H??p????H??H???҃????????tAH??????H??`???H??x???H?U?H??x???H??H???_???H??x???H?H??x????@??@???????H??t4H??????H??8???H??H????????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H?ʜH?髧????D?????H???H??H??H??????H
?H??H???H??????H?????0?????D?????H???H??H??H??????H
?H??P?????D???????4?????0?????H???H??H??H??????H
?H??X???H??0???H??????H?P H??0???H?PH??8???H?PH??H?????4???H??X???H??P???H??8???A??H??????H??0????@(??@?????@???????H??t4H??????H??8???H??H???:?????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H?N?H??/?????D?????H???H??H??H??????H
?H??8???H??????H????? ?????D???????????$?????D???????(?????D???????
??,????? ?????H???H??H??H??????H
?H??@???H??0???H??????H?P H??0???H?PH??8???H?P??$???Hc?H??8???D??(???H??@?????,???H??8???E??I??H?????H??0????@(??@?????@???????H??t4H??????H??8???H??H????????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H?řH?馤????D?????H???H??H??H??????H
?H?? ???H??????H??????????D?????H???H??H??H??????H
?H??(?????D????????????D???????
????????????H???H??H??H??????H
?H??0???H??0???H??????H?P H??0???H?PH??8???H?PH?? ???D?????H??0????????H??(???H??8???E??I??H?????H??0????@(??@?????@???????H??t4H??????H??8???H??H????????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H?-?H???????D?????H???H??H??H??????H
?H????????D?????H???H??H??H??????H
?H?????H??????@<uFH?????H?H?????H??????H?????H?????H??H??H?????H?H??????@??H??????@<uH?????????????
?6H??????@<u"H?????H?f???H*????????
????t:H??????H????????????~ ?GfW?H??????H??????@?bH??0???H??????H?P H??0???H?PH??8???H?PH??????H?????H?????H??8???A?H?????H??0????@(??@?????@???????H??t4H??????H??8???H??H?????????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H? ?H???????D?????H???H??H??H??????H
?H????????D?????H???H??H??H??????H
?H??????H???????@<????H??tH??????H?H???????
?#H??????H???????H??H???{????????t2H??????H??????H??????H??H??H??????H?H???????@?bH??0???H??????H?P H??0???H?PH??8???H?PH??????H??????H??????H??8???A?H??????H??0????@(??@?????@???????H??t4H??????H??8???H??H???H???????????????????-???H?H??
H??H
?????H??0????@(??@?????@???????H??t4H??????H??8???H??H???~?????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H???H??s?????D?????H???H??H??H??????H
?H????????D?????H???H??H??H??????H
?H??????H???????@<uPH???????@<uAH??????H?H??????H??????H?H??????H??????H;???????????d????H???????@??????u7H???????@??????u!H??????H??????H??H????????d????^H??0???H??????H?P H??0???H?PH??8???H?PH??????H??????H??8???H??H???݀????d???H??0????@(??@?????D???????
9?d???t H???????>H???????????????????-???H?H??
H??H
?????H??0????@(??@?????@???????H??t4H??????H??8???H??H???I?????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H?]?H??>?????D?????H???H??H??H??????H
?H??`?????D?????H???H??H??H??????H
?H??h???H??`????@<uPH??h????@<uAH??`???H?H??p???H??h???H?H??x???H??p???H;?x?????????h????H??`????@??????u7H??h????@??????u!H??`???H??h???H??H???P~????h????^H??0???H??????H?P H??0???H?PH??8???H?PH??`???H??h???H??8???H??H???????h???H??0????@(??@?????D???????
9?h???t H???????>H???????????????????-???H?H??
H??H
?????H??0????@(??@?????@???????H??t4H??????H??8???H??H????????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H?(?H?? ?????D?????H???H??H??H??????H
?H??P?????D?????H???H??H??H??????H
?H??X???H??P???H??X???H?ƿ???????????D???????
9?????t H???????>H?????????????????????-???H?H??
H??H
?????H??0????@(??@?????@???????H??t4H??????H??8???H??H?????????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H?܆H?齑????D?????H???H??H??H??????H
?H??H?????D???????????????H??H????@<u#H??H???H???????H?H9???????l????NH??H????@<u5H??H????f???*?????f.????f.?E?????l???? Džl?????D???????
9?l???t H???????>H?????????????????????-???H?H??
H??H
?????H??0????@(??@?????@???????H??t4H??????H??8???H??H???.?????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H?B?H??#?????D?????H???H??H??H??????H
?H??0?????D???????????????H??0????@<u&H??0???H???????H?H9???????p?????H??0????@<uEH??0??????8???f???*???????@?????@???f/?8?????????p????}??D???????????H??0???H??????H?P H??0???H?PH??8???H?PH??0???????????????H??8???A?A?ȹH????????p???H??0????@(??@?????D???????
9?p???t H???????>H?????????????????????-???H?H??
H??H
?????H??0????@(??@?????@???????H??t4H??????H??8???H??H????????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H?"?H???????D?????H???H??H??H??????H
?H???????D???????????????H??????@<u&H?????H???????H?H9???????t?????H??????@<uEH???????? ???f???*???????(?????(???f/? ?????????t????}??D???????????H??0???H??????H?P H??0???H?PH??8???H?PH?????????????????H??8???A?A?ȹH???????t???H??0????@(??@?????D???????
9?t???t H???????>H?????????????????????-???H?H??
H??H
?????H??0????@(??@?????@???????H??t4H??????H??8???H??H?????????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H??H???????D?????H???H??H??H??????H
?H???????D???????????????H??????@<u&H?????H???????H?H9???????x?????H??????@<uEH???????????f???*???????????????f/??????????x????}??D???????????H??0???H??????H?P H??0???H?PH??8???H?PH?????????????????H??8???A?A?ȹ
H???
????x???H??0????@(??@?????D???????
9?x???t H???????>H?????????????????????-???H?H??
H??H
?????H??0????@(??@?????@???????H??t4H??????H??8???H??H?????????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H??~H??É????D?????H???H??H??H??????H
?H????????D???????????????H???????@<u&H??????H???????H?H9???????|?????H???????@<uEH?????????????f???*?????????????????f/???????????|????}??D???????????H??0???H??????H?P H??0???H?PH??8???H?PH??????????????????H??8???A?A?ȹ
H???b?????|???H??0????@(??@?????D???????
9?|???t H???????>H?????????????????????-???H?H??
H??H
?????H??0????@(??@?????@???????H??t4H??????H??8???H??H????????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H??|H?飇????D?????H???H??H??H??????H
?H??????H???????@<
tH???????@??????t?
??????????D???????
9?????t H???????>H?????????????????????-???H?H??
H??H
?????H??0????@(??@?????@???????H??t4H??????H??8???H??H???s?????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H??{H??h?????D?????H???H??H??H??????H
?H????????D?????H???H??H??H??????H
?H??????H???????@<
tH???????@??????u?
????
??
?‹?D???????
1Є?t H???????H??????H??????H??????H??????H??????H??????H?H?H???????PH???????PH?????????????????????-???H?H??
H??H
?????H??0????@(??@?????@???????H??t4H??????H??8???H??H?????????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H??yH?鿄????D?????H???H??H??H??????H
?H????????D?????%?????????D???????
????????????t$??????H?H??H??H??????H
?H??8???H?PH??0???H??????H?P ??????H??????H??8???H??H???HM??H??????H??????u$H??0????@(??@?????@???????H??tI?H??????H??0????C???H??????H??8???H??H???g?????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H?{xH??\?????D?????H???H??H??H??????H
?H????????D?????%?????????D?????????????????tH??0????P,??????
???????????????t&??????H?H??H??H??????H
?H??8???H?P?H??8???H?@H+?????H????????H??0???H??????H?P ??D???%???tH??????H??8???H??H??????????????????H??????H??0???H??8???A??H???I??????????????y需??H??0???H???????Hc?H??H??H
?H??0???H???????H??0???H??8???H??H???_F??H??0????@(??@??????D?????H???H??H??H??????H
?H????????D?????????
????????D?????????????????yH??8???H?@H+?????H????????H??0???H??????H?P ??D???%?????H??0??????????P8H??8???H?PH??0???H?@H9?sH??0???H?PH??8???H?PH??????H??8????
?????H??????H??0????@(??@?????@???????H??t;H??0???H?H??H????????D?????H???H??H??H??????H
?H????????????t2H??0???H?H??0????H,??????
?H?H??H??H
?H??0???H???????H?H??H??H??????H
?H??8???H?P??????H??0???H??8???H??H???zD??H??0????@(??@????H??8????????????H??tw??D?????H???H??H??H??????H
?H??????H??8???H??????H?PH??0???H??????H?P H??0???H??8????H??H????C??Dž@???
?H??0???H?PH??8???H?P H??????H?P?H??8???H?PH??0????@???????H??0???H?@H??0????{????D?????H???H??H??H??????H
?H??P???H??P???H???@<??H??P???H?H??X???H??X?????H??P???H??H?H??`???H??P???H?? H?H??h???H??P???H??p???H??X???H??
H??H??p???H?H??h???H??`???H
?H??h???H??P???H?? H??x???H??x???H??h???H???D?????H?H??H??H
??????,H??P???H???]????t??D?????H?H??H??H
?????H??0????@(??@?????@???????H??t4H??????H??8???H??H???W?????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H?kpH??L{????D?????H???H??H??H??????H
?H??H???H??0???H??????H?P H??0???H?PH??8???H?PH??H???H??8???H??H???QX????t??D?????H?H??
H??H
???????@???????H??t4H??????H??8???H??H???O?????@???H??0???H?H??H??????H??????H?PH?????????D?????D???????H??H?coH??Dz????D?????H???H??H??H??????H
?H??????H?E?H??????H??????H??0H??????H??????H??????H?H?H???????PH???????PH??????H??0H??????H??????H?? H??????H??????H??????H?H?H???????PH???????PH??????H?? H??????H?E?H?????H??????H?????H?H?H??????PH???????PH??0???H??????H?P H??0???H?PH??8???H?PH??????H?P H??8???H??H????E??E?H?U?H?E?H?@0H??H)?H?u?H?U?H?E?I??H?5????H??????E???H?E?H?@ H?E?H?E?H?U?H?P H?E?H?U?H?P0H?U?H?E?H?@0H)?H?E؉P8H?E?H???H?E?H?P(H?E?H?U?H???H?E??@>?????H?E??@?? Љ?H?E?f?P>H?E??@>????H?E?f?P>H?M??U?H?E?H??H?????H?E??@>????H?E?f?P>H?E?H?P(H?E?H????E??}?y-H?E?H?@ H?PH?E?H?@H9?sH?E?H?@ H?U?H?RH?P?E?H?U?dH+%(t?????UH??H??H?}?H?u?H?U?H?M?L??x???dH?%(H?E?1?H?}?uH?
?H?E?H?M?H?U?H?u?H?E?H???b???H??x???H?U?H?u?H?E?H??????E??}???H?E?H?@H??H?H?E?H?E??@ ????H?U?H?E?H??H???i???H?E?H?@ H?@H?E?H?E?H?E?H?E?H?U?H?H?H?E??PH?E??P?E?????@??tIH?E?H?@ ?@ ???? ??t3H?E??@ ??????t!H?E?H??H?E?H?@ H??H?E?H??H???u???E?H?U?dH+%(t蒆??UH??H??@H?}?H?u?H?UȉM?H?E?H?PH?E?H?@0H)?H?U?H?E?H?@H??H?E?H?E?H?H?p?}?H?M?H?U?H?E?A??H????b???E?H?E?H?P0H?E?H
?H?E?H?P?E???UH??H?}?H?E??@ ??]?UH??H??
H????????????H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?Dž???H??????H?@H??(???H??(????@v??????t ??????Dž0???Dž4???0H?EH??8???H??P???H??@????????? ?9??????H??H????H?H???H
???H??(????@v
?H??(????H???b??H??(????@v??H???????H???_?????H??(???H?@H?? ??????H??(???H?@%???????H??(????@v???????0?????/w#H??@?????0?????H
Ћ?0???????0????H??8???H?PH??8????H?H?? ???Dž???H??(????@vH?? ???H??(???H?@ H?? ???H??(???H?@ H+? ???H??H??(???H??H???ya??H??????H?@H?@ H??H??????H???F???Dž???
?????tH??(????@s<u Dž???
H??(?????????Pv?
H??(????@v????????????g
H??(????@t??u????????H???????
H????????-
H??(????@t??u????????H???????H???á??????0?????/w#H??@?????0?????H
Ћ?0???????0????H??8???H?PH??8???????????0?????/w#H??@?????0?????H
Ћ?0???????0????H??8???H?PH??8?????????H??(????????H??Dl???d???ɍ????????????x0????????H?E?H?PH?E?H??H???_???H?E??????????H???????H?E?????H???????E?P
H?E?????H???t????E?P
H?E??H???????
??U?H?E??H???x??????UH??H??H?}?H?u?H?U?H?E?H??H????????t`H?E???????H???????H??H?E?H? ??H??H?Ǹ????H?E???????????H??????H?E??????H????????H?E?H?@???t*H?E?H?HH?E?H?PH?E?H?5V?H?Ǹ?J????zH?E?H?@??H?Ǹ?????H??????H????H??@???H??(???H??H??????H??????H??????????tH??????H??H??H??????????P
?????H??@???H?? ?????H???1P?????????H??????H????H?E?dH+%(t?Dq??UH??H??H??h?????d???H??X???dH?%(H?E?1?H??p???H??h????H???O????u-H??X?????d???H??h???H?5;?H?Ǹ????H??p???H??h???H? *?H??H???(Y??H?E?H???H??H??????u>??d???
??d???u.H??x???H??X???H??h???H?5ېH?Ǹ?|?H??x???H??uFH??p???H??h???H??H?????????tH??h?????????H????????H?W?H??x???H??x???H??X?????d???H??h???I??H?5p?H?Ǹ??
H?U?dH+%(t?o??UH??H??0H?}?u?H?U؋M?H?E?H?????H???`??uH?E??????H???F???H?E??H?U?H?E??H??蹿????u H??H?E??%?U?H?E??H??薿????H?E??H??????H?E?H?M?H?U?H?E?H?5ӏH?Ǹ?????H?E?H?U??M?H?E??H????????UH??H??H?}??u?U??U?H?E???H??胿??H?‹M?H?E???H??????????UH??H??H??h?????d???dH?%(H?E?1?H??p?????d???H??h?????H???)M????tWH??p???H??h???H? '?H??H????V???E???~0?U?H??p???H?pDH??h?????H??H?5??H?Ǹ??????H??h???H??pH??H?Ǹ?????H?E?dH+%(t??m??UH??H???H??(???H?? ???H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?Dž0???Dž4???0H?EH??8???H??P???H??@???H??(????
H??????H??0???H?? ???H??(???H??H??????H??(????H??????H??(???H???5???H??H???dH+%(t??l??UH??H??0H?}?u?H?U??m??E??}?tH?E?
H????????
?tH?E?H???????H?}?t+?E????mH??H?U?H?E?H?5J?H?Ǹ?;?????E?????lH??H?E?H??H???????E?Hc?H?E?H??H??????????UH??H?? H?}?u?}?t#?hl???tH?E??H???????hH?ˌH?E?H?E??????H??u#??\????HH??H???H??L??H???Ե??????\????P
H??H?????H???Zw????ufH??`???H??H???H? oLH??H?Ǹ豄??H??`?????\????P
H??H?????H???v??H??h???H??H????
H??H???tq???Q??\????P
H??H?????H????????H??p???H??h?????H???????uH??H???H??蛀???
?;H??p???H??`???H??h???H??H???????u&??\????HH??H???H??K??H??跴????H??H?????H??????H??`????SH?????H????H?U?H?M?H??H???H??H??詀??H??H???H?8K?????H??????H??p???H?PDH??H???H? KH??H???l????U?H??H???H? KH??H???????U?H??H???H? ?JH??H???s???H?U?H??H???H? ?JH??H??????H??`????lH????H??t?U?H??H???H? ?JH??H???!???H??`????uH?????H??t`?E???H??H???H? ?JH??H????????E???H??H???H? rJH??H????????E???H??H???H? ZJH??H???????H??`????nH???g?H??t=H??x???H??H???H? *JH??H???0???H?U?H??H???H? JH??H??????H??`????rH????H??t@?E???H??H???H? ?IH??H???????E???H??H???H? ?IH??H???????H??`????tH??踎H??t ?E???H??H???H? ?IH??H??????H??`????LH????H??t H??h???H??H???H?oIH??H??????H??`????fH???F?H??t H??h???H??H???H?BIH??H????????
H?U?dH+%(t??"??UH??H???H??H???dH?%(H?E?1?H??T???H??H???H??H???g???H??`?????T????PH??H?????H??込????X?????T????P
H??H?????H????r????uS??T????P
H??H?????H???Or????X???H??H????H?????H??H??H???H??H????~???
?*
??T????P
H??H?????H???,?????\???H??p?????\???H??`?????H???????????H??t&??T????H
H??H???H??G??H???l????H??`???H??H????
H??H?????????X???H??p???H??`???H??H?????H??h???H??h???tWH??H???H??`????
H??H??? l??H??h???H??H???H??H????}??H??H????
?????H???fo????H??H???H???H{???
H?U?dH+%(t?? ??UH??H???H??H???dH?%(H?E?1?H??T???H??H???H??H???T???H??`?????T????P
H??H?????H??諺????X?????T????PH??H?????H??苺????\???H??p?????X???H??`?????H?????????????H??t&??T????H
H??H???H?KF??H???ˮ??????T????PH??H?????H????????T????PH??H?????H???l??H??`???H??H????
H??H???????H??`???H??H????
H??H???{j????\???H??p???H??`???H??H????
??H??h???H??h???uH??`????????H???k??H??h???H??H???H??H???|???
H?U?dH+%(t?"??UH??H?? H?}?u?H?E?H???,????E?H?E??
H??虶???}?t?U?H?E?
H???]?????U?H?E?
H???
???H?E?H?}?u??3H?U?H?E?H??H???Y{???E??Љ?H?E?
??H????l???E??
??UH??H??H?}?H?E??
H???3?????UH??H??H?}?H?E??H???.???H?E??H????????UH??H??0H?}?u?U?H?M؋U?H?E??H???&????E?M?H?E???H??蓵???U?M?H?E??H??迣??H?E?H?}?t3H?}?????H??u?M?H?E?H??C??H???X?????H?E؋U?H?E???UH??H?? H?}?H?E???
H???A???H?E?H?}?tH?U?H?E?H??H????}???H?E?H???w???
??UH??H?? H?}?dH?%(H?E?1?H?U?H?E?H?Ѻ?
H???????H?U?H?E?H?Ѻ?H??????H?E?
H???m????????H??uH?E?H?C?
H???b?????H?E?H???xm????????H??uH?E?H??B?H???*??????M?U?H?E?A?ȹ?
H???????H?U?dH+%(t?2??UH??H??H?}?H?u?H??AH?E??ع??H?????H?E?H????|??H?E??????H???ˁ????u}H?E??H?H??H???H?H?E?H??H???x??H?E??@0??xH?E??@0Hc?H?E?H??H???[v???H?E?H????u??H?E?A????H???g??????UH??H?? H?}?u??E?H?E?cH???X?H??t?M?
H?E?rH???>?H??t?M?H?E?lH???$?H??t?M??}?~?M??E???UH??}?H?u??E??E??
??t?E??P
?U?Hc?H?E?H
??c?E????t?E??P
?U?Hc?H?E?H
??r?E????t?E??P
?U?Hc?H?E?H
??l?E?Hc?H?E?H
??H?E?]?UH??H??@H?}?dH?%(H?E?1?H?U?H?E?H??H???????H?E?EԍP
H?Eȉ?H???j????,?EԍP
H?Eȉ?H???Wf??H?E??E??E??q?EԍHH?EȺ??H??????H?E??EԍH
H?EȺ??H???q????EԍHH?EȺ??H???D????E?H?l???H?E??U?H?E???H???!????E?H??>H?EȾع??H???h?????uPH?E?H???H??H???v??H?E?H????????H??蟆??H?EȾ????H???%i??H?EȾ????H???????H?M?H?EȺ
H??H???D???H?E?H???y??H?M?H?E?
H??H???c???EԍP
H?Eȉ?H????h??H?EȾ????H???????M܋U?H?u?H?E?H???????H?U?dH+%(t???UH??H??@H?}?dH?%(H?E?1?H?U?H?E?H??H??????H?E?H?E?H????????E?H?E?H??????H?E?H?}?uH?E?H???ur???
??H?????H9E?tH?E?H?|>H??H???t???H?T=H?EȾع??H???\{??H?M?H?EȺ
H??H??????H?E?H???yx??H?M?H?E?
H??H???b??H?EȾ????H???k}??H?EȺ?????????H????e??H?EȾ????H???c??H?U?E?H?։??`???H??H?E?H??H???t??H?E?H???????Hc?H?E?H??H????q???H?U?dH+%(t? ??UH??H??
H??????dH?%(H?E?1?H???H????
H?V=H???QH???H????FH???H????????H???HH??tH??????H?=H??H??节??u?H?U?dH+%(????H??????H?????H??H??????H??????A?H??<H??H??H???A?????u.H??????A?A????H???
?????tIH????????????H???c???H??H???H? q<H??H?Ǹ?wIH?{?H????EH???????H????a?????????UH??H??0H?}?dH?%(H?E?1?H?U?H?E?H??H??????H?E?E??H
H?Eغ??H???l??H?E?H?}?u.?E??P
H?E؉?H???{e????~?E??P
H?E؉?H????d??????H?E???UH??H?? H?}?H?E?H?39?
H??????H?E?H?E?H?@H?E?H?E?H?@H?U?H?E?H??????UH??H??H?}?H?E?H???????H?E?H????????UH??H??H?}?H?E??
H????a?????uH?E?H??8?ع??H????t??H?E?H????????UH??H?? H?}?H?E?H?v8?
H???)???H?E?H?E?H?@H??tH?E?H?H??tH?E?H??????????UH??H?? H?}?H?E?H?"8?
H???զ??H?E?H?E?H?H??????E?}?????H?E???H???Σ????UH??H?? H?}?H?E?H???0???H?E?H?E?H?H?E?H?u???H?PH?E???UH??H??0H?}?H?u?H?U?H?E?H??????H?E?H?U?H?E?H??H???7CH?U?H?H?E?H?H??????H??t-?k????H??H?U?H?E?H?5?7H?Ǹ???????UH??H??0H?}?H?Eغ?
H???????H?E?H?EعH?/1?H???6???H?E?H?E?H???????H?E?H?E?H?E?H?E?H???*?????????H??uH?E?H??2?H????????H?U?H?E?H??H???FBH?U?H?H?E?H?H??uH?U?H?EؾH???@?????
??UH??H?? H?}?H?E?H?46?
H??????H?E??=?H?E?????H??褢????UH??H??0H?}?H?Eغ?
H??????H?E?H?EعH?0?H??????H?E?H?E?H??????H?E?H?E??H?E?
H??輌??fH~?fHn??i???fH~?H?E?H?U?H?E?fHn?H???
????
??UH??H?? H?}?H?E?
H???D????tH?E?
H???????>H?E?
H???C???fH~?fHn??^???fH~?H?E?H?U?H?E?fHn?H???????
??UH??SH??(H?}?H?Eؾ
H???D??????H?EؾH????C??????H?Eغ?H???H??H?E?H?E?H??
H??
w=H?}?????H??uH?E?H?I?H???2?????H?EؾH???$M???~H?Eغ?
H???$H??H?H?}?H?E?H??H????L???QH?EؾH???-???fH~?H?Eؾ
H??????fH~?fHn?fHn?踧??fH~?H?U?fHn?H???_L???
H?]???UH??H?? H?}?H?E?
H????B????t.H?E?
H????=??H?E?H??NfHn?H??? L???H?E?
H??肊??fH~?H?E?f??f/E?vH?E?fHn?芡??fH~??H?E?fHn?????fH~?H?E?H?U?H?E?fHn?H???????E?f.E?z?E?f.E?t?E??\E?fH~??H?GNH?U?fHn?H???^K?????UH??H??H?}?H?E??
H???ȉ??fH~?fHn??-???fH~?H?U?fHn?H???K???
??UH??H?? H?}?H?E?
H??蟊??H?E?H?E?H??芊??H?E?H?U?H?E?H9?????H?E??H???|P???
??UH??SH??8H?}?H?EȾ
H???"???fH~?H?E?H?EȾH???\@????H?E?fHn?? ???fH~?H?E??H?EȾH???׈??fH~?H?E??E?f.kMz(?E?f.\MuH?E?fHn?蓤??fH~?H?E??j?E?f.????E?
?}?~?H?U?H?E?H??H???FC??H?U?H?E?H??H???3C?????UH??H??0H?}?H?Eؾ׹??H???A??H?E?H?Eؾ
H???8?????u$H?E?H??螝????H?E?H?E?H??????H?E??/H?Eؾ
H???-???H?E?H?Eغ?H??腂??H?E?H?u?H?M?H?U?H?E?H??????????UH??H?? H?}?H?E?? H???i??H?E?H?E?H????????H?u?H?E?H???v???H?E?????H???3??H?E?
H? ?H??H???k??????UH??H??H?}?H?EH?E???fHn?H??????H?E???H???#O??H?E??H? ?H??H??????H??DH?E?fHn?H???XA??H?E?H?G?????H???'T??H??DH?E?fHn?H???(A??H?E?H??????H????S??H?E?H????????H??H????????UH??H??0H?}?H?Eغ?
H???x??H?E?H?Eغ?H????w??H?E?H?U?H?M?H?E?H??H???????E?}?????H??t?
?LH?E?H????9??H?Eغ
?????H???-???}?
u H?D ?H?B H?U?H??H?????H?E??????H???_1??H?E?H?}?????H??tH?U?H?E?H? H??H?Ǹ?}l??H?M?H?U?H?u?H?E?I??H? ?H????????UH??SH??(H?}?u?H?U؃}?????H??tH?U?H?E?H??H????6????WH?E??????H???0??H??H?E??
H???0??H??H?U?H?E?I??H??H??H?5?H?Ǹ??k??H?]???UH??H?? H?}?H?E??
H???q??H?E?H?u?H?E?H?zH??H??H??????H?E?H?}?u?
?2H?M?H?E?H??H???????????H?U?H?E??H?????????UH??H??@H?}?H?u?H?U?H?u?H?E?H?YH??H???H???@???H?Eȸ-??H?Eȉ?H????CH?E?H?}?tvH?E?H+E?H??H?M?H?E?H??H???3??H?E?H?U?H?E?H? ?H??H?Ǹ?Q6??H?E?H?U?H?M?H?E?H??H???w????E?}?t?E??FH?E?H??
H?E?H?U?H?E?H? ?H??H?Ǹ??5??H?E?H?U?H?M?H?E?H??H???#?????UH??H?? H?}?H?E??
H??? p??H?E?H?u?H?E?H??
H??H?>H???????H?E?H?}?u?
?1H?U?H?M?H?E?H??H????????????H?U?H?E??H???C?????UH??H??0H?}?H?Eغ?
H???o??H?E?H?E?.H???UBH?E?H?}?u ???H?E?H+E?H??H?M?H?E?H??H???2??H?Eغ?????H????-??H??H?E?H??H??H?Y
H??????H?E?H?}?u?
?|H?U?H?M?H?E?H??H???????E?}?tD?}?tH?U?H?EؾH???T?????H?M?H?U?H?E?H?5?H?Ǹ?E4???
?H?U?H?E?H??H???3?????UH??H?? H?}?H?E??
H???dn??H?E?H?E?H???ع??H???9??H?U?H?E?????H???t9????u&H?U?H?E?H? ?H??H?Ǹ?3???
?H?E?H??H??H???w2?????UH??H??PH??????H??????dH?%(H?E?1?H??????H?J?׹??H????8????????H??tH??????H?0H??H?Ǹ?ag??H??????H??????H??H???v??Dž????
H??????H?H??H???+t????????Hc?H???????H???<;????????H??tsH???????????H??? !??H??????H??H??????H??????H???
t??H????????????H???\+??H??H??????H??????H?5{?H?Ǹ?f??H??????H??????H??H???1??H??????A????
H???"I??H???????????H???p$????toH???????????H????%????t%H???????????H???) ??H??????H???t???&H???????????H??? ??H??????H??H????????????
?????H?E?dH+%(t????UH??H?? H?}?H?E??
H???k??H?E?H?E?
H?????H?E?H? ??ع??H???6??H?U?H?E?H???6??H?E?????H???)????t ?
?*
H?E?????H???;??H?U?H?E?H??H???5???H?E?
?????H???#!??H?E?
H???"??H?E?????H???"??H?E?A???
?H???G??H?E?????H????"????tH?U?H?E?H????????H?E?????H?????H?U?H?E?H???5????u?????UH??H??H?}?H???H?E??ع??H??????H?E??
?H????8??H?E??H? {???H??H???/??H?E?H????????H???>??H?E??????H????B?????UH??H??H?}?H?E?H???g???H?^.H?E???fHn?H???V???H?E???H???b8??H?E??H? wH??H???M~??H?E?H???O???H?E?H?p?H??H???H?5u?H??????H?E?H???H??H?'?H?5c?H???z???H?E?H??H??H???,??H?E?H???????H???=??H?E?H?j??ع??H???~??H?E?H????????H????h???
H??h????<%tbH??????H??????H9?rH???????
H???e??H??H??h???H?P
H??h???H??????H??????H?J
H??????H
????H????????H???d??H??????H??h???
H?E?H??
H??x???H+?h???H??h???H??X???H??????H??h???H??p???H?U?H????????H????KH??????H??????H??????H
?H??????H??h???H;?x????????H??????H????d???
H?U?dH+%(t?b???UH??H??`H?}?dH?%(H?E?1?H?E??
H?????????ZKH?E??#
H?E???
H???\??H?E??
H???@??H?E??l?????H?5d?H???@????E?H?E??
?????H?5I?H??? ????E?H?E???????H?5/?H???????E?H?E???H?5?H????????E?H?E???H?5??H????????E?H?E???H?5??H???????E?H?E?H???H??H???-????E?H?E?H????=H?E?H?U?H?E?H??H???????H?}??uH?E?H???H??H?Ǹ??U???H?U?H?E?H??H??????
H?U?dH+%(t????UH??H?? H?}?H?E?
H???4???H?E?H?E?H??????H?E?H?U?H?E?H??H???b<fH~?H?U?fHn?H???????
??UH??H?? H?}?H?E???
H???[??H?E?H?E?H??sH??H????H???QY???E?E?H?H??H?|?H?U?H?։??C?H??H?E?H??H??????
??UH??H?? H?}?H?E?
H????????
uH?E?
H????????????E??H?E??
H????\???E?H?E?H????????tH?E?H???\???H?}?t ?E????5?????UH??H??H?}?H??H?E???fHn?H????w??H?E???H????)??H?E??H? AiH??H????o???
??UH??H?? H?}?dH?%(H?E?1?H?U?H?E?
H????Y??H?E?H??H?E?H??H???>???
H?U?dH+%(t?b???UH??H?}?H?u?H?}?~H?E??1H?}?u?
?#H?E?H??H9E?}?
?H?U?H?E?H
?H??
]?UH??H??0H?}?u?H?U?H?M?H?U؋M?H?E??H???[??H?E?H?E?H9E?~H?E??0H?}?xH?E??#H?E?H??H9E?}??H?U?H?E?H
?H??
??UH??SH??HH?}?dH?%(H?E?1?H?U?H?E??
H???X??H?E?H?]?H?E??H???Z??H??H???????H?E?H?U?H?E?H??H???????H??????H?E?H?E?H9E?r,H?E?H+E?H?P
H?E?H?H?H?E?H
?H?E?H??H???????H?E?H???H??H??????
H?U?dH+%(t???H?]???UH??H??`H??????dH?%(H?E?1?H??????H???????
H????W??H??????H??????H??????H??????H??H???Ha??H??????HDž?????:H??????H+?????H?P?H??????H
?H??????H??????H
???H??????
H??????H9?????r?H??????H??????H??H???_???
H?U?dH+%(t?Ⱦ??UH??H??`H??????dH?%(H?E?1?H??????H???????
H????V??H??????H??????H??????H??????H??H???S`??H??????HDž?????=H??????H??????H
???????x???H??????H??????H
ЉʈH??????
H??????H9?????r?H??????H??????H??H???^???
H?U?dH+%(t?н??UH??H??`H??????dH?%(H?E?1?H??????H???????
H????U??H??????H??????H??????H??????H??H???[_??H??????HDž?????=H??????H??????H
??????薹??H??????H??????H
ЉʈH??????
H??????H9?????r?H??????H??????H??H???]???
H?U?dH+%(t?ؼ??UH??H??H??????dH?%(H?E?1?H??????H???????
H????T??H??????H???????H???V??H??????H??????H??????H??H???H????T??H??????H??????H??????H??H??H???????
H??????H??????H
?H??????H9?????H??u4H??????H??????H?H???????????H??H9?????H??t?
????H??t#H??????H???H??H?Ǹ?M???
H??????H??????H??H??????H??
H??H??????H??H
?H??????H??????H??????H??????H??H???.]??H???????hH??????H??????H??????H??H???i.H??????H
?????H??????H??t.H??????H??????H??????H??H???/.H??????H
?????H??????H?P?H??????H??
?H??????H??????H??????H??H????-H??????H??????H??H???+[???
H?U?dH+%(t?c???UH??H??PH?}?dH?%(H?E?1?H?U?H?E??
H???tR??H?E?H?E??
?H???T??H?E?H?U?H?E?H??H??????H?E?H?M?H?U?H?E??H???????H?E?H?E?H9E?s ??H?E?H+E?H=???????H??tH?E?H??H??H?Ǹ?K???sH?E???H?E?‰?)Ѓ?
?E̋M?H?E?H?????H???P???E??1?E?Hc?H?E?H
?H?P?H?E?H
????H?E?H??H???????E?
?E?;E?|NjE?H?U?dH+%(t????UH??H??`H??????dH?%(H?E?1?H??????H??????????????????Hc?H??????H??????H??H???Z??H??????Dž????
?z??????H????????H???R??H??????H???????????H??u ??????H??????H?????H??? G??????????H?H?P?H??????H
?H?????????????
??????;??????t?????????Hc?H??????H??H???X???
H?U?dH+%(t????UH??H??0H?}?H?u?H?U?H?M?H?E?H?E?H?E????u!H?E??
H?E?H?PH?E?H??H???+Y??H?}?u9H?E?H??H????V??H?E?
?????H?????H?E?????H??????H?E?H?HH?U?H?E?H??H????U?????UH??H??PH??????dH?%(H?E?1?H???????H??? ????????H???????
H???C????uH???????
H???????u?
????????H??uH??????H????
H???PE????H???????
H???x??Dž??????????H??????H??????H?5x???H???/??H???????
H??????
H?U?dH+%(t?"???UH??H??0H?}؉u?dH?%(H?E?1??U?H?E؉?H???Q????u?U?H?E؉?H???????
?LH?U?M?H?E؉?H?????H?E?H?}?t'H?U?H?E?H??H??? ??H?U?H??
H9?u?
??H?U?dH+%(t?t???UH??SH??H?}?H?u?H?E?H???
??H?E?H???????tH?U?H?E?H????^????u?
????????H??tkH?E?????H???W????H?E??H?????H??H?E?????H???3????H?E??H?????H??H?E?H?PH?E?I??H?58?H?Ǹ??F??H?E?
?????H??????H?E?A???
?H???d)???H?]???UH??H?? H?}??u?H?U?H?E??
H????????t(H?E??H????????t?U?H?E???H???8???H?U?H?E?H??H???????
??UH??H??H?}?H?E?H????H???r?????UH??H??H?}?H?E?H?m??
H???L?????UH??H??H?}?H?E?H?M??H???&?????UH??H??H?}?H?E?H?-??H????????UH??H??H?}?H?E?H? ??H?????????UH??H??H?}?H?E?H????H????????UH??H??H?}?H?E?H????H????????UH??H??H?}?H?E?H????H???h?????UH??H??H?}??u?m?1?E?????H??uH?E??@$??9E?????H??t?
????H??u+H?E??U?Hc?H??H??H
?H??H?H???????H??t?
????H??t'?E?P
H?E?H?@H? ?H??H?Ǹ?:D????E???UH??H?? H?}?H?E??@$???E??m?
?+H?E?U?Hc?H??H??H
?H??H?H???u?E??)?m?
?}?y?H?E?H?@H???H??H?Ǹ??C????UH??H??H?}?H?u?H?E?H?P
H?U??????%t ??[tH??H?E?H?@H9E?????H??tH?E?H?@H?Y?H??H?Ǹ?ZC??H?E?H??
?H?E??<^uH?E?
H?E?H?@H9E?????H??tH?E?H?@H?.?H??H?Ǹ?C??H?E?H?P
H?U??<%uH?E?H?@H9E?sH?E?
H?E??<]u?H?E?H??
?H?E???UH??H?? ?}?u?E???ά??a??????H??H????H?H???H
????E?? ??a???????E????E?????E???E??0?? ?????E???E??!??]?????E???E??a???????E??m?E?????E??^?E????#???E??O?E??A???????E??;?E???s??E??,?E???ƫ?E???}??????E???E?;E???????E??a??v?}???????E???UH??H??0?}?H?u?H?U??E?
H?E?H??
?<^???E?H?E?
?H?E??<%u$H?E?
H?E???ЋE?։??_?????tb?E??zH?E?H??
?<-u:H?E?H??H;E?s,H?E?H?E?H?????9E?|(H?E????9E??E??1H?E????9E?u?E??H?E?
H?E?H;E??a????}???????UH??H??0H?}?H?u?H?U?H?M?H?E?H?@H9E?r??|H?E?????E?H?E??????[t2??[H??%t??.u>?
?JH?E?H??
??ЋE??։??a????.H?E?H?P?H?M؋E?H?Ή??????H?E????9E???????UH??H??0H?}?H?u?H?U?H?E?H?@H??
H9E?????H??tH?E?H?@H?V?H??H?Ǹ????H?E??H?E??8?t??uH?E?????E?H?E?H??
????E??E?
?6H?E????9E?u?m?
?}?uH?E?H??
?+H?E????9E?u?E?
H?E?
H?E?H?@H9E?r????UH??H??0H?}?H?u?H?U?H?M?H?E??H?E?
H?U?H?E?H?4H?M?H?U?H?E?H???0?????u??8H?E?H?P
H?M?H?E?H
?H?E?H??H???H?E?H?}?tH?E??H?m?
H?}?y????UH??H??0H?}?H?u?H?U?H?M?H?E?H?P
H?M?H?E?H??H???WH?E?H?}?tH?E??(H?M?H?U?H?u?H?E?H????????tH?E?
뱸??UH??H??0H?}?H?u?H?U؉M?H?E??@$???E?}?~H?E?H?@H???H??H?Ǹ??=??H?E?U?Hc?H??H??H
?H?PH?E?H??E?H?H?U?M?Hc?H??H??H
?H??H??E?P
H?E?P$H?U?H?M?H?E?H??H???m
H?E?H?}?uH?E??@$?P?H?E?P$H?E???UH??H??0H?}?H?u?H?U?H?E?H????????E?H?E?U?Hc?H??H??H
?H??H?H?U?H)?H?E?M?Hc?H??H??H
?H??H?H?U?H?M?H?E?H??H????H?E?H?}?u H?E?U?Hc?H??H??H
?H??H?????H?E???UH??H??0H?}?H?u??U܋U?H?E??H???????E?H?E?U?Hc?H??H??H
?H??H?H?E?H?E?H?@H+E?H;E?r@H?E?U?Hc?H??H??H
?H??H?H?U?H?M?H??H?????u H?U?H?E?H
?????UH??H??@H?}?H?u?H?U?H?E؋@ ?H?H?U؉J ??????H??t!H?E?H?@H???H??H?Ǹ?;???
?H?E?H?@H9E???H?E??????)????)?^??(t ??(?P??$????%???9H?E?H??
?<)u&H?E?H?PH?u?H?Eع????H??????H?E??HH?E?H?P
H?u?H?Eع????H???????H?E??"H?E?H?P
H?M?H?E?H??H??????H?E???H?E?H?P
H?E?H?@H9???
H?E?H?@H9E?uH?E???H?E???H?E?H??
?????ftY??f?b
??9??0?
?O
??b?F
H?E?H?PH?M?H?E?H??H???Q???H?E?H?}??
H?E?????H?E?H?E??<[????H??tH?E?H?@H???H??H?Ǹ??9??H?U?H?E?H??H???!???H?E?H?E?H?H9E?t H?E?H??
????E?H?E?H?P??E???H?M?H?Ή???????u1H?E?H?P?H?E????H?M?H?Ή????????t H?E?H?E??????H?E??=H?E?H??
???H?M?H?E?H??H??????H?E?H?}?tH?E???????N
??H
??
?H?U?H?E?H??H???F???H?E?H?M?H?U?H?u?H?E?H???K?????u?H?E??<*tH?E???H??H?Ǹ?6???DH?}??u=H?E?U?Hc?H??H??H
?H??H?H?E?H?H)?H??
H?E?H?@H??H???j???H?E???UH??H??@H?}؉u?H?U?H?M?dH?%(H?E?1?H?}?H?M?H?Uȋu?H?E?I??H??????H?E?H?}??tH?U?H?M?H?E?H?@H??H???
??t:?4
H?UЋM?H?E???H??????H?E?H?U?H?M?H?E?H??H???????
H?E??xH???.??H?E??U?H?E???H???0?????u8?M?H?E????H??????fH~?H?M?H?U?fHn?H??H????????E??_?M?H?E????H??????H?E?H??H9E?u H????H?Y?H?E?H?M?H?U?H?E?xH?Ǹ???E?H?E?H?P?E?H?H
?H?E?H?P????H?E?H?E?H;E?~ ??H?U?H?E?H)?H?U?H?}????wH?E?
H?E??H?E؉?H?????????u?
????????H??t7H?E?H?;?H??H?Ǹ?????=H?U?H?Eؾ
H???9???H?E?
H?E?H;E?|?H?U?H?Eؾ
H??????H?E???UH??H??H?}??u?U??U?H?E??
H????????U?H?E??
H?????????UH??H?? H?}?u?U?H?E?H???O?????u?U??u?H?E?
H??蹷???H?E?H??躳???E?P?H?E??H??観???E??P?H?E??H??蒳??H?E?A???
?H???s???H?E?????H???????E?H?E?????H??蚯???E???UH??H?? H?}?u?U??E?E??E???
?E??@?E???
9E?????H??tH?E?H???H??H?Ǹ? ???H?E?????H???2????E?
?U?H?E?
H??????H?E??????????H????????u??=?E?;E?????H??tH?E?H?N?H??H?Ǹ????H?E?????H????????m?
?U?H?E?
H??????H?E??????????H???7?????u??E?;E?s-H?E?????H???v????E??H??U?H?E??H????????E???U??M?H?E??H????????????UH??}?u?U?E?+E????E??E?3E?3E?U??4????ыU?E?
?
ȉE??E?]?UH??H??0H?}?u?U??M??o?U?H?E?
H???D????U?H?E?
H???0???H?E??????????H???H?????t?U??M?H?E??H????????H?E?????H???y????E?+E??
??E?+E??cv?}?u?U?E?
???E???U܋M??E?Ή???????E??U?H?E?
H???????U?H?E?
H??????H?E??????????H????????t?U?M?H?E??H???F????fH?E?????H???̬???U?H?E?
H???.???H?E??????????H???F?????t?U??M?H?E??H????????H?E?????H???w????E?+E???
?U?H?E?
H???????H?E?????H????????E???
??H?E?
H???????E??P??M?H?E??H???z????U??M?H?E??H???j????E??E?+E?‹E?+E?9?s0?E??x??U܋u?H?E?щ?H????????E?+E?E??E???
?E??*?E??p
?M܋U?H?E?H???????E?+E??E??E???
?E??E?+E???9E?sH?E?H??????E܋E?;E?????????
???UH??H?? H?}?H?E??
H???w???H?E?
H???? ??H?E?H?}?
??H?}????????H??uH?E?H????
H???f?????H?E?H?????????~H?E??H???-???H?E?H??贪??H?E???H?E??
H?????????UH??H??H?}?H??H?E???fHn?H?????H?E???H??????H?E??H? ?H??H??? ???
??UH??H?}?H?u?H?}?xH?E??#H?E?H??H9E?s??H?U?H?E?H
?H??
]?UH??H?}?H?u??U?H?E?????E??E??}?w?E??E???E??I?E?
?E?Hc?H?E?H
?????E??E?%?=?t ???E????‹E???? ЉE??e??E???@??u??E????ƋU?????
Љ???? E?}?#?E??x?E?H?H??H????9E?s??I?E?H?H
E?}?t"?}???w?}???v?}???w??H?}?t H?E??U?H?E?H??
]?UH??SH??XH?}?dH?%(H?E?1?H?E?H?U?H?E??
H??????H?E?H?]?H?E??
?H???????H??H???:???H?E?H?]?H?E?H???????H??????H??H??????H?E?H?E??H???f????E?H?}?~H?m?
H?E?H9E??
????????H??uH?E?H????H???T?????H?m?
H?E?H9E?????H??uH?E?H????H???"??????j?}?????H?M?H?U?H
щ¾H??????H?E?H?}?u*H?E?H???x???H?E?H?P
H?E?H??H???ѵ????3H?E?H+E?H?E?H?E?
H?E?H;E?~?H?U?H?E?H??H??蜵???
H?U?dH+%(t??ZH?]???UH??SH??XH?}?dH?%(H?E?1?H?U?H?E??
H???????H?E?H?]?H?E??
?H??? ???H??H???z???H?E?H?]?H?U?H?E??H???????H??H???R???H?E?H?E??H??詰???E?H?}?????H??uH?E?H?G??H????????H?E?H9E?????H??uH?E?H???H????????H?E?H;E?~ ???H?E?H+E?H=???~ H?E?H???H??H?Ǹ?????H?E؉?H?EЉ‰?)Ѓ?
?E??M?H?E?H?Ň??H???????E?H?U?H?E?H
?H?E?H?E?H??
H
E??]?}?????H?M?H?E?H??H???n???H?E?H?}?uH?E?H?P?H??H?Ǹ?????%?E???H?E?H??H??蝳???E?
H?E?H;E?r??E?H?U?dH+%(t?XH?]???UH??H?? H?}?u?U?H?E??H??????H?E???H9E?????H??u?M?H?E?H????H????????H?U?H?E?H? ??H??H?Ǹ???????UH??H??PH??????dH?%(H?E?1?H??????H???*???????????????
uH???????
H???9????oH??????H??????H??H???d???Dž????
?-??????H????????H???????H??????H????????????
??????;?????~?H??????H????????
H?U?dH+%(t?^W??UH??SH??HH?}?dH?%(H?E?1?H?U?H?E??
H???n???H?E?H?E??H???B???H?E?H?}?y H?E?H??
??
H?E?H?]?H?U?H?E??H???}???H??H???????H?E?H?}?~H?m?
H?E?H9E??
????????H??uH?E?H????H???G?????H?}?u4?H?m?
H?}???H?U?H?E?H
????%?=?t???H?U?H?E?H
????%?=?u H?E?H???H??H?Ǹ?;????H?}?y@?.H?m?
H?}?~H?U?H?E?H
????%?=?t?H?E?
H?}?yHH?}????H?m?
?'H?E?
H?U?H?E?H
????%?=?t?H?m?
H?}?~ H?E?H9E?|?H?}?uH?E?H?P
H?E?H??H???.????H?E?H??谯???
H?U?dH+%(t?DUH?]???UH??H??@H?}ȉu?dH?%(H?E?1?H?U?H?EȾ
H???N???H?E?H?EȺ?H???̪??H?E?H?E?H9E?s$?H?E?
H?U?H?E?H
????%?=?t?H?E?H9E?r ??H?U?H?E?H??U?H?E?H??H???????H?E?H?}?tH?E????%?=?uH?E?H???H??H?Ǹ?x????3H?E?H??
H??H?E?H??H????????Eԉ?H?E?H??H???????H?U?dH+%(t?T??UH??H??H?}?H?E??
H????????UH??H??H?}?H?E??H????????UH??H?? H?}?H?E?H???1????E?H?E??
H???????H?E?H?E????%?=?????H??uH?E?H????
H?????????}?t H?a????H?9???H?M?H??H??????H?E?
H??????H?E?H???̭?????UH??H??H?}?H?հH?E???fHn?H??????H?E???H???ٺ??H?E??H? A?H??H??????H?E??H? I?H??H??蒭??H?E?H?'??????H???ڿ???
??UH??H?? H?}?u?U?H?E?H??|?ع??H???@
??H?K?H?E??E?
??E?#E??t3H?E?H?PH?E?H?0H?E?
H???
??H?E?????H????E?#E??t4H?E?H?HH?E?H??H??議??H?E?H?H?E?????H??????H?E??e?H?E?H?H???m???H?E?????H???ӝ?????UH??H??H?}?H?u?H?}?u???????H?E??@H?H9E?~+H?E?H?HH?U?H?E?H?5(?H?Ǹ?%#?????????UH??SH??(H?}؉uԉU?H?}?u??????vH?E?H??????H???R????E?E?;E?tR?EЉ???H?ËE???r?H??H?E?H?P?Eԍp
H?E?I??I??H?щ?H?5??H?Ǹ?"???????H?]???UH??H??0H?}?H?u?H?}?uH????????H?E?H??
H?E?H?E؋@H?H9E?~0H?E?H?HH?U?H?E?H?5?H?Ǹ?"H???????H?E?H?P?H?E؋@H?E??@??tH?U?H?u?H?E??H???????H?U?H?M?H?E?H??H?????????UH??H?? H?}?H?u?H?U?H?}?t>H?E??@??tH?U?H?u?H?E??
H???7????H?U?H?M?H?E?H??H????????UH??H?}?H?}?u??H?E?H?@]?UH??H??H?}?H?}?t+H?E?H?@H??tH?E?H?@H???3H?E?H?@?
???UH??H???H??(???H?? ???H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H??(???H???q??uSDž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?? ???H??H???gmH??(???H?B?
?H??H???dH+%(t?'-??UH??H?}?H?}?u?
?H?E?H?@H??t?
??]?UH??H???H?????H?????H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H?????H???U???????Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??H???GlH??(???H?????H?H??(???H??H???Ј??H??(???H???1H?????H?H???3????
?H??H???dH+%(t??+??UH??H?? H?}?H?E?H????????
??uCH?E?H???0???H?E?H?E?H?H?U?H??H???N???H?E?H???*???H?E?H?H??跩???
???UH??H???}?H?C?H??eH??H?Ǹ?.???H?%?H?H??eH??H??????H? ?H?H???[??????UH??H??0H?}?H?Eغ?׹??H???ƀ???E?H?Eؾֹ??H???7???H?E?H?Eؾչ??H???"???H?E?H?E?H????c???~!H?;???H?ƿ??X?E??????E??}?
u\H?E?H?H?M?H??H???9?????u.H?E?H?A?A????????H???A?????t?
???E?}?uWH?E?H?H?U?H??H????????u.H?E?H?A?A????????H????????t?
???E?}?t0H?E?H???????H???y???H??H?E?H??H?Ǹ?|????E?Hc?H?E?H?H??H???7????
??UH??H???H?????H?????H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H?????u ??????!
Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??H????hH??(???H?????H??H???M???H?????H?H??(???H??H??????H?????H?H?????H??H???Ո??H?????H??H? /???H??H??????H?????H?A?A???
?H??????H?????H???????H????}????$???H??(???H???h-??$???H??H???dH+%(t?'??UH??H?? H?}?H?u?H?}?u ??????H?E?H??
H???B???H?E?H?H?U?H??H??????H?E?H?H?U?H??H???և??H?E?H??H? 3???H??H??????H?E?H?A?A???
?H??????H?E?H???????H????|???E??E???UH??H??@H?}?H?u?H?U?H?U?H?E?H??H????fH?E?H?E?H??H?7`H??H?L`H?Ǹ?_gH?E?H?U?H?E?H??H?Ǹ??????t"H?E?H???,H?E?H????+??????H?E?H?H??_H??H??讈??H?E?H??????H???v???E?}?ucH?E?H?A?A???
?H????????t5H?E?H???????H???|??H?E?H?U?H?E?H??H?Ǹ????H?E?H???H+H?E?H???<+???UH??SH??(H?}؉u?H?E?H??????H????u???E?E?;E?u??:?Eԉ??eH?ËE????dH??H?E?H??H?5?_H?Ǹ?%????????H?]???UH??H???H?????H?????H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H?????u ??Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H?????H??H???t?????,?????,???t??}?Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H?????H??H????????,?????,???t H??|?CH??????H?????????t H??|?"H?????H???????H???t??fH~??fHn?H??H???dH+%(t?'??UH??H???H?????H?????H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H?????u ??Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H?????H??H???o?????,?????,???t?
?;H??????
H????????t?
?H?????H??????H???t??????H??H???dH+%(t????UH??SH??8H?}?H?uЉU?H?}?u??????zH?E?H?H?U?H??H???&???H?E?H??????H???n???E?E?;E?t@?Ẻ??0]H?ËE???#]H??H?U?H?E?I??H?5BXH?Ǹ?O??????????H?]???UH??H??H?}?H?u?H?}?u??????*H?E?H?H?U?H??H?????H?E?H??????H???em????UH??H??H?}?H?u?H?}?u H???????TH?M?H?E??H??H?????????t H???????/H?E?H?H?U?H??H?????H?E?H???????H???jr????UH??H??H?}?H?u?H?}?u H??y?ZH?M?H?E??H??H???f?????t H??y?5H?E?H?H?U?H??H???~??H?E?H???????H???Sq??fH~??fHn???UH??H??H?}?H?u?H?}?u??RH?M?H?E??
H??H?????????t?
?/H?E?H?H?U?H??H???$~??H?E?H??????H???'r????????UH??H?? H?}?H?u?H?U?H?}?u??RH?M?H?E??H??H???q?????t??/H?E?H?H?U?H??H???}??H?E?H?H?U?????H????q?????UH??H??H?}?H?u?H?}?u??SH?M?H?E??H??H?????????t??0H?E?H?H?U?H??H???<}??H?E?H???????H???q?????UH??H??0H?}?H?}?u ??H??UH?E?H?E?H?@H??tH??UH?E?H?E?H??????H?E?H?E?H?PH?E؋HH?5?>H?Ǹ????H?? ???H??? H?????H?H??????????H?????H???H??(???H?????H?PH?????H?H?H??H???g??H??(???H?P
H?????H?H?H??H???C_??H?????H?H?H??=H??H????f??H?????H?H??????H???u??H?????H?H??H???wP???
?H??H???dH+%(t???UH??H??
H??????H??????H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1??(?H??????H??????f??@f?@ H??????H??????H?Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H??????H??H???BCH??????H?B??C;H??????H?BH??????H??H???dH+%(t????UH??H??@H?}?H?u?H?E?H???H?E?H?E?H?H??H????N??H?E?H?PH?E?H?H?H??H???e??H?E?H?H?H???N???E??E?H?E?H?H?H???\???~H?E?H?H??????H???HR??H?E?H??@????tH?E?H?H??H???>????OH?]???UH??SH??8H?}?H?u?H?}?u ?? H?E???
?E?H?E?H?PH?E?H?H?H??H???]T??H?E?H?H?H????=???EԋE?Hc?H?E?H??H???????H?E?H?E?
H?E?H?H?H????K???

H?E?H;E???H?M?H?EȺH??H????????tNH?E?H?H??????H???=??H?E?H?H?H???m=????tH?E?H?H??H???}=????!
H?E?H?H???????H????G??H?E?H?E?H?H??????H???<=??H?E?H?H?H????9??H?E?H?H?H???
9????tH?E?H?H??H???9???
?
H?E?H?H??????H???,C???????E?H?E?H?H??????H????8??H?E?H?H?H???8????tH?E?H?H??H???8???E??H?E?H?H??????H???8???E?
H?E?H?H??U??H????j??????????
?+H?ÿ?+H??H?E?H?HH?E?H?H?U?I??I??H?5(H?Ǹ?????H?E?H?H?H????7????tH?E?H?H??H????7???
H?]???UH??H??H?}?H?u?H?}?u??????JH?E?H?PH?E?H?H?H??H????M??H?E?H?H?U?H??H???????H?E?H?H??????H???;????UH??H?? H?}?H?u?H?}?u ??H?E?H?PH?E?H?H?H??H???_M??H?E?H?H?U?H??H??萲??H?M?H?E?H??H???g?????t??QH?E?H?H???????H???qA??H?E?H?E?H?H?H???6????tH?E?H?H??H???6??H?E???UH??H??0H?}?H?u?H?U?H?}?u ??H?E?H?PH?E?H?H?H??H???L??H?E?H?H?U?H??H???±??H?M?H?E?H??H????????t??PH?E?H?H?H?Uؾ????H???@??H?E?H?E?H?H?H????5????tH?E?H?H??H????5??H?E???UH??H?? H?}?H?u?H?}?uH???????H?E?H?PH?E?H?H?H??H????K??H?E?H?H?U?H??H???????H?M?H?E?H??H?????????t H???????QH?E?H?H???????H????>??H?E?H?E?H?H?H??? 5????tH?E?H?H??H???5??H?E???UH??H?? H?}?H?u?H?}?u ??E?H?E?H?PH?E?H?H?H??H????J??H?E?H?H?U?H??H???(???H?M?H?E?H??H?????????t ??E?WH?E?H?H???????H???j=??fH~?H?E?H?E?H?H?H???44????tH?E?H?H??H???D4???E???UH??H?? H?}?H?u?H?}?u ??H?E?H?PH?E?H?H?H??H???$J??H?E?H?H?U?H??H???U???H?M?H?E?
H??H???,?????t?
?PH?E?H?H??????H????=???????E?H?E?H?H?H???j3????tH?E?H?H??H???z3???E???UH??H??0H?}?H?u?H?U?H?}???H?U?H?E?H??H??????H?E?H?}?tH?U?H?M?H?E?H??H????H?E?H??
H?E?H?E?H?PH?E?H?H?H??H???I??f???H*M?fH~?H?E?H?H?fHn?H???A??H?E?H?H?H?U?H??H???0C??H?E?H?H??????H???R??H?E?H?H??H???2????UH??H??0H?}?H?u?H?U?H?M?H?}???H?U?H?E?H??H??????H?E?H?}?tH?U?H?M?H?E?H??H??? ?H?E?H??
H?E?H?E?H?PH?E?H?H?H??H???"H??f???H*M?fH~?H?E?H?H?fHn?H???@??H?U?H?E?H?H?H?M?H??H???u@??H?E?H?H??????H???Q??H?E?H?H??H???1????UH??H??0H?}?H?u?H?U?H?}???H?U?H?E?H??H???????H?E?H?}?tH?U?H?M?H?E?H??H???? ?H?E?H??
H?E?H?E?H?PH?E?H?H?H??H???-G??H?E?H?H?H?U?H??H???h???H?E?H?H?H?U?H??H???O???H?E?H?H??????H???P??H?E?H?H??H???0????UH??H??0H?}?H?u??E?H?}???H?U?H?E?H??H???????H?E?H?}?t!H?M?H?U?H?E?fHn?H??H??? ?H?E?H??
H?E?H?E?H?PH?E?H?H?H??H???CF??H?E?H?H?H?U?H??H???~>??H?E?H?H?H?U?fHn?H???>??H?E?H?H??????H????O??H?E?H?H??H???/????UH??H??0H?}?H?u??ЈE?H?}???H?U?H?E?H??H???????H?E?H?}?t?U?H?M?H?E?H??H???B ?H?E?H??
H?E?H?E?H?PH?E?H?H?H??H???\E??H?E?H?H?H?U?H??H???=???U?H?E?H?H???H????B??H?E?H?H??????H????N??H?E?H?H??H????.????UH??H??
H?????H?????H?????H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H??????O
H?????H??
H?? ???Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??H????!H??(???H?????H?H??(???H??H?H?57H?Ǹ????H??(???H????H?????H?H???????????H?????H?PH?????H?H?H??H???C??H?????H?H?H?? ???H??H????;??H?????H?H?H??H??H???jC??H?????H?H??????H??? M??H?????H?H??H???-???
?H??H???dH+%(t????UH??H?? H?}?H?u?H?E?H?H???H???H??H?E?H?H?H??H??H???BL??H?E?H?PH?E?H?H?H??H???B??H?E?H?H?H???S,??H?H?E?H?E?
H?E?H?H?H???g:???H?E?H;E?|~H?E?H?H?H?bH??H???XB??H?E?H?P
H?E?H?H?H??H???:??H?E?H?H??????H???/??H?E?H?H??????H????K??H?E?H?H??????H????+??H?E?H?H??????H???+??H?E?
H?E???H?E?H?H???H????]?????:???H?E?H?H?H??H??H???A??H?E?H?H?H???:+??H?H?E?H?E?H?H?H???V9???yH?E?H?PH?E?H?H?H??H???SA??H?E?H?H??????H????.??H?E?H?H??????H???.??H?E?H?H??????H????J??H?E?H?H??????H????*??H?E???H?E?H?H???H???]?????e???H?E?H?H?H??H??H???@??H?E?H?H?H???8?????UH??H??0H?}?H?u?H?U?H?E?H??
H?E?H?U?H?E?H??H???W???H?E?H?PH?E?H?H?H??H???T@??H?E?H?H?H?U?H??H???8??H?E?H?H?H?U?H??H???z:??H?E?H?H??????H????I??H?E?H?H??H????)?????UH??H??0H?}?H?u??ЈE?H?E?H??
H?E?H?U?H?E?H??H??????H?E?H?PH?E?H?H?H??H??????H?E?H?H?H?U?H??H????7???U?H?E?H?H???H???A=??H?E?H?H??????H???(I??H?E?H?H??H???)?????UH??H??0H?}?H?u?H?U?H?E?H??
H?E?H?U?H?E?H??H???????H?E?H?PH?E?H?H?H??H????>??H?E?H?H?H?U?H??H???)7??H?E?H?H?H?U?H??H???7??H?E?H?H??????H???uH??H?E?H?H??H???i(?????UH??H??0H?}?H?u??E?H?E?H??
H?E?H?U?H?E?H??H???=???H?E?H?PH?E?H?H?H??H???:>??H?E?H?H?H?U?H??H???u6??H?E?H?H?H?U?fHn?H???6??H?E?H?H??????H???G??H?E?H?H??H???'?????UH??H??0H?}?H?u?H?U?H?E?H??
H?E?H?U?H?E?H??H??????H?E?H?PH?E?H?H?H??H???=??H?E?H?H?H?U?H??H????5??H?E?H?PH?E?H?H?H??H???O=??H?E?H?H??????H???G??H?E?H?H??H????&?????UH??H??0H?}?H?u?H?U?H?}??>?E?H?E?H???.GH??vH?E??<_uH?E?H??
?<_u?E?
H?E?H?PH?E?H?H?H??H?????H?E?H?PH?E?H?H?H??H???55??H?E?H?H?H?U?H??H???p-??H?E?H?H?H?U?H??H???5??H?E?H?H??????H???>??H?E?H?H??H?????H?E?H?@H?U?H??H???,H?E?H?}?t?H?E?H?????H?E?H?H?H???E????tH?E?H?H??H???U??H?E??H?E?H?H?U?H??H?Ǹ?????H?E?H?E?H?U?H?P H?E?H?@H?U?H??H???< H?E?H???L?H?E?H?H?H????????tH?E?H?H??H??????H?E???UH??SH??XH?}?H?u?H?}?u ???H?E?H??
H?E?H?E?H?PH?E?H?H?H??H???3??H?E?H?H?H???F??H?H?E?H?U?H?E?H??H??????H?E?H?E?
H?E?H?H?H???C+????
H?E?H;E???
H?M?H?E??H??H????????tNH?E?H?H??????H??????H?E?H?H?H???????tH?E?H?H??H???????? H?E?H?@H?U?H??H??H?Ǹ?H?E?H?E?H?H?H?U?H??H???m??H?E?H?/n??H?E?H?Ri??H??x???H?o??H?E?H?&i??H??p???H??u??H?E?H??v??H?E?H?wz??H?E?H??w??H?E?H?
y??H?E?H??{??H?E?H??o??H?E?H??h???H??p???H??x???H?H?XH?M?H?]?H?HH?XH?M?H?]?H?H H?X(H?M?H?]?H?H0H?X8H?M?H?]?H?H@H?XHH?M?H?]?H?HPH?XXH?M?H?]?H?H`H?XhH?U?H?PpH??h???H?]???UH??SH?? H??h???H??p?????H???H?H?????H??p???H????H?E?H?D???H?E?H?Z???H?E?H?????H?E?H????H?E?H?0???H?E?H????H??x???H?????H?E?H????H?E?H?o???H?E?H?????H?E?H??Eԃ?
H?H??虰H?E??E??7?U?H?E؉?H???d????E?E?Hc?H?E?H
‹E?H?H? B???E?
?E?;E?|??E?Hc?H?E?H
??H?E???UH??H??H?}?H?E?H??詭???UH??H??H?}?H?E?H???r?????UH??H??H?}?H?u?H?}?u??H?U?H?E?H??H????????UH??H??H?}?H?}?u??H?E?H???g?????UH??H???H??H???dH?%(H?E?1?H??`???H??H???H??H???*???t H???????H?E?H??X???H??X???H?U?dH+%(t?/???UH??H?? H?}?H?E?H???o H?E?d??H?E?H?U?H?E?H??H???dH???-H?E???UH??H?? H?}?H?E?H???*???H?E?H?E?H??????H?E?H?E???UH???f?E??E???t??'??
t??t?H????H????H?????]?UH??H??H?}?H?E?H?s?H??H???R??u??GH?E?H???H??H???1??u??&H?E?H?3?H??H?????u?
????????UH??H?? H?}??E???H?E?H?@?U?Hc?H??H
?H?H???H??H?????
??u5H?E?H?@?U?Hc?H??H
?H?H???H??H???x??
????H?E?H?@?U?Hc?H??H
?H?H???H??H???Q?H?E?H?E?H?@?U?Hc?H??H
?H?H?E?H? N?H??H?Ǹ???H?U??M?H?E??H???5H?E?H??胪?E?
H?E?9E?????????UH??H??@H?}?H?u?H?E?H???H? @?H??H???H?E?H?E?H???H??
?E?H?E?H???H??H???y??t?m?
??4H?E??E???H?E?H?@?U?Hc?H??H
?H?H?E?H?E?H?????E܋E܃?H?H???,?H?E??E?Hc?H?E?H
??H?U?H?E?H??H???FH?E?H???H?‹E?H?H)?H??
?E?Hc?H?E?H
?H?E?H??H???IH?E?H???H??H?????tH?E??????uH?E?H???$??H?U?H?E?H??H???g5H?E?H?????E?
H?Eȋ9E??????H?E?H????H?E???UH???o)]?UH??H?}?H?u?H?E?H?E?H?}?yH?E?H
E?H?E?H;E?| H???????H?}?y H???????H?E?]?UH??H?? H?}??E??dH?E?H?@?U?Hc?H??H
?H?H????
H?E?H?E?H?@?U?Hc?H??H
?H?H???)?H?E?H?@?U?Hc?H??H
?H?E?H??E?
H?E?9E?|?????UH??SH??(H?}?H?u?H?}?uH?E?H?????H?}?uH?E?H????H?E?H????H??H?E?H???H
?H??H????H?E?H?E?H??H??H??????uH?E?H???H??H??????t"H?M?H?U?H?E?H?5??H?Ǹ?W?? H?M?H?U?H?E?H?5??H?Ǹ?5?H?E?H?]???UH??H??@H?}?H?u?dH?%(H?E?1?H?M?H?u?H?H?VH?
H?QH?FH?AH?U?H?E?H??H?¾??H?H?E?H?E?H??H????H?E?H?E?H?p
H?M?H?U?H?E?H???IH?E?H?U?dH+%(t?Π??UH??H??0H?}?H?E?H???b ?E?E??H?H??謨H?E??E??E?H?E??H?U?H?E?H
???E?}?\t?}?/u?
???E?e?
?}?t?}?u=?}?t?E?Hc?H?E?H
??/?E?
?E?
??E??E?Hc?H?E?H
??E??E?
?
?H?E?
?E?H?H9E??r????E?Hc?H?E?H
??H?E???UH??H??@H?}?H?u?H?U?H?E?H+E?H?E?H?E?H??H??迧H?E?H?E??*H?U?H?E?H
?H??H?E?H
?H?M?H?U?H
???H?E?
H?E?H;E?|?H?U?H?E?H
??H?E???UH??H??H?}?H?u?H?}?tH?}?u??2H?E?H????H??H?M?H?E?H??H???E??u?
????UH??SH??H?}?H?u?H?E?H???H??H?E?H???H9?s??GH?E?H???oH??H?E?H???`H??H)?H?E?H
?H?E?H??H??? ??u?
??H?]???UH??H??@H?}?H?u?H?U?H?U?H?E?H??H???gH?E?H?E?H???? ?E?H?E?H???? ?E?H?E?H???? ?U?Hc?H
‹E?H?H)?H?B
H????H?E?H?E?H+E?H??H?M?H?E?H??H???H?E?H+E?H??H?E?H
?H?E?H??H??? ?E?Hc?H?E?H
?H?E?H+E?H???E?H?H
?H?E?H
?H??H???? H?E???UH??H??0H?}?H?u?H?U?H?E?H???! H??
H???r?H?E?H?U?H?E?H??H??? H?E??/H?U?H?M?H?E?H??H??????H?E?H?E?H??财H?E?H?E?H?U?H?E?H??H???H??u?H?E???UH??H??@H?}؉u?H?U?H?E?H??? ?E?H?E?H???y ?E?E?+Eԉ‹E?
Ѓ?H?H??蹤H?E?H?U?H?E?H??H?????E?+Eԃ?H?H??菤H?E??E?Hc?H?E?H
?H?E?H??H???H?U?H?E?H??H???CH?E?H???ڡH?E???UH??H???H?????H?????H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??H??????H??(???H?????tH?????H????H??(???H??H???dH+%(t?P???UH??H???H?????H??X???H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??H???'???H??(???H??(???H??H???dH+%(t?x???UH??H?}?H?u?H?U?H?M?L?E?H?U?H?E?H
?H9E?}??ZH?E??AH?U?H?E?H
???E?H?U?H?E?H
?H??H?E?H
???E??E?:E?t??H?E?
H?E?H;E?|??
]?UH??H??0H?}?H?u?H?E?H???|H?E?H?E?H???lH?E??E??0?E?Hc?H?M?H?U?H?u?H?E?I??H????????t?E?H???E?
?E?H?H9E??H????????UH??H?? H?}?H?u?H?E?H????H?E?H?}?uH?E??H??????E??E???E?Hc?H?E?H
???E?}?.u8?}?t?}?u?E?Hc?H?E?H??
H9?uH?E??H?+???E?
?h?}?0tF?}?1tC?}?2t@?}?3t=?}?4t:?}?5t7?}?6t4?}?7t1?}?8t.?}?9t+H?E??H????G?????????? ?? ??????
??E?
?E?H?H9E??4???H?E??
H?E?H???

fH~?fHn???UH??H??0H?}?H?E?H???Y?E?}??
?}?
uH?E?H????H?E?H???H?E??E???E?Hc?H?E?H
??<\t?E?Hc?H?E?H
??????uH?E?H???{???^
H?E?H????H?U?H?H?E?H?H???uH?E?H???E???(
H?E?H?H??u H?E?H???#?H?֖H???k??H?E??H???????uH?E?H????????H?E?H?H??
H???ӛH?E?H?E?H?H??H?U?H?E?H??H??
H?????E?}?H?E?H????H?E?H??????gH?E???E??!?E?Hc?H?E?H
????u H?E??
??E?
?E?Hc?H?E?H?H9?|?H?E?H?H??H?E?H
??H?E?H????H?E???UH??H??0H?}?dH?%(H?E?1?H?U?H?M?H?E?H??H???????H?E?H?}?u???E??tH?E?H???K???H?E?H?U?dH+%(t藒??UH??H?? H?}?H?u?dH?%(H?E?1?H?U?H?M?H?E?H??H???P???H?U?dH+%(t?K???UH??H??PH?}?H?u?H?U?H?E?H???b
?E܃}?uH?E?H???????}????H?E?H????H?E?H?E?H??
H?E??|H?U?H?E?H
??<\tH?U?H?E?H
?????UH??H??@H?}?dH?%(H?E?1?H?E?H???N????E؃}?
t?E??K
H?U?H?M?H?E?H??H???????H?E??E҄?tH?E?H???j?? ?
H?E?H???H??H???????tNH?E?H?j?H??H??????t4H?E?H?M?H??H??????tH?E?H?8?H??H???u???uH?E?H??????H?U?H?E?H? ?H??H?Ǹ?r??E܃}?uH?E?H??讔??Y?E??0?E?Hc?H?E?H
???EӀ}?.uH?E?H???y?? ?$?E?
?E?Hc?H?E?H9?|?H?E?H???S??H?U?dH+%(t襎??UH??H?? H?}?H?E?H???"?H?E?H?}?u H???????2?E???E?
H?E?H???/?H??u?H?E?H??????E??H???UH??}??}?
u H????p?}?u H?^??a?}??u H?V??R?}? u H????C?}?u H?ʐ?4?}?u H????%?}?u H?????}? u H????H???]?UH??H?ĀH?}?H?u??ЈE?dH?%(H?E?1?H?E?H????????E??}??u ???
?}?
uJH?U?H?M?H?E?H??H???L???H?E?H?U?H?M?H?E?H??H????????E?H?E?H???ƒ?E??z
?E???
??tH?E?H???
???H?E??
H????H?E?H?Eȋ?E?H?E?H?????E??E??IH?E?H?@?U?Hc?H??H
?H?H?U??M???H??????H?E?H?E?H???j???H?E?H???+??E?
?E?;E?|?H?E?H????!H?E??
H???P H?E??E??H?E?H?@?U?Hc?H??H
?H?H?U?H?M?H??H???#???H?E?H?E?H?@?U?Hc?H??H
?H?H?U??M???H??????H?E?H?U?H?M?H?E?H??H??????H?E?H???s?H?E?H???g??E?
H?EЋ9E??b???H?E?H???!?
H?U?dH+%(t蚋??UH??H??0H?}?H?u??ЈE??U?H?M?H?E?H??H???????E?H?E?H???M????E???UH??H??0H?}?H?u?dH?%(H?E?1?H?E?H??????H?E?H?}?uH?E??????H???????SH?E?????H?U?H?E?H? ??H??H?Ǹ?+??E?H?E?H???m??}?tH?E??H?E??????H??????H?U?dH+%(t觊??UH??H?? H?}?dH?%(H?E?1?H?U?H?E?H??H??? ???H?U?dH+%(t?c???UH??H??0H?}?H?u?dH?%(H?E?1?H?E?H???(???H?E?H?}?uH?E???????g??Z?]??E?H?U?H?E?H? njH??H?Ǹ?/??E?H?E?H???q??}?t?E??H?E?????????H?E?dH+%(t詉??UH??H?? H?}?dH?%(H?E?1?H?U?H?E?H??H??????H?E?dH+%(t?e???UH??H?? H?}?H?u?H?E?H???9???H?E?H?}?uH?E????????H?E?H?ދH??H??? ???tH?E?H???H??H??????uH?E?H???}??
?bH?E?H???H??H???????tH?E?H???H??H??????uH?E?H???6???H?E?H???#?H?E?????????UH??H?? H?}?dH?%(H?E?1?H?U?H?E?H??H???????H?U?dH+%(t?;???UH??H??@H?}?H?u?dH?%(H?E?1?H?E?H?E?H?E?H?E?H?U?H?E?H? ??H??H?Ǹ??H?U?H?E?H??H???????H?E?dH+%(t資??UH??H??@H?}??E?dH?%(H?E?1?H?E?H?E?H?E?H?E?H?U?H?E?fHn?H?)?H??H?Ǹ
??H?U?H?E?H??H???)????H?E?dH+%(t?%???UH??H??H?}????E?}?tH?E?H?=?H??H????????H?E?H???H??H??????????UH??H??H?}????E??U?H?E??
H??????UH??H??H?}????E??U?H?E??H??????UH??H??H?}????E??U?H?E??H?????UH??}??u??}?
u ?}?u?
?%?}?u ?}?u?
??}?u?
??]?UH??H??H?}?H?E?H??H?ԈH??H??????tH?E?H??H?t?H??H???????u?
????UH??SH??HH?}??u??ЈE???H?E??E?H?E?H???*?H?E?H?}??
H?E??Q
H?E?H???P?????t??H?E??@?ЋE??։???????????}???H?E?H?????H??H?E?H??H?????H
?H??H????H?E?H?E?H????H?P?H?E?H
??}???UH??H??0H?}?H?u?H?E?H??????H?E?H?}?uH?5zH?E?H?E?H???2???H?E?H?}?uH?zH?E?H?E?H?@H????|H?M?H?U?H?E?H??H??H?Ǹ?????H?E?H?E?H???C???H?U?H?BH?E?H???|???UH??H??@H?}?H?u?H?U?H?E?H???d???H?E?H?E?H?U?H?E?H??H???[?????t!H?E?H??H?ֳH?Ǹ?L???H?E??H?E?H??H?C?H?Ǹ?+???H?E?H?U?H?M?H?E?H??H???????H?E?H?U?H?E?H??H??????H?E?H????{H?E?H????{???UH??H?? H?}??E?H?E?H?@H?????E??E??*H?E?H?P?E?H?H
???E?}?/t?}?\u?E?
?E?
?E?;E?|΋E???UH??H??PH?}??u??U?H?E?H???|????E??}?u ??0
?E?HcЋE?H?H??H???F????E?E?HcЋE?H?H??H???-????E?}??t?}??u ???H?E?H???????H?E?H?E?H??????E??E??E??E??E??E?E??E??f?E?Hc?H?E?H
???Eπ}?/t?}?\u?E?
?=?E?;E?u?E̓?
??t ?E܉E??E?
?E??
9E?u?E΃?
??t ?E܉E??E?
?E?
?E?;E?|??E?HcЋE?Hc?H?E?H??H??????H?E?H?E?H?@H?U?H??H???K ??UH??H?}?u??E??E?E??'?E?Hc?H?E?H
???E??}?\t?}?/u?E?
?m?
?}?yӋE?]?UH??H??@H?}؉u?H?U?H?E?H????????E??E???
HcЋE?H?H??H???????E?}???7
H?E??}?~?E?P?H?EؾH???????H?E?H?E??E?;E?}?M?H?Eغ??????H??????H?E?H?E?H?}?t.H?}?t'H?M?H?U?H?E?H??H??H?Ǹ?????H?E?H?}?t*H?}?u#H?U?H?E?H??H?R?H?Ǹ?????H?E?H?}?u*H?}?t#H?U?H?E?H??H?!?H?Ǹ????H?E?H?}?uH?}?uH?E?H?E?H?U?H?E?H??H???????H?}?uH?}?tH?E?H???/x?
???UH??H??@H?}ȉuĉU?H?E?H???K????E܃}??
?E?HcЋE?H?H??H???????E??E?HcЋE?H?H??H???????E?}?????}????H?E??}?t?E??P?H?EȾH???9???H?E?E?H
H?EȺ??????H??????H?E?H?}?t?H?}?t8H?U?H?E?H??H???X???H?E?H?U?H?E?H??H???????H?E?H???/w?:H?}?tH?U?H?E?H??H??????H?}?tH?U?H?E?H??H?????????
???UH??H??0H?}?H?u?H?U?H?E?H???????H?E?H?U?H?E?H??H???;????E??}??t.?U?H?E???H????????
?E?H?U؋M?H?E??H????????
???UH??H??0H?}?H?u?H?U?H?E?H???W???H?E?H?U?H?E?H??H????????E??}??t+?U?H?E???H???7????E?H?U؋M?H?E??H???k????
???UH??H??0H?}?H?u?H?E?H???????H?E?H?U?H?E?H??H???`????E?}??tQ?U?H?E???H????????E?H?E?H??????‹E?
?H?E???H???????E?E?P??M?H?E؉?H???]????
???UH??H?????wH?E?H?E???
??wH??H?E?H?PH?E???UH??H?? H?}?H?u??E??4H?E?H?@?U?Hc?H??H
?H?H?U?H??H??????u?E???E?
H?E?9E?|????????UH??SH??8H?}؉u?H?U?H?E؋9E????}???H?E?H??????E?E??
Hc?H?E?H?@?M?Hc?H??H
?H?H?M?H?I?u?Hc?H??H?1H??H???N?H?H?E?H?@?U?Hc?H??H
?H??E?H?H
??H?E?H?@?U?Hc?H??H
?H?H?U?H??H??????H?]???UH??H??H?}?H?u?H?E????
H?H??H?E?H?@H??H???ĎH?U?H?BH?E?H?PH?E??H?H??H
?H?E?H?H?E???P
H?E?????UH??SH??H?}?H?u?H?E???
H?H??H?E?H?@H??H???U?H?U?H?BH?E?H?PH?E?H?H??H?H?E?H??? ?H?H?E??P
H?E??H?]???UH??H?? H?}?u?H?E?H?@?U?Hc?H??H
?H?H????r?E?E??9H?E?H?@?U?Hc?H??
H??H?H?E?H?@?U?Hc?H??H
?H?
H??E?
H?E???
9E?|?H?E??P?H?E????UH??H?? H?}?H?u??E??+H?E?H?@?U?Hc?H??H
?H?H?E?H??H???????E?
H?E??9E?|ʐ???UH??H?? H?}??E??$H?E?H?@?U?Hc?H??H
?H?H???k??E?
H?E?9E?|ѐ???UH??H??@H?}?H?u?dH?%(H?E?1?H?E?H?H?U?H??H???????fH~?H?E??Eք?t7H?E?H?H?U?H??H??????fH~?H?E??Eׄ?t?E??\E??,??)H?E?H?H?E?H?E?H?H?E?H?U?H?E?H??H?????H?U?dH+%(t?k??UH??H??H?}?H?E??Hc?H?E?H?@H? ???H?ѺH???B????UH??H?? H?}??v???H?E??E??+H?E?H?@?U?Hc?H??H
?H?H?E?H??H???????E?
H?E?9E?|?H?E???UH??H?? H?}?H?u?H?U?H?E?H??H???E???H?H?E?H?}??t$H?E?H???spH?E?H?@H?U?H??H
?H??H?U?H?E?H??H???2???H?E???UH??H?? H?}??E??$H?E?H?@?U?Hc?H??H
?H?H??? p?E?
H?E?9E?|?H?E?H?@H????oH?E?H????o???UH??H?}?H?EH?UH?E?H?U?H?E H?E??E???u?E?
?E??u?E??E??u?E??E??u?E??E???u?E??E??u?E?
H?M?H?E?H?U?H?
H?QH?E?H?AH?E?]?UH??H????qH?E?H?E???UH??H?ĀH?}???????H?E?H?}?u"H?E??H?E?H?%?H?PH?E??H?E?H???@
??u.H?E?H???h?H?E??
H?E?H???H?PH?E??hH?E?H?????E??E??0H?E??U??P?U?H?E???H????H?E?H?E?H???H??H????H?E?H?E?H???H??H???z?H?E?H?E?H???H??H???`?H?E?H?E?H???H??H???F?H?E?H?E?H???H??H???,?H?E?H?E?H???H??H????H?E?H?E?H???H??H?????H?E?H?E?H?y?H??H?????H?E?H?E?H?g?H??H?????H?E?H?E?H?T?H??H????H?E?H?E?H???
??u.H?E?H?????H?E??H?E?H?#?H?PH?E???H?}?t>H?E?H???T
??u.H?E?H????H?E??H?E?H??H?PH?E??H?}?t>H?E?H???
??u.H?E?H???b?H?E??H?E?H?̥H?PH?E??bH?}?t>H?E?H???
??u.H?E?H????H?E??H?E?H???H?PH?E??H?}?t>H?E?H???Z
??u.H?E?H?????H?E??H?E?H???H?PH?E???
H?}?t>H?E?H???
??u.H?E?H????H?E??H?E?H?u?H?PH?E??
H?}?t>H?E?H???{
??u.H?E?H???N?H?E??H?E?H?M?H?PH?E??N
H?}?t>H?E?H???
??u.H?E?H??? ?H?E??H?E?H? ?H?PH?E??
H?}?t>H?E?H????
??u.H?E?H?????H?E??H?E?H??H?PH?E???H?}???H?E?H????
????H?E?H???
??tIH?E?H????H???˾????E??}??uVH?E?H???I?H?E??H?E?H???H?PH?E??LH?E?H????H?E??H?E?H?i?H?PH?E??!?E?
?E?;E??????H?E?H??????UH??H?? H?}?H?E?H????H?E?H?E?H???????H?E?H?E?H????H?E???UH??H??H?}?H?}?tZH?E????H?
?H?Ǹ菠H?E??@??H??H?Ǹ?r?H?E?H?@H??H?ݣH?Ǹ?S??
???UH??H??H?}?H?}?tH?E?H???vi???UH??H?????kH?E???????H?U?H???????H?U?H?B?????H?U?H?BH?E???UH??H??H?}?H?X?H???^?H?E?H?H??????H?j?H???@?H?E?H?@H??????H?{?H???!?H?E?H?@H???q???H??eH???????UH??H??H?}?H?E?H?H???K???H?E?H?@H???;???H?E?H?@H???+???H?E?H???ah???UH??H??H?}?H?u?H?E?H?U?H?P8H?E?H?@0H??tH?E?H?@0H???%hH?E?H???W???H?U?H?B0???UH??H?ĀH?}?dH?%(H?E?1?H?u?H??H??H??H?EH?UH?
H?QH?E H?AH???????H?? ?X?-jH?E?H?E?H?Ƹ?H??H???H?H?E?H??????H?U?H??E???t?E?????H?E?H???e?E???u[H?E?H?@HH??tNH?E??@#
H?E?H??????H??H?E?H??H???????H?E?H?@@H???gH?E?H?@HH??貹??H?U?H?B@?E???
uH?E?H???gH?E?H?U?dH+%(t?Ba??UH??H?}?H?E?H?@H]?UH??H?}?H?E?H?@H]?UH??H??PH?}?H?E?H?H???L???H?E?f??)E?f?E??E?
?E?
H?u?H??H??H??H?E?H?U?H?
H?QH?E?H?AH???;???H?? H?E?H?E??P H?EЈP H?E??P"H?EЈP"H?E??P!H?EЈP!H?E?H?PH?E?H?PH?E?H???
H?E?H?}?tH?E?H????H??H?E?H?P(H?E?H?@@H??tH?E?H?@@H???~?H??H?E?H?P@H?E?H?@HH??tjH?E?H?@H??H???hH??H?E?H?PHH?E?H?@H??H?E?H?HHH?E?H?@HH??H????H?E??@"??
??tH?E?H?PHH?E?H?@H
??H?E???UH??H?? H?}?H?u?H?U?ȈE?H?E?H???H?E??U?P"H?E?H??H???ggH??H?E?H?PHH?U?H?E?H?@HH?M?H??H????H?E?H?U?H?P???UH??H??H?}?H?u?H?E?H????H??H?u?H?E??H???W???H?E?H?PHH?E?H?@H
?????UH??H?? H?}?H?u?H?U?H?U?H?u?H?E??
H?????????UH??H??H?}?H?E?H?@HH??u??HH?E?H?@(H??tH?E?H?@(H???dH?E?H?PH?E?H?@HH??H???[???H?U?H?B(H?E?H?@(??UH??H?? H?}?H???H????H?E?H?H???h???H?E?H?@HH??t H??`?H??`H??H???H?Ǹ?0?H?E??@!??t H??`?H??`H??H???H?Ǹ???H?E??@ ??t H?]`?H?Y`H??H?_?H?Ǹ?ʙH?E??@"??t H?*`?H?&`H??H?K?H?Ǹ藙H?E?H?@0H??t>H?E?H?@8H??H?0?H?Ǹ?k?H?E?H?@0H??H?6?H?Ǹ?L?H?E?H?@H??H?3?H?Ǹ?-?H?E?H???)???H?E?H?}?tH?E?H??H??H?Ǹ???H?E?H?@HH??t.H?E??@"??
??tH?E?H?@HH??H??H?Ǹ???H?E?H?@@H??tH?E?H?@@H??H?̝H?Ǹ蔘H?E??@"??tH?ƝH????H?E?@P????p???H?E?H?}?tH?E?H??H???H?Ǹ?D????UH??H??H?}?H?E?H?@HH??tH?E?H?@HH???_aH?E?H?@H???UH??H??H?}?H?E?H?H??tH?E?H?H??????H?E?H?@@H??tH?E?H?@@H???aH?E?H?@(H??tH?E?H?@(H????`H?E?H?@0H??tH?E?H?@0H????`H?E?H???>???H?E?H???`???UH??H??0H?}?f??)E?f?E??E?
?E?
H?u?H??H??H??H?E?H?U?H?
H?QH?E?H?AH???T???H?? ??UH??H??0H?}?f??)E?f?E??E??E?H?u?H??H??H??H?E?H?U?H?
H?QH?E?H?AH???????H?? ??UH??H?? H?}?H?E?H?H??????H?E?H?}?t^H?E?H???s?????
uPH?E?H???6???H?E?H?P"H?E?H?HH?E?H??H???????H?U?H?BHH?E?H?PH?E?H?PH?E??@
???
???UH??H?? H?}?u?H?E??@!??t??D?}?
uH?E??@P??,H?E?H?H???????H?E?H?E?H????H?E??@ ?
??UH??H??0H?}؉u?H?E??@!??t ??
?}?
uH?E??@P???H?E?H?@HH??uXH?E?H?H???i???H?E?H?E?H?H??????H?E?H?E?H???4????E?}??uH?}?tH?E?H???????
?H?E?H?H??????H?E?H?E?H?PH?E?H?HHH?E?H??H???Z???H?E?H?@@H???(^H?E?H?PH?E?H?@HH??H??聰??H?U?H?B@H?E??@
?????H??H?E?H??H???????
??UH??H??PH?}??u?H?E??@!??t ??
?}?
uH?E??@P
??
H?E?H?H???????Eπ}?tPH?E?H?@HH??uCH?E?H?H?H?E?H?E?H?H??????H?E?H?E?H?????H?E?H???o????
?2
?Eσ?
??tH?E?H?@HH??u ??
?E??}?tH?E?H?H?H?E?H?E?H?????E?
?Eσ?
??tIH?E??@#??t9H?E?H?@@H?E?H?E?H???z???H?E?H?U?H?E?H??H??????t ?E?
??E?
?}???H?E?H?H???1???H?E?H?E?H?PH?E?H?HHH?E?H??H???z???H?E?H?@@H???H\H?E?H?@HH???߮??H?U?H?B@H?E??@
??@???H??H?E?H??H???????
????UH??H??H?}?H?E??@!??t??bH?E??@P??uH?E??H???K????CH?E??@P??uH?E??H???????$H?E??@P??
uH?E??H??????????UH??SH??H??X???H??P???dH?%(H?E?1?H??P???H????H??p???H??p???u ??H??p???H???????H??x???H??x???tH??x???H???d?????ZH??p???H???D???d???Dž`??????`???H??p?????H????H?E?H?E?H?|H??H?????H?E?H?E?H??H??H????H?E?H?E?H?ؒH??H????H?E?H?E?H?ΒH??H????H?E?H?E?H?ΒH??H???i?H?E?H?E?H?ӒH??H???O?H?E?H?E?H?ƒH??H???5?H?E?H?E?H???H??H????H?E?H?E?H???H??H???
?H?E?H?E?H???H??H?????H?E?H?E?H?@ H???????H?E?H?}?t;H?E?H?H?H??tH?E?H?H?H???pYH?E?H?@ H?U?H?H????H?H?}?tRH?E??@
H?E?H?@ H???P?H?P
H?E?H?@@H??H???tH?U?H?B@H?E?H?P H?E?H?@@H??H??贿H?}?tH?E??@
H?E??@(Hc?H?E?H?PH?}?tH?E??@(Hc?H?E?H?P8H?}?tH?E??@(????H?E؈P"H?}?tH?E??@(Hc?H?E?H?PH?}?tiH?E??@"??tFH?E?H?@ H??h???H??H??跥??H?E?H??h???H?M?H?E?H??H???????H?E?H???9X?H?E?H?P H?E?H??H???d???H?}?t'H?E?H?@ H??tH?E?H?@ H???
?????H?E؉PPH?}?tH?EЋ@(????H?E؈P!H?U?H??X???H??H???K??`???
??`???;?d????????H??p???H???3??
H?U?dH+%(t??QH?]???UH??H?? H?}?H?u?H?E?H??輾??H?E?H?}?u??&H?U?H?E?H??H???????E?H?E?H???+W?E???UH??H??H??h???dH?%(H?E?1?H?u?H??H??H??H?EH?UH?
H?QH?E H?AH???????H?? ? ?H?E?Dž|????~?;?H?E?H??h???H?@??|???Hc?H??H
?H?H?E?H?E?H?H???6???H?E?H?}?uH?E?H?????!?E??uH?E??@!???H?E??@!??t#?
???H??H?E?H? ??H??H???S?H?E?H????H??H?E?H? ?zH??H???.??E???
H?E?H?H???????H?E?H?E?H?H???????H?E?H?E?H?H???c???H?E?H?E?H?H??? ???H?E?H?E?H?H?H9E?t+H?E?H?H?H????H??H?E?H? ɍH??H????H?E?H?????H??H?E?H? m?H??H???v?H?E?H????H??H?E?H? L?H??H???Q?H?E?H????H??H?E?H? buH??H???,?H?E?H???r?H??H?E?H? ?H??H?????E????H?E??@#????H?E?H?@@H???-?H??H?E?H? ??H??H?????H?E?H?@8f???H*?fH~?fHn??f?H??H?E?H? ??H??H????H?E?H?@f???H*?fH~?fHn??-?H??H?E?H? ??H??H???P?H?E?H?@0H????H??H?E?H? P?H??H???'??E???u{H?E?H?@HH??tnH?E?H??????H?E?H?E?H?@f???H*?fH~?fHn???H??H?E?H? N?H??H?????H?E?H????H??H?E?H? ߏH??H?????E????H?E?H?@HH????H?E??@"???????H??H?E?H? ?H??H???\?H?E??@"??
??t/H?E?H???6???H????H??H?E?H? ??H??H??? ??PH?E?H?PH?E?H?@HH??H??????H?E?H?E?H???E?H??H?E?H? v?H??H?????H?E?H???RH?E??@P????H???H?E?H?}?t%H?E?H?????H??H?E?H? :?H??H????H?U?H?E?H??H???A??
???|???
H??h????9?|????m???H?E?H????H?E??E???uH?E?H??? ?H?E?H??萫H?E?H?U?dH+%(t?JL??UH??H?? H?}?H?u?H?u?H??H??H??H?EH?UH?
H?QH?E H?AH???z???H?? H?E?H?U?H?E?H??H???޺??H?E?H???xQ???UH??H??0H?}?H?u?H?U??E??CH?E?H?@?U?Hc?H??H
?H?H?E?H?U?H?E?H?M?H??H???шE?}?tH?E???E?
H?E?9E?|????UH??H??0H?}?H?uи? H?E??E??IH?E?H?@?U?Hc?H??H
?H?H?E?H?E?H?U?H???҈E?}?tH?U?H?E?H??H???5 ?E?
H?E؋9E?|?H?E???UH??H??@H?}?H?u???H?E??E??TH?E?H?@?U?Hc?H??H
?H?H?E?H?E?H??????H?E?H?E?H?U?H????H?E?H?U?H?E?H??H????E?
H?Eȋ9E?|?H?E???UH??H??0H?}?H?u??E??_H?E?H?@?U?Hc?H??H
?H?H?E?H?E?H?H?E?H?E?H???????H?E?H?}?tH?U?H?E?H??H??????uH?E???E?
H?E؋9E?|????UH??H??0H?}?H?u??E??_H?E?H?@?U?Hc?H??H
?H?H?E?H?E?H?H?E?H?E?H???????H?E?H?}?tH?U?H?E?H??H???{???uH?E???E?
H?E؋9E?|????UH??H??`H?}?H?u??ЈE???A???H?E??E???H?E?H?@?U?Hc?H??H
?H?H?E?H?E?H?H?E?H?E?H???6???H?E?H?E?H??艵H?E?H?E?H?P?H?E?H
???EÀ}?/txH?U?H?E?H??H???K?????tbH?E?H???G??E??E?
?Ẽ?
?E???E?Hc?H?E?H
???????tH?U?H?E?H??H???r????E?
H?Eȋ9E?|??E???
??t)H?U?H?E?H??H??聝??H?E?H?E?H??????H?E??H?E???UH??H????5JH?E?H?E???
?JH??H?E?H?PH?E???UH??H??@H?}?H?uЉЈE̸????H?E??E??H?E?H?@?U?Hc?H??H
?H?H?E?H?E?H?H???????H?E?H?U?H?E?H??H???2?????t7?}?tH?U?H?E?H??H????Ẽ?
??tH?U?H?E?H??H????E?
H?E؋9E??p???H?E???UH??H??H?}?H?u?H?E???P
H?E??H?E??H?H??H?E?H?@H??H???saH?U?H?BH?E?H?PH?E??H?H??H??H
?H?E?H????UH??H?? H?}?H?u?H?E??P
H?E?H?E?H?H??H?E?H?@H??H???aH?U?H?BH?E?H???[???H?E?H?E?H?U?H?PH?E?H?PH?E?H?H??H??H
?H?E?H????UH??H?? H?}?u?H?E??P?H?E?H?E?H?@?U?Hc?H??H
?H?H???I????E?E??9H?E?H?@?U?Hc?H??
H??H?H?E?H?@?U?Hc?H??H
?H?
H??E?
H?E?9E?|?????UH??H??0H?}ظ?????H?E??E??H?E?H?@?U?Hc?H??H
?H?H?E?H?E??@P?E?H?E?H?H??????H?E??}?uH?E?H?H?U?H??H???&????H?E?H?E?H??胢H??H?E?H?H?E??U?PH?E???UH??H??H?}?H?E?H?H??H?xH?Ǹ?3rH?E??@??H??wH?Ǹ?r???UH??H??H?}?H?E?H?H????;H?E?H???3;???UH??H????=H?E???=H??H?E?H?H?E??@H?E???UH??H?? H?}?H?u??E??>H?E?H??U?Hc?H??H
?H?H?E?H?E?H?H?U?H??H???$???u?E???E?
H?E?@9E?|????????UH??H??0H?}?H?u??U?H?E?@??
H?H??H?E?H?H??H???6UH?U?H??U?H?E???H???S???H?E?H?E?H?H?E?@H?H??H
?H?E?H?H?E?@?P
H?E?P???UH??H?? H?}?u?H?E?@9E???H?E?H??U?Hc?H??H
?H?H?E?H?E?H???d????E?E??7H?E?H??U?Hc?H??
H??H?H?E?H??U?Hc?H??H
?H?
H??E?
H?E?@??
9E?|?H?E?@?P?H?E?P?
???UH??H?? H?}??E??:H?E?H??U?Hc?H??H
?H?H?E?H??uH???rpH?E?H???k????E?
H?E?@9E?|?????UH??H?? H?}??E??+H?E?H??U?Hc?H??H
?H?H?E?H?E?H???e????E?
H?E?@9E?|?H?E?H?H???8H?E?H???8???UH??SH?????:H?E?H?E?H?H?@??-???H?U?H?BH?E?H?uH?H?E?H?]???UH??SH??8H?}?H?u?H?E?H?@H?U?H??H??? ??????t ??
H?E?H??衊??H?E?H??tH?E?H?E?H?????H??H?E?H?H????H
?H?E?H???מH
?H??H???%:H?E?H?E?H?H?u?H?M?H?E?I??H?5QtH?Ǹ?pH?E?H???u7H?E躤
?BH?Ǹ?73?E?H?E?H???K7?}??u??D?EԾ????3???u?Eԉ??+???H?E?H?@?U?H?M?H??H???t????H?]???UH??H?? H?}?u?H?E?H?@H??U?Hc?H??H
?H?H?E?H?E??@????L3H?E??@??谷???UH??H?? H?}?H?u?H?E?H?@H?U?H??H???????E??}??t?U?H?E??H???m????
???UH??H??H?}?H?E?H?@H??????????UH??H?? H?}??E???U?H?E??H???#????E?
H?E?H?@?@9E?|?H?E?H?@H???????H?E?H????5???UH??H????H8H?E???3???H?U?H?H?E???UH??H??H?}?H?u?H?E?H?H?U?H??H???T?????UH??H??H?}?H?u?H?E?H?H?U?H??H??????????UH??H??H?}?H?E?H?H??????????UH??H??H?}?H?E?H?H???????H?E?H???!5???UH??H??PH?}??0?~7H?E?H?E?f??@@ H?E?H??qH?H?E?H?MH?P??@7H??H?E?H?PH?}?t)??,???H?U?H?B(H?E?H???_?H??H?E?H?PH?E???UH??H?? H?}?H?u??E??AH?E?H?@?U?Hc?H??H
?H?H?E?H?E?H?@H?U?H??H??趚??uH?E???E?
H?E?@ 9E?|????UH??H?? H?}?H?u?H?E?H???????H?E?H?E?@ ??
H?H??H?E?H?@H??H???NH?U?H?BH?E?H?PH?E?@ H?H??H
?H?E?H?H?E?@ ?P
H?E?P H?E???UH??H??H?}?H?u?H?E?H?@(H?U?H??H???ȿ?????UH??H?? H?}??E??$H?E?H?@?U?Hc?H??H
?H?H????????E?
H?E?@ 9E?|?H?E?H?@H???3H?E?H?@H??tH?E?H?@H????2H?E?H?@(H??tH?E?H?@(H??????H?E?H????2???UH??H??0? ?35H?E?H?E?f??@H?E?H?koH?H?E?H??JH?P???4H??H?E?H?PH?E???UH??H?? H?}?H?u??E??AH?E?H?@?U?Hc?H??H
?H?H?E?H?E?H?@H?U?H??H??蟘??uH?E???E?
H?E?@9E?|????UH??H?? H?}?H?u?H?E?H???????H?E?H?E?@??
H?H??H?E?H?@H??H???LH?U?H?BH?E?H?PH?E?@H?H??H
?H?E?H?H?E?@?P
H?E?PH?E???UH??H?? H?}??E??$H?E?H?@?U?Hc?H??H
?H?H????????E?
H?E?@9E?|?H?E?H?@H???+1H?E?H???1???UH??H??@?0?3H?E?H?E?f??@@ ??XH?U?H??见??H?U?H?B??????H?U?H?BH?E??@H?E???UH??H??H?}?H?E?H?H???)^H?E?H?@H???????H?E?H?@H???*???H?E?H?@ H??tH?E?H?@ H???U0H?E?H?@(H??tH?E?H?@(H???80H?E?H???,0???UH??H??H??x????p?2H?E?H?E?H?Ƹ?H??H???H?H??x???H??襖H??H?E?H?P H??x???H??苖H??H?E?H?P??GH?U?H?BhH?E??
H?E??@

H?E??@`
??l???H?U?H?BH?E???UH??H??
H??????H??????H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H??????H?????t ??H??????H????%H??????H???f??t ???H???????@N??t8H??????H?PH??????H??H?tk? H?Ǹ?O??Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H??????H??H???.???H??????H??????H?@hH??????H??H???FH??????H??????tH??????H????-H????????p?U0H??????H??????H?Ƹ?H??H???H?H???????@H??uH???????@HH???????@H??uH???????@HH???????@H??uH???????@HH???????@H??uH???????@HH???????H???????H???????P
H???????P
H??????H?PH??????H?PH??????H??????H?PH??????H?@ H??????H??H???????H??????H?B H??????H??腓H??H??????H?PH???????P`H???????P`??bDH??????H?BhH??????H?@0H??t>H??????H?@?@??
??t(H??????H?@0H??????H??H???????H??????H?B(H???????@H??u>H??????H?@H?@H??????H??????H?@(H??????H??H???o???H??????H?B(H??????H?@(H????H??????H?@?@??????H??????H?@?@
H???????@H
H??????H?ehH??H?Ǹ????H??????H?B8H??????H?@8?@HH??????H??CH??H?Ǹ?????H??????H?B@H??????H?@@?@HH??????H?@???????PH???????@`??tH??????H?@hH??????H??H????BH??????H????*H??????H??H???dH+%(t?.%??UH??H??
H?????H?????H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H?????H???? ??t ??
Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??H??????H?? ???H?????H?@hH?? ???H??H???KBH??(???H??(???tH?? ???H???)??
H??????@`?????H??????@`H?? ???H?????H? ?&H??H?Ǹ?????H??(???H??(?????????P`H???????????P`H??????@
??tH??(???H???9H??(???H???X???????????uDH??????@`??tH?????H?@hH??(???H??H????@H?? ???H????(H??(????2H??(???H???H??(???H???-H?? ???H???(?H??H???dH+%(t??"??UH??H?? H?}?H?}???H?E?H?@H?????E??}?tH?E?H?@H??????H?E?H?@0H??tH?E?H?@0H??????H?E?H?@hH???RAH?E?H?@PH??tH?E?H?@PH????'H?E?H?@ H????'H?E?H?@H????'H?E?H???'?
???UH??H??0H?}?H?u?H?E?H???-??t ???H?E?H?@ H???E???H?E?H?}?yH?E?H?E?H?}?t&H?M?H?U?H?E?H?5YdH?Ǹ?g???H?E??#H?U?H?E?H? B$H??H?Ǹ?B???H?E?H?U?H?E?H? ,$H??H?Ǹ?2???H?E?H?E?H????&H?E?H???i??t??H?}?tH?E?? H?E?
?K?????UH??H??@H?}?H?u?H?E?H???)??t ??5
?E???}??H?E?H?E?H???y??H?E?H?E??}?tOH?E?H?@H?@? H????w??H?E?H?M?H?U?H?E?H?5@cH?Ǹ?H???H?E?H?E?H???&?#H?U?H?E?H? $#H??H?Ǹ????H?E?H?E?H????%H?}?t$H?M?H?U?H?E?H?5JH?Ǹ?????H?E?H?U?H?E?H? ?"H??H?Ǹ?????H?E?H?E?H???%H?E?H?????t??H?}?tH?E?? ?E?
???????UH??H??@H?}?H?u?H?E?H??????t ??
?E???<|??H?E?H?E??}?tOH?E?H?@H?@? H???v??H?E?H?M?H?U?H?E?H?5?aH?Ǹ?????H?E?H?E?H???$?#H?U?H?E?H? ?!H??H?Ǹ?Ƃ??H?E?H?}?t$H?M?H?U?H?E?H?5?HH?Ǹ蛂??H?E?H?U?H?E?H? ?!H??H?Ǹ????H?E?H?E?H???<$H?E?H??????t??H?}?tH?E?? ?E?
???????UH??H??0H?}?H?u?H?E?H?????t ???H?E?H?E?H?@H?@?H???yu??H?E?H?U?H?E?H? ? H??H?Ǹ?ˁ??H?E?H?E?H???#H?}?t$H?M?H?U?H?E?H?5?GH?Ǹ蔁??H?E?H?U?H?E?H? ~ H??H?Ǹ????H?E?H?E?H???5#H?E?H?????t??H?}??0???H?E???UH??H??PH?}?dH?%(H?E?1?H?E?H???? ??
????H?E?H?@H?@H?@H?E?H?E?H?PH?E?H?@@H? ?H??H?Ǹ?&???H?E?H?U?H?M?H?E?H??H???H?E?H?U?H?E?H??H????t??H?E?H?U?H?E?H? ?H??H?Ǹ?????H?E?H?E?H??????uLH?E?H???+"H?E????t H?E?H?P H?E?H?@H?H??H??? O?H?E?H?@ H???K??????
?H?E?dH+%(t?A??UH??H??0H?}?H?E?H?@H?@H?@(H?E??E??cH?E?H?@(H?@?U?Hc?H??H
?H?H?E?H?U?H?E?H? ?H??H?Ǹ?????H?E?H?E?H???O???H?E?H????
??u?E?
H?E?H?@(?9E?|??
???UH??H?? H?}?H?E?H???
???I
H?E?@H??u6H?E?H?@?@?E?H?E?H?@?@
H?E?H??? ???H?E?H?@?U??PH?E?H???k??t6H?E?H?@?@?E?H?E?H?@?@
H?E?H??????H?E?H?@?U??PH?E?H???
????H?E?H?@?@??
??tMH?E?@H??t$H?E?@H??tH?E?@H??tH?E?@H??uH?E?H?S]?H?Ǹ??
H?E?H?????uCH?E????t H?E?H?P H?E?H?@H?H??H????L?H?E?H?@ H???(????????
???UH??H?? H?}?H?u?H?E?H???8??u1H?U?H?E?H? ?H??H?Ǹ? ???H?E?H?E?H????????
???UH??H??H?}?H?}?u?
?H?E?H?????u???
??UH??H?}?H?}?u??????H?E?H?@?@]?UH??H?}?H?}?u?? H?E?H?@H??u??H?E?H?@H?@ ]?UH??H?}?H?}?u H?\?H?E?H?@H?@(]?UH??H??H?}?H?E?H???/?????
??uYH?E?H?@H?@(H???H?E?H?@H?@(H?E?H?@H?@ H???^H?E?H?@H?@ H?E?H?@?@?
???UH??SH??
H??????????H??????H??X???L??`???L??h?????t#)?p???)M?)U?)]?)e?)m?)u?)}?dH?%(H??8???1?Dž ???Dž$???0H?EH??(???H??@???H??0???H?? ???H??????H??H???{v??H?????H?????H?@??????PH?????H?@ H?????H?ZH????H?C H?????H?P H?????H?XH?????H? ?ZH??H????y??H?C(H?????H????H??8???dH+%(t?ZH?]???UH??H?? H?}?H?u?H?E?H???_???????
H?E?H???^??t-H?E?H?PH?E?H??H?Z?H?Ǹ?S????G
H?E?H?@hH?E?H?E?H?@H??~-H?E?H?PH?E?H??H??Y? H?Ǹ? ????

H?E??@N
H?E?H?@ H????H?E?H?E?H?@ H???H?E?H?@H???H?E?H?@H??t#H?E?H?@H?@ H?U?H??H????s??H?U?H?B H?E?H?@H??uH?E?H??肂H??H?E?H?P H?E?H???k?H??H?E?H?PH?E????t$H?E?H?P H?E?H?@H?H?M?H??H???qG?H?E?H?H H?E??H??H???#???H?E?H???D?
???UH??H??0H?}?H?u?H?U?H?E?H????????u4H?E?H?q;H??H?Ǹ????H?E?H?U?H?E?H??H???????
???UH??H??H?}?H?E?H???^?????t??????H?E?H?P H?E?H?@H?@H??H?????????UH??H??H?}?H?E?H????????u!H?E?H?P H?E?H?@H?@H??H????????
???UH??H??H?}?H?E?H?????????uH?E?H?@H??H???iG?
???UH??H??H?}?H?E?H????????t H???????H?E?H?@ H??躅????UH??H??H?}?H?E?H???j?????t??H?E?H?@ ?H??蘍????UH??H??@H?}?dH?%(H?E?1?H?E?H???!?????t ??????N
H?E?H????H?E?H?@PH??uH?E?H?@ H????????
H?E?H?@XH??u ??
H?E??@M??t ? ??H?E?H???H?E?H?E?H??PH??H???y??tNH?E?H?H??H???_??t4H?E?H?3H??H???E??tH?E?H??H??H???+??u??tH?U?H?E?H? ?H??H?Ǹ?7R?E?}?u??E?E??$?E?Hc?H?E?H
???E߀}?.u? ??E?
?E?Hc?H?E?H?@XH9?|ɸH?U?dH+%(t???UH??H??H?}?H?E?H????????t?
?%H?E?H???WH?E?H?@PH??t?
????UH??H??H?}?H?E?H???M?????t??H?E?H??????????Ń????UH??H?? H?}?H?E?H??????????
H?E?H???
?????tJH?E?H???)?????H?UH?Ǹ?NH?E?H???b???H??H? UH?Ǹ??M?B
H?E?H?@ H??H??TH?Ǹ?MH?E?H?@H??H??TH?Ǹ?MH?E??@L????H?E?H???????H??H??TH?Ǹ?iMH?E?H????????E??}?u#H?E?H???/H??H??TH?Ǹ?1M?}?u#H?E?H????H??H?oTH?Ǹ?M?}? u*H?E?H???fH~?fHn?H?KTH?Ǹ
??L?}?u:H?E?H??? ??t H?.?H?*H??H??SH?Ǹ?L?
???UH??H?? H?}?H?u?H?U?H?E?H???O?????t??bH?E?H???H?E?H?PXH?E?H?H?E??PMH?E?H?E?H?@PH??u$H?E?H??S?
H?Ǹ?%?????H?E?H?@P??UH??H??
H?????H?????H?????H?????L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H?????H???f?????t ??Dž0??? Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??H???um??H?? ???H?? ???H?????H? ?H??H?Ǹ?????H??(???H?? ???H???>H?????H?????H??(???H??H???A???H??H???dH+%(t?r??UH??H?? H?}?H?u?dH?%(H?E?1?H?E?H???l?????t??H?U?H?M?H?E?H??H???????H?U?dH+%(t???UH??H??
H?????H?????H?????H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H?????H????????t ??Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??H????k??H?? ???H?? ???H?????H? ?H??H?Ǹ?.???H??(???H?? ???H???H?????H??(???H??H???t???H??H???dH+%(t????UH??H??0H?}?dH?%(H?E?1?H?E?H?????????t??KH?U?H?M?H?E?H??H???:???H?E??E??t$H?E?H?IP?H?Ǹ??????H?E?H?U?dH+%(t?:??UH??H???H?????H?????H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H?????H?????????t ??Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??H????i??H?? ???H?? ???H?????H? H??H?Ǹ?Y???H??(???H?? ???H???H??(???H???N???H??H???dH+%(t???UH??H??0H?}?dH?%(H?E?1?H?E?H????????t H???????{H?E?H???????H?E?H?E?H?????????t H???????RH?U?H?E?H? E H??H?Ǹ??I?E?}?u&H?E?H?nN?H?Ǹ????H???????H?E?H?U?dH+%(t?= ??UH??H???H?????H?????H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H?????H?????????tH???????Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??H????g??H?? ???H?? ???H?????H? H??H?Ǹ?Z???H??(???H?? ???H???H??(???H??????H??H???dH+%(t? ??UH??H??0H?}?dH?%(H?E?1?H?E?H???
?????t ?f?~H?E?H???????H?E?H?E?H?????????t ??e?TH?U?H?E?H? _H??H?Ǹ??G?E?}?u'H?E?H?mL?H?Ǹ??????e??E?H?E?dH+%(t?:??UH??H???H?????H?????H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H?????H?????????tH?
e?Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??H????e??H?? ???H?? ???H?????H? H??H?Ǹ?W???H??(???H?? ???H???H??(???H??????fH~?fHn?H??H???dH+%(t????UH??H?? H?}?H?E?H????????t ???H?E?H???????H?E?H?E?H?????????t ??H?E?H?Z H??H???r??tH?E?H??CH??H???r??u?
?]H?E?H?$ H??H???ar??tH?E?H?&H??H???Gr??u??"H?E?H?AJ?H?Ǹ?l??????UH??H???H?????H?????H??`???H??h???L??p???L??x?????t )E?)M?)U?)]?)e?)m?)u?)}?dH?%(H??H???1?H?????H????????t ??Dž0???Dž4???0H?EH??8???H??P???H??@???H??0???H?????H??H????c??H?? ???H?? ???H?????H? ?H??H?Ǹ?+???H??(???H?? ???H??? H??(???H???????H??H???dH+%(t????UH??H??H?}?H?E?H?????????uNH?E??@L??
??uBH?E?H?@PH??tH?E?H?@PH??? H?E?H?@PH?E??@MH?E?H?@X???
???UH??H??H?}?H?E?H???q?????uAH?E?H???h???H?E?H?PMH?E?H?HXH?E?H?@ H??H???o??H?U?H?BPH?E??@L
?
???UH??H??H?}?H?E?H????????uH?E??@L??
??tH?E?H???i????
???UH??H?? H?}?H?E?@H??t??AH?E?H?@H?@H?@H?E?H?E?H?@(H?E?H?E?H?PH?E?H?@(H??H??躓?????????UH??H??H?}?H?E?H?@?@??u|H?E??@H??ttH?E??@H??t+H?E??@H??tH?E?H?XG?H?Ǹ?c????>H?E?H???4?????t.H?E?H?PH?E?H??H?VG?H?Ǹ?)??????
???UH??H?? H?}?H?E?H?????????t ??H?E?@H??
u H?E?H?@0H??t$H?E?H?"G? H?Ǹ???????GH?E?H?@?@?E?H?E?H?@?@
H?E?H?@8?H??????H?E?H?E?H?@?U??PH?E???UH??H?? H?}?H?u?H?E?H???%?????t ??H?E?@H??
t$H?E?H??F?H?Ǹ?"?????uH?E?H?@?@?E?H?E?H?@?@
H?E?H?@8H?U?H??H?Ǹ????H?E?H?E?H???X??????uH?E?H?@?U??P??H?E?H?@?U??PH?E???UH??H??PH?}?H?u?H?U?H?M?H?E?H???L?????t ??r
H?Eȋ@H??
t'H?E?H??E?H?Ǹ?I??????
H?E?H?@?@?E?H?E?H?@?@
H?E?H?@@H?U?H? tH??H?Ǹ?????H?E?H?U?H?E?H??H???X??H?E?H?U?H?E?H? :H??H?Ǹ????H?E?H?E?H????H?E?H???/??????uH?E?H?@?U׈P??H?E?H???[???H?E?H?E?H???=?????tH?E?H?@?U׈P??WH?}?uH?E?H?@?U׈P??:H?E?H?@8H?U?H? ?H??H?Ǹ?????H?E?H?E?H?@?U׈PH?E???UH??H?? H?}?H?u?H?U?H?E?H????????t??#H?E?H???lH??H?U?H?u?H?E?H????????UH??H??@H?}?H?u?H?E?H???^??????}
H?Eȋ@H??
t"H?E?H?D?H?Ǹ?a????P
H?E?H?@?@?E?H?E?H?@?@
H?E???E?H?E?H?@8H????H?E?H?E?H?@H?H?E??E??qH?E?H??U?Hc?H??H
?H?H?E?H?U?H?E?H? D
H??H?Ǹ????H?E??}?tH?E?H?P H?E?H??H????0?H?E?H?@ H???3h???E?
?E?Hc?H?E?H?@H9??x???H?E?H?@@H?U?H? ?H??H?Ǹ? ???H?E?}?tH?E?H?P H?E?H??H???0?H?E?H?@ H????g??H?E?H?@?U҈PH?E?H?@?U҈P?
???UH??H??`H?}?H?u?H?U?H?E?H??????????
H?E??@H??
t"H?E?H?nB?H?Ǹ??????
H?E?H?@?@?E?H?E?H?@?@
H?E???E?H?E?H?@8H???CH?E?H?E?H?@H?H?E??E??H?E?H??U?Hc?H??H
?H?H?E?H?U?H?E?H? ??H??H?Ǹ?????H?E?H?U?H?E?H? v?H??H?Ǹ?????H?E??}?t!H?E?H?P H?E?H?H H?E?H??H???.? H?E?H?H H?E?H?@ ?
H??H????p???E?
?E?Hc?H?E?H?@H9??=???H?E?H?@@H?U?H? ??H??H?Ǹ?:???H?E?H?E?H?@@H?U?H? ??H??H?Ǹ????H?E??}?t!H?E?H?P H?E?H?H H?E?H??H????-? H?E?H?H H?E?H?@ ?
H??H???p??H?E?H?@?UˆPH?E?H?@?UˆP?
???UH??H??H?}?H?E?H????????t??TH?E?H???????H?E?H???v?????t??1H?E?H?@0H??t H?E?H?@0???????H?U?H?B0H?E?H?@0??UH??H??`H?}?H?u?H?U?H?E?H?@?@?E?H?E?H?@?@
H?E?H?@H?@H?@H?E?H?E?H?@@H?E?H?E?H?PH?E?H? m?H??H?Ǹ????H?E?H?U?H?E?H??H???R??H?E?H?U?H?E?H??H?Ǹ????H?E?H?E?H?????
H?E?H?@H?@H?E?H?E?H??????????H?E?H???a???H?E?H?E?H???C?????tH?E?H?@?ULjP?H?U?H?E?H??H????e??uH?E?H?@?ULjP?jH?E?H?PH?E?H??H??>?H?Ǹ????H?E?H?@?ULjP?1H?U?H?E?H??H???
H?E?H?@?ULjPH?E?H?@?ULjP??UH??H?? H?}?H?u?H?U?ȈE?H?E?H???r??????
H?E?H???e???H?E?H???e?????tH?U?H?M?H?E?H??H???????H?E?H???+???????H?E????t,?}?H?E?H?p H?E?H?@H?H?M?H?U?A??H???U(?H?E?H?@ H?U?H?M?H??H???af??H?E??@L
H?E?H?U?H?PXH?E??U?PMH?E?H??
H???H??H?E?H?PPH?E?H?PPH?E?H
??H?U?H?E?H?@PH?M?H??H???k???
???UH??H?? H?}?H?u?H?U?H?U?H?u?H?E??
H?????????UH??H??H?}?H?u?H?E?H???dH??H?u?H?E??H???g??????UH??H??0H?}?H?u?H?U?H?E?H?????????u8H?U?H?E?H??H???O??H?E?H?U?H?E?H??H???{???H?E?H????
?
???UH??H??H?}?H?u?H?E?H????????u$H?E?H????cH??H?M?H?E?H??H???_????
???UH??H??0H?}?H?u?dH?%(H?E?1?H?E?H???*???????H?E????t$H?E?H?H H?E?H?@H?H?U?H??H????&?H?E?H?@ H?U?H??H???|n??H?E?H???????H?E??@L
H?E?H?E??E?H?U?H?E?H? ,?H??H?Ǹ? 5H?E?H???bH??H?E?H?PP?
?H?E?dH+%(t?=?
??UH??H??0H?}??E?dH?%(H?E?1?H?E?H???6???????H?E????t)H?E?H?P H?E?H?@H?H?M?fHn?H??H????&?H?E?H?@ H?U?fHn?H??? n??H?E?H???????H?E??@L
H?E?H?E??E?H?U?H?E?fHn?H?G?H??H?Ǹ
? 4H?E?H???aH??H?E?H?PP?
?H?E?dH+%(t?=?
??UH??H??H?}????E?H?E?H???E???????H?E????t$?U?H?E?H?H H?E?H?@H?H??H???%??U?H?E?H?@ ??H???m??H?E?H???????H?E??@L
?}?tH?q?H???aH??H?E?H?PP?H?Z?H????`H??H?E?H?PP?
???UH??H??@H?}?H?u?H?U?H?M?D???E?H?E?H???y?????u=H?U?H?E?H? ??H??H?Ǹ?J???H?E??M?H?U?H?u?H?E?H???????
???UH??H??0H?}?H?u?H?U?H?M?H?E?H????????u???H??@H?E?H?U?dH+%(t??
H?]???UH??SH??H?}?H?E?@H??
t$H?E?H??-? H?Ǹ??????FH?E?H?P8H??H??(H??H?MH?]H?H?XH?M H?](H?HH?XH?M0H?H H??????H??0H?]???UH??SH?}?H?u?H?U?f??)E?)E?)E?f?E?H?E?H?E?H?E?H?E??E?????H?E?H?M?H?]?H?H?XH?M?H?]?H?HH?XH?M?H?]?H?H H?X(H?U?H?P0H?E?H?]???UH??H?? H?}?H?u?H?E?H?E??^?
H?E?H?E?H?H?U?H?E?H??H????H?U?H?H?E??PH?E??PH?E?H?H H?E?H?P(H?E?H??H????H?U?H?BH?E???UH??H?? H?}?H?u?H?E?H?E?H?E?H?HH?E?H?P(H?E?H??H??????UH??H??0H?}?H?u?H?U?H?E?H?E?H?E?L?@H?E?H?P(H?M?H?E?H??H??A????UH??H?? H?}?H?u?H?E?H?E?H?E?H?PH?E?H?H?E?H??H???wH?E??@??tH?E?H?H?????
H?E?H????
???UH??SH??hH?}?dH?%(H?E?1???H?E?H?E?H?u?H?z???H??H?b???H??????H?EH?E?H?E H??tH?????H?E?H?E(H??tH?????H?EȋED??t?ED?E?E@??t?E@?E?H?U?H??H??8H??H?M?H?]?H?H?XH?M?H?]?H?HH?XH?M?H?]?H?H H?X(H?M?H?H0H???????H??@H?E?H?U?dH+%(t?)?
H?]???UH??SH??H?}?H?E?@H??
t$H?E?H?E*? H?Ǹ?H?????VH?E?H?P8H??H??8H??H?MH?]H?H?XH?M H?](H?HH?XH?M0H?]8H?H H?X(H?M@H?H0H???q???H??@H?]???UH??H?? H?}?H?E?H????????t ??H?E?H?@?@?E?H?E?H?@?@
H?E?@H??
t3H?E?H?x)? H?Ǹ?{???H?E?H?@?U??P??'H?E?H?@8H???H?E?H?E?H?@?U??PH?E???UH??H??@H?}?H?E?H???n???H?E?H?E?H??? x??H?E?H?@hH?E?H?E??@`??
??t???H?E??E???H?E?H?@?U?Hc?H??H
?H?H?E?H?E??@`??tBH?U?H?E?H? ?H??H?Ǹ?X???H?E?H???X?????tlH?E?H???tx????|H?U?H?E?H? ??H??H?Ǹ????H?E?H?U?H?E?H??H???H?E?H?????????tH?E?H???x????#?E?
H?E?9E??*???H?E?H????w??H?E???UH??H?????
H?E????
H??H?E?H?H?E?H?@H?E???UH??H??H?}?H?u?H?E?H?@H??
H??H?E?H?H??H???H?U?H?H?E?H?H?E?H?@H??H
?H?E?H?H?E?H?@H?P
H?E?H?P???UH??H?? H?}?H?u??E??@H?E?H??U?Hc?H??H
?H?H?E?H?E?H?@H?U?H??H???M??uH?E???E?
?E?Hc?H?E?H?@H9?|????UH??H?? H?}??E??2H??&H???DH?E?H??U?Hc?H??H
?H?H???3????E?
?E?Hc?H?E?H?@H9?|?????UH??H?? H?}??E??#H?E?H??U?Hc?H??H
?H?H???????E?
?E?Hc?H?E?H?@H9?|?H?E?H?H???Y?
H?E?H???M?
???UH??H??0?}?H?u?H?Uؿ??
H?E?H?E??U?H?E?H????LH??H?E?H?PH?E?H?@H?}?tH?E?H???LH??H?E?H?PH?E???UH??H??H?}?H?E????H??H?Ǹ?jH?E?H?@H??H??%H?Ǹ?KH?E?H?@H??tH?E?H?@H??H??%H?Ǹ????UH??SH??(H?}?H?u?H?E?H?@H??tyH?E?H?@H???NLH??H?E?H????LH
?H??H?ƿ
?+?
H?E?H?E?H?HH?U?H?E?H?5J H?Ǹ? H?E?H?@H?????
H?E?H?U?H?P?H?E?H???KH??H?E?H?PH?]???UH??H??H?}?H?E?H?@H????
H?E?H?@H??tH?E?H?@H???v?
H?E?H???j?
???UH??H??@?0???
H?E?H?E?f??@@ H?E???UH??H??0H?}?H?u?H?U؉ȈEԸ????H?E?H?E?f?H?E?H??H???n?
H??H?E?H?PH?U?H?E?H?@H?M?H??H???QH?E?H?PH?E?H
??H?E?H?U?H?PH?E?H???mJH??H?E?H?P(H?E??UԈPH?E???UH??H?? H?}?H?u?????H?E?H?E?f?H?E?H???JH??H?E?H?P(H?E?H???JH??H?E?H?P H?E???UH??H?? H?}?H?u?????H?E?H?E?f?H?E?H????IH??H?E?H?P(H?E?H???IH??H?E?H?P H?E???UH??H?? H?}?H?u??U???H?E?H?E?f?H?E?H???hIH??H?E?H?P(H?E?H???QIH??H?E?H?P H?E???UH??H?? H?}?H?u??????H?E?H?E?f?H?E?H??? IH??H?E?H?P(H?E?H????HH??H?E?H?P H?E???UH??H?? H?}?????H?E?H?E?f?H?E?H???HH??H?E?H?P(H?E???UH??H?? H?}?H?u?H?E?H?P(H?E?H??H???9??H?E?H?E??f??u0H?E?H?PH?E?H?HH?E?H??H???I??H?E?H???}?
??H?E??f??uH?E?H???E??H?E?H???S?
??H?E?H?P H?E?H??H???=9??H?E?H?E??f??uH?M?H?E?H??H????O??H?E??f??uH?M?H?E?
H??H???O??H?E??f??uH?M?H?E?H??H???tM??H?E??f??uH?M?H?E?
H??H???OM??H?E?H????
H?E?H????
??UH??H??H?}?H?E?H?@H??tH?E?H?@H???\?
H?E?H?@(H??tH?E?H?@(H?????
H?E?H?@ H??tH?E?H?@ H???"?
H?E?H????
???UH??H??H?}?H?E?H??H??H???jF??u??hH?E?H?;H??H???IF??u??GH?E?H??H??H???(F??u??&H?E?H??H??H???F??u?????????UH??}??}?u H?Q?2?}?u H???#?}?u H?a??}?u H?W??]?UH??H??PH?}?H?E??@??@t?H?7H?ƿ??????H?E?H?>H??H????fH?E?H?}?u#H?(H??H?)H?ƿ
?s????H?Eȋ@??t#H??H??H?H?ƿ?D????RH?E?H?@ H???f?????Eă}??uyH?E?H?@ H???xEH??H?ƿ
?g?
H?E?H?E?H?P H?E?H? ?H??H?Ǹ?GH?E?H?pH?ƿ?????H?E?H?E?H?????
H?E??
?}???H?E?H??H??H????eH?E?H?}?u#H?vH??H?xH?ƿ
?c????q
H?EЋ@??t#H?GH??H?dH?ƿ?4????B
H?E?H?dH??H???peH?E?H?}?t3H?E?H??????u#H?AH??H?EH?ƿ???????H?E?H?'?H??H???eH?E?H?}?u#H?(H??H?)H?ƿ
?????H?E??@??t H??H??H?H?ƿ?m????~?}?t?}?umH?E?H? H??H???dH?E?H?}?u H??H??H??H?ƿ
? ????1H?E?@??t H??H??H??H?ƿ?????????UH??H??@H?}ȸ????H?E?H?E?H?]H??H???dH?@ H?E?H?E?H???????H?U?f?H?E?H???H??H????cH?@ H?E?H?E?H???BH??H?E?H?P(H?E??f??u H?E???H?E??f????H?E?H?yH??H???cH?E?H?}?tH?E??@(??tH?E??@
H?E?H?H??H???QcH?@ H?E?H?E??@??t!H?E?H?PH?E?H??H???m(??H?U?H?B?.H?E?H????AH??H?E?H?PH?E?H???BH??H?E?H?PH?E??9H?E?H?<H??H????bH?@ H?E?H?E?H???vAH??H?E?H?P H?E???UH??H?? H?}??sH?E?H?E?????????H??H?E?H? ?H??H???hH?E?H?P(H?E?H? ]?H??H???ahH?E??f????H?E??@??tbH?E?H?PH?E?H?@H??H???2%??H?E?H?U?H?E?H? ?H??H???hH?E?H?????
H?E?
H? ?H??H??? g?H?E?H?PH?E?H? zH??H????gH?E??f??tH?E?H?P H?E?H? ?H??H???gH?E???UH??H??H?}?H?E??????????H??H??H?Ǹ??H?E?H?@(H??H??H?Ǹ??H?E??f????H?E??@??
??t/H?E?H?@H??!H?E?H?@H??H??H?Ǹ??H??H???H?E?H?@H??H??H?Ǹ?bH?E??@??t H????H???H??H?H?Ǹ?/?,H?E??f??tH?E?H?@ H??H?aH?Ǹ?
??UH??H?????
H?E????
H??H?E?H?H?E?H?@H?E???UH??H??H?}?H?u?H?E?H?@H??
H??H?E?H?H??H????
H?U?H?H?E?H?H?E?H?@H??H
?H?E?H?H?E?H?@H?P
H?E?H?P???UH??H?? H?}?H?u?H?E?H?H?U?H??H
?H?H???????H?E?H?@H?P?H?E?H?PH?E?H?@H??tNH?E?H?E??4H?E?H?H?U?H??
H??H?H?E?H?H?U?H??H
?H?
H?H?E?
H?E?H?@H9E?|??
???UH??H?? H?}?H?u?H?E??JH?E?H?H?U?H??H
?H?H?E?H?E?H?U?H???҃?
??tH?U?H?E?H??H??????H?m?
H?E?
H?E?H?@H9E?|?????UH??H?? H?}?H?u?H?E??QH?E?H?H?U?H??H
?H?H?E?H?E?H?@(H?U?H??H???<??uH?U?H?E?H??H??????H?m?
H?E?
H?E?H?@H9E?|?????UH??H??@H?}?H?u?H?U?H?M?D???E??M?H?U?H?u?H?E?H??????H?E?H?U?H?E?H??H?????????UH??H??0H?}?H?u?H?U?H?E?H???<H??H?u?H?E?H???G???H?E?H?U?H?E?H??H???^??????UH??H??@H?}?H?u?H?U?dH?%(H?E?1?H?E?H?E??E?H?U?H?E?H? 8?H??H?Ǹ?,H?U?H?M?H?E?H??H???>????H?E?dH+%(t?K?
??UH??H?? H?}?H?u??ЈE?}?tH?M?H?E?H?[H??H????????H?M?H?E?H???H??H??????????UH??H??@H?}?H?u??E?dH?%(H?E?1?H?E?H?E??E?H?U?H?E?fHn?H?r?H??H?Ǹ
?K H?U?H?M?H?E?H??H???]????H?E?dH+%(t?j?
??UH??H??0H?}?H?u?H?U?H?U?H?E?H??H???J???H?E?H?U?H?E?H??H?????????UH??H??0H?}?H?u?H?U?H?U?H?E?H??H???d???H?E?H?U?H?E?H??H???t??????UH??H??0H?}?H?u?H?U?H?U?H?E?H??H???~???H?E?H?U?H?E?H??H???3??????UH??H??0H?}?H?u?H?U?H?U?H?E?H??H??????H?E?H?U?H?E?H??H??????????UH??H?? H?}?H?u?H?E?H??????H?E?H?U?H?E?H??H?????????UH??H?? H?}?H?u??E??*H?E?H??U?Hc?H??H
?H?H?U?H??H???????E?
?E?Hc?H?E?H?@H9?|Ð???UH??H?? H?}??E??#H?E?H??U?Hc?H??H
?H?H???????E?
?E?Hc?H?E?H?@H9?|?H?E?H?H????
H?E?H????
???UH??H??PH?}?dH?%(H?E?1?H?E??@?? t?H??H?ƿ?v????H?E?H???XH?H?E?H?E??H?E???H?E???H???XH?E?H?E?H???F???H?E?H?}?tOH?E?H?E??E?H?U?H?E?H? ?H??H?Ǹ?W H?U?H?E?H??H???????H?E??H?E?
H?E?H;E??o????H?U?dH+%(t?]?
??UH??H??PH?}?H?E?H???58??H?E?H?}?uoH?E?H????7H??2H?ƿ
???
H?E?H?U?H?E?H? ?H??H?Ǹ? H?E?H?ƿ?-???H?E?H?E?H???g?
H?E??H?E?H???AH?E?H?}?uxH?E?H???T7H??2H?ƿ
?C?
H?E?H?U?H?E?H? pH??H?Ǹ?' H?E?H?ƿ
????H?E?H?E?H?????
H?E?H?????
H?E??,H?E?H???????H?E?H?E?H????
H?E?H???@)H?E???UH??H??@H?}?H?E?H??????H?E?H?}?tH?E?H?????????t?????H?E?H?E?H???UH?H?E??E????H?E?H?E????uH?E?H????U????H?E?H???T???E??uH?E?H?@?U?Hc?H??H
?H?H?E?H??H???????H?E?H?@?U?Hc?H??H
?H?H?E?H??H?????H?E?H?U?H?E?H??H???????H?E?H???|?
?E?
H?E??9E?|?H?E?H???U???
??UH??H??0H?}?H?u?H?EоH???f=??H?E?H?E????uH?E?H????T????H?E?H????S???E??uH?E?H?@?U?Hc?H??H
?H?H?E?H??H???????H?E?H?@?U?Hc?H??H
?H?H?E?H??H?????H?E?H?U?H?E?H??H???k???H?E?H????
?E?
H?E??9E?|?H?E?H???2T???
??UH??H??H?}?H?E?H?H???R?
H?E?H???F?
???UH??H?}?f??)E?)E?H????H?E?H?|??H?E?H????H?E?H?F??H?E?H?M?H?E?H?U?H?
H?QH?E?H?U?H?AH?QH?E?]?UH??SH??`H??(???H??0?????H???H?H??=??H??0???H?.>??H??8???H??A??H??@???H?.@??H??H???H??@??H??P???H?C??H??X???H?OB??H??`???H??G??H??h???H??G??H??p???H??I??H??x???H??J??H?E?H?$L??H?E?H??L??H?E?H?rF??H?E?H??L??H?E?H??B??H?E?H?eC??H?E?H?{D??H?E?H?D??H?E?H??D??H?E?H?E??H?E?H?lE??H?E?H?Y=??H?E?H??>??H?E?H??(???H??0???H??8???H?H?XH??@???H??H???H?HH?XH??P???H??X???H?H H?X(H??`???H??h???H?H0H?X8H??p???H??x???H?H@H?XHH?M?H?]?H?HPH?XXH?M?H?]?H?H`H?XhH?M?H?]?H?HpH?XxH?M?H?]?H???H???H?M?H?]?H???H???H?M?H?]?H???H???H?M?H?]?H???H???H??(???H?]???UH??SH?}?f??)E?)E?)E?)E?f?E?H??K??H?E?H?hL??H?E?H??M??H?E?H?N??H?E?H??N??H?E?H??N??H?E?H??K??H?E?H??O??H?E?H??P??H?E?H?E?H?M?H?]?H?H?XH?M?H?]?H?HH?XH?M?H?]?H?H H?X(H?M?H?]?H?H0H?X8H?U?H?P@H?E?H?]???UH??SH??0H??X???H??`?????H???H?H?nX??H??`???H??_??H??h???H?`??H??p???H?}Y??H??x???H??Y??H?E?H??[??H?E?H??Z??H?E?H?g[??H?E?H??[??H?E?H?`??H?E?H?z^??H?E?H?"\??H?E?H?u`??H?E?H??`??H?E?H??a??H?E?H??c??H?E?H?p^??H?E?H?Y??H?E?H??X???H??`???H??h???H?H?XH??p???H??x???H?HH?XH?M?H?]?H?H H?X(H?M?H?]?H?H0H?X8H?M?H?]?H?H@H?XHH?M?H?]?H?HPH?XXH?M?H?]?H?H`H?XhH?M?H?]?H?HpH?XxH?M?H?]?H???H???H??X???H?]???UH??H?}?f??)E?)E?H??O??H?E?H??T??H?E?H??T??H?E?H?+U??H?E?H?M?H?E?H?U?H?
H?QH?E?H?U?H?AH?QH?E?]?UH??H?E?H?E?H?VU??H?E?H??U??H?E?H?E?H?U?]?UH??H??PH??H???dH?%(H?E?1?H??P?????5H???H?H?Ov??H??P???H??w??H??X???H?-x??H??`???H?y??H??h???H?w??H??p???H??y??H??x???H?6v??H??????H?Rz??H??????H?;l??H??????H??l??H??????H?m??H??????H??n??H??????H??o??H??????H?9q??H??????H??r??H??????H??s??H??????H??t??H??????H?H?E???UH??H?}?H?}?u/H??]?GH??TH???GH??TH??˽GH??T?H??]?GH?fTH?E?H?H??tH?E?H?H?LTH???GH?FTH?E?H?@H??tH?E?H?@H?*TH?'TH?TH??]?GH9?u!H?TH???GH9?uH??˽GH??S]?UH??H?? H?}?H?E?H??@??H?E?H?}?tH?E??@?H???H?E???UH??H?? H?}?H?E???H?E?H?H?E?H?E?@%
??uH?E?H?@H??tH?E?H?@H??????H?E?@%
??u-H?E?H?@ H??t H?3SH?E?H?@ H????H?E?H?@ H?E?@%??u-H?E?H?@8H??t H??RH?E?H?@8H????H?E?H?@8H??RH?E?H????H?E?H?E?H?}??+???????UH??.]?UH??H?ĀH?}?H?u?dH?%(H?E?1?f???E?H?E???????E?H?E?H?}?tH?E?H?H??u ??
H?E??H?E?H?H?E?H?HH?E?H
?H
??????+??:?„????
??H??H??H??H!?H???„?u??H??????u-?rH?E?H?H?E?H?HH?E?H
?H
??H?M?H?U?H
ʈ?H?U?H?E?H
??E???H?E?
H?}?>w,H?}?t%H?E?H?PH?E?H
?H?E?H?@H9??-??????
?H?U?H?E?H
??H?U?H?E?H??H????fH~?H?E?H?U?H?E?H9?u ??H?E??E??@0?E?f/t?r H?E??@(????,?e?f/E?r H?E??@(???E??,?H?E??P(H?E??@H?E?H?PH?M?H?E?H)?H??H
?H?E?H?P?
H?U?dH+%(t趝
??UH??H?}??E??E?f/??r H?E??@(????,???f/E?r H?E??@(???E??,?H?E??P(H?E??E??@0H?E??@0]?UH??SH??(H?}?H?u?H?E?H?}?tH?E؋@????tH?E؋@%
??t ??H?E?H?@ H??tH?}?u ??H?E?H??? H??H?E?H?@ H???o H9?r!H?E?H?@ H?U?H??H????H?E?H?@ ?UH?E?H?^OH??H??? ???H?E?H?}?u??-H?E?H?@ H??tH?E?H?@ H???7IH?E?H?U?H?P H?E?H?]???UH??H?? H?}?H?u?H?E?H?E?H?}?tH?E?H?H??u ???
H?E?H?@H??tH?E?H?PH?E?H?@H9?r ??
??H9E?r ??
H?E?H?PH?E?H
?H??
H?E?H?E?H?@H;E?rH?E?H?H?E?H?@H
??_
H?E?@ ??t ??J
H?}?????v??H9E?s H?E???????!
H?E?H
?H?E?H?E?H?@8H??t_H?E?H?H8H?E?H?H?U?H??H????H?E?H?}???H?E?H?P0H?E?H?H????H?E?H?@H?E?H???H?E?H?P(H?E?H????H?E?H?}?u2H?E?H?P0H?E?H?H????H?E?H?@H?E?H???\H?E?H?@H?P
H?E?H?H?E?H??H??? H?E?H?P0H?E?H?H????H?E?H?U?H?PH?E?H?U?H?H?E?H?PH?E?H
???UH??SH??(H?}?H?E?H?}?tDH?E?H?H??t8H?E?H?H?E?H?@H
?H?E?H?E?H?XH?E?H???H?H?E?H?P?
?H?]???UH???E??M??E??~ ??fT??M??~??fT?f/?v?E??~ ??fT???E??~ ??fT??E??E??\E??~ ??fT??U?????Y?f/?????]?UH??H??pH?}?H?u?dH?%(H?E?1?H?E?H?E??@0?E??E?H?E?H?E?H?E?H?E?H?E???????E?f???E?H?}?u ??H?E?fHn??E??H????????H!?H??H9?r*H?E?fHn??VE??H????????H!?H??H9?u#H?E?H???H??H?Ǹ???
?E???H?E??@(f???*?f.E?z1f.E?u*H?E??P(H?E?H? ?H??H?Ǹ??
?E??H?U?H?E?fHn?H??H??H?Ǹ
?y?
?E?H?U?H?E?H? ??H??H?Ǹ???
??
uH?E??E?f(?fHn????????u'H?U?H?E?fHn?H???H??H?Ǹ
??
?E??}?x?}?~ ???E?H?H?P
H?E?H??H???????H?E?H?}?u ??H?E??CH?U?H?E?H
??8E?uH?U?H?E?H
??.?H?U?H?E?H
?H?M?H?E?H
???H?E?
?E?H?H9E?r?H?U?H?E?H
??H?E?H?P?E?H?H
?H?E?H?P?
H?U?dH+%(t聖
??UH??H?}??E?H?E?H?E???H?U?H?E?H
??H?}??w ?E??E???*H?}???w ?E??E???H?}??????E??E???E܃?
?E??-H?E?????H?E?H??E?H
Ѓɀ?ʈH?m??E݃?
?E݀}?ù}?
vH?E??H?E?H? U߈?H?E??H?E?H????H?E?H??E?H
?H?E?H??E???? ?? ??????
????UH??H??PH?}?H?u?dH?%(H?E?1?H?E?H?H?E?H?@H??
H
?H?E?H?E?H?H?E?H?@H??
H
?H?E?H?E?H?E?H?E?H?H?E?H?@H
??<"??H?E?H?E??=H?E??<\u-H?E?H?P
H?E?H?H)?H?E?H?@H9??{H?E?
H?E?
H?E?
H?E?H?H?U?H)?H?E?H?@H9?sH?E??<"u?H?E?H?H?U?H)?H?E?H?@H9??*H?E??<"?H?E?H?H?E?H?@H
?H?U?H)?H??H+E?H?E?H?E?H?@ H?U?H??
H????H?E?H?}???
H?E?H?E??c
H?E??<\t"H?U?H?B
H?E?H?E?H?H
H?M????6
?E?H?E?H+E?H????
H?E?H??
?????\_??"}3?p
??b???d
??H??H????H?H???H
?????"H?
??H??H?Ѓ?
H??????up?
??u?
??b}??
H?E?H?P
H?U???H?E?H?P
H?U???oH?E?H?P
H?U?? ?^H?E?H?P
H?U?? ?MH?E?H?P
H?U?? ??E?Hc?H?E?H
???E?Hc?H?E?H
??<*t??#?E?H?H?P
H?E?H
???E?Hc?H?E?H
??H??H?Ǹ?????]
?}?ugH?E؋U?Hc?H??
H
???E??}?'u ?}?'t?
???E??e?
?}?t?E??U?H?E?H? ?>H??H?Ǹ?3??????}?
u9?}?"u?E??}?<???E?H?E?H???H??H???)?????}????}?"u?ED?@
H?E?H?0H?E?L??p???L??x???H?M?H?U?H????`?????h????} WAP?uM??H???|???H??0?E??}?tH?E?H???_????E??_H?E?H???=????E??"?U?H?E?H? ?=H??H?Ǹ?A????
??E?
?E?Hc?H?E?H9?????H?E?H???????H?U?dH+%(t?:
??UH??H??@H?}?H?u?H?U?H?E?H?E?H?E?H?????H?E?H?U?H?E?H??H???1??H?U?H?E?H??H???1??H?U?H?Eȹ
?H??????H?E?H?E?H???=C??H?E?H?E?H????????t??????H?E???UH??ATSH?? H?}?H?EؾH???8???A??H?Eؾ
H???$???H??H?EؾH???!???D??H??H??????H?E?H?E?H?E?@??tH?E?H?@H?Ǹ?Iv??H?E??H?E?H?H???ht??H?E?H?E?H???7???H?E?H?? [A\]?UH??ATSH?? H?}?H?EؾH??????A??H?Eؾ
H???p???H??H?EؾH???m???H??H?E?I??H?Q???H??D??H???P???H?E?H?E?H?E?H???????t'H?E?H??????H?E?H???. ??H?Ǹ?ou???IH?E?@??tH?E?H?@H?Ǹ?Mu??H?E??H?E?H?H???ls??H?E?H?E?H???;???H?E?H?? [A\]?UH??H?? H?}?H?E?H??? *??H?E?H?E?H??????H? ˄H??H???,#??H?E??
H? ΄H??H???#??H?E??H? ̈́H??H????"??H?E??H? ˄H??H????"??H?E??H? ʄH??H????"??H?E?H?????H? ̄H??H???U??H?E?H?7???H? ̄H??H???8??H?E?H???R,????UH??H??p H??????dH?%(H?E?1?H??????H???)??H??????H??????H?҄?G
H??H???H?H??H??? ?H?@H?R? f?H??????H?^?H? ????H??H??????H??????H??? ????tH??H??藭???E??E??H?E?H??E?H?H
??-H??H??踽??H?E?H?U?H?E?H? ???H??H??????H?E?H?@H??tH?E?H??????H?E?H???t????UH?E?H?H??H?H?H??P???H??H???Q??????????w?????w?????
??tH?E?H???ē??H?E?H????????|???
H?E??9?|????????H?E?H???????H?E?H?U?dH+%(t?)
??UH??H??PH?}?H?u?H?U?H?M?D??L?M??E?H?E??}?L?E?H?M?H?U?H?u?H?E?H???uM??A??H??????H??H?U?H??tH?I?H????e
??a??H?E?H?U?H?E?H??H???-i??H?}?u$H?E?H?H???6?
H?E?H?E?H????i????H?E?H?H?U?H??H??返
????H???H??tH???H???ze
?}?L?E?H?M?H?U?H?u?H?E?H???uM??A??H???F???H??H?E?H?}?tH?E?H?@H???.e
H?E?H???.????OH?[?H??tH?O?H???e
H?E?H???-
H?E?H?E?H???!i???}??????E???6?
?????UH??H?? H?}?H?u?H?E?H??趔??H?E?H?}?t8H?U?H?E?H??H??贓
??tH?U?H?E?H??H???~???H?E?H???-
?H?U?H?E?H??H???]?????UH??H?E?H?Q???H?E?H?E?]?UH??H?E?H?E?H????H?E?H?????H?E?H?E?H?U?]?UH??SH??xH?}?dH?%(H?E?1?f??)E?)E?)Eи?y???H?E??????H?E?H?U?H?E?H?Ǹ?iH?E?H?U?H?E?H?U?H?E?H?E?H?E?H?M?H?]?H?H?XH?M?H?]?H?HH?XH?M?H?]?H?H H?X(H?E?dH+%(t?_&
H?E?H?]???UH??H?}?f??)E?f?E?H?????H?E?H?D???H?E?H?_???H?E?H?M?H?E?H?U?H?
H?QH?E?H?AH?E?]?UH??H??@H?}ȉuĿ??-
H?E?H?E?f??f?@H?E?H????
H??H?E?H?H?E؋UĉP?躵??H?U?H?BH?E???UH??H??H?}?H?u?H?E?H?@H?U?H??H???_??????UH??H??PH?}?H?u?H?U?H?M?dH?%(H?E?1???A???H?E??ث??H?E?H?U?H?E?H? ޚ??H??H???????H?}?t#H???H?E?H?M?H?58~H?Ǹ?X???H?E?H?H?E?H?U?H?5)~H?Ǹ?5???H?E?H?H?E?H?U?H?5~H?Ǹ????H?E?H?U?H?E?H? L???H??H???G????E??pH?E?H?@H?@?U?Hc?H??H
?H?H?E?H?E?H?H?U?H??H???????H?E?H?U?H?E?H??H???-???H?U?H?E?H? ?}H??H?Ǹ?{????E?
H?E?H?@?9E?|?H?E?H?q}H??H?Ǹ?M???H?E?H?H?E?H?H??H???????H?E?H??? ????H?E?dH+%(t?#
??UH??H??PH?}?H?u?dH?%(H?E?1???{???H?E?H?k?H????
?E?H?U?H?E?H??H???????H?E?H?U?H?E?H? ????H??H???????H? ?H??????H?E?H?U?H?E?H? И??H??H???????H???H?E?H? ?%H??H?Ǹ?R???H?U?H?E?H? H|H??H?Ǹ?3???H???H?E?H??H???R???H?E?H??蓏??H?E?H?U?H?E?H???GH??H???J???H?E?H???e???H?E?H?U?H?E?H? %???H??H??? ???H?H?H?E?H??H???ڜ???Eȃ}??uDH?E?H?H?E?H??豤??H?E?H?H?E?H??H???,???H?E?H???U?????H???H?E?H??H???w????Ẽ}??u/H?E?H??? ???H???H?M?H?E?H?ƿ
??m????f?ŰE?
Ѓ?
HcЋE?Hc?H?E?H??H???????H?E?H??E?Hc?H?E?H??H???????H?E?H?H?E?H??H???s???H?E?H???????H?U?dH+%(t?.!
??UH??H??PH?}?H?u?H?U?dH?%(H?E?1?H?}?u ?????????H?E?舧??H?E?H?U?H?E?H? ????H??H??????H? ??H?E?H?u?H?U?I??H?5?yH?Ǹ?????E??WH?E?H?@H?@?U?Hc?H??H
?H?H?E?H?E?H?H?E?H??H??????H?E?H?}?tH?E?H??????H?E??$?E?
H?E?H?@?9E?|?H?E?H???r????H?U?dH+%(t?
??UH??H??@H?}?H?u?H?U?H?M?dH?%(H?E?1???????H?E??k???H?E?H?U?H?E?H? q???H??H???l???H?E?H?0H? }?H?E?H?U?I??H?5?xH?Ǹ????H?u?H?M?H?U?H?E?H???????H?U?H?M?H?E?H??H??????H?E?H?E?H??????H?E?H?U?dH+%(t?!
??UH??H??H?}?H?E?H?H???$
H?E?H?@H???G???H?E?H???}$
???UH??SH?????&
H?E?H?E?H?H?@??&
H??H?E?H?H?E?H?]???UH??H?? H?}?H?u??E???H?E?H??U?Hc?H??H
?H?H?E?H?E?H?H?U?H??H???a?
??uH?E???E?
H?E?@9E?|????UH??H??0H?}?H?u?H?U؉M?H?U?H?E?H??H???k???H?E?H?}?uq?U?H?E???H???????H?E?H?E?@??
H?H??H?E?H?H??H???;>
H?U?H?H?E?H?H?E?@H?H??H
?H?E?H?H?E?@?P
H?E?PH?U?H?E?H??H??????????UH??H?? H?}?H?u?H?E?H?H?E?H?E?H?H?E?H?E??PH?E??@9?~?
?2H?E??PH?E??@9?}??????H?E?H?H?E?H?H??H????
??UH??H??@H?}?H?u?H?U?H?E؋@Hc?H?E?H?H?a???H?ѺH??荅
?E??xH?E?H??U?Hc?H??H
?H?H?E?H?E??}?~"H?E?H??U?Hc?H??H??H
?H?H?H?E?H?M?H?U?H?u?H?E?H???Y???H?E?H?}?tH?E???E?
H?E؋@9E??x??????UH??H?? H?}??E??+H?E?H??U?Hc?H??H
?H?H?E?H?E?H????????E?
H?E?@9E?|?H?E?H?H???i!
H?E?H???]!
???UH??H??H?}??u?E?Hc?H?E?H??H???F???H??u?E?Hc?H?E?H??H???
???????UH??H??PH?}?H?E??H???????H?E?H?E??
H???????H?E?H?E??H??????H?E?H?E??H??????H?E?H?E??H???????E?H?E??H???3???H?E?H?E??H??????H?E?H?E?H????????tH?E?H???R???H???W
?}?L?E?H?M?H?U?H?u?H?E?H???u?M??A??H???s???H??H?E?H?E?H???Y????UH??H??PH?}?H?E??H???????H?E?H?E??
H???????H?E?H?E??H??????H?E?H?E??H??????H?E?H?E??H???????E?H?E??H???.???H?E?H?E??H??????H?E?H?E??H???3????E?D?E?L?M?H?M?H?U?H?u?H?EЋ}?W?u?H??????H?????UH??H?? H?}?H?E?H???????H?E?H?E?H?@H???sT????UH??H?? H?}?H?E?H??????H?E?H?E?H?@H???@T????UH??H?? H?}?H?E?H???z???H?E?H?E?H??????????UH??H?? H?}??????H?E?H?E?H????W????UH??H?? H?}?H?E?H??????H?E?H?E?H??????????UH??H?? H?}?H?E?H???????H?E?H?E?
H???????H?E?H?U?H?E?H??H???j??????UH??H?? H?}?H?E?H???/ ??H?E?H?E?H?????H? ?qH??H???????H?E?H?????H? ?qH??H???????H?E?H?Y???H? ?qH??H??????H?E?H?o???H? zqH??H??????H?E?H?????H? lqH??H???y???H?E?H?????H? ZqH??H???\???H?E?H?????H? LqH??H???????H?E?H?????H? AqH??H???"???H?E?H???<????UH??H??? H?????dH?%(H?E?1?H?????H??? ??H??(???H??0???H?,q?X
H??H???H?H??H??? ?H?@H?R? f?H?@H?R? ?H??(???H??pH? a???H??H??????H??(???H???o?????tH?E?H????k??H?E?H?}?u?? H?E?H???M??H?E?H?E?H???
H?E???UH??H?? H?}?H?u??ЈE?H?}?u?E??0H?U?H?E?H??H???&????tH?U?H?E?H??H???C*????E???UH??H??@H?}?H?EȾH??????H?E?H?EȾ
H???w???H?E?H?E?H?????????t#H?E?H???k???H?E?H?E?H?Ǹ?N???7H?U?H?E?H??H???Mo??H?E?H?E?H???L??H?E?H?E?H???'
H?E???UH??H??0H?}?H?EؾH???????H?E?H?Eؾ
H???????H?E?H?E?H???%?????t#H?E?H???????H?E?H?E?H?Ǹ?N???!H?U?H?E?H??H???q???E??E????K????UH??H??0H?}?H?EؾH???^???H?E?H?Eؾ
H???I???H?E?H?E?H????????t#H?E?H???=???H?E?H?E?H?Ǹ?vM???!H?U?H?E?H??H???q???E??E???PK????UH??H??@H?}?dH?%(H?E?1?H?E?H?E?H?M?H???S㥛? H??H??H??H??H???H)‰?H?H?E?H?M?H???S㥛? H??H??H??H??H??H???H)?Hi??H??H)?Hi?@BH?E?H?U?H?E?H??H??膊
H?U?dH+%(t?
??UH??H??@H?}?H?u?dH?%(H?E?1?H?E??H????????E?H?E?H???U?????t&H?E?H???????H?E?H?E?H?Ǹ?2L???H?E?H?TtH??H???%???E??E?H?E?H??tH??H???%???E?H?M܋E?
H?Ή??9
?E?E?Hc?H?E?H? :4H??H????7???}?t?
?I???+?E?H?H???O????E?
E??E?;E?~??}??t???I??H?U?dH+%(t?
??UH??H??0H?}?H?u?dH?%(H?E?1?H?E?H?sH??H????$???E?H?M?E?
H?Ή???8
?E?E?Hc?H?E?H? z3H??H???7???}?u?
??H??? ???H??H?U?dH+%(t??
??UH??H?? H?}?H?u?H?E?H??rH??H???3$???E??E?? ???9
???UH??H?? H?}?H?u?H?E?H??rH??H????#???E??E?? ????8
???UH??H?? H?}???3
?E?}?udH?E???H???????H?E?H????????t/H?E?H??????H??H?:rH?Ǹ?XI
H?E?H????????????}??uH?rH?Ǹ?I????H?E?H??????H?E??E?Hc?H?E?H? ?qH??H???5??H?E??dH? ?qH??H???~5??H?E?H?????H? vH??H????1??H?E?H?v???H? ?qH??H???1??H?E?H?????H? ?qH??H???1??H?E?H?s???H? sqH??H???k1??H?E?H???VJ????UH??H??0H?}?H?u?H?EоH???f???H?E?H?E?H????????t#H?E?H???Z???H?E?H?E?H?Ǹ?H???jH?E?H??pH??H???"??H?E?H?E?H????z???E?}?
uH?U?H?E?H??H????F???}?uH?U?H?E?H??H???K??H?E?H?H???[F????UH??H??0H?}?H?u?H?EоH??袿??H?E?H?E?H?????????t#H?E?H??????H?E?H?E?H?Ǹ??G???2H?E?H?8pH??H???C!??H?E?H?U?H?E?H??H???(F?????UH??H??0H?}?H?u?H?EоH??????H?E?H?E?H???f?????t#H?E?H??? ???H?E?H?E?H?Ǹ?CG???2H?E?H??oH??H??? ??H?E?H?U?H?E?H??H???rJ?????UH??H??0H?}?H?u?H?EоH??芾??H?E?H?E?H?????????t#H?E?H???~???H?E?H?E?H?Ǹ?F???2H?E?H? oH??H???+ ??H?E?H?U?H?E?H??H????H?????UH??H?? H?}?H?u?H?E?H??nH??H??????H?E?H?E?H???J?????UH??H??0H?}?H?u?H?EоH????H?E?H?E?H?@ H??tH?E?H?@ H?E?H?E?H???a?H?E??IH?E?H?_nH??H???j??H?E?H?E?H?PH?E?H?H?E?H??H???A??H?E?H???????UH??H?? H?}?H?u?H?E?H?nH??H?????H?E?H?E?H?H???C????UH??H?? H?}?H?E?H???????H?E???@??H?E?H?U?H?E?H? ?mH??H???=1??H?E?H?6???H? ?mH??H???-??H?E?H?????H? ?mH??H???d-??H?E?H?????UH??H??0H?}?H?EؾH??????H?E?H?E?H???\?????t#H?E?H??????H?E?H?E?H?Ǹ?9@??? H?E?H???s???E?}? ???????>????UH??H??0H?}?H?EؾH??薷??H?E?H?Eؾ
H??職??H?E?H?E?H?????????t#H?E?H???u???H?E?H?E?H?Ǹ?????&H?M?H?E?H??H????t???E??E???=????UH??H??0H?}?H?EؾH??????H?E?H?Eؾ
H??????H?E?H?E?H???@?????t#H?E?H???????H?E?H?E?H?Ǹ?????&H?M?H?E?
H??H???kt???E??E???????&H?M?H?E?H??H????u???E??E???ax??H??H????????UH??H??H?}?H?E?H?Bx??H??H???f?????UH??H??H?}?H?E?H?Fx??H??H???B?????UH??H??H?}?H?E?H??{??H??H????????UH??H??H?}?H?E?H?ez??H??H?????????UH??H??H?}?H?E?H?'|??H??H?????????UH??H??0H?}?H?u?H?EоH??貲??H?E?H?E?H????????t#H?E?H??????H?E?H?E?H?Ǹ??:???9H?E?H??cH??H???S??H?E?H?U?H?E?H??H???????H?E?H???H??H???!??H?E?H????H? /bH??H???!??H?E?H???:????UH??H?? H?}?H?u?H?E?H?bH??H?????H?E?H?E?H???-|????????6????UH??H??PH?}?H?u?H?E?H??aH??H??????H?E?H?E?H??蚅???EԋEԉE?H?E?H??????H?E??E??/?UЋM?H?E؉?H???ʅ??H?E?H?U?H?E?H??H????????E?
?E?;E?|?H?E?H???+??H?E?H?}?tH?U?H?E?H??H???????E?
H?E?H??????H?E?H?U?H?E?H??H???????E?Hc?H?E?H??H??????H?E?H????8????UH??H??0H?}?H?u?H?EоH???S???H?E?H?E?H????????t#H?E?H???G???H?E?H?E?H?Ǹ?7???9H?E?H?u`H??H??????H?E?H?U?H?E?H??H???p???H?E?H???8????UH??H??0H?}?H?u?H?EоH???????H?E?H?E?H????????t#H?E?H??????H?E?H?E?H?Ǹ??6???9H?E?H??_H??H???a??H?E?H?U?H?E?H??H???;???H?E?H???8????UH??H?? H?}?H?u?H?E?H??_H??H?????H?E?H?E?H???)~??H?E?H?}?u??H?E?H???5????UH??H?? H?}?H?u?H?E?H?A_H??H??????H?E?H?E?H???X|??H?E?H?}?u??H?E?H???c5????UH??H?? H?}?H?u?H?E?H??^H??H???j??H?E?H?E?H???|??H?E?H?}?u??H?E?H??? 5????UH??H?? H?}?H?u?H?E?H??^H??H?????H?E?H?E?H????z??H?E?H?}?u??H?E?H???4????UH??H?? H?}?H?u?H?E?H??^H??H?????H?E?H?E?H???}??H???w4????UH??H?? H?}?H?u?H?E?H??]H??H???~??H?E?H?E?H???P}??H???74????UH??H??0H?}?H?u?H?EоH???U???H?E?H?E?H????????t#H?E?H???I???H?E?H?E?H?Ǹ?4???9H?E?H?w]H??H???? ??H?E?H?U?H?E?H??H???G~??H?E?H???5????UH??H??0H?}?H?u?H?EоH???«??H?E?H?E?H????????t#H?E?H??????H?E?H?E?H?Ǹ??3???9H?E?H??\H??H???c ??H?E?H?U?H?E?H??H????|??H?E?H???5????UH??H??0H?}?H?u?H?EоH???/???H?E?H?E?H????????t#H?E?H???#???H?E?H?E?H?Ǹ?\3???9H?E?H?Q\H??H??????H?E?H?U?H?E?H??H???{??H?E?H???4????UH??H??0H?}?H?u?H?EоH??蜪??H?E?H?E?H?????????t#H?E?H??????H?E?H?E?H?Ǹ??2???9H?E?H??[H??H???=??H?E?H?U?H?E?H??H????|??H?E?H????3????UH??H??0H?}?H?u?H?EоH??? ???H?E?H?E?H???Y?????t#H?E?H???????H?E?H?E?H?Ǹ?62???9H?E?H?+[H??H?????H?E?H?U?H?E?H??H????|??H?E?H???f3????UH??H??0H?}?H?u?H?EоH???v???H?E?H?Eо
H???a???H?E?H?E?H????????t#H?E?H???U???H?E?H?E?H?Ǹ?1???=H?E?H??ZH??H?????H?E?H?U?H?M?H?E?H??H???}??H?E?H???2????UH??H?? H?}?H?u?H?E?H?4ZH??H??? ??H?E?H?E?H???~??H?H???U3????UH??H??@H?}?H?u?H?E??H???w???H?E?H?E??
H???b???H?E?H?E?H?????????t#H?E?H???g???H?E?H?E?H?Ǹ?0???RH?E?H??YH??H??? ??H?E?H?E???H?E؉?H?E??H????}??H?E?H?}?u??H?E?H???/????UH??H??0H?}?H?u?H?EоH??趤??H?E?H?Eо
H??貧??H?E?H?E?H????????t#H?E?H??????H?E?H?E?H?Ǹ??/???>H?E?H??XH??H???S ??H?E?H?E???H?U?H?E???H???~??H?E?H??? 1????UH??H??0H?}?H?u?H?EоH??? ???H?E?H?Eо
H???????H?E?H?E?H???U?????t#H?E?H???????H?E?H?E?H?Ǹ?2/???@H?E?H?'XH??H?????H?E?H?E??H?E???H?E???H?????H?E?H???[0????UH??H??0H?}?H?u?H?EоH???k???H?E?H?Eо
H???V???H?E?H?E?H????????t#H?E?H???J???H?E?H?E?H?Ǹ?.???=H?E?H?xWH??H??????H?E?H?U?H?M?H?E?H??H??????H?E?H???/????UH??H??0H?}?H?u?H?EоH??迥??H?E?H?Eо
H??誥??H?E?H?E?H?????????t#H?E?H??????H?E?H?E?H?Ǹ??-???=H?E?H??VH??H???K??H?E?H?U?H?M?H?E?H??H??????H?E?H???/????UH??H??0H?}?H?u?H?EоH??????H?E?H?E?H???c?????t#H?E?H??????H?E?H?E?H?Ǹ?@-???9H?E?H?5VH??H?????H?E?H?U?H?E?H??H?????H?E?H???p.????UH??H?? H?}?H?u?H?E?H??UH??H??? ???E??E???
??t&H?E?H??UH??H???E??H?E?H?E?H????q?????UH??H?? H?}?H?u?H?E?H???????H?E?H?U?H?E?H? uUH??H???{??H?E?H????H? vUH??H?????H?E?H?%???H? jUH??H?????H?E?H?M???H? ZUH??H?????H?E?H?V???H? KUH??H???h??H?E?H?????H? 6UH??H???K??H?E?H?????H? 'UH??H???.??H?E?H?
???H? UH??H?????H?E?H?z???H? lH??H??????H?E?H????H? ?TH??H??????H?E?H?????H? ?TH??H?????H?E?H?????H? ?TH??H?????H?E?H?F???H? ?TH??H?????H?E?H?????H? ?TH??H???c??H?E?H?X???H? ?TH??H???F??H?E?H?????H? }TH??H???)??H?E?H?]???H? mTH??H?????H?E?H?????H? _TH??H??????H?E?H?&???H? ZTH??H??????H?E?H?????H? QTH??H?????H?E?H?H???H? LTH??H?????H?E?H?????H? @TH??H???{??H?E?H?f???H? 5TH??H???^??H?E?H????H? ?#H??H???A??H?E?H?????H? ??
H??H???$??H?E???UH??H?? H?}?H?u?H?U?H?E?H??H???????H?E?H?E??
H? ?RH??H?????H?E???UH??H??0H?}?H?EؾH??????H?E?H?E?H???3?????t#H?E?H???׽??H?E?H?E?H?Ǹ?)???NH?E?H????k??H?E?H?U?H?E?H??H???I???H?E?H?E?H? ?QH??H?????H?E?H???+*????UH??H??0H?}?H?u?H?E?H??RH??H???$??H?E?H?EоH??????H?E?H?E?H???q?????t#H?E?H??????H?E?H?E?H?Ǹ?N(???H?E?H?U?H?PH?E?H???)????UH??H??0H?}?H?u?H?E?H?jRH??H???
??H?E?H?EоH??脜??H?E?H?E?H????????t#H?E?H??艼??H?E?H?E?H?Ǹ??'???H?E?H?U?H?H?E?H???)????UH??H??@H?}?H?u?H?E?H??QH??H???
??H?E?H?E??H???????H?E?H?E?H???Z?????t#H?E?H???????H?E?H?E?H?Ǹ?7'???8H?E???H?E؉?H???A??H?E?H?E?H???E%??H?E?H?E?H????H?E???UH??H??0H?}?H?u?H?E?H?3QH??H???a??H?E?H?EоH???M???H?E?H?E?H??讼????t#H?E?H???R???H?E?H?E?H?Ǹ?&???&H?E??H?E???H???@??H?H?E?H?E?H???(????UH??H?? H?}?H?u?H?E?H??PH??H???????H?E?H?E?H???"A?????UH??H?? H?}?????H?E?H?E?H???p???H?E?H?U?H?E?H? >PH??H??????H?E?H????H? ,PH??H???7??H?E?H?????H? PH??H?????H?E?H?????H? PH??H???? ??H?E?H????H? ??
H??H???? ??H?E?H?f???H? ?OH??H???? ??H?E?H???&????UH??H??0H?}?H?u?H?EоH??辜??H?E?H?E?H????????t#H?E?H??貹??H?E?H?E?H?Ǹ??$???2H?E?H?sOH??H???_???H?E?H?E?H?U?H?PH?E?H???"&????UH??H??0H?}?H?u?H?EоH???2???H?E?H?E?H??肺????t#H?E?H???&???H?E?H?E?H?Ǹ?_$???1H?E?H??NH??H???????H?E?H?E?H?U?H?H?E?H???%????UH??H??@H?}?H?u?H?E??H??觛??H?E?H?E?H?????????t#H?E?H??蛸??H?E?H?E?H?Ǹ??#???TH?E?H?\NH??H???H???H?E?H?U?H?E?H??H???X???H?E?H?U?H?E?H??H????OH?E?H?E?H????$????UH??H?? H?}?H?u?H?E?H???????H?E?H?U?H?E?H? ?MH??H???U??H?E?H? ???H? ?MH??H?????H?E?H?????H? ?MH??H???|??H?E?H?H???H? ?MH??H???_??H?E???UH??H??@H?}?H?u?dH?%(H?E?1?H?E?H??MH??H???H??H???z???H?E?H?E?H???ܩ????taH?E?H??耨??H?E?H?E?H???0???H?E?H?E??H???$???H?U?H?E?H??H??????H?E?H???\???H?E?H??????c
H?E??
H????H?E?H?E?H?@ H??tqH?E?H??轻??H?E?H?E?H??????H?E?H?@ H?E?H?E?H?P(H?E?H??H??????H?E?H???n?H?E?H?@ H???u??H?E?H????????H?U?H?E?H??H?Ǹ????H?E?H?E?H?PH?E?H?H?E?H??H??????H?E?H????H?E?H??????H?E?H?E?H???λ????t^H?E?H??????H?E?H?E?H???A???H?E?H?EоH???????H?U?H?E?H??H??????H?E?H???3???H?E?H???,???H?E?H???????UH??H?? H?}?H?u?H?E?H??<H??H???z???H?E?H?E?H??????H?E??@M??????????UH??H?? H?}?H?u?H?E?H?|<H??H???0???H?E?H?E?H???y???H?E?H?E?H???????UH??H??0H?}?H?u?H?E?H?4<H??H???????H?E?H?E?H??边??H?E?H?E?
H? K:H??H???w???H?E?H?@H?H?E?H?U?H?E?H??H???JH?E?H???j????UH??H?? H?}?H?u?H?E?H???S???H?E?H?E??
H? ?;H??H???????H?U?H?E?H? ?;H??H??????H?E?H?????H? w?
H??H???????H?E?H?E???H? d;H??H???????H?E?H?????H? R;H??H???????H?E?H?????H? ?8H??H??????H?E?H??,H? ??
H??H??????H?E?H??+H? ;H??H???n???H?E?H?5???H? 6
H??H???Q???H?E?H????H? ?:H??H???4???H?E?H??H? ?:H??H??????H?E?H?lH? ?:H??H???????H?E?H?F H? ?:H??H???????H?E?H??H? |:H??H???????H?E?H?; H? ?H??H??????H?E?H? H? H:H??H??????H?E?H?j???H? 2:H??H???i???H?E?H?????H? :H??H???L???H?E?H?@???H? :H??H???/???H?E?H?-H? ?9H??H??????H?E?H??/H? ?9H??H???????H?E?H?E2H? ?9H??H???????H?E?H??4H? ?9H??H??????H?E?H?"???H? ?H??H??????H?E?H?W???H? 7H??H??????H?E?H?????H? ?9H??H???d???H?E?H?????H? ?9H??H???G???H?E?H?H???H? q9H??H???*???H?E?H?????H? ^9H??H??? ???H?E?H?????H? H9H??H???????H?E?H?{???H? 39H??H???????H?E?H?????H? &9H??H??????H?E?H????H? #9H??H??????H?E?H??H? "9H??H???|???H?E?H?$H? 9H??H???_???H?E?H??H? 9H??H???B???H?E?H?AH? 9H??H???%???H?E?H?'H? 9H??H??????H?E?H?\H? 9H??H???????H?E?H??H? ?8H??H???????H?E?H??"H? ?8H??H??????H?E?H??H? ?8H??H??????H?E?H??$H? ?8H??H???w???H?E?H?- H? ?8H??H???Z???H?E?H? H? ?8H??H???=???H?E?H?2???H? ?8H??H??? ???H?E?H?????H? ?8H??H??????H?E?H?S???H? ?8H??H???????H?E?H??H? q8H??H???????H?E?H?!???H? b8H??H??????H?E?H??H? c8H??H??????H?E?H?@H? Z8H??H???r???H?E?H?wH? d8H??H???U???H?E?H??H? c8H??H???8???H?E?H?,H? `8H??H??????H?E?H??&H? ]8H??H???????H?E?H??)H? Q8H??H???????H?E?H??,H? J8H??H???????H?E?H?(/H? B8H??H??????H?E?H??1H? B8H??H??????H?E?H?H? =8H??H???m???H?E?H?l???H? 08H??H???P???H?E?H?@H??uH?E?H?????H? ??
H??H???&???H?E???UH??H??0H?}?H?EؾH???-???H?E?H?E?H???}?????t#H?E?H???!???H?E?H?E?H?Ǹ?Z ???3H?E?H???ۡ??H?E?H?U?H?E?H??H???8???H?E?H?E?H??? ????UH??H??PH?}?H?u?H?E?H??3H??H??????H?E?H?E?H???/???H?E?H?E?H???O???H?E?H?E?H???????H?E?H?U?H?E?H??H???r???H?E?H?PH?E?H??H???????E??IH?E?H??U?Hc?H??H
?H?H?E?H?U?H?E?H??H???k???H?E?H?U?H?E?H??H??? ????E?
?E?Hc?H?E?H?@H9?|?H?E?H???6 ????UH??H??PH?}?H?u?H?E?H??2H??H??????H?E?H?E?H???8???H?E??E??H?E?H??U?Hc?H??H
?H?H?E?H?U?H?E?H??H??????H?E?H?E?H??????H?E?H?U?H?E?H??H???M???H?U?H?E???H??????H?E?H???i?????t#H?E?H??? ???H?E?H?E?H?Ǹ?F???'?E?
?E?Hc?H?E?H?@H9??C???H?E?H???????UH??H?ĀH?}?H?u?H?E?H??1H??H??????H?E?H?E?H???'???H?E?H?E?H???G???H?E?H?E?H???7???H?E?H?U?H?E?H??H???j???H?E??E??-
H?E?H??U?Hc?H??H
?H?H?E?H?U?H?E?H??H???o???H?E?H?E?H???ή??H?E?H?U?H?E?H??H???
???H?U?H?E??
?H???Ӏ??H?E?H?E?H????????t&H?E?H??轚??H?E?H?E?H?Ǹ?????H?E?H???????H?E??E?H?}?~H?E?H???????E?H?E?H??贛????t#H?E?H???X???H?E?H?E?H?Ǹ????X?}?tH?E?
H?U?H?E?H??H???-????E?
?E?Hc?H?E?H?@H9??????H?U?H?E?H??H???_???H?E?H????????UH??H??pH?}?H?u?H?E?H??/H??H??????H?E?H?E?H???A???H?E?H?E?H???a???H?E?H?E?H???Q???H?E?H?U?H?E?H??H??脾??H?E??E???H?E?H??U?Hc?H??H
?H?H?E?H?U?H?E?H??H??????H?E?H?E?H??????H?E?H?U?H?E?H??H??????H?U?H?E??
?H????~??H?E?H?E?H???3?????t#H?E?H???ט??H?E?H?E?H?Ǹ????yH?E?H??????H?E?H?}?~(H?E?
H?E?H?PH?E?H? 82H??H?Ǹ??????E?
?E?Hc?H?E?H?@H9?????H?U?H?E?H??H??轾??H?E?H???????UH??H??pH?}?H?u?H?E?H?E.H??H???????H?E?H?E?H??????H?E?H?E??E??
H?E?H??U?Hc?H??H
?H?H?E?H?U?H?E?H??H??????H?E?H?E?H???y???H?E?H?U?H?E?H??H??謼??H?U?H?E??
?H???~}??H?E?H?E?H???Ę????t&H?E?H???h???H?E?H?E?H?Ǹ????H?E?H??????H?E??E?H?}?~H?E?H????????E?H?E?H???_?????t#H?E?H??????H?E?H?E?H?Ǹ?<???2?}?tH?E?
?E?
?E?Hc?H?E?H?@H9??????H?E?H???P????UH??H??`H?}?H?u?H?E?H??,H??H???l???H?E?H?E?H??????H?E??E??#
H?E?H??U?Hc?H??H
?H?H?E?H?U?H?E?H??H??????H?E?H?E?H???????H?E?H?U?H?E?H??H???'???H?U?H?E??
?H????{??H?E?H?E?H?????????t&H?E?H??????H?E?H?E?H?Ǹ?
???H?E?H??? ???H?E??E?H?}?~H?E?H???C????E?H?E?H???ږ????t#H?E?H???~???H?E?H?E?H?Ǹ????4?}?tH?E?H?????? ?E?
?E?Hc?H?E?H?@H9?????????UH??H??@H?}?H?u?H?E?H?1+H??H???????H?E?H?E?H???????H?E?H?E?H??胩????t7H?E?H??????H?E?H?E?H?Ǹ???H?E?H?E?H??????H?E??#H?U?H?E?H??H???o???H?E?H?E?H???F
????UH??H??@H?}?H?u?H?E?H??*H??H???????H?E?H?E?H??????H?E?H?E?H???????H?E?H?E?H???ܧ????t7H?E?H???_???H?E?H?E?H?Ǹ?m???H?E?H?E?H???`???H?E??#H?U?H?E?H??H???G???H?E?H?E?H????????UH??H??@H?}?H?u?H?E?H??(H??H??????H?E?H?E?H???Y???H?E?H?E?H???6?????t^H?E?H???N???H?E?H?E?H??詧??H?E?H?E?H???2???H?U?H?E?H??H??????H?E?H??蛧??H?E?H???????WH?E?H??????H?E?H?E?
H??????H?U?H?E?H??H???Y???H?E?H?U?H?E?H??H???????H?E?H???;?????UH??H??`H?}?H?u?H?E??H???t??H?E?H?E?H?????????t&H?E?H??袑??H?E?H?E?H?Ǹ??????
H?E??
H???_wH?E?H?E?H?@ H??t!H?E?H?@ H?E?H?E?H???{H?E???H?E?H?U'H??H??? ???H?E?H?E?H?HH?E?H?H?u?H?E?H???4???H?E?H?E?H???zH?E?H??舥????t7H?E?H??????H?E?H?E?H?Ǹ????H?E?H?E?H??????H?E??1H?}?u??#H?U?H?E?H??H???????H?E?H?E?H???=?????UH??H??pH?}?H?u?H?E??H???Ms??H?E?H?E?H??蝑????taH?E?H???A???H?E?H?E?H??????H?E?H?E??H??????H?U?H?E?H??H???ŵ??H?E?H??????H?E?H???G????
H?E??
H????uH?E?H?E?H?@ H??tqH?E?H???~???H?E?H?E?H???r???H?E?H?@ H?E?H?E?H?P(H?E?H??H???B???H?E?H???/yH?E?H?@ H???6???H?E?H???????#
H?E?H?i%H??H??????H?E?H?E?H?HH?E?H?H?u?H?E?H???H???H?E?H?E?H????xH?E?H??蜣????t^H?E?H??财??H?E?H?E?H??????H?E?H?EоH??蘶??H?U?H?E?H??H???x???H?E?H???
???H?E?H????????lH?E?H???V???H?E?H?E??
H???J???H?}?uH?E?H????????6H?U?H?E?H??H??????H?E?H?U?H?E?H??H???L???H?E?H????????UH??H??PH?}?H?u?H?E??H????p??H?E?H?E?H???O?????t&H?E?H??????H?E?H?E?H?Ǹ?,????H?E?H??#H??H??????H?E?H?U?H?E?H??H??????H?E?H?E?H???4?????t7H?E?H??跢??H?E?H?E?H?Ǹ?????H?E?H?E?H??踢??H?E??1H?}?u??#H?U?H?E?H??H??????H?E?H?E?H?????????UH??H??`H?}?H?u?H?E??H????o??H?E?H?E?H???I?????taH?E?H??????H?E?H?E?H??蝠??H?E?H?E??H??葴??H?U?H?E?H??H???q???H?E?H???Ɍ??H?E?H????????
H?E?H??"H??H???\???H?E?H?U?H?E?H??H???¸??H?E?H?E?H????????t^H?E?H??????H?E?H?E?H???f???H?E?H?E?H??????H?U?H?E?H??H???ϱ??H?E?H???X???H?E?H???Q????lH?E?H??譟??H?E?H?Eо
H??衳??H?}?uH?E?H???????6H?U?H?E?H??H???
???H?E?H?U?H?E?H??H??裰??H?E?H?????????UH??H??@H?}?H?u?H?E??H???Vn??H?E?H?E??
H???An??H?E?H?E?H??葌????t&H?E?H???5???H?E?H?E?H?Ǹ?n????H?E?H?+!H??H???????H?E?H?U?H?M?H?E?H??H??謻??H?E?H???v?????t7H?E?H???????H?E?H?E?H?Ǹ????H?E?H?E?H???????H?E??H?E?H???P?????UH??H??PH?}?H?u?H?E??H???`m??H?E?H?E??
H???Km??H?E?H?E?H??蛋????taH?E?H???????H?E?H?E?H??????H?E?H?E??H??????H?U?H?E?H??H???ï??H?E?H??????H?E?H???E?????H?E?H??H??H??????H?E?H?U?H?M?H?E?H??H???{???H?E?H???E?????t^H?E?H???]???H?E?H?E?H??踞??H?E?H?E?H???A???H?U?H?E?H??H???!???H?E?H??語??H?E?H???????-H?E?H???????H?E?H?Eؾ
H??????H?E?H???t?????UH??H??@H?}?H?u?H?E??H????k??H?E?H?E?H???7?????t&H?E?H???ۈ??H?E?H?E?H?Ǹ?????H?E?H??H??H??????H?E?H?U?H?E?H??H??買??H?E?H??? ?????t7H?E?H??裝??H?E?H?E?H?Ǹ????H?E?H?E?H??褝??H?E??H?E?H?????????UH??H??PH?}?H?u?H?E??H??? k??H?E?H?E?H???Z?????taH?E?H???????H?E?H?E?H??讛??H?E?H?E??H??袯??H?U?H?E?H??H??肭??H?E?H???ڇ??H?E?H????????H?E?H??H??H???m???H?E?H?U?H?E?H??H??蚶??H?E?H???0???H?E?H?E?H?????????t^H?E?H??????H?E?H?E?H???k???H?E?H?E?H???????H?U?H?E?H??H???Ԭ??H?E?H???]???H?E?H???V????H?Eؾ
H??趮??H?E?H???7?????UH??H??`H?}?H?u?H?E?H??H??H??????H?E?H?E?H??????H?E?H?E?H???1?????t:H?E?H??贛??H?E?H?E?H?Ǹ?????H?E?H?E?H??赛??H?E??H?E?H??????H?E?H?E?H???????H?E?H?U?H?E?H??H???2???H?E?H?PH?E?H??H???{????E??IH?E?H??U?Hc?H??H
?H?H?E?H?U?H?E?H??H???+???H?E?H?U?H?E?H??H???ͪ???E?
?E?Hc?H?E?H?@H9?|?H?E?H?????????UH??H??`H?}?H?u?H?E?H??H??H???R???H?E?H?E?H???O???H?E?H?E?H????????taH?E?H??????H?E?H?E?H???c???H?E?H?E?H??????H?U?H?E?H??H???̪??H?E?H???U???H?E?H???N?????H?E?H??觘??H?E?H?Eо
H??蛬??H?E?H??膘??H?E?H?U?H?E?H??H??蹩??H?E?H?PH?E?H??H???????E??IH?E?H??U?Hc?H??H
?H?H?E?H?U?H?E?H??H??????H?E?H?U?H?E?H??H???T????E?
?E?Hc?H?E?H?@H9?|?H?E?H???}?????UH??H??pH?}?H?u?H?E?H?%H??H???????H?E?H?E?H???????H?E?H?E?H???w?????t:H?E?H???????H?E?H?E?H?Ǹ????H?E?H?E?H???????H?E??K
?E??#
H?E?H??U?Hc?H??H
?H?H?E?H?U?H?E?H??H??????H?E?H?E?H??????H?E?H?U?H?E?H??H???J???H?U?H?E??
?H???i??H?E?H?E?H???b?????t&H?E?H??????H?E?H?E?H?Ǹ??????H?E?H???0???H?E??E?H?}?~H?EоH???f????E?H?E?H?????????t#H?E?H??衂??H?E?H?E?H?Ǹ??????4?}?tH?E?H???1???? ?E?
?E?Hc?H?E?H?@H9?????????UH??H?ĀH?}?H?u?H?E?H?TH??H??????H?E?H?E?H??????H?E?H?E?H??視????t:H?E?H???)???H?E?H?E?H?Ǹ?7???H?E?H?E?H???*???H?E??Q
H?E??E??
H?E?H??U?Hc?H??H
?H?H?E?H?U?H?E?H??H???????H?E?H?E?H???>???H?E?H?U?H?E?H??H???q???H?U?H?E??
?H???Cg??H?E?H?E?H??艂????t&H?E?H???-???H?E?H?E?H?Ǹ?f????H?E?H???W???H?E??E?H?}?~H?EоH???????E?H?E?H???$?????t#H?E?H???Ȁ??H?E?H?E?H?Ǹ?
????2?}?tH?E?
?E?
?E?Hc?H?E?H?@H9??????H?E?H????????UH??H??H??x???H??p???H??x???H?qH??H???%???H?E?H?E?H???"???H?E?H?E?H???Ô????t:H?E?H???F???H?E?H?E?H?Ǹ?T???H?E?H?E?H???G???H?E???
H??p???H??螓??H?E?H??p???H??苓??H?E?H?U?H?E?H??H??辤??H?E??E??B
H?E?H??U?Hc?H??H
?H?H?E?H?U?H??p???H??H???????H?E?H??p???H??????H?E?H?U?H?E?H??H???O???H?U?H??p????
?H???e??H?E?H??p???H???a?????t)H??p???H?????H?E?H?E?H?Ǹ?;?????H?E?H???,???H?E??E?H?}?
uH?EоH???b????E?H??p???H????????t&H??p???H???~??H?E?H?E?H?Ǹ??????X?}?tH?E?
H?U?H?E?H??H???l????E?
?E?Hc?H?E?H?@H9??????H?U?H?E?H??H??螤??H?E?H???~?????UH??H?ĀH?}?H?u?H?E?H?&H??H???????H?E?H?E?H???????H?E?H?E?H???x?????t:H?E?H???????H?E?H?E?H?Ǹ? ???H?E?H?E?H???????H?E??f
H?E?H???V???H?E?H?E?H???F???H?E?H?U?H?E?H??H???y???H?E??E???H?E?H??U?Hc?H??H
?H?H?E?H?U?H?E?H??H???~???H?E?H?E?H???ݐ??H?E?H?U?H?E?H??H??????H?U?H?E??
?H????b??H?E?H?E?H???(~????t#H?E?H????|??H?E?H?E?H?Ǹ?????yH?E?H???????H?E?H?}?~(H?E?
H?E?H?PH?E?H? -H??H?Ǹ??????E?
?E?Hc?H?E?H?@H9?????H?U?H?E?H??H??貢??H?E?H????????UH??H??`H?}?H?u?H?E?H?:H??H???????H?E?H?E?H???????H?E?H?E?H??茐????t:H?E?H??????H?E?H?E?H?Ǹ????H?E?H?E?H??????H?E???H?E?H???B?????t&H?E?H???Ő??H?E?H?E?H?Ǹ???????E??sH?E?H??U?Hc?H??H
?H?H?E?H?U?H?E?H??H??????H?E?H?E?H???????H?E?H?U?H?E?H??H???,???H?U?H?E???H????`???E?
?E?Hc?H?E?H?@H9??v???H?E?H???-|????tH?E?H????z??H???&????UH??H??PH?}?H?u?H?U?H?E?H??H??H???r???H?E?H?U?H?E?H? ??
H??H?Ǹ?
??H?E?H?E?H?????????t7H?E?H??耏??H?E?H?E?H?Ǹ????H?E?H?E?H??聏??H?E??#H?U?H?E?H??H???h???H?E?H?E?H?????????UH??H??PH?}?H?u?H?U?H?E?H?
H??H??赾??H?E?H?U?H?E?H? ??
H??H?Ǹ?D~??H?E?H?E?H???h???H?E?H?E?H???0?????tNH?E?H??賎??H?E?H?E?H???H?E?H??????H?E?H?}?u?? H?E?H??????H?E?H?E?H????H?E???UH??H??@H?}?H?EȾH????I??H?E?H?E?H???h????t#H?E?H???f??H?E?H?E?H?Ǹ??????e?????H?E?H?U?H?E?H??H???2????E??E߃?
??tH?E?H????????#H?E?H?H???????H?E?H?E?H???????H?E???UH??H??PH?}?H?E??H???I??H?E?H?E?H???_g????t&H?E?H???f??H?E?H?E?H?Ǹ????H?E?H?E?H?@H9E?}H?}?y??4H?E?H?H?U?H??H
?H?H?E?H??H???K???H?E?H?E?H?????????UH??H??@H?}?H?u?H?E?H?G?
H??H???›??H?E?H?E??H?E?H?H?U?H??H
?H?H?E?H?U?H?E?H??H???????H?E?H?E?H???[j??H?E?H?U?H?E?H??H???{??H?U?H?E???H???`z??H?E???H?E?H?H?U?H??H
?H?H?E?H?U?H?E?H??H???????H?E?H?E?H???Kg??H?E?H?U?H?E?H??H???~x??H?U?H?E??
?H???P9??H?E?H?E?H???T????t#H?E?H???:S??H?E?H?E?H?Ǹ?s????]H?E?H???g???H?E?H?}?~#H?E?H?PH?E?H? ??
H??H?Ǹ?`{??H?E?
H?E?H?@H9E?????H?E?H????????UH??H??`H?}?H?u?H?E?H???
H??H???x???H?E?H?E??"
H?E?H?H?U?H??H
?H?H?E?H?U?H?E?H??H??????H?E?H?E?H???f??H?E?H?U?H?E?H??H???Dw??H?U?H?E??
?H???8??H?E?H?E?H???\S????t&H?E?H???R??H?E?H?E?H?Ǹ?9????H?E?H???*???H?E??E?H?}?~H?E?H???`????E?H?E?H????R????t#H?E?H???Q??H?E?H?E?H?Ǹ?Լ???0?}?tH?E?H???+????H?E?
H?E?H?@H9E?????????UH??H??pH?}?H?u?H?E?H???
H??H??????H?E?H?E?H?E??
H?E?H?H?U?H??H
?H?H?E?H?U?H?E?H??H??????H?E?H?E?H???d??H?E?H?U?H?E?H??H????u??H?U?H?E??
?H???6??H?E?H?E?H????Q????t&H?E?H???P??H?E?H?E?H?Ǹ迻???H?E?H??谁??H?E??E?H?}?~H?E?H???????E?H?E?H???}Q????t#H?E?H???!P??H?E?H?E?H?Ǹ?Z????.?}?tH?E?
H?E?
H?E?H?@H9E??????H?E?H???r?????UH??H??0H?}?H?u?H?EоH???2??H?E?H?E?H????P????t#H?E?H???O??H?E?H?E?H?Ǹ?Һ???9H?E?H???
H??H???F???H?E?H?U?H?E?H??H??聵??H?E?H????????UH??H??0H?}?H?u?H?E?H???
H??H???????H?E?H?E?H???Ѵ??H?E?H?E?H??????H?E?H?E?H???s???H?E?H?E?H??????H?E?H???ۂH?E???UH??H??`H?}?dH?%(H?E?1?H?E??H???1??H?E?H?E?H????O????t&H?E?H???N??H?E?H?E?H?Ǹ輹???0
???#??H?E?H?E?H??????H?E?H?U?H?E?H? ????H??H???i'??H?E?H??u-H???
H?Ǹ?b???H?E?H?E?H????(??H?E???H?E?H???T???H?E?H?}?uUH?E?H???ޯ??H?E?H?U?H?E?H? ???H??H????&??H?E?H?@H?Ǹ????H?E?H?E?H???[(??H?E??VH?E?H???Ca??H?E?H?EغH? ??
H??H???????H?U?H?E?H??H??????H?E?H???(??H?E?H??????H?U?dH+%(t?{??UH??H??pH?}?dH?%(H?E?1?H?E??H????/??H?E?H?E?H???3N????taH?E?H????L??H?E?H?E?H???`??H?E?H?E?H???{t??H?U?H?E?H??H???[r??H?E?H???L??H?E?H???ݸ???
???!??H?E?H?E?H???????H?E?H?U?H?E?H? ????H??H???%??H?E?H??uTH?E?H????_??H?E?H?E?H????s??H?E?H???
H??H????q??H?E?H????&??H?E?H???H????
H?E?H???F???H?E?H?}?uH?E?H???_??H?E?H?E?H???????H?E?H?U?H?E?H? ????H??H????$??H?EؾH???Ts??H?E?H?PH?E?H??H???0q??H?E?H???.&??H?E?H??買???H?E?H???_??H?E?H?EȾ
H????r??H?E?H????^??H?E?H?U?H?E?H??H???p??H?EкH? d?
H??H??萣??H?U?H?E?H??H???G???H?E?H???%??H?E?H???#???H?U?dH+%(t?*y??UH??H??pH?}?dH?%(H?E?1?H?E??H???w-??H?E?H?E?H????K????t&H?E?H???kJ??H?E?H?E?H?Ǹ褵????
????H?E?H?E?H??????H?E?H?U?H?E?H???GH??H???Q#??H?E?H??ucH?E?H??H?p?
H?Ǹ?+???H?E?H?U?H?E?H???GH??H???#??H?E?H?Ǹ????H?E?H?E?H???|$??H?E??X
H?E?H??????H?E?H?U?H?E?H? -???H??H???"??H?E?H??ucH?E?H??H?H?
H?Ǹ蕸??H?E?H?U?H?E?H???GH??H???y"??H?E?H?Ǹ?~???H?E?H?E?H????#??H?E???H?E?H???p???H?E?H?}?uUH?E?H???????H?E?H?U?H?E?H? 8???H??H???"??H?E?H?@H?Ǹ????H?E?H?E?H???w#??H?E??VH?E?H???_\??H?E?H?EкH? ??
H??H??????H?U?H?E?H??H???????H?E?H???'#??H?E?H??????H?U?dH+%(t?v??UH??H?ĀH?}?dH?%(H?E?1?H?E??H????*??H?E?H?E?H???OI????taH?E?H????G??H?E?H?E?H???[??H?E?H?E?H???o??H?U?H?E?H??H???wm??H?E?H????G??H?E?H????????????H?E?H?E?H???????H?E?H?U?H?E?H???GH??H??? ??H?E?H????H?E?H??? [??H?E?H?E?H??H???
H?Ǹ?d???H?E?H?U?H?E?H???GH??H???H ??H?E?H????n??H?U?H?E?H??H???l??H?E?H???!??H?E?H???*?????
H?E?H???%???H?E?H?U?H?E?H? O???H??H??????H?E?H????H?E?H???LZ??H?E?H?E?H??H?V?
H?Ǹ裵??H?E?H?U?H?E?H???GH??H?????H?EؾH???n??H?U?H?E?H??H????k??H?E?H???? ??H?E?H???i????
H?E?H???g???H?E?H?}?uH?E?H???Y??H?E?H?E?H??????H?E?H?U?H?E?H? ???H??H??????H?EоH???um??H?E?H?PH?E?H??H???Qk??H?E?H???O ??H?E?H???ӱ???H?E?H???,Y??H?E?H?E??
H??? m??H?E?H???Y??H?E?H?U?H?E?H??H???>j??H?EȺH? ??
H??H??豝??H?U?H?E?H??H???h???H?E?H??????H?E?H???D???H?U?dH+%(t?Ks??UH??H?? H?}?H?u?H?E?H???
H??H??茉??H?E?H?E?H???*8??H?E?H???O?????UH??H?? H?}?H?u?H?E?H?r?
H??H???H???H?E?H?E??H?H????????UH??H?? H?}?H?u?H?E?H?6?
H??H??????H?E?H?E?H???U7??H?E?H???ϰ????UH??H?? H?}?H?u?H?E?H???
H??H???Ȉ??H?E?H?E?H????6??H?E?H??苰????UH??H?? H?}?H?u?H?E?H???
H??H??脈??H?E?H?E?H???6?????UH??H?? H?}?H?u?H?E?H???7W??H?E?H?U?H?E?H? ]?
H??H??躚??H?E?H?YH? I?
H??H???????H?E?H??H? >?
H??H??????H?E?H??H? 5?
H??H???Ė??H?E?H?????H? /?
H??H??觖??H?E?H?????H? /?
H??H??芖??H?E?H?????H? ??
H??H???m???H?E?H????H? ?
H??H???P???H?E?H? H? ??
H??H???3???H?E?H??H? ??
H??H??????H?E?H?H? ??
H??H???????H?E?H??H? ?
H??H???ܕ??H?E?H?$H? {?
H??H??迕??H?E?H?< H? Z?
H??H??袕??H?E?H??H? 8?
H??H??腕??H?E?H?;H? *?
H??H???h???H?E?H??H? '?
H??H???K???H?E?H??H? ??
H??H???.???H?E?H??H? ?
H??H??????H?E?H?t???H? ?x
H??H???????H?E???UH??H?? H?}??K-??H?E?H?U?H?E?H??H???l???H?E?H?E?H??設????UH??H??0H?}?H?u?f??)E?f?E?H?Eк
H? ??
H??H???\??????
?E?H?Eк
H? m?
H??H???\??????
?E?H?Eк
H? ^?
H??H???\\??????
?E?H?Eк
H? P?
H??H???8\??????
?E?H?Eк
H? E?
H??H???\??????
?E?H?Eк
H? -?
H??H????[??????
?E?H?M?H?E?H?U?H?
H?QH?E?H?AH?E???UH??H??`H?}?dH?%(H?E?1?H?E??H???"??H?E?H?E?H?E??
H?????H??tH?E??
H???_$??H?E?H?E?H???@????t&H?E?H???X???H?E?H?E?H?Ǹ葪???H?E?H?U?H??H???>???H?E?H???k@????t#H?E?H??????H?E?H?E?H?Ǹ?H????d??#+??H?E?H?U?H?E?H??H???D???H?E?H?u?H?}?H??H??H??H?E?H?U?H?
H?QH?E?H?A?>/??H?? H?E?H???M???H?U?dH+%(t??l??UH??H??`H?}?H?u?dH?%(H?E?1?H?E??H???:!??H?E?H?E?H?E??
H???G??H??tH?E??
H???#??H?E?H?E?H???W?????t&H?E?H????=??H?E?H?E?H?Ǹ?4????H?E?H?U?H??H???????H?E?H????????t#H?E?H???=??H?E?H?E?H?Ǹ?????YH?E?H???
H??H???_???H?E?H?u?H?}?H??H??H??H?E?H?U?H?
H?QH?E?H?A??-??H?? H?E?H???????H?U?dH+%(t?k??UH??H??@H?}?H?u?H?E?H? ?
H??H???????H?E?H?E?H???P??H?E?H?E?H???P??H?E?H?U?H?E?H??H????a??H?E??Hc?H?E?H??H???!c???E??BH?E?H?@?U?Hc?H??H
?H?H?E?H??H???H?E?H?U?H?E?H??H???za???E?
H?E??9E?|?H?E?H??諨????UH??H??PH?}?H?u?H?E?H?1?
H??H??????H?E??E??
H?E?H?@?U?Hc?H??H
?H?H?E?H??H???#H?E?H?E?H???O??H?E?H?U?H?E?H??H????`??H?U?H?E??
?H???!??H?E?H?E?H??????H? α
H??H?????H?E?H?C9??H? ??
H??H?????H?E?H?K???H? ??
H??H???~??H?E?H????H? ??
H??H???a??H?E?H?k???H? ʱ
H??H???D??H?E?H? ???H? ??
H??H???'??H?E?H?????H? ʱ
H??H??? ??H?E?H?????H? ͱ
H??H??????H?E?H?Y???H? ʱ
H??H??????H?E?H?gT??H? ˱
H??H?????H?E?H??.??H? ??
H??H?????H?E?H????H? ??
H??H???y??H?E?H?M???H? ??
H??H???\??H?E?H?e???H? ??
H??H??????H?E?H?????H? ??
H??H???"??H?E?H?????H? ?
H??H?????H?E?H?o???H? }?
H??H??????H?E?H?x.??H? }?
H??H??????H?E?H??.??H? l?
H??H?????H?E?H??V??H? Y?
H??H?????H?E?H?;2??H? J?
H??H???t??H?E?H??B??H? 5?
H??H???W??H?E?H?],??H? "?
H??H???:??H?E?H??+??H? %?
H??H????????UH??H?? H?}?H?E?H???#1??H?E?H?E?H??????H?E?H???3????UH??H??0H?}?dH?%(H?E?1?H?U?H?M?H?E?H??H???GH?E?H?}?u???E??tH?E?H???HD??H?E?H?U?dH+%(t?>??UH??H??@H?}?H?u?H?U?H?E??H?E?H?H?E?H????
?E?}?
t ??
H?E?H??_
H??H???DqH?E?H?}?u ??
H?E??H????v???uH?E?H????l??^
H?E?H???wH?U?H?H?E?H?H???uH?E?H????l??(
H?E?H?H??u H?E?H???lH?Y@
H??????H?E??H???.v???uH?E?H???kl???H?E?H?H??
H???VEH?E?H?E?H?H??H?U?H?E?H??H??
H???r?E?}?H?E?H???BH?E?H???l??gH?E???E??!?E?Hc?H?E?H
????u H?E??
??E?
?E?Hc?H?E?H?H9?|?H?E?H?H??H?E?H
??H?E?H???kH?E???UH??H??H??X???dH?%(H?E?1?H??`???H??X???H??H???k??u2??x???%?=?u?
???x???%?=@u???????H?U?dH+%(t?<??UH??H??H?}?H? ??H?E?H?tH?5/?
H????H? ??H?E?H?
H?5*?
H???ѐ??UH??SH??xH?}?H?u?H?U?dH?%(H?E?1?H??H???E??E??E??E??E??E??E??E??E?
H?E?H??E?H?H
????u ??fH?E?H??E?H?H
??< ?FH?E?H??E?H?H
??< uH?E?H??E?H?H
?? H?E?H??E?H?H
?????8???
?E???
??t ???
?}?~ ?m?
??
?E???
??t?E??E??E???
?E??E?
?
?E???
?E???E?+E???
Hc?H??
H?U?H??H??
H
п?H??Hk?H)?H??H?EȋE?+E???
Hc?H??
H?U?H??H??
H
о?H??Hk?H)?H??H?E؋E?+E???
Hc?H?E?H??M?Hc?H??
H
?H?E?H??H??胧?E?+E???
H?U?H???E?+E???
Hc?H?E?H??E?H?H
?H?E?H??H???F??E?+E???
H?U?H??H?U?H?E?H??H???H?E?H?E?H?H?M?H?U?H?5ԫ
H?Ǹ?6H?U?H?H?E?H??U?Hc?H??
H
?H?E?H?H?E?H???>?
?JH?E?H??E?H?H
????8???????E???
??t?E??E??E?
?????E?
?|?????v???H??H?U?dH+%(t?8H?]???UH??SH??XH?}?H?u?H?U?dH?%(H?E?1?H??H???E??E??E??E??E???E?
H?E?H??E?H?H
??< t?H?E?H??E?H?H
????u ??
H?E?H??E?H?H
????8?u4?E?
?Ẽ?
?E?H?E?H??E?H?H
?????8?uT??3
H?E?H??E?H?H
?????8?u-?Eƃ?
??t ??

?ẺE??E?
??Eǃ?
??t? ?E?
?ƅ???
H??????H??
H?? ???Dž????H?????H?????H??H??????ƅ????
H????????]?8??????????ƅ???H?? ???H??(????.H??(???H?P
H??(?????????J
??????Hcˆ?0???H??????H9?(???t ?????=?v??????H?Ƅ0???H? ?H??H?????H??0???I??H?5,?
H?Ǹ????H?????H?????H?????H??H???????????????
???????????
??tIH?????????H? ??H???H?????A??H?5?
H?Ǹ????H?????ƅ???
?2H?????????H?????H? ?.
H??H?Ǹ?????H?????H???????<\?????????
??t@H? ?H???H?????L?o?
H?5k?
H?Ǹ?s???H?????ƅ???
?,H?????H?=?
H? *.
H??H?Ǹ?>???H?????H??????H??
H???????H??????H??
H??????H??????????8??????????t,H?????H?˝
H??H?Ǹ?????H?????ƅ???H?????H?U?dH+%(t??*??UH??SH??HH?}????H?9?H?E??H????H??t ??H??H?E?H???????H????H?]???UH??H?L?H??H? ?
H??H????????H?&?H???H? ͚
H??H????????H??H???H? ??
H??H??????{?H???H???H? ??
H??H??????V?H???H?m?H? ??
H??H??????1??]?UH??H??H?}?H???H?E?H? g?
H??H????H?%?H? .?H??H?X?
H?5?
H????H? ?H???H?:?
H?5ݙ
H????H? ??H???H??
H?5ș
H????H? ??H???H???
H?5??
H????H? ??H???H?ݙ
H?5??
H???ѐ??UH??H??@H?}?dH?%(H?E?1?H??????H?Ǹ??g??H?,?H????????H??H???H?H??H?E?H????H?E?H?E?H??????H?E?H???????H??H?E?H????H?U?dH+%(t?%??UH??H??@H?}?H?E?H?.G
H??H???XH?E?H?}?u ??t
H?Eغ?H???^???uH?E?H???\T??C
H?E?H????^H?E?H?}??uH?E?H???/T??
H?}?uH?E?H???T???H?Eغ?H???]???uH?E?H????S???H?E?H??
H????,H?E?H?U?H?M?H?E?
H???&ZH?E?H?}?H?E?H???%*H?E?H???S??q?E??7?E?Hc?H?E?H
????uH?E?H???WSH?E?H????)??5?E?
?E?H?H9E??H?E?H?E?H?U?H?E?H
??H?E?H???SH?E???UH??H?? H?}?H?u?H?E?H??K
H??H????VH?E?H?}?u??????$H?U?H?E?H??H??? YH?E?H???R???UH??SH??HH?}?H?u?H?"?H?E?H????H?E?H?E?H???t????E??E??
?U?H?E???H???????H?E?H?E?H?????????t+H???H?E?H?????fH~?H?U?fHn?H?????2
H?E?H?????????t'H???H?E?H???P??H??H?E?H??H??????H?E?H???$?????t&H? d?H?EЋ@(??????H?Eȉ?H??????H?E?H????????t7H???H?E?H? ?
H??H????H?E?H? ??H?U?H?E?H??H?????~H?E?H???}?????t0H?U?H?E?H??H???uH?E?H? ??H?U?H?E?H??H?????>H?E?H????????t.H?U?H?E?H??H???Y???H?E?H? ??H?U?H?E?H??H???уE?
?E?;E??n???H?E?H?]???UH??SH??XH?}?H?u?H?F?H?E?H????H?E?H?E?H??蘭???E??E??
?U?H?E???H??????H?E?H?E?H?@8H?E?H?E?H????????t2H???H?E?H????}??fH~?H?M?H?U?fHn?H??H?????N
H?E?H?????????t+H?L?H?E?H???a}??H??H?M?H?E?H??H?????
H?E?H???1?????t,L?1?H?Eȋ@(??????H?M?H?E?H??H??A????H?E?H????????t?H???H?E?H? ?
H??H????H?E?L???H?U?H?M?H?E?H??H??A???H?E?H???|?????t5H?U?H?E?H??H???t???H?E?L???H?U?H?M?H?E?H??H??A???CH?E?H????????t3H?U?H?E?H??H???S???H?E?L???H?U?H?M?H?E?H??H??A?ЃE?
?E?;E??????H?E?H?]???UH??SH??hH?}?H?u?H?U?H?E?H??蕖??H?E?H?}?u+H?}?t$H? ?H?E?H??H?#?
H?Ǹ????
H?}?uH???H???
H?Ǹ???
H?E?H????????t3H???H?E??@(??????????H?E?H?E?H???>~??H?E??g
H?E?H????????t8H?V?H?E?H???h{??fH~?fHn???H?E?H?E?H????}??H?E??
H?E?H???~?????t1H???H?E?H????z??H????H?E?H?E?H???}??H?E???H?E?H?????????t?H?E?H???}??H???H?E?H? Α
H??H????H?E?H?s?H?E?H?????H?E?H???D?????t5H?U?H?E?H??H????H?E?H?Ǹ???cH?E?H???????H?E?H?}?u!H??H?E?H??H???
H?Ǹ???+H?U?H?M?H?E?H??H??????H?E?H?E?H????!H?E???UH??H??`H?}?H???H?E?H????H?E?????H?E??E??
H? ???E?Hc?H?E?H??H???щEċ ?9E?uBH? ???E?Hc?H?E?H??H????fH~?H?E?H?E?fHn??N???H??H?E?H??H???=??????9E???H? }??E?Hc?H?E?H??H????H?E?H???H?E?H?H? ?
H??H????H?E?H?U?H?E?H??H???[???u?????H??H?E?H??H???ª???H?E?H???A???H??H?E?H??H??袪???&?9E?u9H? ???E?Hc?H?E?H??H???шE??E????+???H??H?E?H??H???^??????9E?u@H? ???E?Hc?H?E?H??H????H?E?H?E?H???H?E?H?U?H?E?H??H???????E?
?E?H?H9E??Z???H?E???UH??H??`H?}?H??H?E?H????H?E??`???H?E??E??
H? ???E?Hc?H?E?H??H????H?E?H? ???E?Hc?H?E?H??H???щE???9E?u>H? ???E?Hc?H?E?H??H????fH~?H?E?H?M?H?U?H?E?fHn?H??H??????????9E???H? ???E?Hc?H?E?H??H????H?E?H???H?E?H?H? ??
H??H????H?E?H?U?H?E?H??H???a???uH?U?H?E?H??H???$????H?U?H?M?H?E?H??H???Ԭ???7?9E?u3H? ??E?Hc?H?E?H??H???шE??U?H?M?H?E?H??H???ҫ???
?9E?uDH? ???E?Hc?H?E?H??H????H?E?H?E?H???4H?E?H?U?H?M?H?E?H??H???a????E?
?E?H?H9E??N???H?E???UH??H??H?}?H?E?H?????tH?E?H????????H?E?H?????????UH??SH??XH?}?H?E?H???H?E??H???҉E??$?9E?u.H???H?E??H????H?E?H?E?H??????H?E??????9E?u5H?k?H?E??H????fH~?H?E?H?E?fHn??7???H?E?????9E?u)H?3?H?E??H???҈E??E???輲??H?E??d???9E?u+H??H?E??H????H?E?H?E?H??????H?E??.H???H?m??E?????H??H??
H?Ǹ?????E?
H???H?E??
H????H?‹?H?H9?tH?}?H?E??
H???҈E?H??H?E?H???҄?t+H?
?H?E?H????H?E?H??H?E?H?Ǹ???`H?E??}?tH?E?H??耏??H?E??H?E?H??蔏??H?E?H???H?E?H????H?E?H?E?H???eu??H?E?H????H?E?H?]???UH??SH??hH?}?H?E?H???H?E??H???҉E???9E?u.H???H?E??H????H?E?H?E?H??????H?E??????9E?u5H?G?H?E??H????fH~?H?E?H?E?fHn?????H?E?????9E?u)H??H?E??H???҈E??E???蘰??H?E??d?c?9E?u+H???H?E??H????H?E?H?E?H??????H?E??.H???H?I??E?????H??H???
H?Ǹ???
H???H?E??
H????H?E?H?!?H?E?H???҄?t:H??H?E?H????H?E?H?E?H????s??H? ?H?E?H?Ǹ???
?E?
H???H?E??H????H?‹x?H?H9?tH???H?E??H???҈E?H???H?E?H???҄?t:H?v?H?E?H????H?E?H?E?H???5s??H?~?H?E?H?Ǹ???H?E??}?tH?E?H??????H?E??H?E?H???????H?E?H?E?H????r??H?U?H?E?H??H???????E?H?E?H???$?}?t!H??H?E?H??H?j?
H?Ǹ????H?]???UH??H?? H?}?H??H?E?H????H?E??E??+H? ???E?Hc?H?E?H??H???у?
??t???E?
?E?H?H9E?ʸ
??UH??H??0H?}?H???H?EؾH????H?E?H?)?H?E?H???҄?t+H? ?H?E?H????H?E?H?!?H?E?H?Ǹ???H?E?H???*????E?H????E??????UH??H?? H?}?H??H?E?H????H?E?H???H?E?H???҄?t+H???H?E?H????H?E?H???H?E?H?Ǹ??? H? V?H?U?H?E?H?5w?
H???Ѹ??UH??H??@H?}?dH?%(H?E?1?H??????H?Ǹ?XS??H???H????????H??H???H?H???H?E?H????H?E?H? ??H?E?H??N
H?5??
H????H? d?H?E?H?????H?5j?
H????H? F?H?E?H?)???H?5]?
H????H? (?H?E?H?????H?5N?
H????H? ?H?E?H?????H?5@?
H????H? ??H?E?H?????H?50?
H????H? ??H?E?H?R???H?5$?
H????H???H?E?H????H?U?dH+%(t???UH??H??????,??H?? ??dH?%(H?E?1???????H??8??H??8??H???%???H??8??H???
H??H???????H??@??Dž4???6??4??H?H??H?? ??H
?H?H??@??H??H???<????4??
??4??;?,??|?H??????H? ?
?0fH??H????H?LuaCEmbeH?????Dž???d.hH??0??H????TH??H???H?H??H??? ?H?load_libH?_overloaH?? ??H??(??I?oad.luaL??.??H?functionH? PrivateH????H????H?Darwing_H?parse_toH????H????H?_bytes(sH?eq) H?? ??H??(??H?local buH?ffer = {H??0??H??8??H?} foH?r i = 1,H??@??H??H??H? #seq doH? H??P??H??X??H? buffer[H?#buffer H??`??H??h??H?+ 1] = sH?tring.chH??p??H??x??H?ar(seq[iH?]) eH?????H?????H?nd rH?eturn buH?????H?????H?urn buffH?er end H?????H?????H?parse_toH?_bytes.lH?????H?????Dž???luaH?????H?????H??H???H?H??H??? ?H?@H?R? f?H?@H?R? ?H?require_H?overloadH????H????L?? ??H? if PrivH?ate_darwH??@??H??H??H?in_old_rH?equire tH??P??H??X??H?hen H?require H??`??H??h??H?= PrivatH?e_darwinH??p??H??x??H?_old_reqH?uire endH?????H?????fDž??? H?resset_rH?equire.lH?????H?????Dž???luaH?????H?????H?in_old_pH?ackage tH?????H?????H?hen H?package.H?????H?????H?loadlib H?= PrivatH?????H?????H?e_darwinH?_old_pacH?????H?????H?old_packH?age endH?????H?????H?resset_sH?????H?_so.luaH?????H?????H?]??.H??H???H?H??H??? ?H?@H?R? f?H?@H?R? ?H?so_actioH?????H?ons.luaH?????Dž???apiH???$??H? h???]H??H???N~H??`???H? ?L ?`
H??H???0~H??8??H?F
H??H???e???H??H??H??8??H???????H??P??H??P??H??H???H???+2??H?? ??H??X???H?5F4
H???2??H??8??H??????H??`??H??`??H??H???H???A;??H????H??`????H?5?G
H????1??H?????H??`???H?5?3
H???1??H??8??H??????H??h??H??h??H??H???H????:??H?????H??h????H?5nG
H???T1??H????H??h???H?5\3
H???21??H??8??H???(???H??p??H??p??H??H???H???W:??H??@??H??p???QH?5?F
H????0??H?????H??p???H?5?2
H???0??H??8??H??????H??x??H??x??H??H???H????9??H?????H??x???XH?5?F
H???j0??H?????H??x??? H?5r2
H???H0??H??8??H???>???H?????H?????H??H???H???m9??H?????H??????v
H?5F
H????/??H?????H??????H?5?1
H????/??H??8??H???????H?????H?????H??H???H????8??H?????H??????H?5?1
H???/??H???$??H??8????]H?5?{
H??????H??8??H??{
H? ????H??H???????H??8??H?????????t?H??8??H???a???H??H??
H?Ǹ? CH??8??H???????
?PH??8??H?W{
H? R???H??H???p???H??8??H???N?????t?H??8??H???????H??H?
H?Ǹ?BH??8??H???9????
??
H??8??H?{
H? ????H??H???????H??8??H?????????t?H??8??H???}???H??H??
H?Ǹ?%BH??8??H????????
?l
H??8??H??z
H? ????H??H??????H??8??H???j?????t?H??8??H??????H??H?0
H?Ǹ?AH??8??H???U????
??H??8??H?Cz
H? ????H??H??????H??8??H?????????t?H??8??H??????H??H??
H?Ǹ?AAH??8??H????????
?H??`???H??8??H? ?
H??H?Ǹ?H???H??8??H????????t?É??
?? ??a??v??01҃? ?‰??????????????? ??????????W߃?]v1??H??????????H???????????Wи
?? v?? 1???a???????????O??????? ??B????????O???????_??B???????USH??H?????H?߉?? H????[]?S1?? ????x%??
????H??t?X[?Hc??1???SI???W;W}Hc?H?wH
??H
?A?PH?PI?[?HcI?p???H?Å?~A?@1?1?A?@뽍@???t ?.?ۉ1????f.?fDH??X
I??1?H??L?L$ ?&L???H?H??gWL?1?DI??H??
H??u?I??H???ff.?ff.?H??H?H??tH??%w?H?pH?t? ??H??$?H???H??$
H??tH?x?H?D$PH?ĽH??tH???XWH???XWH?H?B
H??9H??$
H??`H??HE???ff.?ff.??H??
?P???t ??/u?H?
??L????H??$??A
H??$?H9D$xtRf??H??1?H?D$?)$?D$?D$
??x;H??L?D$A???H?=?_?-H??$?H9?$?u?H??$?u??(???f?H??L9?t?B t?L??H??y?????o?
H??X
?USH???zs??H???:WH???:W??H??H9?r?H??[]?AUHc?ATL?l?I??UH??SH??H????????L??H??A?ԉ??fs??ATHc?I??UH?|?H??SH?2H??????H?ډ?L??H?????[]A\??SH??t-H?èXWH???H???}s?C
H?dH?%H?P([?H?èXWHi?mN?AH?????AT?=UH??S?kI??I)?t?8uH??gWH?H??u1?[]A\?H??H?3H??t?L??H????l??u?H?B?< =u?J?D
??dH?%H??4?H?`???wHc?H??^?zH
?H?v(H???
dH?%H???????H??8??*1??I*H?=???Ltf??H?t$1?)D$A?? ?)D$ dH?%?Hcx0???H?t$?
H?D$ ?? ?B*??2??USH??H??;WH???:W?H??1??H9?r?H??1?[]???S??H??P??@H?T$0u ??1??ЩAu H?D$`?D$?L$0H?D$H?D$ H?D$H????H??E1?j?΀?E1?Hc??WtZYHc???x??t?H??
?H??P[?H?????wH???H??H?|$?I???H?|$?߉8H??????H???H??Hc?Hc??IH??????H???H?????dH?%H???H?p(?
?H?y??AWAVAUATUHc?SH??h???
L?-??I??L???|r??tUM????
L????ڤH?????H?øH?D?8H?XH??L??H??\HD???rH??hH??[]A\A]A^A_?M????H?C.UTF-81?L?t$1?H?D$H?T$H?D$ ?L??D???\?H???tXH?D?0H??
A??H??tU?;L????gH??L)?H???L??L??H?$H?D$??oH?$H?L$?D?9t?L?a
?L???3r1??E???foD$0?foD$@?foD$P?L?=?E1?H?-1??LI?1?H9۷??A
?H?XH??H?c[HD?I??H???hH??H??I??H???4oB?D5;J?l5
H?ķI9?u??E?L???qA??H???HE?????H?0?H?D?8?h????gdH?%H????????1??f.?f.?f.?f.??ATI??USH??tH??H??p?L??L???=H??H??t6?????t6I?????J?<#?H??????^?\????1?H??[]A\?H?????t???f.?H??H9?t?oB?fo?fs?f??fH~?H??t?H??H??H)?H
?H)?1??BnI??I)?I???vH?????H???L??H??1?[]A\?n??@AUATU?
S?
H??H??HE?y?????1???
?H
?H9?sH??v?L?%۶H??
L???/oH???H???H??H??H!?H
?H??H)?H?=??H9???H?????H??H?ف??H
?H?a?H?b?H?c?H??H)?H???H??H?????H??H9???H?5???H?<H9?HC?H???H9?sH9?rlH?t$??H9?HC?H???H9?sH9?rJ?H? ׵H
?H9?u4HеH?=ѵH?µH???H???H???H9??H???L???I?????L??L??H)?H??H9????5i??H?m?H+n???????H?H??H)?H9?sxI9?s??vVI??E1?A??????"1??L???H??H???t8I
?H??L?-?H
?L??H?-??$nH??H??[]A\A]Ã?
?5ڴ?L???n?????1?E1?A??????"?L???;L??H????mH???u??????????@??t
??W??w?A?Ѓ?A????t??t
?w?????
????H?H)?H?G?H?O?H9Ht
??H ??9?}
?HD??s
?HD??s
?H??H?=K?H?????H99t
??x ??f???????/w6H?=?_????OA??D??A9?~??H f??????O??
??9?? ??f???t
?H?x ?vH?H Hc?H?????H??H??
H9?s
??DSH????fHnǾ
fl???H??D?C ?G ??SD??f??E?? ׃???????D?>A????
A9?t^??uL??/~
?L?]?Hc?I9\?Pt5H?{t
?H?;t
?H?? I??H????H?CH?H?H?XH?CH?? s1?1?H??[?A?? t?L?K??/??H?S ??uHH?????H?????L?z^H?J?Hc?E?PA??Mc?L9?s%M????L????
H?????Hc?L9?tL???M????I?D?P???L?t???vI?D?PI?D?P?H?A??pcv?A?J
Hc?H??I9???
r??~ƅ?????M9L?P??????????Hc?M??u?W???M??tr?L?KHc?L???I?D?PL9?t?H?L?IH?I? H?J I;\?P??f??H9????C f???????/?K Hc?A??A??A?J
Hc?I)???
H?{ ??
???J
???????? ????wH?H?a???PH?S H?CH?????f??H?C KH? A?H????H?KH? H?H?YH?KH??????H?sI?4??+???I?t?PH???-????F??t
?H?F?L?N?H??D?W??ߋV??!щ??A? 9?u?A!?D?V?????H???H?J ???H???B?H9?u?
????L?K)$L??????A?q?H??H?C??H?????fo$????H?W??,???I??????H???p
AUI??ATUSH???]???A?q?H?É???????@ uH?x ?vH?@ H%???H????C H?~[f??????B??H???H??HCH?T????@???w}??H??L)?H9?s
?H??H)ƀ>t
?:t
??
1?????K A?A??fA?A????
?S?C Ѕ?t
??tN
?9?tH?????t5????K9?u?H??[]A\A]?<t
?B?H??w
?z??m?????g????K???έL?%????u9H?߉??6???L??H??H????gH??t??r???H??H??D?(I???'E?,$?L???g?Å?x t#?L???g???u
?H?=8???fH?=,??g?ATUSH???z???tJH?w?H????H?CH9???H?H?BH?H?H;M???f??H??H??[]A\?H?l$H??1?Hi?mN?AH?D$??H??H?H??t%H??u?H?tH??H???]dH??????̭
H?D$H????E???H?̭H??t)H???H??
H???f??H?C(H????N???L?%??M??tAH?-??I??
???????H???k????
H?b?L?`??H?°H???t>H????H???H??H9???
L?%"?H???????M???t???H? ?E1?1?1?A?A?????I??"L??H???H????~???H??I?D$?H?ʬ
H?-۬H???????%???I??H??L?%??H???H???H????H?hH?L?H?-??H?EH?z??@eH?l?H?X?d?????L??H??H??H?݁??H
?H??H?-??H?? H??H9??????E1?A??????21?H?=d???H?-S?H???3????>????8&?`????l???H?-ͫ?=???H?CH????I???H????9???f.?fDAWL?=W?AVLc?H??AUI?N ATM??USH??(I??H?????B????
?BH?r????I?4??N ??V????
9???L?F?A?H??A?Ƀ?
A????uL?VL9???O?T?PL?֋F??t
?H?FA?L?N?HA??E?P?A?؋V?щ?D!??A? 9?u?D??!ЉF?
??V f??????J???????Hc?A??p???
??
A??p??H9?t7H?H?pH?H?I;?tf??K?t?PH???????H?BI????I???҃? ?-???H?vK?t?P?V?????A?B H?wUA?qf?????D?B??A??A?у??ff.?ff.?f???
??A??A?1?=?~?A?B A?P????
9?Oƃ????
?? ?A?@?????V f??????J????????H?????!?)ȉB??????H?lT??!?i?)?k???H??([]A\A]A^A_?D??H?bT????ff.?ff.?????
u??H?H9?r??f???Hc?I??H=??w?HcӃ?
t[M??L??I?AH=?{D??Mc?A?D$?? ???wtH?A??PE??p??u31?A??c@??A???TI?EH=w???M??A??D??A)?A?? ?A?s
A??cA?????AC?A??p?A?
1??B
?????
?v?A??
? A????
A?D$
H?I???
L9?s E????
??Hc?A??I??H??????H)?%?L?T??u=E??t8H??????I?UH)?%?H?DH9?rH=??v?Hc?H9?sI?»
L??E1?1?A??????"?L?T$?L?T$H???H????
H?E I?????1?D?C?%?I ¸?I??L?U ???
??
9?AM?1҉?HcӅ?I??K
???
????H?u??
A?????D????A????
???? ?U?UD ?)Ѓ?
?E??H?.H?M???Q??? ЈA?E f%? ËEf?] ??
H?}?Et
?H?}t
?I?? K??H????H?EH?H?EH?hH?EH?(1?????H?x?H?P ? f??H???@?H9?u?
????L9???????C???D??????toI???vtA?
???$???L9?????E??????D??????
?????I????????K?T-H???????H)?%?L?T?????I??@w?????I?? ?????A?
??????f??H?E EEH?C?H???
fo$]H?-*??
L??I?qH??I???v`H?O
?ω????? ????? ????? ??x
??!?H?=Pi?)?k????H??????H???US??H??H??????Hc?dH?%Hcx0??H???S???H??H??????H?Ĉ??[]úH?5???GATLc?USH??H??@H????H?I??H??
???O??
H???H??H??Hc?H??H???H ?=j?u7?i???u-H?t$ A?1?H?H?D$ ??8?
A????tI??,H????H?T$ 1??V?
?????$I?A??? H?$I?p?H?H?|$H?D$H??
H?D$?FH??H?T$ H??tRA?? L????H??t*??u&H?D$ H?t$8H?{?H?H?D$(????:FHc??????H??@[]A\?A?? L??H??????A?? L??H??????AT?G?USH?? ??v?G????w??tH?? []A\?P???????????????JH?l$L?%??H?T$H??H?4$?]???L???dGH?T$H?4$?????L?????GH???d???H?? ??[]A\ÍN????w?? ??v?
H??H 1??H???Q?????????H???H?1??H??H
A??1??H??$?H??$?H??H??$??H?D??DŽ$(
???????H????????xH?$H??H
?S??H?Å?u??[??????????????H??H?????SH???;???H???H??1?H????????݉S???H????y?'?[????#υ?t?H??[???ATUS???H????y?
H?߉??S ??
t0??[]A\??=?H??A????H?߉??S ?E??t?H??軍??H????????H?ShH??tH?KpH?JpH?SpH??tH?KhH?JhH9t?H????????H????????H?SpH???UH??SH???????y?????
H????[]?藌?]????
??t?H???!???UH??SH???????y?????
H????[]??U??]????
??t?H???ߌ??ATUSH??tr???H??1????H?C8H9C(t1?1?H???SHH?{(??H?sH?CH9?tH)ƺ
H???SPf??H?C8C C????1??[]A\?H???1?H??tH?=???k?????H???H??tH?=x??Q??? ??<H??0H???z?A??H?C8H9C(t H???(??? ?E??tH?????H?[pH??t ?????y?H?C8H9C(t?H??????? ????? ?Z??????????????u ??????@???H??衋??H??藋?'???AWA??AVAUI??ATUSH??H???????y>E1???
~A??
M???????B? Љ??1?A??
??A?EL????H??苊A??A??
?????B? Љ??E??t?H?????H?kL??H)?H9?HG?H???,AH?CI?,H
?H?CA)???H;C??H?H
H?K??A??
L?b
< tKE??tFH?{H?SH9?t]H)?? ?,7H?sIc?H??t?H)?L??H?h
H9?HG?H??I
??@H
kM??tA?$L??E??u9H??[]A\A]A^A_?I??H??????xL???o???1?M9?t??t??I???H??H?D$??H?D$?AUATUH??H?=a+SH??H???6??7H??twH??A?覈H?ﺶ
??A??L?????Hc?H??????H??A????xGA??tHc?L??H?
H??D???ɆH??H??tH??H??[]A\A]??????1???Hc????H???H?T$0H?L$8L?D$@L?L$H??t7)D$P)L$`)T$p)?$?)?$?)?$?)?$?)?$?H??$?H?T$?D$H?D$H?D$ ?D$0H?D$??0H????AT1?A???????UH???SH????????uWE??D9??tTH?C(H;C tJH?P
H?S(D? 1?????@tA????H??
L??H???t"[D??]A\?H??蜇?D??H???o?A???L?Ⱦ
?ҋ??H????xt??????dH?%;Q0tH???4???@??;??tH?P(H;P tH?J
H?H(??@?:?H????ATI??UH??S?U7L??H??
H??H???YH9?[]??A\?????AWI??1?AVL??I??AUI??ATI??UH??SH??H??LD苁??D$??yI???H?uL???B? ?H?U???H9?tFH)?L??L9?IG?H?T$?a=H?T$H
UI
?H)??H???e??D$?H??????0H)?I
?H??t?H???ډ??uH??L??H???U@H??u؋T$??u?L??1?H)?I??H??[]A\A]A^A_ËD$??uL????H??薆??AVE1?AUI??ATI??H??USH???L??ŋ??????H??????M????L??L???H???I??H?????xx?sx9????@x?????L???
A$?I?D$@H?C@I?D$HH?CHI?D$PH?CPI?D$H?C?????ǃ?Hǃ?E????H??[]A\A]A^?H???"?A???R?????tHc{x?H??
??????Hc{x?H?Hc?H???i???H??y?H???a???1?똉???*O???+???L???@?????H???D??i???ATUS??wZH??I??Ճ?
t_H?C8H9C(t1?1?H???SHH?{(t=f????L??H??C H?C8?SPf??H??x?#?1?C[]A\??(???????????H?GH??t?H+GI)??ATUSH??H???????y H??[]A\?W????T$H?4$???T$H?4$H??A???7?????E??tH???g?H????[]A\?ATUSH??H???????y H??[]A\??????T$H?4$荃?T$H?4$H??A?????????E??tH????H????[]A\?S?
H?GPH????tH?w8?H9w(t!1?H????H??xH?KH??tH?SH)?H
?[ú
??H?K8H??t?H?S(H)?H
???ATUS???H????y []A\??????H??A???x???H??E??tH???h?H??[]A\?ATUS???H????y []A\?F???衂H??A???6???H??E??tH???&?H??[]A\?f.?f.??AVAUI??ATI??UH??SH?B H??t;I?|$(H)?L9?rAA??$?L???yMM??L??H???9M
t$(L??[]A\A]A^?H??? ???uUI?D$ ?[I?D$HL??H??L??]A\A]A^??H??H??t??|? H?C?u?H??H??L??A?T$HH9?r?M??I?|$(H
?I)??1??AW1?AVI??AUL??I??ATI??UH??SH??H??HE?H?Ë????y0H??L??????I??M9?tL??1?H??H??H??H??[]A\A]A^A_?H???=?L??L??L??A???????I??E??t?L??輁?U1?H????????SH??H????????uMH?CH;CtJH?P
H?SD?1?????@tA????H??
L??H???tH??D??[]?襀?H????A???L?Ⱦ
?֋????xt%????dH?%;B0t?L???H?GH;GtH?P
H?W??预H??H?=u???8H?q?H???H?=]??9H???H?t$(H?T$0H?L$8L?D$@L?L$H??t7)D$P)L$`)T$p)?$?)?$?)?$?)?$?)?$?H??$?H?T$H???D$H?D$H?=?xH?D$ ?D$0H?D$?'(H???ËyATUH?-rxSH????yIH??????E1??6?????x.?=?x tMH?nxH;_xt=H?P
1?H?Xx? E??uE??H?D$p??&H??$HI?????I??H???D$>??f?D$H??H?$?C???H?$?,$????????????z?u???????E??L??1?I?SZ??/?D?JA??
D?T$@H?\$(?D$ ?&H?C HDË\$ H?D$(??A??w,???%D)?? ??Ƀ?
s?H?D$(?8-t$????D??L?D$PH???????????L??AH?Hc??S????????????????ff.?ff.?ff.?f?H??H??
H??H??H??H
?H)???0?H??H??u?L9?tY?L$H?F?????A??A??H?D$A?
??A??+??D?V?E??F?@??L???? ?|$>H?5#?T$>??f?T$L?x
?$Hc$D???A ?D???L9??U???L?????????I???k?????????d F?t=E??D
?f?D$
?"
?T$9?|kA?E ??E)?E???$ ?D$9??$1?D??0L???????A?E uH?|$L??H??? ????D$?? ?
???<$???????پ L??H?D$L?$????A?E L?$H?D$?t???H?|$(L??H??L?D$?????D$L?D$9ËD$?$?$5
?
u%??u!?T$?پ0L??L?D$?????$L?D$A?E uLL??L??L??E)??^???E??????????A?E ?r????D$9ËD$?$?$5
?
u??t?E)?E?????????????D$8
A?A?H?D$?????D$8
A?A?H?D$????ff.?ff.?ff.?ff.???7??H??H??H
?H??H?? H??I??H??Hi?ʚ;H)ƉwH9?sυ?t?U?H???f?H??H9?s?s???t?A)ɸ
E??~?H?{?A9?AN?1?뻄?t D?L$@1??}E????D??E1????ff.?D?H????D!???
??׉p?A??H9?r?M??uH????t?;H??A??fL??H??H?L$HE?H)?H
?H??L9?HOظ
E??y0A????y???A?? ? A?
A?ʚ;H??1?A??A??A??
누?tD?L$@H9???L???UH)?H????ɚ;vH???FH9?s??E?H????L???UH)?H???E??~9A?H?t$Y띸 A9?AN?1?Hc?L??H)?L9?HB?L??H?<0H????????A?T$ ?? ??
? ?0L???n????
H9?t-A?EH??L?D$P?? I9???@??
t1I9?s1?G?0H?W??"?G?0H?|$X??ff.???B?0H???0I9?r?L??1?H)?L9?HB?L?:L)?????A)?I??I9???E????H?L$YA?7H??ff.?H???N???H??H??
I??H??H??H
?H)ƃ?0@?7H????L?G
??tL)??L??
H?L$ L?$??????T$A?EL?$H?L$ ???? D ??T?????u?L??
H?= H?L$ L?$????A?EH?L$ L?$?? ????Ic?L??L??H?$H9?HO??b???H?$????A?T$??;A?E tH?D$?? ?
u?|$tJ?\$?D$9?M?H??([]A\A]A^A_ù?0L???????H?|$0H?t$PL??H)??????롋L$?T$? L???t????f.?f.?f.?f.?f.?AWI??E1?L?QAVI??AUATE1?USH??H?T$H?L$0L?D$(?D$H?dA?E
I??
??t<%u?L???f.?I??
H???;%u?{
%t?D??M)?D)??D$H?I9??@E??M??tA? t6E??tVI?޸???D)?D9??A????A?E
????5 M???z???L??Ic?L??L?$????L?$L?tA??????C
?PЉǃ? w?{$t?D$????H??
1???(
?
?-?C?T$H???D$H
????fD??H??
?? ???ǍH?????
??r?@??*?q
H?C
H?ǃ?0?? ???{$t-?D$H????H??
M????D?l$ E???$?????H?CM??tH?L$0H???D$H
H??D??9????gH?L$(?D$H
E??DŽ?@??? ?{H????D?L$HE???jH??
E??M????H?|$???/w0?ƒ?HW??D$HD? ?;E?????? A???H?|$H?WH?BH?G??)?A???ff.?f?A??????C
H??
?ǃ?0?? wHA?????w?Ak???????9?~??C
??0?? w?CH????0?? v??$????K?E???A???t?@??.?k
?C
<*??H?CH?ƒ?0?? w?{$tC?t$H???YM????H?|$???/wk?ƒ?HW???$?????D$ H???
M??t&H?D$0H??H??????$?????D$ H????H?D$(D?,$?D$
DŽ?@??? ??H?|$H?WH?BH?G?D?,$?D$
?D?,$H??
?F)Љ$?7ff.?ff.?ff.?ff.?@?$?????C
H??
??0?? w:?<$?????w?k???????9?~??C
H?S
??0?? w,?CH????0?? v???D$
?D?l$ ?$????1??H???D$
?$?????萉????A??9?? ??Hc?H??
Hk?:L
??4?V???vӅ??? ??t|?|$?????Hc?M??tyH?|$0H??fo)D$`A? ?? ?S??օ?t?׃?߃?@??@??D։???????? E?r???7?H?=Hc4?H
???|$??6 M??u??H?D$(?4?I???`???M??t&H?T$H?|$`H?L$8?D$?K????D$H?L$8?_???E1???L?D$`??փ? L?D$`H??$?H?|$@I??H?=?L???
H?D$`Lc4$H?$H?D$TL?<$E1?H?D$ M9???A?7????H?|$ I??L?\$D?L$??T???rL??H?D?L$L?\$L)?L?7H9??cI
?륃?????H?? Hc?H
???H?D$`D? ?????H?D$`fD? ?????H?D$`D? ?????H?T$`Ic?H???????<$?? ?x9?Cǃ??$?????ff.?ff.?H??I??
H????D?<A ?E?>H??u?H?=T
D?l$H?|$8M???n
@???d
???D$??H?H
?H?|$8?H
H??$?H?D$`H?|$@I???ff.???I??
H??????0A?H??u?H??D?l$H?D$8@????H?t$@Hc$L)?H?N
H9?Mщ$??L?D$`M??xCH???D$
H?D$8??uIH??
D?l$H?D$8@??
t5H???D$
H?D$8?"L??H?=O?D$
H??H?|$8H?D$`I??H??$?L??H?????????H?D$@I???@H?D?l$L?D$`H?D$8???H??I??
H??H??H??H
?H)???0A?H??H??uڋ$??y?D$
?S???D?|$ ??$%????E??E?H?|$`????u????H?|$@Hc$???L$L)?H
?H?|$ H9?HL?Hc?H9?Olj$?Ǹ???)?9???????$?|$D?8E9?E??EM?D9|$???????
??E9??sA? ??H?D$ ?<$??9??l???E9?A???"L?\$ D?L$觠???8?ڠ??D?L$L?\$ I??D?$E??x}Hc4$L??L?\$ D?L$?? L?\$ D?L$L?? I??I?L)?D?$??????H?D$ H??Ic?H9??iH?y? D?l$H?D$8????L?t$`H?h? M??LD??z???????L??L?\$D?$?H D?$L?\$L?S I??I??8?{???????L?D$`M??uBH?? D??$???????A?
D?l$L??$?H?D$8?$
H?D$
?~???L?l$XD?D$XI???????D$\L?l$`L?,$?6???I??????)???E9?D?l$8D???D$ ?D$ ??
u????E1?L?t$TM9???H?$?0????H??L??L?\$D?L$H?$??OD?L$L?\$L?O Hc?I
?M9?r^A? u?L??L??D?L$L?\$?i???D?L$L?\$L? ?D??L?߾ D?L$L?\$?????D?L$L?\$L???M????? ??
u?|$ t?D$8A9?AM?A????????L$8D??L?߾ D?L$L?$????D?L$L?$L??뾋<$??y?D$
??????t$hA?Љ?D???t$hL?ߋT$L?\$?????YL?T^???L?$A???????????H?D$ ?$A??H?? D?l$H?D$8????H??$?L)?H?D$ H??Hc$H9?~!H????D?D$L?t$@D?,$H?D$ ?l???D?$?0???D??L??D??? D?L$LD?D$@L?\$????L?\$D?D$@L??D?L$LA? ?U????A? u7Hct$H?|$8L??D?D$LD?L$@L?\$????L?\$D?L$@L?[D?D$LE9???A??5
?
u3E??u.D??L??D???0D?D$L?\$?????D?D$L?\$L?H?D$ ?<$??9?})?$L?߾0D?D$L?$?????D?D$L?$L??A? tB?? ??
?????E???????L??D??D??? L?$????L?$L???????H?t$ L??L??D?D$L?$????L?$D?D$L?f?M?????T$H???r???H?|$0A?
H??H?D$(B?4???t7H?T$I??
????H??I?? u?A?
?;ff.??I??
I?? t?H?D$(B????t??x????A?????H?ĘD??[]A\A]A^A_?AWf??AVAUATUSH??1?H??h
H?t$L?d$(L?t$@)D$@L??$?M??H?D$`L??)D$P?oD$(H?BL??H?D$8????????D
???1?????????߃? H?{`??L$??H?CXH?C`Pf??H??H?C8A?????H?D$H?D$pH?CXC ?Z??uH?t$M??L??L??H???z???A??H?|$t61?1?H???SHH?{(??H?D$H?C`f??H?C8H?CXC ??L$?????? DE? ȉ??ucH??h
D??[]A\A]A^A_?H???V??????H?{ tH?t$M??L??L??H???????A???H??A?????Y??u???A??????c???H???XV?A??????AVI??AUATI??UH??SL???H?w8H?O(I?EI?}H)?H9?H??HG?H??u*I9?IF?H??H??u;?H?EXH?E8H?E(L??[]A\A]A^?H???%I?}I?EH
?H)?I?}I?E?H??L???I?}I)]H
?I?}?H??
I??H??L?D$H??tI??H??
H?|$ 1??A??H?H?t$H?|$ L??H????L?D$H?D$hH?D$H?D$xH?H??$?H?D$H??$??.???H??
?H??H??????n???AWI??AVAUI??1?ATUH??SH??
H??H??L???L??M?$?
H??t H??I??L)?L9?L??L??IG?I
?H???L?uH??L?eL???H??[]A\A]A^A_?H???I??1??H???H?H?e???H??L?D$XH?D$@DŽ$?????L??$??9YH????1????I??H? ??????jAUATA??UH??1?SH??H???H?|$H?|$XH??H?D$?????:?
D??H???/H??tH?D$H+D$XH?$?H
?H?]H???[]A\A]?H??1??????\$?D$H???H???
?i????\$?D$H??ú?P???f.?f.?f.?f.??H??@???H??
H??
??tMH?????
9?u??
9?t>H?







Lc?SL?H?????????L??H??I?????????H???H
??!1?H??u??H???xff.?DH??L??H)?H9?t9H?9L1?L?H??L!?L??t?H???ff.?ff.??H??
H??
H??t ?9?u?[?1???fDH??
H??
H??t?9?u??1????*ff.?ff.??H??
H??
H??
H??t?8t???)??1??UH??SH??H???
H??H?<?=
H??H??[]?S??? 1?8[HE????SH?????t??t???t9?tH??
???W
H
?H??[?H?







Lc?H?????????I?????????L??ff.?ff.?ff.?f?H?H??H?:H??L1?H!?H??H
?H??H!?H ?L??u H????H??
????m???9?u??d???f.?f.?@1?ff.?ff.????8?uH??
??u?1????)??SH????lH??[?USH??H???FH?h
H??藛??H??tH??H??H??H??[]??H??1?[]?f.?f.?@H???ff.?H??
?t?8u??JI?????????H??????????ff.?H??H?J?H??H!?H??t???H??
?8u?H)??f.?f?I??1?H??thH??
1?ff.?ff.?ff.?ff.?@A? D???t%E??@??D8?A??D!?H9?A??H??
D??u?D)??1???SH???@lH??[?UH??H??SH??1?H???????H??H)?H??H??HE?H??[]?SH???m1?H
?[?8HD??f.?f.??f??1?)D$?)D$?????~
A?
tEff.?ff.????tY??L??H??
??H????H T????H??
:t?H)??H????ff.?@H??
???t݉?????H?L??H??r???H?????f.?f.?f.?f.?f.??AWf??E1?AVAUATUH??SH??
H??H)D$ )D$0?-ff.?fD??H??I??
??H??L?|?@??H T? B?;????B?|=u?E1?H??HL??[]A\A]A^A_?H?L$H9?tH??
?H?Ǻ
H?L9?s\H?$?4H
??@8?t?@8?sH?<$H??H)?H?L$??H?<$?
H??
H?D$
?H?D$
?
1?H?$?????A?
?
1?H???????L9?tH??
?H???
H?L9?s-H?4D?D8>t?sI??I)???H??A?
H??
?
??H?4$H?G
L?f
I9?sH?<$I??L?T$L?t$H??L??J?43?*???L??L)?H?|$??t$H?<$I?G?H?D$H)?H9?HB?H??
H?D$L??I??E1?H???H?D$?iH?T$1?H???????H??tH??L)?L9??q???H???LH?D$H
??Bff.?ff.?ff.?ff.?DM
?E1?H??L)?L9?r?C?D>???????H?T? H??s?L??H+t?@H??tI9?IC?E1?I
???M9?L??IC??ff.?H??
???tA:t?H?$E1?H)?I
??L??ff.?ff.?fDI9??????H??
A?<@8<t?H?D$L?l$I
??v$H?GH?G'H?G/H?G7H?D?H?D?H?D?H?D?H?????I??H?D?H??uH???H?L???1?)???H?H?GH)?H
???f.?f.?f.??SH??1?H??H????fo$H?{dH?%HcH0fo?fs?H??f??H??fH~?H
?H
?H??ff.?ff.?????H??
H???????LNA?J?H9?u?H??H??[?1?1??Wf? lF??t1??
????…?x ???u ??FF?퍊???A?Љ??D???9?t???
t??x?D??
?????A?
?D?A??A??
?A?????D??????D?A??9?t?D??E??y?Ic?E1?L?Ⱦ?H???u?1?L??뽋??x
ø?????=
?t?A?????
L??H???u?L???
?H??M??H??M??H??L?L$H????????H?=?R?K
H?=?R?H?=?R??1??ATUH??SH???x??un?e???
t ???t?S??t?A?????H???J??u@???t???ҁ????u???C?D?#D?CH??1Ҿ????H??A????~f??K?????t?[]A\Ë??%???=???t=???t?J
????9?u?1?øø?D?O?1?????79?t ?D?G?ʁ?????????tލq???
u??ԅ?u E??u??x1??1?A???A??@??L??????
H???uپ
L????1??fH??t ???w&Hc?A????uH??t H????????H! ??1??????H???H?????uTH??Z?{cH?$H9?AH?t$Hi?????H???S㥛? H??H???H??H????????H??H
?H)?H9?H)?H???H????????UH??H?5r? S??H?=}? H????+H??H??????H??=H??t H??H???[]??H???????[]?U??SH??H??H??=H??t?Ѕ?t;???t:Hc???H?????u6H????????u.?`H??1?iC?H?H?C1??H???????????Hc?????H??[]?H)?f???H*??H?57P?SH??H???&f??x?C H??? H?C(H?C0H??[??????K1???H?5-P?H??B?UH??H?{????
SH??H??H
?H9?r7H??H?N(H?V E1?L?N01??sH?{(H??H}?e??x H??H??[]?蘆??1??K??AWAVAUATUH??SH??h?hL?t$L?l$H?
L?d$@L?L$PH??M??L??L??L?L$H???2s?E H?T$HL?L$??x;D$@tH
?H+\$H)?1?M??L??H??L??L?|$ ??rH?|$HL??H
???d??x9foD$ H?D$PEfoD$0H?E0EfoD$@E H??hH??[]A\A]A^A_?躅??H???????K??H??H??H??1?1??;x??Hc??*???H??É?֍Q)?I??Hi?%I?$D??H?? )???
?????)‰???q
D)?I??Hi?%I?$?TI??Hi?%I?$D??H?? H?? )???
?D??)?????
????4?)?A)?A??w ??
??5???A??w??AH??Hi?%I?$??H?? )???
?????)?)??5??tȸ4??u?Hc׉?Hi???Q??H??')?iҐ
)ׁ?k@??u?i?)\?¸5??????(\??y?????1???ף????4Í?s
H??Hi?%I?$??H?? )???
????4?)?)???4?????t?
Í?0????????O???l??u?i?)\??P???????(\??????????ף?
C??f.?f.?f.?f.?AWAVAUI??ATI??U1?SH??H??H?L$L?D$?d
A?D-H?ĨH??[]A\A]A^A_?A?D-H??
?7
L?s
E1?A??+??
?y
L?s
A??E1??x
? H?t$(L??D?L$??ZH?\$(D?L$I????P??????@H??si??M????
L?D$H?L$H?t$ H?|$0L?\$??H??H????H?|$ L?\$?H???Bը?uH??
?V
H??
H?L$ 1?L??
I??H?5r>H??>????????Hc????<H????AVAUI??ATU??SH?GH;??tBH?P
H?W??CՃ??urI?EI;??t,H?P
I?U??BЃ? w%E1??-Hc?A???N?rHc??L???e???Ӆ?t8I???xI?EH??
H??
I?EH?????CЃ? wE1?1??I???x?I?E??L??? Hc؍CЃ? w*?????"?D??lC?I?EI;??t?H?P
I?U???I??G?z?G
Hc??L????Hc؍CЃ? wUL9?1H?D?H?lC?I?EI;??t?H?P
I?U???L????ÍCЃ? wI?EI;??t?H?P
I?U???I???xI?m
H??H??E??HE?[H??]A\A]A^?f.??AW??AVAUE1?ATI??USH??h ?T$X?L$TD?D$ D?L$0?L????A?
??0uI?D$I;?$?t?H?P
I?T$???1?1ۃ?.t?D$`E1?E1?1?E1???I?D$I;?$?tH?P
I?T$?1??L?????L???A?
??0u!I?D$H??
I;?$?t?H?H
I?L$??Ծ
넃?.??I??
A???I??0Ic?EEƅ?t*?L?`??
A?
???O?L?`?? u2A??
A?
1??$?|?`A?
?
???0t??$P
A??GI?D$I;?$?t/H?x
I?|$??xЃ? ?g?????.u,???? L??
??L??t$D?$??t$D?$?Å?ID?E????
???? ??e?a
??xI??$?xI?l$
?D$`????
I9?u!I?? ?|$X????
?Ɖ??????
?L$T?D$ ????
?????H?H9???
?ȃ??H?H9???
??tY??PIcϋD?`??
????
????
????
????
?u????
????
i????D?`A??
?A??9?N?A9? ????
Mc?H?|$`f?L??M??D?\??E??t?Mc?D??A??Mi?9??8??I??!A)?C??E??A)??hE??A?D$ H?V? DH?E1?E1?E1?D)?H?D????
?t$0L??D?$?!???D?$H??H9?tH
?????D?l$0E???j??????????o???1?L???r???f??f???*L$ ?Y??$?$H??h []A\A]A^A_??D$ H?$?,$?????<$?ko???-? ?"?,$???????<$?No???-? ?"?,$????륍?
??D?`????k?d?D?`????i???D?`?s???i?'?D?`?d???i???
?D?`?U???i?@B?D?`?F???i?????D?`?7????D$`?? tJ??~S?S??\$X??)ʍ????????$???A?R?H? ?? H?$Hc????,$?????????H?$?,$???????H?$?H??? ?,$)?H???????????ff.?ff.?fDA??
H??E9?t;?1?A??B?A?ָʚ;1?A???A??A??E9?uͅ?u?A??
A?? A????E??tHc?D?n
D?D?`E)?E??A?? I?SZ??/?D1??D?ʉt?`???9?tED9?ta??
???Hcϋt?`H??H
?1?H??ʚ;v?H??H?? H??I??H????Hi?ʚ;)??D9?t?O??????uA??D?J???묉?먅?u$A??~Ică|?`w;E?M?D?σ?1?????A??
A?? A???E9?tIcԉD?`A??~?A??t?E?|$
???J?Hc?A?Ձ???t?`t?`?t?`??E9???
Ic?A????D?`H?$?,$????E9???
B?D?`? ?? H?$?,$A?D$%???D9???
?D?`? ?? D?}@D??D?t$XH?$?,$?D$T??)???D9????$A??????@?D)?D)?????? ?t$\?|$0?_?l$0H?? ?D$0???|$?|$`?D$0?<$??a? ???|$PH?? ?$?D$?D$H?? ?|$?l$`???<$?|$0????l$0???l$P?t$|H?? ??A?D$%?D9?t[?D?`=?d??B??uA?D$%?D9?t$?????f???*D$ ?Y?? ?D$?D$??ɸ@D)???
?N???? ????????ʋ\$T?D$X??????)???D???{?%???9??v??H?????<$??XZ?\???E??A???A?E?H??D?`? ???A??
A???A?E?H??D?`? ???A??
A???A?U?Hc??D?`????A?e?A??
? ??ff.????
%?D9?t9Hc??T?`??D!?A????D
Ήt?`A??D9?u҅?u?A???A?? E??E?
?E??tA?E
%?D9???Mc?F?L?`A??E9?tIIcċD?`??v=??uBD??%?A9?t+?D?`=Ơv = Ơu#A?D$%?A9?t ?|?`??J*w A???????A??$????A?e?A?
?

?D??E1?? ???A?E?%??L?`
?m?????x?$
A???????$
?@?E1?????????????f???*D$ =e?t??????Y?? ?D$?D$?????A?D$%?D9?u????Y?? ?D$?D$???????|$@??H?? ?t$@?|$P???|$???<$?|$0?!H?? ?t$ ?????????l$?l$0?l$@?n????n????????????e??????|$ H?????t$d???<$?|$ ??AXAY??? ?ɋt$T?????l$?l$ sGD?}?D9?~&??
??????E„??-????$???"???????<$?h???,$?"?????ɋ<$? F? ??
??t D9?u?????A9?}?????????$
?E???k???I??$??????I?l$
?????@???h AW??H??? AVAUATU??SH??H??XD?,?H??? D?4?ff.??H?CH;????
H?P
H?S?0?F???v܃? t׍F?A?
???u)1???-??
?A)?H?CH;???t
H?P
H?S?0???? ??i?zH?CH;???Y
H?P
H?S?0?? ??n?< H?CH;???@
H?P
H?S?0?? ??f? H?CH;???'
H?P
H?S??? ??i?3 H?CH;???
H?P
H?S??? ??n??H?CH;????H?P
H?S??? ??i??H?CH;????H?P
H?S??? ??t??H?CH;????H?P
H?S??? ??y?6f???A*??Y9? ?$?$H??X[]A\A]A^A_?H????ƍ@????`????7???H?????????H?????????H?????????H???p?????H???c?????H???V? ???H???I?(???H???<?C????H????????????tѺ?1?????tú?#???H????_???H?k
?U??????H?GH?WXH???H)?H???H?WH??tH??H)?H
?H9?HO?H????USH??H??H?WH?OXH???H??H)?H??H??tH9?~bH???5H?SH?KX??xNH???H?{H??
H??tI??H)?I)?L?2I9?IO?H??H???H)?H
?H???H9?r?B?H??[]?H)?H???Hǃ?????H?)H??????????f.?f.?fDAW1?AVI??AUI??ATUSH??(H? K??H??H??H??!tH??u?1?H??([]A\A]A^A_?H?|?H??t?H?W D?G81?1?H??????H
??/ff.?ff.?H?jH
?H+j?w6H??
H
?I9?t?2??
tރ?u?H?BH
???H???z???H????p???1?E1?E1?E1?E1??H??t>H??LD?H??H?H??t4H?HH
?H??tv?H?????otH?????oHD???I????I????I????M????M??????????M???????H??A?y?'LD??x?F??tZH
??F
u??F1?f??u?FL??H?T$L?D$?4L?L$L
??T???L?L$L?D$?'??H?T$u I?D$H
?????A?yff.?H??
I??H9??b???A?D$?ƃ???s??????s?fA?|$t?A?4$L??H?T$L?D$L
?L?L$?????L?L$L?D$?'??H?T$u?M???n???A?H?b? H?S? HE??A??tJA??
t+A??u4H?? ??1~P?&A??u ????H??? t9?????H??? t(H?? ?H?ڷ ??t?fD?H??
??u???
??u?A??
tՀ8t?Mc?H??J?4???Z??dH?%H???????SH??H??tH?FH?>H??H????RH??uH??[?AWAVAUA??ATUH??SH??
???t>1??D??t? ?Y????~*?Y??????9?O??????????|???H??4fHn??Y??? ?? ????Y?=???|??????Y??ǒ????9?L???l$????~E??
????-? ??=??~??????ɺ??9?O?????????f???|$?f?D$??l$???É??????}??-?? ????=???}ʍ??ɺ???9?L???l$????l$?l$??????u?????H????????UH??pL?D$`H9?r"??E1???u,LcոH????P??H??p]??PO???H????????H?T$H?t$H?|$??s??L?D$`H?T$H??$?H?t$H?|$H?D$0H?D$@?D$( H?D$8?H??tH??1??KH???1??Å?tH?=? ?>???H????H?=?dH?%Hǂ?fHn‰B0fl????? Hǂ??? B??t!H?=d ?? ???????
H???nt??H?=C ??????USH??H????x??H?=$ ??????9??H???3???H????x??Hc??O??H?Ĉ[]?@AWH??1??AVAUATUS?
H??H
L???D?zH??$?H?|$L?l$ H??M?t$?H?H????:H?$?????L????x???F??L??????t5?C???vM1?H?????x??H??$?
t1?1?H???H??$??x????
A?$??At?t???L???t??t??ʸ
?Ũ?u[?ul?
??H?<$?H?$H?@H???fDI??H?H??u?? A??A?!L? ? ?
?p??xd?D$A?$?Ict$?m1???uH1҉T$A?$?s????hH?Ǹj?D$??u ?fH?Ǹi??u1??D$?B?????Mc??D$H?t$A?
?L??L??????
???u??
Mc?H??L???D$?…???
L??D?|$??IcxL????A?@A9??x
A?PHc?9?tHc?L???D$?…????W
?H?
?D$???H??HcиH?D$?…?yl?(
IcpA?P I?x$H??H????D$?…??
A?P9?t9Hc?Hc?L???D$?…???L???I?x$?P?D$?…???M?@M??t)E9x?????A?xw?A?@Ic?L
???Icx?Q?Mc??H??
L??H?D$H?pA?$tI??$?1ҿ?????I??$
H??t9H?L$H???H???H??????J????D$???.?????}=H????H뾺????Mc??ډT$????AWI??AVI??AUI???
ATM??UL??SH??H??(H?t$?D$??'L??$?L??$?H????H??$?H?l$(fv?H?t$1?H??L??$?L?%?H??$?H?\$ )D$?????L???w????H????<??u}H?ٺAH?=????1?H??$ ?'?|$$??????L?????????????؉D$?|$ ?????D$??u>M??t9A?]?3H??H??$??*?H?H??$??)???L??蔾??? I????D$H??1ҿ?4????|$1???&?D$H??([]A\A]A^A_Ë|$ H?t$??<H??t ?D$?[???H?t$1҉??D$??r???@???1??1??*?H????????w?71???o1?G?oFG?oF G(?oF0G8?oF@GH?oFPGX?oF`Gh?oFpGx??o1????oF???oF ???oF0???oF@???oFP???oF`???oFp???H??Hc??&H???`I??H??ÍN?1????w H?H???
?UA??I??SH??H???H?T$0??u|??xx?>??Hc??H??A?ƒ?????H?
H???A
A??
L??A?ƒ??u|H?l$D??H?T$H???p@H?t$?H??A???SA???u"??
????u*?L??H??A???+A?
??
??????B? Љ????u,H?GXH?O`f??GH
?fHn?H?G81?fHn?fl?G Ã? ?????????=SH??H???4?????u!H?t$?
H???S@H??
u?D$H??[ø??????SH???{??H?H?SpH??tH?ZhH?? {??H??[???o1?D$?H?Gf~?H?|$?H?D$????*ff.?ff.?f?????
?
??
v1??/v?D?F?@??
uH??D??A??
t@??H????
u?H?|$??t?D$??ƒ?/w?Ѓ?HD$??T$?H??H?D$?H?PH?T$???f.?@AWI??AVAUATI??USH??H??h
?????y(H?t ?D$?+?????I???????????2???I??D$??E1?1?A?$??t?Ѓ? ????< ??<%uA?D$
<%??
1?L??????A?$I?GI?????%?!
H9??p
H?p
I?w?9??o
I???xI?o
?????D$????H??h
??[]A\A]A^A_?L????????
???I?t??:???ff.?ff.?@A?D$
M??M?d$
?ƒ? ??v?? t?1?L???????I?Wff.?f.?I9??tDH?J
I?O?H?ʍH???v?? t?I???xH??
I?WI+WXI??I
?M?f
????L??????I?W?M?t$
?"L???????,ff.?f?I?GI;??t?H?P
I?W??P???v??? t?A?T$
M??????L???3???A?$????I?GI+GXM??I??I
??e???<*t6???VЃ? wA?|$$t:???/wP?׃?H{?H??I?T$
H?<$E1??YA?t$H?$I?T$?????H??????A?t$I?T$H?$????H?{H?WH?S?DC??D?dF??r
L?ʉ??N?L?J
?? v??D$H?T$H?|$H+L??I
?L??A?Յ?x?H?T$H?|$L??A?Յ?x?H?t$H?|$(???????H???[]A\A]A^A_Ã?M???AWAVAUI??ATE??U?
SH???M?8H??$(H?t$HH??H?|$0D??$ H?D$ I?@H?T$H?L$H?D$H?|$PH?t$@?2H?|$?@)?L??H??H???H??H??H?|$H ?I??H??
I??E1??l$I??H??A??H??
?,???A?J?L
?A?
H??I?ݻ
H9??"???H?\$0E??L??L?l$8AWjL?D$(H?L$ H?T$D?T$
A??L??A??
??H??H??A?j?E?J?L??>H??I??L??I??H??H???M)?H ?Hc?H?D?@L??H?\$0H??H?T$8L
?AWH)?j
L?D$(H?L$ H?T$?B???L??H??H?\
H???H???H?\$@A??H ?L??L??H?D$HI??AWj
L?D$8H?L$0H?T$(?????H?? ??
?;???A?
L??H?S?H?҉օ?uI?Ճ?@?փ?@tQA
???v1L??J?L)?E1?H??A??
?????H??
u?H??H[]A\A]A^A_ù@)?L??H???H??I??H ?L)?A??
?????H??
u?M???w????AUATA??UH??1?SH??H???H?|$H?|$XH??H?D$?????????
D??H??H????????H??tH?T$H+T$XH?$?H
?H?]H???[]A\A]?AUATA??UH??1?SH??H???H?|$H?|$XH??H?D$??????H??
H?A?????t??>tH??w?A?H?>??H?|
??HE??@ff.??H??
?<
???? ?҃?a??wH??w?A?<H???A??H
?A???H?HM?A??AWAVAUATUSH??Hc?H??H?D$H??? D?cH?ŋ??Mt??H??????H??H=
vH??? ?H?\$H?=??H9???H?=??H??tH?U
H??聋???;:??H?S
H?T$?C
H?Ӄ?.<
?D
?=???
H??H?5??????H??H???3
H?=??H??+v#H?ߺH?5-w ?n???H?=g????1H??H????=????H??v H?\$????H
?H9?r"H?}
H??H????{??H???H???(???H??v????H????H?l$ H?t$H?\$H???C???H?D$H9?t=?<9wH?(?H??rrH?5mv H????????t_H?5^v H????????tL?<:?????????H?5%v H???݂??????????H???k???H??H=???H?ˈ H?D$H?u?L???H?\$L??H??????H?ŐiWH??L?U????L???H??Hc?H???iWL??I??H??Y????=j?L?]H?D$??H? iWD?I?????,? H??H
[]A\A]A^A_þ.H??????H???????L?l$8H?U
H??L??L?=Ň L?5~??????D,8A??????L??L???_???L??H)?H??H??H??M?|/
????H??L???2???H??H??t??????{1H?S??(
?
H?sH?D$E1??D$

L?L$f?T$ff.?ff.?@??H??
H?????I
?L9?u?J?TX?H????r??B?D?B????? ??B?A?? ??B??? Ɖ????J?H
?H???H
??r???H????? ??r? ??r??? ?I?4 ?J?H
???H?5O?D ?D?B??R?D ??? ?H
?|;? H?$?u:H?D;?DH??H??
?x
u?H??
H?T$????H?S,?H? ??+???H?iWI???iWf??E1?H?ǠiW?.?I??)? H?:t8H??H9?sJ?xt?H?zu??HA?
H
?H?JD? ?
A?A?????HH
?H? ????I??xt??E??tD?%??H?:t????p???H?H?BI?????[???H?BH??uH??? H???H? iW?
???9w>H?(?H??rA??D?J?????H????????7?H?D$??????A??D???????H??
H?5??H??H?D$????H?D$?8,?????H??
H?5??H??H?D$????????AWAVAUATM??U??SH??H?=?H??(H?$H?L$L?L$蠇??1??i???H?R?H???TL?-:?H??,L?5'?1?L??I9?L????L)??H??H?D$H??t H?|$E1?E1??.H?5??L?ڸ??
C?T=H?? ʉ?H ??(H??H??
vPH??H??N?M??I??C?D=?HcЃ?tƅ?tC?D??@
?H?E?A?Mc?H??L)?H9?|?H)?M??H???H?D$H??
I9??z
H?5H?M????A?E?Hc???t H??1?L)??'A?UH?? ʉ?H ?H????A?L?H????HD?H??u??tE?A?Mc?L)?H9?|OA?H?\$I?J
??H9???C?L
?@H?T$?D?ύIH??L A?Hc?A8tl@??H?D$?aH?????????A?H??H?L$H???EC?T?C??эR?|?ЍRHc??THc?A?A8;?f???????H?D$?H?T$H?RH
?H?HI?H??A?H?$??H?L$?Hc?H?A?H
?H?D$H?0M???N
H?D$H?@A?C?H?I?$?4
H???iW?????H?u????"?H??H??H???L?4I??I)?I??F?I??
1?L???
H9??M??I??
1?L???
H9?|?D??H?=???Z???D??H?=??I???H?????uH?¨iWL2Hc??H
?I9?}II9?NH9?~IH?$H?\$?
?}???H?H?M??tH???iWH?H??I?$H???iWH?@?FH9??I9?~?H?$H?\$?H???iWH?H??H?M??t????H?I?$H???iWH?H?L$H?
H??(H?=N?[]A\A]A^A_隄??SH?7?H???׃??1?????H??[?z???UH?-?SH??H?_0H??讃??1??w???H??? H9?tAH???iWH9t5H9Xt/H?=A?t7H??H? ?H??H)?H)?H9?H?=m HC?H??????H??H??[]?H? m ??H?G?H??H=?vxH??H?D$?HD?H??dH?ףp= ףH??H??I??H???H
?H??H)?H?4???H?4?H??I)?D??xlut?
E1?1?k?a?Hi??3?
D
?)?
?H?Hi??Q
H??8?n8ÍW???@??u"??
H??t?
iҀQ
?G?i??3?

?H??H??t???ߍB?A???
???~=??+
~'??,
A?H1҅??p???1?@???????_??????A?0?׃?c~??dA???E1??̃?t\I?ʉ?H??H?? ?t(H??Hc?H??Hc?jE1?M?п?????ZY??H???H??H?ƿ#E1?jE1?1?L???Ȃ??^_???׸?H???????Hc?HcҸH???t??UH??SH????tQ??%
Hc????uK??????uX?sA????uB??uUA?HHc}??L??Hc}L???H??[]?5Hc????A??H??D??[]?H???????? ??A????A?HHc}??
L??Hc}L????t??H??H??H??Hc?j1?E1?E1?H???ǁ??H??H??? ???AWAVAUATUSH????$??
H??A????I?̃?
??
ff.?f.?H?CH;????H?P
H?S??P???v܃? t׍P?E1???u%E1??-H?CA??A??H;??tnH?P
H?S?A???????_
??0t[Hc?L?=,} A?4E???
@???
?A?@??1??SH???????P????m????D???H???????H?CH;??t9H?P
H?S??ƒ? ??xt.H?L?=?| A?4E??u??A?@???H??蚭????H?CH;??t?H?P
H?S?H?L?=j| A?4@???G???H???xH?C??tH??H?C?RH???D????…?uD?H??
H?C1?H???????.@?? ??H???xH?k
1?H???ˬ??? ???1?H??[]A\A]A^A_?Hc?L?=?{ A?<H??D9?s?A?? teA?F?1?D????
Ak?H?~{ ?????????H??蛬???PЃ? w1A?????w(C??D?tP?H?CH;??t?H?P
H?S???E1???D??I?????????H???K????PЃ? wHI9?r-H?L?Hc?H
?H
?r"H?CH??H;??t?H?P
H?S??ƃ? wH?A?4@?? ??
H???xH?k
L9???
Mc?H??L1?L)??????H?߉L$?ƫ???L$H?A?<H??D9?s&?????w??H?C ?H;??t?H?P
H?S???H???????"H?߉L$?x????L$H??????H?A?4@??D9??^???H??H??H9???H??H?CH ?H;??t?H?p
H?s??H???"???H?A?<H??D9?s(???qw A??H?C
?H;??t?H?P
H?S???D???H??H?L$?٪??H?L$H?A?<H??D9??????H??H??p1H
?r,H?CH??H;??t?H?P
H?S???H??菪??H?A?<D9?s&H?CH;??t?H?P
H?S???A? @?????^???"H???A??
t%L??H???A???H?k
E1?Mc?L??L1?L)??(???H??xH?k
E??t3L??H??????A??
tI9?s3?????"L???????E??u?????"I?D$??????A?????I???f.?f.??H?Qs ?GI????d/?Glf/fH???f?W?????̅?txff.?f?????
H??H??H??#?? w??A?????A?ff.?ff.???ȉ?D?J?I??L??H??#?=<=~=<<>>::lexical 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 sequenceB5???4???4???4???4???4???4???4???4???4???4??c3???4???4??c3???4???4???4???4???4???4???4???4???4???4???4???4???4???4???4???4???4???4???4???4??{3???4???4???4???4??{3???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???4???4???4???4???4???4???4???4???4???4???4???4???4???4???4???4???4???4???4???4???4???4??{3???4???4???4???4???2???2???4???4???4??3???4???4???4???4???4???4???4??3???4???4???4??3???4??&3??R3??23???4??>3???4???3??invalid long string delimiter/:??P;??P;??P;??P;??/:??P;??P;??P;??P;??P;??c5??Q:???8??.;??.;??.;??.;??.;??.;??.;??.;??.;??.;???9??P;???7??E7??H8??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;???6??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??P;??K9???=??e=??S=??A=???=???=???=??w=???=???=???=???=??control structure too longlinesopcodesfunction or expression needs too many registersconstants?P???P???P??}P???P???P???P???P???P???P???P???P???P???P???P???P???P???P???P???P???P???R???R???R??.T??S??bS???S???T???T???T???T??HV???T??%U???T??bU??U???U??OU???U??HV??HV??HV??HV??HV??HV??HV??HV???U??[???Z??oZ???Z???Z???Z???Z???Z??
\??7\??;]??]??y\???\???\???a???`???`???`???`???`???`???`???`???a???a???a???a???a???a???a???`???`???q???q???q???q???q???q???q???q???q???q???q???q??~q???q???q???q???q???q???q??Nq??fq??t??)t??t??Vt??Vt??Vt??Vt??~t??~t??~t???t??Fu???s???u???u???u???u???u???u??Vs???s??%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????u???I???u???u???u???u???p???u???u???u???u???u???????u???u???u???u???????u???u???u???u???u???u???u???u???????)???u???T???????????????????????????????????????????????????????????????????????????????????????????V???????????????????????????r???y???ť?????C???C???C???????????C???????C???ӥ??C???C???C???C???C???C???C???C???C???C???C???C??????C???'???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???C???̥??   

syntax private_lua_errorlabel '%s' already defined on line %d(for state)'=' or 'in' expectedconstcloseunknown attribute '%s'multiple to-be-closed variables in local list???????????????????????D??????????????Z????????????.????????????????????????????????????????????????????(vararg)(temporary)(C temporary)=[C]C=?mainLua????????????????????????????:???????????????????????????????????????????????????????????????????????????????????????????????????R???????&???????????????w???????????????constantupvalueglobalfieldinteger indexmethodG???????????????&???&???&???&???&??????for iteratormetamethodI???I???I???I???R???R???R???R???????I???????????????????????????????????????????????????????????????????????????????????????????????????????[???[???[???f???o???????x???????????hook (%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 valuev???????????????H???H?????????????????????????6???????]???q???????4???????????????Y???Y???Y???Y???Y??????.xXnN%lld%.14g-0123456789(null)%p%invalid option '%%%c' to 'lua_pushfstring'?????????????????????????????????????????????????????????????????????????????????I???????????????????????????????????'??????????[string ""]userdatano valuebooleannumbertablethreadproto__nameperform bitwise operation onperform arithmetic onnot enough memory ?'???&???&???%??&???'???'???'???'???'???'???'???'???'???'???'???'???&???'???%??j&???'??V'???(???(??)???(??i)??i)??i)??i)??i)??i)??i)??i)??i)??i)??i)??i)??i)???(??i)???(??i)??i)??0)??invalid 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چ??چ??+??????c???????????????????????????????????????????????????چ????????????????G???string length overflowget length ofattempt to divide by zeroattempt to perform 'n%%0'$LuaVersion: Lua 5.5.0 Copyright (C) 1994-2023 Lua.org, PUC-Rio $$LuaAuthors: R. Ierusalimschy, L. H. de Figueiredo, W. Celes $z[???[???[???[???[???[??]??3]??m]???]??(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_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) offonLua 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 stringincrementalgenerationalcollectS???H???ќ??/???m???????Ý??__pairsinvalid modetoo many nested functionsreader function must return a string=(load)assertion failed!index out of rangeassertcollectgarbagedofileerrorgetmetatableipairsloadfileloadnextpairspcallprintwarnrawequalrawlenrawgetrawsetselectsetmetatabletonumbertostringtypexpcall_G_VERSIONLua 5.5too many arguments to resumetoo many results to resumerunningdeadsuspendednormalcannot close a %s coroutinecreateresumestatuswrapyieldisyieldable_HOOKKEYflnSrtuinvalid option '>'>%sinvalid optionsourceshort_srclinedefinedlastlinedefinedwhatcurrentlinenupsnparamsisvarargnamenamewhatftransferntransferistailcallactivelinesfunclevel out of rangeinvalid upvalue indexLua function expectedk__modeexternal hooklua_debug> cont =(debug command)%s debuggetuservaluegethookgetinfogetlocalgetregistrygetupvalueupvaluejoinupvalueidsetuservaluesethooksetlocalsetupvaluetracebackrwabFILE*closed filefilefile (closed)file (%p)attempt to use a closed file_IO_outputcannot open file '%s' (%s)'popen' not supporteddefault %s file is closed_IO_inputwtoo many arguments00pPeEinvalid formatfile is already closedcurnot an integer in proper rangeflushinputoutputpopentmpfilewriteseeksetvbuf__indexcannot close standard filestdinstdoutstderrzerointegerfloatwrong number of argumentsinterval is emptyrandomrandomseedabsacosasinatanceilcosdegexptointegerfloorfmodultlogmaxminmodfradsinsqrttanpihugemaxintegermininteger_CLIBSdynamic libraries not enabled; check your Lua installationLUA_NOENV_5_5%s%s;;absentinitno 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:%sloadlibsearchpathpreloadloadedrequire/usr/local/share/lua/5.5/?.lua;/usr/local/share/lua/5.5/?/init.lua;/usr/local/lib/lua/5.5/?.lua;/usr/local/lib/lua/5.5/?/init.lua;./?.lua;./?/init.luaLUA_PATH/usr/local/lib/lua/5.5/?.so;/usr/local/lib/lua/5.5/loadall.so;./?.soLUA_CPATH/ ; ? ! - configunable to generate a unique filenameyearmonthdayhoursecydaywdayisdstfield '%s' is not an integerfield '%s' missing in date tablefield '%s' is out-of-boundaAbBcCdDeFgGhHIjmMnprRStTuUVwWxXyYzZ%||EcECExEXEyEYOdOeOHOIOmOMOSOuOUOVOwOWOyinvalid conversion specifier '%%%s'date result cannot be represented in this installation*ttime result cannot be represented in this installationallclockdatedifftimeexecutegetenvremoverenamesetlocaletimetmpnameresulting string too largestring slice too longvalue out of rangeattempt to %s a '%s' with a '%s'__add__sub__mul__mod__pow__div__idiv__unminvalid capture index %%%dinvalid pattern capturemalformed pattern (ends with '%%')malformed pattern (missing ']')I ??!??c ??u ??!??!??? ??!??!??!??!??? ??!??!??!??? ??!??!??? ??!??? ??!??? ??? ??!??!??malformed pattern (missing arguments to '%%b')too many capturespattern too complexmissing '[' after '%%f' in patternunfinished capture^$*+?.([%-invalid use of '%c' in replacement stringinvalid replacement value (a %s)string/function/table\%d\%03d1e9999-1e9999(0/0)%a0x%llxvalue has no literal forminvalid conversion specification: '%s'-+#0 123456789.invalid format (too long)--+0 -0-#0ll-+#0 specifier '%%q' cannot have modifiersstring contains zerosinvalid conversion '%s' to 'format'?D??H??H??H??gE??H??gE??H??H??H??H??H??H??H??H??H??H??H??H??H??H??H??H??%D??H??H??H??H??H??H??H??H???D??H???C??D??gE??;E??gE??H??D??H??H??H??H??H??%D???E???F??H???F??H??D??H??H??%D??
integral size (%d) out of limits [1,%d]missing size for format option 'c'invalid format option '%c'QK??K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K??.K???J???J???J??.K??.K??.K??I??.K??.K??.K??.K??.K??9I??J???I??.K??aI??.K??.K??.K??.K??.K??.K??.K???I??.K??.K??.K???J??.K??.K??.K??.K??.K??.K??.K??.K??.K???H??eJ???I??.K???I??.K??%I???I??uI??.K??MI??.K???I??.K??.K??.K??.K??=J??.K??.K??.K??.K???J??.K???J??invalid next option for option 'X'format asks for alignment not power of 2unsigned overflowstring longer than given sizestring length does not fit in given sizecM??QN???N??qO???O??oP??bQ??UR??HS???S???S??variable-length formatformat result too large%d-byte integer does not fit into Lua Integerinitial position out of stringdata string too shorttoo many resultsunfinished string for format 'z'W??W??OW???W???W??X??BX???X??kY??kY??kY??bytechardumpfindformatgmatchgsublenlowermatchrepreversesubupperpackpacksizeunpack__newindex__lenout of rangeposition out of boundswrong number of arguments to 'insert'too many elements to movedestination wrap aroundinvalid value (%s) at index %I in table for 'concat'too many results to unpackinvalid order function for sortingarray too bigconcatinsertmovesortinitial position out of boundsfinal position out of boundsout of boundsinvalid UTF-8 code%Uinitial position is a continuation byteoffsetcodepointcodescharpattern[-?-?][?-?]*packagecoroutineiomathosutf8arg %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/%swbtfoldernullNULLFirst 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: BinaryPending Action: %s dirfull_nameextensionlast_modification_in_unixlast_modificationcontent_sha256.locklocked: %s file: %s if: %d =============================/tmp/lock%s/%s.%svalueyou 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?&???'???'???'???&???'???'???'???'???'???'???'???&???'???'???'???&???'???&??'??u%04x?)??*??*??*???)?? *??*??*??*??*??*??*??*??*??*??*??*??*??*??*??*??*??*??*??*??*???)??'7???5??6??'7???5??'7??'7??'7??R6??'7??'7??'7??'7??'7??'7??'7???6??'7??'7??'7??'7??'7??'7??'7??'7??'7??'7??'7??'7??'7??'7??'7???6??o]??o]???]???]??o]???]???]???]???]???]???]???]???]???]???]???]???]???]???]???]???]???]???]??o]???]???]???]???]???]???]???]???]???]???]???]???]???]???]???]???b??[`??[`???b??[`???b???b???b??e`???b???b???b???b???b???b???b???`???b???b???b???b???b???b???b???b???b???b???b???b???b???b???b???`??include:'%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 foundsleep_timepid_properror %s impossible to forkkillis_alivewaitdtw_hash_pointerdigest_pathdigestget_valuedigest_filedigest_folder_by_contentdigest_folder_by_last_modificationlocker_pointerunlockdtw_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_stringpegou 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_withnewRandonizernewForknewLockerget_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 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 ---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 = 'linux' 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__callstoprestartisrunningparam
 minormulmajorminorminormajorpausestepmulstepsize
linetail callset
nofull
collatectypemonetarynumeric
?????
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@?A???C?@?@??cܥL@9?R?Fߑ??<-DT?! @???.A?????????A??????????A?C y\O???jA?C e|????uA?C p????>A?C y?????A?C ??????EA?C @?ҍ??JA?C E?????A?C ?<q???`A?C [\?????A?C ?|???A?C ????EA?C @?4????A?C ??????A?C ??\???yA?C t?????A?C ?<3????A?C ?\????A?C ?|d????A?C ?????lA?C g?b????A?C ?ϗ??*A?C ?ݗ??
A?C ? ????
A?C 
 4 ?????A?C E??X q???qA?C lx š???A?C ?? I????A?C |? ????
A?C 
? ?????A?C ?? p????A?C ?!????A?C ? 8!{???ZA?C E?P \!???? A?C E??!????A?C z?!????
A?C 
?!????A?C ??!?????A?C {"???nA?C i "8???3A?C n@"K???.A?C \"]????A?C ?|"ճ??7A?C r?"???)
A?C $
?"????DA?C ?"???
A?C 
?"???JA?C E#9????A?C ?<#????sA?C n\#????)A?C d|#????aA?C \?#????MA?C H?#l???A?C Z?#k???aA?C \?#?????A?C ?$6???EA?C @<$[????A?C |\$????2A?C m|$θ??5A?C p?$???i
A?C d
?$,????A?C ??$????,A?C g?$?????A?C ?%@???NA?C I<%n???6A?C q\%????AA?C ||%????AA?C |?%ƻ??*A?C e?%л??fA?C a?%???hA?C c?%^???7A?C r&u???5A?C p<&????cA?C ^\&ͼ??3A?C n|&???cA?C ^?&#???ZA?C U?&]???{A?C v?&????gA?C b?&????
A?C 
'????LA?C G<'???LA?C G\'I???wA?C r|'????A?C Y?'????*A?C e?'????hA?C c?'?????A?C ??'|????A?C ?(????A?C ?<(????;A?C v\(?????A?C ?|(]???pA?C k?(?????
A?C ?
?(O???PA?C K?(???CA?C ~?(????ZA?C U)?????
A?C ?
<)E???kA?C f \)?????A?C E???)???CA?C ~?)3???MA?C H?)`???!
A?C 
?)a???HA?C C*????XA?C S *?????
A?C ?
@*8????A?C ?`*????=A?C x?*?????A?C ??*?????A?C ??*B????A?C ??*????#
A?C 
+????hA?C c +???3A?C n@+-???:A?C u`+G???>A?C y?+e????A?C ??+???Q
A?C L
?+C???(
A?C #
?+K???#
A?C 
,N???A?C W ,J???A?C J@,9???A?C J`,(????A?C ??,?????A?C ??,@????A?C ??,????aA?C \?,?????A?C |-I???
A?C 
 -@???cA?C ^@-????XA?C S`-?????A?C ??-4????A?C ??-?????A?C ??-k???s
A?C n
?-????:
A?C 5
.?????A?C ? .X???L
A?C G
@.?????A?C ?`.V???"A?C ?.X???7A?C r?.o????A?C ??.????A?C ??.????XA?C S/????M
A?C H
 /???TA?C A?C y\0???1A?C l|0???G
A?C B
?0D???
A?C 
?01???*A?C e?0;???;A?C v?0V???VA?C Q1????'A?C b<1????]A?C X\1????bA?C ]|1???J
A?C E
?1A?C y?;/-???A?C ?<?-??A?C P(<?-??A?C OH<?-??A?C Oh<w-???A?C ??<?-??WA?C R?<.??~A?C y?<r.??1
A?C ,
?<?/??
A?C 
=h0???A?C ?(=?0??a
A?C \
H=?2??YA?C Th=x2??Q
A?C L
?=?3??QA?C L?=?3??A?C ?=?5??A
A?C <
?=?6??A?C Y>?6???
A?C ?
(>?8???A?C ?H>?8???
A?C ?
h>c:??TA?C O?>?:??\A?C W?>?:???A?C ??>b;???
A?C ?
?>????A?C ?(?0???mA?C hH?}????A?C ?h?????FA?C A?? @???A?C ????@??VA?C ??A??>A?C ??-A???A?C ???A??FA?C @?A??\A?C 4@B??JA?C P@LB??xA?C l@?B???A?C ?@$C???A?C ??@?C???A?C ?@?D???
A?C  ?@HF???A?C E??A?F???A?C ?$AEG???A?C ?DA?I??JA?C EdA?I??{A?C v?A/J???A?C ??A?J???A?C ??A{K??wA?C r?A?K??
A?C 
B?L???A?C ?$BYM??uA?C pDB?M???A?C ?dBLN???A?C z?BkN??
A?C 
?BaO??^A?C Y?B?O???A?C ??BP??
A?C 
C
Q??K
A?C F
$C,R???A?C ?DC?R??=A?C xdC?R??qA?C l?COS???A?C ??C T??
A?C 
?CU??P
A?C K
?C7V??0A?C +DGY??cA?C ^$D?Y??7A?C rDD?Y??VA?C QdD?Y???A?C ??D?Z???
A?C ?
 ?D \??A?C E??D?]???A?C ??D?^???A?C ?E_???A?C ?(E?_???A?C ?HE1`???A?C ?hE?`??;A?C v?E?`??DA?C ?E?`???A?C ??E^a??QA?C L?E?a???A?C ?F?g???A?C ?(F?h???
A?C ?
 HF?j???A?C E??lFk??hA?C c?FKk???A?C ??F?k???A?C ??F?l??C
A?C >
?F?m???
A?C ?
G.o???A?C ?,G?o???A?C ?LG]p??sA?C nlG?p??fA?C a?G?p???A?C ??G[q??yA?C t?G?q???A?C ??GTr???
A?C ?
H?s??U
A?C P
,Hu??eA?C `LHPu??VA?C QlH?u??ZA?C U?H?u???A?C ??H?v???A?C ??HVw???A?C ??H?w???A?C ?I?x??/A?C j,I?x??OA?C JLI?x???A?C ?lIAy???A?C ??I?y???A?C {?Iz???
A?C ?
?I?{???A?C ??I|??h
A?C c
Jf}???A?C ?,J9~??[A?C VLJt~??BA?C }lJ?~???
A?C ?
?J????A?C ??J?????A?C ? ?J0????A?C E???Jƒ??vA?C qK???c
A?C ^
0K[???sA?C nPK????9A?C tpKDž??<A?C w?K???~A?C y?KA???'A?C b?KH????A?C ??K ????
A?C ?
LՈ???A?C ?0L=???mA?C hPL?????A?C ?pL???UA?C P?L)???yA?C t?L?????A?C ??L8????A?C ??L֋??;A?C vM???XA?C S0M)????
A?C ?
PMÍ???A?C ?pM?????A?C ??M???
A?C ??M????MA?C H?M#????
A?C ?
?M????^A?C YN???b
A?C ]
0N(???wA?C rPN???vA?C qpNՓ???A?C ??N?????A?C ??Nl???zA?C u?NƘ???A?C z?N???[A?C VO ???*
A?C %
0O*????A?C ?PO????;A?C vpOƚ???A?C ??OC???;A?C v?O^???DA?C ?O????&
A?C !
?O?????A?C ?P????SA?C N0P*???a
A?C \
PPk????A?C zpP?????A?C z?P????
A?C 
?P????
A?C 
?P????YA?C T?P̠??s
A?C n
Q????A?C ?0QϢ??UA?C PPQ????
A?C ?
pQΤ??
A?C 
?Q????
A?C ?Q?????A?C ??Qe????A?C ??Q????A?C ?R???D
A?C ?
,R???
A?C 
LR???}A?C xlRe????A?C ??R???[A?C V?R????A?C ??R?????A?C ??R@???b
A?C ]
S????M
A?C H
,S????ZA?C ULS????A?C ?lSW????A?C ??SǴ??.
A?C )
?Sյ??hA?C c?S????
A?C ?
?Sѹ??
A?C 
T????.A?C i,Tκ??.A?C iLTܺ???A?C ?lT?????A?C ??TK???vA?C q?T????HA?C C?Tɼ???A?C ??T9???
A?C 
U0???|A?C w,U?????
A?C ?
LU^???A?C ZlU]????A?C ??U&???:A?C u?U@????A?C ??U?????A?C ??U????eA?C `V????W
A?C R
,V????
A?C ?
LV?????A?C ?lVT????A?C ??V?????A?C ??Vd???fA?C a?V????mA?C h?V?????
A?C :
W????A?C ?,W?????A?C ?LW????
A?C ?
lW????!A?C ?W????)
A?C $
?W?????A?C ??W>????A?C ??W?????A?C ?XZ????A?C ?,X?????A?C ?LXl????A?C ?lX????yA?C t?XM???hA?C c?X????{A?C v?X????hA?C c?X8???8A?C 3YP????A?C ?,Y????~A?C yLY=????
A?C ?
lY?????A?C ??Y,????A?C ?Y?????A?C ??Y???RA?C M?Y8????
A?C ?
Z????LA?C G,Z??????A?C ??LZey??IA?C DlZ?y??
A?C 
?Zuz??RA?C M?Z?z???A?C ??Z5{???A?C ??Z?{??8A?C s[?{??A?C M,[?{??EA?C @L[?{??+A?C fl[?{???A?C ??[?|??MA?C H?[?|???A?C ??[?}???A?C ??[L~???A?C ?\??dA?C _,\R??_A?C ZL\???(A?C cl\???JA?C E?\???6A?C q?\???|A?C w?\5???XA?C S?\m???JA?C E]?????A?C ?,]????A?C ?L]????
A?C 

l]????OA?C J?]̂???A?C ??]M????A?C ??]؃??PA?C K?]???0
A?C +
^????A?C ?,^????YA?C TL^ƅ??lA?C gl^???2A?C m?^$???@A?C {?^D????A?C |?^????+A?C f?^????EA?C @_Ն??BA?C },_?????A?C ?L_?????A?C ?l_y????A?C ??_!???RA?C M?_S???
A?C ??_5???^
A?C Y
?_s???BA?C }`????BA?C },`????^A?C YL`????
A?C 
l`???;A?C v?`
???_A?C Z?`@????A?C ??`֍??<A?C w?`????
A?C ?
a????=A?C x,a????-A?C hLa????{A?C vla ???%
A?C 
?a????A?C ??a?????A?C ??a????A?C ??aÒ???A?C ?br???
A?C z
,bє??`A?C [Lb???&
A?C !
lb???=A?C x?b4???EA?C @?bY????A?C ??b???5A?C p?b/???lA?C gc{????A?C ?,c????
A?C ?
Lc????
A?C 
lc?????A?C ??ci???8A?C s?c????A?C ?
?cd???^
A?C Y
?c?????A?C }d???A?C P,d????DA?C ?Ld???cA?C hdd???{A?C v?d????jA?C e?d ????A?C ??d????VA?C Q?dŦ??;A?C ve???2A?C m(e???9A?C tHe???,A?C ghe????A?C ??e????g
A?C b
?e????A?C ??e????$
A?C 
?e?????A?C f????A?C ?(f?????A?C ?HfC???9
A?C 4
hf\???3
A?C .
?fo???=
A?C 8
?f?????A?C ??fb????A?C ??f?????
A?C ?
g`????A?C ?(g???:A?C uHg)????A?C ?hgݵ??
A?C 
?gŶ???A?C ??gV????A?C ??gط???A?C ??gg???9A?C th?????A?C ?(h????YA?C THh2????A?C ?hh???wA?C r?hH???HA?C C?hp???IA?C D?h????XA?C S?hѺ??qA?C li"???}A?C x(i???LA?C GHi????WA?C Rhi???rA?C m?i4???AA?C |?iU???
A?C 
?iI???)A?C d?iR????A?C ?j?????A?C ?(j@???Q
A?C L
Hjq???*A?C ehj{???hA?C c?jÿ??5A?C p?jؿ??M
A?C H
?j???6A?C q?j????A?C ?k????YA?C T(k????AA?C |Hk???0
A?C +
hk????A?C ??k~????A?C ??k?????A?C ??kf???]A?C X?k????lA?C gl?????A?C ?(l????PA?C KHl????sA?C nhlJ???AA?C |?lk????A?C ??l?????A?C {?lF????A?C ??l?????A?C ?m2????A?C ?(m?????A?C ?Hmn???4
A?C /
hm?????A?C ??m????A?C ??m????GA?C B?m????}A?C x?m????A?C ?n????,A?C g(n?????A?C ?Hn'???zA?C uhn?????A?C ??n ???A?C N?n????mA?C h?nJ????A?C ??n?????A?C ?o?????A?C ?(oP???8
A?C 3
Hoh????
A?C ?
ho????A?C ??o????dA?C _?o?????A?C ??o????[A?C V?o?????A?C ?pE???\A?C W(p????mA?C hHp????OA?C Jhp?????A?C ??p????sA?C n?p????bA?C ]?p'???A?C Q?p????A?C ?q????gA?C b(q????aA?C \Hq2????A?C ?hq????bA?C ]?q?????A?C ??q]???
A?C 
?qJ???R
A?C M
?q|???$A?C _r?????A?C ?(r ????A?C ?Hr?????A?C ?hrM????A?C }?r?????A?C ??r ????A?C ??r????:A?C u?r?????A?C ?sB???QA?C L(ss???c
A?C ^
Hs?????A?C ?hsF???
A?C 
?s-???bA?C ]?so???:A?C u?s????2A?C m?s?????A?C ?t;???ZA?C U(tu???[A?C VHt????3A?C nht?????A?C ??ty???aA?C \?t????iA?C d?t???$A?C _?t???EA?C @u,????A?C ?(u?????A?C |Hu????A?C ?huj???SA?C N?u?????A?C z?u????@A?C {?u????<A?C w?u????fA?C av>????A?C ?(v ???A?C Hv?????
A?C ?
hv?????A?C ??v&???A?C Z?v%???0A?C k?v5????A?C ??v????ZA?C Uw?????A?C ?(w?????A?C ?Hwp???sA?C nhw?????A?C ??w+????
A?C ?
?w????~
A?C y
?wN????
A?C ~
?w?????A?C ?xl???aA?C \ (x?????A?C E??Lx????A?C ?lx????vA?C q?x????bA?C ]?x??NA?C I?xK??OA?C J?xz??&A?C ay???HA?C C,y???TA?C OLy???YA?C Tly
??<A?C w?y1
???A?C ~?y?
???A?C ??yJ??FA?C A?yp??8
A?C 3
z???SA?C N,z???|A?C wLz???A?C ?lz???+A?C f?z???+A?C f?z????A?C ??zW??0A?C k?zg??G
A?C B
{???sA?C n,{???SA?C NL{??ZA?C Ul{N??1A?C ,?{_ ??RA?C M?{? ???
A?C ?
?{???A?C ??{????A?C ?|???AA?C <,|???;A?C vL|???1A?C ll|????
A?C ?
?|;???
A?C ?
?|???;A?C v?|???GA?C B?|??
A?C 
}????A?C ?,}w??GA?C BL}???=A?C xl}????A?C ??}5??`A?C [?}u???A?C ??}????A?C ??}????A?C ?~??IA?C D,~;??IA?C DL~d??IA?C Dl~???IA?C D?~???IA?C D?~????A?C {?~????A?C ??~????A?C ???yA?C t,v??yA?C t L???-
A?C E?#
p????A?C ?????IA?C D????\A?C W ???3
A?C E?)
?)??IA?C D?R??FA?C A4?x??FA?C AT?????A?C ?t????A?C ??????|A?C w?????A?C W Ԁ????A?C E???????SA?C N?????A?C ?8?W???
A?C ?
X?? ???A?C ?x?9!???A?C ????!??xA?C s??"??/
A?C *
؁)#??A?C F??#??0A?C k?$#??1A?C l8?5#??NA?C IX?c#??A?C x?K&??iA?C d???&???A?C ???'??uA?C p؂h'???A?C ???3(???A?C ???(??GA?C B8??(???A?C ?X?`)???A?C ?x?*???
A?C ?
$???+???A?C I???????,???A?C ? ??-???A?C E????-???A?C ?$??-??
A?C 
D??.???A?C ?d?G/??0
A?C +
??W0???A?C ????0??$A?C Ą?2???
A?C ?
?d4???A?C ??5???A?C |$?c5???
A?C ?
D??6??wA?C rd?<7??NA?C I??j7??pA?C k???7???A?C ?ą+8??CA?C ~?N8??CA?C ~?q8??KA?C F$??8??DA?C D??8??'
A?C "
d??9??ZA?C U??
:??T
A?C O
??5;???A?C ?Ć???
A?C ?
$?R@??fA?C aD??@???A?C ?d?A???A?C ???xA??aA?C \???A??aA?C \ć?A??LA?C G?&B??rA?C m ?xB???A?C E??(?;C???A?C ?H?D???A?C ?h??D???A?C ????E??uA?C p??H??U
A?C P
ȈJI??-
A?C (
?WJ???A?C ???J??
A?C 
(??K???A?C ? H?dL??
A?C E?
l?SM??jA?C e???M??&A?C a???M??&A?C a̉?M??&A?C a??M??&A?C a??M??&A?C a,??M??&A?C aL??M??&A?C al??M??&A?C a???M???A?C ???fN??rA?C m̊?N???A?C ???O??=
A?C 8
??P???A?C ?,?yQ???A?C ?L?R???A?C ?l??R???A?C ???5S??nA?C i???S???A?C ?̋5T???A?C ???T???A?C ???U??;A?C 6,?ZY???A?C ?L??Y??5
A?C 0
l?[???A?C |??r[???A?C ????[??tA?C o̌/\??gA?C b?v\??A?C N ?i\??uA?C H?h0??_??A?C ZP??_??A?C Zp??_???A?C ? ??s`??J
A?C E?@
???a??A?C ?
ԍ}c???
A?C ?
??d???A?C ???h???A?C ?4??j??5
A?C 0
T?l???
A?C ?
t??m??<A?C w???m???A?C ???an???A?C ?Ԏ?n???A?C ??Ro??:A?C 5?lv??!A?C \4?mv???A?C ?T??v???A?C ~t?7w??4A?C o??Kw???A?C ????y??C
A?C >
ԏ{???A?C ???{??zA?C u?@|???A?C ?4????J
A?C E
T?;???G
A?C B
 t?b???WA?C H?J???????A?C ???8???mA?C hؐ????EA?C @???????A?C ???????A?C ?8????6
A?C 1
X?5???
A?C 
x????FA?C A??E????A?C ????????
A?C ?
ؑ1????A?C ???????"
A?C 
?????=A?C x8?Ԕ???A?C ?X?{???V
A?C Q
x?????CA?C ~??Ԗ???A?C ???Q????A?C ?ؒ????aA?C \??@???>A?C y?^???&
A?C !
 8?d????
A?C E??
 \????A?C E?
?????tA?C o??C????A?C ? ?????A?C E??????8
A?C 3
????A?C Z$????A?C ZD?????A?C ?d??????A?C ???,????A?C ???????_A?C Z Ĕ3????A?C E???????
A?C 
?????A?C N(??????A?C ?H?@???
A?C 
h?%???
A?C 
??????A?C ???????A?C ?ȕͪ???A?C ??????
A?C 
?????A?C (??????
A?C ?
 H?m????A?C E??l????
A?C 
?????
A?C 

??ͳ??L
A?C G
̖????`
A?C [
?9???J
A?C E
?c???H
A?C C
,?????UA?C PL??????A?C ?l?????(A?C c??????A?C V??????A?C N̗????)A?C d??????A?C ??????A?C ?,?????IA?C DL?Ѻ???A?C ~l?4???)A?C $??=???o
A?C j
???????A?C ?̘+???[A?C V?f???[A?C V????? A?C [,?????AA?C |L??????A?C ?l?????1A?C l??????(
A?C #
??????eA?C `̙????ZA?C U?%????
A?C ?
??????
A?C ?
,?>????A?C ?L?????J
A?C E
 l????vA?C E?l??d???7
A?C 2
??{???
A?C 
Кj???7
A?C 2
?????A
A?C <
?????G
A?C B
0?????6
A?C 1
 P??????A?C E??t?]???JA?C E??????vA?C q???????A?C |ԛ>???rA?C m??????vA?C q?????sA?C n4?9????A?C ?T??????A?C ?t?L????A?C ???????A?C ?
??????IA?C DԜ????QA?C L??&???IA?C D?O???LA?C G4?{???IA?C DT?????MA?C Ht??????A?C ???_????A?C ????????A?C ?ԝ,????A?C ????????A?C ? ?????~A?C E?t8?T????A?C }X??????A?C ?x?"????A?C {???????A?C |??????+
A?C &
؞????RA?C M?? ????A?C ??????dA?C _8?????A?C UX?????_A?C Zx????EA?C @??C????A?C ????????A?C ?؟?????A?C ???????A?C ???????A?C ?8?>????A?C ?X??????
A?C ?
x?????*
A?C %
???????
A?C ?
??*???XA?C Sؠb???xA?C s??????A?C  ??????A?C E?? 7??oA?C jd??7??OA?C J???7??2A?C m???7??FA?C AĬ?7??vA?C q?J8??
A?C 
?C9???
A?C ?
$??:??A?C KD??:??LA?C Gd??:???A?C ? ??5;???A?C E???????A?C ?l?????A?C ????????A?C ???3@???A?C ?̮A???A?C ???A???A?C ??(B??}A?C x,??B??5
A?C 0
L??C??2
A?C -
l??D???A?C }??E??tA?C o??bE??

A?C ?̯CF??
A?C ?
?$H??yA?C t?}H??LA?C G,??H??8
A?C 3
L??I??JA?C El??I???A?C ???VJ???
A?C ?
???K??`A?C [̰L???A?C ??wL??#A?C ?zN??AA?C |,??N???A?C ?L?-O??DA?C l?QO???A?C ????O??DA?C ??P???A?C ?̱?P??DA?C ??P???A?C ??aQ???A?C ?,??Q??HA?C CL??Q??(A?C cl??Q??(A?C c??R??(A?C c??R??DA?C ̲3R??VA?C Q ?iR???
A?C E??
??S??
A?C 
0??T???A?C ?P??U??A?C ?
p?sW??`A?C [???W??-A?C h???W???
A?C ?
гEY??JA?C E?oY???A?C ??Z???A?C ?0??Z???A?C ?P?Z[???A?C ?p??[??A?C M???[???A?C ????\???A?C ?д]??lA?C g?k]???A?C ???]??7A?C r0??]??^A?C YP?(^???A?C ?p??^???A?C ???b_??fA?C a???_??c
A?C ^
е?`??LA?C G?a???
A?C }
?yb??9
A?C 4
0??c??qA?C lP??c??nA?C ip?1d???A?C ????d??;A?C v???d??_A?C Z ж?d???A?C E?????e??nA?C i ??e??|A?C E?r8?Of???A?C ?X??f??SA?C Nx??f??HA?C C??g???A?C ????g??7A?C rط?g??_A?C Z??h??mA?C h?Yh??cA?C ^8??h???A?C ?X?i??A?C Wx? i???A?C ????m??>A?C y???m??pA?C kظFn??"A?C ]??Hn??QA?C L?yn??zA?C u8??n??JA?C EX??n??PA?C Kx?-o??9
A?C 4
??Fp??A?C M??8p??A?C Mع*p???
A?C {
???q??uA?C p??q??MA?C H8?r??0A?C kX?r??jA?C ex?fr??MA?C H???t??8A?C s???t???A?C ?غ$u??[A?C V??_u??[A?C V??u???A?C ?8?v??hA?C cX?Lv??5
A?C 0
x?aw???
A?C ?
??y???A?C ~ ???y??A?C H??ܻ\}??VA?C Q???}??HA?C C?????hA?C c???yA?C t??????MA?C H?Đ??UA?C P???D
A?C ?
??b????A?C ???,???8
A?C 3
?D???pA?C k(?????`A?C [H?Խ??<A?C wh????bA?C ]??2????A?C ????????A?C ??????A?C ?0??>??EA?C @P??>??+A?C fp????<A?C w?????<A?C w??8???.A?C i??F???.A?C i??T????A?C ??@??0
A?C +
0?&A??MA?C HP?SA???A?C ?p?B??/A?C j??B??/A?C j?? B??3A?C n??3B??3A?C n??FB??3A?C n?YB??DA?C 0?}B???A?C ?P??B??uA?C pp?@C??KA?C F??kC??KA?C F???C??KA?C F???C??uA?C p??D??3A?C n?)D??3A?C n0?????A?C ???????A?C ? ?E???*
A?C %
@?O????A?C ?`?΋???A?C z??????A?C z?????f
A?C a
??R????A?C ????????A?C ??b????A?C ? ?Ύ???A?C ?@?:???=A?C x`?W????A?C ???ҏ??;A?C v?????:
A?C 5
??????A?C ???????
A?C 
?????vA?C q ?????vA?C q@?J???pA?C k`?????vA?C q?????vA?C q??F????A?C ????????A?C ???(????A?C ???????A?C ? ? ???pA?C k@?Z???T
A?C O
`?????$A?C _??????$A?C _??????$A?C _??????$A?C _??????$A?C _?????$A?C _ ??????A?C ?@?????A?C ?`?????=A?C x???????A?C ???@???BA?C }??b???
A?C ???E????A?C ???????A?C ? ?+???VA?C Q@?a???VA?C Q`?????VA?C Q??͛??VA?C Q?????@A?C {??#???@A?C {??C????A?C ???????A?C ? ?)????A?C ?@??????A?C ?`?????A?C ????????A?C ??????BA?C }??0????A?C ???џ???A?C ??^????A?C ? ??????A?C ?@?y????A?C ?`?????A?C ???x???aA?C \???????A?C ???????HA?C C???????A?C ??=????A?C ? ??????A?C ?@?????A?C ?`??????A?C ??????=A?C x??7????A?C ????????A?C ???f????A?C ??ѩ???A?C ? ?_????A?C ?@?֪???A?C ?`?`????A?C ???֫??
A?C 
???????A?C ???=???qA?C l??????bA?C ]?Э??k
A?C f
 ?????A?C ?@?????=A?C x`?????<A?C w???????A?C ???{???`
A?C [
???????A?C ????????
A?C ?
?????DA?C  ?????A?C ?@??????A?C ?`?=???DA?C ??a???RA?C M??????DA?C ??????[
A?C V
?????A?C ????JA?C E ????HA?C C@?9????A?C ?`?????QA?C L???????A?C ???8????A?C ??????
A?C 
??????
A?C ?
??????
A?C ?
 ?H????
A?C ?
@??????
A?C ?
`?????A?C ???????

A?C ????????A?C ??? ???

A?C ???????a
A?C \
?+???NA?C I ?Y???
A?C 

@??????
A?C ?
`??????A?C ???????y
A?C t
???????A?C ???????`
A?C [
??????A
A?C <

???y
A?C t

h????
A?C ?
@
????
A?C ?
`
????WA?C R?
????
A?C ?
?
????x
A?C s
?
+????A?C ??
????
A?C 


????qA?C l


????A?C ?@

?????
A?C |
`

????
A?C 
?

?????
A?C ?
?

l???
A?C 
?

`????
A?C ?
?

????
A?C 

?????
A?C ?
 
h???
A?C 
@
\????
A?C ?
`
?????A?C ??
R????A?C ??
????_
A?C Z
?
?????A?C ??
?????A?C ?
????A?C ? 
?????A?C ?@
-????A?C ?`
????A?C ??
?????A?C z?
????QA?C L?
????[A?C V?
????A?C ?
?????A?C ? 
k????A?C ?@
????PA?C K`
(???PA?C K?
X???C
A?C >
?
{????A?C ??
W????A?C ??
?????A?C ?
V????A?C ? 
?????A?C ?@
n???aA?C \`
?????
A?C ?
?
?????A?C ??
%????A?C ??
?????A?C ??
?????A?C ?
????
A?C ?
 
E???
A?C 
@
???r
A?C m
`
???x
A?C s
?
S???A?C ??
???xA?C s?
???
A?C ?
?
???lA?C g
? ??xA?C s 
N ??gA?C b@
???DA?C `
???<A?C w?
???DA?C ?
???DA?C ?
??=A?C x?
:??gA?C b
????A?C z 
???
A?C 
@
???Y
A?C T
`
???R
A?C M
?

???A?C ??
???h
A?C c
?
??n
A?C i
?
P???
A?C ?

???{
A?C v

R???A?C ?@
,??4A?C /`
@ ??k
A?C f
?
?!???
A?C ?
?
5#??
A?C ??
&??T
A?C O
?
J'??R
A?C M

|(???
A?C }

?)???A?C ?@
x*???A?C ?`
+???A?C ??
?+???A?C ??
P,???A?C ??
?,??>A?C y?
-??gA?C b
Q-??[A?C V 
?-??mA?C h@
?-???A?C ?`
c.???A?C ??
?.???A?C ??
y/???A?C ??
0??PA?C K?
40??DA?C 
X0??DA?C  
|0??>A?C y@
?0???
A?C ?
`
e2???
A?C ?
?
4???
A?C ?
?
?5???A?C ??
?9??6A?C q?
?9??EA?C @
?>??6A?C q
?>??yA?C t@
L???
A?C ?
`
-A???A?C ??
?A??KA?C F ?
?A??A?C E?? ?
?D??$A?C E? ?
?F??vA?C E?l
?H??A?C ,
?J??XA?C SL
K??JA?C El
>K???A?C ? ?
?Q??UA?C E?K ?
?S???A?C E?y?
YT???A?C ??
?T???A?C ?
?U???A?C ?4
3V???
A?C ?
T
?W??^A?C Y t
?W???
A?C E??
 ?
?Y??A?C E?
 ?
?[??+A?C E?!?
?]???A?C ?
^???A?C ? 
?^???
A?C ?
@
t`???
A?C ?
`
Ab??8A?C s ?
Yb??$A?C E? ?
Yd???A?C E???
?f??fA?C a?
?g???A?C 
?g???A?C ?(
h??Z
A?C U
H
Ci??WA?C RP@@x?H|?H??H??H??H??H?H??H??H??H??H??H??H??H??H??H??HŦH̦H?HѦHצHݦH?H?H?H?H??H?H?H??H??H??H?H?H?H?H9?H??HB?H0?HJ?H)?HQ?H??H0?HW?H??H^?HL?HE9C??HE9CZ?HefCa?H?\Cp?H?eCw?H?XC}?H?YC??HMaC??H?bC??HFdC??H?_C??H9`C??HkhC??H?SC??H?TC??H?ZC??H?ZC??H?[C??H?[C??H gC??H?YC??H?VC??H?iC??HN_C?H?hC?H?HW?H_?Hd?Hn?H??H?mC??H2lCW?H,pC??HwoC??HKnC??H?nC??H?oCղH_pC??H?HJ?C ?H?rC?H̄C?HzuC&?HezC/?H?qC}?H#rC;?H?~CF?H#?CR?H?C\?H~sCi?H?Cq?Hx|C??HhrCz?H
C??H͇CղH??C??HעC??HH?C'?H??C۾Ht?C??Hs?C??H??C?H?C??HȏC??H??C??H??C?HA?C??H?C'?HW?C??H?C??H'?CղH??C??H0?C??HL?H?C??H?C?H%?CY?HòC`?H?Ck?H??Co?Hv?Ct?H-?Cy?H??C~?H֩C??H??C??H??C??HQ?C??H??C??H]?C??HO?C??H¬C??H?C??H??C??H&?C??H|?C??H?C??HR?C??Hy?C??H?C??HX?CY?H`?H??H??H??H??H??Hx?H_?C??H??C??H??H??H)?H??H??H??CS?Hf?CY?H%?C^?H??Cg?H]?CD??H?ED??H?BD??HED??H?@D??H?ID??H?H?iC?H??C?H5qC?H??C$?HܤC'?H?C,?H0?C)?H$.DQ?H?D/?HPJD??H*?HL?H??H5?H??U
?H?H ?H?H?H?H%?H??U??U??U??U??U,?H?U?U?U?U?U??HkTBZUB/VB WBXBYB?YB?ZB@[B&\B=]B?^Bv`BucB1fB?gB:jB?mBfqB?sB?uB?wB?yB"|B?~B?B?B+?B#?B?B}?B?B??B#?B??B?B??B?B?B%?B?B?B??B??B`?B{?B??B??BD?BܱB??B??BĶB?BU?BV?B@?B?Bw?B??B??B-?B??B??B?B'?BG?B??B+?B??B?B?B?B??B??B??B?B??B??B??B?B(?BK?B0?U5?U??HTI?H=?U??H??HG?UY?Ub?Um?Ux?U~?U??UӵHŦH??UTI??U??U??H??H??U??U??U?C??CS?C??CO?H??U??U??U??U??H??UO?UO?UO?UO?UO?UO?UO?UO?UO?UZW V V V8OW V VOW VHOW?NW??U?]W?PW?QW?RW?hW8[H?hW?OW?VC.UTF-8????????????]?G?G˽GV?H^?Hz?H??H??H??H??H??H?H!?H@?H_?HPIxI?PW[H\H\H^W?????????QW [H8[H\H(^W?????RW[H]H\HHbW
???? ?H  ?hWGCC: (Alpine 14.2.0) 14.2.0,q@#<Z
@
??H
<}
?G 6?G<Q;?GM?G<R?G!s?G<x?G??G<???G??G<???G??G,?řG$,?G:,p #?Gk|???G
??G
??G?
{?G-??G2ڜG2<i?GFR?G,?T?G`,??G<?G,?G,c(?G?/L?/??G
??G0@@,1ĞG??34,'6P?G0,?6??GL?7??G??G??G,?<??G,4>ȟG?
<?C??G??G<YHԡG?G?,?J?GLdK?GhX?G]?GL?Qb?G?`?G??Gz
lrdd?G5??G??Gi 0?GDt?GW
,?˽GЄ,[??G?<??|?G
}?G?,?B?G7<??y?G
z?G-<???G??G"L???G
??G
??G?
,???G,????G/,]??G%,??6?G+L??a?G{?G??G,????G,???GILׯ?G%?G?
??G?,???G?,|
??G*,
?G,u!
 ?G],$
}?G?,&
?G?,?'
??G??(
S,
?/
,)3
%?G?,38
??G?l?;
??Gt
?G???G???G?]H?
<?`
H??H?,?e
7H<g
GH}?HK,?k
H<?l
HH\bn
'Ho?H?H?H ,Ss
H?,?t
HD,Uu
DH',Uv
kH,+w
?H?,?x
` H>,Py
? H,z
? H<,?{
 Hm,y|
? Hw,Q}
? H,@~
H-,2
2H,?
`H?<??
@H `HF
,P?
?H2,x?
?H%,??
?H?,Ʌ
?H?,?
gH <ъ
pH?#H=<J?
`HzHL1?
H?H?H,?
?H,Ø
?H?,Ĝ
1H3,??
dHr,8?
?H,?
?H6<??
H
H,z?
Hr<o?
?HO?Hy,D?
UH ,?
bH,k?
nH>,w?
?H,
?
?Hn,?
&H?,??
 H"\ܶ
+H?
H??H?q#H,,?
?#H$,0?
?#HE<??
?#H?#H=,??
/$H?,x?
?$H?,r?
G%H,O?
O%H<,?
?%H,J?
?%H.O?
L??
?%H?R&H?&H?
,??
?(HL??
?(H?
?*H|6Ht <??
t@H:?@H?,@?
?AHC<A?
?CH??DH<??
?DH%?DH?,??GHc,??KHM,?9LH ,?FLH/,uLH?,U?LH?,W?MH?,lNH,?NH<?#NH
$NH?,1?NHLc?NH
?NH?tOHH<9"?OH?]SH?
,?5UH,C7UH,?8UH,:.UHJ,?;xUHb,?<?UH,??UH,@ VH?
, H?WH?
,?P7YH?<?Q?YH?cZH@,Z\?ZHo<?_[H[H#,&c8[H?,?g\H,?j\H?,=o]HU<es[]Hg?]H<?v?]HN^H,?y^H9,?|S^H&<??^H?@_HV\̌?mH{nH??nHqH?|y??tHvuHy~uHv?uHymvHrvH,ɟ?vH?,?@wH?,^?@xH?,???xH?<?zyH%
?zHXL?,??zH{,?r{H,???{H%,e??{H,???{H9,???{H?,ո?|H?,)?JH????H
?H2
`?H??H*
@?H`??H???H ??H?,y?1?H&
,??W?Hg,????H ,c?ǐH,??ܐH?,.???H+,????H+,???H?,????H?
L?,??7?H)
,
x?G?
U?
U0
XR?G!
?
cX]
Y
f?GB?
B??nW
"7=?M
???G
??
c??
?

l"*?
?
??G?
U?
U int D
?x?G
?
c??
?
?
?B??W
"7=?Z
???G
??
c??
?

l!*?
?
??G?
U?
U int f
???G
?c
?
U?
qB???W
"7=?v
???G
??
c?"
l!*=9řG?
U?
U int n
???G
?c
?
U?

%B?
#??6
?

?)
?

?

? DIRe ?
?*fd???????buf ?int?
?)
?
??=?R? =?P+

?)?%
??
?řG$
??
dir
?
f`ret
???֙G
??G?
UsYQ
gBR
1
??25
?)??G
?

?

?

?\DIRt?
?<fd???????buf 

?)int?
?
?
??5?\
5? ?)?.
** 5"?J
J
? c?
$?G:
?$e*
J
??fd ???dir$??)?G
!

?
6
?>!
G??G.

U?
U
TB?$?G

U
1
T  h?G n&G a1.Gret 5?
 B?
X
???5?
?G?)+
?
:<
%*
?
 ?
?/ ??
??? G?
?DIR??
'

* fd'

?'

?'

?C
 buf H
int'
.
C
G3
?Y
G?? e
'
2
F#?Gk
?Fdir
KG;deFwuL?GBlen'
??PL?G
H

 7]??e??n??w??H
???GY
N?5n&5a1.5a275a3@5retGg
? B?
?
??76?)?

?D?int
???) ?? fd W
?!P
?"P?26
????V'???
i ?0 
cat


6
?
%0~

~

?? len ?
;+?
'(?
? ?(#
?h,
r?
?

??
hK
?W
? ,
i~

? ?
??
V?(
^ ?0
??8??%?
R1??2?K3??3? 
!??
D?a
E ?W??W??W?W??!?00?W"@) ?,#0
YW??G2
???
Y)?-)?
YIWEA?
YV?]Y?[ ?sqȜG$ӜG|?
Us
Tv
Q}%ڜG?&?

HWڜG2
???
H????
H=W???
HJ???GI ????I??I3?51?K ?VL@T?????G?m
U v3$s"#'?G
U?
U
T?
T
Q?
Q(?)??*?
; {?G-
??a>*????G+~
??G?

??????,pn
%?(i ?o_? ,??aux???}pfd-???}r.W????G
o
0?????  o
**(5_?G
?
6!B97KIGUa_?
_sq?K?G
K?G4?i?G
i?G7??G?z
U??}˛G??6%s?6-Z
 ??G

??.p
?
U/?
??G

?0?j1=5 n&= a1.= a27= a3@=ret62s= n&= a1.= a27=ret6I
?B?
e ?24?) W
"GL?0 fcat? ?74?

??int?
????) ?
??)?@
$?dtv 
??
?
?f
?f(tid#?0
?$?4
?%?8
1%&?<
^'?@
?'(?Aw(?)?
?* H
3+ *P
,KX
?- *`
l. *h
/Kp
L0?xtsd1 ?
?6??
?7??
C8??
?09;?
?:$?
?;Y?
?<K?J@K
?R<Β__f? ?__x?K
???K?^?
i ??4???2
?3Eoff4p
V5Ef?K ?$4?
f ?XWK_Md*i_?R?G
??CR?GR?G

??GF
?&?
K??&-?G
?

?
7?? )?G?
Us
T?
U
Q
8!?
fC"tpf#?jW

`Bfx int ?2=
?)
?

?

?)^

?^V'vY(*???1e Y??* 
YT?G`
?e*
???l 1????G,?
e v??G{
Uv
Q|e?G?
Uv
T=?
<Bw'G?24?)?
intB?
Z_)??

$Zdtv 
?Z
Z
??
??(tid#B0
?$B4
?%I8
1%&I<
^'?@
?'(?A w(? )?
?*H
3+ *P
,?
X
?- *`
l. *h
/?
p
L0rxtsd1 ?
?6??
?7B?
C8I?
?09?
?
?:?
?;)?
?<?
??)?
?
W
"?0 "cat?
?"<?b__f? m__x??

?rm?
b.??
i ??4???
??74
???2
?3?
off4;
V5?
???
I4?
v??G
?v{??G??G
 ?:8B?
?tp?? 
?B?>?int * ?2@?)?
W
"Z_ ?0 ycat?~
?~?
?)~?@i??@
?0
map3 6e*??(?
??

$
)??$
dtv [?

? ?(tid#*0?$*4?%181%&1<^'@?'(Aw()?*`H3+ 6P,?X?- 6`l. 6h/?pL0?xtsd1 e??6*??7*?C81??09N??:z??;y??<??? ?? <??__f? ?__x?? ??????? ?7@
? ?2[?3?off4GV5??1z@ j?~?@z
? 
< 
#|
3+r
C8?
SQ?
c[
?m? 
s??
???
??V
???
??O
???
??
? ?

? ?%

?3F

?cS

?#e

 ?{

? C?

?!??

?"??

#3?

? $??

?%??

r '??

?(S
U)s
**#/
? +?E
+,?T
?-?d
w.?s
6/c?
? 1??
?3 ?
? 4??
 5c?
?6??
c7??
& 8?
?9?1
? :?B
i ;?N
K X#?
Y??
?Z??
^[S ?
? \?
?]s
?^?8
? _L
( `c a
?a??
? b#?
%cc?
{ d??
? e??
/ f??
? gc?

h?
 i 
?j?9
ckI
Y lS ^?~#@~3@~C@~S@~c@ ~s@~?@~?@~?@~?@ ~?@ ~?@~?@~?@~ @~ @~# @~3 @~C @~S @(~c @~s @!y ??U%? @?? 5? ??UY?? ???*y?G
?G e**WS? ?G?G
,1 ? pn?GG 
U?
U?yG,
?? e*}loc$N??s
? ?G? !?
tp?
cB??? int*?2@?)?
?
?)?
hm )??

$hdtv &
?h
h
??
??(tid#*0
?$*4
?%18
1%&1<
^'?@
?'(?Aw(?)?
?*+H
3+ 6P
,?
X
?- 6`
l. 6h
/?
p
L0?xtsd1 0?
?6??
?7*?
C81?
?092?
?:E?
?;]?
?<?
??
?*
 U'@
1'W
">C ?0 ]cat??
<Ζ__f? ?__x??

????
?bi ??@???
??7@
???2&
?3,off4G
V5,???
1E@5 ??E ? ?
_  
 @
  
? !?1?*? ??1???
"? "
*?*#?
?G?
??-?G_p??(??2??<??F??_P\
Z$?K?GK?G
?%?  iT?Gr?v  & " ?F D r?n?G?XV T (f d 2v t <? ? F? ? ?P\
Z&~?G~?G

 ?G??
U
6 ?G??
U
0 $?G??'
U ??G??
U
9(??G?
U)?
?tp?*?j+?"Gin"&Ga1".Ga2"7Ga3"@Ga4"IGret$@r10%G,sGn&Ga1.Ga27Gret@?
?B?
?)
?
int,
?)

?
?
?

i

?

?
?3?p?
??? ?XWh

6B?5int
?)
?

?
?71

?
?

?
?
?)

?
i?!?? ? D? ?1?*?0
@@
?
C
*? ? H@M@T@[@?
Us
 ??G0
?Q
a
F? ? ĞG?
 ??G

?j
Q B+?? ?6?)?
int?M F
_ C hxx?)5 ?? 6~ 6? ?c ?U ='  =?
xq =

?
?
?
?
?
?
?5
DĞG?
? ? ? ? $D  ?
 *< : fd
DN J ??
ap
R??04?G
4?G
?
=d b ENu s W? ? `#?G?
U
2
T?
U
X
0
Y
0J?G?+
?$=n&=a1.=a27=a3@= retx}
? [?int?
21
?)
?

?

?)

?
i

??2%b ?XW 
] ? u+ int?21?)?
?
?)
?i?0 ucatu ??1???%0?
?
?Mlen %
;+%
'(%
? %(??h?

rO
O

?O
h?

?
? ?

i?
? %
?%
V%(
^ %0
?]8
??
%?%?R1%K3?
O?3?
?
 ?XW?
 ?XW?
 ?XW?
 ?XW??
q ?
?
:? ?s
?
? <Bint'
*P?G0
??r
"?? ? k?G0
?)*

?B?'??
'  *FF?)?
???G
??fd?? ? op?? ? ???G
 ?

? ?



?; 
][??G0 ints*n&*a1.*a27*retF?
?B?>?/
?/W
"GL?0 fcat?intf ?2|?)?
?
?)i??|??0?mapj
3 r
e*p
?(?
??


)??
$
dtv F
?



??
??(tid#f0
?$f4
?%m8
1%&m<
^' @
?'( Aw()
?*KH
3+ rP
,?X
?- r`
l. rh
/?p
L0?xtsd1 P?
?6?
?7f?
C8m?
?09;?
?:e?
?;*?
?<????6<??__f? ?__x??
??????? ?7|
??2F
?3?off4?
V5???me|Uo/?|????G
?? msg'?zv???G??G
??????G
U?
UY???G
?V msg#??? lmC?????G
U?
U
T?
T?
???G
??msg&?
UlmF?
T?
?tp??

RB?iU``X

j]

.]

?]

]

J ]

f!]
(
*"]
0
?#]
8
<$]
@
x%]
H
?&b
P
?'b
Q
?(b
R
?)b
S
*b
T
?+b
U
?,b
V
?-b
W
?.b
X
?/b
Y
0b
Z
?1b
[
?2b
\
?3b
]*b

?Z
X
@NW?
?
??G
?*h
?B??/
?/?0 U cat?intU?2m?)?
?
?)?i ?? m??0? mapG
3 a
e*R
?(?%0M

M

?? len a
;+a
'(a
? a(??h?

r/
/

?/
h
?U
? 
iM

? a
?a
Va(
^ a0
?;8
??
a?%R
6?
?? \B m2QG /b m?B /~ m?buf
 n `YW?6a????\?#??U???La *U?%??
*ȟG?

?cat
U??e*
&lm?NFret
I*? iU{qs- *???
. ?
/U?????;??? R??~p??!?z????G?@
Uv
T~??G?^
U|
T;ϠG??
U~
T|
Q??~?G?
U}"%?GXlm1? ?l5a#  a?G??
Usr?G?
Uv
Ts
Q~??G?
U}??G8
U}?G?V
Uv
T| E??O?? Z&?٣GV
Dj?$"'V 31 #GC(-?H)8?G
?G
E E??O?? Z??*?G?A?Gw?

U|??G8

U|+n
*
8 old
(V new
7Vlen
aa
Vb
V,?H n&H a1.Hret A?
<%/B?#0int#*?2A ?) ?
?
?)?7A
?#h ??y?
? ?%~? ? ??VM?A1?0 ?cat?
? i??A
2? ?%0c

c

??len 6
;+6
'(6
? 6(
?h
r?
?

??
ho
?*
? 
ic

? 6
?6
V6(
^ 60
??86?%h
?*7A>'?N3 C?
N4
?
b
-4V
?@pad
2
$
B _b(
(
?
-

-mem
Q

1
?
1?]
?]

^]
?]4
???BA?Q$A_,
"?
?
#?

$?
?
%*
?
&? VV??$A5??
)?
?
*?
r
.*
?
/V
?
0-
?
1-
a
2 6
?
26(
?
2260
?
3?8
?
3%?@
h
4"H

5?P?6 ??
?7 ?P?7?p%seq8 {?%brk9]?-?A/6?A/{?A?
=???
??len 6&?1&?$6u*??67? K*8Ie?Gz

?: pe???gi-I=idxj*|v?k 6??
l"??endm"??$o???allo?mi??+#9B?x" leny 6 e{*'?????e_n?????????R??G
??G
?yԪG
ԪG????????:=?G:e?*??(B?G?S?G$
Uv
Ts? ?G
?jb???)??G?G;k????b?G
?n? *.* ?6LDR{?G
{?G

?R??G
??G

?R??G
??G

?R?G
?G

?R??G
??G

?R?G
?G
?K?G???a?G
U|D0?G
? 8?G?
U|*?GH 
Uy*?G: 
Us
Tv+?H?`?G?
? gH4-?xiH;*??$J???scK*;)?L???'? |S*?????G
9T ?R?G?G
R?-?G
-?GSV?@>?OM?`\R4?G
4?G

uyU?GU?G
x ?yw??????R??G
??G
ZͦG
?^? +??RԦG
ԦG

MRۦG
ۦG

N5??G6??)Y?G?Ga?d??n?? ?G?N*l  ?(9/3lf,??#?G?-F???!???G:???!LZ?GWX ]?? Wg??r?=???G
j????G,????G
 ?NL?ըG
?"? ?a]!?G
?
p +{w5??G6??}??G5~???????????G
? ? ???*??GH? 
Uy(ũG: ?&*
Lg&&- sc(* cnt< 6?= 6S?
?g/- mi? sc* p ? m- idx*;6

*?-sc
*
|*?p
|7C?
s??m
s4-?
v? act
v?4
m?m
m+-y
Z.?Z*m
Z>--{
KD.?K(m
K<-?
P-"?L"%H"?j.yp.'v..*=.*p't.*s5*?
?(>B? ?%?int0*?2A?)?
?
?7A
?0a??y?t
??%~??????)M?A?0 ?"cat
??H@1?
??i

A 
A?
%0}
}
??"len 6;+6'(6 ? 6( "
?h+r??
??hh?*? +i}
? 6?6 V6(^ 60??8 6#?%?
?*QA#>A?hB]#? h4?bGCV?@"padL $\yb(B?GG"memk1?1$?V
$?V

$^V
$?V4
? ??\A?k2A y,"??#?$??%*?&?p p??2AD??)??*?r.*?/??0G?1Ga2 6 ?26(?2260?3?8?3%?@h4<H5?P*?6 ??
*?7 ?P*?7?p3seq8 t?3brk9V?G?A/6?A/t?A#?=?4Q
?]W?A/Em
 ?VDAA.5D ?VmA]5?&m ?V4?(  ZW% u*? ? 6% ?? ? ? 6 ?1?FG? ? *% w* ? 6 *%? ?= ? 6 * * * ?6?M M 16?b M7&~
*t?GW

??&p~
???g?
G?? Lt?G? ?
?] ?
g95
sXP
?
???
????z?G
z?G
????G
? ?_?" ???G
??G
????G
??G
????G
??G
??ɼG
ɼG
??ӼG
ӼG
??ݼG
ݼG
????G
??G
??!?G
!?G
??F?G
F?G
??i?G
i?G
?'+z?G?
?
<3/7O+
?0?GD
?1&n+
6fVg.
G???/
?B@?/
?SOsc0
*tlidx1
*??ctr2
*??H?
x

?GI??G?? <-5
6??p6
? ?ԹG
w 9
? [?GR
U~ ?G
? :
H 8? ? p?G
!<4???G??G=
? ??G=
U~9˹G? 
U
0
T|
Q
3
R"
X ?
Y
0(??G???G?
Us
T|J ? ?Y
6?? -0?G?-
1>??(??G?Ia?G
a?G?O
?Z?
d!(x?G
??86.'D??G?I
TXV+? ??G?Q
???G??GD??GR
U~ o'?G( {
p ?mg)????)?(
???
???
???
???
?+'?GD ??<.*???G
??G
??T 
?JB??G
?G
??#?Gd ??qm????d
?? D?G
? l
? T??+? ??G?Gz
? '?G=
U~?M?GM?Gs
U?G=
U~u?G1
U???
TvK?

*??Gi
?&sc
*??&req
&64  ?
?? ? g#
G? ? ?ήG?
K?? ? ?
?G!9!
??!}!
?!?!@ݯG?
{!K?!?!)VV
&""carview.php?tsp="
V"T"
,i"c",?Y?GY?G?? ??"?"
??"?"
??"?"?`?G
`?G
u???G&x ??"?"??"?"??"?"???G
??G

????G6
???"?"D?G
?G!
T>#<# ??G
H#
hW#K#?#?#H
*$?#
6>$6$
@z$f$
L?$?$
V%%
`a%W%
l?%?%
x?%?%?ys-?
??%?%???G
?
?g?2&.&L??
??)?:?
P&H&(?G?
??8?? ?G
!?&?&,ҴG
ҴG4?A?&?&a޴G
?pl?&?&w' '?G
U
0
T??
Q
3
R"
X ?
Y
0??Y
? ''
?R'F'
??'}' I?G
<Z?'?'
d?'?'(#?G
#?G4?8?'?''D*:*???G
?V*R*??A
?o*k*??G1
U???(??G?'a??G
?
'
l?*?*w?*?*???G
??G
M?³G
³G
N?ԳG
?+
+.
?G
?sc
?%*req
?06;+
? 6i
?*cnt
? *p
?<m
?G?
? 6t
? 6V
?*;?b
?*<-
? 6 j

* idx

* g

G i

*j
r?
:pm
r):m
tG?
u??
w?cnt
? *;+
? *?
? * GMS
*G
?m
,Gp
-<t
5 6
9*;?new
;V8
<*n
Q6NC

d?G5
??Owho

*"++?d?GL

?N+F+?j?G
j?G[?u?G
\Z y???G??GD<n?J6??*??6Gg?4G B??G?p?:?? ?*G?*???b?G1?? ? ? ?>|*?p|7??s?ms4G?v?actv?4mmm+G?fG@/?f7:mhGyZa/?Z*:mZ>G{K?/?K(:mKint?2=
?)
?

?
gjjj1  n
j˽G
?pj?-?-n1..нGO
U?
U
T?
T?
t.? GZ?
?)
?


?
?int

?
?
?)t:vu:V ?]W` ?]W+
?.B]{ ??int ?2<?)?
?
?AC?)m c
?m?Fc??t ??61???Rc?c1?????1 ?? ??@ Q
?h1 c7
?*?W
??1?E1r
?1? ~
*?
c?G?
??? %?3.+.?>hg.Y.???_?????p 1?.?.q1X/B/l1?/?/l01l0V0cnt1?0?0nup1111?
*?1?1 ??]?G?
'
?g??GK ?z7 c?1?1upO*22k_QW2M2!?G7
?

U???

Tv"1

Q}X?G7


U???|"??G?7

U???

Tv

QԿG?X

Uv~"

Tv??G
v

U}

T/??Gr
 ?Gr
??Gi
(??2?2i "?2?2?GW
?

Us

T
A?G7


Uv~"

Tso?Gr
?Gr
??G7
M

U???

T}

Q|
??G?l

Uv

T
??G??

Uv@?G??

U}s"N?G7
?

U}

Tv

Qs[?Gy?

U}b?Gr
m?<m<??
1
s
%? s0
?\
|0Bz? @D?25?)?
??< int?)
?
??
??'  <?5? ?N?





len
"*+N5Nfd
@Noff
JCret
<?
 |?G

?5<?
n5&<a15.<a257<a35@<a45I<a55R<a65[<ret75r108<r89<r9:<?}?G?
?
??2?2
?+33
??3p3
??3?3
?74'4
??4|4????G? D
??4?4
?55
?9515
?j5^5
??5?5
??5?5 ? ??5?5"
??G? ,
3
6
6
=
66
H
"6 6
S
16/6
^
B6>6
i
b6^6
t
?6~6 ? 
?6?6?

Z?

X?

Y??G*?G??G? ?G??

?1B?? yE?26
?)
?)
?
int
?


?
i

? '  D? 6
KB?G7
?w
v+Y?6?6len
#*?6?6,K?6?6

 *77end
*)77w
L?G?
i
?
?7?7?
?7?7?
?7?7?
88? ?
-8+8t?GpDn&Da1.Da27Da3@Dret6p

3B?5F?26
?)
?)
?
'  Da6

z?G-
?


#
L8F8 len
"*n8h8?
??G
??G

L
?8?8T
?8?8]
?8?8f
?8?8 ??G??GKint?
 y?G

?sDn&Da1.Da27Dret6?
G4B?%?Fint
?)
?

?


?
?

?
?
?)M?1$
i ?]W*
*??G"
?)
??G
?s
b
U 
?4B?iiG?25?)?
E? Nint N?)f
??
i?0 ?cat? ??5???%0



?tlen *
;+*
'(*
? *(??h?

rf
f

?f
h?

?N
? ?

i

? *
?*
V*(
^ *0
?}8
? ?
*?%
?
?
?
)?q
$?
dtv e
??

?

?
?(tid#N0
?$N4
?%U8
1%&U<
^'(@
?'((Aw(!)!
?*jH
3+ *P
,tX
?- *`
l. *h
/tp
L0 xtsd1 o?
?64?
?7N?
C8U?
?09??
?:??
?;a?
?<t? ??]
?!?]
+? 5?5?]
Gq? ?"W
"?}<??__f? __x?t
? #t????75
? !?$2e
?3?off4<
V5?!t U?5 t:#?U?Y#??#??#??#? #?? #?? #?p#?? #?_#?K?  V? ??? ?????? ?~5 n??R#~ ?NW  ?t??? ??? ?N?+YC? ??7?? t%N
/C??G?

??&set
1???~h4N?8?8$??
9?8?#?
'9%9ret@C@949/ANz9p9g?G5?i:N?9?9 ??G??G?tdD?
?9?9'X$iMN:: 1?G?(??G
F
?Q)F*??:?:??Ge
U ??G?}
U~ ?G? "?G?G?G?
U ?X?G?
U ?b?G?
U ? g?G???G?
U ???G ??G? ??G???G??G7
U}? ~?G???GX
U}??Gl
U}??G??
U~??G?
U}+??G
U
0,/
+ ??G

?-?
$ ??G

??.x
$N
U/?
0tp 
?7B??'J?)?
E? Dint<?W?)h^
?hV'?^?
??1??]
??]
+? *?*?]
G??^?Y_D`? m!
n8BoK qE
?r D?s Dld
op?#t!
x?
ny D+z??z?v?
?w??{d
k?
?uE
x|?
 ??
6?????????
??W ~L? ?? L???
? ?w8? 1??D ???? ??D?? Wpi?Sj??}?
????S??w h?*o ?c 6?gDpgD@gDc??I???a\? l?? ?lDa?D??6q????Z?B?????D?? ????P
 P Dg8??????D
?D
? ?
S!P
h`*7?"?` P$ ??%??&?S'? D?*
D?*(q?o ?i
?
?? ? D48*8D?0D@@` @
*Dy~?????8 y?l ?c ??2D?@Ly;D?E?? ??8D?E?!/D @??D##? #??DMD?(??Dh#D??D?D??? ?? ?!%%a"?
D??G
?#cmd
??:?:pid 8??vold???wj???xsa???yx3???z;???{qD??v$ret
D?:?:`??|?G?E?Gh?

U
2

Tv

Q}U?Gh?

U
3

Tv

Q|g?GM?

Us

T
At?G-?

U
0

Ts

Qv??G 

U??GM)

U

T
2??GMF

U

T
3??G?^

Us??G?|

Us

Tv??G??

Us

T??G??

Us

T
<7?GJ?

U??v

T ??U

Q
0

Rs

X??vB?G*

UsZ?G $

Ts

Q
0c?G?w?GhS

U
2

T}

Q
0??Ghu

U
3

T|

Q
0??G-?

U
2

Tv

Q
0??Gh?

U
2

T}

Q
0??Gh?

U
3

T|

Q
0??G-?

U
2

Tv

Q
0??G?b

?9B??KE? 6int?)?)?
?
?U K'  K?
Dq K?
`
`
`
`
`
`
` 4
*??G/
?_
pid
*?:?:q_
;;H+68;2;?G?Q

U=
T ?
U $ &
Q?
T
R ?
Q $ &
X
0
Y
0?Gl 6$
X:
?K?G%P?
(
?$
l:
UL6?G+l?
(
??
?:BP??L?) *?
int?)
???
i
?
??1?* ~ ?? 0V ?? (V )??G
?X
set)Kd;`;???G??G+
?z;x;
??;?;
??;?;
??;?;
??;?;??
Z?${?G
??
set$K?;?;?~?G~?G&
??;?;
??;?;
? <<
?$< <
?:<8<??
Z?a?G
??setKL<H<?d?Gd?G!
?b<`<
?r<p<
??<?<
??<?<
??<?<??
Z?"6n&6a1.6a276a3@6a4I6ret$*r10%6O

x;Bn??M
?)
?
E? Dint
?)
?

?'  1v * ?
D??G
?
pid8?<?<sigD?<?<
??G?
 
+
==3
==<
G=C=? E
e=c=??G`s1n&1a1.1a271ret*?
s<B?6H
3+ *P
,#X
?- *`
l. *h
/#p
L0?xtsd1 C?
?6?
?7B?
C8I?
?09b?
?:X?
?;??
?<#???]
?]
+ 4 4?]
G?
?
? ?74
?
?D?aWW
"ns?0 ?cat?,<??__f? ?__x?#
???#???
i ?? 4??29
?3\off4;
V5\3D# IX 4H  m#'  ;?4? ?# ?
B??GI
??!sig
B?=~="set
??~#ret
B?=?=???G
??=?=???G&h??=?=??=?=??=?=&?> >$??G??
U??~%??Gm&?G]
U??~'?
3?tp3(s;n&;a1.;a27;ret4?
?>$B?p;O ?26?)?
??= E? \%int\ <?t?)&??]
?'?]
+?6? 6(?]
G{)?*^?Y_\`? m

nP
Boh q&

?r \
?s \lE
op?#t
xu

ny \
+zD
?zDv?
?w??{E
k?

?u&

x|u
 ??

6??
?????
???
??t ~)
? ?
? )
???
? ?S
8? =
??\ ??
?? ?
?\
?? tpi?Sj??}?
???
??0??S?? 6o
? ?c 
?g\
pg\
@g\
c?? I???B\? M?? lM\Bg\g?R????
Z?#
???
??\?
? ??q+??0 ?cat?t? 6
?,?
i   6-?%0s
s
??len *
;+*
'(*
? *(?h!
r?
?

??
h(
?\
? -
is
? *
?*
V*(
^ *0
??8
?!*?%x ?76
?? M?6Xcy 6i?c??y? ?
_  M
 6
  ?
? ?? \ ?]W6? 6?? ?]W.~
 ?]W  4??EEc?[E? l?/? x\'  =?60? ?1 ????*??2??\??G?
??sig?\2>$>sa?;?y>k>old?Z?>?>setA??XrO\?>?>3??Gi
U?
U
T?
T
Q?
Q4??Gl?G[?
Uv?GJ?
U|?G?
U
6
T?@
Q?H)?G4?
U|1?G#
Uv??q?\%?G?

?? sig\'??sa@???w?old_????ksa??????@r6\ @@? l?Gl?G ? @@>@O@M@5.l?Gl?G?9^@\@Cm@k@ S??GM%x `|@z@j?@?@u?@?@??@?@??@?@!M6?"?
Z??G
??G+? ?@?@#?@?@ S+?G]6 + `?@?@jAAu`AZA??AzA??A?A!]7??A?A"?
Z?G?R 
U??
T?
T#
Q
8l?G?u 
Us
T?X
Q
8t?G}
Uv $ &8?
?G
?? set "? ?A?A9%?G?
U?
U
T ?]W
Q
8???p?*?v?2=?V.pV*ExV1\?>Np>/Nv>;Xd:?"=n"&=a1".=a2"7=a3"@=a4"I=#ret$6#r10%=

?AB??5R
?)
?
int
?)??]
c?]
+c*s * ?]
GF
?

?? ?8?
8
?C?CG
?C?C? P
?C?C?GY$


?
s*n&*a1.*a27*retDr
^G B= aU?U5?
? ?G?)W?Y?)??5?Y??Y??5h?5??
??*
q?b5<?GQ?G
/??

?v
?k
_ N
? <
? ?
?
?G$
? v(
y`0
??8
??@
??H
??X
??h
??
x 5?
Yint? ?,S?
?
?
?
?
?
?

??
??

/
?
?G
??
?
?C?Cbuf
;DD,?G?

U ?
T?
U
Q?
T
R
0&
[HB`7 ?U?25?)?
??< h@
[ ??

?

??

Q?

?+
`?

??
(
!?
0
??
8
? I@
? lH
? ?Pbuf?
X
? *`
?!?
h
!?
pfd"x
?#|
e$<?
?%?
?&&?lbf'?
J(?
?off)C?
V*??
.+?
?
?,?
?
? -C?
D-C?
o.?
?
?.?
?
?0/???)
??
iN
??
int*I?
?
*0*g?
g*NC??
Cq?
??{7 ??
?6??
;
,?G(
?f
?
SDGD
?D?DD?G?T?G?
U?
Ud
?IB?N xV?25?)?
??<h@
[ ??

?

??

Q?

?+
`?

??
(
!?
0
??
8
? I@
? lH
? ?Pbuf?
X
? *`
?!?
h
!?
pfd"x
?#|
e$<?
?%?
?&&?lbf'?
J(?
?off)C?
V*??
.+?
?
?,?
?
? -C?
D-C?
o.?
?
?.?
?
?0/???)
??
iN
??
int*I?
?
*0*g?
g*NC??
Cq?
??P+??
?V ?U??
{7 ??
?O??
?6?
?
U?G?
?@f
?
?D?Dr
?D?DE?D? ?"EE k?G??
Us s?G?
Us??G? ??G??
Us ??G?
Us ??G??
Us ??G
Us??G???G???G???G?
Us?
 T?G

?f
?

U=
[KB?p ?W?25?)?
??< h@
[ ??

?

??

Q?

?+
`?

??
(
!?
0
??
8
? I@
? lH
? ?Pbuf?
X
? *`
?!?
h
!?
pfd"x
?#|
e$<?
?%?
?&&?lbf'?
J(?
?off)C?
V*??
.+?
?
?,?
?
? -C?
D-C?
o.?
?
?.?
?
?0/???)
??
iN
??
int*I?
?
*0*g?
g*NC??
Cq?
??{7 ??
?6??
?
?GB
?f
?
LEBE
vErEret
?E?E,?G?B?G?
Uv=
?LB?? ?X?25?)?
??< h@
[ ??

?

??

Q?

?+
`?

??
(
!?
0
??
8
? I@
? lH
? ?Pbuf?
X
? *`
?!?
h
!?
pfd"x
?#|
e$<?
?%?
?&&?lbf'?
J(?
?off)C?
V*??
.+?
?
?,?
?
? -C?
D-C?
o.?
?
?.?
?
?0/???)
??
iN
??
int*I?
?
*0*g?
g*NC??
Cq?
??{7 ??
?6??
?
D?GB
?f
?
?E?E
?E?Eret
?E?En?G???G?
Uv?
NB?? 'Y ?25?)?
??<h@
[ ??

?

?
Q
?0
`
?(
!0
?8
? N@
? qH
? ?PbufX
? *`
?!?
h
!?
pfd"$x
?#$|
e$<?
?%$?
?&+?lbf'$?
J(?
?off)C?
V*??
.+?
?
?,?
? -C?
D-C?
o.?
?
?.?
?
?0/???)
??
iN?
 
? $$?
int$*N?
*5*l?
l*SC??
C$v?
??3?
?4?
?
?
?]W ? ??V {7 ??
?6$ ?
?U?
?
$??GK

?f
?
&FF$WFQF
?G?2 r
$zFtF!? ?$?F?F I?G??
Us ^?G?
Us m?G??
Us??G
Us?G5?G
U|??GHV
Us!??G??G?{
Us?G??
Qv@?$?G??
U|"?G?
Us#<n&<a1.<a27<a3@<$ret5?
?[Bg/?d?25?)?
??<h@
[ ??

?

??

Q?

?+
`?

??
(
!?
0
??
8
? I@
? lH
? ?Pbuf?
X
? *`
?!?
h
!?
pfd"x
?#|
e$<?
?%?
?&&?lbf'?
J(?
?off)C?
V*??
.+?
?
?,?
?
? -C?
D-C?
o.?
?
?.?
?
?0/???)
??
iN
??
int*I?
?
*0*g?
g*NC??
Cq?
??{7 ??
?6??
? ? ?+?G\
?? f+?
*R"R off+<VRNR?+"?RxR ??G
- ?R?R?R?RS?R! *(S"S 5GSAS)?GA?
U?
U
T?
T
Q?
Q6?G?I?GA?
Us
T?P
Q?\?X?G?
Us"?
"
Af?
offC#?
"&$% ?$?G?
?? f?
mSaS off&C?S?S?/?S?SN?G?
Us
T
0
Q
0p?G?
Us
T|
Qv??G?$???G\
?TT?G?
?s
??Z?Zr
5
S
5*[$[f?G??
U?
U
Tv??G?
Uv??G??
U?
U
Tv??G??
Uv
T
:??G?
Uv?

!hB??n
?)
?

?)

??
?

iint
?'  1} * Z
Y??G*
?g
?
g
V[P[r
Yz[r[ m
??G?

z
?[?[?
?[?[??
?[?[m
??G
??G
Y
z
?[?[?
?[?[?
?[?[??GgF?1n&1a1.1ret *\

GiB???n
?)
?

?)

??
?

iint
?'  1} * a
Y?G
?%
old%
\\new)%
!\\+
?G?
 
8
:\8\@
M\I\I
k\i\? R
z\x\?GgFs1n&1a1.1a271ret*
Cj B ?Co?25?)?
??< h@
[ ??

?

?
Q
?0
`
?(
!0
?8
? N@
? qH
? ?PbufX
? *`
?!?
h
!?
pfd"$x
?#$|
e$<?
?%$?
?&+?lbf'$?
J(?
?off)C?
V*??
.+?
?
?,?
? -C?
D-C?
o.?
?
?.?
?
?0/???)
??
iN?
 
? $$?
int$*N?
*5*l?
l*SC??
C$v?
???h
$ ?G]
?f
?

Ubuf
.??\?\
7$
Q;+
D*?\?\?

gkB ?p?26
?)
?
M F
Q C Zjj6 5 ?? ?~ ?? ?c ?
?)

??
?

ipu???*?
int????jq
?}?G?
?s?]]n'*9]5]fmt??W]S]ret
?s]q]ap
 D??~??G?
R??~m

?lB2 ?p
?)
?
M F
E C N ^^*5 ?? ?~ ?? ?c ?
?) 

??
?

izt?????int????^{
??G?
?s??]?]fmt4??]?]ret
??]?]ap
 8??~??G?
Q??~c

?mBF q
?)
?
M F
EC N ^^ *5 ?? ?~ ?? ?c ?
?)

? ?
?

i?|?????int??^?
???G?
?s!??]?]fmt9?^
^ret
?!^^ap
 8??~?G?
Q??~f
?n BY ?q ?2)?)?
??0h
@
O ??

?

?
Q
?A
`
?(
!0
?8
? _@
? ?H
? ?PbufX
? `
?!?
h
!?
pfd"5x
?#5|
e$0?
?%5?
?&<?lbf'5?
J(?
?off)7?
V*??
.+?
?
?,?
? -7?
D-7?
o.?
?
?.?
?
?0/???)
??
iB ?
?
?@?
?B
? 55?
int5&_?
F}?
}!d7??
75??
???4?
?)buf? ^W  ?PW?
  OW? ?PW?<78?
75?:W?
}?=5?
g
?o Bl ?q ?2)?)?
??0h
@
O ??

?

?
Q
?A
`
?(
!0
?8
? _@
? ?H
? ?PbufX
? `
?!?
h
!?
pfd"5x
?#5|
e$0?
?%5?
?&<?lbf'5?
J(?
?off)7?
V*??
.+?
?
?,?
? -7?
D-7?
o.?
?
?.?
?
?0/???)
??
i?>?
B ?
?
?B
? 55?
int5&_?
F}?
}!d7??
75??
???2?)buf?  ^W  ?QW?
 (OW? ?QW?<79?
75?9X?
?=5?
g
q B~ [r ?2)?)?
??0h
@
O ??

?

?
Q
?A
`
?(
!0
?8
? _@
? ?H
? ?PbufX
? `
?!?
h
!?
pfd"5x
?#5|
e$0?
?%5?
?&<?lbf'5?
J(?
?off)7?
V*??
.+?
?
?,?
? -7?
D-7?
o.?
?
?.?
?
?0/???)
??
iB ?
?
??
L B
? 55?
int5&_?
F}?
}!d7??
75??
??3?
?)buf? @bW  ?RW?
 0OW? ?RW?<79?
75?;X?
}?=5?

ErB? B?r?25?)?
??<h@
[ ??

?

?
Q
?7
`
?(
!0
?8
? U@
? xH
? ?PbufX
? *`
?!?
h
!?
pfd"x
?#|
e$<?
?%?
?&?lbf'?
J(?
?off)C?
V*??
.+?
?
?,?
? -C?
D-C?
o.?
?
?.?
?
?0/???)
? ?
?
iNint?
? 7?
(*U?
*<*s?
s*#ZC??
C}?
?? 1Q?
???
'  <?5  ???
?
%?G?
??s
??@ fd<^:^ f?
O^I^ try j^h^?X?G
X?G??z^x^??^?^??^?^??^?^??^?^?{?G
{?G ??^?^??^?^????G
2
D??^?^??^?^2?X?G?\
U?Mt?G???G?
Us
T ??U ?
?!5"<?n&<a1.<a27<a3@<ret5#?<n&<a1.<ret 5?
-tB? Z?s ?25?)?
??< h@
[ ??

?

??

Q?

?+
`?

??
(
!?
0
??
8
? I@
? lH
? ?Pbuf?
X
? *`
?!?
h
!?
pfd"x
?#|
e$<?
?%?
?&&?lbf'?
J(?
?off)C?
V*??
.+?
?
?,?
?
? -C?
D-C?
o.?
?
?.?
?
?0/???)
??
iN
??
int*I?
?
*0*g?
g*NC??
Cq?
??{7 ??
????
?6??

??G?
?c6_&_f?
x_n_
?_?_ ?G?B
Us ?G?Z
UsU?G?r
Us_?G??
Usu?G?
Us?$
uu2B? ?u?25?)?
??<,h@
Z3 ??
5?bQb??`b ?b(!b0?b8? ?@? ?H? ?PbufbX? *`?!Xh!Xpfd"?x?#?|e$<??%???&??lbf'??J(<?off)C?V*??.+<??,b?? -C?D-C?o.X??.X??0/??,M F
?
4C ?
555 5? 5~ 5? <c <?)6
? >?
i N-X g
? g!??X7int8? s!*?Xb* ?!*?X?* n ?!C?XC? ? >9? ?? ??75
????5M?52?5&):5
"?

?PO?Ij I #PTR #INT ?+-  ??DC,?Zv ? #DBL+ { ?n'559 $c 1'  V;arg
fj%ihB%fij%pj<dE?5 q$[ ?? VB<?<?*N*??*X? ? j?j? ??5?jp_?'jT J?B?
?E*]]* E-]?8?}?M
??]H?

??f?]?_?_fmt?5b``ap?B?5`1`ap2? ?
??}&? ????}&<????~&< ????}??#b[`M`$ ???`?` ret???`?`??aa?H??
U
0
T??|
Q|
R}
X~,H??
UsFH?.
Us
T??|
Q|
R}
X~?[HL
Us
T
0
Q
0?H?d
Us?H??
Us
T??|
Q|
R}
X~?H??
UsH?
Us ??5 A?5 g?5O@0
?
???G?
?:f?
X*a&afmt?
-]FaBaap?
;:ba^a.<J?~aza.? W??a?a a?
??a?a z?
?;b b s?
?Zcc_?
5?d?d fl?
5e e w?
?}eqe p?
??e?e/xp?
?arg?
A??o ?
??f?f st?
5)gg ps?
5bgVg cnt?
??g?g l?
??g?g i?
*?h?hbuf?
D????
]i?h t?
??i?i pl?
?0jjwc?
T?? ws?
d?j?jmb?
i??'y?
??G'? ?
7H'?O??G?"S?G
??
?
#
k?j
# kk
#8k4k??G?
U~
T} $ &
Q??~Ay?
?
? ???fk\ky??G
??
?
??k?k???k?ku"_?G4A
?"
l?k
?"-l%l
?"TlPlT"??G*8v
b"xltl
k"?l?l*"??G:E?8"
A"?l?l:J"?l?l?"??G
M}H?"
?"?l?l
?"?l?l
?"mm
?"@mT5
d5

>y5B
?
?
?Cs
?
?/i?
? ?D?
????G?
??!f?X?p?py?(j?p?pw?/?vqrqp?6??q?qfl?=??r?rt?E?#ss(big??!??Fa?"?s?sd?"0tt)r?"z?"?t?t(e2????Ee??:u$ui???u?uj??Av/vl???v?v(buf? "??Es? ?w?v"??]jw^wpl???w?w$??"??E"U??ax%x"&?;??yky?9s? ??y?y?""5>*"5+???T" x?B s?'?)y?5+???u" x?B s?'?+????" x?B s?'?I9
?.?1pad??" f?X c?> w?&? l?-? fl?4?)pad??">?"5?1out?# f?X s?&] l?0*J{
m ??Gt

?o#Karg
m ?
UL
m)?????apm8:4??M?"?G?
?
?"????
?"??
?"???
?""??N?"??}
?"C?A??"S?G
r?*$#
#Z?V?
#r?n?g?G?
U}
T

Qv?"l?G???$
#????
#????
#??????G?
U}
T|?
Qv3?G?
U}
T ?
T8$8&
Q|
| $@$$,(

GzB? @W??25?)?
??<h@
[ ??


?F
QF
?r
`F
?F(
!F0
?F8
? ?@
? ?H
? ?PbufFX
? *`
?!<h
!<pfd"fx
?#f|
e$<?
?%f?
?&m?lbf'f?
J(?off)C?
V*??
.+?
?,F?
? -C?
D-C?
o.<?
?.<?
?0/??5  ?  ~  ?  c ?)
?"?
iN<K
?K ff<intfW *?<F*w *?<?*R? C?<Cf?"???
??? J
"s
?n
*BG*LBMsfmArw)m?
p
#f?H?
?;s#???n#(*"??fmt#@r@?:?ap#Mwc?]?buf%;??}?
&J??}c'???}f(N??~/HM
U??~
T?
QKJ5"Y5?
*H?
?f<????s6?????l@*ތԌc??k *'???H"?
Qs?H"
T~
Qs?\

?{B? c?? ?26
?)
?
5 y? y~ y? ?c ?
?)

??
?

i pu???*??int????Dz
?7H
?s?_?[?fmt5?|?v?apB?????GH?
U?
U
T???
Q?
T
R?
Q?
?|B? z? ?25?)?
??<h@
[ ??


?C
QC
?o
`C
?C(
!C0
?C8
? ?@
? ?H
? ?PbufCX
? *`
?!9h
!9pfd"cx
?#c|
e$<?
?%c?
?&j?lbf'c?
J(?off)C?
V*??
.+?
?,C?
? -C?
D-C?
o.9?
?.9?
?0/??5 ? ~ ? c ?) 
??
iN 9H
?H cc9intcT *?9C*t *?9?*O? C?9Cc???* -c*? {cM>RW& M?
?
c?HK
??s"R̍ƍfmt:R??apGW??f
N??~H-
U??~
T?
T
Q?
Q?
*GH}
?f!9$??buf3CF?@?len?*j?b?src?????k *????end?ˎɎ}H ?
U~
T
0
Qs?H?
U}
Qs?
\~B ?E?int
?)
?

?
? aam?
iyh

? r?~r ?
aH
?s
h??HF
U?
U
T
0?

 B0 ??? int?2=?)?
?
?
[`*t
t
ty?  ?
?
1
1
?
? ?*?
t
t
??
H
?`
????nel1*?&?? +1E?A?cmp9Ob?\?'Hz
U?
U
T?
T
Q?
Q
R H
X?
R?
*H
?v1$t??~?v24t????cmp>?????H?
Q
U?
U
T?
T?
?BF ?%?int*?2A?)?
?
??Hh@
n ??

?

?
Q
?0
`
?(
!0
?8
? N@
? qH
? ?PbufX
? 6`
?!h
!pfd"*x
?#*|
e$H?
?%*?
?&1?lbf'*?
J(?
?off)V?
V*??
.+?
?
?,?
? -V?
D-V?
o.?
?.?
?0/???)
??
ia
?*0!6N656ll6SV?V*v?
??? ??**d?  ?V ! ??H
?Fs*Kߏۏp=U?????H+
U?
U
T?
T
Q
2?
F? P ? ?H
??s$K??p7U0?,? ?H+
U?
U
T?
T
Q
1 !$?H
?$s#KK?G?p6Uf?b? ?H+
U?
U
T?
T
Q
0&)?
?'Ho
?s'F??}?p1P????!
8*ǐ??f
a??}y???cntV???ZH??
U??}
T
0 jH?
U??}
T|
Q
1-

??? o ???26
?)?76
?


?
?int

?e
?
?) 
#
H?
?#
src%
"??c#^E?A?n-*f?Z?s +
???? H(
16?w
Αʑ?k *??*
l?
7?!? 4Ѣ?26?)!
?HD
??
vl???
vr(?&?"?
n3*C?=?l?^?\?r?m?k?int? ?
? ??
ς? ? K|??26?)?"!WW
\
raW
? ahm?6*?
m }&
WDH'
??
\????src
8r???? UHw?
UsaH=
Tv?
??? ? b??
?) LL]bQ

?QX int *
LkH
?s]גӒc!b???r
L??sH1
U?
U
Ts?

D? ? ? yn??26
?)?76
?


?
?int

?
?
?)?6*? ??

??
?
?s?c&^H(
06?w??k *???H?
??7?+??m?c???????Ó????H?H
?ԓГ??? ? ??Hz
Us?
:?? ? ???
?)
t` H>
?tl{??r'{E?=?int?

???
??? ? ?I?
?)#LLLbVL

?V]b ?"
L? H
? ?
Q????src
8g????? H1
Us
T?
T_

Q? ?  ??? int?2=?)?
?
rr
t
~
1r?y ?(r?
1?61?
??
???
]
? H<
?]
s
?ҔƔl 1??d]
0?,?? H?/

Us? H?G

Uv? HR
T?
U??
2?? ?G??26
?)?76
?


?
?int

?
?
?)?
* Hm
?? s
?V?P?a?q?o?H(
06?w???~???

???
Ç? 1???26
?)
?? Hw
??_l????? _r
)?
Tn4*????l????r&?7?/? int?

???

???
g?? FȨ?26?) #]]
]
s
*g]
? gns#
]? H
?dbx?r?s6x????n@*????H=
Us
T?
T
Q?
Q?
?? [9??26?)]]
_
e
* d int?
*H-
??s?ٖӖn&*???? p
? ??H=
Uv
T
0
Qs?
???
ۉ? p2ĩ?26
?) #0*XXXd

? ] (#
?2H
??sX??9?b*X\?X?;H=
Us
T?
T]?
}?? ?IN??26
?)8#
*`H?
??s????c*?????a
?ӗї0#
??P?

? ? *6?
#?? ?qa? ?25?)?

??int
?X %~o? ???)???Q*?!Q???**-???Q?
????#
??`HF

?M h??
?? n?)?\?N?\?H
?H9??
i????r{?????͘ɘ'HH[??
5??>G ??Q???_H_H@?* :?2? `?\?vH??HM
T?
TN#
!?@H 
?? h!1?~?t? n!I?????
z#?ݙՙ
l$ *???
ip$*??-?
jp$*????
k$*??
p$*ޛ̛
ms$*,?*?p0$*
mem$"*N?
,?B?????25?)?UG?
?#? [int[??
??<
q?bG W
"???0 ?cat?
???75
??
????) ?


)??
$
dtv ?
?



??
??(tid#[0
?$[4
?%b8
1%&b<
^'?@
?'(?A w(? )?
?*DH
3+ *P
,NX
?- *`
l. *h
/Np
L0?xtsd1 I?
?6?
?7[?
C8b?
?09??
?:^?
?;??
?<N???<??__f? ?__x?N
???N???
i??5 ?2?
?3?off4G
V5???Nb^5N?#[~P~g
??H?
?(?#
??ܜ i [???ts
g?` r5??(!H?
?5?Hc
U
0
T?`?
? tp??
?B
???int
?)
?

?
?#*ff**l

?$
*gH
? ?#
f6?2? pHF
U?
U
T
0
Q
0u
w?B???26?)?
intD?)\ ?0 w cat?
???
i??6?? ? %0

?] len *;+*'(* ? *(? ?h?
rww
?wh?
?D? ?
i
? *?* V*(^ *0?_8
??
*!?%

???6#H=
?El6E
U ?*H
*H
:9
?[?Y?
?l?h?V:H
:H%
;
`????
k????
w???? 4:H:H??
AƝĝ
Kם՝
V??
a????l??4UHUH ?
A??
K'?%?
V6?4?
a6?4?lK?pH?
?)lE
UhDH?D?$Dl?\?"?H*i
P?valD??????H
?H

?????
?????
?ܞڞ#??val0D??)H
?
,U
3???
>? ?
J ???H??
?9?7?
?J?H?
?Y?W?
j?h?
y?w?????(
Z?HH?
?????
?????
?????
ȟƟ
????(
Z??H?H
0
?ן՟
???
??
? ?{H
{H
?
?&?$?
?7?3?
?S?Q???H?H
$
?g?e?
?x?t?$?Vv+?/Wval?9D??BDV??v+?*Wcnt?4D??=D$$D?p-Ev4D.D?p'Et.Ds5D?"=4n"&=a1".=a2"7=a3"@=a4"I=ret$6r10%=$=n&=a1.=a27=a3@=ret6?
?? B3N2??)?
int?)
???
i
?U 1
?? q
1zH
?U

nr#i????
u#i????
v4iؠԠ
wEi??
x#i? ?
y4i)?%?zEi?H
U?
U
T?
T
Q?
Q
R?
R
X?
X
Y?
Y??0$
 1`H
?t
nr iF?@?
u if?b?
v1i~?z?
wBi????
x i????
y1iơ¡zBi?twH8
??ڡ????????0?,? ? ??K?I?8?[?Y??
Z?
X?
Y51n&1a1.1a271a3@1a4I1a5R1a6[1ret7*r1081r891r9:1?

??BMo??
?)
?
int8
?)8[* ?k* [ 8?
? __iKF$?
Fk __ph?p?*8?
?__u?
?r5$?
??

??
? `fW?$?8

?[$~8

 %?83

??H
?k
?H?
U `fW K$ ?H
??
?H

U `fW7
H
??H

U `fW?

֓Bc???
?)?U=
?
intD??v??1q?b=P
?)D?* K?* ?8?
?__i?F$?
F?__ph???*8?
?__u?
??5$?
??

?
?
?

i

?

?
?q$DW
\
f
? W
v a
Y$
D?H
?rw
/W
x?t??H<

U?
U
T
0?
+?B???
?)?U<
?
?#? Nint N?????1q?b<Z
?)N?* U?* ?8?
?__i?F$?
F?__ph???*8?

__u?
??5$?
??

?
?
?

i

?

?
??$N\
\

\
?$?N?
?
NC?
N U ??
?$N?
\
q$
N
?
rw
=a
at
a?
rNt N!?$
N"?$d?$NpN(?
?$F,pF(?
#.N\p'?
t.Ns5N$?
?H?
??
?????
Ƣ?? ?
???
?
%?
?Hg
??
?
?
???? ?
???
&?
?H
?H
6',H?
K=??G.?,?Q=?;??H?H|!N?L?!H
!H?_?]?(?HF
?
Us!Hf

Us
T|
Q
0
Rv?H?

Us?

h? B??C?
?)
?
int8
?)8[* ?k* [ 8?
?__iKF$?
Fk__ph?p?*8?
?__u?
?r5$?
??

?
?
?

i

?

?
??$
81H3
??
rw
2?
|?z?val8????cnt8?????
KHKH
?
???
????
?? ?.8?
p'?
t.8s58 ??
?? B????)?
int8?)8[* ?k* [u8?
? __iKF$?
Fk __ph?v?*8?
?__u?
?x5$?
??
???
i
?
???$
8dHr
??rw
/?
Uval81?+?cnt8N?J? ?$8h?b?new8???? ?8????lH
lH
?

-????
7Ǥä
A????H
?H0

???
???
? ?Q?H???
^;?9?
hL?J?
s[?Y?
~?????????Q?H?H ?
^????
h????
s????
~ϥͥ??V?v+?*pcnt?48??=8.8Lp'Lt.8s58?1n&1a1.1a271a3@1 ret*?

??B?A?
?)?U=
?
intD??v??1q?b=P
?)D?* K?* ?8?
?__i?F$?
F?__ph???*8?
?__u?
??5$?
??

?
?
?

i

?

?
??$DW
\
f
? W
v a
%
D?H
?rw
/W
???H<

U?
U
T
0?

?B 4??
?)
?
int
?) ??]
c?]
+c*s *?]
GFs
?

?
8?H6
?m
how
8??set7r

ToldO|

Qret
8.?*??
?H?H
?
G?E??
W?U??
f?d??
u?s??
?????
?????

Z?m
sw
?"1n&1a1.1a271a3@1a4I1ret$*r10%1?
-?B7 KQ?
?)
?
int
?)

?
?
?

i

?

?
?#%
H
??H?
 H

??
??BW l??
?)?U<
?
?#? Nint??<?????1q?b<

? ?#N?C? `8%
 UHr
?ts
`?` ,H?
U
2
T?`?
S? Bq ?\??) ?U<?
C ?#? Uint??? ??1 q?b<?
??
??
???)>%
E ?SW'  <?*Y%?
C????#
;U?Hy
?Lclk;J????ts;5LզϦr=U???f@e????H
?
c?

?(?&?
?;?7?
?Y?W???h?f??H
Hg
?w?u?
?????
???????H&
Uv
TsDH?>
U ?NH?\UeJLQP%
"U?HO
?dclk"J????ts"5L?ߧp$C??f1e>?8?d?H?H3
uY?W?
q?o?
??????H?K
U ?U
T  ?U?H
U?
U
T?
T H%C?p,?t5Cs>C?!"s<n&<a1.<a27<#ret*?
R?B? ??
?)?U=
?
int

?c%
?UH
??t1
1????t0
#1
T
i?

͠B? ?K??) ?UB1?
inttm8(?
?%)I
?%*I
?%+I
?%,I
l%-I
?%.I
?%/I
?%0I
?%1I
?%2B(
s%3?0?
???% 



P
=
}%

bH
?t
!
֨Ҩtm
P ?fWnH?
U?
U
T ?fW
?? B? ????) ?UB1?
inttm8(?
?%)I
?%*I
?%+I
?%,I
l%-I
?%.I
?%/I
?%0I
?%1I
?%2B(
s%3?0?
?? ????%?? 
I?%I:
:
A
?
PA
?%
A

n
t.s
tmEF
=n
K
nH>
?\
????d
??K
?H?H
?
\
??=?d
Q?O??H
zH

Ts?

?B? ????) ?UB1?
inttm8(?
?%)I
?%*I
?%+I
?%,I
l%-I
?%.I
?%/I
?%0I
?%1I
?%2B(
s%3?0?
???%



P
=
?%

?H
?t
$
n?j?tm
P ?fW?H?
U?
U
T ?fW
٣ B? ??)?UB1?
int tm8(?
?%)I
?%*I
?%+I
?%,I
l%-I
?%.I
?%/I
?%0I
?%1I
?%2B(
s%3?0?
???%I


?
P
& I

II
N
N
S
IB?? I
?%

?Hn
??
t1????tmH
???? ?H
?

T
0
Qs 
Rs(
X
0
Ys0 H??

TsHX
=?
?
? B? '???)?U=?
int tm8(??%)D?%*D?%+D?%,Dl%-D?%.D?%/D?%0D?%1D ?%2=(s%3?0K?
??? ?D?%D

$
?
K& T

D?T
T
Y
=?&
s
s
?&
1&H?
?tm
$
?? newK?? opp=??~t

???

?H<H^



UvnH)
8

Us

T
1

Q|

R}

X~

Y??~?H)
g

Us

T
0

Q|

R}

X~?H


T?H?C

? B????)?U<?
?#? N int??{??1q?b<U
?'  <?
*(&N?
C
N
?
?{U 0&
N H"
?req&?P?J?rem?tmp ?
y?q?ret=????6?????
?$H
?$H
 r
?
ٻ׻?
???
?
?????$H~%Hc?

Us&%H?3%H?W?
6
s=n&=a1.=a27=ret6?
??B?}??
?)
?
E? Dint
?)

?5'
8G%H
???G%HG%H
 ????%?#? <'1 n&1ret*?

G?B????25
?)?AG
?
int
?)f\

? f
?'  G?5 ?
 <O%H<
?w
?'|
B?>?buf
?0
?'??4
?'@?6
?(A?8
?'B?:
?(C?<
-(D?>?(E?$8L ,j(M?b(N? O ??(P??(Q??'R? ?(S?(%(T?0?'U?
?269W
"W\?0 vcat??
??)?
$?dtv ?
??
?
?*
?*(tid#W0
?$W4
?%^8
1%&^<
^'j@
?'(jAw(c)c
?*?H
3+ 9P
,X
?- 9`
l. 9h
/p
L0nxtsd1
?
?6??
?7W?
C8^?
?09J?
?:?
?;%?
?<? %&
?<?^__f? i__x?
?n'i^*?
i??6?(??%0?
?
?len 9
;+9
'(9
? 9(??h?
r


?
hK
?W
? ?
i?
? 9
?9
V9(
^ 90
?\89?%?292?
?3off4=
V5*c^6 )?FB?')
?(?'k'?^?'??*B
 ?hW+?(P

?c
pt
?
?
!???6l?6?("? `gW?'%?  gW?(
N?
?'
O,E,
8(
R! =B9G=-q(?W^.?(
T ?&H?

?? auxT%???z? pV????? nW 9νȽ eW9???(X? ???(X? ???Y 9.?*? memZE?C?/?&H7?(] ? T?R?} (H
(H??? c?a?? s?q?? ????? ????? ????? ????? s?q? ? ľ¾?
Z?
X?
Y0C H(H?
?? T վѾ1? ^ ?? i ??a(H
a(Hj ??*?(? )B?@?M(HH
Us2t ?(H
?(H
? 2(H? ??3W(
'R&H
?C mem'!?W?O? td)vy?u? p*????? i+ 9???? dtv, ????? ?&H4(
W
t p
td
vr
W5?j!5=n5&=a15.=a257=a35@=a45I=a55R=a65[=ret76r108=r89=r9:=!?=6n&=a1.=ret 66C ?%H?
?T Կ̿ ^ ???? i #??&H
&H?9?7?J?H? )b?`??%HH
Us

?B36?int?)?
?
?
?(H
??ec
*
U ??(H?(H
?
?}?{?

????
??(H&

?????

????&
?7n&7a1.7 ret 1!
ķ#? D???di?
?)
??$int%T T
? e??? x?)M???2???8&h@
?' ?>??dQd?x`d ?d(!d0?d8? ?@? ?H? ?PbufdX? ?`?!Nh!Npfd"Tx?#T|e$8??%T??&[?lbf'T?J(>?off)??V*??.+>??,d?? -??D-??o.N??.N??0/Z?(
??
?&) _)? eTxN i??Nd? }??N?? l ???N?T ? @?)? *?*O)? ***?)M
*,*T,)? *G**a)K
1a1T*?  xN?+? ? T?)T?N,?
?
*6Ht
?dfN????-!
?
&TL?F?pok0T{?k?.?
?
T????i?
?t?&???
T
]?)?
T
^c?
T????\6H??
t????d?9H
??
?v????~?????B?@??R?P??b?`?????p????U??~?p???????8?0??w?c?????????
??Z? G?5? ????! ?????9H??

Us?9H??

UsF:H??

UsW:H??

Us`;H??

Us?;Ha

Us

T
0S8H?

UsK8H?'

UsX8H??

Use8H?W

Usr8H?o

Us?8H??

Us?8H??

Us?8H??

Us%9H??

Us?9H??

Us/(?H, =

U?
U

Q?
T????2$?V"?

R?
T????2$?V"?

Y?
Q&@Hx6@Ha

Us

T
00?)
:
*
, f#N?*T?)4T?>TpokHTx<
xy=
*o)>
*;)?
*)@
TU)@
T?)@
TrpA
GdcB
Ge2C
GdD
TcE
T #)?*?*H|
?? f?#Nk?[?c?*T?????1TL??kCT??|?aCT}?o?zCT????lrpDGx?h?dcDG????e10EG$??lnzFTo?[? ?)GT???? U)GT??rpHT??q?e2IT???? ~)JTC?A? u)KTo?_?yL*???? \)M*??? ;)N*>??3@)
O ?V4?.H?e h)?TI?E?M? 6)?Ti?e?p10?T???  ?x????!?/H;tmp? x????b  ?x????ztmp? ?+?)??W  ?xH?8?sh?T????!M3H9tmp? x??????t
x???4H??*H??

U|%+H??

U|/+H??

U|",H??

U|?-H

U|

T?????-Hx.Ha,

U|

T
0I.Hxf.Hx?1HGg

a?1???1H,?1HG?

a?1??

Us?1H??2H?

UvB5H??5Hxx? 5???? "? ? `"?
 ?)$G?(H?

?f$ N????pok$'T????c&TC?/?x'T????y(G????neg)T????<)H?I)H??

U}?)H??

U}?)H??

U})*H?

U}6E)T7_c#TO
? ? ]???25?)?
??<h@
[ ??

?

??

Q?

?+
`?

??
(
!?
0
??
8
? I@
? lH
? ?Pbuf?
X
? *`
?!?
h
!?
pfd"x
?#|
e$<?
?%?
?&&?lbf'?
J(?
?off)C?
V*??
.+?
?
?,?
?
? -C?
D-C?
o.?
?
?.?
?
?0/???) 
??
iN
??
int*I?
?
*0*g?
g*NC??
Cq?
??H??
?)
?@H?
?!f
?
??c7?5?cntCH?D??@H?
Us?
t@H:
? f?

U limC
T?
n?? sX0??)?

?8?int
?%~e??x?)M?*(Y)lA(`'M(N*YR? *@6 ?

?(7?
?(8?
?(9?
?':?
?';?
?'< ?
~'= ?(
(>?0
?'??4
?'@?6
?(A?8
?'B?:
?(C?<
-(D?>?(E??
?/?
??)?
Rj*?
R?)?
?E*?
?y?
??*?
?
8L?j(M?b(N? O ??(P??(Q??'R? ?(S?(%(T?0?'U???)???)???*???*???*??*???*???)???a*??*??7*???2*,*
lN
?G?)G ?0 ycat??
i?? *??? %0?
?
?Zlen *
;+*
'(*
? *(? ?h?
rG
G

?G
h?
?K
? ?
i?
? *
?*
V*(
^ *0
?a8*?%?(
?
?'
?Sym
?)
?=*
'KBB Y%
+Z?AHC
??$*Bs?i?e*2B???? i- *???? eh1??? ph2? ??\*3 ?/?-??3*??=?|*<\P?N??*=?
\*>?
Y?*??`?^??)@ ?q?m?!6# pC Z????"??CHF
U?????????????#F$?CH?
U~?CH?
U}???6Y?%s*
K
?&def
?*&K$*8B|*G\'aux
$??G
??B?p??/
?/W
"GL?0 fcat? ?& rint r ?2??)?
?
?)i???
?0
mapz
3 ?
e*?
?(?
??

"
)??
$
dtv V
?



?
?(tid#r0
?$r4
?%y8
1%&y<
^'@
?'(Aw()
?*[H
3+ ?P
,~X
?- ?`
l. ?h
/~p
L0?xtsd1 `?
?6%?
?7r?
C8y?
?09;?
?:u?
?;*?
?<~?? ?6<??__f? ?__x?~
???~??? ?7?
? ?2V
?3?off4?
V5?~yu? e/??6??;
??*? @V6????*? V6????*? VY?'???*C*?DH
???&Cf??1?DH?DH
E?>5?3??DH?
U?
U?&*?CH?
?1?&fN?B?loc
.;???? catr???? idx r???? str!????? ?DH!?
"tp)
??B??t?/
? /?0 Ucat?? 2a?)?)?
int v?
? ?i??a??0?mapQ3 Ue*\?( ?%0R
R
??len U;+U'(U ? U(??hr//
?/h?v? iR
? U?U VU(^ U0?;8
? U?%W
6?
? )?}La <[Q/la?L?*)?} ??#?6?aa ??*? ? Vl ?hW?  8OWv?U? ?U?*880?]?VU *xv'v? 5*?"+?QU?
"??DH?
??cat"-v"??val">_?K?+$? ?hW p%????? new&??????'#?? z'W?Q?buf
(???} l) Us?q? n)U????+5v??????3M U??} mapNQ?????FH]?

U

T:?FH=

U

Q~GH=C

U~"#


Tv

Qs+GHb

U

T??}AGHz

U0cGH?

U~NEH??

U z?UtEH??

U} $ &32$? V"?EH??

U ??U?EHx

UvFHx6

Uv

T ??U#FHxT

Uv

T|GFH?s

U ??UYFH?

U0?FH=

U|

Tv

Qs?/?a?+
 ?DH%
?msg(????lmH?????U0???DH?

Qs
,?"B??V?#int$*?2A?)?
?
?)?7A
???y?
? ?%~? ???VM?A
? ?%?i???& ?? ?42

b?
'V?@pad?

$?
 ?b(?

??

?
mem?

1
?1?]
?]

^]
?]4
7
7
??
A??
A?,"
?#?
$"
?%*
?&' ?
?
7
6A(??)
?*?
r.*
?/V
?0?

?1?

a2 6
?26(
?2260
?3"8
?3%"@
h4?H
5P?6 &?
?7 6P?76pseq8 v?brk9]??
&A/66A/vFA?=6)? ]**I t?Q????6??+.+???66*,O??6-g
??GHc
?? p?Q?7?n6????g?
#??idx *Z?T?? 6????
?????end?????7+ 6???@+ 6;?/?new???x?.?s? 6????<- 6????? ?KH
?
)7? ??? 3?/?? M?I?? ? k?c?6KH
6KH

kJH?
Q
R
1? ?GH
?
?? ????/$IHQG?GH?
?V????? _???? j?? uP?D? ????? ??????GH
?GH
???GH
??_?C????GH
?GH
??GH
?GH
?HH
HH
?HH
HH
?HH
HH
?$HH
$HH
?:HH
:HH
?cHH
cHH
??HH
?HH
??HH
?HH
???HH 
??]?W?? ?HH 
??z??JH
7
 "????+????7 6????IH
IH
?IH
IH
?IH
IH??JH
?JH
??JH
?JH
??JH
?JH
?? 1IHN
 ? ? ??N ? A?;?0?NIH
f??>?6?1??IHvI
?`?^?2v? JH?
? ? s?o?? ????? ????? ? ????3?HH? 
U?
T?IH?( 
U|?IHtn 
Uv
Ts
Q$}|}#?????????
|#?????????
,(
JHb
Us?*? n?)6??*? n?(64i?*5??? p?,?end?>?n?J6 ??*??6g?4?
B?6Bp?|*?p|7B F@
*?!x@
? ?
*!x
?6}
 ? V?A 7?j

Z?B????
?)
?


?
?int

?%~^
?
?)M?*
&)
i?mlseT K+?f ?i?
d ?
F?KHM
?x
??u
?eF????msb F???
)?B??

?)
?


?
?int

?%~^
?
?)M?*
&)
i?mlseTK+?f ?i?
d p
F9LH
? x
??u
?

??B 


?)
?


?
?int

?%~^
?
?)M?*
&)
i?mlseT K+?f ?i?
d ,)
?FLH/
?x#??y2??ux
??`uy
??

??B/) ?


?)
?


?
?int

?%~^
?
?)M?*
&)
i?mlseT K+?f ?i?
d ?
?uLH?
?<
x ?%??e(<
J?B?u
??`ee
Fy?m? ?LH
U?XF?
??BAA [

i
&)S+"*int
?)
?


?
?

?
?
?)M?Ja)
*?LH?
?x*????nCO?9? 
?f*i{u ?????y8????

=?BSY 2

?)
?


?
?int

?%~^
?
?)M?*
&)
i?mlseT K+?f ?i?
d ?)
??MH?
?x!?????n(FS?=?u
??`u
??Bfq 

&)
iint?)
 rNH
?rx
r????
d?
Y?B?? k

&)
iintO)
 ?NH
??x
?????y
.??\+
?????
d
??
?? B?? ?
?26
?)
?
int
?)

?

?
?

?
?M F
? C ???65 ?? K~ K? ?c ?'  =?6? ?D.+
?$NH?
?-r+???a+'*m?]?{+7*????DD ???ap
 u??i+
?E?A?GGNH
?
 T^?\?\n?l?e}?{?n????w?????? ??????
Z?
XYNH?dNH??NH?
#NH

? ?++=n&=a1.=a27=a3@=a4I=a5R=ret-6r10.=r8/=.

?? B?? ?
? 5 int?2G
?)
?

?

?)?+Q
??+'\?+2\?+Q
?c ?+Y<??*???

???T
5?NH
?s?????wc*?????NH?
U?
U
T?
T
Q
0?
}?B?;!I
?25?)?
E? NintN?)f
??
y~)?
$ydtv e
?y
y
?
?(tid#N0
?$N4
?%U8
1%&U<
^'(@
?'((Aw(!)!
?*jH
3+ *P
,;X
?- *`
l. *h
/;p
L0xtsd1 o?
?64?
?7N?
C8U?
?09??
?:??
?;a?
?<;???]
?]
+5/5?]
G??
i?0 lcatl||5?? ?%0?
?
?;len *
;+*
'(*
? *(??h?
rf
f

?f
h?
?N
? ?
i?
? *
?*
V*(
^ *0
?R8
??*?%???!W
"?R<?
__f? __x?;
?";
??75
?!?#2e
?3?off4<
V5?!;U?5tk'?U???U$'  <?5  ?; ? ?? ??; ? ?%?+
CtOHH
??&ret
C&?$?'set
/??~??OH
+!$?5?3?+!?F?D??OH??
U??~?OH??
U?OH??
Us?OH??
U??~?OH?
Us $ &(?+

!ret
N)*$
 m+?
?NH

?L,x
N
U-?
itp?<?n&<a1.<ret 5<'<?n&<ret5.??NH?
?[?S?/? d????L?NH
? (? ]????0i?NH!
w????1?!??????XOH
! ?????2fOH
U
13?NH??
UXOH??
UrOH?
U?
V?+B??"
? ?6?)E? I,int$I-??]
r.?]
+r????)/?]
GU?0P
 
 Ig=??????I
?I
? 

S!

1

?7
?
?"?,
P$ n
?%n
?&
S'~
I~
?
I?
?(=
?
?2??
?A?
<?6
?
???
?
??)2^Y_I`
m=n=Bo?
qa?r I?s Il?op#t=x?ny I+z?
?z?
v??w?
?{? k??uax|??6?
??
?7?????6 ~h? 
? h?????8? ?
??I???? 
?I?? 6piSj?}???7??o???
?o?c R?gIpgI@gIc??I??}\? ??? ?%?I}%?I?
R? ????Z?^?????I?? ???3?
?'
?i&I

?P6?$&4??6 ?+(????cmd Ifd I, I?+ I? * ??$G
?5? ,?
4p
n
,
??
??fa
$4?
$>??

C??
C??
8
9?
C6?0a_I ?+ZI?CC ??I?I???? ?+?I??I??!? ???? 4 = = II ? 2 ?
.I
?
?)IDI ?+?Ijj
I
78? !???P ,(I? I!??? ?I?I?? o._I?I 9

?I]SH?

?` 'res?!e ??????;??'fa?$4G????$>y?m??
?H??????*H????pid?=:?4?"?j ??Wec?I??Scs?I??S",????S(?-֚TH?SH? 
U
1
T??S?SH?( 
U
0
T??S
Qv?SH?@ 
U|TH?_ 
Us
T@?$(THD? 
U ?OH
T?@
Q A
Rs3TH.;TH{? 
U|TTH.?TH{? 
U|?THo?TH? 
U
2
Tv
Q
0?TH?! 
T
0?TH? 
T??S
Q
4)UH?
Us
T??S
Q
0=` 
{ :??;?+
I?OH?
???+ 
[?U?i"I}?w?ret" I??}sa#???~#,$?????p%I????fa&$4????#'$>??",(???}(?-?+SH#?+??#?!?<'?
 n&?
ret?M

??B?":
?)E? =int ??]
a ?]
+aqqq?)?]
GDP
 ?
=
g1
?x
?x??=
?=
? ?
S!?


q7
??"??
=UH
?J

0J

U
S

??B@?"?
?)E? =int ??]
a ?]
+aqqq?)?]
GDP
 ?
=
g1
?x
?x??=
?=
? ?
S!?


q7
??"?!
=UH
?P

-P
????
p

??Bc?"

?) *E? B int??]
f?]
+fvvv
?) ?]
GIP
 ? Bg6?}?}??B
?B
? ?
S!?


v7

??"??
BUH
?f
1f

U=l

T$,
1?

?n

?? B??"?
?)E? = int??]
a?]
+aqqq?) ?]
GDxP
 ?
=
g1
?x
?x??=
?=
? ?
S!?


q7
??"?y
=.UHJ
?]

?b

Udef
^l

T
]
?g
j

?? B?# 
?)E? =int??]
a ?]
+aqqq?)?]
GDxP
 ?
=
g1
?x
?x??=
?=
? ?
S!?


q7
??"??
=xUHb
?Y
<^

U?[h

T
Y
? c
+
??B?.#?
?)?U:?
?&Z:
'?q??0'?-@?& ?'J?&Jq '  :?* '
?
?UH
??
.,
?
????new;?
? ?old[?
,?(?W

is
0
vs
(0
ius
:
vus
(:4,
?

r
?
?
?UH#
 ?
?
E?C?Z?T?????????#!?????UH?int ? ?
q ?
:?
*:n&:a1.:a27:a3@:
ret*?
J?B?E#$

?)
?
int
?)??]
c?]
+c*s* ?]
GF s
?

??+
8?UH
??set!?
Usig*8
Ts
????? ?

?B?#?
?U5?
? ?G?)W?Y?)??5?Y??Y??5h?5 ??
??*
q?b5<?GQ?G
/??

?v
?k
_ N
? <
? ?
?
?G$
? v(
y`0
??8
??@
??H
??X
??h
??
x 5?
Yint?
?
?? w,?
?
?v
?k
_ N
? <
??
?
? G$
? v(
y`0
??8
? ?@
:,5H
},5P
?,5X
?,5`
G,5h
T,5p
??
xb,?
??G?
??'  5 Y?,
??
VH?

??fd??
??????,?i?Q?st?H??????P?
???ret
??
?VH\#????q????i?c?(????\#3??? ???~?8VH
8VH R E?J?H??Z?X??i?g??x?v??NVHNVHS?????????????????????jcVH
cVHT {????????????????????????? ?
ZK{VH)? L??~??VH
?VHY??&?$??6?4??E?C??V?T??VH?
Uv
T?
U??VH
?VH f ?e?c??w?s???????????j?VHw#h |{????????????????????????w#? ?? ?
Z??WH
?WH
b ????+?'??A????P?N? xWH?????o,
L?

Zfd
L?
?L7?st
LS?L[?
ret
N?
kst
O?
!buf
V Z ?jY?"5?n"&5a1".5a2"75a3"@5a4"I5ret$Yr10%5"s5n&5a1.5a275retY}
??B*?#?
?25?)?
??<h@
[ ??

?

?"
Q"
?N
`"
?"(
!"0
?"8
? l@
? ?H
? ?P buf"X
? *`
?!h
!p fd"Bx
?#B|
e$<?
?%B?
?&I? lbf'B?
J(
? off)C?
V*??
.+
?
?,"?
? -C?
D-C?
o.?
?.?
?0/???)
??
iN'
?'BBintB3*l"*S*??*.qC?CB??0 ? cat??,i
 ?,! ?,) ?,1 ?,<??//59?4%0?
?
?
 len *
;+*
'(*
? *(>?hG
r


?
hN
?B
? S
i?
? *
?*
V*(
^ *0
??8
?G*?%??,Tz?=B??<C?CB?:*??*?9*?"*B

B*?(
&*? 2B*-?RRB  1
?WH?

?!fd
Bq?i?"?
$R????#f
????$wsz
??X%YH3?&
"B????K YH?#"=X????a ??k???#u(?&?'YH
?#
$7?5?"H?F?,W?U?6g?e??#@ XH
?#?????"????,????6?????#@eXH?#.K????"????,?
?6???#@/?-? ?WH7j
U ??U ?WH?
U ? ?WH??
Us
T
0
Q? XH7?
Uv
T+ XH7?
Uv
Te ?XHd?
Us(?XH&)<Kn&<a1.<a27<a3@<ret5*s<n&<a1.<a27<ret5

j?B??#
?)?
int??)*-hhy8m
? mt @
87YH?
??
yP?H?
8|?r?OYHM?

Uv

T+aYHM


Uv

Tx {YHM

Uv

Te? 
#?BXb$?
?25?)?
??<h@
Z ??

?

?
Q
?M
`
?(
!0
?8
? k@
? ?H
? ?PbufX
? *`
?!h
!pfd"Ax
?#A|
e$<?
?%A?
?&H?lbf'A?
J(?off)C?
V*??
.+?
?,?
? -C?
D-C?
o.?
?.?
?0/???)
??
iN!
?! ! AAint A2 *k*R *??*(p C?CA??0 ?cat???
??)?j
$?dtv :
??
?
??
??(tid#A0
?$A4
?%H8
1%&H<
^'-@
?'(-Aw(!)!
?*H
3+ *P
,X
?- *`
l. *h
/p
L0?xtsd1 ??
?6 ?
?7A?
C8H?
?09u?
?:T?
?;??
?<?t jW
"?< ε__f ? ?__x ?
 ?? ??????5?!??
??75?"2:
?3ooff4<
V5o?HT5 D#{
cZH@
??f????? oZHB$
?? ????? ????$l |ZH
R$
v

? %
!
? A
;
n |ZH|ZH?_{ a
_
? r
p
? ?

? ?
?
? ?
?
n ?ZH?ZH ?{ ?
?
? ?
?
? ?
?
? ?
?
? %?
A?YH?
?? f?
?
&?,
A'



'tid
A^

\

? ?YH?YH
J? m

k

? ?YH?YH
?? |

z

? ?

?

 ?

?

? ZH
$
?? ?

?

? ?

?

( ? ;ZH
"$
?I ?

?

T ?

?

` 

 >ZH2$?? $
"
) 5
3
4 D
B
? U
S
J d
b
)2$U t
r
a
Z QZHQZH ? ?
?
) ?
?
4 ?
?
? ?
?
J ?
?
U a
Z? ZHZH
? ?
?
? ?
?
 ?
?
$?l v+?/jval?9A??BAV?? v+?*jcnt?4A??=A*?
?? tp?]A? p(? v/AH.A p'? t.As5A?"<n n"&<a1".<a2"7<a3"@<a4"I< ret$5 r10%<+<n&<a1.<a27<a3@< ret5&
?? Bo?$
?25?)?
??<h@
[ ??

?

??

Q?

?+
`?

??
(
!?
0
??
8
? I@
? lH
? ?Pbuf?
X
? *`
?!?
h
!?
pfd"x
?#|
e$<?
?%?
?&&?lbf'?
J(?
?off)C?
V*??
.+?
?
?,?
?
? -C?
D-C?
o.?
?
?.?
?
?0/???) 
??
iN
??
int*I?
?
*0*g?
g*NC??
Cq?
??$@??
w
?ZHo
? f?
$

_cH
@
c
?o?ZH?
[H
Us
T?o
Q
1?
?? B??$?
?25?)?
??<h@
[ ??

?

??

Q?

?+
`?

??
(
!?
0
??
8
? I@
? lH
? ?Pbuf?
X
? *`
?!?
h
!?
pfd"x
?#|
e$<?
?%?
?&&?lbf'?
J(?
?off)C?
V*??
.+?
?
?,?
?
? -C?
D-C?
o.?
?
?.?
?
?0/???) 
??
iN
??
int*I?
?
*0*g?
g*NC??
Cq?
??'  <?5?
[H#
?Ff
?
|
x
v![H?$
/??
?
??
?
?$??
?
![H3[H??
[H
?vfd

U?< n&< a1.<ret 5?
q?B??$?
?25?) ?AG?
??Gh@
f ??

?

? 
Q 
?6
` 
? (
! 0
? 8
? T@
? wH
? ?Pbuf X
? *`
?!h
!pfd"*x
?#*|
e$G?
?%*?
?&1?lbf'*?
J(?
?off)N?
V*??
.+?
?
?, ?
? -N?
D-N?
o.?
?.?
?0/???)
??
iY
?**int**T *;*rr*YN?N*|?
???,c
??,?
?,'*'  G?5?
*8[H?
?@ f?
?
buf- 

len9*D
:
iov
@?@cnt
<w
o
Px[H?$
?]?
?
e?
?
n?
?
w?
?
?$??
?
P?[H?[H
%]?
?
e

n)
'
w8
6
?G
E
?[H? ?[H??P5
Gn&Ga1.Ga27Ga3@G!ret5,
X? B??$
?25?)?
??<h@
[ ??

?

??

Q?

?+
`?

??
(
!?
0
??
8
? I@
? lH
? ?Pbuf?
X
? *`
?!?
h
!?
pfd"x
?#|
e$<?
?%?
?&&?lbf'?
J(?
?off)C?
V*??
.+?
?
?,?
?
? -C?
D-C?
o.?
?
?.?
?
?0/???) 
??
iN
??
int*I?
?
*0*g?
g*NC??
Cq?
??
-C?C?
C\H
?f?
d
`
off#C
{
?
,?
?
\H?
T?
T
Q?
QU
?? B?"%q
?25?) ?AG?
??Gh@
f ??

?

? 
Q 
?6
` 
? (
! 0
? 8
? T@
? wH
? ?Pbuf X
? *`
?!h
!pfd"*x
?#*|
e$G?
?%*?
?&1?lbf'*?
J(?
?off)N?
V*??
.+?
?
?, ?
? -N?
D-N?
o.?
?.?
?0/???)
??
iY
?**int**T *;*rr*YN?N*|?
???,c
??,?
?,'*'  G?5?
*\H?
? f?
?
buf4r?
?
len@*

-
??iov *
"
rem *S
O
 -
*r
h
cnt <?
?
?\H%
 ?(?
?
0?
?
9

B

%K*
(
?\H??5
? Gn&Ga1.Ga27Ga3@G!ret5$
e? B?J%?
?25?)?
??<h@
[ ??

?

??

Q?

?+
`?

??
(
!?
0
??
8
? I@
? lH
? ?Pbuf?
X
? *`
?!?
h
!?
pfd"x
?#|
e$<?
?%?
?&&?lbf'?
J(?
?off)C?
V*??
.+?
?
?,?
?
? -C?
D-C?
o.?
?
?.?
?
?0/???)
??
iN
??
int*I?
?
*0*g?
g*NC??
Cq?
???,i
??,!??,)??,1??,?H ?(?hA B ???5A ?)5???  ??? ??5?? ?65??'?
85@_HV
?Bf8??
?
fmt84C#

ap8AB?
e
? :5
?
;+;5?
?
?<5^
2
(?
=5p>5?
!
c?5K
#
t? 5
?
s@]?
?
wcsA42
&
stB???} ?C??
h
?-D5

^-E5]
G
xF??
?
yG??
?
posH?+

)?-
IG??}iJ A?
^
kJA7

wcK *??} M5?
?
q-G

?bHf-I

?bH|-E

?bH?-F

?bH?-'
7kH*ZhH5=tmp?4?
?
{hH?

U??}

T??}2$+?%z,tmp

]?
?
ziH?

U??|

T??} ??_H?_HV?
?
?
??`H?`HW?


??`H?`HY
'
%
?XaHXaHbF
6
4
??dH?dH?y
E
C
-?-eH
?%
???X
R
?~
x
??
?
.?.mH
?%
+
???
?
??
?
?8
.
z_H??_H??_H?5

U

T
0Z`H?M

U?`H?j

U

T
0aH??

U*aH??

U{aH??

U?aHX?

Us?bHt?

U??|?bHt?

U??} dH?

U

T??}?dH?;

U

T
0?eH?S

U?eH?k

U#fHh?

U??}

T ?

Q

?fHh?

U??}

T??}?

Q

hH?

U??}

T??}

Q
1

R|?hHR

U??}2$?hH?

U?hH?2

U|iHRL

U??}?iH?d

U?iH?|

U?jH??

UMkH??

U

T
@

Q
0

R ?lH??

U

T??|?

Q
0?lHb?

UmH?

U

Q
0

R ?|mH?

U

T
0

Q
0

R ???X/L
0?-
,??^H?
??ap,Ba
]
n,-?}
y
p.?
Pi/??
?
ap20 a?X1?-

???;+'5i
@?2E)5_c#5?
??Bx'?/
?)?

??int
???)M?*?2*?
?
#??F? ? ? ???? ?? ? ? n!?
?qH?
??????
?
nel?#n?
?
? ?/n

cmp?=?8
4
arg?H?S
O
lp? ???yi? nl
j
;+?n?
z
????
?
?-??X
R
p? ??
?
?-?F?
?
?-?F2
,
l ?qH
_&?v O
K
? q
i
l urH
|&?Ov ?
?
? ?
?
M ?rH
?&??W ?
?
a ?
?
l qsH
?&??v ?
?
? ?
?
M qsH ?&??W ?
?
a 

l ?sH
?&?v 

? /
-
PtH
tH??a?
=
kT
N
vtH?&& ??s
m
"?tH?&&
*??
?
vtHtH??
?
?tHtH??
?
M tH?&?/W ?
?
a ?
?
?qH?n

U??y

T~

Q??y

R??y

X??y?

Y _rH??

U??y

T~

Q??y

R??y

X??y

Y??y? ?rH??

U??y

T~

Q??y

R??y

X??y?

Y %sH?/

U??y

T~

Q??y

R??y

X??y

Y??y? ?sH?e

T~

Q??y

R??y

X??y

Yv
?sH?

U|

T~

Q??y

R??y

X??y

Yvn?*_Mn?*
.w?nH
???w$?3
!
? w1n?

cmpw???
?
argwJ??
?
ppwV??
?
?-waF?
?
?-wmF+
!
#lp
w|??.y?]
Y
rtz?t
r
lfz??
?
p{ ??
?
ar|???xi}F[
G
?-~F?
?
M PpH3&?W ?
?
a 

P/pHO&? a;
9
$O&kS
M
v/pH/pH& ??p
l
?/pH/pH??
?
v9pH9pH ??
?
?9pH9pH ??
?
?oH??w6

Us

T??x

Q??wpH??wb

U}??x"

Ts

Q??wpH??w?

U~

Ts

Q??w ?pH? ?

U~

Q??x?%?pH?

T??x

Q??w

R??w

Y??xn??*p.\nH?
?M ?\!??
?
? \.n?
?
cmp\a*
]*
zH
?

U?

Tv

Q| $0.?7$

R~

X}

Y
0zzH


U?

Tv

Q
0

R~

X}

Y
0?yHO


U?
Q

T}R.
P
v+
'? op1P val9P toUq r
P?
??B|?

?)
?
int
?)

?
?
?

i

?

?
??'?3?.?3k ?SWu ?SW

(?B%A(??

?) ?U<
?
?#? NintN?????1q?b<Z
?)N?* U?* ?8?
?__i?F$?
F?__ph???*8?

__u?
??5$?
??

?
?
?

i

?

?
??.N\
\

\
?$?N?
?
NC?
N U ??
?.?N?
\
?$
N
?
rw
=a
at
a?
rNt N!?$
N"?$d?$NpN(?
?$F,pF(?
#.N\p'?
t.Ns5N$?
?zH{
??
?*
?*
?
?*
?*
?
?*
?*
?
?
%?
{HW
??
?
?
?*
?*
?
?*
?*
?
&?
{H
{H
6C{H
C{H;!?*
?*
,G{HG{H?=+
+
G+
+
Q,+
*+
`{H
`{H?;+
9+
'0{HF
?
Us`{Hf

Us
Q
0
Rv{H?

Us?

O
BMX(A

?)
?
int8
?)8[* ?k* [8?
?__iK F$?
Fk__ph?p?*8?
?__u?
?r5$?
??

?
?
?

i

?

?
??.
8r{H
?~
rw
2~

U?
r{Hr{H
?
X+
V+
?
i+
e+
?
?+
?+
?.8?
p'?
t.8s58??
x

Bso(yA
?24?)?
intB?
Z_)??

$Zdtv 
?Z
Z
??
??(tid#B0
?$B4
?%I8
1%&I<
^'?@
?'(?A w(? )?
?*H
3+ *P
,?
X
?- *`
l. *h
/?
p
L0rxtsd1 ?
?6??
?7B?
C8I?
?09?
?
?:?
?;)?
?<?
??)?
?
W
"?0 "cat?
?"<?b__f? m__x??

?rm?
b.??
i ??4???
??74
???2
?3?
off4;
V5?
???
I4m.
B?{H%
??new"B
Uold,?
T$
Z?+
?+
??{H
?{H
??+
?+
B?
?tp?$
?

8B
?{H?.?
(
?$


?B
?{H9?.?
(
?

B??(?B
?25?)? ?G?)??Y?
int??UYW?5?5??5??Yh?Y ???
??n
q?bY<?GQ?G
/??

??
??
_ y
? <
? ?
?
?G$
? ?(
yN0
??8
??@
??H
??X
??h
??
xY?
5 ? ?
?
?
*```N ?.``? '  Y45?*
??{H?
???.-??+
?+
;+???+
?+
st
???~map ?,
,
fd `G,
A,
??{H?( 
?b,
`,
?t,
p,
??,
?,
?(??,
?,
?\|H
?(?
?,
?,
 ?,
?,
?(|H*|H?
k
Us
T??~M|H?

U
0
Q
1
R
1
Xs
Y
0?
???
??*sY?n&Ya1.Ya27Yret5?Yn&Ya1.Yret 5P
?
B??(#D
?)?
int tm8(??%)8?%*8?%+8?%,8l%-8?%.8?%/8?%08?%18 ?%21(s%3?0?
?? ?%
8?|H?
?2t2-

-
tm*9G-
?-

&/ 2r-
j-

?/ 2?-
?-

A/ 2?-
?-

#/8?-
?-

/8R.
F.

>/8?.
?.

4/8?.
?.

5/8?.
?.

+/8/
?.

/8H/
?

?
B??(?F
?)?
inttm8(?
?%)8
?%*8
?%+8
?%,8
l%-8
?%.8
?%/8
?%08
?%18
?%21(
s%3?0??
??V/8
88G/


!
?
8 &

JH?
??
tm
)?
0
0
c&
8?\?%
60
20
?08V0
L0
t
?0
?0
?(?
adj 8?0
?0
?H
?

T?\?H?
Uv?[
?
4Bu*?G
?25 ?) ?
5$C6intJ J?0 s%cat?
7tm8(
?%)J?%*J?%+J?%,Jl%-J?%.J?%/J?%0J?%1J ?%2<(s%3
0 s

? 
5
5
5

]0t%
0{Ju/| <
i
8 ^
?%i
?75
??
?jJNo<
? ?
???
?)M?5 ?
i?
?
59?
%0dd?C%len *;+*'(* ? *(?hr


?
h?
?J? id? *?* V*(^ *0?[8*?%iQ "p#'s/< ?iW0J ?iW[0%
?iW R
 F
 :

?5?/ ? iW?/ ? xiW
?5 ?:n

? vVf/J tiWJ5r0 `iWr1 @iWzi L 0iW?
U0 "L (iWG *L  iW#0 2L iW?/ :L iW=0 DL iW3!* iW
?5 0# ? ?hW?/$5
?SW?/%* ?SWQ.5?'. ?hW;,
( HOW V/JuJJ !J???*?$?< *-5
?
J ?*L?
 C?E?* ? C* ?6*"
J=C* 'JX

 55
n
G/?
??
?J&??"&??"=?&
?

??H?
?0'tm?
-0?0
?0
p?
??0
?0
ŽH?

UvɎHZ?H?

Uv
>?/
?
??H
????H?l

Us??HZ(??H?

U ?hW?&
m
??H?
?A 'tm
?
*1
1
~/m
&J?1
|1
?%m
2??1
?1
? m
?A ?1
?1
I0m
MA ?1
?1
40m
bF 2
?1
)std?
+?Hy?
?
2
2
t0?
?
42
02
t1?
?
L2
H2
)dst?
?H?HTu altt
*h2
`2
it
*@??H
*
t
??2
?2
??2
?2
??2
?2
*3
?2
 ?3
r3
i4
]4
#?4
?4
-?4
?4
75
5
*AF*B45
.5
*Lb*MZ5
P5
ЊH??

U ?hW׊HZ?Hn?

U~

T
0??Hn?

U~

T
0??HK

U `iW

T}??HK %

U @iW

T}(??H?

U ?hW<
A?/
N
?
?H*

???/N
*??5
?5
?%N
4J?5
?5
Bc&
P
J??tQ
?
?5
?5
xR
J 6
6
mR
J%6
#6
nR
J96
36
dR
JW6
U6
n?H?+?%\
Jf6
d6
+&/]
J?6
?6
C??H?)
_
j???6
?6
??HZ

U}$?Hn

U ?
T $ &

T??V, /F
J?!mF
J-c&F
%J,P0
*Z!t
$?
-~/
+J!alt
:Do)

Jx
?
off
Ja
*n
*m
**.j,
*.i-
*E?/
~ @?H`
?Zbuf?Z??}?.?5
?6
?6
try?
7
?6
s?
??}p?
??}map?L>7
.7
i? *?7
?7
?/?{ @V0?J?7
?7
?H^? )0????}?H?U

Uv

TtM?H=z

Uv

T ??U`?H=

Uv

T ??U/*al?*?7
?7
??H?

Us\?H??

Us

T.??H?

U}

Ts

Qv
??H(

U??H?F

Us

QvŇH?

Us

T~/?)?o)?J,8
&8
?Hh?n/?*L8
J8
0??H?)??[8
Y8
?o8
i8
??8
?8
?)??8
?8
F? ?H?"p?L?8
?8
?K?H?)?I??8
?8
???H
?)?p?9
9
0???H
?)?? 9
9
]?HX?

U ??U??H=?

UsلH"?H?

Us%?H?

Ts

Qv
e?H?3

Us

T iW??Hu]

Us

T ??U

Q
4??H"u

Us݅H???H=?

Us

T ??U҆H??

Uz

Ts?H^?

Us?H??

U{

Ts7?H^

Usu?H!8

Us

T `iW??H!

Us

T @iW
kG5

{55 k1?/s*?zs/LvsGLnsQ*"yu *"xv?
1?/n?
?zn0L2?/\`?H?
?!#d\5
=9
99
Hp
\+F
Ti^J`9
R9
2?/F ?H2

?^#pF"F ?9
?9
I?/
F)??9
?9
rHJ?9
?9
3>@)M?K@)T!:
:
>??HP)O?K7:
5:
P)TL:
D:
>??Hf)PKm:
k:
f)T?:
z:
>??H|)QHK?:
?:
|)T?:
?:
M?H^

U?
UJ?/
1J?H

?>#p1 F ?:
?:
neg3J?:
?:
off:J/;
);
>?H
):?KO;
K;
 )Tj;
d;
3>)=K)T?;
?;
K>0)
@K0)T?;
?;
L
*J
p* F "x,?


K
B?*?Z
G/


1?H&

?
?%$
?;
?;
c&/
<
<

7/ 
"<
<

d0 
B<
<<

n0 
d<
^<
rem 
?<
?<
?
%
?t??H;y
?<
?<

n0
?<
?<
?

int$
?
B5?*N\
?)?U=?
?#? Pint??}??1q?b= W
?U =q =????????(&
P

clk!D
*PreqH
rem^
}W?W?Hg
??=
?<
?>=
2=
?x=
l=
??=
?=
???H??H$
?
??=
?=
??=
?=
??=
?=
?>
>
??H?

U#

T?
Q

Q?
R

R
0

X
0

Y
0 ??H?

U?

T ?
U $ &

Q ?
T $ &

R?
Q

X?
R

Y
0?
?
BP+]

?)
?
int
?)

?
?
?1f8?0
??H
?q
86>
2>
ǐHT
U?
Uq

?
Bc/+n]

?)
?
??1int
?)

?'  1o *
-
8ǐH
?7
fd
D]>
Y>
? 8x>
t>
?)D?>
?>
7
ǐH+
)
D
?>
?>
L
?>
?>
U
?>
?>
^
?>
?>
+g
?
?
ܐHY1n&1a1.1a271a3@1ret*R
?
Bv?+^
?)?
int?)
??'  1j*t0'8?? 8,
8ܐH?
??fd
?F?
4?

8??
??
ret
8??
??
 ?H
F+ 6

-??
??

6@
@

@!@
@
F+J?@
=@
??H
V+?

?N@
L@

?a@
]@


?@
@

?@
?@
V+?/?Hf+?

??@
?@

??@
?@


?@
?@

?@
?@
f+?k?H
v+>
??@
?@

? A
A


"A
A

2A
0A
v+???H?+?
?BA
@A

?UA
QA


uA
sA

?A
?A
?+?Hj?
UvE?HjM?HTf?HT
U ?1 n&1a1.1a271a3@1 ret*s1n&1a1.1a271 ret*[

?
B??+?_
?26?)?AI?
int?)
?U I'  I?
6q I?
e
e
e
e
e
e
e ?
 =??H+
?\
fdP?A
?A
buf\
?A
?A

(*?A
?A
??H?N

U
0
T ?
U $ &
Q?
T
R?
Q
X
0
Y
0??Hq ?
?
? ??+0`
/??2??)?
??Fh@
e ??

?

? 
Q 
?5
` 
? (
! 0
? 8
? S@
? vH
? ?Pbuf X
? 4`
?!h
!pfd")x
?#)|
e$F?
?%)?
?&0?lbf')?
J(?
?off)M?
V*??
.+?
?
?, ?
? -M?
D-M?
o.?
?.?
?0/*??)
??
iX
?  ))int) 4S 4: 4qq4X M?M){?
??
?y0
? ?V?  ?M?))?? )?-
???H+
??f$B
B
?
0?
SB
?B
pok:)?B
?B
limR?C
C
valqxC
dC
c)D
?C
neg )vD
fD
x?
?D
?D
y?%E
E
?
X
??H?+#bsG)?E
?E
?H?
Us6?H?
Us ??H?+
$ J!??E
?E
??H?b
UsĒH?z
Us?H??
Usj?H??
Us??H??
Us
T
0??H??
Us
T
0 ??H??H? 
Usc?H?!
Us??H?9
UsՕH?Q
Us?H?i
Us V?H? ??H? ЖH??)"E))#_c#)?
?
? ? ,fe

?
b,
?H?
??buf??E
?E
fd'?F
?E
i?SF
)F
j??F
?F
?

?
?)a
*
B??,Tg
?)?

??int
???k[?)?2*'F? ? ??
??"+
???H?

?; p%;G
G
;+
/rBG

?M
?M
?>>
?M
?M
C
??H?,
 +
P
?M
?M
X
?M
?M
a
N
N
j
N
N
?,s
.N
,N
??H\WK1n&1a1.1a271a3@1ret*?
?
Bc.-?n
?U5?
? ?G?)W?Y?)??5?Y??Y??5h?5??
??*
q?b5<?GQ?G
/??

?v
?k
_ N
? <
? ?
?
?G$
? v(
y`0
??8
??@
??H
??X
??h
??
x 5?
Yint??,?
?
?
?
?
?
?

??
? ?
'  5Y?.
?

Afd?
st"?
??H-
?.ON
GN
7}N
sN
??H-
?.?N
?N
7?N
?N
??H
U ???H?

U?
U
T O?U
Q?
T
R ?
?
BtE-Xo
?25?)?
??<h@
[ ??

?

?
Q
?0
`
?(
!0
?8
? N@
? qH
? ?PbufX
? *`
?!?
h
!?
pfd"$x
?#$|
e$<?
?%$?
?&+?lbf'$?
J(?
?off)C?
V*??
.+?
?
?,?
? -C?
D-C?
o.?
?
?.?
?
?0/???)
??
iN?
 
? $$?
int$*N?
*5*l?
l*SC??
C$v?
?? ?2?
3?
?4?
?0
?
?iW ? ? ??6$??
?U?
?0
?HA
??f
?
?N
?N
?H?(?H?e
Us=?H?I?H?V?H??0
 śHP
?f
?
O
?N
?H?
Us
T
0
Q
0?H?
U?
U
Q
1?H??
?
B?f-Kp
V/

?V?H$
??
?0?
U
c&$?
T?0
?  Vt
?JO
DO
int??? ?? ?)


B??-?p

?)
?
int
?)

?'  1c*t0
8z?H
?? fd
??O
?O
?z?H}-
 ?
?O
?O

P
P
}-
+P
)P
??HM8?1n&1a1.1ret *?

B?>q

?)
?


?
?int

?
?
?`O
?)[rg?0r

?
?

i[? 2? w? `V
?

?q
?-1?
(
?
$>I!I.
?:!
;9!<
4:!
;9I?BI~
%U
 $> .
?:;9I<
.
?:;9'I<

I
 

.
?:;9'
@z
:;9I?BH
}
?

U%
:!
;9I?B
%U
:;9II<.
?:;9'I
@z
H
}
?
I~ $> .
?:;9'I
@z
:!
;!9I?B
%U
:;9II<.
?:;9'I
@z
H
}
?
I~ $> .
?:;9'I
@z:;9I
:!
;9I?B
%U
:;9II<.
?:;9'I<
I$> .
?:;9'I
@z
 H
}
?
I~.
?:;9'I
@z H}

:!
;9I?B
%U
:;9II<.
?:;9'I
@z
H
}
?
I~ $> .
?:;9'I
@z
:!
;! 9I?B
%U
:;9II<.
?:;9'I
@z
H
}
?
I~ $> .
?:;9'I
@z:;9I
:!
;! 9I?B
%U
:;9II<.
?:;9'I
@z
H
}
?
I~ $> .
?:;9'I
@z:;9I
$> :!;9I8 :!;9I85I

I
I
%U
:;9I :;9I 
:;9
$>!I/ !I/.
?:;9'<
.
?:;9'I<
.
?:;9'I
@z
:;9I?B4:;9I?BH}
H
}
I~I
$> :!;9I8II~:!;9I :!;9I85I

I
 .
?:;9'I<
 !I4:!
;9I?B1?B :!;!9I
%U
&I:;9I
:;9
$>!I/!I/.
?:;9'I
@z
:;9I?B
1R
?BUXYW

U41H
}

H
}
.
:;9'I 4:;9I
:;9I8$>1?B:!;!9I

I
!I:!;9I
:;9!
 !I/ :!;9I85I4:!
;9I?B 
%U
:;9I$>!I/.?:;9'I<.
?:;9'I
@z
:;9I?B


1R
?BUXYW

U41?BH}
.
:;9'I 4:;9I
:;9I8$>:!
;9I?B!I4:;9I?<II~1?B :!;9I 
:;9!
4:!
;9I?B:;9I :;9I8

I
!I/H}
4:!
;9I?B&I
'I
H
}

4:!
;9I
1R
?BUX!
YW

U41?B1R
?B
X!
YW4:!;9!I
%U
5I$>' <!.
?:;9'?
<
".
?:;9'<
#.
:;9'I
@z
$H
}
?

%H}
&.
?:;9'I
@z
'H
}
?
(

)*.
:;9'
@|
+.
?:;9'
@z
,:;9I?B-.
:;9'
@z
.:;9I/.:;9'
@z0.:;9 1.
:;9'I 
2.
:;9'I 
:;9I8!I$> :;9I85II
:;9!
I~ :!;9!I :!;9I :!;9!I !
k7I

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

%U
$>5
'
<&I
:;9
4:;9I?.
?:;9'I<
&1R
?B
XYW:;9I?B
1R
?BUXYW

U41?B H
}
!.
:;9I 
"4:;9I#.:;9 
$>II~!I.
?:;9'I<
4:!
;9I?BH
}

%U
 $> :;9I&I4:;9I?< .
?:;9'I
@z:;9I?B



:;9I8!I$> :;9I85I
:;9!
:!;9!I:!;9I :!;9!I !
k

I
!I/
%U
 $>5
'
I<&I
:;9
.
?:;9'I
@z

1R
?B
XYW41?B.
:;9I 4:;9I
:!;9!
I8 :;9I8

I
!I/!I$> :;9I8&I 5I 
:;9!
I:!
;9I?B :!;9!I:!;9I :!;9!I !
k4:!
;9I.
?:!
;9!'I
@z
4:;9I
%U
$>5
'

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

1R
?B
XYW
41?BH
}
?
I~ H}
?
!.
:;9I 
:;9I8!I1?B$>:!;9I :;9I8I5I 
:;9!
 H
}

I~4:;9I

I
!I/
1R
?BUX!
YW!

U41:!;9!I:!;9I :!;9!I !
k
'
.
?:;9! '<
41
%U
$>'5<&I
:;9
 4:;9I?<!.
?:;9'?
<
".
?:;9'I<
#.
?:;9'?

@z
$
1R
?B
XYW
%41?B&1R
?B
XYW'I(H
}
).
:;9I 
*.:;9 +.
:;9'I 
,.
:;9'I 
$>5I
%$>

I
!I/4:;9I?<4G:;9
$>H}
4:!
;!9I?<
%U
$>:;9I'I &I .
?:;9'?
<
I.
?:;9'?

@z
 :;9I?BH
}
I~.
:;9'
@|
4:;9I?BH}
?
.:;9
@z
I$> :!;!I8I~:!;!9I1?B:;9I.
?:!;9'I<
 :!
;!9I?B 
%U
$>:;9I I

I
!I/
:;
.
?:;9'I
@z
4:;9I?B4:;9I?B
U
4:;9I
1R
?B
XYW
141H
}

H}
I&I.
:;9'I  4:;9I
$>
%$>:;9I4:;9I?<4G:;9
:!
;9I8$>!I4:!
;9I?<4G:!;9
:!
;9!
 :!
;9I84:!;9!
I? 
% $>:;9I

I
!I/<&I5I
$!>
%U
.?:;9'I<I$>.
?:;9'I
@z
:;9I?BH}

1?B:!;!9I$!>:!
;!9I?B
%U
.
?:;9'I<
I.
?:;9'I
@z
 
1R
?BUXYW
 
U41?BH}
 $>.
:;9'I 4:;9I
:;9I8!I$> :;9I8
:;9!
5I

I
!I/ :!
;9I?B I~&I:!;9I :!;9!I :!;9!I !
k.
?:!
;9! 'I
@z
H
}
?
:!
;!9I
%U
$>5
'
I
:;9
&
1R
?B
XYW
41?B.
:;9'I
@z
.
:;9I 4:;9I
:!;9I8!I
%U

:;9
&I$>4:;9I.?:;9'I
@z
:;9I8I~$>I!I4:!
;9I?BH
}


:;9!


I
 !I/.
?:;9'I<
H
}
 :;9I85I&I7I4:;9I?<.
?:!;9! '<

U
4:!
;9I
%U
$>:;9I&4:;9I.
?:;9'I
@z:;9I?B:;9I?B4:;9I4:;9I 4:;9I?B!
U"



:;9I8!I$> :;9I8:!
;9I?B
:;9!
5II~

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

%U
$>5
'

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

1R
?B
XYW
41?B.
:;9I 4:;9I
$>II~41?B:!;9!I.
?:;9!'I<
!I:!
;!!9I?B 1?B :!
;!9I4:!
;9I
%U
 $>&I4:;9I?<.?:;9'I<.
?:;9'I
@z
4:;9I?B
1R
?BUXYW

UH
}
H
}

H}
H
}

H
}
?
.
:;9'I
@z
:;9I.
:;9'I 
4:;9I:;9I
$!>
%U
$>.
?:;9'<
I.
?:;9'
@z:;9I?B H
}
?
 I~
I~ :!;9I8$>I1?B!I4:!
;9I?BH
}

 41?B :;9I4:;9I5I :!;9I&I
:!;9!
:!
;9I?B4:!
;!(9I
U
 :!;9I8

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

%U
$> <!4G:;9".
?:;9'I<
#.?:;9'I<$.
?:;9'I
@z
%
1R
?B
XYW
&
1R
?BUXYW
'
U(41)
1R
?B
XYW*H}
+.
:;9'I 
,.
:;9'I 
:;9I81R
?B
XYW1?B:;9I!I4:;9I?B
1R
?BUXYW
41?B 4:;9I $>

I
I~ &I
:;9!
4:!;9I?B:!;9I!I/.
:;9'I 
 :;9I84:;9I.
:;9!' !
4:;9I?< :!
;9!I kI:;9I?B
1H
}

1
 :!
;9I8
1R
?B
XYW 
U!
1R
?BUXYW".:;9! !#5I$!I% :!
;9I8&.
?:!;9! '<
'
U
(H}
)
1R
?B
X!YW
*H
}

+.
:;9'I
@z
,41-:!
;9!#I.:!
;9I/
%U
0$>12<3!4 :;9I k5
:;9
6.
?:;9'I<
7.?:;9'I<8.
?:;9'
@z
9

:


;.
:;9'I 
<.
:;9' 
=.
:;9'I 
41?B1?BI~ :;9I8:;9I4:;9I1R
?B
XYW4:;9I I !I&I

I
 
1R
?BUX!
YW
H
}
.
:;9'I 
!I/
U$>
1R
?BUXYW


1R
?BUXYW:!;9I4:!
;9I?B
1U

:;9!
.
:;9!' !
.:;9! !4:!
;9I?B
1

1R
?B
X!
YW

1R
?B
XYW 4:;9I!:;9I" :;9I8#4:;9I?<$ :!;9!I k%.
?:;9'I<
&:!
;9I?B'
1R
?BUXYW(H}
)1* :!;9I8+U,
1R
?B
X!
YW
-41..
:;9!'I !
/:!;9I05I17I2!I3 :!;9I844G:!
;954:!
;9!I6.
?:!;9! '<
7.
?:!
;9'I
@z
8
1UX!YW!9H
}

:
1U;


%U
?$>@A<B!C :;9I kD
:;9
E4G:;9IF&G.?:;9'I<H :;9
I


J
U
K.
:;9'I
@z
L
1UXYW
M.
?:;9'I 
N.
?:;9'
@z
O:;9I?BP.
:;9I 
Q4:;9IR.
1
@zS41T
1


$!>I:!
;!9I?BI~
%U
$>:;9I.
?:;9'I<
  .
?:;9'I
@zH
}
?

$>4:!
;9!I?<4G:!;9!
%$>
I~IH
}

4:!
;9I?B.
?:;9'I<
$>H}
!I 7I :!;9I:!
;!9I?B4:!
;9!I :!
;9!



I
!I/
%U
$>&I&.?:;9'I<.
?:;9'I
@z
4:;9I?B :;9
U

1R
?BUXYW
1?B
U41?B.
:;9'I :;9I 4:;9I
1?B:;9I$>4:;9I:!
;!9I41:!;9I
1R
?BUX!
YW
 
U 41?BH}

%U
 $>.
?:;9'I<
I.?:;9'I<I.
?:;9'I 
.:;9'
@z.
:;9'I 
.
1
@z41H}
?
H}

$>1?B:!;!9I:!
;!9I?B
%U
:;9I$> .
?:;9'I<
 I.
?:;9'I
@z
:;9I?B 4:;9I?B4:;9I?B
1R
?BUXYW

U41?BH}
.
:;9'I 4:;9I
$>1?B:!;!9I
%U
:;9I.
?:;9'I<
I.
?:;9'I
@z
 :;9I?B :;9I?B
1R
?B
XYW
41?B H}
H}
$>.:;9'
@z.
:;9'I 4:;9I
$>
%U
$>:;9I4:;9I.?:;9'I
@z.
?:;9'
@z:;9I
:;9I8!I4:;9I?<I~4G:!
;9!
$>H
}

 :;9I8 H}
 5I
:;9!
I

I
!I/&I.
?:;9! '<
4:!
;9I?B4:!
;9I?B:!;9I:!;9I :!;9!I !
k4:!
;9I.?:!;9! '<.?:;9'I<


H
}

H}

%U
$>< 
:;9
! :;9I8"5#
'
$
:;9
%.
?:;9'I
@z
&4:;9I'
U
(
1R
?BUXYW
)
U*41?B+H
}
,.:;9'
@z-.
:;9'
@z
.:;9I/.
:;9I 04:;9I
I~ :;9I8IH
}

!I :!;9I.
?:;9'I<
$> 
:;9
 7I:;9I&I

I
!I/
:!;9
4:!
;9I :!;9I84:!
;9IH}

'

%U
$>4:;9I?<
:;9
 :;9I8:;9I
:;9

:;9
'
:;9
 .?:;9'I<!.?:;9'<".
?:;9'I
@z#:;9I?B$4:;9I?B
II~$>:;9I.
?:!;9'I<
:!
;!9I?B
%U
$> .
?:;9'I
@z
 :;9I?BH
}

H}
 I

%

%
1?B$>:!;!"9I.
?:!
;9!'
@z
:!
;9I?B
1R
?B
X!
YW!4141 &I 4:!
;9!I4:!;9!I
%U
 $>

I
!I/.
:;9'I 
$>1?B:!;!9I:!
;!9I?B
%U
:;9I$>.
?:;9'I<
 I .
?:;9'I
@z

1R
?BUXYW

U 41?BH}
.
:;9'I 4:;9I
:;9I8$>!I :;9I85II:!;9I
:;9!


I
 !I/1?B:!;!9I :!;9!I :!;9!I !
k.
?:!;9! '<

1R
?BUX!
Y! W!

U41?BI~4:;9I
%U
$>
:;9
 :;9I85
'
<&I
:;9
.
?:;9'I<
 .
?:;9'I
@z
!:;9I?B"4:;9I#4:;9I?B$H
}

%H}
&H
}
'.
:;9I 
(.
:;9'I 
:;9I8I~1?B :!;9I!II:;9I$> 
:!;9
 :;9I:!
;9I?B

I
 !I/H
}


:!;9

:;9!
5I7I.
?:;9! '<
4:;9I?<4:!
;9I.
:;9!' !

'
&I :!;9I8.
?:;9'I<
.
?:!
;9!'I
@z
4:!
;9I4:!
;9!I?BH
}

1R
?B
X!
YW
 
1R
?BUX!
YW
!
U"41#4:!;9!I$
%U
%$>&
:;9
' :;9I8(:;9I)*
:;9
+',5-<.4G:;9/.?:;9'I<0.
?:;9<
12&3H
}
?

4H}
5
1R
?B
XYW641741?B8.
?:;9'
@z
9H
}
?
:.
:;9'I 
$>!I:!
;!9I?B
%U
$>
:;9
 :;9I8

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

$>
%U
$>
:;9
 :;9I8

I
!I/:;9I .
?:;9'I
@z
 :;9II
:!;9I8 :!;9I
:!;9
I!I$>
:!;9
:;9I I~

I
!I/
'
 
%U
$>
:;9
 :;9I8:;9I
:;9

:;9
&I'.
?:;9'I<
.
?:;9'I
@z:;9I?B:;9I?B4:;9I4:;9IH
}

$>!II:!
;!9I?BI~7I
%U
$> 
:;9
 :;9I8

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

H}



%.?I
;
$>1?B:!;!9I:!
;!9I?B
%U
:;9I$>.
?:;9'I<
 I .
?:;9'I
@z

1R
?BUXYW

U 41?BH}
I&I.
:;9'I 4:;9I
:;9I8:!;9I$>II~
:;9!
!I7I 
%U


I
!I/$> .
?:;9'I<
&I.
?:;9'I
@z:;9I?B:;9I?BH
}
?

:!;9I8I!I$> :!;9I8
'I
:!;9I
%U
 :;9I 
:;9
&I $>5I<.
?:;9'<
.
?:;9'I<
.
?:;9'
@z:;9I?B4:;9I?BH}
H
}
?
I~
:!;9I8I!I$>I~ :!;9I8
'I
H}
 H
}

 H
}

:!;9I.
?:;9'<
 .
?:;9'I<
4:!
;9I?B
%U
:;9I
:;9
&I$>5I<.?:;9'<.?:;9'I<.
?:;9'I
@z
:;9I?B4:;9I?BH
}
.
:;9'
@z:;9I
:!;9I8I!I$> :!;9I8
'I
:!;9I
%U
 :;9I 
:;9
&I $>5I<.
?:;9'<
.
?:;9'I<
.
?:;9'I
@z:;9I?B4:;9I?B4:;9I?BH}
H
}
I~
:!;9I8I!I$> :!;9I8
'I
:!;9I
%U
 :;9I 
:;9
&I $>5I<.
?:;9'<
.
?:;9'I<
.
?:;9'I
@z:;9I?B4:;9I?B4:;9I?BH}
H
}
I~
:!;9I8II~!I$>H}
 :!;9I8
'I
 H
}

 :!;9I5I4:!;9!I?< 4G:!
;9!
4:!
;9I?BH
}
H
}


%U
:;9I
:;9
&I$><4:;9I.?:;9'<.
?:;9'<
.
?:;9'I<
.?:;9'I<.
?:;9'I
@z:;9I?B


 4:;9I?B!
U

:!;9I8I!II~$>H
}

 :!;9I87I 
'I
 .
?:;9'I<
4:!
;9I?B:!
;!9I?B :!;9I
%U
:;9I
:;9
&I$>5I<&.
?:;9'<
.
?:;9'I
@z4:;9I?BH
}

:!;9I8I!I1?B$>:!;9I :!;9I8
'I
 .
?:;9'I<
 
1R
?BUX!
YW

UH
}

 I~:!;9I&I:!
;!9I?B4:!
;9I?B41H}
4:!;9!I
%U
:;9I
:;9
$>5I<7I.?:;9'I<.
?:;9'I
@z
4:;9I?B 41?B!.
:;9'I 
".
:;9'I 
$> :!;!I8!II:!;9I7I:!
;!9I?B
%U
 < I

I
!I/ 
:;
&I.
?:;9'I<
$>.
?:;9'I
@z4:;9I?B4:;9IH
}
I~
:;9I8!I1?BI:;9I :;9I8$>I~ 
:;9!
 5I
'I
:;9I?B :!;9I:!;9I41?B
1R
?BUX!
YW
.
:;9!'I !
4:;9I&I :!;9!I !
k

I
!I/.
?:!;9'I<

U
1R
?B
XYW
:!;9I
%U
$>5
'
 <!
:;9
".
?:;9'I
@z
#
1R
?BUXYW$H
}
?

%H
}
?
&.
:;9'I
@z
'
1R
?B
XYW(1)41*H
}

+H
}
,.
:;9' 
-.
:;9I 
..
:;9'I 
:!;9I8I!I$>I~ :!;9I8
'I
7I :!;9I &I.
?:;9!'I<
:!
;!9I?B 
%U
:;9I
:;9
$>5I<&.
?:;9'I
@z4:;9I?BH
}

H
}

:!;9I8I!II~$> :!;9I8
'I
H
}

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

H
}

:!;9I8I!II~$>1?BH
}

.
?:;9'I<
 :!;9I8 
'I
:!;!9I:!;9I &I7I:!
;! 9I?B4:!
;9I?B :!
;9!


1R
?BUX!
YW

U
%U
:;9I
:;9
$>5I<.
?:;9'<
.
?:;9'I
@z
:;9I?B4:;9I?B41 41?B!H}
"H
}
#.
:;9'I $4:;9I
:!;9I8I~I!I$>1?B :!;9I8
'I
 :!
;9I?B 41?BH}
:!;9I .
?:!
;9!'I
@z
:!
;9I?BH
}
?

H
}

H
}
:!
;!"9I4:!
;9IH
}


%U
:;9I
:;9
&I$>5I<.
?:;9'<
.
?:;9'I<
.?:;9'I< 
1R
?BUXYW!
U".
?:;9'I 
#:;9I$.
1
@z
:!;9I8I!II~$> :!;9I8
'I
41?B :!;9I .
?:!
;9'I
@z
:!
;9I?B4:!
;9!I 1?BH
}
?

H}
H
}

H
}

%U
:;9I
:;9
&I$>5I<.
?:;9'<
.
?:;9'I<

1R
?BUXYW
U.
?:;9'I 
:;9I 4:;9I!4:;9I?B"H
}
#.
1
@z
:!;9I8I~I!I$>:!
;9I?BH
}

 :!;9I8 7I 
'I
4:!
;9I?B.
?:;9'I<
 :!;9I:!
;!9I?B
%U
:;9I
:;9
&I$>5I<.
?:;9'<
&.
?:;9'I
@z
4:;9I?BH
}
.
?:;9'I
@z
U
H
}
H
}
?

:;9I8!I1?BI :;9I8:;9I$>
:;9!
 5I 
'I
:!;9I:!;9I 41?B
1R
?BUX!
YW
.
:;9!'I !
4:;9I&I :!;9!I !
k

I
!I/.
?:!;9'I<
:;9I?B
UH}
?

1R
?B
XYW
:!;9I
%U
$>5
'
 <!
:;9
".
?:;9'I
@z
#
1R
?BUXYW$.
:;9'I
@z
%4:;9I?B&
1R
?B
XYW'1(41)H}
*H
}
+I~,.
:;9' 
-.
:;9I 
..
:;9'I 
:!;9I8I!I$> :!;9I8
'I
:!;9I&I 5I 4:!
;9I.
?:!;9! '<
I~ 
%U
:;9I
:;9
$><4:;9I?<

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

$> :!;!I8!II:!;9I7II~
%U
 < I

I
!I/ 
:;
&I4:;9I?<.
?:;9'I<
$>.
?:;9'I
@z:;9I?B4:;9I?B4:;9IH
}
I
:!;9I8I!II~$> :!;9I8
'I
H
}

 .
?:;9'I<
 :!;9I&I7I 
%U
:;9I
:;9
4:;9I?<$>5I<.
?:;9'<
.
?:;9'I
@z:;9I?B4:;9I4:;9I?BH
}

$>1?B41?B:!;!9I
%U
&I$>.
?:;9'I<
 I .
?:;9'I
@z
:;9I?B4:;9I?B 
1R
?BUXYW

U
1R
?B
XYW
H}
I.
:;9'I 4:;9I
$>1?B:!;!9I:!
;!9I?B
%U
&I$>.
?:;9'I<
 I .
?:;9'I
@z

1R
?BUXYW

U 41?BH}
I.
:;9'I 4:;9I
:!;9I8I!I$> :!;9I8
'I
:!;9I7I 
%U
 :;9I
:;9
 &I$>5I<.
?:;9'I
@z:;9I:;9I?B:;9I:;9I?B
$> :!;!I8I!I:!
;!9I?B7I
%U
:;9I :;9I I

I
!I/ 
:;
&I.
?:;9'I<
$>.
?:;9'I
@z4:;9I?B4:;9IH
}
I~
$> :!;!I8I!I7I:!
;!9I?B
%U
:;9I I

I
!I/
:;
 &I.
?:;9'I<
$>.
?:;9'I
@z4:;9I?B4:;9IH
}
I~
$> :!;!I8I!I:!
;!9I?B
%U
:;9II

I
 !I/
:;
 &I.
?:;9'I<
$>7I.
?:;9'I
@z4:;9I?B4:;9IH
}
I~
:!;9I8I!I$> :!;9I8
'I
4:;9I?<4G:!;9 :!
;9I &I5I.
?:!;9'I<
 
%:;9I
:;9
$><

I
!I/4:;9I.
?:;9'I<
:!;9I8I!I$> :!;9I8
'I
4:;9I?<4G:!;9 :!
;9I &I5I.
?:!;9'I<
 
%:;9I
:;9
$><

I
!I/4:;9I.
?:;9'I<
:!;9I8I!I$> :!;9I8
'I
4:;9I?<4G:!;9 :!
;9I &I5I.
?:!;9'I<
 
%:;9I
:;9
$><

I
!I/4:;9I.
?:;9'I<
:!;9I8I!I$>1?B:!;9I :!;9I8
'I
 .
?:;9'I<
 4:!
;9I?BI~:!;9I &I
1R
?B
X!
YW
414:!;9!I
%U
:;9I
:;9
$>5I<.
?:;9'I
@z
4:;9I41?B
1R
?BUXYW

UH
}

H}
H
}


I
!!I/".
:;9'I 
#.
:;9'I 
:!;9I8I!I$>I~ :!;9I8
'I
H
}

 :!;9I .
?:!;9!'I<
:!
;!9I?B
%U
 :;9I
:;9
&I$>5I<.
?:;9'<
.
?:;9'I
@z4:;9I?BH
}

1?BI~H
}

1R
?BUX!
YW
I :!;9I8(
U 4:!
;9I?B !I411 :!
;9I

I
!I/H
}

$>I?
~4:!
;9I?B4:!
;9I?B.
?:;9'I<

U
41?B:!;9I:!
;9I?B:!
;9I?BH}
4:!
;9I
1R
?BUX!
YW
 :!;9I8 :!;!I8 &I!
'I
"4:!
;9I?B#($4:!
;9I% :!
;9I&4:!
;9I' :!
;9
(4:!
;9I)4:!
;9I*
1R
?BUX!
YW+.
:!
;9!'I !

,:!;9I-7I.:!
;!?9I?B/4:!
;9I0
1R
?B
X!
YW
1.
:!
;9! ' !

2
%U
3
:;9
4I5
:;
67$>85I9<:
>I:;9
;
:;9
<.?:;9'I<=.
?:;9'<
>.
?:;9'I
@z
?H
}

@.
:;9'I
@z
A
1UXYW
B.
:;9'I 
C:;9ID.
:;9'I
@z
E
1R
?B
XYW
F
1R
?B
XYWG
1R
?B
XYWH!I/I:;9IJ.
:;9'
@z
K:;9IL:;9I?BM.
1
@zN41
:!;9I8I!I$>:!
;9I?B :;9I87II~ :!;!I8 
'I
4:!
;9I:!;9I 
:;9!
&I.
?:;9'I<
H
}


I
!I/!4:!
;9I?B
%U
:;9I
:;
$>5I<&.
?:;9'I
@z
4:;9I.
:;9'I
@z
H
}


$> :!;!I8II~!I:!
;!9I?B7I
%U
 :;9I 
:;
&I .
?:;9'I<
$>.
?:;9'I
@zH
}
?

:!;9I8I!II~$>:!
;9I?B :!;9I8 :!;!I8 7I 
'I
.
?:;9'I<
4:!
;9I?B :!;9I&IH
}

%U
:;9I
:;9

:;
$>5I<&.
?:;9'I
@z
4:;9I.
:;9'I
@zH
}


$>!II7II~
%U
$>.
?:;9'I<
 &I .
?:;9'I
@z:;9I?BH
}
?

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

:!;9I8II~!I$>:!
;9I?B :!;9I8
'I
 .
?:!
;9'I
@z
 H
}
:!;9I&I 7I4:!
;9I?B
%U
$>5I:;9I
:;9
<.
?:;9'I<
.
?:;9'<
H
}
?
.
:;9'I
@z:;9I?B4:;9IH
}


$>:;9I:!
;!9I?B4:!
;9I?B!I&I
%U
$> .
?:;9'I
@z
 
U&
:!
;!9I?B$>4:!
;!9I?B!I
%U
:;9I.
?:;9'I
@z
$> & &I
I$>.
?:!;9'I<
!I7II~
%U
:;9I &I .
?:;9'I
@z:;9I?B:;9I?B H
}

H
}

$>I!I:!
;!9I?BI~
%U
.
?:;9'I<
&I $> .
?:;9'I
@z4:;9I?BH
}

$>1?B:;9I!I&I:!
;! 9I4:!
;9I41?B 41 
%U
$>.
?:;9'I<
 I.
?:;9'I 
.
1
@z
1R
?B
XYWH
}
I~
$>:!
;!9I?B
%U
.
?:;9'I
@z
$>I&I
$>I!I7II~
%U
.
?:;9'I<
&I .
?:;9'I
@z :;9I?B:;9I?BH
}

I$>.
?:;9'I<
!II~7I4:!
;9I?BH
}

 
%U
 $>:;9I &&I.
?:;9'I
@z
:;9I?BH
}
?

$>:;9I4:!
;9!I?B&I!I
%U
$>.
?:;9'I
@z
 :;9I?B
$>:!
;!9I?B4:!
;!9I?B!I&I
%U
:;9I.
?:;9'I
@z
 :;9I $>
I:!
;!9I?BI~$>!I7I
%U
:;9I .
?:;9'I<
 &I.
?:;9'I
@zH
}

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

$>:!
;!9I?B
%U
:;9I.
?:;9'I
@z
4:;9I?B4:;9II &I

I!I/
4:!
;9I?B$>II~4:!
;9I:!
;9I41?B!I :!
;9I?B :!;9I.
?:!;9'I<

1R
?B
X!
YW!
 1?B1&I4:!
;9I?B4:!
;9! IH
}


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


%U
$>&.
?:;9'I
@z
41H}
H
}
?
.
:;9'I
@z

U
 .
:;9'I 

%

%

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

I
!I/ 4:!
;9I?BI~
%U
$>5
'
<&I
:;9
.
?:;9'I<
.
?:;9'I
@z
:;9I?B4:;9I
1R
?BUXYW

U41H
}
.
:;9I  4:;9I
$>II~
%U
$>.
?:;9'I<
I.
?:;9'I
@z :;9I?B H
}
?

1?B :!;9I8:;9I$>
1R
?B
XYW!I4:;9!I:!;9I 
:!;9!
 
1R
?B
XYW
.
:;9'I !
5I :!;9I8.
?:!
;9!'
@z
:!
;9I41?B414:!
;9!I?B
U4:!
;9!I?B
1R
?BUXYW
41.
:!;9!' !

%U
:;9I$>5

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


#
U
$.
:;9'I 
:!
;9I?B$>I~:!;!59I1?B4:!;9!I41:!
;9I 1 
%U
$>:;9I .
?:;9'I
@z
H
}
?
.
:;9'I
@z

1R
?BUXYW
U41?B.
:;9'I 
$>

I
!I/.
?:!;9!'I<
IH
}
?
I~5I :!;!?9I .
?:!
;9!
@z

%U
$> 
:;9
 :;9I
:;9
 :;9I8:;9I4:;9II.
?:;9
@z
$>

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

$>I:;9I1?BI~

I
!I/.
?:;9'I<
 !I 41?B41:!;9I 5I :!;9I8 :!;!?9I7I4:!
;!9I.
:!;9!' !
1
1R
?B
X!
YW!
H
}

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


$>

I
!I/1?B:!;!9I5I :!;!?9I4:!
;!9I?B !I 
%U
$> 
:;9
 :;9I
:;9
 :;9I8:;9I.
?:;9'I
@z
:;9I?B
1R
?B
XYW.
:;9'I 

1?B$>:;9I

I
!I/!I4:!
;!9I?B5I :!;!?9I 4:!
;!9I?B
1R
?B
XYW:!;9I 
%U
$>5
:;9
 :;9I
:;9
 :;9I8:;9I.
?:;9'I
@z
:;9I
1R
?B
XYW

1R
?BUXYW

U41?B41.
:;9' 
.
:;9'I 
.
:;9'I  4:;9I
$>

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

$>1?B:!;!"9I:!
;!9I!I7I4:!;9!I
%U
 $> 
:;9
 :;9I8

I
 !I/:;9I&I.
?:;9'I
@z
:;9I?B4:;9I?B
1R
?B
XYW41?B41.
:;9'I 
$>
%U
$>.
?:;9'
@z
H}
?
.:;9
@z
$>:!;9I :!;9I8II~
%U
$>
:;9
 .
?:;9'I<
 I.
?:;9'I
@z4:;9I H
}

1?B$>I~:;9II!I:!
;9I?B4:!
;9I?B :!;9I :!;9I8
1R
?B
X!
YW
H
}

 
%U
5I$>
:;9
&I4:;9I.
?:;9'I<
.
?:;9'I<
.
?:;9'I
@z

1R
?BUXYW

U41?B41H
}

H}

'I
.
:;9'I
@z
H
}
?
 .
:;9'I 
!5".
:;9'I #4:;9I
$>
%U
:;9I$>.
?:;9'I
@z
:;9I?B:;9I
:!;9I8$>!I&II7II~
%U
 :;9I $>
:;9
.
?:;9'I<
 .
?:;9'I
@z:;9I?B4:;9IH
}
?

:!;9I8$>!I1?B&II7I:!
;!9I 
%U
 :;9I$>
:;9


I
!4:;9I?<.?:;9'I<.
?:;9'I<
.
?:;9'I 
.
1
@z
1R
?B
XYW
H}
H
}
I~
:!;9I8$>!I&II7II~
%U
 :;9I $>
:;9
.
?:;9'I<
 .
?:;9'I
@z:;9I?B4:;9IH
}
?

:!;9I8I!II~$>&I7I:!
;!9I?B H
}

 
%U
:;9I$> 
:;9
.
?:;9'I<
.
?:;9'<
.?:;9'I<.
?:;9'I
@z
H}

I~ :!;9I8I!I$>H
}

&I.
?:!;9'I<
 4:!
;9I 
%U
:;9I$> 
:;9
.?:;9'I<.
?:;9'<
.
?:;9'I
@z:;9I?B4:;9I?B :;9
H}

II~$>:!;9I :!;9I8.
?:;9'I<
!I:!
;!9I?B 
%U
 $>
:;9
&I .
?:;9'I
@zH
}

H}

:;9I8I~!IIH
}

:!
;9I?B$> :;9I8 .
?:;9'I<
 7I4:!
;9I?B4:!
;9I?B 5I
:;9!


I
!I/:!
;!?9I?B41?B :!
;9!

:;9I&I4:!
;9II?
~1?B:!;9I :!;9!I !
k.
?:!
;9'I
@z
H
}
.
:!
;9!'I !

:!
;9I4:;9I 4:!
;9!I!
1R
?BUX!
YW"
%U
#$$>%
:;9
&5'
'
(
:;9
)&*+.
?:;9'I
@z
,
1R
?B
XYW
-H
}
?
.
U
/4:;9I?B0H}
1 :;92

3
4.
:;9I 
5.
1
@z6
1

7
1U
$>:!;9I :!;9I8I!II~
%U
$> 
:;9
 .
?:;9'I<
.
?:;9'I
@z
:;9I?B 4:;9IH
}

$> :;9I8II~:!;9!I
:;9!
!I7I 4:!
;!9I 
%U
$>&I .
?:;9'I<
.
?:;9'I
@z:;9I?BH
}

II~$>.
?:!;9'I<

%U
$>:;9I.
?:;9'I
@z
 :;9I?B 4:;9I?BH
}

H
}

 H}
.
:;9'I
@z:;9I
1?B:!;9I$>:!
;!9I?B
1R
?BUX!
YW

U41?BH}
 4:!;9!I 
%U
$>.
?:;9'I<
 I.
?:;9'I
@z
:;9I?B4:;9I?B1
1R
?B
XYW
41H
}
I~.
:;9'I 
.
:;9'I 
$>!IH}
:!;!9I.
?:;9'I<
I4:!
;9!I?B1?B 
%U
 :;9I$>&I .?:;9'I<.
?:;9'I
@z
:;9I?B:;9I?B4I4?B
1R
?B
XYW
141?BH
}

I~

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

1R
?B
XYW1?B41?B .
:;9'I  :;9I4:;9I
$>:!;!9I1?B:!;9I!I7I:!
;!9I?B
%U
 $> &I.
?:;9'I<
I .
?:;9'I
@z
:;9I?B4:;9I4:;9I?B
1R
?B
XYW
141?BH}


I
!I/.
:;9'I 4:;9I
$>1?B:!;!9I
%U
$>&I.
?:;9'I<
I .
?:;9'I
@z
 :;9I?B
1R
?BUXYW

U 41?BH}
I.
:;9'I 4:;9I
$> :!;9I8I!II~
%U
$>:;9I 
:;9
 &I.
?:;9'I<
.
?:;9'I
@z :;9I?B4:;9IH
}

$>4:!
;9!
I?!I
%$>4:;9I?<4G:;9
:;9I8!I:;9I1?B$> :;9I8:;9I :!;9I8 4:!
;9I?B 41?B4:;9I

I
 5I!I/
:;9!
I4:;9I?<(4:!
;9I?B:;9I&I
1R
?B
X!
YW
41
:;9
 :!;9!I !
k7I4:!
;9I.
?:;9'I<
:!
;9I?BH
}
I~ H}
!.
:!;9!'I !
"
%U
#$>$
:;9
%5&'
'
(<)
>I:;9
*4G:;9+
:;9
,!-&..
:;9'
@z
/


0
1R
?BUXYW
1
U21R
?B
XYW3.
?:;9'I
@z
4.
?:;9'I 
5.:;9 6.
1
@z
1?B$!>41:!;!9I
%U
$>.
?:;9'?

@z
:;9I 
1R
?B
XYW
 
1R
?BUXYW
U.
:;9'I  4:;9I
I~H
}

 :!;9I8I4:!
;9I?BH}
$>41?B 4:!
;9I?B !I4:!
;9I1?B &I4:!
;9I:!
;9I?B:!;9I :!;9I8
'I
.
?:;9'I<

U
4:!
;9I?BH
}
:!
;!?9I:!
;!?9I?B

I
.
?:!;9! 'I<
:!
;!?9I?B4:!
;9!I
1R
?BUX!
YW

U:!
;!?9I .
:!
;9'I
@z
!

"!I/#
%U
$$>%5I&:;9I'
:;9
()<*.
?:;9'<
+.?:;9'I<,.
?:;9'I
@z
-:;9I?B.4:;9I?B/H
}
?

0.
:;9'I 
14:;9I24:;9I 34:;9I4


5!I/6.
:;9'I 7:;9I
:!;9I8I!I$> :!;9I8
'I
:!;9I4:!
;9I?B :!
;!9I 
%U
:;9I
:;9
 &I$>5I<.
?:;9'I<
.
?:;9'I
@z
:;9I?BH
}
I~.
?:;9'
@z
:;9I8 :!;9I8:;9I!I$>4:!
;9I?B
:!;9!
:!;9!I 4:!
;9I?B 
:!;9!
:!
;!9I

I
 !I/&I :!;9I8I:!
;!+9I?B4:!
;9I1?B1H
}
I~
%U
5I$>
:;9
<4:;9I?<:;9I.
?:;9'I<
 .
?:;9'I
@z
!
U
"
1R
?BUXYW
#
U$41%.
:;9'I 
&:;9I'4:;9I
:;9I8!I$> :;9I8

I
&I!I/
:;9!
 5I :;9II4:!
;9!I 4:!
;9I?B:!;9I :!;9!I !
k.
?:!
;9!'I
@z
:!
;9I?B
%U
$>5
'

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

1R
?B
XYW
41?BH
}
?
I~:;9I?B H}
?
!.
:;9I "4:;9I
I~ :;9I8IH
}

$>!I.
?:;9'I<
!I/ 4:!
;9I?B &I

I

:;9!
 5I4:;9I?<:!
;9I?B :;9I84:!
;9I4:!
;9I?BH
}
7I4G:!
;9
%U
:;9I$>&.
?:;9'I
@z
4:;9I
U
.
?:;9'I
@z
:!;9I81R
?B
XYW1?B$>!I:!;9II
1R
?BUXYW
 41?B &I

I
I~ 4:!;9I:!;9I4:!
;9I?B.
:!;9'I !
!I/
U :!;9!I k4:!
;9I?B
:!;9!
 :!;9I8.
?:;9'I<
7I4:!;9I?< :!;9I8!I :!;9I8:!
;!9I?BH
}
H
}

 .
:!;9!'I !
!:!;9!%I"
%U
#$>$5I%&!' :;9I k(
:;9
).?:;9'I<*.
?:;9'<
+&,-.
?:;9'I
@z
.
U
/H}
0
1R
?BUXYW1
1R
?BUXYW2U3H
}
?

44:;9I5.
:;9' 
64:;9I7.:;9 
$>:!;9!I :!;9!I8 :!;9I4:!
;9!I?B
%U
$>
:;9
 
:;9
 .
?:;9'I
@z:;9I4:;9I
$>:!;9!I :!;9!I8 :!;9I
%U
$>
:;9

:;9
 .
?:;9'I
@z :;9I4:;9I
$>:!;9!I :!;9!I8 :!;9I:!
;! 9I
%U
$>
:;9
 
:;9
 .
?:;9'I
@z4:;9I4:;9I
$>:!;9!I :!;9!I8 :!;9I:!
;! 9I?B
%U
$>
:;9
 
:;9
 .
?:;9'I
@z
4:;9I4:;9I?B H
}
I~I
$>:!;9I:!
;!9I?B :!
;!9I4:!
;9I?B
%U
$>.
?:;9'I
@z 
:;9

$>:!;9!I :!;9!I8 :!;9I:!
;! 9I?B
%U
$>
:;9
 
:;9
 .
?:;9'I
@z4:;9I
$>!
%U
$>.
?:;9'I
@z
:;9I?B
$>
%U
$>.
?:;9'I
@z
:;9I?B:;9I4:;9I?B
$>:!;!+9I1?B :!;!I8:!
;!9I?B4:!;9!I41H}
 
%U
 :;9I$>:;9I I

I
!I/
:;
.
?:;9'I<
I.?:;9'I<I.
?:;9'I
@z
4:;9I4:;9I?B
1R
?BUXYW
1
U41?BH}
.:;9'
@z .
:;9'I 
$>II~:!;9I :!;!?9I8!I7I:!
;!9I?B 
%U
 $>
:;9
:;9I .
?:;9'I<
.
?:;9'I
@zH
}

:;9I8!I$> :;9I8I5I
:;9!
H
}

 I~ .
?:;9! '<
1?B41?B I:;9I:!;9I:!;9I

I
!I/4:;9I?<
1R
?BUX!
YW

U4:;9I :!;9!I !
kH
}
.
:!;9!'I !

%U
$>
:;9
 :;9I8< &I!5"
'
#
:;9
$.
?:;9'I<
%.
?:;9'I
@z
&4:;9I?B'4:;9I(.
?:;9' 
)
*4:;9I+.
:;9'
@z
,:;9I-.
:;9I 
..
1
@z/
1U
0
1R
?BUXYW112H
}
?
3H
}
?


1?B :;9I8II~!IH
}

 :!;9I41?B 
U :;9I$>
:;9
 .
?:;9'I<

1R
?BUX!
YW
:;9I

I
4:!
;9I?B
1R
?B
X!
YW
!I/&I7I
:!;9
:!
;9I?BH}
41 :!;9I8 :;9I84:!
;9I
1R
?BUX!
YW.
:;9'I 
4:!;9!I 
:;9!
!.
?:;9! '<
"4:!
;9I#4:!
;9I?B$5I%
'
&
'I
':!
;9I?B( :!
;9!

)H
}
*1+
%U
,$>-
:;9
. :;9I8/:;9I0
:;9
12
:;9
3'44:;9I?<5!I6.
?:;9'?
<
78.?:;9'I<9.
?:;9'I
@z
:!I/;.
:;9'I
@|
<
U
=


>.
:;9'I 
:!;9I8 :!;9I8$>:;9I

I
!I/
%U
$> 
:;9
 :;9I8:;9I
:;9
 .
?:;9'I
@z
:;9II
:!;9I8 :!;9I8$>:;9I

I
!I/
%U
$> 
:;9
 :;9I8:;9I
:;9
 .
?:;9'I
@z
:;9I?BI
$> :!;9I8 :!;9I8:;9I

I
!I/:!
;!9I
%U
 &I $>
:;9
 :;9I8 :;9I
:;9
.
?:;9'I
@z
4:;9II
:!;9I8 :!;9I8$>:;9I

I
!I/!I7I 
%U
 $>
:;9
 :;9I8 :;9I&I
:;9
.
?:;9'I
@z
:;9I:;9I
:!;9I8 :!;9I8$>:;9I

I
!I/:!
;!9I!I 7I 
%U
$>
:;9
 :;9I8:;9I&I
:;9
.
?:;9'I
@z

4:;9I :;9I81?B:!;!9I$!>:!;9!I
:;9!
:!
;!9I?B !I 7I
%U
&I .
?:;9'I<
I.
?:;9'I
@z
:;9I?B

4:;9I
1R
?BUXYW

U41?BH}
$>

I
!I/.
:;9'I 
$>:!
;!9I
%U
$>
:;9
 :;9I8

I
!I/ :;9I &I.
?:;9'I
@z
4:;9I?B I
:;9I81?B:!;9I:;9I$>41?B4:;9I
1R
?B
X!
YW
 41 
:;9!
I!I

I
!I/:!
;9I?B:!
;9I?B
1R
?BUX!
YW

UI~7I.
:;9'I 
:!
;9I
%U
$>.
?:;9'<
&I.
?:;9'I<
.
?:;9'I
@z

1

H
}

1R
?B
XYW H}
!
".
:;9'I 
:;9I8I1?B!I$>I~.
?:;9'I<
:!;9I :;9I8 H
}


:;9!

'I
 :!;!?9I8
U&I
1R
?BUX!
YW
:!;9I5I41?B414:!;9!I
%U
:;9I$>
:;9


I
!I/<4:;9I?<.?:;9'I< .
?:;9'I
@z
!:;9I?B":;9I?B#4:;9I?B$4:;9I%


&4:;9I?B'
1R
?BUXYW(H}
).
:;9'I 
*.
:;9'I 
I~$>I!IH
}


%U
$>.
?:;9'I<
 &I .
?:;9'I
@z:;9I?B4:;9I?B H
}

:;9I81?B!I:;9I :;9I8I$>
:;9!
 5I 
'I

1R
?BUXYW
:!;9I 4:;9I:!;9I:!;9I
1R
?B
XYW
41?B
1R
?B
XYW.
:;9'I !
&I :!;9!I !
k

I
!I/:!
;9I?B4141.
:!;9!' !

%U
$>5 
'
!<"
:;9
#.
?:;9'
@z
$
1R
?BUXYW%.
?:;9'I
@z
&4:;9I?B'4:;9I?B(1)
U*.
:;9I 
+.
:;9'I 
:!;9I8I!I$> :!;9I8
'I
I~:!;9I :!
;!9I?B 
%U
:;9I
:;9
 &I$>5I<.
?:;9'I<
.
?:;9'I
@z4:;9IH}
H
}

:!;9I8I!I$> :!;9I8
'I
:!;9I1?B :!;!9I 
%U
:;9I
:;9
 &I$>5I<.
?:;9'I<
.
?:;9'I
@z
:;9I?B
1R
?BUXYW

U41?BH}
H}
.
:;9'I
@z
:;9I.
:;9'I 4:;9I
:!;9I8I!I1?B$> :!;9I8
'I
:!;!9I :!;9I :!
;!9I?B :!;!?9I841?B H}

%U
:;9I
:;9
&I$>5I<
:;9
.
?:;9'I<
.
?:;9'I
@z
4:;9I4:;9I?B
1R
?BUXYW

U
1R
?B
XYW


I
!I/ .
:;9'I !4:;9I
:!;9I8I!I$> :!;9I8
'I
:!;9I:!
;!9I?B I~ 
%U
:;9I
:;9
 &I$>5I<.
?:;9'I<
.
?:;9'I
@z:;9I?BH
}
?

:!;9I8I!I$> :!;9I8
'I
1?B:!;!9I :!;9I :!
;!9I?B4:!
;9I?B :!;!?9I8 
%U
:;9I
:;9
&I$>5I<
:;9
.
?:;9'I<
.
?:;9'I
@z
4:;9I4:;9I?B
1R
?BUXYW

U41?BH}


I
!I/ .
:;9'I !4:;9I
:!;9I8I!I$> :!;9I8
'I
 :!;!?9I81?B :!;!9I :!
;!9I?BI~:!;9I 
%U
:;9I
:;9
&I$>5I<
:;9
.
?:;9'I<
.
?:;9'I
@z
4:;9I
1R
?BUXYW

U41?BH
}
.
:;9'I 4:;9I
:!;9I8I!I$> :!;9I8
'I
I~:!;9I 
%U
 :;9I
:;9
 &I$>5I<.?:;9'<.
?:;9
@z
H}
?
.
?:;9'I
@z:;9I?BH
}

:!;9I8I!I$> :!;9I8
'I
:!;9I
%U
 :;9I 
:;9
&I $>5I<.?:;9'<.
?:;9
@z
H}
?
.
?:;9'I
@z:;9I
:!;9I8I!I$> :!;9I8
'I
I~:!;9I 
%U
 :;9I
:;9
 &I$>5I<.
?:;9'I<
.
?:;9'I
@z:;9I?B4:;9IH
}

H
}

:!;9I8!II$> :!;9I8
'I
:!;9IH}
 
%U
 :;9I
:;9
 &I$>5I<.?:;9'<.?:;9'I<.
?:;9'I
@z:;9I?B4:;9I?B
I~I :!;9I8H
}

!I$>4:!
;9I?B1?B .
?:;9'I<
 4:!
;9I?B:!
;9I?B :!
;9

1R
?B
X!
YW
:!;9I :!;!I8 :!;9I87I
'I
4:!
;9I:!;9I&I.
?:;9'<
H
}


I
 :!;!?9I8H}
:!
;!9I:;9I
%U
$>5I I!!I/"
:;
#$<%
:;9
&
:;9
'.
?:;9'I
@z
(4:;9I)4:;9I*


+
U
,4:;9I?B-
1R
?BUXYW
.
1R
?BUXYW
/!I/0.
:;9'I
@z
1.
:;9' 
2.
:;9'I 
I~1?B:!
;9I?B4:!
;9I?B:!
;9I?B
1R
?BUX!
YW
$>4:!
;9I?B H
}

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

I
!I/:;9I
1R
?B
X!Y!?W!*H
}
.
:!
;9! '
@z
H
}
?

H
}

7I
1R
?B
X!
YW
41?B
1R
?B
X!
Y!'W!'.
:!
;9!' !

%U
$>
'I
& .
?:;9'I<
!.
?:;9'
@z
"
1R
?BUXYW#:;9I$
U%H
}
?
&.
:;9'I 
'4:;9I(.
:;9'I 
):;9I*.
:;9'I 
:!;9I8I~I1?B$>!I:!
;9I:!
;9I :!;9I :!;9I8
'I
:!
;9I?B 41?B4:!
;9I&I.
?:!
;9'I
@z
:!
;9I?BH
}
?
7I.
?:!
;9'I
.
?:!
;9'I !


1R
?BUX!
YW! 
U41
1

H
}

H
}

%U
:;9I
:;9
 $>!5I"<#.
?:;9'I<
$.
?:;9'<
%.
:;9'I 
&
'.
1
@z
(.
1
@z
$>!I:;9I:!
;! 9I?B&I4:!
;9I?B7I
%U
 $> .
?:;9'I
@z

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

II~$>.
?:;9'I<
!I:!
;!9I?B
%U
:;9I  $>&I.
?:;9'I
@z
 4:;9I?B4:;9IH
}

H
}


I!I/
I~I$>.
?:;9'I<
H
}

!I7I:!
;!9I?B 4:!
;9I?B H}

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

H
}
1?B :!
;!9I :!;9I8.
?:!
;9!'I
@z
4:!
;9I
%U
$>5I
:;9
&I54:;9I?<4:;9I4G:;9
1R
?BUXYW
1
U41?B.
:;9'I :;9I 4:;9I
$>4:!
;9!I?<4G:!;9! 
%$>
$>I:;9I1?BI~

I
!I/.
?:;9'I<
 !I 41?B41
1R
?B
X!
YW!
 :!;9I5I :!;9I8 :!;!?9I7I4:!
;!9I.
:!;9!' !
1H
}

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


$>

I
!I/1?B:!;!9I5I :!;!?9I!I 
%U
 $>
:;9
 :;9I
:;9
 :;9I8:;9I.
?:;9'I
@z
:;9I
1R
?B
XYW.
:;9'I 

:;9I8!I$> :;9I85I
:;9!
:!;9!I:!;9I :!;9!I !
k

I
!I/:!
;!9I 
%U
$>5
'
I<&I
:;9
.
?:;9'I
@z
4:;9I?B
1R
?B
XYW41?B.
:;9I 4:;9I

%

%
:;9I8:!;9III~$>1?B:!;9I!I .
?:;9'I<
 
:;9!
:!
;!9I?B4:!
;9I?B 
1R
?BUX!
YW

U&I4:!;9!I
%U
$>

I
!I/.
?:;9'I
@z
4:;9I41?B41H}
H
}

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

I
 !I/
:!;9I8$>I!I&I.
?:!;9'I<
4:!
;9I?B4:!
;9I?B I~ 
%U
$>
:;9
 .
?:;9'I
@z
:;9I?B4:;9I
U
H
}

H
}

I~ :;9I8H
}

I41?B4:!
;9I1?B!I .
?:;9'I<
 $>

I
4:!
;9I?B &I
U4:!
;9I?B!I/4:!
;9IH
}
:!
;9I?B:!;9I4:;9I?<4:!
;9I
1R
?BUX!
YW
H}



:!
;9I14:!
;9I?B5I
:!;9!
4:!
;9!I? 4G:!
;9!
!:!
;9I"4:!
;9I#:!
;9I?B$7I% :!;9I8&.
?:!;9! '<
':!
;9I?B(H
}
?
) :!
;9!

*
1U+4:!
;9!I?B,.
:!
;9'I !

-:!
;9I.
/
U
0
1R
?BUX!
YW1.
:!
;9'I !

2.
:!
;9! '
@z
3
1UX!
YW!
4
%U
56$>7
:;9
8!9<:4G:;9I;4G:;9<&=.
?:;9'I
@z
>.
:;9
@z
?.
?:;9'
@z
@
1R
?BUXYWA.
:;9'I
@z
B4:;9IC
1R
?BUXYW
D4:;9IE.
:;9
@z
F41G!I/H:;9II:;9I?BJ.
:;9'I
@z
K
1UXYWL.
:;9'I 
4:!
;9I?B:!
;!
9I?B4:!
;9I?B
%U
.
?:;9'I
@z
4:;9I

$> I $>
I~1?BI$>:;9I:!
;!9I :!;9I8!I H
}
 
%U
$>
:;9
 &I.
?:;9'I<
.
?:;9'I 
:;9I.
1
@z
1R
?B
XYW

$>
%U
$>.
?:;9'?
<
I.
?:;9'?

@z:;9I?BH
}
 I~
$>1?B:!;!9I:!
;!9I?B
%U
:;9I$>.
?:;9'I<
 I .
?:;9'I
@z
:;9I?B
1R
?BUXYW
 
U41?BH}
?
.
:;9'I 4:;9I
1?B:!;9I$>
1R
?BUX!
YW

U41.
?:;9'I<
I I~ 4:!;9!I
%U
$> I.
?:;9'I
@z
:;9I?B:;9I?B4:;9I?B41?BH
}

H}
?
H}
H
}
.
:;9'I 
.
:;9'I 
II~$>:;9I.
?:!;9'I<
:!
;!9I?B
%U
$> .
?:;9'I
@z
 :;9I?BH
}

H}
?
 
:!;9I8I~IH
}

!I$>4:!
;9I?B :!;9I8 
'I
 H}
:!
;!9I?B:!;9I &I
%U
<:;9I
:;9
$>5I

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

U
H
}
 
1R
?BUXYW
!1?B".
:;9'I #:;9I
$>:!
;!9I?B4:!
;!9I?B
%U
.
?:;9'
@z
I
4:!
;9I?B$>11?B!I
1R
?BUX!
YW
:!;9I&I I :!
;! 9I?B
U

1R
?B
X!
YW 
1R
?B
X!
YW
:!
;!9I
%U
$>.
?:;9'I<
.
?:;9'I
@z
:;9I?B4:;9I?BH
}
I~&.
:;9'I 
$>&I

I
!I/ :!;9I84:!;9I?<4G:!;9
!0:;9!
 :;9I8! :!;9I!I
% $>&4:;9I
:;9I8!I$> :;9I8&I:!;9I5I
:;9!


I
 :!
;!9I?B:!;9I!I/ 7I4:!
;9I?B :!;!?9I8 :!;9!I !
k4:!
;9I :!
;9!


%U
$>
:;9
!4:;9I?<5
'
I
:;9
&.?:;9'I<.
?:;9'I
@z
 
1R
?B
XYW
!41?B"H}
#.
:;9I $4:;9I
$>! :!;!?9I8
%U
$>
:;9
:;9I&I.
?:;9'I
@z
 :;9I I
:;9I8!I$> :;9I85I
:;9!
:!;9I:!;9I

I
 !I/:!
;!9I?B :!;!?9I8 7I :!;9!I !
k
%U
$>
:;9
&I5
'
I
:;9
&.?:;9'I<.
?:;9'I
@z

1R
?BUXYW

U41?BH}
.
:;9I  4:;9I
$>1?B:!;!9I!I:!
;!9I?B&I
%U
$> .
?:;9'I<
 I.
?:;9'I
@z

1R
?BUXYW
 
U41?BH}
.
:;9'I 4:;9I
:;9I8:!;9I$>II~1?B
:;9!
.
?:;9'I<
 !I 7I:!
;!9I
%U


I
!I/$>&I.
?:;9'I 
.
1
@z
1R
?BUXYW
H
}
H
}
?

:!;9I8I!I$>I~ :!;9I8
'I
H}
 4:!;9!I?< 4G:!
;9!
:!;9I5I 
%U
:;9I
:;9
&I$><4:;9I.
?:;9'I<
.?:;9'I<.
?:;9'
@z
4:;9I?BH
}

H}
?
.
:;9'
@z:;9I?BH
}

H
}
?


:!
;!
9I&I
%U
.
?:;9'I
@z
4:;9I4:;9I?B$>

I
 !I/ $>
$>1?B:!;!9I
%U
$>.
?:;9'I<
I.
?:;9'I
@z
 :;9I?B 
1R
?BUXYW

U41?B H}
I.
:;9'I 4:;9I
$>&I

I

%$>:;9I!4:;9I?< !I/ 4G:;9I
U%X.


?







;



q@
 -KtX

Z.


?







?
J
J
@


??H


?7


?







eo
[
[
?
?G 
. XfX<
?


6?G 
X

{7


?







eo
?
?
?
;?G
!ff
Y



M?G 
X

?@


?







eo+

?
?
??
R?G 
<
u
K
X
Y
I
=



s?G 
X

?7


?







eo
?
?
?
x?G 




??G
 
X


??G
o
?

 


?

b7


?







?+

?
?
?
??G
 


u


\


?







??

?
o


?]]??
ȟG

??<_
(X
?
?
?
?$

v$
:
tLZ
J 
? 
 ,/
5 
?
j
tX
J
<g
? 
fg?Y
 KWY 

X


J2?
%
g
t
' t?
>-

?


?KJ?e=? 
g
Xx


 ?
K?&
<



?a


?







?g
o?


 %
%
5??DS]
??G 
X


??G
u
?

 

?

j
W


?







Co
?
?

:
:
?]@
N?

ԡG




?G!

u 
X?
K
<?
 
X
fL\

?
K X?.
 
Xg 

6t# 
?
f'l?,

JY
f??
<u 
f?X
 

?  ;X

U7


?







C?

c
c
@

?GX

?e


?







Cg
o?
??

 u
u
u
?????

?G&

z
X
uX?o/ 
Xg 
t% 
;?vH? 
 v rf< >dv
?
?M
u

0

ff?
tw)x
#
? x<#
|
<U?u+XOJtu?
Y?u
X
Xm
u

*
6

?Y
tbttt
b<U
t?
tw
<<<J?'
fY'?J./
fY 
Y 
W<
?>
j ;=
t
=;uY
l?
??T
?9>Y 



X?G?
 
X


]?G?
 
X

? j


?







?g
o?
??

 c
?
?
c

????

b?G?



fg

 z
PKw

fx
Rg

Jc

  
=

?a
 

4
9M :0<U=
 .J$J< X
K

X
n 
?u
m


t
 
a


f

b 
??
K
<=!
JJ<
M
J2
 

KXC 
i$
\J
?
?

J
J?
3
?~t
?
t3
?~J&
?
t
X$


?J
?~

?
X
"r?"
Y
X^

?


#
<tX?~
"
Y
 
?X#
?


.
??~

K  AJ
?
X 

?
t?<?
Y




p tv
"
?

Y
<K
<=
J? 
rt
??

?=
Y?(
t?
?
?

 
 x8 ?<x
?~f
?



X&


.
??~
IK
 t
?

?[





`tt?
K
<=!
JJ?




J
?"
v

X?



tu

 "
JX"JJ.J/
 
/
=)

?Jw

/
?
K

.u 
=
!,
J<!.xZV<<Z<f
?
? 
K
<v<=
q!j~j~N
?g 
?}X
f
f?

-
<


-JJ


?
?
?~
?
?

?
X 
?~
r 

X
KX
?
J? JX L?

?K
K
.g
?.
?tpfM?

J.&f?=*XHX??9??K
 
Xg 
\ 
Xg 
X?Y
L
 z.?d
??
 Xyf?
??
In
??Gk8Y
Y h.<
J?X?>8?
g
 
f?
/
?
?
 f
fX?
?
=;=?

?

? 
!
<<?
?
 
??
?
KI?
 `?
?_
t??g= .

X?
]
?u
K
?

_X
?#?? 
<XX X?
 
f)f*?<.U?R 
Xg
X.?/
'Jo???.

JY 

<
J"
?X 
h
?

?

?oX

??
?,> 
1
K

 ? 
f Xf
=fJ#X<O

X?*
&?K 
<XJ?Z:?Y?\
?
Xg ?~

?
.

5
R


?







?g
o?
?

?
?
u
?Q?
 |?G




}?G

v?
y<

^
<
g
<
=?

e

2
?
<
?v
sXn
 
Xg

q? 
Xg 
.1X

?I


?







?g
o?

?
?
u
?Q
B?G
>u


i
 N/;?X
l
 u<Z

 
k

Y

?I


?







?g
o?

?
?
u
?Q y?G




z?G
?Y?

 
s

YX 


?7


?







?o
?
?
?
??G 

?



??G

% Ju 

K


?t


?







?g
o?

?

?
?
5?DS????
I
 ??G#




 ??G*





??G/

0
V?Y?
u
 JB


;

Xi</
Xj.
<.
jJKtX?:Y?Y



.>f

JY
t
X
t?ZB
?

#
:
?
X/
Zr
<g
6Y

.x? 
(?
JZ
tY
g

?>V

JY
f>W

JY
fY
 KJ>c

Y
ftY
K????

L?
x? 
?

? 


\
e


?







?o
+
??

 ?
?
??I
?
S
??G

1
q#???<@ZX???Y?W???
$
??
%
????
 ?s Y ?? =WZ:>Z
.?
.?1J.
XY??? 

Kz ???


X

r@


?







?o?

!
!
?Q
??G
J =f?XX
<
Y

T.


?







+
=
=
?G
/=/=KKKKKK

V.


?







+
G
G
6?G
=KKKKKYKKK/


?7


?







cg

[
[
u

a?G

>
gt?


z




{?G$

9
gt?






??G)

x<
g?0





?I


?







cg
o?

y
y
u
?Q
??G


p
 K<<?

 
o

Y

?j


?







cg
o?

?

 ?
?
5u
?DS?Q
??G
?<Yw

z<?



u
J?

s
Y;=Y
q
1 

??


?







c?
g
o
?

?
?
)?
u
??D???Q]?

?G



%?G

 !.
_<??<<
?<Wue<J?
J?~
J
d


??U
g
-?v


?
tx` 

?X.u.+
?
V
=s UKJ U1 UY
?Z 

_
L
p
?
f<?



.?
Y 

y?
<
X>
g
f<?

X?&L&:=u?
KIu
<h

?? -K 
J pJY
JJY&
<?

K;Y
>
:Ku>:Y
K

 
X


X>

[X?t<?J?. Xo
 X
?

w
`


?







ug
o?

?

?
?
u
?Q]?

_?G
z
?
zt?<
X^ 
 <
 vf X
x? ,><
x
fDZ


v
?=
K
t/
 A?v

 
?=

\?of 
Xg 
Jn


q
?


f

?~
J+
7
<u??

n
 



E?G


g
r

<
Jn.

qf?



Z 
<W J
??
s?
  .
s<
  <X

?N


?







uo?


9
9
??]
??G
 ? Y ?= 
!
X
= !

=!
-
Y


a
I


?







uo?


K
K
?]
??G
 0
=
+ 0
H?

?vf?L
hyJA <0 Hh
Z
=;u?
?
=
<
v.
<
X
f? 
< 
<Y

?
J?
Y
?
<.<
BX ....
 ?
W

?
`


?







ug
o?

?

]
]
u
??I
Q
??G

?
;.=X/f??
?
?
? 
<<
?

w
4z<"<J/
XK
XK
XK
XL[ 
?
?
 ?
C J.
] ?
?
 O

z


gM
??Z


XX? 
lJ

?3
?

?

?
I


?







uo?
?

q
q
??

$?G
L?
[
?.X=
xMJ?
<? > +K
hX 
Xg 

x
J%X4
)J


??G"

??
X
?Y
?=
X/

X
?t .



?G+
u

y??
x?X
?Y
?=
X/

X
?
t .


?
@


?







uo?

?
?
?
c?G

!X
I=YIYeX1
[
JY
t
@ 
u |
 JY
t<


??G

L
d>K
G
WY
;=
X=

X
?J .



?G
u

yJ
my<K

sJ
WY
;=
X=

X
?

J .


?
I


?







uo?


?
?
?]
`?G
JZ
X<Z
 ?:J
?


f

?~
? +
 u??

n
 



9?G


g

Jn.

qX?



Z 
W 

?
s?
  X

?J


?







uo?

?
?
???
x?G

K? 


u


??G


?N


?







uo?


?
?
?F??
??G
[???s!
Y


?R


?







uo?

?

?
?
???
>?G
d>
r >K
<W=
XJ ???

Z
p?
?=

X f?
u

?@


?







ug
?

?
?
u
Q
??G

y
Qu

.\ 
<
Y
SX/



.

?@


?







ug
?



u
Q
?G


q
J?

 
q

^

?@


?







uo?



?
 ?G
 
?
 Z
Y
? 
K IK
L
^
> 
r<

?u
 ?
^


?E


?







uo

'
'
?F?
}?G
Q?W?
Y


?E


?







uo

<
<
F??
?G
V?W?
Y


?E


?







uo

P
P
F??
??G
V?W?
Y


ZR


?







uo?

?

c
???c
ZR


?







uo?

?

v
???v
ZR


?







uo?

?

?
????

W


?







ug
o?
?

?
?
u
?Q@

%?G
A
SY?7
NY?
h


q
?
Lx
XY




]
?s



v


K 
u<
<Y
J
q
<Z
H>
$
Y
?]
 ?K
>

X
w??
JY

X
z?
t
<


='e


?







uo?

+
?

 ?
?
?F]? @
?

??G?

;=<Z

 
<=?

 
.=?%

 
J=%?/

 
<=/?*

 
J=*?-

 
<=-?)

 
<=)?

fK?

X
0


 ?G?

 2/ E2= S\ 8yt<?X?
fw

 X? t


J
J
 s

J

? 
tX

uJ
?


??G?


f?
\?

.?
ztx~^?

. ?
w
V
W/
>H."
5?
?3
?)
Jx<)
R
xX
  ?
p ?W ??
u
 s? -L!BJ>J ?<!
f??
 ?

t?
 ?

!t<?.XB

 s? -f?.
?
?

?X
??
 ?


t
J 
?

5?
3??)
Jx<)
R
xX
?^
 




J
fZ 
J
?
? 
zJ=??
.?Iu
?.
/
.{?
?
?

u
IY
>
g 
[c>.v

.
</
X^
/
2
?<.X???.?<J?<


.:.
/
/
./
J. C#
.
%<.J+X
<Y
?

YJ
Q
xJ?
_yf
-K;K
y<>
E??
y



?
 .
.
??-t1
/JJ
? X< << <<Z 

<
X 
JY
XX-z.1
/JJ?
.? I;JY-<=
/
?X??
? ?<
!???
 ?

??
 ?

?

 ?<!
. ?
 ?~


t
??

 ?

!t??JX?
 ?


<
?
X?
 ?
!
?!J?!X?t??
 ?


t??
?<
X?
 ?
!
??
 ?

??
 ?
!
f!JJJ!X??

 ?<!
?
??
f?
?f?4

#..K <=
<t=


]

J


t
./

JXu
?v
Y
 YIu0.?iJ 
X
??
/L -=. /-= 
J

]
<
J 

K

J


.L

u
<
WK

<<
JuXu
Y 
? uJYh c:1>:I. ?

?

!<
<
t
<X.-t)
0<)<#.N?X)

?/
f<JX?
"XvV? 
X<.v;
W=;K
?
?
=!?~??
J ?~J!
t
!?J?

 ?~

?.?

 ?~

??

 ?~

t?

?X
?
??

 ?~

!?'J?


f

 u.?~<
?
?K
pX
.?~f??

K 

i

?
J?
?
Xj
?

??.r
L
yX
 Y
XJ?.o
J 
V

(
X
?
?
2. ??
?JK?

0X.40s

J
J?
.?+<fI

J
J?

J
J
??
?Wy
?J<?
?? +
f?
?tK
<Y
?
[
?

< Y 
3
?
i
 
J. 
<<?

g?
 ?
 
zt


XB?
o
??

X
.\??!
W K!<7
X?<!?/XJ!?
X>?;<7.>?7<C?<@.??
$?[(
/?Y(
/?Z#
*?\
?WWZ:=
X?|X$
< J$J)<? < 

Y
?
 d
u WX
?"?,
4.,?(X?[?|
??
?|X??"
. J"J< f 

Y
?
 `
u W X
?
X
J
<'<
XZp?W? X
 *J VX(XgzJ?p
 [<#t? [<%X??|
??
?|<

.
???
t ?}t.
%<.J+f
<
X?

t?


u
;?

??
,?TJ!*
 

<
fY
X. ?tJ
?
? ?|

!???
 ?|

??
!?|X?< ?|.!
?X??




X?
?
X
<K
b<K
g

 ?< ??u W>?
X/
Y?
<K

?
XsX H
8t?
g%
Y
Hf7X H?8X'tg? VY s? 
Y ?
?!?|
?<Y ?|
?
!?|<? ?
$B
X?f2?$J2?$J
X#
 
<
<Y ?|


f
?
?
.
?
X?
 ?|
?
!?|ff??

?XtX 
!
f??=

?


X=
 ?<u W??
?< ?J
X


XRXX.J֐" ?|

"?
 ?|

f?

?|X
 
?
X?
 ?|
!
?<!?|.J?
!?|X???
!?|X?< ?|.!
Jf?X??
 ?|

f?
 ?|
?
!?|ff6
z

?
?
 ?

?

?#
?K)WK)W

J jf.',
Jf?
Xg
?

?
f


]H?

0
H ?
v.t XYxX`x??x<_?;Y

X?f.?
KgWf
g 
L ?
L:$? aY 
XK 
L


XK 
?
??
? 
Y ?J ?K 
L
/
I?
K

M?
i? ?
u 
?
,$<
J
X
j
f
_? 
 g.

M
S


?







uo?


?
?
?F]?
H

u 
J? H <?
]
?
]
=
J JL
J ...r <Y
KI=;K
j?
KIu


?H#

ti!X7?KX|xJ;Y 
w?7 

Y

kE


?







uo

?
?
F??
7H
 =L4.2
7J%
J X(?%<
K
<K 
?
x<' X ?K
'<.
w.
 X X9z?7
J#
f'X#?YXi
J
JX<
L-..e
J
JX<Y

?7


?







? o
?
?
?
H. ?
J#J
JXu 


<
<<
/


t@


?







? 
o
?
?
]?
DH
?
X?
? 


v7


?







? ?

?
?
]
kH
 /Y5

K5
K


I
@


?







? o

?
?
?]
?H

, =
 
?Y
<J IJx. 



X
<

zX 
?
=#? ?K
#
*

'<
<'t
<'<#?7?J.*?
J 


<?

?.


?







? 
?
?

` H.
? 

 
J
JJJf /<

/


d7


?







? ?



]
? H
 =Y
J


?E


?







? 
o


]@
?
? H
 ?Y
?

Z I?
  
Yf 


?7


?







? o
(
(
?
 H
X ? J$J'

u
X+?
J


?
t? 
JY 

=


?7


?







? o
<
<
?
? H
=

.XJ.
0 

X
XJt?tJY

= 

m@


?







? o?

Q
Q
?]
? H
 =Y
J


?@


?







? o

f
f
?]
H
!
;u
-KY


?
KX 


?@


?







? o

{
{
?]
2H
 =Y
-=

u



7


?







? o
?
?
?
`H :
L ,?
?
Oa.
? 


<J9XJ9?
. 
JP 
< X8?
J 


<J??
Z


?@


?







? o

?
?
?]
@H!

 1N
y<?
xX w?
.,XJ)fW
? 


X?
?
?
:>

 X v 
Y
X JK
J?
JY
J?
g
?
? 

g  
zX?~
gJJJ
. )
'J<J
.?Y


J
X 
?

?~
4
)<>)I;.4=<-</
J</
. J&
 J%J .
<XK


J
X 
?

?~
LJ-/
. .*
$J <J
.XK


J
X?


[.


?







?
?
?
?H=K/g/!=g/=K!/=/!//


S.


?







?
?
?
?H==>g=YY!/!K


?.


?







?
?
?
?HK?LK0/0=Y=0KY=0=K=0KY=0KKYY=0KKKKYYYZ="g=Y=0K!/="//==K==


`


?







?g
o?

?

?
?
5?DS?
?H
 O
)O?v?
/
 ?5
?s?
5


<= 


<Y
.eK<<s 

[
t 


X7


?







??

 

@

gH 
?

7S


?







(g
?
o


?
u
D?
pH

u
Lj
?1



KX
J
e &


?


f>c
t1



J
Y
 L?y
?

 
d f
w 
Rtt?

*

Jw
<Y?



?~<
=?
A
?

?~fv



#H6

.
Oc
?



u?


?~
L
>
?

?~f?






?@


?







(g
?

>
>
u
Q
`H
/<

Q<0<<

P
1?~<0
>
?

?~f?


a@


?







(o?



?S
?H 
t

?@


?







(g
o
%
%
u
?
?H
4
XXY 
<
gv

b

.u

?


b.


?







(
B
B

H



H


?@


?







h o?

`
`
??
H
M
?M
?JY(Xt <? J<<[
= yX

?
N


?







h g
o?

z
z
?
u
?Q
?H"

K
s=
sK ?X
t?

$


Y 
I
Y  

/? 



?H;

?u
Y
/
K
X?

?
?<?

?

YtK?
Xv

?
#
?
[

K

? ).< 

ZX 


]7


?







h o
?
?
?
UH
<
?


kI


?







h 
o?

?
?
???
bH 
?

?N


?







h 
o?

?
?
??
??

nH
!
;=
XN
us?
K 

= v  
Xg 


kI


?







h 
o?

?
?
???
?H 
?

?N


?







h 
o?

?
?
???
?

?H 

?M
?[ <<?Y

?
O? T 
2g

?N


?







h 
o?



??
??

&H
Z*>Z
=W
?g
<Z
=v

?L
?
ܐ3
x? Y
sg 


?I


?







h o?
?



?Q?
 H
Jg..
X 
.
?

w ?


?







h g
o+

?
?

,
,
5?7??DS]@
B?
? +H
,L?,+0<("0c(?-<q4t-?4G-?4U?-
.g
= 

 ?o 
g/
4f?XS
]kX7
Xotg
?
???
"
1??

?YX 
a 

?
g
??
<??



H?


?
y
'
y.??Z 
g
5
?.NX
YKZM
?UM? 
]?A
H<
X

??O

 
J?
<?
?
,%0I4JK
<
J
?K
<?
Z
(?
Y?=
g"

?8
x
<
ff
 ?t'j+
%
JX
fXf<%?=
u 
..f
J


J
<Y
aXX?
<K 
0K
?f!
J$e
*

f
f'
<0X?Y
<K 
J.


?
c?


?H.

z
&
z<^.??X?X?
K?

X?~? 
7yY
g?




?K 
?~X 
w< tY
g1 
r<tY
g0 
n<tY
g3
?Jtt??
?~
?
X??
K?

X??
 K;<u

X
<0X
?0X?

?

V?
*X?$

??
!
?
<7X!
?7X%
K?
?~
?
X??
K
?

?

?J?~
?
X??
 KWJ=?

??
FJ:XJ=?

??
K?
?~
?
X??
u 
tZ%

JXf?u Z? 

??J
?X K
W=?

??X
=?
?~
?
XB?
u 
tZuZ
#J Y#Wu6

L?
*?11.K0
a

?~
?
X?
K?
)<<-f? ?fJ 
.??~J
?X=-

?U.
K)
 V
*X\?1X<X
??

?K
V?yt?Jt$<?
 Lru ;??
?X??

?7
f
jX
x?J.Jt3J.?3<??
yt
?
t . 
?=Z
u 
t3?~

2X?f??
v
?@
f

?~?m??


q#H?
?}
?

 
?

?

?@


?







h o?

V
V
??
?#H
L
,L?

J 
X

=
X


~@


?







po?
h
h
??
?#H
Kg.?8??Y
?
K

?7


?







p?

?
?
Q
?#H
0



?#H

KY 
?
? 

?

/
@


?







pg
?

?
?
u
Q
/$H
Mu
a 
KI. <K 
= 

?
vH=f
Y 
 JX? 
<Y
<d




X
t\
zX


?

X
Jx
zt

 
XY
\
?
?
uXX
/ 
r<<X
J?

K?
??~?.?
t
?~
?
??.4
 ?JT
XXu
 ?JX.#
j
?
f
J
?
"g
?X.Q?~J?
<J
??J
*
X

J
.= 
X
?z.

>g
9?
??~?
 ?
?h


6H?

y?J' ?
?|?"

 
?<
XZ
g<fY?.=

?


X?



+?


<?



+?


<?



+?


<?



+?


<?



+?


<?



+?


<?



+?


<?

*?f H??|?"
<
 
?
??x?t?????+?\
?Y

J
f
Jf


????X?
??
?Y???
Y
?Y
?

XJ)
?k

X
J

X
????~


?
? ?

?~J?? ?

 ?~X X

J
??u
;<tX X
J
? ?
??~X??'J2JX+X#

J? ??
]

?
g 
JQ
uJ1zX3
J
?$? 
$<XXJ$f?
?=f5
?
ff.J/
? 
g?./
X3qJ??.
 J


u?
J
J
?v.?
WK
/

??

???. 
.

?oXJXJXJXJXJZ?
Y
?
 .Y 
eg
Xt1Y 
eg
Xt6
.0
xJY
?;g-K
.J.6
J<<<Y
<=
J1
g
? 
fZJJ
J.
J?
J
z.
<?.J??'
<'t.<../
0
.? 
X
X? 
J@.

?f
J
J?

?

?

?

?

J?


??
?
?]3
?E[:<L:?
f?tX.?
WK

h
??


Y

? 
<?
?\
 I
? . eRX
y
{Y



.?

<?



.?

<?.

J
?
? jb?

???
Jq.

+H?

 ?
?Yt

Xg? ]
t

+H?

+H?
?Y qX
;.


X
<


?







?
o
j
j
?

t@HJIu
<v

J
Xg




?@H

??sfu

(?<
_N"
uJP
tIK

X/
<
<=??
<?

X%


>X s 
=u?? 


?W


?







?
o+
?


?
?
?-Q
]
?AH+

0
,
"t.. 
J


Jg

X
,.?.U<
XY

L W/-s=
.?
 tH9
J"J 
<Y 
.Z
Y 
?
 4-;;;`?
J


<Y
u?+YYX
ff

w
UL
.P
 
<L
z<

g.? =<'?<W"
  
X


t
fY
X
= 



?DH"

x
n<R(


$.(X9?(
Jg
??Xu? 
tX">V<K< ?$
?#Y < K?(
;Y<??!?t>
?M

???
?L

tY
X
??X1

?

?

X
??
tK
tY 
X?
g 
?
y 
ZX?g
 ?;= W=
<YY ?gY
v??
?
? 
?=
\ 
=
XT?X

 N?
5-
J#H=)
? s?-
?
?IK,IIK
K
=?

<
 ?~
=?


<
.


tK
 ?f
tX
?~

?

XX


?~
?
 
?
?
?




?@


?







?o?

?
?
??
?KH
?WY?
L
vt
 tr 

?-Z


f@


?







?o?

 

??
9LH

?


~@


?







?o?

#
#
??
FLH

?K Y=WK?


?@


?







?o?

8
8
??
uLH

K?+g
 ?
xt
  < I h ?G/
sX
 ? 

xfl
?


?7


?







?o
J
J
?
?LH
?
?
?
Kg? t?
?fK
?t 
?eK
{z?
Kg?

?@


?







?o?

\
\
??
?MH

M?e?
ue/
?J .
/IK
Y

g s .?
gW/
ue/


Q.


?







~
v
v

NHg



a.


?







~
?
?

NH
?
 
Ku




W


?







?g
o?
?

?
?
u
?FQ?
 #NH




$NH


?X\y<_

o
<?


k

Ytf 
Xg 
??Y?????

q@


?







?o

?
?
??
?NH
Y
 L
uX

?
o


?







?g
o?

?

?
?
5u
?DS??Q ?NH





?NH

 JtwXq



J?v
?


z
/

? 
U=K?o??K

J(
rvYs



Y
I
X?


tOH

???`


tc.=


Y? 

??

1?


?







 ?g
o+

?
??



u
??
I
D??S?

?OH

Z
r?
nX$zrH
?XqX<nX=$
x$*K`?
 2
 
?K
??
z?
.tt?qX 
< 
IY
K
?
ft
N
Q
?

? 
?
?
<
<?XXfxX
?f?b
?
u


>

J?H

5
KX?


3

J??
?
X/

?
J?J?
X/

:
?
K??
? ?~X
?
?
?~
?


?


 ?

?<?

 
?
K 
/??
Y

?

??

?
?JY

?
 ?
X
?

K
?
 ?J?<K?
x

 7<0


?
 
?J
.
?
??
Xv

 
?
K?

?
?<
?<?<v

 
?
L 
 0??

 ?
??J
 ?<?t0

 ?

I/
?
JK?
 
x<
 7<0


?
 
?J
.
?
??
Y 
.
?
?

?
?JX/

 
?
K 
/Q? 
J]
?#<?

?
?Jt
?

?

?
?<>

?

?
t??&?Z? 

X2
K
?&s??X<
g


]SH?


?
zXBU?Z
? 
?
??XJ??yt?XX\?

?P
?H0Y?
?
?? 

?
6
cf
.
? X?

Xg
?
..q 

.5
f8

???

b@


?







?o+

&
&
?
UH


j@


?







?o+

L
L
?
UH
?



?@


?







?o+

o
o
?
UH

!
<X?
/ 

/


r@


?







?o+

?
?
?
.UH

L,C



r@


?







?o+

?
?
?
xUH

L,[



?R


?







cg
o??

?
?
u
??Q
?UH


k
 J@?

 
z

Y

s7


?







co




?
?UH
=

.Y 

?


,W


?







4g
oM?



u
?#"Q
 VH?


y
@?
;
 FtW#
? ?<@
?0


;
=
??Xv


<
?N

g?


,
=
Z???
?

 
?

<
. 
*f?K?
?<0


?
<)*JC 
?<
 ?
?<?0


?
> -
S<Z
 te.Z


 

Y?J.?
?<0


?
<[?

5e


?







ug
o?

?

 4
4
u
?]@
?

?WH

 ]
o?<
X? 

???

??

?
X

;


  ?z.*sK*
K
? 
?
lJ



<oX?



Y 
? y oʪM ?L

.

? 

?f.U  
Xg 

 J=
#?{s

 fp<?



Yv

y<
_y<Z




?7


?







u

I
I
]
7YH
"
V?
X[
Ɂ
<?

??
J
J

J

g
?x  
?

?
<

"f


?







ug
?
o

 b
b
5?
u
D?S
?YH
a?


K 
 g-? 
yt?

s
E"
-si


u?



?~
?Z
>
?


f

?~
#?


x



?@


?







uo?

y
y
?
?ZH
?IY
Y
J
X
X)?8
;?.
-
XK'ev

?g 

YX


?N


?







ug
o?

?
?
u
?Q
[H
0



[H

 K<V
 
=?

 
Y

]
N


?







ug
o?

?
?
u
?Q
8[H
%?
:*vIL%II\
%EI? X
o
<?


m
Z
\
 X<Y 
K> ;Z V?
 /[Z


n
v

 g
-f/
? .
(

 
?
<

kI


?







uo?
?

?
?
?I

\H 


f"
J
? J
? JzX
 ;<


?nH?

x
f
t<f
tX?=
w
?
n<  
wJ ?Z
YzXT.&Xs=e0:>We<

F @<nJ?
X<=W?WK
WY
X?
?
eZ;Y

?%
?"
 ?
 ?X?JK?
?

?~
K 
.
?

?
J?~
XK

%
?

<
.
??
?
 ?
?<?T;?<?J
=
?

 j<?
?
J <<<?2?
??
?
?<Y
?

CX j
Z"?

?<??Y
J?

o<J??J?
7?f<=
?
 j

 kX?2
Dr<
??=J?

M?~JX
?
<9?~<<K?Jy<?~

?

?~

=
?

<?X?<?X<?X?Y?~
= ?
<?~XI?
J?~??
<?~?=
?

v!q
?ns<?~
?

?~

 ?
?JK 
.
?

?
J?~
K

%
?

<
.
X?

?
?
?<Y8<?

?<:<?

!q

?
f&?~ t<;Z;;?

<!q

?!f

q
J


?







% o?

?
?
?f n
?tH

r?.

u??;?Y
g
Y!<L

?.


uH

m?.

p??;?Y
?
Y!

7 AX:?3
8J=J&
J!J-?,<&<u
 ?? 
v
?)?-
!<
%JJe 
?
?
??
J"J
JX<.L?
J 

1
I


?







? 
?
o
?
?
]]?
@xH
L
?<Xf
</
X
BX X?
X

 


<J9XJ9?
.!
J 


<J?Jg 
<.


W


?







?
+
?
o
?
?
]?
@
??

?xH
? /Y

?
< 
J-X<-?X
?O jXH? 

L

X
XZ? t

 XJrX 
Xg 


?
S


?







(o?
?

?
?
?QS?D
zyH!

?
z
???
g
<.
?K
JY
 O
?W


rX?r<u
-/
X

#
?
?+
tX
Xf.Jp  
? vK fmX 

?.J


vX
 t
f


?zH?

Z
VLXY
/e/Y
t ...


?7


?







(?


D
=
[


?







(g
o?
?


0
0
?
?SDS
?zH
?Y
?61?
.
!
?


X.)J!<+L
+
?Y 
.K?6
J
I
q
M



K;
J
D

t
X 


u@


?







(g
o
X
X
?
?
r{H?



?


?W


?







(g
o?


~
~
5?DS
?{H

XY ?



X

g
K 

/


M.


?







?
?
?
?{H
=YY/


^.


?







?
?
?
?{H//====Y=KK=////!=////!


4
`


?







h g
oM??

?
?
u
?#?#Q
?{H

r
.

rXJX

r
?Z


s
Y
g
?
8K 
?
 ;= 
XL u



g?: ?


z


?7


?







h 

?
?
?
?|H

??<?t<
s
 
s? =
t <=
k
?J?

?
??/
 </
k/W?Y
 f0

? fv? 
0
?
?
 f0
.#
J
? 
f
.K6?9?%
<6J ?6. J<>
`J
u
J X
g
?
?
X
\ 
Z
[JQ
9-'
;

'
X
?1
Y 
=
M
??
z?: DyJ CJ tJt<W ?? LyJ Q L ,?
  D.
X=
t<
= 
<

?t


?







h 
o?
??



??
??]?@
@
?
?H1


:>< i@ip

..Ke=
w
?
ut
?!>1
<
<#tJ




J
J
Jg


gr
.n


?. !i.1
#<J


q<


<
J
J
<g


p<
./
?
n<


<
J
<!X1
#<J/



.


 ?H?


; =<0
Y
Y
 
af
<


N
<
t
.!b
1<#<J




<
J
<Y


C
?
?
@ u 
[

"
^<".^J.!<1
#<J
"

^<


<
J
<Y

!
=
Z

#
]<#.f!]?1
#<J
#

]<


<
J
<Y

"
=
Y

$
\<$.f!\?1
#<J
$

\<


<
J
<Y

#
?u 
X


`?H?


:Z<gu
'.

J
t


<?

f


IZ?$+

J
J


?
<Y

f


I
X
<??=
J
Y



?H?

?
:L?[G= 
.Y
Y
?<

LX=

q?f-?.
J1?K:K

X"=
?="t?u=

?
gJJ<
?
?gJ
g
 ?<<
Jf
h.

t


@?H?

6
xt?

XY
?f

. 

?
t
X 
?
?

 



 



 


$r?$?tt 



 


 
X?
?

?

#
t
XY
t?t

X?

?

?t
<?
?
  
?

 
tf <
lt? 
H?

?X
=

X(

K(
;w
 
Xt?
?XVY?
X
Xg
?K
?
J
<
?
??
?
?

?
?)
g
u;K
Y?
<u;
<=YsKVm
usg<

?
? 
??X ?woY
Y


? 
= ;Y<< ;=':ZY
'?


?
Gu
g$
X?J

?
?X$?< ??
/:JJ0 
<:

\
?

 Y Wu
?
 
"J J"X<<4.J1J-.1t.(
?
 ?JJ
?
 
<u

"?<J 
?<u?
"
<4.1J-.1t
?."?f
?J"?<
?<u?
1
4<-X1J-<
?<
.=
Wu
/&
,
??
x?
zJ ^ ?
usL;&t?te=

/e
JY

ju'
L$du
=
?=z.'
$Jg

JZ
??
h
?
u 

?,

K

X"


?

?
w
,

?nx?Z
?
X


J
?
XY
X
?


J
?
X


??H?

!
sJ?Zv
t??

tN
p?.
?t@
8@
8=!
?
V X:X?
?X
?X
X
J
.
.^w<g
fK
fu ;Z

J8

1
f
?= 
?[
;=<4
???
?t?
g ;[

 ;/<.

J
J
.
.
f
.A

f
J$e 

[

J


J? 
<<2
`L
 XM9"
?5
f ?3
U"
J
.3
<
.
J
X
<g
 ?v. 

?

???J
?<Y
?
Df

2
f
X
.
<2
J,
<
<*
< 
t
X?8
 ?2[
2
tK-KH
?

.
tg-
&X?

?


?gX
t?
?K
#.$

J 


? 
Y 
<
J 
?Z
?=
Z
K
?
?
Y
? 
K Wg
?

X


?K
r?
? 
 K Wg
 ?=

X

?
??
I
u..e


??H?

!?u
=


??H?

"
rYK<Yu
!
?
t%X9f?=tt=<<=׃
?+t

?
.


?







h 
$
$

1?H 

I= ?

?
J?;? I/
?=
2
t ? .k<.
r$<.)0??
?U 
<=
g 
=

X

h!
f<f W 

X 


?
 
=
v
?

?'


fl.?
 ?< wX
f?

X'


<
?

?@


?







h o?

>
>
?Q
W?H
?

i.tL 
tf? X
.
0dX

tX 
 
J
.-
i

X


[7


?







p

[
[
@

??H
KX

?I


?







pg
o?

n
n
u
?Q
ǐH

 m
<<?

 
k

X

?
I


?







pg
?


?
?
u
QI

ܐH
?g

tX<0

s

Y
?
X=
K
?
vf J?

u

w
 JZ 
.
 
i



qf
Z


<
X
 ?G?H?A?H ?L ABA????

x?
$???G*DZ A????

x?
??GDS????

x?
 ?G]????

x?
0}?G?G?
?????

x?
h?G?G?
?????

x?
???G?G?
?????

x?
<?%?G?B?A?F ?D@m  DABA????

x?
<0??G?Q?A?C ?u ABAw???????

x?
???Gt
D??G?B?H?I ?D(?J?V (A ABBA????G?B?B?B ?E(?D0?A8?G?:\?:G?:G?:A?:s?:G?:G?:B?:U?:G?:R?:B?:? 8A0A(B BBBAd???G?B?O?E ?B(?D0?A8?G?
??
L?
R?
H?
?8D0A(B BBBT?]H?
B?F?B ?B(?A0?A8?L?0
8D0A(B BBBA????

x?
DHH?B?E?B ?D(?D0?K (A BBBAH?H?G?z????

x?
?7H????

x?
L?GH}B?E?B ?G(?A0?D8?N@O8A0A(B BBB??HKG?C????

x?
?H????

x?
?H?H????

x?
<?'HoB?B?D ?F(?J?P(A ABB??HD U??HD X??H ????

x?
4?H?{?h?]?U AJ?????

x?
?HD????

x?
,( DH'A?D?G UDA????

x?
p kHA?L????

x?
$? ?H?C?m A????

x?
? ` H>????

x?
!? HA?L????

x?
<P!? H<A?A?G Z JAEDCA????

x?
?! Hm????

x?
?!? Hw????

x?
"? HA?L????

x?
,@"H-A?G?I YAA????

x?
?"2HA?N????

x?
?"`H?????

x?
T?"@H B?I?B ?B(?A0?D8?O?X 8D0A(B BBBA,?"`HF
A?O AU E????

x?
$?#?H2CR
K????

x?
$?#?H%COE
????

x?
$$?H?DJ?O
R????

x?
$P$?H?A?I xD????

x?
?$gH ????

x?
?$pH??$#H=????

x?
%`H%zH????

x?
P%HP%?HP%?H????

x?
?%?H????

x?
4?%?H?B?A?D ?|AB????

x?
0&1H3????

x?
`&dHr????

x?
?&?H????

x?
?&?H6????

x?
?&H
?&H????

x?
$8'HrD d A????

x?
<x'?HOA?K?M a FABDFA,x'?HyA?C?G kAA????

x?
(UH ????

x?
0(bH????

x?
$`(nH>A?m A????

x?
?(?H????

x?
4?(?HnK?N?D | DAA????

x?
T )&H?B?B?B ?B(?A0?D8?D?
? 8D0A(B BBBA????

x?
?) H"D]????

x?
?)+H?
T?)H?B?B?B ?E(?D0?C8?J?
\ 8D0A(B BBBA4?)?H?A?D?D0? DAA?)q#H????

x?
$?*?#H$A?I XA????

x?
?*?#HEDP@????

x?
+?#H,+?#H=DIH RCR????

x?
$x+/$H?D_ A????

x?
,?+?$H?A?C G??z????

x?
,G%H????

x?
0,O%H<D w????

x?
h,?%HDS????

x?
?,?%H.D i????

x?
,?,?%H?A?P g AA<?,R&HB?E?A ?E(?D0g(A ABB,?,?&H?
A?D ?
AA????

x?
?-?(H????

x?
D?-?(H?
B?B?E ?A(?C0??
(D BBB??-?*H|B?D?B ?E(?D0?A8?G?A? 8A0A(B BBBAq?An?AS?Aj?A??AK?AA?A?A`?A{?AW?AB?A??-6Ht K?K?B ?B(?A0?C8?G?
?
8A0A(B BBBAF?
D?
E?
A?
L?
~?
K?
A?
6
8P?0A?(B? B?B?B?EI
??????????

x?
X/t@H:4X/?@H?A?A?G ? AAA????

x?
T?/?AHCB?D?E ?E(?A0?A8?D`c 8A0A(B BBBA????

x?
00?CH?00?DH????

x?
x0?DH%A?cTx0?DH?B?B?B ?E(?A0?D8?G?~8D0A(B BBB????

x?
l1?GHcB?B?B ?B(?D0?A8?DP? 8D0A(B BBBEu
8D0A(B BBBA????

x?
?1?KHM????

x?
?19LH ????

x?
?1FLH/????

x?
, 2uLH?D0A Af@V8A0????

x?
h2?LH?????

x?
?2?MH?????

x?
?2NH????

x?
?2NH????

x?
(3#NH
,(3$NH?K?D?
j AA????

x?
?3?NHIK????

x?
?3?NH
$?3?NH?Tx E,?3tOHHA?A?G?
|AA????

x?
<H4?OH?B?L?B ?B(?A0?A8?L?TH4]SH?
B?E?E ?J(?D0?D8?J?,:
8A0A(B BBBA????

x?
?4UH????

x?
(5UH????

x?
X5UH????

x?
?5.UHJ????

x?
?5xUHb????

x?
?5?UHDV????

x?
 6?UH????

x?
4P6 VH?
A?G?J?
d
AAA????

x?
<?6?WH?
B?K?D ?D0
 AABA????

x?
4?67YH?A?I?I W CAA????

x?
$H7?YH??P AJ?H7cZH@????

x?
$?7?ZHoA?G eA????

x?
?7[H?7[H#D^????

x?
<088[H?B?D?D ?J@?  DABA????

x?
?8\H????

x?
T?8\H?B?E?B ?B(?G0?F8?IpY 8A0A(B BBBA????

x?
(9]HUT @????

x?
$`9[]HgG?S A`9?]H????

x?
?9?]HN?9^H????

x?
,:^H9A?G h AA????

x?
H:S^H&A?d????

x?
?:?^H?T?:@_HVB?E?B ?B(?D0?A8?J?? 8C0A(B BBBA????

x?
L;?mH{G?H?E ?E(?A0?G?P0A(A BBBA?????T;nH?B?B?E ?E(?A0?F8?J?? 8A0A(B BBBAl;?nHB?B?B ?E(?D0?F8?G??
8A0A(B BBBAx8A0A(B BBB?;qH?B?F?B ?B(?A0?A8?G?*
?B?_?A???B?_?A?j?E?B?B?X?\ 8A0A(B BBBA????

x?
<?<?tHvB?B?D ?F(?J?W(A ABB<?<uHyB?B?D ?F(?J?Z(A ABB<?<~uHvB?B?D ?F(?J?W(A ABB<?<?uHyB?B?D ?F(?J?Z(A ABB?<mvH?<rvH????

x?
>?vH?????

x?
$@>@wH?G?? A????

x?
4?>@xH?A?D?G@] AAA????

x?
D?>?xH?B?B?B ?D(?C0?? (A BBBA????

x?
d0?zyH%
B?E?B ?D(?D0?D@gHHPMHA@i 0A(A BBBAbHJPSHA@D0??zHXB?E?E ?D(?C0?L@n0C(A BBB????

x?
,???zH{A?D?G lAA????

x?
@@r{H????

x?
p@?{H%????

x?
?@?{H????

x?
4?@?{H9BECC
CE C DOA????

x?
< A?{H?B?F?I ?G?
a  DABA????

x?
4xA?|H?k?N?bAA??F??????

x?
<?AJH?B?A?A ?G0?  AAEA????

x?
 B?H
$ B ?H2
D?m A B`?H?T B?H*
B?B?B ?B(?A0?A8?JPu 8A0A(E BBBAT B@?H`B?I?B ?B(?A0?A8?G?? 8A0A(B BBBAL B??H?B?B?B ?B(?D0?C8?N`?8H0A(B BBB B??H A?Z4 B??H?A?H?D l DAA????

x?
?C1?H&
????

x?
<DW?HgNKK QAF ADM NAD????

x?
pD??H D????

x?
?DǐH????

x?
<?DܐH?A?D?D Y AAEO DAA????

x?
$0E??H+DK T????

x?
TpE??H+B?B?B ?B(?A0?A8?DP?
8A0A(B BBBA????

x?
?E?H?????

x?
LF??H?
B?B?B ?E(?A0?A8?G`b
8A0A(B BBB????

x?
$xF7?H)
D ? A????

x?
?F`?H????

x?
$?Ft?H
[l A{????

x?
(G??HDS????

x?
`G??H-\P????

x?
,?GśHPF?~ ?BHA??G?HAA?{????

x?
HV?H$????

x?
0Hz?HDS_start_cGNU C99 14.2.0 -mtune=generic -march=x86-64 -g -g -O2 -std=c99 -ffreestanding -fexcess-precision=standard -frounding-math -fno-strict-aliasing -fno-align-jumps -fno-align-functions -fno-align-loops -fno-align-labels -fira-region=one -fira-hoist-pressure -freorder-blocks-algorithm=simple -fno-prefetch-loop-arrays -fno-tree-ch -fno-unwind-tables -fno-asynchronous-unwind-tables -ffunction-sections -fdata-sections -fno-stack-protectorargc__libc_start_mainlong long intargvcrt/x86_64/crti.s/home/buildozer/aports/main/musl/src/musl-1.2.5GNU AS 2.43.1__isalnum_lGNU C99 14.2.0 -mtune=generic -march=x86-64 -g -g -O2 -std=c99 -ffreestanding -fexcess-precision=standard -frounding-math -fno-strict-aliasing -fno-align-jumps -fno-align-functions -fno-align-loops -fno-align-labels -fira-region=one -fira-hoist-pressure -freorder-blocks-algorithm=simple -fno-prefetch-loop-arrays -fno-tree-ch -fno-unwind-tables -fno-asynchronous-unwind-tables -ffunction-sections -fdata-sections -fPIC -fno-stack-protector__locale_structisalnumlocale_tiscntrl__iscntrl_lispunct__ispunct_lisxdigit__isxdigit_l__tolower_ltolowertoupper__toupper_loff_tbuf_posunsigned charshort unsigned int__dirstreambuf_endclosediropendirshort intcalloc__syscall1___errno_locationd_typed_reclen__syscall3ino_td_offdirentreaddird_ino__init_tls__prognametls_cntpage_sizeneed_locks__syscall2__init_libcpollfdldso_dummythreads_minus_1__sysinfotls_alignuintptr_tauxvenvp__libc__locale_maplibc_start_init__init_array_end__init_array_startthreadedtls_modulelibc_start_main_stage2init_dummy__hwcapdummy1lsm2_fntls_headcan_do_threadsreventsimagetls_size__progname_fulla_crashsecureglobal_localefini_dummy__init_sspprevdetach_statecanarykilllockcancelasync__nextdlerror_flagmemcpyself__pthreadmap_size__ptcbtimer_idcancelbufpendingcanceldisableguard_sizetsd_used__get_tppthread_trobust_listdlerror_bufmap_base__stack_chk_fail__stack_chk_guardh_errno_valstdio_locksentropystack_sizestackresultgetenvstrncmp__strchrnulstrENOTBLKerrmsgidxstrEAFNOSUPPORTstrENOMEM__lctransstrEKEYREVOKEDstrERANGEstrEDOMstrerrorstrEISCONNstrENOSPCstrEADDRINUSE__strerror_lstrEROFSstrEBUSYstrETIMEDOUTstrEXDEVstrEBADMSGstrENETUNREACHstrECONNREFUSEDstrENOKEYstrENOTEMPTYstrEBADFstrENOMEDIUMstrEILSEQstrEPROTONOSUPPORTstrEKEYREJECTEDstrEFBIGstrEPIPEstrEREMOTEIOstrECANCELEDstrELOOPstr0strENOTSUPstrEDEADLKstrESOCKTNOSUPPORTstrEMEDIUMTYPEstrEPFNOSUPPORTstrENOTCONNstrEFAULTstrEMULTIHOPstrENOSTRstrENAMETOOLONGstrESHUTDOWNstrETIMEstrEADDRNOTAVAILstrEIDRMstrEMSGSIZEstrENOPROTOOPTstrEOWNERDEADstrEAGAINstrENOENTstrEHOSTUNREACHstrENODEVstrECONNABORTEDstrEINPROGRESSstrENOLCKstrEINVALstrEDQUOTstrEINTRstrENOLINKerrmsgstr_tstrENOTRECOVERABLEstrENETDOWNstrENOTDIRstrENOEXECstrEBADFDstrEMLINKstrENXIOstrENETRESETstrEPROTOTYPEerrmsgstrstrEACCESstrECHILDstrEIOstrEEXISTstrENFILEstrENOSYSstrEKEYEXPIREDstrENOSRstrESRCHstrE2BIGstrEISDIRstrENOTTYstrENOBUFSstrEHOSTDOWNstrEPROTOstrEPERMstrESTALEstrEDESTADDRREQstrENOTSOCKstrENODATAstrEOVERFLOWstrEMFILEstrENOMSGstrETXTBSYstrESPIPEstrECONNRESETstrEALREADYraise__abort_lockk_sigaction__block_all_sigs__syscall4__lockabort_Exit__fini_array_start__fini_array_endlibc_exit_fini__syscall_ret__va_list_tag__builtin_va_listsyscall_arg_treg_save_area__syscall_cpfp_offsetmode_toverflow_arg_areafilenamegp_offsetGNU C99 14.2.0 -mtune=generic -march=x86-64 -g -g -O2 -O3 -std=c99 -ffreestanding -fexcess-precision=standard -frounding-math -fno-strict-aliasing -fno-align-jumps -fno-align-functions -fno-align-loops -fno-align-labels -fira-region=one -fira-hoist-pressure -freorder-blocks-algorithm=simple -fno-prefetch-loop-arrays -fno-tree-ch -fno-unwind-tables -fno-asynchronous-unwind-tables -ffunction-sections -fdata-sections -fPIC -fno-stack-protectorprogram_invocation_nameprogram_invocation_short_nameflock__lctrans_curint_p_sign_posnint_p_sep_by_spaceint_p_cs_precedesmon_groupinglocaleconvint_n_cs_precedesint_curr_symbolmon_thousands_seppositive_signcurrency_symbolposix_lconvmon_decimal_pointnegative_signint_frac_digitsint_n_sign_posnint_n_sep_by_spacesetlocalestrlentmp_locale__locale_lock__unlocksamepart__get_localestrcmpstrcoll__strcoll_l__malloc_replacedpageszmal0_clearmemset__libc_freemmap_stepdefault_malloctraverses_stack_pnew_area__bump_lockptr__simple_malloc__libc_malloc__mmapnslotsget_stridelast_idxfreeablefree_meta_headcheckunmap_seqavail_maskactivestep_sequint32_tstoragemeta_areais_bouncingget_nominal_sizefree_groupsizeclassavail_meta_areasdequeuemeta_area_tailokay_to_freephead__malloc_contextuint8_tusagemeta_alloc_shiftmeta_area_headactivate_groupfreed_maskavail_meta_area_counta_or__malloc_lockuint16_ta_casfree_metaget_slot_indexuint64_tactive_idxavail_meta_countinit_doneactivate_newavail_metamaplen__malloc_size_classesrecord_seqnontrivial_freereservedfreedusage_by_classmapinfommap_counterget_metaslackresetlocksmall_cnt_tabenframealloc_groupupgradelocka_clz_32__libc_malloc_implnosmalltry_availpagesizedebruijn32size_to_classget_random_secretdequeue_headspanalloc_slotset_sizesuccessa_ctz_32med_cnt_tabdecay_bouncesaccount_bounceneed_unprotectsize_overflows__malloc_allzeropneed_guard__malloc_atfork__malloc_alloc_meta__libc_realloc__aligned_alloc_replacedmemmoveresolvedssize_tstrduprealpathrestartskip_readlinkstrnlenoutputslash_lengetcwdtoolongcheck_dirprot__syscall6__mprotect__munmapseedsranderrno_save__at_quick_exit_lockptratfork_locks__vmlock_lockptr__timezone_lockptr__bits__block_app_sigs__sigset_t__stdio_ofl_lockptr__locale_lockptr__syslog_lockptr__gettext_lockptr__release_ptc__random_lockptr__sem_open_lockptr__restore_sigsdummy_0__inhibit_ptcpid_tdummy_lockptr__atexit_lockptrresetsi_errnoposix_spawnattr_setsigdefaultsystemsa_flagssi_stime__def__actions__sigfaultsi_uppersi_overrunsi_addr__mask__polclock_t__sigsyssi_syscallsigvalsi_pidattr__timersi_utimewaitpiduid_tsi_uidsiginfo_t__padsival_int__si_fields__piduid__secondsi_valuesi_pkey__firstsigprocmask__sigchldposix_spawnattr_destroy__priosi_arch__fnposix_spawnattr_setflagssigemptysetposix_spawn__flagssi_addr_lsbposix_spawnattr_initsi_lowerposix_spawnattr_setsigmask__sa_handler__pgrpsi_statusoldintoldquitsi_signo__sigpollsigaddsetsa_sigactionsa_mask__pad0si_timeridposix_spawnattr_t__addr_bndsi_call_addrsi_fd__si_commonsa_restorersival_ptrposix_spawn_file_actions_tsi_bandsi_codeoptionssrc/setjmp/x86_64/longjmp.ssrc/setjmp/x86_64/setjmp.sall_maskapp_maskkilla_or_l__sigactiona_or_64__get_handler_setunmask_doneksa_old__restore_rta_store__libc_sigaction__eintr_valid_flagsignalpthread_sigmasksrc/signal/x86_64/restore.smkdirgid_tnlink_tst_nlinkblkcnt_ttv_nsecst_sizest_inost_blksizetimespecst_rdevst_blocksst_modest_atim__unusedtime_tdev_tst_ctimblksize_tst_uidtv_secst_mtimst_devst_gid_IO_FILE__need_unlockmustbezero_1mustbezero_2clearerrshcntcookierendgetln_bufwendlockcountprev_locked__unlockfile__lockfilewbasenext_lockedshendbuf_sizepipe_pidrposwposfflush__ofl_lock__ofl_unlockfclosefeofferror__stderr_used__stdout_usedmemchr__uflowfgetsstrchr__fdopenfopen__fmodeflagsvfprintf__wakea_swaplocking_putcfputc__overflowdo_putcprivfwritefputsfreaddestvdest__toreadnmembfreopen__dup3fail2__fseekowhencefseek__fseeko_unlocked__ftelloftell__ftello_unlocked__fwritex__towritelocking_getcdo_getcofl_head__stdout_FILEremoverenamesetvbufvsnprintfvsprintfvsscanfstderr__stdio_seek__stdio_close__stderr_FILE__stdio_write__stdin_FILEstdin__stdio_read__stdin_used__stdout_writestdout__randnametmpfileungetcestrULLONGuintmax_tnl_argUCHARZTPREHHPREebufIMAXl10nlong double__signbitlpop_argLLPREfmt_ofmt_ufmt_xUINTBAREPDIFFMAXSTATEfmt_fpwchar_tsaved_bufnarrow_cprefixebuf0__fpclassifylUSHORTSIZETBIGLPREUIPTRneedgetintULONGcarryolderrLDBLprintf_coreinternal_bufSTOProundwctombxdigitsstatesJPREargposUMAXNOARGinvalfrexplnl_typesn_writestring_readvfscanfatofstrtod__qsort_rwrapper_cmpcmpfunwidthqsortstrtox__shlim__floatscanstrtoldprecstrtofmemcmpGNU C99 14.2.0 -mtune=generic -march=x86-64 -g -g -O2 -O3 -std=c99 -ffreestanding -fexcess-precision=standard -frounding-math -fno-strict-aliasing -fno-align-jumps -fno-align-functions -fno-align-loops -fno-align-labels -fira-region=one -fira-hoist-pressure -freorder-blocks-algorithm=simple -fno-prefetch-loop-arrays -fno-tree-ch -fno-unwind-tables -fno-asynchronous-unwind-tables -ffunction-sections -fdata-sections -fno-tree-loop-distribute-patterns -fPIC -fno-stack-protectorstrcpy__stpcpy__stpncpystrncpystrcspnstrpbrkbytesetstrspntwobyte_strstrtwoway_strstrgrowfourbyte_strstrmem0threebyte_strstrsrc/string/x86_64/memcpy.ssrc/string/x86_64/memmove.ssrc/string/x86_64/memset.stemplate__clock_gettimeclockid_t__mkostempsmkstemp__futexwaitcurrenta_fetch_addsccppthread_rwlock_t__vi__acquire_ptc__pthread_rwlock_rdlock__pthread_rwlock_timedrdlock__timedwaita_deca_spin__pthread_rwlock_tryrdlocka_incspins__pthread_rwlock_unlockwaiters__pthread_rwlock_timedwrlock__pthread_rwlock_wrlock__pthread_testcancelclockvdso_funca_cas_pcgt_init__vdsosymdifftimetm_mon__tm_zonegmtimetm_wdaytm_ydaytm_sectm_mintm_hour__tm_gmtofftm_isdst__gmtime_rtm_yeartm_mday__utc__secs_to_tm__localtime_rlocaltime__secs_to_zonemktime__tm_to_secs__clock_nanosleeprecu_strftimestringdec31plusweek_numis_leapnumberdef_padnl_strcatnl_strftimenl_item__strftime_fmt_1__tm_to_tzname__strftime_ljan1strtoul__nl_langinfo_litimervalsuseconds_tit_valuetimevalsetitimerit_intervaltv_usecalarmsecondsgetpid__syscall0bufsizermdir___environElf64_Addr__thread_list_locke_shoffe_versione_phoffe_ehsizee_shentsizeDT_EXITEDDT_DETACHEDe_entryElf64_Phdrp_filesz__default_stacksizee_phentsizemain_tlsElf64_Half__init_tpe_flagsp_aligne_shstrndx_DYNAMICElf64_XwordElf64_Off__copy_tlsp_flagsp_type__set_thread_areap_vaddrp_memsze_shnump_paddre_phnumehdrbuiltin_tlse_identtls_phdre_typee_machineElf64_EhdrDT_JOINABLEstatic_init_tlsElf64_WordDT_EXITINGgottaildecfloatcopysignlrpm9biasp10s__isspacefmodlgotradfracscalbnbitlimscaledenormalemaxscalbnleminfabslhexfloatscanexpgotdig__shgetcvd_flagsverdefst_shndxst_infolong long unsigned intElf64_Verdefvd_versionvsymvda_nextvd_auxhashtabvernameElf_SymndxElf64_Verdauxst_valueElf64_Sectiondynvvda_namest_othercheckverstringsvd_cntvd_ndxvd_hashsymsElf64_Symvd_nextversymc_timec_numericc_messages__nl_langinfoenvvars__c_dot_utf8__map_file__lctrans_implloc_headbuiltin__mo_lookup__mremapold_sizeavail_sizeldshapedouble_tfpsrold_lennew_addrold_addrnew_len__syscall5__opaque1__opaque2wcrtomb__mbstate_t__post_Fork__clonesigismemberexecexecvechild__sys_dup2oflagfdopargs_vpsrcfdpipe2argsoldmaskhsetall_flagswhichold32st_atime_secst_ctime_secst_ctime_nsec__procfdnamefstatat_kstatst_atime_nsecst_mtime_secst_mtime_nsec__fstatatws_ypixelwinsizews_col__ofl_addws_xpixelws_rowowneriov_lenioveciov_base__lseekiovcntiovs__toread_needs_stdio_exit__stdio_exit_needed__towrite_needs_stdio_exitmatchesmatch_failinput_failfmt_failinvertarg_n__intscanint_commonstore_intmbsinitalloc_failmbrtowcscansethighpshifttraila_ctz_ltrustypntza_ctz_64stepsontrinklecyclesiftstrtoimaxstrtoumaxstrtollstrtolstrtoullretries__futex4_cp__timedwait_cp__pthread_setcancelstate__default_guardsize__pthread_rwlock_trywrlocksrc/thread/x86_64/__set_thread_area.ssrc/thread/x86_64/clone.spathname__fstatmonthsdays_in_monthremsecsremdaysq_cyclesqc_cyclesremyears__year_to_secs__month_to_secsdst_offskip__timezonelocalgetruledo_tzsetrule_to_secszi_dotprodzi_read32old_tz_sizedst_name__tzsetold_tzabbrevssearchgetnamegetoffstd_nameposix_formold_tz_buf__daylighttypesdummy_namezonenameabbrevs_endoppoffscan_trans__tznamecenturiesleapspipetableswapc__c_dot_utf8_locale__c_localeempty_moilseqloopinternal_state__fsmu8dummy_file__stdio_exitclose_filesecs_through_monthcrt/x86_64/crtn.scrt/crt1.c/home/buildozer/aports/main/musl/src/musl-1.2.5crtcrt/x86_64crti.ssrc/ctype/isalnum.csrc/ctypeobj/include/bitsalltypes.hsrc/ctype/iscntrl.csrc/ctype/ispunct.cctype.hsrc/ctype/isxdigit.csrc/ctype/tolower.csrc/ctype/toupper.csrc/dirent/closedir.csrc/dirent./src/include/../../include__dirent.hstdlib.hunistd.hsrc/dirent/opendir.c./arch/x86_64syscall_arch.hfcntl.hsrc/dirent/readdir.c./arch/generic/bits./src/includeerrno.hsrc/env/__libc_start_main.csrc/env./src/internalatomic_arch.hpoll.hlibc.hsrc/env/__stack_chk_fail.cpthread_arch.hpthread_impl.hpthread.hstring.hsrc/env/getenv.csrc/errno/__errno_location.csrc/errnosrc/errno/strerror.clocale_impl.h__strerror.hsrc/exit/abort.csrc/exitksigaction.hlock.hsignal.hsrc/exit/abort_lock.csrc/exit/exit.csrc/fcntl/open.csrc/fcntlsyscall.hsrc/internal/defsysinfo.csrc/internal/libc.csrc/internal/syscall_ret.csrc/linux/flock.csrc/linuxsrc/locale/__lctrans.csrc/localesrc/locale/localeconv.clocale.hsrc/locale/setlocale.csrc/locale/strcoll.csrc/malloc/calloc.csrc/mallocdynlink.hsrc/malloc/free.csrc/malloc/lite_malloc.c./src/include/sysfork_impl.hmman.hsrc/malloc/mallocng/free.csrc/malloc/mallocng./src/include/sys/../../../include/sysmeta.hglue.hsrc/malloc/mallocng/malloc.catomic.hsrc/malloc/realloc.csrc/malloc/replaced.csrc/misc/realpath.csrc/miscsrc/mman/mmap.csrc/mmansrc/mman/mprotect.csrc/mman/munmap.csrc/prng/rand.csrc/prngsrc/process/fork.csrc/processsrc/process/system.cspawn.hwait.hsrc/process/waitpid.csrc/setjmp/x86_64longjmp.ssetjmp.ssrc/signal/block.csrc/signalsrc/signal/kill.csrc/signal/raise.csrc/signal/sigaction.csrc/signal/sigaddset.csrc/signal/sigemptyset.csrc/signal/signal.csrc/signal/sigprocmask.csrc/signal/x86_64restore.ssrc/stat/mkdir.csrc/statsrc/stat/stat.c./arch/x86_64/bitssrc/stdio/clearerr.csrc/stdiostdio_impl.hsrc/stdio/fclose.cstdio.hsrc/stdio/feof.csrc/stdio/ferror.csrc/stdio/fflush.csrc/stdio/fgets.csrc/stdio/fopen.csrc/stdio/fprintf.csrc/stdio/fputc.cputc.hsrc/stdio/fputs.csrc/stdio/fread.csrc/stdio/freopen.csrc/stdio/fseek.csrc/stdio/ftell.csrc/stdio/fwrite.csrc/stdio/getc.csrc/stdio/ofl.csrc/stdio/printf.csrc/stdio/puts.csrc/stdio/remove.csrc/stdio/rename.csrc/stdio/setvbuf.csrc/stdio/snprintf.csrc/stdio/sprintf.csrc/stdio/sscanf.csrc/stdio/stderr.csrc/stdio/stdin.csrc/stdio/stdout.csrc/stdio/tmpfile.csrc/stdio/ungetc.csrc/stdio/vfprintf.cmath.hsrc/stdio/vsnprintf.csrc/stdio/vsprintf.csrc/stdio/vsscanf.csrc/stdlib/atof.csrc/stdlibsrc/stdlib/qsort_nr.csrc/stdlib/strtod.cfloatscan.hshgetc.hsrc/string/memchr.csrc/stringsrc/string/memcmp.csrc/string/strcat.csrc/string/strchr.csrc/string/strchrnul.csrc/string/strcmp.csrc/string/strcpy.csrc/string/strdup.csrc/string/strlen.csrc/string/strncmp.csrc/string/strncpy.csrc/string/strnlen.csrc/string/strpbrk.csrc/string/strspn.csrc/string/strstr.csrc/string/x86_64memcpy.smemmove.smemset.ssrc/temp/__randname.csrc/temptime.hsrc/temp/mkstemp.csrc/thread/__lock.csrc/threadsrc/thread/__syscall_cp.csrc/thread/lock_ptc.csrc/thread/pthread_rwlock_rdlock.csrc/thread/pthread_rwlock_timedrdlock.csrc/thread/pthread_rwlock_tryrdlock.csrc/thread/pthread_rwlock_unlock.csrc/thread/pthread_rwlock_wrlock.csrc/thread/pthread_sigmask.csrc/thread/pthread_testcancel.csrc/time/clock.csrc/timesrc/time/clock_gettime.csrc/time/difftime.csrc/time/gmtime.csrc/time/gmtime_r.ctime_impl.hsrc/time/localtime.csrc/time/localtime_r.csrc/time/mktime.csrc/time/nanosleep.csrc/time/strftime.cnl_types.hlanginfo.hsrc/time/time.csrc/unistd/alarm.csrc/unistdsrc/unistd/close.csrc/unistd/dup3.csrc/unistd/getcwd.csrc/unistd/getpid.csrc/unistd/readlink.csrc/unistd/rmdir.csrc/unistd/sleep.csrc/env/__environ.csrc/env/__init_tls.celf.hsrc/exit/_Exit.csrc/internal/floatscan.csrc/internal/shgetc.csrc/internal/vdso.csrc/locale/langinfo.csrc/locale/locale_map.csrc/malloc/mallocng/realloc.csched.hsrc/math/__fpclassifyl.csrc/mathlibm.hsrc/math/__signbitl.csrc/math/copysignl.csrc/math/frexpl.csrc/math/scalbn.csrc/math/scalbnl.csrc/math/x86_64/fabsl.csrc/math/x86_64src/math/x86_64/fmodl.csrc/mman/mremap.csrc/multibyte/wctomb.csrc/multibytewchar.hsrc/process/_Fork.csrc/process/posix_spawn.cfdop.hsrc/process/posix_spawnattr_destroy.csrc/process/posix_spawnattr_init.csrc/process/posix_spawnattr_setflags.csrc/process/posix_spawnattr_setsigdefault.csrc/process/posix_spawnattr_setsigmask.csrc/signal/setitimer.csrc/signal/sigismember.csrc/stat/fstatat.ckstat.hsrc/stdio/__fdopen.csrc/stdio/__fmodeflags.csrc/stdio/__lockfile.csrc/stdio/__overflow.csrc/stdio/__stdio_close.csrc/stdio/__stdio_read.csrc/stdio/__stdio_seek.csrc/stdio/__stdio_write.csrc/stdio/__stdout_write.csrc/stdio/__toread.csrc/stdio/__towrite.csrc/stdio/__uflow.csrc/stdio/ofl_add.csrc/stdio/vfscanf.cintscan.hsrc/stdlib/qsort.csrc/stdlib/strtol.csrc/string/stpcpy.csrc/string/stpncpy.csrc/string/strcspn.csrc/temp/mkostemps.csrc/thread/__timedwait.csrc/thread/default_attr.csrc/thread/pthread_rwlock_timedwrlock.csrc/thread/pthread_rwlock_trywrlock.csrc/thread/pthread_setcancelstate.csrc/thread/x86_64__set_thread_area.sclone.ssrc/time/__map_file.csrc/time/__secs_to_tm.csrc/time/__tm_to_secs.csrc/time/__tz.csrc/time/__year_to_secs.csrc/time/clock_nanosleep.csrc/unistd/_exit.csrc/unistd/lseek.csrc/unistd/pipe2.csrc/unistd/read.csrc/internal/intscan.csrc/internal/procfdname.csrc/locale/__mo_lookup.csrc/locale/c_locale.csrc/multibyte/mbrtowc.cinternal.hsrc/multibyte/mbsinit.csrc/multibyte/wcrtomb.csrc/process/execve.csrc/stat/fstat.csrc/stdio/__stdio_exit.csrc/time/__month_to_secs.csrc/unistd/pipe.csrc/multibyte/internal.ccrtn.skq@
U"qx?"#?
U?q@u"
Tq@u?"
Q"#?
U#?b6?G
U?
U?6?G
T?
T??G
Uu0? ?
U?>M?G
U?
U?M?G
T?
T?Ys?G
U?
U?s?G
T?
T?R?G
U!?
U?X??G
U?
U???G
T?
T?x?G
Uq0?>??G
U?
U???G
T?
T?>??G
U?
U???G
T?
T?IřG
U"
S"$?
U?ۙG
P
V 
P??G
U:?
U?
??G
P
S)
S
?G
P 
P

?G 3?

?G s $ &?
U?

#?G
U'
X')?
U?)-
U-b
Xbk?
U?
9?G
P
c?G
Px
Pp~?

L?Gٟ

L?Gu? $ &?
U

L?Gu?x?

L?G ?
c?G
P_??G
U2
\??G
T2
S??G
Q2
V??G&
]ڜG
U0
\01
U12?
U?ڜG
T
P.
V.2?
T?ڜG
Q-
S-1
Q12?
Q?ڜG
R2?
R?ڜG
X2?
X?ڜG
Y2?
Y?ߜGp $ &#
3$q"?(v $ &#
3$s"?()v $ &#
3$q"?),?
T $ &#
3$q"?,-?
T $ &#
3$?
Q"?
??G ??G?
P??G
S??G
U?
X???
U???GJ
TJ?

Q?
?
?
T??
?

Q?
?

P?
??
T?




ɚG0?
Pp?!0??
?
0??
?
?
T p"??
?
p?
T??
?
?
T p"??G
P
?G
P?B
P

?G 7?

?G
U

?G 3?

?G 0?
?G
P

_?G2?

_?G ??U?

_?G ??
d?G
P@?G
U
T3?
U?3F
U
9?G
PdT?G
U1
V14?
U?4`
Ve?Gpv?"
\#O
\??G,
S
??G
P\?G
U?
U?
??G
PG
UG$
T$,?
T??
-?G=?
-?G6?
-?G
T
-?G0?
-?G8?
T?G
P

T?Gȟ

T?G p0? $ &? 
U

T?G6?
n?G>?
n?G1?
n?G
T
n?G0?
n?G8?A@@
U
S

??G
S s?
S?ĞGT
UT^
T^?
?
U?ĞG
T n
Sn?
?
T?
ĞG>0?#?G
P&
U

4?GH?

4?G2?

4?G1?!P?G
U0?h???G
U?
U???G
T?
T?
??GI?
??G u $ &?
U ?
U $ &?
??G t $ &? 
T
??G
Ph??G
U?
U?
??G
P??G
U?
U???G
T?
T?]


ȟG'
U't
Vt??
U?

ȟG+
T+t
\t?
?
T??
?

\?
??
T???
\?G'
P'+sp?~?

P?
?

P

}?G0?
Vv
?k
Vz?

V

1?GX
VXxv?1?Gx
\
}?Gi
\z?

\??G
P9??~4?G
P%%,xj?G
P
^???G
U?
U???G
T?
T?
ȡG
P??G
U?
U???G
T?
T???G
Q?
Q?C
?G
US?
U?SW
UW?
?
U??G
TS
\SW
TWg
\hv
\v?
?
T?
U??
?

\?
?

Q#?G
P0
SE?

S?
?

U
2?G!
SD?

S
2?G!
\D?
?
T?
U?2?G! ?D?
 ?C?G
U3n
Qnq
Ux?

PQ?G
Q`i
Q#?G
U?
U??]?G
U?
U?X?G
U?
U?
?G!
U!(?
U?/?
V??
V
?G(1?/I
SI?s
???s
???s
???s
???G ZW



q?GBuqv"#????
?
uqv"#????
?
]??
P??
]??
P??
]

]?G]0?]?
1??
?
0??
?
0?ڤG
P>K ??nr
Pr~
S??G4
Pkv
P

z?GQ
P#?G/
T>Q
T#?G/
V>Q
V

)?Gqv?
Q8D
QDK5?
?G
R??G
U?

^?
?
\???
U???GA
TA?
U???
T??????? ?
T?? ??????
T??? ??? ??
T???
U????

?G"
R??G0?
??G?
V??0???0???0???
V

ήG?~ $ &# 3$ ZW"???~ $ &# 3$ ZW"?


 ?GD
TDI
ZL?

T?
?
T??
T??
T??
T

ްG
R? ? 0?
?G
P'd
Q?
?

P??
Q??
Q??
P??0?ݯG~ $ &# 3$ ZW"?2F~ $ &# 3$ ZW"?

M?GH
THlz ?
?#
 $t $-(
?_?G_
Y

f?G
Q
R9
QY?G?
T??G
Qz?G
Z
??G
Y
??G
Q??G
P
??G
R??G q??? t ?6%????? q????? t ?6%???
?G
R
?G?
\??
\??
\? ?
\? ?
\? ?
\


?G?????u???
P?????????? ?
T?? ? ?
T?? ??
T?? ???
?G?
]??
]??
]? ?
]? ?
]? ?
]




?G]0?? ? 0?? ?1???2?%?Gv
S?
?

S?
?

S??
S??s
???2???
S??
S? ?
S? ?
S
??G
P ?

T??
P??
T??
T??
T
?G
P?
V??
V??
V? ?
V? ?
V? ?
P? ?
V?G?
R??
R??
R?? |3$"#?? ?
R
?G?  ?? ? ?? ? ?
1?G
P|
U??
Uy?Gq?P
ZUv
Zv?
????q???
Z????
??G%
\?
?

\??G
Tp"#??
??7H
TH`p"#??
??



??G pp]W? pp]W#
? pp]W1?  pp]W?
ҴG4
V
޴G( 0ZW?
޴G(
V??G
U6??Yy???
?
????G
P<
R 0ZW??
? 0ZW???G7
S?
?

S?
?
0ZW?
?
S??
S
«G. 0ZW??? 0ZW?
«G.
S??
S?G0???G
P??G:
V?
?

P?
?
v?`??
?
V??
V
??G#1?M?
1??
?1???1???0?
??Gp? ?#
U??p? ????]W#? ???
V

??G#0???0???1?



?G ˽G
U?
U?˽G
T?
T???G'
U'?

S?
?

U?
? ?
U?

?G
T ?
????
?

T?
?
????
?
?
T??
? ???? ? ?
T?



?
??G2?
??G
U
T
??G0?
??G8?{?G
U
Q
{?G>?
{?G0?
{?G (V?
~?G
U 
Q
~?G8?a?G
U
Q
a?G>?
a?G0?
a?G 0V?
d?G
U 
Q
d?G8????G
U?
U???G
T?
T?
??G>?
??G u $ &?
U ?
U $ &?
??G t $ &? 
T
??G
P???G
U8
S8I?
U??G
S
P
??G
P

??Gȟ
??Gp0? $ &?
U

??G
T
??G
P???G)
U)*?
U?*.
U.<?
U??
??G1?
??G
T
??G0?
??G8?
??G ?]W?
??G1?


+?G=?Re=?i|=?


+?G | $ &?Re ?
U $ &?iw u $ &?w| | $ &?


+?G
TRe
Ti|0?


+?G
QRe0?i|0?


+?G8?Re8?i|8?


;?G
P??G
P??G
P?G
U?
U?m
S>B?
U??G
U?
U?>
S>B?
U?0?G
P
V
P?G 0?
P0
\c?G&
U&A
SAB?
U?B^
S??G
P!4
P??G
U?
U?>
S>B?
U???G
P
V
P??G 0?
P0
\??G>
U>B
]Bd?
U?dg
Ug?

]?
?
?
U??G:
T:[
V[d?
T?dk
Tk?

V?G*
Q*0
P0R
SR[?
Q0v0.(
?[d?
Q0?
T0.(
?d?

S?G>
R>]
\]d?
R?dk
Rk?

\\?G
P
]>J
PJM
])?GR
^RU?
T?
Q?U?

^N?G0?DH
PH[
_`?G
UN
VUX
UXx
Vx
T?
?
U??
?

V`?G
T9
]9L
^U\
T\|
]|
Q?
?
T??
?

]?
?

^?
?

]`?G
QP
\PU?
Q?U\
Q\z
\z
U?
?
Q??
?

\`?G60?U?
0??
?

S?
?
0?
?G
P?
9?G#
U#$?
U?$>
U>??
U?9?G#
U#$?
U?$>
U>??
U???G
P
S?G
Q??G#
U#n
Snov?~?op?
U?p?

S??G7
XKW
X
??G
V
??G0???G
P
??G?????

??G
V

??G0???G
P

??G
V?G'
U'a?
U?at
St{
U{?
?
U?V?G0?_c
Pcj
\???G
U?
U?*
U
??G
P
Q
P
Q
??GW?
??G
U
??G
P

??GT?

??G
U
?G
P??G
U?
U??G
T?
T?
?GR?
?G
U?G?
U?
?G
T
?G
P? ?G#
T#/tx?/:?
T?:D
TDW?
T?W]
T ?G'
R'/r?/:?
R?:D
RDW?
R?W]
Rq}?G?

U?
?
?
U?}?G?

T?
?
?
T?}?G?

Q?
?
?
Q???G
PS?G?

U?
?
?
U??G?

T?
?
?
T???G
PS??G?

U?
?
?
U???G?

T?
?
?
T??G
P?w?G
P??G
P
P
QB?G0?

X?G2?

X?G
\

X?G €?

X?G ?
?
o?G
P

{?G W?

{?G
\

??G 3?

??G s $ &?
U???G%
U%K
VKN?
U?NQ
UQa
Vad
Ud?

V?
?

U??G%
T%J
SJN?
T?N?

S?
?

T??G)0?2E0?TY
PY?

\?
?

P?
?

\,]H
U?
S???
U???
S]Hc
Tc???|]HZ
QZ??
Q??H{0?{?

P?
?
u??
?
??|??0?????|??0??H=
R=?
??|?
?

R?
?
??|?
?
R????|IHW
_?
?

P?
?

_?
?

_?H?

V?
?
V??G=
U=??
U???G=
T=??
T???G=
Q=??
Q???G=
R=??
R???G=
X=??
X?


??G@
^z?

^??
^??
^??
^???????
^? ?
^??
^
?G#
]? ? ???? ? ???? ?
U? ?
^? ?????? ??~? ? ???? ?
U???????
P?????????~???????
P???????
P????????????
P?????????~?????









??G)
T)B
]BP
SPTs?T?

S?
?

^?
?

S?
?s
???
S??s???
S??s
???
S??p???p???s
???
S??s
???
S??s???
S??s???
S??s???
S??s
???
S??s
???
S??
Q??
S??
Q??
S?? s
?? ?
S? ?
S??
^??
^






??G)0?)?
??~?
???~??1?????~??1?????~????~????~????~? ? ??~????~
??G0?&?
V??
V??
V??
V??
V??
V??
V??v '???
V

??G ru" )0?i?

Y??
Y??
_??
_

.?G
P ??~.00?????~??u????@????+(
?????~? ? ??~? ?
P? ?
Q? ?
P? ?
U? ?
P??
X????~? ?1??? ????
]??
R??
]??
X????~??
P??
X????~??
R????~

??G ????~"2
Q2???~????~????~????~

'?G0?
T>
P>{
T?
?

T?
?
T

??G
Pc
P?
?

P?
?

R?
?

P?
???~??G)0?)?
\? ?
\??
\


??G)0?)z
_z?

]?
?

_?
?
]??
]? ? 0?? ?
]? ?
_? ?
]??
_??0???
P??
]??
]??
_??
P??
P??
]??
P??
]??
_??
_



??G0?j
]? ?
]? ?
_? ?
]??1???
X??x???
X??GJ ??U??
? ??U???
U?? ??U?????~?? ??U?????~?? ??U?????~?? ??U?
??GD
Q?
?

Q??
Q??
Q??x???
Q??
Q??
Q? ?
Q? ?
Q? ?
Q??
X??
Q??
Q



??GJ0??
?0???2???0???1?????~??0?????~??
R??0?????~??0?
??G??l
_? ?
_? ? ??~? ?
P? ? ??~? ?
_????~????~
S?G
[
U>?%
]?%?%?
U??%?%
]??Gn?n?
??
?
?!?????????!???!???!???#???"???!???"???!???"???!? ? ?!? ? ?!??G>
T>?%??E??G>
Q>?
\???
Q???
\???
Q???
\??
\? ?
R? ?
\? ?
\? ?
R? ? ?
Q?? ?
\? ? ?
Q?? ?
\? ? ?
Q???
\??
^??|1| $0+(
???
\??
^??
\??
P??
\??
^??
\??
^??
\??
\??$
\?%?%
\??G>
R>???E????E??$??E?%?%??E



??G>
X>???E???
X??? ??E? ? ??E? ??
X?????E???
X?????E?? ?
X?? ???E????E?1?????E????E?2?????E



??Gi
Vipv|?p?
V??v|???
V??
Z??
V??
V



??G<
U<`u?`?

U?
?

U?
?

P?
?
p|??
?
P??
V??
T??
T??
T??
_??
Z??
^??
^??
_??
_



??G
Ss|?N
S??
S? ? s?? ?
S??
Q? ?
S? ?
S??
Q??
S??
S?Gp3$p"?v2&3$v2&"?
Uu??

U?
?
U??p3$p"???v2&3$v2&"???
U??u???
U


?G:?!
P&3
P?
?
:??
?

R?
?
R??
R??:???
P??
P??
R??
RK?G
P =p??w?EO
PVk
Pkmp?mz
P??
T??t???
T
n?G
\p?

\?
?
\??
\??
^?? 2???1???2???
^??
^??
^??
^






??G'
X2S
_S[p?[[
_?
?

_?
?
p??
?

P?
?
p
??
?

_?
?

P??GB ??U?B?
??E?
? ??U?????E??
P??%??E??GB1?B?
??E?
?1?????E????E??
S? ?
S? ?
P? ???E?#???!??E??G???E???
X????E???
X? ? ??E?? ?
X? ? ??E?? ?
X????E????E???
X????E???
X????E???
X????E???
X?? ??E?? ?
X? ? ??E?? ?!
X?!?!??E??!?!
X?!?!??E??!?"
X?"?#??E??#?#
X?#?$??E??$?%
T?%?%??E?




??G*
T*1t?1^??E^^
T^g??E?gi
Ti???E????E??
T??t???
P????E?G ??U?Z
Vr?
??U??
?

V
Py?
??E?@<$'??
?

P)?G
])?G??E)?G
V

??GE
Q`?

Q?
?
0???G?

R?
?

R??G
T
C?G 0? .
U5x
U}?
0???G
Pv{ $?O$.(
?P?G0
R?
?

RP?Gk|9#
??
?
|9#
?b?G 1r$1q?  1r$1t?1r$1p|????G
QA
YAz
Qz?

Y?
?

Q?
?
Y

??G-???@-R???@Rf?!x?
?"?
?
?!?
?
???@?
?
?!?
??"D?G?!OQ?!QU?"UW?!




??G
U *
P*2p?2=
PLS
Uin
Pnw??E?w?

U
v?G0~???????
?

T
v?G0
U?
?

R
v?G"
T+0
T?
?

T
??G
]-E
]
??G
U->
U
??G ?u ?-> ?u ?

??G
T 
P%p?%4
PPU
P??G]~???????
?

R??G]
T?
?
??E??
?

T??GB
RJ]
R?
?

R
 ?G
]#R
]
 ?G+xt0??E#?????????
t#?????????
,(
t"?#K+xt0??E#?????????
t#?????????
,(
t"?
 ?G| $9 $-(
 $ &?#R| $9 $-(
 $ &?



??G
U2
Q22
U2;??E?;=
U=I
QIQq?Q\
Q?
?

Q?
?

X?
?

X?
???E??G???????
?

T?
?
????????G
U?
?

R?
?

U??G
T?
?

T?
?

Tp?G
Q 
Q
U6??E1?p?G1? 61??G| $ &r-(
??
?
| $ &r-(
??
?| $ &??E-(
?
??G6 ??U?
??G61???G
RVuuu $0*(
 $ &???G
XV
T??GG
ROV
R?G4
]?G40??G4??E?G4??E?G ??E?@<$'? /
P/4 ??E?@<$'???G
]0
]??G ?0 ???G
P/
P/0??E??G
R/
R/0??E??G??E0??E??G
])
])J
]??G ??E)??E)J??E??G ??E? $ &?)??E? $ &?)0??E? $ &?
j?G,
]
j?G, ??U?
j?G,1?w?G
]w?G 0?w?G
Q | ?w?G 9?w?G 0??G
]@T
]?G0?@T0??G
Q@Q
QQT|??GB?@TB??G0?@T0??G
]Of
]?G??EOf??E?G???E ?Of???E ??G
]_v
]?G ?_v ??G??E_v??E?G??E_v??E?G ??E? '?_v ??E? '???G
T??
T???G
Q4
P48?
Q?8Z
PZ^?
Q?^?

P?
?
?
Q??
?

P?
?
?
Q??
?

P?
?
?
Q??
?

P?
?
?
Q??
?
P???
Q???
P?G+
U+y
Vy~?
U?~?

V?G2
T2?
?
T??G
Q?
?
Q??G
R 8
\8x
S~?

S
?G?
??"?
8?G
]4
]
8?G
?4
?l?G
V!
Vl?G
]!
]l?G|8%?|" $ &?!|8%?|" $ &?U
?H#
U#?
?
U??H
T?
?
T??H
Q y
Yy?
?
Q??H*
R*y
Qy?
?
R?H(
U(]
V]d?
U?d?

VH
Tc
^cd?
T?d?

^H:
Q:_
\_d
Pdg
Qg?

\-HI
]L?

]JH
S
P'
S/O
SOY
PYk
Sg7H
U?
U?7H
T
Q?
T?7H
Q
R?
Q?
?H
UB
XBK?
U??HB
TBK?
T??HB
QBK?
Q?GH-
U-t
Vt}?
U?GH
Tx
]x}?
T?GH
QQ
_Qs
Ss}
PqH*
^*1
T
qH
Q
S??'
S}H%
P#H
U?
U??H
U?
U?H
T?
T?H
Q?
Q?H
R 
X?
R?H

U
?
U?H

T
?
T?H

Q
?
Q?=
?H
U ?
U??H
T ?
T??H
U ?
U??H
T ?
T??H
U ?
U??H
T ?
T?'H%
U%]
S]o?
U?'H
T j
Vjo?
T?'H2
Q2l
\lo?
Q?jH,?!
jH,??}??~??"??Hp
Up?
?
U??
?

UH
T?

TH
Q q??

Q?
?

Q?
?

Q?
?

QH
Um
R?
?

P?
?

P?
?

P
MH
R#\
RMH
Y#?

Y{H
UD?
U?H
TD?
T?H$
Q$>
QAD
QHD
UHD
TIDH
U%
S%'
PDH
T&
V&'?
T?TkH
U?
U?kH
T
S ?
T?sH
P?
?H
U"
S"$s?$,
S1V
S?
?

S



?H
T(t??(1?
T??1Vt??V?
?
T?? H+
S+-sx??Hr
X
?H
T?
T??H
Sv` H
U 0up"?06pu"1?8;up"?` H
T 0tp"?06pt"1?8;tp"?B? H
U
S 
P? H
T?
T??? H
U -
S-2
T23?
U?3:
S:<?
U?? H
P v? $q?%-v?? H
P
PE H
U5
PXl
P Hm
U5 H#
P?? H
Uw
Z? H
Qq?
Q@jqr?joqr#
?swqr?
? H
U=gzr"?glzr"1?ptzr"?
? H
T=gtr"?glrt"1?pttr"?]? H
U
S 
P? H
T?
T?? H
Q?
Q?bH
U,
V,-?
U?H
T 
Q+
S+-?
T?H
PB2H
U
S
P2H
T?
T?j`H`
U`k
Plq
Uq?

P?
?

U

`HP
TP^t?^?

T`H?

U?`H
U
P?
U?j
Pku
Pup??
?

P?
?
p~??
?
P??p}?`H
T
S?
T?f
Sfj
Tjk?
T?k?
S


?H
P p?4
P49p
??H+
T?H
Q'
Q

H
P %p~?%V
PV[p? H?
R)H!
Q$6
Q

_H
Pp}?;
P;@p?mH
Q 2
Q@Hq
U?
?

V?
?

U?
?
V??
^@H
T
S?
?
T??
?
S

 H(
V(<
P
P#gH
U ?
U?A

*H
U

*H ????3H
P

:H%
U

:H%1?

:H1?%??
:Hʟ
:H
U
:H??
:H1?
OH
P
UH ʟ
UH
U
UH 1?wH
R(
R
?H
P
P
Q-
R-X
QX_
X_t
Qt?

X
?H
P

?H
U

?H
R?H
P

?H r????x?
?H
P
H
U
H
X
H1???
H ʟ
H
U
H ??
H
Q
H 0?
H
P
Hʟ
H
U
H0?
H
Q
?H
U
?H
Q?H
P
?H
X?Hq????x?

{H
U

{H0??H
P

{H ?
?
?H
U
?H1??H
X?
zH
U?
U?zH
T?
T?zH
Q?
Q?zH
R?
R?zH
X?
X?zH
Y?
Y?`H
U 
P?
U?`H
T
U`H
Q
T`H
R
Q`H
X
Z`H
Y
X
cH
U
P?
U?
iH
T
U
oH
Q
T
wH
RyH
Q
wH?
yH
P#?H
U?
U???H
U?

S?
?
?
U??H
T?

V?
?
?
T??H
P?H
P:E
P
?H. ??
H
SH
P
H ???Hs?
!Hs??
1H3
U3H1
Q:H
P q????#
P#$ q????$)
P)* q????
KH
U
KH
QQH
P
KH
R?
jH
R9
R?
?H
U
?H
T
?H
Q
?H 8?
?H
P?
?H
Ux
Vxy?
U??H
Tw
Swy?
T?
?H
P+
PCN
PQT
P?H
P

?H ?

?H v $ &?
U

?H
S
H
P

H`?

H
S

H0??H
U@
S@B
UBC?
U?CM
SMO?
U??H
TA
VAB
TBC?
T?CN
VNO?
T??H
P!
Q".
Q
?H
P!
Q".
Q
?H ?SW??H ?H?
?H
P
Q#UH
U ?
U?#bH
U?
U?mnH
U>?
U?nH
T.
S./?
T?/>
S

?H?
U?

?H
S#?H
U?
U?S?H
U ^
V^_?
U?_n
V?H<
TE
PV[
P
M$H $
?
M$H u $ &?
M$H x $ &?
U$H
P

m$H!?

m$H u $ &?

m$H x $ &?
x$H
P

?$HH?

?$H ?
T $ &?

?$H2?

?$H1???$H
UJ
SL`
U`z
S?$H
TLX
TX`?
T?`d
Tdm?
T??$H?_<|KPsPt|?$H
P?C
P?$H0?
Q>d
^
?/H(
PDK
QKz
P?
?
0??
?

P?
?

P!0H'
T?0H?0???
Q??
Y??
Q??
Y??0???
Y?? 0??0H?1???
R??1???
R?? 1?T3Hq{?
Q t{?u2$?" @ ?{?#2H
P"| ?????2$?" @ "$
P$W| ?????2$?" @ ??
P??| ?????2$?" @ ??
P??| ?????2$?" @ ?(H%
U%\
]\`
U`?
]???
U??(H%
T%\
V\`
T`?

V?
?
?
T??
?

V?
?
?
T??
?

V?
??
T?
 )H
Q-C
Q?
?

P?
?
p?
???
?

P?
?p?
????
P??
S??p?
????
S?)HL
V?)H?

V
?(H-0?Z\q $?N$)??\f0??
?
0?^?@H2
U2?

S?
?
?
U??
?

S?@HS
P?@Hk
Vl?

V?
?AH3
U3A
^AD?
U?DI
UI?
^?AH3
T3?
]?D?
T?Dg
Tg?
]
?AH0?3
PDY
Peg0?g?

R??0???
S
?AH?

U?AH`
Q
?AH0?
?AH ??SBH?
_?BH
XSBH=
Q?}
QSBH
R!N
R?BH/
T?
?

Q?BH"u ? ???";s1$x"? ? ????
?
u ????
?
u ? ?????DH
U?
U?
?DH
P?CH|
U|?
?
U??
?

U?
?
?
U??
?

U?
?
?
U??CH?

T?
?
?
T??CH?

X?
?
?
U@&?
?CH?

R?
?

R?
?
0??DH
Pp?+
P?DH
U\
]\c
Uc?
]???
U??DH
T\
V\g
Tgk
Vkz
Pz?

V?
?

P?
?

V?
?

P?
?

VFH
\!>
\?DH?0???
P??
\??0???
P??
\??
P??
\??0??DH?0???0???
P??
_??
T?FH
\%*
P*?

\?FHW
^
EH0?>
S?
?
S?EH1?2?0?.GH
P:
^?DH
U$
S$%?
U??DH
T%?
T??DH0?
P?
?GHC
UC?

S?
?

U?
??
U???
S??
U???
U???
S??
S??
V??
S??
V??
S?GHA
TA?

\?
?
T???
T???
\??
T??
\???
T???
\?HHS
Ve?
V??
V??
V??
V??
V?HH"q????q????q???JH
PIH
X1X
X??
X??
XIH
Q1?

Q??
Q??
U??
Q??
U1IH?
}s??
?}s???}s?1IH?

R?
?

R?
?qs???
R??qs???
R
?IH
P%
V??
U??v??up?WJH3
^?
?
^WJH!
_!3 |~"#? ????
_????? |~"#? ??
xJH
V??
V
xJH
U??
U
xJH
\??
\

xJH
_ 5???|???
_

?GH
T??
T??
\?GH
U?

S?
?
S??
S??
S?GH?

Q?
?
Q??
Q??
Q?GH?

U?
?
U??
U??
UHH
Rpp?sq4$ $ &@??
?
sq4$ $ &@???sq4$ $ &@???sq4$ $ &@?
HH
V?
?

V??
V??
V%HHv??
PZv??p?
v????v????v??
?GH
U
S?HH
S??
S??
S?HH+
V??
V??
V
IH
S??
S
IH
Q??
QIHp??
P??p????
P1IH
\
P?

U?
?

P?
?
u4%?

?IHp2$??
u2%u1%!u!2%u1%!u2%u1%!u!2%u1%!4%!u2%u1%!u!2%u1%!u2%u1%!u!2%u1%!4%!8%!#
u2%u1%!u!2% u1% u2%u1%!u!2%u1%!4% u2%u1%!u!2%u1%!u2%u1%!u!2%u1%!4%!8% )?kK%????? V"?
8$8&12$?x?
NIH
U
X3
P33p
??IHp
?JH*
S,:
SJH*
Q,:
QJH*
\,:
\

JHr|?
R,8
R8:5?, LH0t ???
 LH0
R?uLHA?Fy?y?
?!uLHA
UAF?
U?Fx
Ux?
?X
?LHp ? ???
Q,q???,1 ?? ? ???1cp ? ???cp ?? ? ???
?LH
a8??*?8@
a@F??*?FJu $ &4$?*?*?Tf
af?
??*?







?LH
U u?x? &u?p?&0
U08?
U ??8@
UTf
Ufy
Pyu???

U?
?
?
U#??
@MHu $ &4$???LHS
aT?

a??MH?)?")5?!5;?";=?!Qa?!ah?hw?"w?
?!







?MH
U'
P')u???)5u??~?5A
PQ[
U[f
Pfh
Uhu
Puwu???w?
u??
?"NH??!1NH??!NH
P?
$NH#
U#;?
U?;?
U?O?
U?Ob
Ubu??u?
p??
?
??$NH#
T#;?
T?;?
T?O?
T?Ob
Tbu??u?
p??
?
??$NH#
Q#;?
Q?;?
Q?O?
Q?Ob
Qbu??u?
p??
?
??$NH#
R#5
V5;?
R?;?
R?O?
R?Ob
Rb?

V
$NH#0?;?
0?

GNH I?
GNH
U

GNH
T

GNH
Q

GNH v $ &?
Z
TNH
PL?NH
U?
U?
U?NH
T?
T?
T?
?OH
S

?OH9?
?OH
P?NH
U?
U?
U ?
?
U?
?NHY
Qhs
Q
?NH
Q
?NHڟ
OH
PXOH0??]SH
U?
]???
U???
]]SH-
T-?
_???
T???
_]SH9
Q9?
^???
Q???
^]SH9
R9S
SS??
R???
S??
P???
R?]SH9
X9}
\}?
??T?
??
X???
\???
X?]SH9
Y9`
V`?
??T?
??
Y???
V???
Y?.TH
P9
S?
?

S?OH@
U@Y
QY???}

"PH1??

S?
?
S
PH
Q???}
PH?
_??
_????}??
_??
_??
PPH
R???}
PH?
\SH
P?PH
P-
X?
?
X??
X?QH
P/x/4
P4^x|?

P?
?
??}?
?

U??
P
?QH ?
?QH
^
?QH
P

?QH3?

'RH2?

'RHx$?
U

'RHx? ?! $ &?

'RHx ??????
Q
?RH
P
URH
P ??}
U
URH
Q
XRH!?
XRH
U
XRH q $ &?
T
`RH
P

?QH 3?

?QHx? $ &?
U
?QH
Px
?QH
Q
?QH!?
?QH p $ &?x? $ &?
?QH q $ &?
T
?QH
P

?QHH?

?QH p $ &?x? $ &?

?QH1?
RH
P

RHH?

RHx? $ &?

RH2?

RHp ? $ &? ??}? ? $ &? 
Q
RH
P

nRH3?

nRH
UuRH P?uRHx$?
U
?RHQ?
?RHx? $ &?
U
?RH
P
}QH
P
uQH1?
uQH
T
uQH4?
}QH
P
?PHp?
?PH
P

QHm?

QH0?

QH|? $ &?
T
QH
P

#QH h?
-QH
P

-QHj?

-QH
P
U
4QH
P
ZH ʟ
>ZH
U
>ZH ??
>ZH
Q
>ZH 0?
KZH
P
QZH ʟ
QZH
U
QZH 0?
QZH
Q
ZH
U
ZH
P
R
P
ZHp@J$!?r@J$!?V?ZH
Un
Sno?
U??ZH
T8?
T?8<
T
R?wH
P>
P?@xH
U%
V,1
U1_
V_?

P?
?

V

@xH
T*
S,P
SP]s?]?

SDxH
U'
V'(?
U?(-
U-?

V??xH
U?

\?
?
?
U??
?

\?xH
TX
SX?
?
T??
?

S


?xH
QM
VMS v???~?S\
V\?
?
Q???~??
?

V?xH
P%q??@E
QEPq?P?

Q?
?

Y?
?

Q?
?
>?@?H
P
T"tu ?$ ?%????H?

U?
?
S???
U???H?

T?
?
]???
T???HE
QE?????H?

U?
?
S???
U???Hu?#?????

??H?
0??
?
???
?

^?
?????H8% ?8$?@$!H%!H$!?]`
_b?
_??H|8% ?|8$?@$!|H%!|H$!?XZ
\Z???

??HX??X????2%?٘Hu8% ?u8$?@$!uH%!uH$!?W?H
P3
TR?H
P=W
P?
?

P?Hq8% ?q8$?@$!qH%!qH$!??H
P$
U??H
Q?H???2%v"#
????2$s"ɘH
UӗH"
_??Hu??Huy7?H
U ?

Y?
?
Y7?Hv
Tv?
?
T??
?

T?
?
?
T??
?

T?
?
t??
?

T?
??
T?




7?H
Qp
Pptp?tx
X?
?

P?
?
?
Q??
?

P?
?
?
Q??
?

P?
?
?
Q??
?

X?
?

P?
?

X?
?
x
??
?
X7?H
R?

U?
?
?
R?iW?
R0.(
??
?
UT?H!
Q!SuSj
Q?
?
u?
?

Q?
?

Q?
?
rq!??
?
Q

7?Hc
Tcvt
??
?

T?
?

T?
?
t
??
?

T?
?
TA?H
Q u
Puw?
Q?wy
Py?
?
Q??
?

P?
?
?
Q??
?

P?
?
?
Q??
?
P???
Q?
??H
RZ










t?Ha
Uaq?
U?q?

Q?
?

Q?
?
q
??
?

Q?
?
q
??
?
q??
?

Q?
?
q
??
?
q??
?q???
Q??
U

t?Ha
Taq?
T?q?

P?
?
?
T??
?

P?
?

T?
?

P?
?

T?
?

P?
?

T?
?

U?
?

R?
??
T???
P??
Tt?H
Q??
Q?
??H
R???H
U?
U???H
T?
T???H
Q?
Q?
??H;?
??H
U??H?
U?
??H
T
??H
Q
??H
P???H
U?
U?#
U#-?
U???H
T
Q?
T?'
T'-?
T?
??H
U?
U?
??H
T?
T?X?H3
SśH
UD
SDE
UEF?
U?FN
SNO?
U?OP
U?V?Hu $ &2$ V" 2t $0.u $@L$+??Q
u $ &2$ V"?"? $,t $0.u $@L$+??Q
u2$ V"?"?bz?H
U?
U?
z?HF?
z?H
U??H?
U?
??H
Pq@#@
??H
?G 6?G;?GM?GR?G!s?Gx?G??G??G??G??G??GřG$#?G ?G:#L?G#?Gkl?G!!)+?GGL??G
??G
??G?{?G-??G2ڜG2--?G?GFR?GT?G`??GG,?GJ-?GT?G d?G ?G?
'??G
??G0@@$?G  ĞG?
P?G0#??G ??G'??G??G??G??GJN?G?
?
?W?G?
?
?
?G#qȟG???G??G/2?G!N?
ԡG?G?
?Gzq?G?
?
?
?
???ɣGJ]?G?
?
?
??G9?
?
?G?X?G]?G?
i?GͦG5???G Ncx?
?
?
?
#?G#'PP??G"/??G)<?
?
????G'y?
?
?
??Z?G?
????G?
???G ըG=?
??G1?
?
??G?Gb?G,?
?
??G0Z_?GKV*?G b?G?
`?G??G??d?G5u?G??G>??«G.????GV`e?GJ??G#*5???G ????®G ?????G?
?
??V?G?
?????G ??G6???G??????? ? ? ? ??? ? ???GDg???????G%)9?
?
??G $W?
(?G??4?G??޴G(?G??????GyEJ?
?
??G|?G
}?G?
&L?G#B?G7y?G
z?G-??G??G"K?G?
?
??G;?
??G
??G
??G???G???G/'a?G{?G??G#??G ??G3??G??G??GIL??G+?GRei|?G%?G???G?
?G?
#??G??G*#?G?G ?G]}?G?
?G?
??G?
$??G%?G?
??G?
?F?G &l?G#??G.??????? ? ? ???`?Gs?
?
?Gay?
??5?Gp?
N?Ghhmzp?G?? p?G??0?GPu??G$'*.1Q\?
?
?
?
???G?
?
??G?
?
??
?G?
?
?
??G %?
??? ?G ?
?
????G??????G????f?G4J???G?
?
???G?
??Gf?
??G0??G ))05JG?G ????G?G ????????G?
?
?
?
?G?
?
?
?
?
???G=`?G  ?
?
?
`?G  F?
?
?
?
??G07:dj?GVq?GO?
?
?q?GO?
?
?
 ?G##/14R?G@T?GOOY\_f?G_vS?Gd??G????G ????????G ??????G??????b?G%?
?
:?G(WI
HHsO
HB??G??G?
??G?%??G?]H?H?
?H?
7HGH}?HKHHH1'Ho?H?H?H (-H 6S?
H?
HDDH'kH?H?
` H>? H? H< Hm? Hw? HH-2H`H?
/ H w@H?`H?$?H &&?H?
gH a?H*?H((O?H0O?H3@pH?
#H=3cH `HzH'H?H?H?H$?H).?H?
1H3)?H dHr?H?H6H
HHr-?H ?HO?HyUH bHnH>?H?Hn&H?
 H"??HHVWQH=>?
?H:HI?H)??????+H?H??H?q#H?#H$?#HE?#H?#H=4G$Hh$H/$H?
?$H?
G%HO%H<#?%H?%H?%H.92(Hp?%H?
R&H?&H?#?(H ?(H?{-H/???/H?
?
?
?
?
?/H '0lu?
2Hi????3H?
?
?\6H???9H.3?
?
? ?(H??*H?6H?t@H:?@H?
6SBHN?BH<?
?
?AH??CH?
?DH/?FH?
?DH%?DH?
?GH?????GH?
?
??????GH?HH ?????HH+????IH?
?
??1IH?
?
?
?
?
NIHQ?IHJH"**:WJH3?
?xJH?????????GH??KHM9LH FLH/uLH?
?LH?
?MH?
NHNH.GNH #NH
$NH?
?NH{?NH`gn?NH?NHXOH ?OH ?NH
?NH?
tOHH@
?PH-?
????PH?
?
?PH?
?
?PH???????PH?????PH?????QH  ?QH?QHRH uRH ~RH77;BQHjQH?RH?OH?]SH?UHUHUH.UHJxUHb#?UH?UH?UH?VH?
?
????VH  VH?W XHeXHYH YH?WH?7YH?
nZH%ZH6XZH9FfZH |ZH&?YH?
cZH@?ZHo-![H [H[H#$x[H8[H?
\H+\H?
?
?
?
\H?
##]H ]HU[]Hg?]H?]HN^H^H9S^H&^-eHUll?
"iHl ߻@ju ??@E? I?@u? ??@>? ??@?? ?@J? V?A?? A?@?? ??@? $?@?? ??@y?
;W(
? ??@?? R?@? >?Ah
 ?@? ??@l) ??A?6 ??@*G ?@
V B?ADe ?@
s  ?@?? ??@q? n?@?? ?@?? ?A?? ??@
? ??@?? ??@?? ?ACPAM]TA!
huAHo?AXx A?
?? A??UA=??A??nA??6 A??? A#
?Ah?nA3??A:??A>?A???AQ
7A(
D0Bf_A#
+O?A09?AC?AL?AV?A?c$A7pEA??A???Aa??A??}A
??Ac??AX?OA???A???A??_As
??A:
?A?
??U ?AL
?A?#? A"/C$A?AY?A=O%A?\?%AXh#&AM
tp'AT??'A??f(A6??(A5? ?(A/?)A/?/)A???)A;?!*A=?^*A>??*A1??*AG
?,A
!-A*K-A;"?-AV+.A]:`.AbC?.AJ
R0A?b?0A?mL1A`{?1A???2A
??3A??_4AG??4A/??4A
??5A???6A???7A??Y8A
?p9At??9A7
;A=X;A?$A?Rl?A?
]?@A@
j3BAmv?BAk
?DA?%FAL?qFAM?JsA-??FA??IGAZ@/YA+??GA:
??HA??lIA??MJA7?e?JA??KA?
??LAO??LA
?NAE
?[OAt?OA?
?QA?iRA?
?SA*?UAV3JVAT
?c
@?H*=?WA?
?ZYAnE?YA?
T}[A?
?`]Am_?]A?h?^Aor._A???_A??R`A??IaAo
??bA\?cA???cA?
?
??U?
??U?KeA\
??fA?
?lhA??jiA?
?UkA?? lA??lA??mAY$nA?
,?oAv.FpA?7?pA?@?qAs
HwuA
Q?vA?]fyA1g?yA?sMzA???zA4? {A>t?|AW??|A~?n}A1
???A??Z?Aa
??A?
???AY??AQ
?e?AQ؏A???A!?A*1?A?
??A?5i?A?
E??ATKS?A\R??A?:^?A?
X?A?
i??Amq??A?~??AF?ƑA????AV???A???A>?A?A???AF?*?A\???AJ?ДAx?H?A? ??A???A?*\?A?6?A?E?B?S??A?b?B?l"?AJ}?A????A??s?Aw??A
?!B.??A????Au?&?A??9?A^???A?
??U
?A
?LB? ^LB?*NBR6??AP
?pMB?I?AcT ?A?b?AVho?A?s=?A?
{?A?G?A???A????A???FB~?R?A;???AD?ѸA??Z?AQ?
0?H ?
@??ABH
??HS
иH]??A?et?A?q0?A????Av?\?Ac
?2?A9?k?A<???A~?%?A'?L?A??1?A?
??A????Am??A???AU??Ay!f?A?-B??>B???By+ @Bh9u@B{I?@BhX?EB?b?JB?
nXNB?
z
JW????BI?.?B
?5?BRK???B??=F?Bl?u?B
???B;??C='?C-??C
?9 C??)C8?{Cg
??"C?

(?U?$C9
?%C3
(+'C=
5h(C??k.C:?'7CWI18C
SE9C)Y
?W ? ?nC?? woCZ? ?oC[!,pC3!_pC?"!
?>W?+!
0?W??qCi3!?qC$B!#rCER!hrC?b!?rC?r!~sC??!tCS?!YtC??!?tC@?!?tC<?!uCf?!zuC??!ezC?!x|C?
?!2~C??!?~C?!
C0"1C? "?CZ"#?C?)""?C?/"
@MW(>"?Cs<"_?C?G"?C?
R"̄C~
]"J?C?
f"͇C?s"
@?W
y" ?C??"??C??"%?Cv?"??Cb?"??CN?"K?CO?"??C&ے??CH?"?CT?"\?CY?"??C<?"?C??"t?C??"J?CF?"??C8
?"ȏCS#?C| #??C?#H?C+#s?C+)#??C?3#r?C?
?#W?C0G#??CG
P#ΓCsV#A?CS\#??CZg#?C1s#?CR|#q?C?
?#?C??#?C?2ŚCAhv?C;?#A?C1?#??C?
O??C;?#?CG?#'?C
?#
?MW ?#
??U?#0?C??#
?MW ?#
??U?#עCG?#?C=?#
`@W?$
AW?
$
?AWP $[?C?$??C` $U?C?.$??C?7$R?CI@$??CII$?CIR$-?CI\$v?CIf$??C?p$??C?{$ШC??$]?Cy?$֩Cy?$O?C-
?$|?C??$y?CI?$¬C\?$?C3
?$Q?CI?$??CF?$?CF?$&?C??$??C??$X?C|%԰C%?C?%ȱCS%?C?%òC?
(%M?C?0%?C?@%
BW0J%??CxV%
@BW?
^%
DWd%5?Cs%@?C0}%p?C1?%??CN?%?C?%??Ci?%`?C??%??Cu?%t?C??%_?C??%?CG?%d?C??%?C??%??C?
?%??C??%??C?& ?C?&??C?&G?C
&&S?C?1&??C0
@&?C?Q&??C$\&??C?
g&
DW?p&
?DW y&|?C??&
?MW(?&:?C??&]?Cw?&??CN?&"?Cp?&??C??&#?CC?&f?CC?V??CK?&??CD?&8?C'
'_?CZWH??CT
S? ?C?'??C*'%?C?#'??C?
+'??Cf7'?C?D'
NW8O'
??UU'??C?]'
?DW?d'??Cal'??CLv'>?Cr?'??C??'??C??'??C??'??C??'|?Cu?'??CU
?'F?C-
?'s?C??' ?C
?'2?C??'??C
N??Cj?']?C&?'??C&?'??C&?'??C&(??C&(?C&(A?C&%(g?C&/(
?EW?A(??C?O(F?Cr`(??C?i(??C=
u(??C??(??C??(??C??(b?C???C;?(??Cn?(c?C??(5?C??(??C??(??C??(|?C5
?(??C?)2?C?)??Ct!)/?Cg)??C+)??Cu8)?CA)=?CK)\?C?V)7DJ
])?
Dc)?D?
m)D?v)?D??)fD5
?)?D?
?)[D<?)?D??)ID??)?D??)zD:?)
?HEg?D!?)?D??)\D??)?D4?)D?
*?DC
3*D?*Dz*?D?$*y&DJ
1*?'DG
;* )DWF*
FW
M*a-D?]*?.DEh*?.D?q*?/D?y*?0D6
?*?1D
?*?2DF?*5D??*?5D?
?*=7D??*?7D"
?*9D=?*@9D??*:DV
?*];DC?*?;D???=>D??*
@GW??*l?D>?*??D&
?*
?U+?@D?
+?BD+?DDt+ED?"+?ED-+HD8
6+LIDE+kIDQ+?ID??*
?GWp\+
`HW?d+?D??+
@?U??+
?XW?+
?XW?+B?E??+
 PW?+??E??+??EA?+r?E?+}?E!,
F ,-Fg,?F?*,&F?7,?F
B,?FX, F?e,? F?v,?F)?,?F??,nF??,gF
??F?
?,
??U?,hF. ??F?4??!F??,3 F?
?,?%F??,?)FT?,#*F?-v+F&-?+F?--8,F??--FO--F
b-?6F?y-?AF`?-LBFr?-?BF0
?-ZJF?-rJF??-
??U
?-???-???-???-???-??.??.??.??!.??+.?????G
?.??G
҃{?G-F.??G2].??p.??y.???.???.
??Uz?.
??U
?.???.???6???.???.???.???.???.?????G?.??/
@NW`/???8
`YW?/??%/????ԡG./??5/??C/?Gh?

ZWS/
ZWY/
ZW_/
?YWe/
?YWq/]?G./???/b?G??/`?G?:/???/??Gi ?/
`V ?/
?V?/
?V?/???/???/???/???|?G
?/???/???y?G
0??oF
?]W 0?????G
0??G
0
?NWP)0
 V70??@0??J0??R0
0V[0
(Vd0??k0??s0??ef
?]W0
?]W?0???0???0???0???0???9???0???0???T?G
?0???0???0???
?]W?0???0???1??
1?? 1??G?1??1??&1??01??81??@1??5??I1??G?V1???Q
?]W\1
^W?1??1??e1??n1??w1???1??2??2???1???8
^W?1???8
^W?1???8
@bW?1???1???1???1??Gt
?1?G??1??G??1
V?1??G??1
 V?
?1???1H?2??2??2GH}$2??+2??62HB2??K2'HoR2??[2??d2??m2??v2???2???2???2???2???2???2???2???2???2???2???2@H ?2???2??3??3??3`H"3???

`fW8-3??E3??b3??}3???3???3???3???H
?3???3???3?HO?3
?SW?3?? 4??4
?fW84??#4??4
?fW8/4??=4??9??F4??Q4+H?
4??a4???6????#Hi4??p4??y4???4???4??9???4???4???4?&H?
?4
gW0?4
`gWP
?4???4???4?(H?
?4?*H|?4
?V ?4
?V 5
?V5??5??#5??.5
@V<
55
V@5
VJ5??W5
? VH_5
?hW?/???/
? V j5??z5???5???5???5uLH??5???5???5???5???5???#NH
?5???5????NH
?5???5?OH??5??6??06??K6??k6???6???6???6???6???6???6???6???6???[H?6???6??7??7??/7??:7??F7??P7??Z7??d7?^H?j7?? ?mH{r7nH?w7?nH7???7???7???7???7???7???
?hW?7???7???7??8??8??,8??;8
(VK8??Z8??a8?H
h8 ?H2
p8`?H?x8?H*
?8@?H`?8
?SW?8
0iW?8
@iW?8
`iW?8
iW?8
?SW?8
iW?8
xiW?8
tiW?8
@V6?N
(iW?
iW?8
iW?8
iW?8
iW?

?hW?8??H ?8
?hW 9??9???9??&9??.9???6??69??7?
?V

@9??M9??[9??f9
?Vo9??y9
?iW?9???9???9???9???9???9śHP?9
?iW?9???9
 V0?9??:???? :
?#W??: ;W,: ?:W?:?:WP:
?OWf:?:Wy:?%B?
?:"R?G?:??EP?G?Gt"?vH??:?&@d?:?fGv;@PW;Z&E?2;? C?A;V?H$??"?Hyq??FqQ;gqEdu;kF5
?;{?F??;%?G?
?;Z5F0
?;?F&?;??E
<? H<?mE"<1?E?
3<?XGE>??G+>r{HF>! VW>?KD_r>?{DA
?>??G/?>?G??>??E@?>ŀD??>??BB?"%?G??>?E????B8???DQ??F
{EP?D7?EK{A??E?rE??E?DR?E?F??E?H?Ey?D?F?lFv
:FdC^
CF?M@J[Fq?F?tF?eE??F! V?F??F??F?xH??W}?G??F6 G??Fk?D?
?F? CEGx>E0'G?PJF?P??F??P+7G{

Q??F?
Q?@C?+Qq?B+?9?G?6Q?8EpQQupEmzQE`?Q?Hn?Q??BR?QP?E<?Q ?F??Q?H?Q"|?G
?Q?UH?Qx?G?Qe1Fb?# ?G]R?8G?R?SW*R+CC?9R??B@FRk?F?TR STW
kR?4Cw{R7oF??R??G?R?wDv?R?8FD?R#H=?PͰF??RE?S?D?SO%H<!S-?B?0S?@2FS+cD(aS??B?lSC?}S0?GD?Sb?F???>?G??S?5CX?S?KG??SrEF+?S?ZHo?S?GxT^?E?T??Dq7T??DHUT{CjaT ?DnTGC
?T7?H)
?Tb?Er z֞F$?TOG??T?Ev?T?lE?T??BE U 4@OU??G'U?@
9U?dG$WU?
G?
xU0?Ev
?U??G?U?GB?Uc0GR
?U?"E?U??EA?R"??G?U?;C*?U"`H?P"]?G?U?C@'???G*(V ?XWh/V]SH?
;V? C=HV?Fd
`V?{AqV^nEm?V?D??V??E??V?~E
/??%H.?V1H3W??E?7W?HEWo4@ YW?]D`
?W?=F
?W?C??W E?
?WuHy?WH??W?H??W??E_X?@_X?|DG
7Xl?E[x?*GD]X?C?oX?3@h?XҳE
?X_?D??X??DW?XFSC??XȸE? Y?FF-YrvH#Y?%E?sr??F
7Y&'EfNYdF??Y??D??YՁF
?Y?H?YLaGK?YF?E?Z~uHvZPW#Z?G?8Z+?EAPZ??F[
sZ?J@??ZibEH?Z?E9
?ZNaEy?Z VH?
?Z?F?Hi"H[??F? [??EO
C[W?B?S[?K@?k[O?F`
[R?G!?[?hF/?["??G
?[?NH?[B?D ?[hPW?[?FCA \?{H_"dHr\d?FW2\?RD?L\8?EHi\?:E9
?W"H?x\?%Hs?"6?G~\?C@=?\?1G??\?RCm?\5?BX?\?G_
?\#?Gk?\?QW ]?^E?2]??D?]](xD7
}]7?B
?]rQ@??]??E??]??EI
?]R&H?]"~uHv^N?Bd^N?DI7^",?G(I^?G?
Y^?,@c
v^3C
?^?)@?
?^?D??^{SE??^?V0?^\H?^?FG? _dHr%_43FE?"??G?_.?Ds[_?#@v_?zH{?_??GK
?_҅AA
?_A?F??_?{H%?_?&@??y! gW?_?PW`
E?&`4?D?D`?hE?j`??B+v` HTW?`?fEz?`??F??`?YH??`?@T?Z *GD?`?G??`??D#aPPW?JtOHH:a?{HBa~?E_]a/?D
ra?G?{a??B_?a E8
?a?D??a?nE??a?SD
?aOCl??.?FvbΌD?bW?F?,bONF?9by/C
Db??D?ab?H?rb??F??bV?F

?b?F
?b
C?
?b"??G?*$Gx?"ǐH?b??Ev?b?E?c?GHcc?ED8c?CH?Hc-O@.`cEj?d??E4?dY?F("ey7@?T???F$6eeF&Be5?B^
Sel?B?\eTwFe?P?FA
we?3F<?e??F

?e?.En?e?G??e'GC? >"??G?e?Ffl GP2fS@bIfuS@?_f?GqfR?Go??Fa
?f??F??fCF$?f .@I?f@"@U?fN?E?"N! ?iW?f?Bh?"nH>?f?D?g?.Fg.g"?&H?
9g6?GBgx?GKgCgEJrg?IG>?g3?B
?g??Dv
?gZ?E6?g"H
?g^6C}3b@?g>?G?h?#HE????Fp h??DR>h??D?bh7?E?vhH?E8
t?ƋF??h?E??h?uHy?h??Eq?hz?H?h?NC??h?FFJ?h??D? i?E0i(?B0
>iH-FiH[i ?G
iUH?i?/FW?iE?EB
?i&|F*
j[?D3jmE-*j?*F*>jg?E?SjL5CIaj?DH%pjNHvjsYFh?j?A??jҗFv?j ?XW?j??B_?j?1E_?j"??G
?jL?Fy
k? EL6k?F@Ekm?D?dk ?G$??G?k?ZF?k??E<?k??Dc?k??D??k,?Fa?kz?F?l?7F/?_"?{H%Bl?G?Vl9?BJfl??Ei?l?gE;?ld3@T?l"}?G[?ld?G5?l=?BO?lE??l?1@im0?Ca+? H"m?0E?(m??F3Om?!E?_m?G?fm??D??m??H+?m?E??mD Ey?m?H?m ?E^?mScDn??BBneDI?n?`DH
jn?E5
?n"??G
?n?H?n?RC?n?I?nXmE)?n?RF7
o_?FNCoM*G<Qo??B??G?*GD_o?D?
oX?D?
?o%?ET?o?]H?o?>CY?oG?pm?E?*pPJD?7pCE
?"G,LpHQp?zHX]p??Es?y! gWxp??Eb?p?E?
?p5?B??p??E?Ү"??H-3??G??p?8E>qU?F?6q OWJq??GOq"??G5^q7/@qpq?-E_?qEF*?q?YD??q?@2??RG??qu GQrk?D_(r?G?9rDH'@r.UHJ^rn#E?or?F?
?rO?F??rhHG??r?F??rpPWs?3E%s? C&
2seI@BYs?TG?isq?E_?s?RE??s]?E??sc?Es?s1Fbt?0@@
t?vH?t?E`+t TTW
CtKXF(
ltR9E"?t?MH??"?H??t?F??t??Dv?t?=Eu?t?@E?t??D? u?aDU u?PW?.ub?D
[uErD?
?u1?Fq?u??Dj?u}?F??uhvDJ
?ux?D?
ax?JGmux?JD??x$z$?F??}?uD??} ZW?w}?G[???H+~?1C?~?PW1~82Em^~??EQ
~~3EV?~ElEF?~??Ff
?~?H?~78F3?~G?E@?~
@
3~F:%n?E?5??EPN?F?fJ?F?ypCEh???G?/EH???G?;?D?? Hw?[?G????F?
?gF,5???E7F???F?a??BE????0C?????E1????C?
??KG?Ԁ[E;߀X?G?rP@?4O"?H?֨En(??rGUC??E_n???F?
}???DF???^G
????F?
с?!@-?TEW
???Gz
أ@?F

?? H ?q??Ec???;Gk
??"@_HV???F?
???@E??"?WH?
???Ddφ/?Eb??FN ??!@???@I?l??G?
K?H@?6???G?c???D?|?^CGR
???GF??%E7??BTF?·?'@???;)E?
???"@?E=??F$?NR?F??`?H?"??{GA?iWF3k?c?E?ڦ"??G?????D(???G?ΈG?Do????Ep??,F%???G??"T?G
3??gFO?xUHbj?u2F???+G=Nj?F$??HyG^??m?E4ω ?]W݉"??G
?4iG?+? H<????Dv?+LD?K?
>C6_?`?G?i??@y???NGD???iEj???1FWɊ??Ei??tHv???EQ??"D?GB???Do:???@?G?zoE?a?пD?????E????C,??ЪE_ËX?E??BE

??_?G??? ?SW?@?D?#?W?Hg5??EF+D?l?EAd??Hn??Hu?7?Dc???-E???DC???PW????GWٌ?HA???E9??GEF+???D?$?=?E?
9? ?E?
e? /GY
~??FJ??+%@`??6G???ΜFT
ȍ"??G
׍\UEZ
?ܤC??1 C`???F*
??GB?s?G???G?
?Cc$?A?E?
I?G?E)
y??E8???Et???'B????D?֎7vF???E?
?5E??,?G(?A??F?$???Ei;?#? C?0?@EH?dcF??B?D~??D?Eg͔ `OW0??bF??7>C???B?+?N%E^A?e-E;S???EAk?L@^????Dn??OR@b???6FM˕CZFh?UD@Z??$H??AEJ9?k?EJg??:Fuw?sFCs??,C?
??0BE[???E8
Ӗ?8F????H???G??tG???רDD7? G?
?n?Dx9?8?E5Y?PWl?vF4??MMG?????D????bEZΗЊFT?qH?????F?
'@?G????E?I?L?D?Y???Eno??@?.'UH ~??H??6Ht ??eRE???@xH????{A??8?E?͘?@??Q?D??+>EM??-G
-??DJ:'ȟG?
G???E?h?^pD(
???H???4?F????cD)ޙ??Eq?wzE????E?4? OW;?o@2S?gH [?e?D????Gx
??^G6???E&ϚJGgޚ??E????LH????D ??wG?
A?NHG? ?]WY?(?D?|?A?D??`PW??ʊEJ????F?ԛ[?E[?~7Cr??wF*%?;?D7??|H?D??2EcX???D_r??{H?->"r{H}?[O@W?V"1H3???UH????Er
??O?Dv)?N?F?ԜƺD?
???0EH???F?+?|A?8???F?K???DQa??iC?n?Gr
?!G???y?D???k?E^ӝ??E????@??E?GW!?? G[@??jEI
T?0mE(c?"?HK??"?GBt???Dq???D5:c"?CH???LE?Ϟ?D???FB??$NH???9@P %?W?F??D9W?գFVj?c E?????G5??ZdD????nD[ƵݵE}?)?F?
???.@<\I"B?G7?y?B? ??~A
??V?F????F4N????`G?P? ?E?d??+Eq?Z?G?}?ތF???ҴE?ûXgFݻg,En???.FH?G?3?E?F??@?Y?Q?E?p??qDZ???/@6???2@?????E?ϼw?D6?,?D7??UH??cD?2?]H?
;?@wH?E? ?XWU?PWm?2Hu???GI{??2Gh
????FH???E?ͽK?D??vV??G???Dy ???FD?hC?(?