web2c/luatexdir: LuaTeX beta-0.86.0 (Sync with the upstream).

git-svn-id: svn://tug.org/texlive/trunk@39116 c570f23f-e606-0410-a88d-b1316a301751

4 files changed, 0 insertions, 236 deletions

diff --git a/Build/source/texk/web2c/luatexdir/luascripts/pdflua.c b/Build/source/texk/web2c/luatexdir/luascripts/pdflua.c
deleted file mode 100644
index 05fe351cb7e..00000000000
--- a/Build/source/texk/web2c/luatexdir/luascripts/pdflua.c
+++ /dev/null
@@ -1,37 +0,0 @@
-/* pdflua.c
-
-   Copyright 2010 Taco Hoekwater <taco@luatex.org>
-   Copyright 2010 Hartmut Henkel <hartmut@luatex.org>
-
-   This file is part of LuaTeX.
-
-   LuaTeX is free software; you can redistribute it and/or modify it under
-   the terms of the GNU General Public License as published by the Free
-   Software Foundation; either version 2 of the License, or (at your
-   option) any later version.
-
-   LuaTeX is distributed in the hope that it will be useful, but WITHOUT
-   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
-   License for more details.
-
-   You should have received a copy of the GNU General Public License along
-   with LuaTeX; if not, see <http://www.gnu.org/licenses/>. */
-
-#include "ptexlib.h"
-
-static const Byte compr[139] = {
-    0x78, 0x9c, 0xad, 0x4e, 0x5b, 0x0a, 0xc3, 0x30, 0x0c, 0xfb, 0xd7, 0x29, 0xfc, 0xb9, 0x41, 0x93,
-    0x1b, 0xec, 0x30, 0x59, 0xeb, 0x76, 0x61, 0xc1, 0x09, 0x4e, 0xc2, 0x18, 0x63, 0x77, 0x5f, 0x0a,
-    0x61, 0x4f, 0xf6, 0x57, 0x23, 0x8c, 0x90, 0x04, 0x12, 0x8c, 0xa1, 0x72, 0xf2, 0x99, 0x1a, 0xd8,
-    0x69, 0xb8, 0xd2, 0x25, 0xea, 0x99, 0xbc, 0x50, 0xd2, 0xb8, 0x28, 0xe7, 0x6c, 0xad, 0x05, 0xcc,
-    0x46, 0x07, 0x1c, 0x79, 0xf1, 0x92, 0xdc, 0xc2, 0x74, 0xa0, 0xb9, 0xca, 0x58, 0x7c, 0x94, 0x9d,
-    0xdb, 0x83, 0x65, 0xc2, 0xfa, 0xfe, 0x59, 0xb1, 0x96, 0xd4, 0xd0, 0xdc, 0x5c, 0x94, 0x3f, 0x22,
-    0x3d, 0xb1, 0xdd, 0xc6, 0x10, 0x47, 0x17, 0x28, 0x4d, 0x73, 0xa8, 0xae, 0x15, 0xdd, 0x40, 0xf4,
-    0x3e, 0xfb, 0xc9, 0x87, 0x66, 0xbc, 0x26, 0x77, 0xb6, 0x8a, 0xbf, 0x63, 0xbf, 0x94, 0x01, 0x77,
-    0x40, 0xb9, 0x54, 0x95, 0xde, 0x83, 0x07, 0x1c, 0xdd, 0x6c, 0x66
-};
-
-static const zlib_struct compr_struct = { 394, 139, compr };
-
-const zlib_struct *pdflua_zlib_struct_ptr = &compr_struct;
diff --git a/Build/source/texk/web2c/luatexdir/luascripts/pdflua.h b/Build/source/texk/web2c/luatexdir/luascripts/pdflua.h
deleted file mode 100644
index d80f55006ef..00000000000
--- a/Build/source/texk/web2c/luatexdir/luascripts/pdflua.h
+++ /dev/null
@@ -1,33 +0,0 @@
-/* pdflua.h
-
-   Copyright 2010 Taco Hoekwater <taco@luatex.org>
-   Copyright 2010 Hartmut Henkel <hartmut@luatex.org>
-
-   This file is part of LuaTeX.
-
-   LuaTeX is free software; you can redistribute it and/or modify it under
-   the terms of the GNU General Public License as published by the Free
-   Software Foundation; either version 2 of the License, or (at your
-   option) any later version.
-
-   LuaTeX is distributed in the hope that it will be useful, but WITHOUT
-   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
-   License for more details.
-
-   You should have received a copy of the GNU General Public License along
-   with LuaTeX; if not, see <http://www.gnu.org/licenses/>. */
-
-
-#ifndef PDFLUA_H
-#  define PDFLUA_H
-
-typedef struct _zlib_struct {
-    uLong uncomprLen;
-    uLong comprLen;
-    const Byte *compr;
-} zlib_struct;
-
-extern const zlib_struct *pdflua_zlib_struct_ptr;
-
-#endif                          /* PDFLUA_H */
diff --git a/Build/source/texk/web2c/luatexdir/luascripts/pdflua.lua b/Build/source/texk/web2c/luatexdir/luascripts/pdflua.lua
deleted file mode 100644
index c8164367d75..00000000000
--- a/Build/source/texk/web2c/luatexdir/luascripts/pdflua.lua
+++ /dev/null
@@ -1,23 +0,0 @@
-
--- this is early work in progress...
-
-------------------------------------------------------------------------
-
-beginpage = function(a)
-end
-
-endpage = function(a)
-end
-
-outputpagestree = function()
-end
-
-------------------------------------------------------------------------
-
-local pdflua = {
-  beginpage = beginpage,
-  endpage = endpage,
-  outputpagestree = outputpagestree,
-}
-
-return pdflua
diff --git a/Build/source/texk/web2c/luatexdir/luascripts/txt2zlib.w b/Build/source/texk/web2c/luatexdir/luascripts/txt2zlib.w
deleted file mode 100644
index 669125b7f26..00000000000
--- a/Build/source/texk/web2c/luatexdir/luascripts/txt2zlib.w
+++ /dev/null
@@ -1,143 +0,0 @@
-% txt2zlib.w
-%
-% Copyright 2010 Taco Hoekwater <taco@@luatex.org>
-% Copyright 2010 Hartmut Henkel <hartmut@@luatex.org>
-%
-% This file is part of LuaTeX.
-%
-% LuaTeX is free software; you can redistribute it and/or modify it under
-% the terms of the GNU General Public License as published by the Free
-% Software Foundation; either version 2 of the License, or (at your
-% option) any later version.
-%
-% LuaTeX is distributed in the hope that it will be useful, but WITHOUT
-% ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-% FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
-% License for more details.
-%
-% You should have received a copy of the GNU General Public License along
-% with LuaTeX; if not, see <http://www.gnu.org/licenses/>.
-
-
-@
-@c
-
-#include<stdlib.h>
-#include<stdio.h>
-#include<string.h>
-#include<zlib.h>
-
-#define INBUFINITLEN 10
-#define LINELEN 16
-
-char header[] =
-    "   Copyright 2010 Taco Hoekwater <taco@@luatex.org>\n"
-    "   Copyright 2010 Hartmut Henkel <hartmut@@luatex.org>\n"
-    "\n"
-    "   This file is part of LuaTeX.\n"
-    "\n"
-    "   LuaTeX is free software; you can redistribute it and/or modify it under\n"
-    "   the terms of the GNU General Public License as published by the Free\n"
-    "   Software Foundation; either version 2 of the License, or (at your\n"
-    "   option) any later version.\n"
-    "\n"
-    "   LuaTeX is distributed in the hope that it will be useful, but WITHOUT\n"
-    "   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or\n"
-    "   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public\n"
-    "   License for more details.\n"
-    "\n"
-    "   You should have received a copy of the GNU General Public License along\n"
-    "   with LuaTeX; if not, see <http://www.gnu.org/licenses/>.";
-
-#define NAMELEN 100
-
-int main(int argc, char *argv[])
-{
-    int i, j, c, err;
-    Byte *inbuf = NULL, *outbuf;
-    FILE *fin, *fout;
-    char ptrname[NAMELEN];
-    uLong inbuflen, uncomprLen = 0, outbuflen, comprLen;
-
-    if (argc != 3) {
-        fprintf(stderr,
-                "%s: need exactly two arguments (input file name, output file name).\n",
-                argv[0]);
-        exit(EXIT_FAILURE);
-    }
-    fin = fopen(argv[1], "r");
-    if (fin == NULL) {
-        fprintf(stderr, "%s: can't open %s for reading.\n", argv[0], argv[1]);
-        exit(EXIT_FAILURE);
-    }
-    fout = fopen(argv[2], "wb");
-    if (fout == NULL) {
-        fprintf(stderr, "%s: can't open %s for writing.\n", argv[0], argv[2]);
-        exit(EXIT_FAILURE);
-    }
-    if ((inbuf = malloc(INBUFINITLEN * sizeof(Byte))) == NULL)
-        exit(EXIT_FAILURE);
-    inbuflen = INBUFINITLEN;
-    while ((c = fgetc(fin)) != EOF) {
-        if (uncomprLen == inbuflen - 1) {
-            inbuflen = (uLong) ((double) inbuflen * 1.5 + 1);
-            if ((inbuf = realloc(inbuf, inbuflen)) == NULL)
-                exit(EXIT_FAILURE);
-        }
-        inbuf[uncomprLen] = (Byte) c;
-        uncomprLen++;
-    }
-
-    outbuflen = comprLen = (uLong) ((double) uncomprLen * 1.1 + 50);
-    if ((outbuf = malloc(outbuflen * sizeof(Byte))) == NULL)
-        exit(EXIT_FAILURE);
-
-    err = compress(outbuf, &comprLen, inbuf, uncomprLen);
-
-    if (err != Z_OK) {
-        fprintf(stderr, "compress error: %d\n", err);
-        exit(EXIT_FAILURE);
-    }
-
-    fprintf(fout, "/* %s\n\n", argv[2]);
-    fprintf(fout, "%s */\n\n", header);
-    fprintf(fout, "#include \"ptexlib.h\"\n\n");
-
-    fprintf(fout, "static const Byte compr[%ld] = {\n", comprLen);
-    for (i = 0, j = 0; (uLong) i < comprLen; i++) {
-        if (j == 0)
-            fprintf(fout, "    ");
-        fprintf(fout, "0x%02x", outbuf[i]);
-        if ((uLong) i < comprLen - 1) {
-            fprintf(fout, ",");
-            if (j == LINELEN - 1) {
-                fprintf(fout, "\n");
-                j = 0;
-            } else {
-                fprintf(fout, " ");
-                j++;
-            }
-        }
-    }
-    fprintf(fout, "\n};\n\n");
-
-    strncpy(ptrname, argv[2], NAMELEN - 20);
-    for (i = (int) strlen(ptrname) - 1; i > 0; i--) {
-        if (ptrname[i] == '.') {
-            ptrname[i] = '\0';
-            break;
-        }
-    }
-
-    strcat(ptrname, "_zlib_struct_ptr");
-
-    fprintf(fout,
-            "static const zlib_struct compr_struct = { %ld, %ld, compr };\n\n",
-            uncomprLen, comprLen);
-
-    fprintf(fout, "const zlib_struct *%s = &compr_struct;\n", ptrname);
-
-    fclose(fin);
-    fclose(fout);
-    return EXIT_SUCCESS;
-}