sam
/
LuaComp
mirror of https://github.com/Adorable-Catgirl/LuaComp.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Compare commits

base: sam:master
Branches Tags
sam:master
sam:v2.0.5
sam:v2.0.4
sam:2.0.3
sam:v2.0.2
sam:v2.0.1
sam:v2.0.0
sam:1.2.2
sam:1.2.1
sam:1.2.0
sam:v1.0.0
..
compare: sam:1.2.1
Branches Tags
sam:master
sam:v2.0.5
sam:v2.0.4
sam:2.0.3
sam:v2.0.2
sam:v2.0.1
sam:v2.0.0
sam:1.2.2
sam:1.2.1
sam:1.2.0
sam:v1.0.0

No commits in common. "master" and "1.2.1" have entirely different histories.
master ... 1.2.1

46 changed files with 773 additions and 1439 deletions
Show Stats Expand all files Collapse all files

3
.gitignore vendored
View File

@ -1,4 +1,3 @@
luacomp.lua luacomp.lua
luacomp luacomp
build/* build/*
*.out

3
.gitmodules vendored
View File

@ -1,3 +0,0 @@
[submodule "libpreproc"]
path = libpreproc
url = git@github.com:lunaboards-dev/libpreproc.git

574
LICENSE
View File

@ -1,373 +1,201 @@
Mozilla Public License Version 2.0 Apache License
================================== Version 2.0, January 2004
http://www.apache.org/licenses/
1. Definitions
-------------- TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
1.1. "Contributor" 1. Definitions.
means each individual or legal entity that creates, contributes to
the creation of, or owns Covered Software. "License" shall mean the terms and conditions for use, reproduction,
and distribution as defined by Sections 1 through 9 of this document.
1.2. "Contributor Version"
means the combination of the Contributions of others (if any) used "Licensor" shall mean the copyright owner or entity authorized by
by a Contributor and that particular Contributor's Contribution. the copyright owner that is granting the License.
1.3. "Contribution" "Legal Entity" shall mean the union of the acting entity and all
means Covered Software of a particular Contributor. other entities that control, are controlled by, or are under common
control with that entity. For the purposes of this definition,
1.4. "Covered Software" "control" means (i) the power, direct or indirect, to cause the
means Source Code Form to which the initial Contributor has attached direction or management of such entity, whether by contract or
the notice in Exhibit A, the Executable Form of such Source Code otherwise, or (ii) ownership of fifty percent (50%) or more of the
Form, and Modifications of such Source Code Form, in each case outstanding shares, or (iii) beneficial ownership of such entity.
including portions thereof.
"You" (or "Your") shall mean an individual or Legal Entity
1.5. "Incompatible With Secondary Licenses" exercising permissions granted by this License.
means
"Source" form shall mean the preferred form for making modifications,
(a) that the initial Contributor has attached the notice described including but not limited to software source code, documentation
in Exhibit B to the Covered Software; or source, and configuration files.
(b) that the Covered Software was made available under the terms of "Object" form shall mean any form resulting from mechanical
version 1.1 or earlier of the License, but not also under the transformation or translation of a Source form, including but
terms of a Secondary License. not limited to compiled object code, generated documentation,
and conversions to other media types.
1.6. "Executable Form"
means any form of the work other than Source Code Form. "Work" shall mean the work of authorship, whether in Source or
Object form, made available under the License, as indicated by a
1.7. "Larger Work" copyright notice that is included in or attached to the work
means a work that combines Covered Software with other material, in (an example is provided in the Appendix below).
a separate file or files, that is not Covered Software.
"Derivative Works" shall mean any work, whether in Source or Object
1.8. "License" form, that is based on (or derived from) the Work and for which the
means this document. editorial revisions, annotations, elaborations, or other modifications
represent, as a whole, an original work of authorship. For the purposes
1.9. "Licensable" of this License, Derivative Works shall not include works that remain
means having the right to grant, to the maximum extent possible, separable from, or merely link (or bind by name) to the interfaces of,
whether at the time of the initial grant or subsequently, any and the Work and Derivative Works thereof.
all of the rights conveyed by this License.
"Contribution" shall mean any work of authorship, including
1.10. "Modifications" the original version of the Work and any modifications or additions
means any of the following: to that Work or Derivative Works thereof, that is intentionally
submitted to Licensor for inclusion in the Work by the copyright owner
(a) any file in Source Code Form that results from an addition to, or by an individual or Legal Entity authorized to submit on behalf of
deletion from, or modification of the contents of Covered the copyright owner. For the purposes of this definition, "submitted"
Software; or means any form of electronic, verbal, or written communication sent
to the Licensor or its representatives, including but not limited to
(b) any new file in Source Code Form that contains any Covered communication on electronic mailing lists, source code control systems,
Software. and issue tracking systems that are managed by, or on behalf of, the
Licensor for the purpose of discussing and improving the Work, but
1.11. "Patent Claims" of a Contributor excluding communication that is conspicuously marked or otherwise
means any patent claim(s), including without limitation, method, designated in writing by the copyright owner as "Not a Contribution."
process, and apparatus claims, in any patent Licensable by such
Contributor that would be infringed, but for the grant of the "Contributor" shall mean Licensor and any individual or Legal Entity
License, by the making, using, selling, offering for sale, having on behalf of whom a Contribution has been received by Licensor and
made, import, or transfer of either its Contributions or its subsequently incorporated within the Work.
Contributor Version.
2. Grant of Copyright License. Subject to the terms and conditions of
1.12. "Secondary License" this License, each Contributor hereby grants to You a perpetual,
means either the GNU General Public License, Version 2.0, the GNU worldwide, non-exclusive, no-charge, royalty-free, irrevocable
Lesser General Public License, Version 2.1, the GNU Affero General copyright license to reproduce, prepare Derivative Works of,
Public License, Version 3.0, or any later versions of those publicly display, publicly perform, sublicense, and distribute the
licenses. Work and such Derivative Works in Source or Object form.
1.13. "Source Code Form" 3. Grant of Patent License. Subject to the terms and conditions of
means the form of the work preferred for making modifications. this License, each Contributor hereby grants to You a perpetual,
worldwide, non-exclusive, no-charge, royalty-free, irrevocable
1.14. "You" (or "Your") (except as stated in this section) patent license to make, have made,
means an individual or a legal entity exercising rights under this use, offer to sell, sell, import, and otherwise transfer the Work,
License. For legal entities, "You" includes any entity that where such license applies only to those patent claims licensable
controls, is controlled by, or is under common control with You. For by such Contributor that are necessarily infringed by their
purposes of this definition, "control" means (a) the power, direct Contribution(s) alone or by combination of their Contribution(s)
or indirect, to cause the direction or management of such entity, with the Work to which such Contribution(s) was submitted. If You
whether by contract or otherwise, or (b) ownership of more than institute patent litigation against any entity (including a
fifty percent (50%) of the outstanding shares or beneficial cross-claim or counterclaim in a lawsuit) alleging that the Work
ownership of such entity. or a Contribution incorporated within the Work constitutes direct
or contributory patent infringement, then any patent licenses
2. License Grants and Conditions granted to You under this License for that Work shall terminate
-------------------------------- as of the date such litigation is filed.
2.1. Grants 4. Redistribution. You may reproduce and distribute copies of the
Work or Derivative Works thereof in any medium, with or without
Each Contributor hereby grants You a world-wide, royalty-free, modifications, and in Source or Object form, provided that You
non-exclusive license: meet the following conditions:
(a) under intellectual property rights (other than patent or trademark) (a) You must give any other recipients of the Work or
Licensable by such Contributor to use, reproduce, make available, Derivative Works a copy of this License; and
modify, display, perform, distribute, and otherwise exploit its
Contributions, either on an unmodified basis, with Modifications, or (b) You must cause any modified files to carry prominent notices
as part of a Larger Work; and stating that You changed the files; and
(b) under Patent Claims of such Contributor to make, use, sell, offer (c) You must retain, in the Source form of any Derivative Works
for sale, have made, import, and otherwise transfer either its that You distribute, all copyright, patent, trademark, and
Contributions or its Contributor Version. attribution notices from the Source form of the Work,
excluding those notices that do not pertain to any part of
2.2. Effective Date the Derivative Works; and
The licenses granted in Section 2.1 with respect to any Contribution (d) If the Work includes a "NOTICE" text file as part of its
become effective for each Contribution on the date the Contributor first distribution, then any Derivative Works that You distribute must
distributes such Contribution. include a readable copy of the attribution notices contained
within such NOTICE file, excluding those notices that do not
2.3. Limitations on Grant Scope pertain to any part of the Derivative Works, in at least one
of the following places: within a NOTICE text file distributed
The licenses granted in this Section 2 are the only rights granted under as part of the Derivative Works; within the Source form or
this License. No additional rights or licenses will be implied from the documentation, if provided along with the Derivative Works; or,
distribution or licensing of Covered Software under this License. within a display generated by the Derivative Works, if and
Notwithstanding Section 2.1(b) above, no patent license is granted by a wherever such third-party notices normally appear. The contents
Contributor: of the NOTICE file are for informational purposes only and
do not modify the License. You may add Your own attribution
(a) for any code that a Contributor has removed from Covered Software; notices within Derivative Works that You distribute, alongside
or or as an addendum to the NOTICE text from the Work, provided
that such additional attribution notices cannot be construed
(b) for infringements caused by: (i) Your and any other third party's as modifying the License.
modifications of Covered Software, or (ii) the combination of its
Contributions with other software (except as part of its Contributor You may add Your own copyright statement to Your modifications and
Version); or may provide additional or different license terms and conditions
for use, reproduction, or distribution of Your modifications, or
(c) under Patent Claims infringed by Covered Software in the absence of for any such Derivative Works as a whole, provided Your use,
its Contributions. reproduction, and distribution of the Work otherwise complies with
the conditions stated in this License.
This License does not grant any rights in the trademarks, service marks,
or logos of any Contributor (except as may be necessary to comply with 5. Submission of Contributions. Unless You explicitly state otherwise,
the notice requirements in Section 3.4). any Contribution intentionally submitted for inclusion in the Work
by You to the Licensor shall be under the terms and conditions of
2.4. Subsequent Licenses this License, without any additional terms or conditions.
Notwithstanding the above, nothing herein shall supersede or modify
No Contributor makes additional grants as a result of Your choice to the terms of any separate license agreement you may have executed
distribute the Covered Software under a subsequent version of this with Licensor regarding such Contributions.
License (see Section 10.2) or under the terms of a Secondary License (if
permitted under the terms of Section 3.3). 6. Trademarks. This License does not grant permission to use the trade
names, trademarks, service marks, or product names of the Licensor,
2.5. Representation except as required for reasonable and customary use in describing the
origin of the Work and reproducing the content of the NOTICE file.
Each Contributor represents that the Contributor believes its
Contributions are its original creation(s) or it has sufficient rights 7. Disclaimer of Warranty. Unless required by applicable law or
to grant the rights to its Contributions conveyed by this License. agreed to in writing, Licensor provides the Work (and each
Contributor provides its Contributions) on an "AS IS" BASIS,
2.6. Fair Use WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
implied, including, without limitation, any warranties or conditions
This License is not intended to limit any rights You have under of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
applicable copyright doctrines of fair use, fair dealing, or other PARTICULAR PURPOSE. You are solely responsible for determining the
equivalents. appropriateness of using or redistributing the Work and assume any
risks associated with Your exercise of permissions under this License.
2.7. Conditions
8. Limitation of Liability. In no event and under no legal theory,
Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted whether in tort (including negligence), contract, or otherwise,
in Section 2.1. unless required by applicable law (such as deliberate and grossly
negligent acts) or agreed to in writing, shall any Contributor be
3. Responsibilities liable to You for damages, including any direct, indirect, special,
------------------- incidental, or consequential damages of any character arising as a
result of this License or out of the use or inability to use the
3.1. Distribution of Source Form Work (including but not limited to damages for loss of goodwill,
work stoppage, computer failure or malfunction, or any and all
All distribution of Covered Software in Source Code Form, including any other commercial damages or losses), even if such Contributor
Modifications that You create or to which You contribute, must be under has been advised of the possibility of such damages.
the terms of this License. You must inform recipients that the Source
Code Form of the Covered Software is governed by the terms of this 9. Accepting Warranty or Additional Liability. While redistributing
License, and how they can obtain a copy of this License. You may not the Work or Derivative Works thereof, You may choose to offer,
attempt to alter or restrict the recipients' rights in the Source Code and charge a fee for, acceptance of support, warranty, indemnity,
Form. or other liability obligations and/or rights consistent with this
License. However, in accepting such obligations, You may act only
3.2. Distribution of Executable Form on Your own behalf and on Your sole responsibility, not on behalf
of any other Contributor, and only if You agree to indemnify,
If You distribute Covered Software in Executable Form then: defend, and hold each Contributor harmless for any liability
incurred by, or claims asserted against, such Contributor by reason
(a) such Covered Software must also be made available in Source Code of your accepting any such warranty or additional liability.
Form, as described in Section 3.1, and You must inform recipients of
the Executable Form how they can obtain a copy of such Source Code END OF TERMS AND CONDITIONS
Form by reasonable means in a timely manner, at a charge no more
than the cost of distribution to the recipient; and APPENDIX: How to apply the Apache License to your work.
(b) You may distribute such Executable Form under the terms of this To apply the Apache License to your work, attach the following
License, or sublicense it under different terms, provided that the boilerplate notice, with the fields enclosed by brackets "[]"
license for the Executable Form does not attempt to limit or alter replaced with your own identifying information. (Don't include
the recipients' rights in the Source Code Form under this License. the brackets!) The text should be enclosed in the appropriate
comment syntax for the file format. We also recommend that a
3.3. Distribution of a Larger Work file or class name and description of purpose be included on the
same "printed page" as the copyright notice for easier
You may create and distribute a Larger Work under terms of Your choice, identification within third-party archives.
provided that You also comply with the requirements of this License for
the Covered Software. If the Larger Work is a combination of Covered Copyright 2019 Adorable-Catgirl
Software with a work governed by one or more Secondary Licenses, and the
Covered Software is not Incompatible With Secondary Licenses, this Licensed under the Apache License, Version 2.0 (the "License");
License permits You to additionally distribute such Covered Software you may not use this file except in compliance with the License.
under the terms of such Secondary License(s), so that the recipient of You may obtain a copy of the License at
the Larger Work may, at their option, further distribute the Covered
Software under the terms of either this License or such Secondary http://www.apache.org/licenses/LICENSE-2.0
License(s).
Unless required by applicable law or agreed to in writing, software
3.4. Notices distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
You may not remove or alter the substance of any license notices See the License for the specific language governing permissions and
(including copyright notices, patent notices, disclaimers of warranty, limitations under the License.
or limitations of liability) contained within the Source Code Form of
the Covered Software, except that You may alter any license notices to
the extent required to remedy known factual inaccuracies.
3.5. Application of Additional Terms
You may choose to offer, and to charge a fee for, warranty, support,
indemnity or liability obligations to one or more recipients of Covered
Software. However, You may do so only on Your own behalf, and not on
behalf of any Contributor. You must make it absolutely clear that any
such warranty, support, indemnity, or liability obligation is offered by
You alone, and You hereby agree to indemnify every Contributor for any
liability incurred by such Contributor as a result of warranty, support,
indemnity or liability terms You offer. You may include additional
disclaimers of warranty and limitations of liability specific to any
jurisdiction.
4. Inability to Comply Due to Statute or Regulation
---------------------------------------------------
If it is impossible for You to comply with any of the terms of this
License with respect to some or all of the Covered Software due to
statute, judicial order, or regulation then You must: (a) comply with
the terms of this License to the maximum extent possible; and (b)
describe the limitations and the code they affect. Such description must
be placed in a text file included with all distributions of the Covered
Software under this License. Except to the extent prohibited by statute
or regulation, such description must be sufficiently detailed for a
recipient of ordinary skill to be able to understand it.
5. Termination
--------------
5.1. The rights granted under this License will terminate automatically
if You fail to comply with any of its terms. However, if You become
compliant, then the rights granted under this License from a particular
Contributor are reinstated (a) provisionally, unless and until such
Contributor explicitly and finally terminates Your grants, and (b) on an
ongoing basis, if such Contributor fails to notify You of the
non-compliance by some reasonable means prior to 60 days after You have
come back into compliance. Moreover, Your grants from a particular
Contributor are reinstated on an ongoing basis if such Contributor
notifies You of the non-compliance by some reasonable means, this is the
first time You have received notice of non-compliance with this License
from such Contributor, and You become compliant prior to 30 days after
Your receipt of the notice.
5.2. If You initiate litigation against any entity by asserting a patent
infringement claim (excluding declaratory judgment actions,
counter-claims, and cross-claims) alleging that a Contributor Version
directly or indirectly infringes any patent, then the rights granted to
You by any and all Contributors for the Covered Software under Section
2.1 of this License shall terminate.
5.3. In the event of termination under Sections 5.1 or 5.2 above, all
end user license agreements (excluding distributors and resellers) which
have been validly granted by You or Your distributors under this License
prior to termination shall survive termination.
************************************************************************
* *
* 6. Disclaimer of Warranty *
* ------------------------- *
* *
* Covered Software is provided under this License on an "as is" *
* basis, without warranty of any kind, either expressed, implied, or *
* statutory, including, without limitation, warranties that the *
* Covered Software is free of defects, merchantable, fit for a *
* particular purpose or non-infringing. The entire risk as to the *
* quality and performance of the Covered Software is with You. *
* Should any Covered Software prove defective in any respect, You *
* (not any Contributor) assume the cost of any necessary servicing, *
* repair, or correction. This disclaimer of warranty constitutes an *
* essential part of this License. No use of any Covered Software is *
* authorized under this License except under this disclaimer. *
* *
************************************************************************
************************************************************************
* *
* 7. Limitation of Liability *
* -------------------------- *
* *
* Under no circumstances and under no legal theory, whether tort *
* (including negligence), contract, or otherwise, shall any *
* Contributor, or anyone who distributes Covered Software as *
* permitted above, be liable to You for any direct, indirect, *
* special, incidental, or consequential damages of any character *
* including, without limitation, damages for lost profits, loss of *
* goodwill, work stoppage, computer failure or malfunction, or any *
* and all other commercial damages or losses, even if such party *
* shall have been informed of the possibility of such damages. This *
* limitation of liability shall not apply to liability for death or *
* personal injury resulting from such party's negligence to the *
* extent applicable law prohibits such limitation. Some *
* jurisdictions do not allow the exclusion or limitation of *
* incidental or consequential damages, so this exclusion and *
* limitation may not apply to You. *
* *
************************************************************************
8. Litigation
-------------
Any litigation relating to this License may be brought only in the
courts of a jurisdiction where the defendant maintains its principal
place of business and such litigation shall be governed by laws of that
jurisdiction, without reference to its conflict-of-law provisions.
Nothing in this Section shall prevent a party's ability to bring
cross-claims or counter-claims.
9. Miscellaneous
----------------
This License represents the complete agreement concerning the subject
matter hereof. If any provision of this License is held to be
unenforceable, such provision shall be reformed only to the extent
necessary to make it enforceable. Any law or regulation which provides
that the language of a contract shall be construed against the drafter
shall not be used to construe this License against a Contributor.
10. Versions of the License
---------------------------
10.1. New Versions
Mozilla Foundation is the license steward. Except as provided in Section
10.3, no one other than the license steward has the right to modify or
publish new versions of this License. Each version will be given a
distinguishing version number.
10.2. Effect of New Versions
You may distribute the Covered Software under the terms of the version
of the License under which You originally received the Covered Software,
or under the terms of any subsequent version published by the license
steward.
10.3. Modified Versions
If you create software not governed by this License, and you want to
create a new license for such software, you may create and use a
modified version of this License if you rename the license and remove
any references to the name of the license steward (except to note that
such modified license differs from this License).
10.4. Distributing Source Code Form that is Incompatible With Secondary
Licenses
If You choose to distribute Source Code Form that is Incompatible With
Secondary Licenses under the terms of this version of the License, the
notice described in Exhibit B of this License must be attached.
Exhibit A - Source Code Form License Notice
-------------------------------------------
This Source Code Form is subject to the terms of the Mozilla Public
License, v. 2.0. If a copy of the MPL was not distributed with this
file, You can obtain one at http://mozilla.org/MPL/2.0/.
If it is not possible or desirable to put the notice in a particular
file, then You may include the notice in a location (such as a LICENSE
file in a relevant directory) where a recipient would be likely to look
for such a notice.
You may add additional accurate notices of copyright ownership.
Exhibit B - "Incompatible With Secondary Licenses" Notice
---------------------------------------------------------
This Source Code Form is "Incompatible With Secondary Licenses", as
defined by the Mozilla Public License, v. 2.0.

1
examples/rel_include/bar.lua
View File

@ -1 +0,0 @@
print("bar")

3
examples/rel_include/foo.lua
View File

@ -1,3 +0,0 @@
--#pragma "relative_include" "y"
print("foo")
--#include "bar.lua"

2
examples/rel_include_test.lua
View File

@ -1,2 +0,0 @@
print("relative include test!")
--#include "rel_include/foo.lua"

1
libpreproc

@ -1 +0,0 @@
Subproject commit af74760d6113fee5e509cc983163f140a674ae07

12
luacomp3/init.lua
View File

@ -1,12 +0,0 @@
--@[[if false then]]
local parser = require("luacomp3.parser")
--@[[else]]
--#include "parser.lua" "parser"
--@[[end]]
local p = setmetatable({}, {__index=parser})
p:init()
local f = io.open(arg[1], "rb")
local d = f:read("a")
f:close()
p:parse(d)

68
luacomp3/parser.lua
View File

@ -1,68 +0,0 @@
local lpp = require("libpreproc")
local p = function(a)return lpp.pattern(a, true)end
local parser = {}
function parser:single_pass()
end
local span = lpp.block(p"[{", p"}]")
local block = lpp.block(p"[[", p"]]")
local parens = lpp.block(p"(", p")")
local luacode = lpp.pattern("@(%d*)")
local shellcode = p"$"
local directive = lpp.pattern("--#!*")
function parser:init()
local parse = lpp.instance()
--Lua code span
parse:add_token(lpp.prefix(luacode, span), function(stream, instance, result)
if #result.matches == 2 and result.matches[1] and result.matches[1] ~= "" then
result.matches.pass = tonumber(result.matches[1], 10)
if (result.matches.pass > 0) then
instance:emit(string.format("@%d[{%s}]", result.matches.pass, result.matches[2]))
return
end
end
instance:write(string.format("write(%s)", result.matches[#result.matches]))
end)
-- Lua code block
parse:add_token(lpp.prefix(luacode, block), function(stream, instance, result)
--print("<m>", table.unpack(result.matches))
if #result.matches == 2 and result.matches[1] and result.matches[1] ~= "" then
result.matches.pass = tonumber(result.matches[1], 10)
if (result.matches.pass > 0) then
instance:emit(string.format("@%d[[%s]]", result.matches.pass, result.matches[2]))
return
end
end
instance:write(result.matches[#result.matches])
end)
-- Shell variable
parse:add_token(lpp.prefix(shellcode, span), function(stream, instance, result)
instance:write(string.format("write(os.getenv(%q))", result.matches[1]))
end)
-- Shell variable, wrapped in quotes
parse:add_token(lpp.prefix(shellcode, parens), function(stream, instance, result)
instance:write(string.format("write('\"'..os.getenv(%q)..'\"')", result.matches[1]))
end)
-- Shell block
parse:add_token(lpp.prefix(shellcode, block), function(stream, instance, matches)
end)
self.parser = parse
end
function parser:parse(code)
self.parser:compile(code)
print(self.parser.code)
local res = self.parser:generate()
print(res)
end
return parser

6
make_release.lua
View File

@ -10,11 +10,9 @@ os.execute("rm -rf build")
os.execute("mkdir build") os.execute("mkdir build")
for i=1, #luaexec do for i=1, #luaexec do
os.execute("luacomp -xlua"..luaexec[i].." -mluamin -O build/luacomp-"..luaexec[i].." src/init.lua") os.execute("luacomp -xlua"..luaexec[i].." -mluamin -O build/luacomp-"..luaexec[i].." src/init.lua")
--os.execute("luacomp -xlua"..luaexec[i].." -mnone -O build/luacomp-static-"..luaexec[i].." src/staticinit.lua") os.execute("luacomp -xlua"..luaexec[i].." -mnone -O build/luacomp-static-"..luaexec[i].." src/staticinit.lua")
os.execute("chmod +x build/luacomp-"..luaexec[i]) os.execute("chmod +x build/luacomp-"..luaexec[i])
--os.execute("chmod +x build/luacomp-static-"..luaexec[i]) os.execute("chmod +x build/luacomp-static-"..luaexec[i])
end end
os.execute("LIBLUACOMP=y luacomp -O build/libluacomp.lua src/libluacomp.lua")
os.execute("cp -v build/luacomp-".._VERSION:sub(5).." luacomp") os.execute("cp -v build/luacomp-".._VERSION:sub(5).." luacomp")

79
src/application.lua
View File

@ -1,17 +1,25 @@
-- This Source Code Form is subject to the terms of the Mozilla Public local function dprint(...)
-- License, v. 2.0. If a copy of the MPL was not distributed with this local args = {...}
-- file, You can obtain one at https://mozilla.org/MPL/2.0/. for i=1, #args do
args[i] = tostring(args[i])
end
if (VERBOSE) then
io.stderr:write("DEBUG\t"..table.concat(args,"\t"),"\n")
end
end
--#include "src/libluacomp.lua" --#include "src/shell_var.lua"
--#include "src/luacomp_vars.lua"
--#include "src/ast.lua"
--#include "src/generator.lua"
--#include "src/directive_provider.lua"
--#include "src/cfg/minifier_providers.lua"
__DSYM = {} local parser = argparse(arg[0], "LuaComp v"..LUACOMP_VERSION.."\nA preprocessor+postprocessor written in Lua.")
local parser = argparse(arg[0]:match("[^/]+$"), "LuaComp v"..LUACOMP_VERSION.."\nA preprocessor+postprocessor written in Lua.")
parser:argument("input", "Input file (- for STDIN)") parser:argument("input", "Input file (- for STDIN)")
parser:option("-O --output", "Output file. (- for STDOUT)", "-") parser:option("-O --output", "Output file. (- for STDOUT)", "-")
parser:option("-m --minifier", "Sets the postprocessor", "none") parser:option("-m --minifier", "Sets the postprocessor", "none")
parser:option("-x --executable", "Makes the script an executable (default: current lua version)"):args "?" parser:option("-x --executable", "Makes the script an executable (default: current lua version)"):args "?"
parser:flag("-g --debugging", "Adds inline debugging utils to assist in debugging."):action(function() DEBUGGING=true end)
parser:flag("--generator-code", "Outputs only the code from the generator.") parser:flag("--generator-code", "Outputs only the code from the generator.")
parser:flag("--verbose", "Verbose output. (Debugging)"):action(function() VERBOSE=true end) parser:flag("--verbose", "Verbose output. (Debugging)"):action(function() VERBOSE=true end)
parser:flag("--post-processors", "Lists postprocessors"):action(function() parser:flag("--post-processors", "Lists postprocessors"):action(function()
@ -44,58 +52,33 @@ local file = args.input
_sv("LUACOMP_MINIFIER", args.minifier) _sv("LUACOMP_MINIFIER", args.minifier)
local f local f
if (file ~= "-") then if (file ~= "-") then
local sr, er = stat.stat(file)
if not sr then lc_error("luacomp", er) end
f = io.open(file, "r") f = io.open(file, "r")
if not f then
io.stderr:write("ERROR: File `"..file.."' does not exist!\n")
os.exit(1)
end
else else
f = io.stdin f = io.stdin
end end
local ocode = luacomp.process_file(f, (file == "-") and "stdin" or file, args.generator_code) dprint("Generating AST...")
if DEBUGGING then local ast = mkast(f, file)
-- generate debugging symbols ast.file = file
local dsyms = {"LEM:LCDEBUG!!!"} dprint("Generating code...")
for i=1, #__DSYM do local ocode = generate(ast, args.generator_code)
local sym = __DSYM[i]
local sym_str = string.format("FILE[%s]:START[%d,%d]:END[%d:%d]:FILE[%d,%d]", sym.file, sym.sx or 0, sym.sy or 0, sym.ex or 0, sym.ey or 0, sym.fx or -1, sym.fy or -1)
if sym.tag then
sym_str = sym_str .. ":"..sym.tag
end
table.insert(dsyms, sym_str)
end
ocode = ocode .. "\n--[["..table.concat(dsyms, "\n").."\n]]"
end
if DEBUGGING then
local dsymt = {}
for i=1, #__DSYM do
local sym = __DSYM[i]
local symstr = string.format("file=%q,sx=%q,sy=%q,ex=%q,ey=%q,fx=%q,fy=%q", sym.file, sym.sx or 0, sym.sy or 0, sym.ex or 0, sym.ey or 0, sym.fx or -1, sym.fy or -1)
if sym.tagv then
for i=1, #sym.tagv.vals do
sym.tagv.vals[i]=string.format("%q", sym.tagv.vals[i])
end
symstr = symstr .. ",tag={" ..string.format("type=%q,vals={%s}", sym.tagv.type, table.concat(sym.tagv.vals, ",")).."}"
end
table.insert(dsymt,"{"..symstr.."}")
end
ocode = "_G['LCDEBUG!!!'] = {\n"..table.concat(dsymt, ",\n").."\n}\n" .. ocode
end
local minifier = providers[args.minifier] local minifier = providers[args.minifier]
dprint("Minifier: "..args.minifier, minifier) dprint("Minifier: "..args.minifier, minifier)
if not minifier then if not minifier then
lc_error("luacomp", "Postprocessor "..args.minifier.." not found!") io.stderr:write("ERROR: Postprocessor `"..args.minifier.."' not found!\n")
--io.stderr:write("ERROR: Postprocessor `"..args.minifier.."' not found!\n") os.exit(1)
--os.exit(1)
end end
dprint("Running...") dprint("Running...")
local rcode, err = minifier(ocode) local rcode, err = minifier(ocode)
if (not rcode) then if (not rcode) then
--io.stderr:write("ERROR: Error for postprocessor `"..args.minifier.."': \n") io.stderr:write("ERROR: Error for postprocessor `"..args.minifier.."': \n")
--io.stderr:write(err) io.stderr:write(err)
--os.exit(1) os.exit(1)
lc_error(args.minifier, "Postprocessor error:\n"..err)
end end
local of local of
@ -113,4 +96,4 @@ if (args.executable) then
end end
of:write(rcode) of:write(rcode)
of:close() of:close()
--f:close() f:close()

297
src/ast.lua Normal file
View File

@ -0,0 +1,297 @@
--[[
ast.lua - Generates a structure for use in preprocessing.
Copyright 2019 Adorable-Catgirl
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
]]
local function nextc(f, c)
c = c or 1
return f:read(c)
end
local function peek(f, c)
c = c or 1
local z = f:read(c)
f:seek("cur", -c)
return z
end
local function skip(f, c)
c = c or 1
return f:seek("cur", c)
end
local ws = {
["\t"] = true,
[" "] = true
}
local function parse_hex(f)
local lc = " "
local hex = ""
while (48 <= lc:byte() and lc:byte() <= 57) or (97 <= lc:byte() and lc:byte() <= 102) or (65 <= lc:byte() and lc:byte() <= 70) and lc do
lc = nextc(f)
if (48 <= lc:byte() and lc:byte()) <= 57 or (97 <= lc:byte() and lc:byte() <= 102) or (65 <= lc:byte() and lc:byte() <= 70) and lc then
hex = hex .. lc
end
end
return tonumber(hex, 16)
end
local function parse_number(f, c)
local lc = " "
local num = c
while 48 <= lc:byte() and lc:byte() <= 57 and lc do
lc = nextc(f)
if (48 <= lc:byte() and lc:byte() <= 57) and lc then
num = num .. lc
end
end
return tonumber(hex, 10)
end
local esct = {
["t"] = "\t",
["n"] = "\n",
["r"] = "\r",
["\\"] = "\\\\"
}
for i=0, 9 do
esct[tostring(i)] = string.char(i)
end
local function parse_dblquote(f)
local val = ""
while peek(f) ~= "\"" do
local c = nextc(f)
if (peek(f) == "\n" or peek(f) == "\r") then
return nil, "Unexpected end of line"
elseif (not peek(f)) then
return nil, "Unexpected end of file"
end
if (c == "\\") then
if (esct[peek(f)]) then
c = esct[peek(f)]
skip(f)
else
c = nextc(f)
end
end
val = val .. c
end
skip(f)
return val
end
local function parse_snglquote(f)
local val = ""
while peek(f) ~= "\'" do
local c = nextc(f)
if (peek(f) == "\n" or peek(f) == "\r") then
return nil, "Unexpected end of line"
elseif (not peek(f)) then
return nil, "Unexpected end of file"
end
if (c == "\\") then
if (esct[peek(f)]) then
c = esct[peek(f)]
skip(f)
else
c = nextc(f)
end
end
val = val .. c
end
skip(f)
return val
end
local function parse_envarg(f)
local val = ""
while peek(f) ~= ")" do
if (peek(f) == "\n" or peek(f) == "\r") then
return nil, "Unexpected end of line"
elseif (not peek(f)) then
return nil, "Unexpected end of file"
end
val = val .. nextc(f)
end
skip(f)
return val
end
local function parse_directive(f)
local lc = "_"
local name = ""
local args = {}
local carg = ""
while not ws[lc] do
lc = nextc(f)
if (lc == "\n" or lc == "\r") then
if (lc == "\r" and peek(f) == "\n") then skip(f) end
return {type="directive", name=name}
elseif not ws[lc] then
name = name .. lc
end
end
while true do
lc = nextc(f)
if (lc == "\n" or lc == "\r") then
if (lc == "\r" and peek(f) == "\n") then skip(f) end
return {type="directive", name=name, args=args}
elseif lc == "0" and peek(f) == "x" then
skip(f)
local val = parse_hex(f)
args[#args+1] = val
elseif 48 <= lc:byte() and lc:byte() <= 57 then
local val = parse_number(f, lc)
args[#args+1] = val
elseif lc == "\"" then
local val, e = parse_dblquote(f)
if not val then return val, e end
args[#args+1] = val
elseif lc == "\'" then
local val, e = parse_snglquote(f)
if not val then return val, e end
args[#args+1] = val
elseif lc == "$" and peek(f) == "(" then
skip(f)
local val = parse_envarg(f)
if not os.getenv(val) then return nil, "Enviroment variable `"..val.."' does not exist." end
args[#args+1] = os.getenv(val)
elseif lc == "@" and peek(f, 2) == "[{" then
skip(f, 2)
local val = ""
while peek(f, 2) ~= "}]" do
val = val .. nextc(f)
end
args[#args+1] = {type="lua_var", val}
skip(f, 2)
elseif not ws[lc] then
return nil, "Syntax error"
end
end
end
local function mkast(f, n)
io.stderr:write("PROC\t",n,"\n")
local lc = " "
local lpos = 1
local ilpos = 1
local tree = {}
local code = ""
local branches = {}
local function add_code()
tree[#tree+1] = {type="code", data=code, file=n, line=lpos}
code = ""
end
local function parse_error(e)
io.stderr:write("ERROR:"..n..":"..lpos..": "..e.."\n")
os.exit(1)
end
while lc and lc ~= "" do
lc = nextc(f)
if (lc == "-" and ilpos == 1) then
if (peek(f, 2) == "-#") then --Directive
add_code()
skip(f, 2)
local d, r = parse_directive(f)
if not d then
parse_error(r)
end
d.line = lpos
d.file = n
lpos = lpos+1
tree[#tree+1] = d
else
code = code .. lc
ilpos = ilpos+1
end
elseif (lc == "/" and ilpos == 1) then
if (peek(f, 2) == "/#") then --Directive
add_code()
skip(f, 2)
local d, r = parse_directive(f)
if not d then
parse_error(r)
end
d.line = lpos
d.file = n
lpos = lpos+1
tree[#tree+1] = d
else
code = code .. lc
ilpos = ilpos+1
end
elseif (lc == "$" and peek(f) == "(") then
add_code()
skip(f)
local val, e = parse_envarg(f)
if not val then
parse_error(e)
end
tree[#tree+1] = {type="envvar", var=val, file=n, line=lpos}
elseif (lc == "@" and peek(f, 2) == "[[") then
add_code()
skip(f, 2)
local val = ""
while peek(f, 2) ~= "]]" do
val = val .. nextc(f)
end
tree[#tree+1] = {type="lua", code=val, file=n, line=lpos}
skip(f, 2)
elseif (lc == "@" and peek(f, 2) == "[{") then
add_code()
skip(f, 2)
local val = ""
while peek(f, 2) ~= "}]" do
val = val .. nextc(f)
end
tree[#tree+1] = {type="lua_r", code=val, file=n, line=lpos}
skip(f, 2)
elseif (lc == "$" and peek(f, 2) == "[[") then
add_code()
skip(f, 2)
local val = ""
while peek(f, 2) ~= "]]" do
val = val .. nextc(f)
end
tree[#tree+1] = {type="shell", code=val, file=n, line=lpos}
skip(f, 2)
elseif (lc == "$" and peek(f, 2) == "[{") then
add_code()
skip(f, 2)
local val = ""
while peek(f, 2) ~= "}]" do
val = val .. nextc(f)
end
tree[#tree+1] = {type="shell_r", code=val, file=n, line=lpos}
skip(f, 2)
elseif (lc == "\r" or lc == "\n") then
if (lc == "\r" and peek(f) == "\n") then
skip(f)
end
lpos = lpos+1
ilpos = 1
code = code .. "\n"
else
code = code .. (lc or "")
ilpos = ilpos+1
end
end
add_code()
return tree
end

473
src/ast2.lua
View File

@ -1,473 +0,0 @@
-- AST Generator v2: Belkan Boogaloo
-- Hopefully faster than v1
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
local ast = {}
do
local ws = "\t "
function ast.str_to_stream(str, file)
local s = {
str = str,
pos = 1,
file = file or "(unknown)"
}
function s:next(c)
c = c or 1
--dprint(c)
local d = self.str:sub(self.pos, self.pos+c-1)
self.pos = self.pos + c
return d
end
function s:peek(c)
c = c or 1
if (c < 0) then
return self.str:sub(self.pos+c, self.pos-1)
end
return self.str:sub(self.pos, self.pos+c-1)
end
function s:rewind(c)
c = c or 1
self.pos = self.pos - c
return self.pos
end
function s:skip(c)
c = c or 1
self.pos = self.pos + c
return self.pos
end
function s:set(c)
--dprint(c)
self.pos = c or self.pos
return self.pos
end
function s:tell()
return self.pos
end
function s:size()
return #self.str
end
function s:next_instance(pat, raw)
local st, en = self.str:find(pat, self.pos, raw)
if not st then return nil, "not found" end
self.pos = en+1
return self.str:sub(st, en)
end
function s:get_yx() -- it *is* yx
local pos = 0
local line = 1
while pos < self.pos do
local newpos = self.str:find("\n", pos+1)
if not newpos then return line+1, 0 end
if newpos > self.pos then
return line, self.pos-pos
end
line = line + 1
pos = newpos
end
return line, 1
end
return s
end
local esct = {
["t"] = "\t",
["n"] = "\n",
["r"] = "\r",
--["\\"] = "\\\\"
}
function ast.parser_error(str, err)
local y, x = str:get_yx()
--print(y, x)
lc_error("@[{_GENERATOR.fname}]", string.format("%s(%d:%d): %s\n", str.file, y or 0, x or 0, err))
end
function ast.unescape(escaped_string)
local i = 1
local out_string = ""
while i <= #escaped_string do
local c = escaped_string:sub(i,i)
if (c == "\\") then
i = i + 1
local nc = escaped_string:sub(i,i)
if esct[nc] then
out_string = out_string .. esct[nc]
else
out_string = out_string .. nc
end
else
out_string = out_string .. c
end
i = i + 1
end
return out_string
end
function ast.remove_escapes(escaped_string)
local i = 1
local out_string = ""
while i <= #escaped_string do
local c = escaped_string:sub(i,i)
--lc_warning(c, tostring(i).." "..#escaped_string)
if (c == "\\") then
i = i + 1
else
out_string = out_string .. c
end
i = i + 1
end
--lc_warning("debug", out_string)
return out_string
end
function ast.back_escape_count(str, start)
local i=2
while str:peek(-i):sub(1,1) == "\\" do
i = i + 1
if (str:tell()-i < start) then
ast.error(str, "internal error")
end
end
--lc_warning(tostring(i), #str:peek(1-i).." "..str:peek(1-i))
return str:peek(1-i)
end
function ast.parse_quote(str)
local spos = str:tell()
while true do
if not str:next_instance("\'") then
ast.parser_error(str, "unclosed string")
end
local rpos = str:tell()
str:set(spos)
if str:next_instance("\n") then
if rpos > str:tell() then
ast.parser_error(str, "unclosed string")
end
end
str:set(rpos)
if str:peek(-1) == "\\" then
local parsed = ast.remove_escapes(ast.back_escape_count(str, spos))
if parsed:sub(#parsed) == "\'" then
goto found_end
end
else
goto found_end
end
end
::found_end::
local epos = str:tell()
local amt = epos-spos-1
str:set(spos)
local esc = str:next(amt)
str:skip(1)
return ast.unescape(esc)
end
function ast.parse_dblquote(str)
local spos = str:tell()
while true do
if not str:next_instance("\"") then
ast.parser_error(str, "unclosed string")
end
local rpos = str:tell()
str:set(spos)
if str:next_instance("\n") then
if rpos > str:tell() then
ast.parser_error(str, "unclosed string")
end
end
str:set(rpos)
--lc_warning(str:peek(-2), "test")
if str:peek(-2):sub(1,1) == "\\" then
local parsed = ast.remove_escapes(ast.back_escape_count(str, spos))
if parsed:sub(#parsed) == "\"" then
goto found_end
end
else
goto found_end
end
--str:set(rpos)
end
::found_end::
local epos = str:tell()
local amt = epos-spos-1
str:set(spos)
--dprint(spos, amt)
local esc = str:next(amt)
--print(esc)
str:skip(1)
return ast.unescape(esc)
end
function ast.parse_hex(str)
local hex = str:next_instance("%x+")
if not hex then
ast.parser_error(str, "internal error")
end
return tonumber(hex, 16)
end
function ast.parse_number(str)
local num = str:next_instance("%d+")
if not num then
ast.parser_error(str, "internal error")
end
return tonumber(num, 10)
end
function ast.parse_envvar(str)
local name = str:next_instance("[^)]+")
if not name then
ast.parser_error(str, "unclosed shell var")
end
str:skip(1)
return name
end
-- [{...}]
function ast.parse_span(str)
local spos = str:tell()
if not str:next_instance("}]", true) then
ast.parser_error(str, "unclosed block")
else
local rpos = str:tell()
str:set(spos)
if str:next_instance("\n") then
if str:tell() < rpos then
str:set(spos)
ast.parser_error(str, "unclosed span")
end
end
str:set(rpos)
end
local epos = str:tell()
str:set(spos)
local data = str:next(epos-spos-2)
str:skip(2)
return data
end
-- [[...]]
function ast.parse_block(str)
local spos = str:tell()
if not str:next_instance("]]") then
ast.parser_error(str, "unclosed block")
end
local epos = str:tell()
str:set(spos)
local data = str:next(epos-spos-2)
str:skip(2)
return data
end
function ast.parse_directive(str) -- And now we start getting more complex.
local name = str:next_instance("[^ ]+")
local args = {}
while true do
local spos = str:tell()
if not str:next_instance(" +") then
break
else
local rpos = str:tell()
if str:next_instance("\n") then
if str:tell() < rpos then
str:set(spos)
break
end
str:set(rpos)
end
end
local apos = str:tell()
if str:peek(2) == "0x" then
str:skip(2)
local n = ast.parse_hex(str)
local c = str:peek()
if c ~= " " and c ~= "\n" and c ~= "" then
str:set(apos)
ast.parser_error(str, "malformed hex")
end
table.insert(args, n)
elseif str:peek():find("%d") then
local n = ast.parse_number(str)
local c = str:peek()
if c ~= " " and c ~= "\n" and c ~= "" then
str:set(apos)
ast.parser_error(str, "malformed number")
end
table.insert(args, n)
elseif str:peek() == "\"" then
str:skip(1)
local sval = ast.parse_dblquote(str)
local c = str:peek()
if c ~= " " and c ~= "\n" and c ~= "" then
str:set(apos)
ast.parser_error(str, "malformed string")
end
table.insert(args, sval)
elseif str:peek() == "\'" then
str:skip(1)
local sval = ast.parse_quote(str)
local c = str:peek()
if c ~= " " and c ~= "\n" and c ~= "" then
str:set(apos)
ast.parser_error(str, "malformed string")
end
table.insert(args, sval)
elseif str:peek(2) == "$".."(" then -- i have to avoid the funny
str:skip(2)
local sval = ast.parse_envvar(str)
local c = str:peek()
if c ~= " " and c ~= "\n" and c ~= "" then
str:set(apos)
ast.parser_error(str, "malformed argument")
end
table.insert(args, {type="evar", val=sval})
elseif str:peek(3) == "@".."[{" then
str:skip(3)
local sval = ast.parse_span(str)
local c = str:peek()
if c ~= " " and c ~= "\n" and c ~= "" then
str:set(apos)
ast.parser_error(str, "malformed code block")
end
table.insert(args, {type="lua_span", val=sval})
elseif str:peek() == "\n" then
break
else
ast.parser_error(str, "unknown arg type")
end
if str:peek() == "\n" then
break
end
end
return {
type="directive",
name = name,
args = args
}
end
function ast.find_first(str, onfind, ...)
local t = table.pack(...)
local spos = str:tell()
local epos = math.huge
local ematch
for i=1, t.n do
str:set(spos)
local m = str:next_instance(t[i], true)
if m then
if str:tell() < epos then
if onfind then
if not onfind(str, m) then goto continue end
end
epos = str:tell()
ematch = m
end
end
::continue::
end
if ematch then
str:set(epos)
else
str:set(spos)
end
return ematch
end
function ast.add_debugging_info(list, str, sx, sy)
if DEBUGGING then
local node = list[#list]
node.sx = sx
node.sy = sy
node.ey, node.ex = str:get_yx()
node.file = str.file
if not str.file then
luacomp.error("Node has no file!\n"..debug.traceback())
end
end
end
-- And now we parse
function ast.parse(str)
local cast = {}
while true do
local spos = str:tell()
--dprint("searching")
local match = ast.find_first(str, function(str, submatch)
if (submatch == "--#") then
--dprint("directive?")
local i=4
while true do
if str:peek(-i):sub(1,1) == "\n" or str:peek(-i):sub(1,1) == "" or str:tell() == 4 then
--dprint("found newline, we're cool")
return true
elseif not ws:find(str:peek(-i):sub(1,1)) then
--dprint("found non-whitespace character "..string.byte(str:peek(-i):sub(1,1))..str:peek(-i):sub(1,1))
return false
end
i = i + 1
end
end
return true
end, "--".."#", "$".."[[", "@".."[[", "$".."[{", "@".."[{", "$".."(", "//".."##") -- trust me, this was needed
--dprint("searched")
local sy, sx = str:get_yx()
if not match then
--dprint("not found")
table.insert(cast, {type="content", val=str:next(str:size())})
ast.add_debugging_info(cast, str, sx, sy)
break
end
local epos = str:tell()
local size = (epos-#match)-spos
if size > 0 then
str:set(spos)
local chunk = str:next(size)
if not chunk:match("^%s+$") then
table.insert(cast, {type="content", val=chunk})
ast.add_debugging_info(cast, str, sx, sy)
end
str:skip(#match)
end
--dprint("match: "..match)
if match == "--".."#" or match == "//".."##" then
--str:skip(3)
table.insert(cast, ast.parse_directive(str))
elseif match == "$".."[[" then
local blk = ast.parse_block(str)
table.insert(cast, {type="shell_block", val=blk})
elseif match == "@".."[[" then
local blk = ast.parse_block(str)
table.insert(cast, {type="lua_block", val=blk})
elseif match == "$".."[{" then
local span = ast.parse_span(str)
table.insert(cast, {type="shell_span", val=span})
elseif match == "@".."[{" then
local span = ast.parse_span(str)
--print(span)
table.insert(cast, {type="lua_span", val=span})
elseif match == "$".."(" then
local var = ast.parse_envvar(str)
table.insert(cast, {type="evar", val=var})
else
ast.parser_error(str, "internal compiler error")
end
--dprint("Parsed")
ast.add_debugging_info(cast, str, sx, sy)
end
return cast
end
end

4
src/cfg/directive_providers.lua
View File

@ -1,7 +1,3 @@
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
local directive_paths = { local directive_paths = {
"/usr/share/luacomp/directives", "/usr/share/luacomp/directives",
os.getenv("HOME").."/.local/share/luacomp/directives" os.getenv("HOME").."/.local/share/luacomp/directives"

38
src/cfg/minifier_providers.lua
View File

@ -1,10 +1,20 @@
--[[ --[[
cfg/minifier_providers.lua - Provides minifier providers. cfg/minifier_providers.lua - Provides minifier providers.
]]
-- This Source Code Form is subject to the terms of the Mozilla Public Copyright 2019 Adorable-Catgirl
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/. Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
]]
local postproc_paths = { local postproc_paths = {
"/usr/share/luacomp/postproc", "/usr/share/luacomp/postproc",
@ -15,17 +25,10 @@ local providers = {}
function providers.luamin(cin) function providers.luamin(cin)
local fn = os.tmpname() local fn = os.tmpname()
-- io.stderr:write("DEBUG: ",fn,"\n")
local fh = io.open(fn, "w") local fh = io.open(fn, "w")
fh:write(cin) fh:write(cin)
fh:close() fh:close()
-- I have no idea why luamin keeps throwing errors in my buildscript local lmh = io.popen("luamin -f "..fn.." 2>&1", "r")
-- if I make this `luamin -f <tmpfile>` and I have no fucking clue as
-- to why this fixes it, but I guess I shouldn't complain. But I will
-- anyways. What the actual fuck is this and what the actual fuck was
-- that error?
local lmh = io.popen("cat \""..fn.."\" | luamin -c", "r")
-- io.stderr:write("DEBUG: ", "luamin -f "..fn.." 2>&1", "\n")
local dat = lmh:read("*a") local dat = lmh:read("*a")
local stat, _, code = lmh:close() local stat, _, code = lmh:close()
os.remove(fn) os.remove(fn)
@ -98,7 +101,7 @@ end
setmetatable(providers, {__index=function(t, i) setmetatable(providers, {__index=function(t, i)
for i=1, #postproc_paths do for i=1, #postproc_paths do
if stat.stat(postproc_paths[i].."/"..i..".lua") then if (os.execute("stat "..postproc_paths[i].."/"..i..".lua 1>/dev/null 2>&1")) then
providers[i] = loadfile(postproc_paths[i].."/"..i..".lua")() providers[i] = loadfile(postproc_paths[i].."/"..i..".lua")()
return providers[i] return providers[i]
end end
@ -108,10 +111,11 @@ end})
local function preload_providers() local function preload_providers()
--Do this in the best way possible --Do this in the best way possible
for i=1, #postproc_paths do for i=1, #postproc_paths do
if stat.stat(postproc_paths[i]) then if (os.execute("stat "..postproc_paths[i].."1>/dev/null 2>&1")) then
for ent in dirent.files(postproc_paths[i]) do local fh = io.popen("ls "..postproc_paths[i], "r")
if ent:match("%.lua$") then for line in fh:lines() do
providers[ent:sub(1, #ent-4)] = loadfile(postproc_paths[i].."/"..ent)() if (line:match("%.lua$")) then
providers[line:sub(1, #line-4)] = loadfile(postproc_paths[i].."/"..line)()
end end
end end
end end

34
src/directive_provider.lua
View File

@ -1,23 +1,32 @@
--[[ --[[
directive_provider.lua - Provides preprocessor directives directive_provider.lua - Provides preprocessor directives
Copyright 2019 Adorable-Catgirl
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
]] ]]
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
--#include "src/cfg/directive_providers.lua" --#include "src/cfg/directive_providers.lua"
--#include "src/directives/define.lua" --#include "src/directives/define.lua"
--#include "src/directives/include.lua" --#include "src/directives/include.lua"
--#include "src/directives/loadmod.lua" --#include "src/directives/loadmod.lua"
--#include "src/directives/error.lua" --#include "src/directives/error.lua"
--#include "src/directives/warning.lua"
--#include "src/directives/pragma.lua"
setmetatable(directives, {__index=function(t, i) setmetatable(directives, {__index=function(t, i)
for i=1, #directive_paths do for i=1, #directive_paths do
if stat.stat(directive_paths[i].."/"..i..".lua") then if (os.execute("stat "..directive_paths[i].."/"..i..".lua 1>/dev/null 2>&1")) then
providers[i] = loadfile(directive_paths[i].."/"..i..".lua")() directives[i] = loadfile(directive_paths[i].."/"..i..".lua")()
return providers[i] return directives[i]
end end
end end
end}) end})
@ -25,10 +34,11 @@ end})
local function preload_directives() local function preload_directives()
--Do this in the best way possible --Do this in the best way possible
for i=1, #directive_paths do for i=1, #directive_paths do
if stat.stat(directive_paths[i]) then if (os.execute("stat "..directive_paths[i].." 1>/dev/null 2>&1")) then
for ent in dirent.files(directive_paths[i]) do local fh = io.popen("ls "..directive_paths[i], "r")
if ent:match("%.lua$") then for line in fh:lines() do
providers[ent:sub(1, #ent-4)] = loadfile(directive_paths[i].."/"..ent)() if (line:match("%.lua$")) then
directives[line:sub(1, #line-4)] = loadfile(directive_paths[i].."/"..line)()
end end
end end
end end

4
src/directives/define.lua
View File

@ -1,7 +1,3 @@
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
function directives.define(env, evar, val) function directives.define(env, evar, val)
svar.set(evar, val) svar.set(evar, val)
return true return true

4
src/directives/error.lua
View File

@ -1,7 +1,3 @@
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
function directives.error(env, err) function directives.error(env, err)
return false, err return false, err
end end

42
src/directives/include.lua
View File

@ -1,43 +1,11 @@
-- This Source Code Form is subject to the terms of the Mozilla Public function directives.include(env, file)
-- License, v. 2.0. If a copy of the MPL was not distributed with this if (not os.execute("stat "..file..">/dev/null")) then
-- file, You can obtain one at https://mozilla.org/MPL/2.0/. return false, "File `"..file.."' does not exist!"
function directives.include(env, file, asmod)
local rfile = file
--luacomp.warning("relative_include\t"..env.pragmas.relative_include)
if env.pragmas.relative_include == "y" or luacomp.experimental.relative_include then
--luacomp.warning("Experimental relative include enabled!")
if not env.fname:find("/") then
rfile = file
else
rfile = env.fname:gsub("/[^/]+$", "/")..file
end
end end
local sr, err = stat.stat(rfile) local f = io.open(file, "r")
if not sr then return false, err end
--[[local f = io.open(file, "r")
local fast = mkast(f, file) local fast = mkast(f, file)
fast.file = file fast.file = file
local code = generate(fast) local code = generate(fast)
env.code = env.code .. code .. "\n"]] env.code = env.code .. code .. "\n"
if asmod then env.code = env.code .. "local "..asmod.." = (function()\n" end
if env.pragmas.include_file_name == "y" then
env.code = env.code .. "-- BEGIN " .. file .. "\n"
end
local code = luacomp.process_file(rfile, rfile) .. "\n"
if env.pragmas.prefix_local_file_numbers == "y" then
local newcode = ""
local i = 1
for match in code:gmatch("[^\n]*") do
newcode = newcode .. "--[["..i.."]] "..match.."\n"
i = i + 1
end
code = newcode
end
env.code = env.code .. code
if env.pragmas.include_file_name == "y" then
env.code = env.code .. "-- END " .. file .. "\n"
end
if asmod then env.code = env.code .. "end)()\n" end
return true return true
end end

12
src/directives/loadmod.lua
View File

@ -1,17 +1,11 @@
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
local warned = false local warned = false
function directives.loadmod(env, mod) function directives.loadmod(env, mod)
if not warned then if not warned then
lc_warning("@[{_GENERATOR.fname}]", "loadmod is depreciated and unsafe. The API differs from luapreproc. Use the include paths!") io.stderr:write("Warning: loadmod is depreciated and unsafe. The API differs from luapreproc. Use the include paths!\n")
warned = true warned = true
end end
--if (not os.execute("stat "..file..">/dev/null")) then if (not os.execute("stat "..file..">/dev/null")) then
local sr, se = stat.stat(file) return false, "Module `"..file.."' does not exist!"
if not sr then
return false, se
end end
local modname, func = dofile(mod) local modname, func = dofile(mod)
directives[modname] = func directives[modname] = func

20
src/directives/pragma.lua
View File

@ -1,20 +0,0 @@
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
local pragma_hooks = {
include_once = function(env, value)
if value and value ~= 0 then
end
end
}
function directives.pragma(env, key, value)
--luacomp.warning(key.."\t"..value)
if not env.pragmas[key] then
return nil, "unknown pragma "..key
end
env.pragmas[key] = value
return true
end

8
src/directives/warning.lua
View File

@ -1,8 +0,0 @@
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
function directives.warning(env, msg)
lc_warning(env.fname, msg)
return true
end

148
src/generator.lua Normal file
View File

@ -0,0 +1,148 @@
--[[
generator.lua - Generates the code.
Copyright 2019 Adorable-Catgirl
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
]]
local function lua_escape(code)
return code:gsub("\\", "\\\\"):gsub("\"", "\\\""):gsub("\n", "\\n")
end
local function shell_escape(code)
return code:gsub("\\%[", "[")
end
local function svar_escape(code)
return code:gsub("\"", "\\\""):gsub("\'", "\\\'"):gsub("`", "\\`")
end
local directives = {}
local function generate(ast, gencode)
local lua_code = ""
for i=1, #ast do
local leaf = ast[i]
if (leaf.type == "lua") then
lua_code = lua_code .. leaf.code
elseif (leaf.type == "directive") then
local stargs = {}
for i=1, #leaf.args do
local arg = leaf.args[i]
if (type(arg) == "string") then
stargs[i] = "\""..lua_escape(arg).."\""
elseif (type(arg) == "number") then
stargs[i] = tostring(arg)
elseif (type(arg) == "table" and arg.type=="lua_var") then
stargs[i] = arg[1]
end
end
lua_code = lua_code .. "call_directive(\""..leaf.file..":"..tostring(leaf.line).."\",\""..leaf.name.."\","..table.concat(stargs, ",")..")"
elseif (leaf.type == "envvar") then
lua_code = lua_code .. "put_env(\""..leaf.file..":"..tostring(leaf.line).."\",\""..leaf.var.."\")"
elseif (leaf.type == "code") then
lua_code = lua_code .. "put_code(\""..leaf.file..":"..tostring(leaf.line).."\",\"" .. lua_escape(leaf.data) .. "\")"
elseif (leaf.type == "lua_r") then
lua_code = lua_code .. "put_code(\""..leaf.file..":"..tostring(leaf.line).."\",tostring("..leaf.code.."))"
elseif (leaf.type == "shell") then
lua_code = lua_code .. "put_shell_out(\""..leaf.file..":"..tostring(leaf.line).."\",\""..lua_escape(leaf.code).."\")"
elseif (leaf.type == "shell_r") then
lua_code = lua_code .. "put_svar(\""..leaf.file..":"..tostring(leaf.line).."\",\""..leaf.code.."\")"
else
io.stderr:write("ERROR: Internal catastrophic failure, unknown type "..leaf.type.."\n")
os.exit(1)
end
lua_code = lua_code .. "\n"
end
local env = {code = ""}
local function run_away_screaming(fpos, err)
io.stdout:write("ERROR: "..fpos..": "..err.."\n")
os.exit(1)
end
local function bitch(fpos, err)
io.stdout:write("WARNING: "..fpos..": "..err.."\n")
end
local function call_directive(fpos, dname, ...)
if (not directives[dname]) then
run_away_screaming(fpos, "Invalid directive name `"..dname.."'")
end
local r, er = directives[dname](env, ...)
if (not r) then
run_away_screaming(fpos, er)
end
end
local function put_env(fpos, evar)
local e = svar.get(evar)
if not e then
run_away_screaming(fpos, "Enviroment variable `"..evar.."' does not exist!")
end
env.code = env.code .. "\""..lua_escape(e).."\""
end
local function put_code(fpos, code)
env.code = env.code .. code --not much that can fail here...
end
local function put_shell_out(fpos, code)
local tname = os.tmpname()
local f = os.tmpname()
local fh = io.open(f, "w")
fh:write(code)
fh:close()
os.execute("chmod +x "..f)
local vars = svar.get_all()
local vstr = ""
for k, v in pairs(vars) do
vstr = vstr .. k.."=".."\""..svar_escape(v).."\" "
end
dprint("Shell", vstr .. f.." "..tname)
local h = io.popen(vstr .. f.." "..tname, "r")
local output = h:read("*a"):gsub("\n$", "")
local ok, sig, code = h:close()
fh = io.open(tname, "r")
local stderr = fh:read("*a"):gsub("\n$", "")
fh:close()
os.remove(f)
os.remove(tname)
if not ok then
run_away_screaming(fpos, "Shell exit code "..code..", SIG_"..sig:upper().."\n"..stderr)
elseif #stderr > 0 then
bitch(fpos, stderr)
end
env.code = env.code .. output
end
local function put_svar(fpos, evar)
local e = svar.get(evar)
if not e then
run_away_screaming(fpos, "Enviroment variable `"..evar.."' does not exist!")
end
env.code = env.code .. e
end
local fenv = {}
for k, v in pairs(_G) do
fenv[k] = v
end
if gencode then
return lua_code
end
fenv._G = fenv
fenv._ENV = fenv
fenv.call_directive = call_directive
fenv.put_code = put_code
fenv.put_env = put_env
fenv.put_svar = put_svar
fenv.put_shell_out = put_shell_out
fenv._GENERATOR=env
local func = assert(load(lua_code, "=(generated code: "..ast.file..")", "t", fenv))
func()
return env.code
end

144
src/generator2.lua
View File

@ -1,144 +0,0 @@
-- Generator v2: Borderless Edition
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
local generator = {}
do
function generator.parse_ast(file, ast)
local gcode = ""
for i=1, #ast do
local leaf = ast[i]
if DEBUGGING then
if not leaf.file then
local linfo = {}
for k, v in pairs(leaf) do
table.insert(linfo, tostring(k).."\t"..tostring(v))
end
luacomp.error("Node has no file!\n"..debug.traceback().."\n"..table.concat(linfo, "\n"))
end
table.insert(__DSYM, {
sx = leaf.sx,
sy = leaf.sy,
ex = leaf.ex,
ey = leaf.ey,
file = leaf.file
})
gcode = gcode .. string.format("push_debuginfo(%d)\n", #__DSYM)
end
if leaf.type == "directive" then
gcode = gcode .. string.format("call_directive(%q,", leaf.name)
local pargs = {}
for i=1, #leaf.args do
if type(leaf.args[i]) ~= "table" then
table.insert(pargs, string.format("%q", leaf.args[i]))
elseif leaf.args[i].type == "lua_span" then
table.insert(pargs, leaf.args[i].val)
elseif leaf.args[i].type == "evar" then
table.insert(pargs, string.format("svar.get(%q)", leaf.args[i].val))
end
end
gcode = gcode .. table.concat(pargs, ",")..")\n"
elseif leaf.type == "lua_block" then
gcode = gcode .. leaf.val .. "\n"
elseif leaf.type == "shell_block" then
gcode = gcode .. string.format("shell_write(%q)\n", leaf.val)
elseif leaf.type == "content" then
gcode = gcode .. string.format("write_out(%q)\n", leaf.val)
elseif leaf.type == "lua_span" then
gcode = gcode .. "write_out("..leaf.val..")\n"
elseif leaf.type == "shell_span" then
gcode = gcode .. string.format("write_out(svar.get(%q))\n", leaf.val)
elseif leaf.type == "evar" then
gcode = gcode .. string.format("write_out(string.format(\"%%q\", svar.get(%q)))\n", leaf.val)
end
end
return gcode
end
function generator.run_gcode(fname, gcode)
fname = fname or "(unknown)"
local env = {
code = "",
fname = fname,
pragmas = {
include_file_name = "n",
prefix_local_file_numbers = "n",
wrap_includes = "n",
relative_include = "n"
}
}
local fenv = {}
for k, v in pairs(_G) do
fenv[k] = v
end
fenv._G = fenv
fenv._GENERATOR = env
local lsym
function fenv.push_debuginfo(idx)
local ent = __DSYM[idx]
local linecount = 0
for l in env.code:gmatch("[^\n]*") do
linecount = linecount+1
end
local x = 1
while true do
x = x + 1
local c = env.code:sub(#env.code-x, #env.code-x)
if c == "\n" or c == "" then
break
end
end
ent.fx = x-1
ent.fy = linecount
if lsym then
local lent = __DSYM[idx]
lent.fey = ent.fy
end
lsym = idx
end
local function debug_add_tag(ttype, ...)
if not DEBUGGING then return end
local alist = table.pack(...)
for i=1, #alist do
alist[i] = tostring(alist[i])
end
__DSYM[lsym].tag = string.format("TYPE[%s=%s]", ttype, table.concat(alist,","))
__DSYM[lsym].tagv = {type=ttype, vals=table.pack(...)}
end
function fenv.call_directive(dname, ...)
if not directives[dname] then lc_error("@[{_GENERATOR.fname}]", "invalid directive "..dname) end
local r, er = directives[dname](env, ...)
if not r then lc_error("directive "..dname, er) end
debug_add_tag("CALL_DIR", dname, ...)
end
function fenv.write_out(code)
env.code = env.code .. code
debug_add_tag("CODE", #tostring(code))
end
function fenv.shell_write(cmd)
local tmpname = os.tmpname()
local f = io.open(tmpname, "w")
f:write(cmd)
f:close()
local h = io.popen(os.getenv("SHELL").." "..tmpname, "r")
local r = h:read("*a"):gsub("%s+$", ""):gsub("^%s+", "")
env.code = env.code .. r
h:close()
debug_add_tag("SHELL", cmd, #r)
end
assert(load(gcode, "="..fname, "t", fenv))()
if DEBUGGING then
end
return env.code
end
end

19
src/init.lua
View File

@ -1,11 +1,20 @@
--[[ --[[
init.lua - Main file of LuaComp init.lua - Main file of LuaComp
Copyright 2019 Adorable-Catgirl
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
]] ]]
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
local argparse = require("argparse") local argparse = require("argparse")
--#include "src/application.lua" --#include "src/application.lua"

103
src/libluacomp.lua
View File

@ -1,103 +0,0 @@
-- A LuaComp library
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
local function dprint(...)
local args = {...}
for i=1, #args do
args[i] = tostring(args[i])
end
if (false) then
io.stderr:write("DEBUG\t"..table.concat(args,"\t"),"\n")
end
end
local stat = require("posix.sys.stat")
local dirent = require("posix.dirent")
local unistd = require("posix.unistd")
local function lc_error(name, msg)
if unistd.isatty(2) then
io.stderr:write(string.format("\27[90;1m(%s) \27[31merror: \27[22m%s\27[0m\n", name, msg))
else
io.stderr:write(string.format("(%s) %s\n", name, msg))
end
os.exit(1)
end
local function lc_warning(name, msg)
if unistd.isatty(2) then
io.stderr:write(string.format("\27[90;1m(%s) \27[33mwarning: \27[22m%s\27[0m\n", name, msg))
else
io.stderr:write(string.format("(%s) %s\n", name, msg))
end
end
local luacomp = {}
local directives = {}
--#include "src/shell_var.lua"
--#include "src/luacomp_vars.lua"
--#include "src/directive_provider.lua"
--#include "src/cfg/minifier_providers.lua"
@[[if not svar.get("LIBLUACOMP") then]]
_G.luacomp = luacomp
@[[end]]
function luacomp.error(msg)
local inf = debug.getinfo(2)
local name = (inf and inf.short_src:match("[^/]+$"):gsub("^[=@]", "")) or "luacomp"
lc_error(name, msg)
end
function luacomp.warning(msg)
local inf = debug.getinfo(2)
local name = (inf and inf.short_src:match("[^/]+$"):gsub("^[=@]", "")) or "luacomp"
lc_warning(name, msg)
end
--#include "src/ast2.lua"
--#include "src/generator2.lua"
function luacomp.process_file(file, fname, dry)
@[[if not svar.get("LIBLUACOMP") then]]
io.stderr:write("PROC\t", fname, "\n")
@[[end]]
if type(file) == "string" then
file = io.open(file, "r")
end
local d = file:read("*a"):gsub("\r\n", "\n"):gsub("\r", "\n")
file:close()
return luacomp.process_string(d, fname or file, dry)
end
function luacomp.process_string(str, name, dry)
local str = ast.str_to_stream(str, name)
local cast = ast.parse(str)
local gcode = generator.parse_ast(name, cast)
if dry then
return gcode
end
--error("TODO: implement generation")
return generator.run_gcode(name, gcode)
end
function luacomp.run_minifier(minifier, code)
local min = providers[minifier]
if not minifier then
lc_error("luacomp", "Postprocessor "..minifier.." not found!")
--io.stderr:write("ERROR: Postprocessor `"..args.minifier.."' not found!\n")
--os.exit(1)
end
local rcode, err = min(code)
if (not rcode) then
lc_error(args.minifier, "Postprocessor error:\n"..err)
end
return rcode
end
@[[if svar.get("LIBLUACOMP") then]]
return luacomp
@[[end]]

16
src/luacomp_vars.lua
View File

@ -1,19 +1,11 @@
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
local function _sv(k, v) local function _sv(k, v)
_G[k] = v _G[k] = v
svar.set(k, v) svar.set(k, v)
--os.setenv(k, tostring(v)) --os.setenv(k, tostring(v))
end end
_sv("LUACOMP_V_MAJ", 2) _sv("LUACOMP_V_MAJ", 1)
_sv("LUACOMP_V_MIN", 0) _sv("LUACOMP_V_MIN", 2)
_sv("LUACOMP_V_PAT", 4) _sv("LUACOMP_V_PAT", 1)
_sv("LUACOMP_VERSION", LUACOMP_V_MAJ.."."..LUACOMP_V_MIN.."."..LUACOMP_V_PAT) _sv("LUACOMP_VERSION", LUACOMP_V_MAJ.."."..LUACOMP_V_MIN.."."..LUACOMP_V_PAT)
_sv("LUACOMP_NAME", "LuaComp") _sv("LUACOMP_NAME", "LuaComp")
luacomp.experimental = {
relative_include = false
}

22
src/shell_var.lua
View File

@ -1,17 +1,15 @@
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
svar = {} svar = {}
do local svars = {}
local stdlib = require("posix.stdlib")
function svar.get(var) function svar.get(var)
return os.getenv(var) return svars[var] or os.getenv(var)
end end
function svar.set(var, val) function svar.set(var, val)
return stdlib.setenv(var, val and tostring(val) or nil) svars[var] = tostring(val)
end end
function svar.get_all()
return svars
end end

18
src/staticinit.lua
View File

@ -1,10 +1,20 @@
--[[ --[[
staticinit.lua - Main file of LuaComp, directly includes argparse. staticinit.lua - Main file of LuaComp, directly includes argparse.
]]
-- This Source Code Form is subject to the terms of the Mozilla Public Copyright 2019 Adorable-Catgirl
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/. Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
]]
local argparse = (function() local argparse = (function()
--#include "src/argparse.lua" --#include "src/argparse.lua"

10
src/test.lua
View File

@ -1,10 +0,0 @@
--#include "test"
--#fuck @[{test}] $(test) 1245 0xFF
$(test)
$[[test]]
$[{test}]
@[{test}]
@[[if test then test() end]]
@[[for i=1, 10 do]]
print("hi @[{i}]")
@[[end]]

2
tests/asmod.lua
View File

@ -1,2 +0,0 @@
--#include "mod.lua" "foo"
foo()

1
tests/bad_include.lua
View File

@ -1 +0,0 @@
--#include "nonexistant"

3
tests/bad_span.lua
View File

@ -1,3 +0,0 @@
@[{
fuck
}]

2
tests/bad_string.lua
View File

@ -1,2 +0,0 @@
--#include "fuck
"

1
tests/bad_string_2.lua
View File

@ -1 +0,0 @@
--#include "wtf\"

1
tests/escape_hell.lua
View File

@ -1 +0,0 @@
--#error "fuck\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"

3
tests/lua_test.lua
View File

@ -1,3 +0,0 @@
@[[for i=1, 10 do]]
print("hello @[{i}]")
@[[end]]

3
tests/mod.lua
View File

@ -1,3 +0,0 @@
return function()
print("hello, world")
end

2
tests/noblockclose.lua
View File

@ -1,2 +0,0 @@
@[[
lmao

2
tests/nonewline_directive.lua
View File

@ -1,2 +0,0 @@
-- include file
--#include "nopreproc.lua"

1
tests/nopreproc.lua
View File

@ -1 +0,0 @@
print("test")

5
tests/pragma_include_file_names.lua
View File

@ -1,5 +0,0 @@
--#pragma "include_file_name" "y"
--#include "nopreproc.lua"
--#include "lua_test.lua"
--#include "shell.lua"
--#include "warning.lua"

6
tests/pragma_include_file_names_local_file_numbers.lua
View File

@ -1,6 +0,0 @@
--#pragma "include_file_name" "y"
--#pragma "prefix_local_file_numbers" "y"
--#include "nopreproc.lua"
--#include "lua_test.lua"
--#include "shell.lua"
--#include "warning.lua"

5
tests/runtests.sh
View File

@ -1,5 +0,0 @@
for test in $(find -name "*.lua"); do
echo "Running test $test"
luacomp $test > $test.out
echo "=============================================================="
done

6
tests/shell.lua
View File

@ -1,6 +0,0 @@
-- raw evar
print("your shell is $[{SHELL}]")
-- evar string
print("your shell is "..$(SHELL))
-- cat
$[[cat nopreproc.lua]]

1
tests/warning.lua
View File

@ -1 +0,0 @@
--#warning "test"