diff -up texlive-base-20170520/source/texk/web2c/pdftexdir/pdftoepdf.cc.newpoppler texlive-base-20170520/source/texk/web2c/pdftexdir/pdftoepdf.cc --- texlive-base-20170520/source/texk/web2c/pdftexdir/pdftoepdf.cc.newpoppler 2016-11-25 13:09:21.000000000 -0500 +++ texlive-base-20170520/source/texk/web2c/pdftexdir/pdftoepdf.cc 2017-10-29 19:30:15.715109138 -0400 @@ -1,5 +1,5 @@ /* -Copyright 1996-2016 Han The Thanh, +Copyright 1996-2017 Han The Thanh, This file is part of pdfTeX. @@ -17,6 +17,15 @@ You should have received a copy of the G with this program. If not, see . */ +/* +This is based on the patch texlive-poppler-0.59.patch <2017-09-19> at +https://git.archlinux.org/svntogit/packages.git/plain/texlive-bin/trunk +by Arch Linux. A little modifications are made to avoid a crash for +some kind of pdf images, such as figure_missing.pdf in gnuplot. +The poppler should be 0.59.0 or newer versions. +POPPLER_VERSION should be defined. +*/ + /* Do this early in order to avoid a conflict between MINGW32 defining 'boolean' as 'unsigned char' and defining Pascal's boolean as 'int'. @@ -39,10 +48,7 @@ with this program. If not, see #define GString GooString #else -#include -#include -#include -#include +#error POPPLER_VERSION should be defined. #endif #include @@ -84,31 +90,6 @@ extern integer zround(double); #define MASK_SUPPRESS_PTEX_PAGENUMBER 0x04 #define MASK_SUPPRESS_PTEX_INFODICT 0x08 -// PdfObject encapsulates the xpdf Object type, -// and properly frees its resources on destruction. -// Use obj-> to access members of the Object, -// and &obj to get a pointer to the object. -// It is no longer necessary to call Object::free explicitely. - -class PdfObject { - public: - PdfObject() { // nothing - } ~PdfObject() { - iObject.free(); - } - Object *operator->() { - return &iObject; - } - Object *operator&() { - return &iObject; - } - private: // no copying or assigning - PdfObject(const PdfObject &); - void operator=(const PdfObject &); - public: - Object iObject; -}; - // When copying the Resources of the selected page, all objects are copied // recusively top-down. Indirect objects however are not fetched during // copying, but get a new object number from pdfTeX and then will be @@ -212,18 +193,6 @@ static void delete_document(PdfDocument delete pdf_doc; } -// Replacement for -// Object *initDict(Dict *dict1){ initObj(objDict); dict = dict1; return this; } - -static void initDictFromDict(PdfObject & obj, Dict * dict) -{ - obj->initDict(xref); - for (int i = 0, l = dict->getLength(); i < l; i++) { - Object obj1; - obj->dictAdd(copyString(dict->getKey(i)), dict->getValNF(i, &obj1)); - } -} - // -------------------------------------------------------------------- static int addEncoding(GfxFont * gfont) @@ -320,10 +289,10 @@ static void copyName(char *s) static void copyDictEntry(Object * obj, int i) { - PdfObject obj1; + Object obj1; copyName(obj->dictGetKey(i)); pdf_puts(" "); - obj->dictGetValNF(i, &obj1); + obj1 = obj->dictGetValNF(i); copyObject(&obj1); pdf_puts("\n"); } @@ -376,17 +345,17 @@ static void copyStream(Stream * str) static void copyProcSet(Object * obj) { int i, l; - PdfObject procset; + Object procset; if (!obj->isArray()) pdftex_fail("PDF inclusion: invalid ProcSet array type <%s>", obj->getTypeName()); pdf_puts("/ProcSet [ "); for (i = 0, l = obj->arrayGetLength(); i < l; ++i) { - obj->arrayGetNF(i, &procset); - if (!procset->isName()) + procset = obj->arrayGetNF(i); + if (!procset.isName()) pdftex_fail("PDF inclusion: invalid ProcSet entry type <%s>", - procset->getTypeName()); - copyName(procset->getName()); + procset.getTypeName()); + copyName(procset.getName()); pdf_puts(" "); } pdf_puts("]\n"); @@ -394,10 +363,29 @@ static void copyProcSet(Object * obj) #define REPLACE_TYPE1C true +static bool embeddableFont(Object * fontdesc) +{ + Object fontfile, ffsubtype; + + if (!fontdesc->isDict()) + return false; + fontfile = fontdesc->dictLookup("FontFile"); + if (fontfile.isStream()) + return true; + if (REPLACE_TYPE1C) { + fontfile = fontdesc->dictLookup("FontFile3"); + if (!fontfile.isStream()) + return false; + ffsubtype = fontfile.streamGetDict()->lookup("Subtype"); + return ffsubtype.isName() && !strcmp(ffsubtype.getName(), "Type1C"); + } + return false; +} + static void copyFont(char *tag, Object * fontRef) { - PdfObject fontdict, subtype, basefont, fontdescRef, fontdesc, charset, - fontfile, ffsubtype, stemV; + Object fontdict, subtype, basefont, fontdescRef, fontdesc, charset, + stemV; GfxFont *gfont; fd_entry *fd; fm_entry *fontmap; @@ -413,33 +401,39 @@ static void copyFont(char *tag, Object * } // Only handle included Type1 (and Type1C) fonts; anything else will be copied. // Type1C fonts are replaced by Type1 fonts, if REPLACE_TYPE1C is true. - if (!fixedinclusioncopyfont && fontRef->fetch(xref, &fontdict)->isDict() - && fontdict->dictLookup("Subtype", &subtype)->isName() - && !strcmp(subtype->getName(), "Type1") - && fontdict->dictLookup("BaseFont", &basefont)->isName() - && fontdict->dictLookupNF("FontDescriptor", &fontdescRef)->isRef() - && fontdescRef->fetch(xref, &fontdesc)->isDict() - && (fontdesc->dictLookup("FontFile", &fontfile)->isStream() - || (REPLACE_TYPE1C - && fontdesc->dictLookup("FontFile3", &fontfile)->isStream() - && fontfile->streamGetDict()->lookup("Subtype", - &ffsubtype)->isName() - && !strcmp(ffsubtype->getName(), "Type1C"))) - && (fontmap = lookup_fontmap(basefont->getName())) != NULL) { + fontdict = fontRef->fetch(xref); + fontdesc = Object(objNull); + if (fontdict.isDict()) { + subtype = fontdict.dictLookup("Subtype"); + basefont = fontdict.dictLookup("BaseFont"); + fontdescRef = fontdict.dictLookupNF("FontDescriptor"); + if (fontdescRef.isRef()) { + fontdesc = fontdescRef.fetch(xref); + } + } + if (!fixedinclusioncopyfont && fontdict.isDict() + && subtype.isName() + && !strcmp(subtype.getName(), "Type1") + && basefont.isName() + && fontdescRef.isRef() + && fontdesc.isDict() + && embeddableFont(&fontdesc) + && (fontmap = lookup_fontmap(basefont.getName())) != NULL) { // round /StemV value, since the PDF input is a float // (see Font Descriptors in PDF reference), but we only store an // integer, since we don't want to change the struct. - fontdesc->dictLookup("StemV", &stemV); - fd = epdf_create_fontdescriptor(fontmap, zround(stemV->getNum())); - if (fontdesc->dictLookup("CharSet", &charset) && - charset->isString() && is_subsetable(fontmap)) - epdf_mark_glyphs(fd, charset->getString()->getCString()); + stemV = fontdesc.dictLookup("StemV"); + fd = epdf_create_fontdescriptor(fontmap, zround(stemV.getNum())); + charset = fontdesc.dictLookup("CharSet"); + if (!charset.isNull() && + charset.isString() && is_subsetable(fontmap)) + epdf_mark_glyphs(fd, charset.getString()->getCString()); else embed_whole_font(fd); - addFontDesc(fontdescRef->getRef(), fd); + addFontDesc(fontdescRef.getRef(), fd); copyName(tag); gfont = GfxFont::makeFont(xref, tag, fontRef->getRef(), - fontdict->getDict()); + fontdict.getDict()); pdf_printf(" %d 0 R ", addFont(fontRef->getRef(), fd, addEncoding(gfont))); } else { @@ -451,24 +445,24 @@ static void copyFont(char *tag, Object * static void copyFontResources(Object * obj) { - PdfObject fontRef; + Object fontRef; int i, l; if (!obj->isDict()) pdftex_fail("PDF inclusion: invalid font resources dict type <%s>", obj->getTypeName()); pdf_puts("/Font << "); for (i = 0, l = obj->dictGetLength(); i < l; ++i) { - obj->dictGetValNF(i, &fontRef); - if (fontRef->isRef()) + fontRef = obj->dictGetValNF(i); + if (fontRef.isRef()) copyFont(obj->dictGetKey(i), &fontRef); - else if (fontRef->isDict()) { // some programs generate pdf with embedded font object + else if (fontRef.isDict()) { // some programs generate pdf with embedded font object copyName(obj->dictGetKey(i)); pdf_puts(" "); copyObject(&fontRef); } else pdftex_fail("PDF inclusion: invalid font in reference type <%s>", - fontRef->getTypeName()); + fontRef.getTypeName()); } pdf_puts(">>\n"); } @@ -557,7 +551,7 @@ static char *convertNumToPDF(double n) static void copyObject(Object * obj) { - PdfObject obj1; + Object obj1; int i, l, c; Ref ref; char *p; @@ -601,8 +595,8 @@ static void copyObject(Object * obj) } else if (obj->isArray()) { pdf_puts("["); for (i = 0, l = obj->arrayGetLength(); i < l; ++i) { - obj->arrayGetNF(i, &obj1); - if (!obj1->isName()) + obj1 = obj->arrayGetNF(i); + if (!obj1.isName()) pdf_puts(" "); copyObject(&obj1); } @@ -612,9 +606,8 @@ static void copyObject(Object * obj) copyDict(obj); pdf_puts(">>"); } else if (obj->isStream()) { - initDictFromDict(obj1, obj->streamGetDict()); pdf_puts("<<\n"); - copyDict(&obj1); + copyDict(obj->getStream()->getDictObject()); pdf_puts(">>\n"); pdf_puts("stream\n"); copyStream(obj->getStream()->getUndecodedStream()); @@ -638,9 +631,8 @@ static void writeRefs() InObj *r; for (r = inObjList; r != 0; r = r->next) { if (!r->written) { - Object obj1; r->written = 1; - xref->fetch(r->ref.num, r->ref.gen, &obj1); + Object obj1 = xref->fetch(r->ref.num, r->ref.gen); if (r->type == objFont) { assert(!obj1.isStream()); pdfbeginobj(r->num, 2); // \pdfobjcompresslevel = 2 is for this @@ -656,7 +648,6 @@ static void writeRefs() pdf_puts("\n"); pdfendobj(); } - obj1.free(); } } } @@ -685,7 +676,7 @@ static void writeEncodings() #ifdef POPPLER_VERSION r->font->decRefCnt(); #else - delete r->font; +#error POPPLER_VERSION should be defined. #endif delete r; } @@ -728,7 +719,7 @@ read_pdf_info(char *image_name, char *pa #ifdef POPPLER_VERSION int pdf_major_version_found, pdf_minor_version_found; #else - float pdf_version_found, pdf_version_wanted; +#error POPPLER_VERSION should be defined. #endif // initialize if (!isInit) { @@ -760,19 +751,7 @@ read_pdf_info(char *image_name, char *pa } } #else - pdf_version_found = pdf_doc->doc->getPDFVersion(); - pdf_version_wanted = 1 + (minor_pdf_version_wanted * 0.1); - if (pdf_version_found > pdf_version_wanted + 0.01) { - char msg[] = - "PDF inclusion: found PDF version <%.1f>, but at most version <%.1f> allowed"; - if (pdf_inclusion_errorlevel > 0) { - pdftex_fail(msg, pdf_version_found, pdf_version_wanted); - } else if (pdf_inclusion_errorlevel < 0) { - ; /* do nothing */ - } else { /* = 0, give warning */ - pdftex_warn(msg, pdf_version_found, pdf_version_wanted); - } - } +#error POPPLER_VERSION should be defined. #endif epdf_num_pages = pdf_doc->doc->getCatalog()->getNumPages(); if (page_name) { @@ -839,8 +818,8 @@ void write_epdf(void) Page *page; Ref *pageRef; Dict *pageDict; - PdfObject contents, obj1, obj2, pageObj, dictObj; - PdfObject groupDict; + Object contents, obj1, obj2, pageObj, dictObj; + Object groupDict; bool writeSepGroup = false; Object info; char *key; @@ -867,8 +846,8 @@ void write_epdf(void) encodingList = 0; page = pdf_doc->doc->getCatalog()->getPage(epdf_selected_page); pageRef = pdf_doc->doc->getCatalog()->getPageRef(epdf_selected_page); - xref->fetch(pageRef->num, pageRef->gen, &pageObj); - pageDict = pageObj->getDict(); + pageObj = xref->fetch(pageRef->num, pageRef->gen); + pageDict = pageObj.getDict(); rotate = page->getRotate(); PDFRectangle *pagebox; // write the Page header @@ -886,7 +865,7 @@ void write_epdf(void) pdf_printf("/%s.PageNumber %i\n", pdfkeyprefix, (int) epdf_selected_page); } if ((suppress_ptex_info & MASK_SUPPRESS_PTEX_INFODICT) == 0) { - pdf_doc->doc->getDocInfoNF(&info); + info = pdf_doc->doc->getDocInfoNF(); if (info.isRef()) { // the info dict must be indirect (PDF Ref p. 61) pdf_printf("/%s.InfoDict ", pdfkeyprefix); @@ -942,14 +921,14 @@ void write_epdf(void) pdf_puts(stripzeros(s)); // Metadata validity check (as a stream it must be indirect) - pageDict->lookupNF("Metadata", &dictObj); - if (!dictObj->isNull() && !dictObj->isRef()) + dictObj = pageDict->lookupNF("Metadata"); + if (!dictObj.isNull() && !dictObj.isRef()) pdftex_warn("PDF inclusion: /Metadata must be indirect object"); // copy selected items in Page dictionary except Resources & Group for (i = 0; pageDictKeys[i] != NULL; i++) { - pageDict->lookupNF(pageDictKeys[i], &dictObj); - if (!dictObj->isNull()) { + dictObj = pageDict->lookupNF(pageDictKeys[i]); + if (!dictObj.isNull()) { pdf_newline(); pdf_printf("/%s ", pageDictKeys[i]); copyObject(&dictObj); // preserves indirection @@ -957,8 +936,8 @@ void write_epdf(void) } // handle page group - pageDict->lookupNF("Group", &dictObj); - if (!dictObj->isNull()) { + dictObj = pageDict->lookupNF("Group"); + if (!dictObj.isNull()) { if (pdfpagegroupval == 0) { // another pdf with page group was included earlier on the // same page; copy the Group entry as is. See manual for @@ -972,11 +951,36 @@ void write_epdf(void) copyObject(&dictObj); } else { // write Group dict as a separate object, since the Page dict also refers to it - pageDict->lookup("Group", &dictObj); - if (!dictObj->isDict()) + dictObj = pageDict->lookup("Group"); + if (!dictObj.isDict()) pdftex_fail("PDF inclusion: /Group dict missing"); writeSepGroup = true; - initDictFromDict(groupDict, page->getGroup()); +/* +This part is only a single line + groupDict = Object(page->getGroup()); +in the original patch. In this case, however, pdftex crashes at +"delete pdf_doc->doc" in "delete_document()" for inclusion of some +kind of pdf images, for example, figure_missing.pdf in gnuplot. +A change + groupDict = Object(page->getGroup()).copy(); +does not improve the situation. +The changes below seem to work fine. +*/ +// begin modification + groupDict = pageDict->lookup("Group"); + const Dict& dic1 = page->getGroup(); + const Dict& dic2 = groupDict.getDict(); + // replace dic2 in groupDict with dic1 + l = dic2.getLength(); + for (i = 0; i < l; i++) { + groupDict.dictRemove(dic2.getKey(i)); + } + l = dic1.getLength(); + for (i = 0; i < l; i++) { + groupDict.dictAdd(copyString(dic1.getKey(i)), + dic1.getValNF(i)); + } +// end modification pdf_printf("/Group %ld 0 R\n", (long)pdfpagegroupval); } } @@ -989,14 +993,14 @@ void write_epdf(void) pdftex_warn ("PDF inclusion: /Resources missing. 'This practice is not recommended' (PDF Ref)"); } else { - initDictFromDict(obj1, page->getResourceDict()); + Object *obj1 = page->getResourceDictObject(); if (!obj1->isDict()) pdftex_fail("PDF inclusion: invalid resources dict type <%s>", obj1->getTypeName()); pdf_newline(); pdf_puts("/Resources <<\n"); for (i = 0, l = obj1->dictGetLength(); i < l; ++i) { - obj1->dictGetVal(i, &obj2); + obj2 = obj1->dictGetVal(i); key = obj1->dictGetKey(i); if (strcmp("Font", key) == 0) copyFontResources(&obj2); @@ -1009,8 +1013,8 @@ void write_epdf(void) } // write the page contents - page->getContents(&contents); - if (contents->isStream()) { + contents = page->getContents(); + if (contents.isStream()) { // Variant A: get stream and recompress under control // of \pdfcompresslevel @@ -1021,36 +1025,35 @@ void write_epdf(void) // Variant B: copy stream without recompressing // - contents->streamGetDict()->lookup("F", &obj1); - if (!obj1->isNull()) { + obj1 = contents.streamGetDict()->lookup("F"); + if (!obj1.isNull()) { pdftex_fail("PDF inclusion: Unsupported external stream"); } - contents->streamGetDict()->lookup("Length", &obj1); - assert(!obj1->isNull()); + obj1 = contents.streamGetDict()->lookup("Length"); + assert(!obj1.isNull()); pdf_puts("/Length "); copyObject(&obj1); pdf_puts("\n"); - contents->streamGetDict()->lookup("Filter", &obj1); - if (!obj1->isNull()) { + obj1 = contents.streamGetDict()->lookup("Filter"); + if (!obj1.isNull()) { pdf_puts("/Filter "); copyObject(&obj1); pdf_puts("\n"); - contents->streamGetDict()->lookup("DecodeParms", &obj1); - if (!obj1->isNull()) { + obj1 = contents.streamGetDict()->lookup("DecodeParms"); + if (!obj1.isNull()) { pdf_puts("/DecodeParms "); copyObject(&obj1); pdf_puts("\n"); } } pdf_puts(">>\nstream\n"); - copyStream(contents->getStream()->getUndecodedStream()); + copyStream(contents.getStream()->getUndecodedStream()); pdfendstream(); - } else if (contents->isArray()) { + } else if (contents.isArray()) { pdfbeginstream(); - for (i = 0, l = contents->arrayGetLength(); i < l; ++i) { - Object contentsobj; - copyStream((contents->arrayGet(i, &contentsobj))->getStream()); - contentsobj.free(); + for (i = 0, l = contents.arrayGetLength(); i < l; ++i) { + Object contentsobj = contents.arrayGet(i); + copyStream(contentsobj.getStream()); if (i < l - 1) pdf_newline(); // add a newline after each stream except the last } diff -up texlive-base-20170520/source/texk/web2c/pdftexdir/pdftosrc.cc.newpoppler texlive-base-20170520/source/texk/web2c/pdftexdir/pdftosrc.cc --- texlive-base-20170520/source/texk/web2c/pdftexdir/pdftosrc.cc.newpoppler 2016-11-25 13:09:21.000000000 -0500 +++ texlive-base-20170520/source/texk/web2c/pdftexdir/pdftosrc.cc 2017-10-29 19:30:29.988736531 -0400 @@ -1,5 +1,5 @@ /* -Copyright 1996-2014 Han The Thanh, +Copyright 1996-2017 Han The Thanh, This file is part of pdfTeX. @@ -16,6 +16,14 @@ GNU General Public License for more deta You should have received a copy of the GNU General Public License along with this program. If not, see . */ + +/* +This is based on the patch texlive-poppler-0.59.patch <2017-09-19> at +https://git.archlinux.org/svntogit/packages.git/plain/texlive-bin/trunk +by Arch Linux. The poppler should be 0.59.0 or newer versions. +POPPLER_VERSION should be defined. +*/ + #include #include @@ -32,10 +40,7 @@ with this program. If not, see #include #else -#include -#include -#include -#include +#error POPPLER_VERSION should be defined. #endif #include @@ -86,22 +91,20 @@ int main(int argc, char *argv[]) objgen = atoi(argv[3]); } xref = doc->getXRef(); - catalogDict.initNull(); - xref->getCatalog(&catalogDict); + catalogDict = xref->getCatalog(); if (!catalogDict.isDict("Catalog")) { fprintf(stderr, "No Catalog found\n"); exit(1); } - srcStream.initNull(); + srcStream = Object(objNull); if (objnum == 0) { - catalogDict.dictLookup("SourceObject", &srcStream); + srcStream = catalogDict.dictLookup("SourceObject"); static char const_SourceFile[] = "SourceFile"; if (!srcStream.isStream(const_SourceFile)) { fprintf(stderr, "No SourceObject found\n"); exit(1); } - srcName.initNull(); - srcStream.getStream()->getDict()->lookup("SourceName", &srcName); + srcName = srcStream.getStream()->getDict()->lookup("SourceName"); if (!srcName.isString()) { fprintf(stderr, "No SourceName found\n"); exit(1); @@ -110,7 +113,7 @@ int main(int argc, char *argv[]) // We cannot free srcName, as objname shares its string. // srcName.free(); } else if (objnum > 0) { - xref->fetch(objnum, objgen, &srcStream); + srcStream = xref->fetch(objnum, objgen); if (!srcStream.isStream()) { fprintf(stderr, "Not a Stream object\n"); exit(1); @@ -153,35 +156,34 @@ int main(int argc, char *argv[]) (e->type == xrefEntryFree ? "f" : "n")); else { // e->offset is the object number of the object stream Stream *str; + Lexer *lexer; Parser *parser; Object objStr, obj1, obj2; int nObjects, first, n; int localOffset = 0; Guint firstOffset; - assert(xref->fetch(e->offset, 0, &objStr)->isStream()); - nObjects = objStr.streamGetDict()->lookup("N", &obj1)->getInt(); - obj1.free(); - first = objStr.streamGetDict()->lookup("First", &obj1)->getInt(); - obj1.free(); + objStr = xref->fetch(e->offset, 0); + assert(objStr.isStream()); + obj1 = objStr.streamGetDict()->lookup("N"); + nObjects = obj1.getInt(); + obj1 = objStr.streamGetDict()->lookup("First"); + first = obj1.getInt(); firstOffset = objStr.getStream()->getBaseStream()->getStart() + first; // parse the header: object numbers and offsets objStr.streamReset(); - obj1.initNull(); - str = new EmbedStream(objStr.getStream(), &obj1, gTrue, first); - parser = new Parser(xref, new Lexer(xref, str), gFalse); + str = new EmbedStream(objStr.getStream(), Object(objNull), gTrue, first); + lexer = new Lexer(xref, str); + parser = new Parser(xref, lexer, gFalse); for (n = 0; n < nObjects; ++n) { - parser->getObj(&obj1); - parser->getObj(&obj2); + obj1 = parser->getObj(); + obj2 = parser->getObj(); if (n == e->gen) localOffset = obj2.getInt(); - obj1.free(); - obj2.free(); } while (str->getChar() != EOF) ; delete parser; - objStr.free(); fprintf(outfile, "%.10lu 00000 n\n", (long unsigned)(firstOffset + localOffset)); @@ -192,7 +194,6 @@ int main(int argc, char *argv[]) s->reset(); while ((c = s->getChar()) != EOF) fputc(c, outfile); - srcStream.free(); } if (objnum == 0) fprintf(stderr, "Source file extracted to %s\n", outname); @@ -201,7 +202,6 @@ int main(int argc, char *argv[]) else fprintf(stderr, "Cross-reference table extracted to %s\n", outname); fclose(outfile); - catalogDict.free(); delete doc; delete globalParams; } --- texlive-base-20170520/source/texk/web2c/luatexdir/image/pdftoepdf.w.newpoppler 2017-05-08 22:39:36.639375783 +0200 +++ texlive-base-20170520/source/texk/web2c/luatexdir/image/pdftoepdf.w 2017-09-19 11:23:36.586768739 +0200 @@ -224,7 +224,7 @@ free(checksum); } if (pdf_doc->doc == NULL) { - docmemstream = new MemStream( docstream,0,streamsize, obj.initNull() ); + docmemstream = new MemStream( docstream,0,streamsize, Object(objNull) ); doc = new PDFDoc(docmemstream); /* takes ownership of docmemstream */ pdf_doc->pc++; if (!doc->isOk() || !doc->okToPrint()) { @@ -408,9 +408,8 @@ Object obj1; pdf_begin_array(pdf); for (i = 0, l = array->getLength(); i < l; ++i) { - array->getNF(i, &obj1); + obj1 = array->getNF(i); copyObject(pdf, pdf_doc, &obj1); - obj1.free(); } pdf_end_array(pdf); } @@ -422,9 +421,8 @@ pdf_begin_dict(pdf); for (i = 0, l = dict->getLength(); i < l; ++i) { copyName(pdf, dict->getKey(i)); - dict->getValNF(i, &obj1); + obj1 = dict->getValNF(i); copyObject(pdf, pdf_doc, &obj1); - obj1.free(); } pdf_end_dict(pdf); } @@ -510,13 +508,12 @@ PDFDoc *doc = pdf_doc->doc; xref = doc->getXRef(); for (r = pdf_doc->inObjList; r != NULL;) { - xref->fetch(r->ref.num, r->ref.gen, &obj1); + obj1 = xref->fetch(r->ref.num, r->ref.gen); if (obj1.isStream()) pdf_begin_obj(pdf, r->num, OBJSTM_NEVER); else pdf_begin_obj(pdf, r->num, 2); copyObject(pdf, pdf_doc, &obj1); - obj1.free(); pdf_end_obj(pdf); n = r->next; delete r; @@ -740,7 +737,7 @@ catalog = doc->getCatalog(); page = catalog->getPage(img_pagenum(idict)); pageref = catalog->getPageRef(img_pagenum(idict)); - doc->getXRef()->fetch(pageref->num, pageref->gen, &pageobj); + pageobj = doc->getXRef()->fetch(pageref->num, pageref->gen); pageDict = pageobj.getDict(); /* write the Page header */ pdf_begin_obj(pdf, img_objnum(idict), OBJSTM_NEVER); @@ -757,12 +754,11 @@ pdf_dict_add_int(pdf, "PTEX.PageNumber", (int) img_pagenum(idict)); } if ((suppress_optional_info & 8) == 0) { - doc->getDocInfoNF(&obj1); + obj1 = doc->getDocInfoNF(); if (obj1.isRef()) { /* the info dict must be indirect (PDF Ref p. 61) */ pdf_dict_add_ref(pdf, "PTEX.InfoDict", addInObj(pdf, pdf_doc, obj1.getRef())); } - obj1.free(); } if (img_is_bbox(idict)) { bbox[0] = sp2bp(img_bbox(idict)[0]); @@ -788,19 +784,17 @@ Now all relevant parts of the Page dictionary are copied. Metadata validity check is needed(as a stream it must be indirect). */ - pageDict->lookupNF("Metadata", &obj1); + obj1 = pageDict->lookupNF("Metadata"); if (!obj1.isNull() && !obj1.isRef()) formatted_warning("pdf inclusion","/Metadata must be indirect object"); - obj1.free(); /* copy selected items in Page dictionary */ for (i = 0; pagedictkeys[i] != NULL; i++) { - pageDict->lookupNF(pagedictkeys[i], &obj1); + obj1 = pageDict->lookupNF(pagedictkeys[i]); if (!obj1.isNull()) { pdf_add_name(pdf, pagedictkeys[i]); /* preserves indirection */ copyObject(pdf, pdf_doc, &obj1); } - obj1.free(); } /* If there are no Resources in the Page dict of the embedded page, @@ -808,32 +802,28 @@ PDF file, climbing up the tree until the Resources are found. (This fixes a problem with Scribus 1.3.3.14.) */ - pageDict->lookupNF("Resources", &obj1); + obj1 = pageDict->lookupNF("Resources"); if (obj1.isNull()) { op1 = &pagesobj1; op2 = &pagesobj2; - pageDict->lookup("Parent", op1); + *op1 = pageDict->lookup("Parent"); while (op1->isDict()) { - obj1.free(); - op1->dictLookupNF("Resources", &obj1); + obj1 = op1->dictLookupNF("Resources"); if (!obj1.isNull()) { pdf_add_name(pdf, "Resources"); copyObject(pdf, pdf_doc, &obj1); break; } - op1->dictLookup("Parent", op2); + *op2 = op1->dictLookup("Parent"); optmp = op1; op1 = op2; op2 = optmp; - op2->free(); }; if (!op1->isDict()) formatted_warning("pdf inclusion","Page /Resources missing"); - op1->free(); } - obj1.free(); /* Write the Page contents. */ - page->getContents(&contents); + contents = page->getContents(); if (contents.isStream()) { /* Variant A: get stream and recompress under control of \pdfcompresslevel @@ -844,27 +834,23 @@ Variant B: copy stream without recompressing */ - contents.streamGetDict()->lookup("F", &obj1); + obj1 = contents.streamGetDict()->lookup("F"); if (!obj1.isNull()) { normal_error("pdf inclusion","unsupported external stream"); } - obj1.free(); - contents.streamGetDict()->lookup("Length", &obj1); + obj1 = contents.streamGetDict()->lookup("Length"); pdf_add_name(pdf, "Length"); copyObject(pdf, pdf_doc, &obj1); - obj1.free(); - contents.streamGetDict()->lookup("Filter", &obj1); + obj1 = contents.streamGetDict()->lookup("Filter"); if (!obj1.isNull()) { pdf_add_name(pdf, "Filter"); copyObject(pdf, pdf_doc, &obj1); - obj1.free(); - contents.streamGetDict()->lookup("DecodeParms", &obj1); + obj1 = contents.streamGetDict()->lookup("DecodeParms"); if (!obj1.isNull()) { pdf_add_name(pdf, "DecodeParms"); copyObject(pdf, pdf_doc, &obj1); } } - obj1.free(); pdf_end_dict(pdf); pdf_begin_stream(pdf); copyStreamStream(pdf, contents.getStream()->getUndecodedStream()); @@ -875,8 +861,8 @@ pdf_end_dict(pdf); pdf_begin_stream(pdf); for (i = 0, l = contents.arrayGetLength(); i < l; ++i) { - copyStreamStream(pdf, (contents.arrayGet(i, &obj1))->getStream()); - obj1.free(); + obj1 = contents.arrayGet(i); + copyStreamStream(pdf, obj1.getStream()); if (i < (l - 1)) { /* Put a space between streams to be on the safe side (streams @@ -897,8 +883,6 @@ } /* write out all indirect objects */ writeRefs(pdf, pdf_doc); - contents.free(); - pageobj.free(); /* unrefPdfDocument() must come after contents.free() and pageobj.free()! TH: The next line makes repeated pdf inclusion unacceptably slow --- texlive-base-20170520/source/texk/web2c/luatexdir/lua/lepdflib.cc.newpoppler 2017-05-08 22:39:36.689375107 +0200 +++ texlive-base-20170520/source/texk/web2c/luatexdir/lua/lepdflib.cc 2017-09-19 09:48:19.658021769 +0200 @@ -538,7 +538,7 @@ pdfdoc_changed_error(L); \ uout = new_Object_userdata(L); \ uout->d = new Object(); \ - ((in *) uin->d)->function((Object *) uout->d); \ + *((Object *)uout->d) = ((in *) uin->d)->function(); \ uout->atype = ALLOC_LEPDF; \ uout->pc = uin->pc; \ uout->pd = uin->pd; \ @@ -668,13 +668,11 @@ static int m_Array_incRef(lua_State * L) { - int i; udstruct *uin; uin = (udstruct *) luaL_checkudata(L, 1, M_Array); if (uin->pd != NULL && uin->pd->pc != uin->pc) pdfdoc_changed_error(L); - i = ((Array *) uin->d)->incRef(); - lua_pushinteger(L, i); + lua_pushinteger(L, 1); return 1; } @@ -685,8 +683,7 @@ uin = (udstruct *) luaL_checkudata(L, 1, M_Array); if (uin->pd != NULL && uin->pd->pc != uin->pc) pdfdoc_changed_error(L); - i = ((Array *) uin->d)->decRef(); - lua_pushinteger(L, i); + lua_pushinteger(L, 1); return 1; } @@ -702,7 +699,7 @@ if ((uin->pd != NULL && uin->pd->pc != uin->pc) || (uobj->pd != NULL && uobj->pd->pc != uobj->pc)) pdfdoc_changed_error(L); - ((Array *) uin->d)->add(((Object *) uobj->d)); + ((Array *) uin->d)->add(std::move(*((Object *) uobj->d))); return 0; } @@ -718,7 +715,7 @@ if (i > 0 && i <= len) { uout = new_Object_userdata(L); uout->d = new Object(); - ((Array *) uin->d)->get(i - 1, (Object *) uout->d); + *((Object *) uout->d) = ((Array *) uin->d)->get(i - 1); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -739,7 +736,7 @@ if (i > 0 && i <= len) { uout = new_Object_userdata(L); uout->d = new Object(); - ((Array *) uin->d)->getNF(i - 1, (Object *) uout->d); + *((Object *) uout->d) = ((Array *) uin->d)->getNF(i - 1); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -953,25 +950,21 @@ static int m_Dict_incRef(lua_State * L) { - int i; udstruct *uin; uin = (udstruct *) luaL_checkudata(L, 1, M_Dict); if (uin->pd != NULL && uin->pd->pc != uin->pc) pdfdoc_changed_error(L); - i = ((Dict *) uin->d)->incRef(); - lua_pushinteger(L, i); + lua_pushinteger(L, 1); return 1; } static int m_Dict_decRef(lua_State * L) { - int i; udstruct *uin; uin = (udstruct *) luaL_checkudata(L, 1, M_Dict); if (uin->pd != NULL && uin->pd->pc != uin->pc) pdfdoc_changed_error(L); - i = ((Dict *) uin->d)->decRef(); - lua_pushinteger(L, i); + lua_pushinteger(L, 1); return 1; } @@ -986,7 +979,7 @@ pdfdoc_changed_error(L); s = copyString(luaL_checkstring(L, 2)); uobj = (udstruct *) luaL_checkudata(L, 3, M_Object); - ((Dict *) uin->d)->add(s, ((Object *) uobj->d)); + ((Dict *) uin->d)->add(s, std::move(*((Object *) uobj->d))); return 0; } @@ -999,7 +992,7 @@ pdfdoc_changed_error(L); s = luaL_checkstring(L, 2); uobj = (udstruct *) luaL_checkudata(L, 3, M_Object); - ((Dict *) uin->d)->set(s, ((Object *) uobj->d)); + ((Dict *) uin->d)->set(s, std::move(*((Object *) uobj->d))); return 0; } @@ -1027,7 +1020,7 @@ s = luaL_checkstring(L, 2); uout = new_Object_userdata(L); uout->d = new Object(); - ((Dict *) uin->d)->lookup(s, (Object *) uout->d); + *((Object *) uout->d) = ((Dict *) uin->d)->lookup(s); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -1044,7 +1037,7 @@ s = luaL_checkstring(L, 2); uout = new_Object_userdata(L); uout->d = new Object(); - ((Dict *) uin->d)->lookupNF(s, (Object *) uout->d); + *((Object *) uout->d) = ((Dict *) uin->d)->lookupNF(s); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -1096,7 +1089,7 @@ if (i > 0 && i <= len) { uout = new_Object_userdata(L); uout->d = new Object(); - ((Dict *) uin->d)->getVal(i - 1, (Object *) uout->d); + *((Object *) uout->d) = ((Dict *) uin->d)->getVal(i - 1); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -1117,7 +1110,7 @@ if (i > 0 && i <= len) { uout = new_Object_userdata(L); uout->d = new Object(); - ((Dict *) uin->d)->getValNF(i - 1, (Object *) uout->d); + *((Object *) uout->d) = ((Dict *) uin->d)->getValNF(i - 1); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -1381,9 +1374,9 @@ pdfdoc_changed_error(L); luaL_checktype(L, 2, LUA_TBOOLEAN); if (lua_toboolean(L, 2) != 0) - ((Object *) uin->d)->initBool(gTrue); + *((Object *) uin->d) = Object(gTrue); else - ((Object *) uin->d)->initBool(gFalse); + *((Object *) uin->d) = Object(gFalse); return 0; } @@ -1395,7 +1388,7 @@ if (uin->pd != NULL && uin->pd->pc != uin->pc) pdfdoc_changed_error(L); i = luaL_checkint(L, 2); - ((Object *) uin->d)->initInt(i); + *((Object *) uin->d) = Object(i); return 0; } @@ -1407,7 +1400,7 @@ if (uin->pd != NULL && uin->pd->pc != uin->pc) pdfdoc_changed_error(L); d = luaL_checknumber(L, 2); - ((Object *) uin->d)->initReal(d); + *((Object *) uin->d) = Object(d); return 0; } @@ -1422,7 +1415,7 @@ pdfdoc_changed_error(L); s = luaL_checklstring(L, 2, &len); gs = new GooString(s, len); - ((Object *) uin->d)->initString(gs); + *((Object *) uin->d) = Object(gs); return 0; } @@ -1434,7 +1427,7 @@ if (uin->pd != NULL && uin->pd->pc != uin->pc) pdfdoc_changed_error(L); s = luaL_checkstring(L, 2); - ((Object *) uin->d)->initName(s); + *((Object *) uin->d) = Object(objName, s); return 0; } @@ -1444,13 +1437,14 @@ uin = (udstruct *) luaL_checkudata(L, 1, M_Object); if (uin->pd != NULL && uin->pd->pc != uin->pc) pdfdoc_changed_error(L); - ((Object *) uin->d)->initNull(); + *((Object *) uin->d) = Object(objNull); return 0; } static int m_Object_initArray(lua_State * L) { udstruct *uin, *uxref; + Array *a; uin = (udstruct *) luaL_checkudata(L, 1, M_Object); uxref = (udstruct *) luaL_checkudata(L, 2, M_XRef); if (uin->pd != NULL && uxref->pd != NULL && uin->pd != uxref->pd) @@ -1458,7 +1452,8 @@ if ((uin->pd != NULL && uin->pd->pc != uin->pc) || (uxref->pd != NULL && uxref->pd->pc != uxref->pc)) pdfdoc_changed_error(L); - ((Object *) uin->d)->initArray((XRef *) uxref->d); + a = new Array((XRef *) uxref->d); + *((Object *) uin->d) = Object(a); return 0; } @@ -1469,6 +1464,7 @@ static int m_Object_initDict(lua_State * L) { udstruct *uin, *uxref; + Dict *d; uin = (udstruct *) luaL_checkudata(L, 1, M_Object); uxref = (udstruct *) luaL_checkudata(L, 2, M_XRef); if (uin->pd != NULL && uxref->pd != NULL && uin->pd != uxref->pd) @@ -1476,7 +1472,8 @@ if ((uin->pd != NULL && uin->pd->pc != uin->pc) || (uxref->pd != NULL && uxref->pd->pc != uxref->pc)) pdfdoc_changed_error(L); - ((Object *) uin->d)->initDict((XRef *) uxref->d); + d = new Dict((XRef *) uxref->d); + *((Object *) uin->d) = Object(d); return 0; } @@ -1490,7 +1487,7 @@ if ((uin->pd != NULL && uin->pd->pc != uin->pc) || (ustream->pd != NULL && ustream->pd->pc != ustream->pc)) pdfdoc_changed_error(L); - ((Object *) uin->d)->initStream((Stream *) ustream->d); + *((Object *) uin->d) = Object((Stream *) ustream->d); return 0; } @@ -1503,7 +1500,7 @@ pdfdoc_changed_error(L); num = luaL_checkint(L, 2); gen = luaL_checkint(L, 3); - ((Object *) uin->d)->initRef(num, gen); + *((Object *) uin->d) = Object(num, gen); return 0; } @@ -1515,7 +1512,7 @@ if (uin->pd != NULL && uin->pd->pc != uin->pc) pdfdoc_changed_error(L); s = luaL_checkstring(L, 2); - ((Object *) uin->d)->initCmd(CHARP_CAST s); + *((Object *) uin->d) = Object(objCmd, CHARP_CAST s); return 0; } @@ -1525,7 +1522,7 @@ uin = (udstruct *) luaL_checkudata(L, 1, M_Object); if (uin->pd != NULL && uin->pd->pc != uin->pc) pdfdoc_changed_error(L); - ((Object *) uin->d)->initError(); + *((Object *) uin->d) = Object(objError); return 0; } @@ -1535,7 +1532,7 @@ uin = (udstruct *) luaL_checkudata(L, 1, M_Object); if (uin->pd != NULL && uin->pd->pc != uin->pc) pdfdoc_changed_error(L); - ((Object *) uin->d)->initEOF(); + *((Object *) uin->d) = Object(objEOF); return 0; } @@ -1551,7 +1548,7 @@ pdfdoc_changed_error(L); uout = new_Object_userdata(L); uout->d = new Object(); - ((Object *) uin->d)->fetch((XRef *) uxref->d, (Object *) uout->d); + *((Object *) uout->d) = ((Object *) uin->d)->fetch((XRef *) uxref->d); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -1816,7 +1813,7 @@ pdfdoc_changed_error(L); if (!((Object *) uin->d)->isArray()) luaL_error(L, "Object is not an Array"); - ((Object *) uin->d)->arrayAdd((Object *) uobj->d); + ((Object *) uin->d)->arrayAdd(std::move(*((Object *) uobj->d))); return 0; } @@ -1833,7 +1830,7 @@ if (i > 0 && i <= len) { uout = new_Object_userdata(L); uout->d = new Object(); - ((Object *) uin->d)->arrayGet(i - 1, (Object *) uout->d); + *((Object *) uout->d) = ((Object *) uin->d)->arrayGet(i - 1); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -1857,7 +1854,7 @@ if (i > 0 && i <= len) { uout = new_Object_userdata(L); uout->d = new Object(); - ((Object *) uin->d)->arrayGetNF(i - 1, (Object *) uout->d); + *((Object *) uout->d) = ((Object *) uin->d)->arrayGetNF(i - 1); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -1897,7 +1894,7 @@ pdfdoc_changed_error(L); if (!((Object *) uin->d)->isDict()) luaL_error(L, "Object is not a Dict"); - ((Object *) uin->d)->dictAdd(copyString(s), (Object *) uobj->d); + ((Object *) uin->d)->dictAdd(copyString(s), std::move(*((Object *) uobj->d))); return 0; } @@ -1915,7 +1912,7 @@ pdfdoc_changed_error(L); if (!((Object *) uin->d)->isDict()) luaL_error(L, "Object is not a Dict"); - ((Object *) uin->d)->dictSet(s, (Object *) uobj->d); + ((Object *) uin->d)->dictSet(s, std::move(*((Object *) uobj->d))); return 0; } @@ -1930,7 +1927,7 @@ if (((Object *) uin->d)->isDict()) { uout = new_Object_userdata(L); uout->d = new Object(); - ((Object *) uin->d)->dictLookup(s, (Object *) uout->d); + *((Object *) uout->d) = ((Object *) uin->d)->dictLookup(s); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -1950,7 +1947,7 @@ if (((Object *) uin->d)->isDict()) { uout = new_Object_userdata(L); uout->d = new Object(); - ((Object *) uin->d)->dictLookupNF(s, (Object *) uout->d); + *((Object *) uout->d) = ((Object *) uin->d)->dictLookupNF(s); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -1991,7 +1988,7 @@ if (i > 0 && i <= len) { uout = new_Object_userdata(L); uout->d = new Object(); - ((Object *) uin->d)->dictGetVal(i - 1, (Object *) uout->d); + *((Object *) uout->d) = ((Object *) uin->d)->dictGetVal(i - 1); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -2015,7 +2012,7 @@ if (i > 0 && i <= len) { uout = new_Object_userdata(L); uout->d = new Object(); - ((Object *) uin->d)->dictGetValNF(i - 1, (Object *) uout->d); + *((Object *) uout->d) = ((Object *) uin->d)->dictGetValNF(i - 1); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -2243,7 +2240,7 @@ m_poppler_get_poppler(Page, Dict, getPieceInfo); m_poppler_get_poppler(Page, Dict, getSeparationInfo); m_poppler_get_poppler(Page, Dict, getResourceDict); -m_poppler_get_OBJECT(Page, getAnnots); +m_poppler_get_OBJECT(Page, getAnnotsObject); m_poppler_get_OBJECT(Page, getContents); @@ -2270,7 +2267,7 @@ {"getPieceInfo", m_Page_getPieceInfo}, {"getSeparationInfo", m_Page_getSeparationInfo}, {"getResourceDict", m_Page_getResourceDict}, - {"getAnnots", m_Page_getAnnots}, + {"getAnnots", m_Page_getAnnotsObject}, {"getContents", m_Page_getContents}, {"__tostring", m_Page__tostring}, {NULL, NULL} // sentinel @@ -2520,7 +2517,7 @@ if (((PdfDocument *) uin->d)->doc->getXRef()->isOk()) { uout = new_Object_userdata(L); uout->d = new Object(); - ((PdfDocument *) uin->d)->doc->getDocInfo((Object *) uout->d); + *((Object *) uout->d) = ((PdfDocument *) uin->d)->doc->getDocInfo(); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -2538,7 +2535,7 @@ if (((PdfDocument *) uin->d)->doc->getXRef()->isOk()) { uout = new_Object_userdata(L); uout->d = new Object(); - ((PdfDocument *) uin->d)->doc->getDocInfoNF((Object *) uout->d); + *((Object *) uout->d) = ((PdfDocument *) uin->d)->doc->getDocInfoNF(); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -2841,7 +2838,7 @@ uout = new_Object_userdata(L); uout->d = new Object(); origin = (Object *) (((Attribute *) uin->d)->getValue()); - origin->copy ( ((Object *)uout->d) ); + *((Object *) uout->d) = origin->copy(); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -3320,7 +3317,7 @@ parent = root->findParentElement(i-1); if (parent != NULL) { uout = new_StructElement_userdata(L); - uout->d = new StructElement( *parent ); + uout->d = (StructElement *) parent; uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; @@ -3370,7 +3367,7 @@ gen = luaL_checkint(L, 3); uout = new_Object_userdata(L); uout->d = new Object(); - ((XRef *) uin->d)->fetch(num, gen, (Object *) uout->d); + *((Object *) uout->d) = ((XRef *) uin->d)->fetch(num, gen); uout->atype = ALLOC_LEPDF; uout->pc = uin->pc; uout->pd = uin->pd; --- texlive-base-20170520/source/texk/web2c/luatexdir/lua/lpdfscannerlib.cc.newpoppler 2017-05-08 22:39:36.692708395 +0200 +++ texlive-base-20170520/source/texk/web2c/luatexdir/lua/lpdfscannerlib.cc 2017-09-19 09:48:19.658021769 +0200 @@ -634,7 +634,7 @@ int i; for (i=0;iget(i, val); + *val = arrayref->get(i); if (val->isStream()) { ObjectList *rover = self->_streams; ObjectList *item = (ObjectList *)priv_xmalloc (sizeof(ObjectList));