From 2f80535c778eacefb7c73b39d2cb4f877f3d3341 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 27 Jun 2022 03:04:10 +0000 Subject: CTAN sync 202206270304 --- macros/generic/lt3luabridge/LICENSE | 415 +++++++++++++++++++++++++ macros/generic/lt3luabridge/README.md | 25 ++ macros/generic/lt3luabridge/docstrip.cfg | 43 +++ macros/generic/lt3luabridge/example.context | 4 + macros/generic/lt3luabridge/example.latex | 5 + macros/generic/lt3luabridge/example.plaintex | 3 + macros/generic/lt3luabridge/lt3luabridge.sty | 8 + macros/generic/lt3luabridge/lt3luabridge.tex | 407 ++++++++++++++++++++++++ macros/generic/lt3luabridge/t-lt3luabridge.tex | 4 + 9 files changed, 914 insertions(+) create mode 100644 macros/generic/lt3luabridge/LICENSE create mode 100644 macros/generic/lt3luabridge/README.md create mode 100644 macros/generic/lt3luabridge/docstrip.cfg create mode 100644 macros/generic/lt3luabridge/example.context create mode 100644 macros/generic/lt3luabridge/example.latex create mode 100644 macros/generic/lt3luabridge/example.plaintex create mode 100644 macros/generic/lt3luabridge/lt3luabridge.sty create mode 100644 macros/generic/lt3luabridge/lt3luabridge.tex create mode 100644 macros/generic/lt3luabridge/t-lt3luabridge.tex (limited to 'macros/generic') diff --git a/macros/generic/lt3luabridge/LICENSE b/macros/generic/lt3luabridge/LICENSE new file mode 100644 index 0000000000..4db9b5af29 --- /dev/null +++ b/macros/generic/lt3luabridge/LICENSE @@ -0,0 +1,415 @@ +The LaTeX Project Public License +=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- + +LPPL Version 1.3c 2008-05-04 + +Copyright 1999 2002-2008 LaTeX3 Project + Everyone is allowed to distribute verbatim copies of this + license document, but modification of it is not allowed. + + +PREAMBLE +======== + +The LaTeX Project Public License (LPPL) is the primary license under +which the LaTeX kernel and the base LaTeX packages are distributed. + +You may use this license for any work of which you hold the copyright +and which you wish to distribute. This license may be particularly +suitable if your work is TeX-related (such as a LaTeX package), but +it is written in such a way that you can use it even if your work is +unrelated to TeX. + +The section `WHETHER AND HOW TO DISTRIBUTE WORKS UNDER THIS LICENSE', +below, gives instructions, examples, and recommendations for authors +who are considering distributing their works under this license. + +This license gives conditions under which a work may be distributed +and modified, as well as conditions under which modified versions of +that work may be distributed. + +We, the LaTeX3 Project, believe that the conditions below give you +the freedom to make and distribute modified versions of your work +that conform with whatever technical specifications you wish while +maintaining the availability, integrity, and reliability of +that work. If you do not see how to achieve your goal while +meeting these conditions, then read the document `cfgguide.tex' +and `modguide.tex' in the base LaTeX distribution for suggestions. + + +DEFINITIONS +=========== + +In this license document the following terms are used: + + `Work' + Any work being distributed under this License. + + `Derived Work' + Any work that under any applicable law is derived from the Work. + + `Modification' + Any procedure that produces a Derived Work under any applicable + law -- for example, the production of a file containing an + original file associated with the Work or a significant portion of + such a file, either verbatim or with modifications and/or + translated into another language. + + `Modify' + To apply any procedure that produces a Derived Work under any + applicable law. + + `Distribution' + Making copies of the Work available from one person to another, in + whole or in part. Distribution includes (but is not limited to) + making any electronic components of the Work accessible by + file transfer protocols such as FTP or HTTP or by shared file + systems such as Sun's Network File System (NFS). + + `Compiled Work' + A version of the Work that has been processed into a form where it + is directly usable on a computer system. This processing may + include using installation facilities provided by the Work, + transformations of the Work, copying of components of the Work, or + other activities. Note that modification of any installation + facilities provided by the Work constitutes modification of the Work. + + `Current Maintainer' + A person or persons nominated as such within the Work. If there is + no such explicit nomination then it is the `Copyright Holder' under + any applicable law. + + `Base Interpreter' + A program or process that is normally needed for running or + interpreting a part or the whole of the Work. + + A Base Interpreter may depend on external components but these + are not considered part of the Base Interpreter provided that each + external component clearly identifies itself whenever it is used + interactively. Unless explicitly specified when applying the + license to the Work, the only applicable Base Interpreter is a + `LaTeX-Format' or in the case of files belonging to the + `LaTeX-format' a program implementing the `TeX language'. + + + +CONDITIONS ON DISTRIBUTION AND MODIFICATION +=========================================== + +1. Activities other than distribution and/or modification of the Work +are not covered by this license; they are outside its scope. In +particular, the act of running the Work is not restricted and no +requirements are made concerning any offers of support for the Work. + +2. You may distribute a complete, unmodified copy of the Work as you +received it. Distribution of only part of the Work is considered +modification of the Work, and no right to distribute such a Derived +Work may be assumed under the terms of this clause. + +3. You may distribute a Compiled Work that has been generated from a +complete, unmodified copy of the Work as distributed under Clause 2 +above, as long as that Compiled Work is distributed in such a way that +the recipients may install the Compiled Work on their system exactly +as it would have been installed if they generated a Compiled Work +directly from the Work. + +4. If you are the Current Maintainer of the Work, you may, without +restriction, modify the Work, thus creating a Derived Work. You may +also distribute the Derived Work without restriction, including +Compiled Works generated from the Derived Work. Derived Works +distributed in this manner by the Current Maintainer are considered to +be updated versions of the Work. + +5. If you are not the Current Maintainer of the Work, you may modify +your copy of the Work, thus creating a Derived Work based on the Work, +and compile this Derived Work, thus creating a Compiled Work based on +the Derived Work. + +6. If you are not the Current Maintainer of the Work, you may +distribute a Derived Work provided the following conditions are met +for every component of the Work unless that component clearly states +in the copyright notice that it is exempt from that condition. Only +the Current Maintainer is allowed to add such statements of exemption +to a component of the Work. + + a. If a component of this Derived Work can be a direct replacement + for a component of the Work when that component is used with the + Base Interpreter, then, wherever this component of the Work + identifies itself to the user when used interactively with that + Base Interpreter, the replacement component of this Derived Work + clearly and unambiguously identifies itself as a modified version + of this component to the user when used interactively with that + Base Interpreter. + + b. Every component of the Derived Work contains prominent notices + detailing the nature of the changes to that component, or a + prominent reference to another file that is distributed as part + of the Derived Work and that contains a complete and accurate log + of the changes. + + c. No information in the Derived Work implies that any persons, + including (but not limited to) the authors of the original version + of the Work, provide any support, including (but not limited to) + the reporting and handling of errors, to recipients of the + Derived Work unless those persons have stated explicitly that + they do provide such support for the Derived Work. + + d. You distribute at least one of the following with the Derived Work: + + 1. A complete, unmodified copy of the Work; + if your distribution of a modified component is made by + offering access to copy the modified component from a + designated place, then offering equivalent access to copy + the Work from the same or some similar place meets this + condition, even though third parties are not compelled to + copy the Work along with the modified component; + + 2. Information that is sufficient to obtain a complete, + unmodified copy of the Work. + +7. If you are not the Current Maintainer of the Work, you may +distribute a Compiled Work generated from a Derived Work, as long as +the Derived Work is distributed to all recipients of the Compiled +Work, and as long as the conditions of Clause 6, above, are met with +regard to the Derived Work. + +8. The conditions above are not intended to prohibit, and hence do not +apply to, the modification, by any method, of any component so that it +becomes identical to an updated version of that component of the Work as +it is distributed by the Current Maintainer under Clause 4, above. + +9. Distribution of the Work or any Derived Work in an alternative +format, where the Work or that Derived Work (in whole or in part) is +then produced by applying some process to that format, does not relax or +nullify any sections of this license as they pertain to the results of +applying that process. + +10. a. A Derived Work may be distributed under a different license + provided that license itself honors the conditions listed in + Clause 6 above, in regard to the Work, though it does not have + to honor the rest of the conditions in this license. + + b. If a Derived Work is distributed under a different license, that + Derived Work must provide sufficient documentation as part of + itself to allow each recipient of that Derived Work to honor the + restrictions in Clause 6 above, concerning changes from the Work. + +11. This license places no restrictions on works that are unrelated to +the Work, nor does this license place any restrictions on aggregating +such works with the Work by any means. + +12. Nothing in this license is intended to, or may be used to, prevent +complete compliance by all parties with all applicable laws. + + +NO WARRANTY +=========== + +There is no warranty for the Work. Except when otherwise stated in +writing, the Copyright Holder provides the Work `as is', without +warranty of any kind, either expressed or implied, including, but not +limited to, the implied warranties of merchantability and fitness for a +particular purpose. The entire risk as to the quality and performance +of the Work is with you. Should the Work prove defective, you assume +the cost of all necessary servicing, repair, or correction. + +In no event unless required by applicable law or agreed to in writing +will The Copyright Holder, or any author named in the components of the +Work, or any other party who may distribute and/or modify the Work as +permitted above, be liable to you for damages, including any general, +special, incidental or consequential damages arising out of any use of +the Work or out of inability to use the Work (including, but not limited +to, loss of data, data being rendered inaccurate, or losses sustained by +anyone as a result of any failure of the Work to operate with any other +programs), even if the Copyright Holder or said author or said other +party has been advised of the possibility of such damages. + + +MAINTENANCE OF THE WORK +======================= + +The Work has the status `author-maintained' if the Copyright Holder +explicitly and prominently states near the primary copyright notice in +the Work that the Work can only be maintained by the Copyright Holder +or simply that it is `author-maintained'. + +The Work has the status `maintained' if there is a Current Maintainer +who has indicated in the Work that they are willing to receive error +reports for the Work (for example, by supplying a valid e-mail +address). It is not required for the Current Maintainer to acknowledge +or act upon these error reports. + +The Work changes from status `maintained' to `unmaintained' if there +is no Current Maintainer, or the person stated to be Current +Maintainer of the work cannot be reached through the indicated means +of communication for a period of six months, and there are no other +significant signs of active maintenance. + +You can become the Current Maintainer of the Work by agreement with +any existing Current Maintainer to take over this role. + +If the Work is unmaintained, you can become the Current Maintainer of +the Work through the following steps: + + 1. Make a reasonable attempt to trace the Current Maintainer (and + the Copyright Holder, if the two differ) through the means of + an Internet or similar search. + + 2. If this search is successful, then enquire whether the Work + is still maintained. + + a. If it is being maintained, then ask the Current Maintainer + to update their communication data within one month. + + b. If the search is unsuccessful or no action to resume active + maintenance is taken by the Current Maintainer, then announce + within the pertinent community your intention to take over + maintenance. (If the Work is a LaTeX work, this could be + done, for example, by posting to comp.text.tex.) + + 3a. If the Current Maintainer is reachable and agrees to pass + maintenance of the Work to you, then this takes effect + immediately upon announcement. + + b. If the Current Maintainer is not reachable and the Copyright + Holder agrees that maintenance of the Work be passed to you, + then this takes effect immediately upon announcement. + + 4. If you make an `intention announcement' as described in 2b. above + and after three months your intention is challenged neither by + the Current Maintainer nor by the Copyright Holder nor by other + people, then you may arrange for the Work to be changed so as + to name you as the (new) Current Maintainer. + + 5. If the previously unreachable Current Maintainer becomes + reachable once more within three months of a change completed + under the terms of 3b) or 4), then that Current Maintainer must + become or remain the Current Maintainer upon request provided + they then update their communication data within one month. + +A change in the Current Maintainer does not, of itself, alter the fact +that the Work is distributed under the LPPL license. + +If you become the Current Maintainer of the Work, you should +immediately provide, within the Work, a prominent and unambiguous +statement of your status as Current Maintainer. You should also +announce your new status to the same pertinent community as +in 2b) above. + + +WHETHER AND HOW TO DISTRIBUTE WORKS UNDER THIS LICENSE +====================================================== + +This section contains important instructions, examples, and +recommendations for authors who are considering distributing their +works under this license. These authors are addressed as `you' in +this section. + +Choosing This License or Another License +---------------------------------------- + +If for any part of your work you want or need to use *distribution* +conditions that differ significantly from those in this license, then +do not refer to this license anywhere in your work but, instead, +distribute your work under a different license. You may use the text +of this license as a model for your own license, but your license +should not refer to the LPPL or otherwise give the impression that +your work is distributed under the LPPL. + +The document `modguide.tex' in the base LaTeX distribution explains +the motivation behind the conditions of this license. It explains, +for example, why distributing LaTeX under the GNU General Public +License (GPL) was considered inappropriate. Even if your work is +unrelated to LaTeX, the discussion in `modguide.tex' may still be +relevant, and authors intending to distribute their works under any +license are encouraged to read it. + +A Recommendation on Modification Without Distribution +----------------------------------------------------- + +It is wise never to modify a component of the Work, even for your own +personal use, without also meeting the above conditions for +distributing the modified component. While you might intend that such +modifications will never be distributed, often this will happen by +accident -- you may forget that you have modified that component; or +it may not occur to you when allowing others to access the modified +version that you are thus distributing it and violating the conditions +of this license in ways that could have legal implications and, worse, +cause problems for the community. It is therefore usually in your +best interest to keep your copy of the Work identical with the public +one. Many works provide ways to control the behavior of that work +without altering any of its licensed components. + +How to Use This License +----------------------- + +To use this license, place in each of the components of your work both +an explicit copyright notice including your name and the year the work +was authored and/or last substantially modified. Include also a +statement that the distribution and/or modification of that +component is constrained by the conditions in this license. + +Here is an example of such a notice and statement: + + %% pig.dtx + %% Copyright 2005 M. Y. Name + % + % This work may be distributed and/or modified under the + % conditions of the LaTeX Project Public License, either version 1.3 + % of this license or (at your option) any later version. + % The latest version of this license is in + % http://www.latex-project.org/lppl.txt + % and version 1.3 or later is part of all distributions of LaTeX + % version 2005/12/01 or later. + % + % This work has the LPPL maintenance status `maintained'. + % + % The Current Maintainer of this work is M. Y. Name. + % + % This work consists of the files pig.dtx and pig.ins + % and the derived file pig.sty. + +Given such a notice and statement in a file, the conditions +given in this license document would apply, with the `Work' referring +to the three files `pig.dtx', `pig.ins', and `pig.sty' (the last being +generated from `pig.dtx' using `pig.ins'), the `Base Interpreter' +referring to any `LaTeX-Format', and both `Copyright Holder' and +`Current Maintainer' referring to the person `M. Y. Name'. + +If you do not want the Maintenance section of LPPL to apply to your +Work, change `maintained' above into `author-maintained'. +However, we recommend that you use `maintained', as the Maintenance +section was added in order to ensure that your Work remains useful to +the community even when you can no longer maintain and support it +yourself. + +Derived Works That Are Not Replacements +--------------------------------------- + +Several clauses of the LPPL specify means to provide reliability and +stability for the user community. They therefore concern themselves +with the case that a Derived Work is intended to be used as a +(compatible or incompatible) replacement of the original Work. If +this is not the case (e.g., if a few lines of code are reused for a +completely different task), then clauses 6b and 6d shall not apply. + + +Important Recommendations +------------------------- + + Defining What Constitutes the Work + + The LPPL requires that distributions of the Work contain all the + files of the Work. It is therefore important that you provide a + way for the licensee to determine which files constitute the Work. + This could, for example, be achieved by explicitly listing all the + files of the Work near the copyright notice of each file or by + using a line such as: + + % This work consists of all files listed in manifest.txt. + + in that place. In the absence of an unequivocal list it might be + impossible for the licensee to determine what is considered by you + to comprise the Work and, in such a case, the licensee would be + entitled to make reasonable conjectures as to which files comprise + the Work. diff --git a/macros/generic/lt3luabridge/README.md b/macros/generic/lt3luabridge/README.md new file mode 100644 index 0000000000..5c4a3f50c3 --- /dev/null +++ b/macros/generic/lt3luabridge/README.md @@ -0,0 +1,25 @@ +# lt3luabridge + + [![license](https://img.shields.io/github/license/witiko/markdown)](LICENSE) + [![ci](https://github.com/witiko/lt3luabridge/actions/workflows/main.yml/badge.svg)][4] + +lt3luabridge is an [expl3][1] package for plain TeX, LaTeX, and ConTeXt that +allows you to execute Lua code in LuaTeX or any other TeX engine that exposes +the shell: + +``` tex +\documentclass{standalone} +\usepackage{l3luabridge} +\begin{document} +$ 1 + 2 = \luabridgeExecute{ print(1 + 2) } $ +\end{document} +``` + +lt3luabridge was previously part of [the Markdown package for TeX][2], where it +has been battle-tested since 2016. [Since 2022][3], lt3luabridge has been +available as a separate package. + + [1]: http://mirrors.ctan.org/macros/latex/contrib/l3kernel/expl3.pdf + [2]: https://www.ctan.org/pkg/markdown + [3]: https://github.com/witiko/markdown/pull/141 + [4]: https://github.com/Witiko/lt3luabridge/actions diff --git a/macros/generic/lt3luabridge/docstrip.cfg b/macros/generic/lt3luabridge/docstrip.cfg new file mode 100644 index 0000000000..06c65a3c2a --- /dev/null +++ b/macros/generic/lt3luabridge/docstrip.cfg @@ -0,0 +1,43 @@ +\preamble + +Copyright (C) 2016-2022 Vít Novotný + +This work may be distributed and/or modified under the +conditions of the LaTeX Project Public License, either version 1.3 +of this license or (at your option) any later version. +The latest version of this license is in + + http://www.latex-project.org/lppl.txt + +and version 1.3 or later is part of all distributions of LaTeX +version 2005/12/01 or later. + +This work has the LPPL maintenance status `maintained'. +The Current Maintainer of this work is Vít Novotný. + +Send bug reports, requests for additions and questions +either to the GitHub issue tracker at + + https://github.com/Witiko/lt3luabridge/issues + +or to the e-mail address . + +MODIFICATION ADVICE: + +If you want to customize this file, it is best to make a copy of +the source file(s) from which it was produced. Use a different +name for your copy(ies) and modify the copy(ies); this will ensure +that your modifications do not get overwritten when you install a +new release of the standard system. You should also ensure that +your modified source file does not generate any modified file with +the same name as a standard file. + +You will also need to produce your own, suitably named, .ins file to +control the generation of files from your source file; this file +should contain your own preambles for the files it generates, not +those in the standard .ins files. + +The names of the source files used are shown above. + +\endpreamble +\askforoverwritefalse diff --git a/macros/generic/lt3luabridge/example.context b/macros/generic/lt3luabridge/example.context new file mode 100644 index 0000000000..2e64215333 --- /dev/null +++ b/macros/generic/lt3luabridge/example.context @@ -0,0 +1,4 @@ +\usemodule[t][lt3luabridge] +\starttext +$ 1 + 2 = \luabridgeExecute{ print(1 + 2) } $ +\stoptext diff --git a/macros/generic/lt3luabridge/example.latex b/macros/generic/lt3luabridge/example.latex new file mode 100644 index 0000000000..0393d76c69 --- /dev/null +++ b/macros/generic/lt3luabridge/example.latex @@ -0,0 +1,5 @@ +\documentclass{standalone} +\usepackage{lt3luabridge} +\begin{document} +$ 1 + 2 = \luabridgeExecute{ print(1 + 2) } $ +\end{document} diff --git a/macros/generic/lt3luabridge/example.plaintex b/macros/generic/lt3luabridge/example.plaintex new file mode 100644 index 0000000000..515a5d04b0 --- /dev/null +++ b/macros/generic/lt3luabridge/example.plaintex @@ -0,0 +1,3 @@ +\input lt3luabridge\relax +$ 1 + 2 = \luabridgeExecute{ print(1 + 2) } $ +\bye diff --git a/macros/generic/lt3luabridge/lt3luabridge.sty b/macros/generic/lt3luabridge/lt3luabridge.sty new file mode 100644 index 0000000000..fc786140c6 --- /dev/null +++ b/macros/generic/lt3luabridge/lt3luabridge.sty @@ -0,0 +1,8 @@ +\RequirePackage{expl3} +\ProvidesExplPackage + {lt3luabridge}% + {2022-06-25}% + {1.0.0}% + {An expl3 package that allows you to execute Lua code in LuaTeX or any other + TeX engine that exposes the shell} +\input lt3luabridge\relax diff --git a/macros/generic/lt3luabridge/lt3luabridge.tex b/macros/generic/lt3luabridge/lt3luabridge.tex new file mode 100644 index 0000000000..0c2b8f8ddd --- /dev/null +++ b/macros/generic/lt3luabridge/lt3luabridge.tex @@ -0,0 +1,407 @@ +\ifx\ExplSyntaxOn\undefined + \input expl3-generic\relax +\fi +\ExplSyntaxOn +\int_const:Nn \c__luabridge_method_write_eighteen_int { 0 } +\int_const:Nn \c__luabridge_method_os_execute_int { 1 } +\int_const:Nn \c__luabridge_method_directlua_int { 2 } +\int_if_exist:NF + \g__luabridge_method_int + { + \int_new:N + \g__luabridge_method_int + \cs_if_exist:NTF + \directlua + { + \int_gset_eq:NN + \g__luabridge_method_int + \c__luabridge_method_directlua_int + } + { + \int_gset_eq:NN + \g__luabridge_method_int + \c__luabridge_method_write_eighteen_int + } + } +\msg_new:nnn + { luabridge } + { unknown-method } + { + Unknown~bridging~method:~#1 + } +\msg_new:nnn + { luabridge } + { method-write-eighteen } + { + Using~shell~escape~via~write18~as~the~bridging~method + } +\msg_new:nnn + { luabridge } + { method-os-execute } + { + Using~shell~escape~via~os.execute()~as~the~bridging~method + } +\msg_new:nnn + { luabridge } + { method-directlua } + { + Using~direct~Lua~access~as~the~bridging~method + } +\int_case:nnF + { \g__luabridge_method_int } + { + { \c__luabridge_method_write_eighteen_int } + { + \msg_info:nn + { luabridge } + { method-write-eighteen } + } + { \c__luabridge_method_os_execute_int } + { + \msg_info:nn + { luabridge } + { method-os-execute } + } + { \c__luabridge_method_directlua_int } + { + \msg_info:nn + { luabridge } + { method-directlua } + } + } + { + \msg_error:nnx + { luabridge } + { unknown-method } + { \g__luabridge_method_int } + } +\bool_if:nTF + { + \int_compare_p:nNn + { \g__luabridge_method_int } + = + { \c__luabridge_method_write_eighteen_int } || + \int_compare_p:nNn + { \g__luabridge_method_int } + = + { \c__luabridge_method_os_execute_int } + } + { + \int_const:Nn \c__luabridge_level_disabled_int { 0 } + \int_const:Nn \c__luabridge_level_enabled_int { 1 } + \int_const:Nn \c__luabridge_level_restricted_int { 2 } + \int_new:N + \g__luabridge_level_int + \cs_if_exist:NTF + \pdfshellescape + { + \int_gset:Nn + \g__luabridge_level_int + { \pdfshellescape } + } + { + \cs_if_exist:NTF + \shellescape + { + \int_gset:Nn + \g__luabridge_level_int + { \shellescape } + } + { + \int_case:nnF + { \g__luabridge_method_int } + { + { \c__luabridge_method_write_eighteen_int } + { + \int_gset_eq:NN + \g__luabridge_level_int + \c__luabridge_level_enabled_int + } + } + { + \int_gset:Nn + \g__luabridge_level_int + { + \directlua + { + tex.sprint(status.shell_escape or "1") + } + } + } + } + } + \msg_new:nnn + { luabridge } + { unknown-level } + { + Unknown~shell~escape~level:~#1 + } + \msg_new:nnnn + { luabridge } + { level-disabled } + { + Shell~escape~seems~to~be~disabled + } + { + You~may~need~to~run~TeX~with~the~--shell-escape~or~the~ + --enable-write18~flag,~or~write~shell_escape=t~in~the~ + texmf.cnf~file. + } + \msg_new:nnn + { luabridge } + { level-enabled } + { + Shell~escape~seems~to~be~enabled + } + \msg_new:nnnn + { luabridge } + { level-restricted } + { + Shell~escape~seems~to~be~restricted + } + { + You~may~need~to~run~TeX~with~the~--shell-escape~or~the~ + --enable-write18~flag,~or~write~shell_escape=t~in~the~ + texmf.cnf~file. + } + \str_const:Nn \c__luabridge_default_output_dirname_str { . } + \str_const:Nx \c__luabridge_default_helper_script_filename_str { \jobname.luabridge.lua } + \str_const:Nx \c__luabridge_default_error_output_filename_str { \jobname.luabridge.err } + \str_const:Nx \c__luabridge_default_standard_output_filename_str { \jobname.luabridge.out } + \int_case:nnF + { \g__luabridge_level_int } + { + { \c__luabridge_level_disabled_int } + { + \msg_warning:nn + { luabridge } + { level-disabled } + } + { \c__luabridge_level_enabled_int } + { + \msg_info:nn + { luabridge } + { level-enabled } + } + { \c__luabridge_level_restricted_int } + { + \msg_warning:nn + { luabridge } + { level-restricted } + } + } + { + \msg_error:nnx + { luabridge } + { unknown-level } + { \g__luabridge_level_int } + } + \cs_new:Nn + \_luabridge_assert_shell_escape: + { + \int_case:nnF + { \g__luabridge_level_int } + { + { \c__luabridge_level_disabled_int } + { + \msg_error:nn + { luabridge } + { level-disabled } + } + } + } + \int_case:nn + { \g__luabridge_method_int } + { + { \c__luabridge_method_write_eighteen_int } + { + \cs_new:Nn + \_luabridge_execute_shell:n + { + \_luabridge_assert_shell_escape: + \immediate + \write 18 + { #1 } + } + } + { \c__luabridge_method_os_execute_int } + { + \cs_new:Nn + \_luabridge_execute_shell:n + { + \_luabridge_assert_shell_escape: + \directlua + { + os.execute( + " \luaescapestring { #1 } " + ) + } + } + } + } + \str_if_exist:NF + \g__luabridge_output_dirname_str + { + \str_new:N + \g__luabridge_output_dirname_str + \tl_gset:Nn + \g__luabridge_output_dirname_str + \c__luabridge_default_output_dirname_str + } + \str_if_exist:NF + \g__luabridge_helper_script_filename_str + { + \str_gset_eq:NN + \g__luabridge_helper_script_filename_str + \c__luabridge_default_helper_script_filename_str + } + \str_if_exist:NF + \g__luabridge_error_output_filename_str + { + \str_gset_eq:NN + \g__luabridge_error_output_filename_str + \c__luabridge_default_error_output_filename_str + } + \str_if_exist:NF + \g__luabridge_standard_output_filename_str + { + \str_gset_eq:NN + \g__luabridge_standard_output_filename_str + \c__luabridge_default_standard_output_filename_str + } + \cs:w newwrite \cs_end: + \l__luabridge_output_stream + \cs_new:Nn + \_luabridge_execute:n + { + \immediate \openout + \l__luabridge_output_stream + \g__luabridge_helper_script_filename_str + \msg_info:nnV + { luabridge } + { writing-helper-script } + \g__luabridge_helper_script_filename_str + \tl_set:Nx + \l_tmpa_tl + { + local~ran_ok,~error~=~pcall(function()~ + local~ran_ok,~kpse~=~pcall(require,~"kpse")~ + if~ran_ok~then~kpse.set_program_name("luatex")~end~ + #1~ + end)~ + if~not~ran_ok~then~ + local~file~=~io.open(" + \g__luabridge_output_dirname_str / + \g__luabridge_error_output_filename_str + ",~"w")~ + if~file~then~ + file:write(error~..~" \iow_char:N \\ n ")~ + file:close()~ + end~ + print(' + \iow_char:N \\ \iow_char:N \\ begingroup + \iow_char:N \\ \iow_char:N \\ ExplSyntaxOn + \iow_char:N \\ \iow_char:N \\ msg_error:nnvv + { luabridge } + { failed-to-execute } + { g__luabridge_output_dirname_str } + { g__luabridge_output_dirname_str } + \iow_char:N \\ \iow_char:N \\ endgroup + ')~ + end + } + \immediate \write + \l__luabridge_output_stream + { \exp_not:V \l_tmpa_tl } + \immediate \closeout + \l__luabridge_output_stream + \msg_info:nnVV + { luabridge } + { executing-helper-script } + \g__luabridge_helper_script_filename_str + \g__luabridge_standard_output_filename_str + \tl_set:Nx + \l_tmpa_tl + { + texlua~" + \g__luabridge_output_dirname_str / + \g__luabridge_helper_script_filename_str + "~>~" + \g__luabridge_output_dirname_str / + \g__luabridge_standard_output_filename_str + " + } + \_luabridge_execute_shell:V + \l_tmpa_tl + \file_if_exist_input:VF + \g__luabridge_standard_output_filename_str + { + \msg_error:nn + { luabridge } + { level-disabled } + } + } + \cs_generate_variant:Nn + \msg_info:nnn + { nnV } + \cs_generate_variant:Nn + \msg_info:nnnn + { nnVV } + \cs_generate_variant:Nn + \msg_error:nnnn + { nnvv } + \cs_generate_variant:Nn + \_luabridge_execute_shell:n + { V } + \prg_generate_conditional_variant:Nnn + \file_if_exist_input:n + { V } + { F } + \msg_new:nnn + { luabridge } + { writing-helper-script } + { + Writing~a~helper~Lua~script~to~file~#1 + } + \msg_new:nnn + { luabridge } + { executing-helper-script } + { + Executing~a~helper~Lua~script~from~file~#1~ + and~storing~the~result~in~file~#2 + } + \msg_new:nnnn + { luabridge } + { failed-to-execute } + { + An~error~was~encountered~while~executing~Lua~code + } + { + For further clues, examine file #1/#2 + } + } + { + \cs_new:Nn + \_luabridge_execute:n + { + \directlua + { + local~function~print(input)~ + input~=~tostring(input)~ + local~output~=~{}~ + for~line~in~input:gmatch("[^ + \iow_char:N \\ r + \iow_char:N \\ n + ]+")~do~ + table.insert(output,~line)~ + end~ + tex.print(output)~ + end~ + #1 + } + } + } +\cs_new_protected:Npn + \luabridgeExecute + { \_luabridge_execute:n } +\ExplSyntaxOff diff --git a/macros/generic/lt3luabridge/t-lt3luabridge.tex b/macros/generic/lt3luabridge/t-lt3luabridge.tex new file mode 100644 index 0000000000..12f8b18aff --- /dev/null +++ b/macros/generic/lt3luabridge/t-lt3luabridge.tex @@ -0,0 +1,4 @@ +\writestatus{loading}{ConTeXt User Module / lt3luabridge} +\startmodule[lt3luabridge] +\unprotect +\input lt3luabridge\relax -- cgit v1.2.3