TB9.2 Example Applications: examples/PIPS/antiword/src/pdf.c Source File

00001 /*
-00002  * pdf.c
-00003  * Copyright (C) 2003-2005 A.J. van Os; Released under GNU GPL
-00004  *
-00005  * Description:
-00006  * Functions to deal with the Adobe Portable Document Format (pdf)
-00007  *
-00008  */
-00009 
-00010 #include <stdarg.h>
-00011 #include <string.h>
-00012 #include "version.h"
-00013 #include "antiword.h"
-00014 
-00015 
-00016 /* Constants for the file positions */
-00017 #define INITIAL_LOCATION_SIZE   20
-00018 #define INITIAL_PAGEOBJECT_SIZE  5
-00019 #if defined(DEBUG)
-00020 #define EXTENSION_ARRAY_SIZE    10
-00021 #else
-00022 #define EXTENSION_ARRAY_SIZE    30
-00023 #endif /* DEBUG */
-00024 
-00025 /* The character set */
-00026 static encoding_type    eEncoding = encoding_neutral;
-00027 /* Current creator for a PDF header */
-00028 static const char       *szProducer = NULL;
-00029 /* The height and width of a PDF page (in DrawUnits) */
-00030 static long             lPageHeight = LONG_MAX;
-00031 static long             lPageWidth = LONG_MAX;
-00032 /* The height of the footer on the current page (in DrawUnits) */
-00033 static long             lFooterHeight = 0;
-00034 /* Inside a footer (to prevent an infinite loop when the footer is too big) */
-00035 static BOOL             bInFtrSpace = FALSE;
-00036 /* Current font information */
-00037 static drawfile_fontref tFontRefCurr = (drawfile_fontref)-1;
-00038 static USHORT           usFontSizeCurr = 0;
-00039 static int              iFontColorCurr = -1;
-00040 /* Current vertical position information */
-00041 static long             lYtopCurr = -1;
-00042 /* Image counter */
-00043 static int              iImageCount = 0;
-00044 /* Section index */
-00045 static int              iSectionIndex = 0;
-00046 /* Are we on the first page of the section? */
-00047 static BOOL             bFirstInSection = TRUE;
-00048 /* File positions */
-00049 static long             lFilePosition = 0;
-00050 static long             *alLocation = NULL;
-00051 static size_t           tLocations = 0;
-00052 static int              iMaxLocationNumber = 0;
-00053 /* File position at the start of a page */
-00054 static long             lStreamStart = -1;
-00055 /* Page objects */
-00056 static int              *aiPageObject = NULL;
-00057 static int              iPageCount = 0;
-00058 static size_t           tMaxPageObjects = 0;
-00059 /* Current object number */
-00060 /* 1 = root; 2 = info; 3 = pages; 4 = encoding; 5-16 = fonts; 17 = resources */
-00061 static int              iObjectNumberCurr = 17;
-00062 
-00063 static void             vMoveTo(diagram_type *, long);
-00064 
-00065 static const struct {
-00066         const char      *szPDFname;
-00067         const char      *szPSname;
-00068 } atFontname[] = {
-00069         { "Courier",                    FONT_MONOSPACED_PLAIN },
-00070         { "Courier-Bold",               FONT_MONOSPACED_BOLD },
-00071         { "Courier-Oblique",            FONT_MONOSPACED_ITALIC },
-00072         { "Courier-BoldOblique",        FONT_MONOSPACED_BOLDITALIC },
-00073         { "Helvetica",                  FONT_SANS_SERIF_PLAIN },
-00074         { "Helvetica-Bold",             FONT_SANS_SERIF_BOLD },
-00075         { "Helvetica-Oblique",          FONT_SANS_SERIF_ITALIC },
-00076         { "Helvetica-BoldOblique",      FONT_SANS_SERIF_BOLDITALIC },
-00077         { "Times-Roman",                FONT_SERIF_PLAIN },
-00078         { "Times-Bold",                 FONT_SERIF_BOLD },
-00079         { "Times-Italic",               FONT_SERIF_ITALIC },
-00080         { "Times-BoldItalic",           FONT_SERIF_BOLDITALIC },
-00081 };
-00082 
-00083 static const char *iso_8859_1[] = {
-00084 "128 /Euro",
-00085 "140 /ellipsis /trademark /perthousand /bullet",
-00086 "    /quoteleft /quoteright /guilsinglleft /guilsinglright",
-00087 "    /quotedblleft /quotedblright /quotedblbase /endash /emdash",
-00088 "    /minus /OE /oe /dagger /daggerdbl /fi /fl",
-00089 "160 /space /exclamdown /cent /sterling /currency",
-00090 "    /yen /brokenbar /section /dieresis /copyright",
-00091 "    /ordfeminine /guillemotleft /logicalnot /hyphen /registered",
-00092 "    /macron /degree /plusminus /twosuperior /threesuperior",
-00093 "    /acute /mu /paragraph /periodcentered /cedilla",
-00094 "    /onesuperior /ordmasculine /guillemotright /onequarter",
-00095 "    /onehalf /threequarters /questiondown /Agrave /Aacute",
-00096 "    /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla",
-00097 "    /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute",
-00098 "    /Icircumflex /Idieresis /Eth /Ntilde /Ograve /Oacute",
-00099 "    /Ocircumflex /Otilde /Odieresis /multiply /Oslash",
-00100 "    /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn",
-00101 "    /germandbls /agrave /aacute /acircumflex /atilde",
-00102 "    /adieresis /aring /ae /ccedilla /egrave /eacute",
-00103 "    /ecircumflex /edieresis /igrave /iacute /icircumflex",
-00104 "    /idieresis /eth /ntilde /ograve /oacute /ocircumflex",
-00105 "    /otilde /odieresis /divide /oslash /ugrave /uacute",
-00106 "    /ucircumflex /udieresis /yacute /thorn /ydieresis",
-00107 };
-00108 
-00109 static const char *iso_8859_2[] = {
-00110 "160 /space /Aogonek /breve /Lslash /currency /Lcaron",
-00111 "    /Sacute /section /dieresis /Scaron /Scommaaccent",
-00112 "    /Tcaron /Zacute /hyphen /Zcaron /Zdotaccent /degree",
-00113 "    /aogonek /ogonek /lslash /acute /lcaron /sacute",
-00114 "    /caron /cedilla /scaron /scommaaccent /tcaron",
-00115 "    /zacute /hungarumlaut /zcaron /zdotaccent /Racute",
-00116 "    /Aacute /Acircumflex /Abreve /Adieresis /Lacute",
-00117 "    /Cacute /Ccedilla /Ccaron /Eacute /Eogonek",
-00118 "    /Edieresis /Ecaron /Iacute /Icircumflex /Dcaron",
-00119 "    /.notdef /Nacute /Ncaron /Oacute /Ocircumflex",
-00120 "    /Ohungarumlaut /Odieresis /multiply /Rcaron /Uring",
-00121 "    /Uacute /Uhungarumlaut /Udieresis /Yacute /Tcommaaccent",
-00122 "    /germandbls /racute /aacute /acircumflex /abreve",
-00123 "    /adieresis /lacute /cacute /ccedilla /ccaron /eacute",
-00124 "    /eogonek /edieresis /ecaron /iacute /icircumflex",
-00125 "    /dcaron /.notdef /nacute /ncaron /oacute /ocircumflex",
-00126 "    /ohungarumlaut /odieresis /divide /rcaron /uring",
-00127 "    /uacute /uhungarumlaut /udieresis /yacute /tcommaaccent",
-00128 "    /dotaccent",
-00129 };
-00130 
-00131 
-00132 /*
-00133  * tGetFontIndex - get the font index
-00134  */
-00135 static size_t
-00136 tGetFontIndex(drawfile_fontref tFontRef)
-00137 {
-00138         const char      *szFontname;
-00139         size_t          tIndex;
-00140 
-00141         /* Get the font name */
-00142         szFontname = szGetFontname(tFontRef);
-00143         fail(szFontname == NULL);
-00144         if (szFontname == NULL) {
-00145                 return 0;
-00146         }
-00147 
-00148         /* Find the name in the table */
-00149         for (tIndex = 0; tIndex < elementsof(atFontname); tIndex++) {
-00150                 if (STRCEQ(atFontname[tIndex].szPSname, szFontname)) {
-00151                         return tIndex;
-00152                 }
-00153         }
-00154         /* Not found */
-00155         DBG_DEC(tFontRef);
-00156         DBG_MSG(szFontname);
-00157         return 0;
-00158 } /* end of tGetFontIndex */
-00159 
-00160 /*
-00161  * vSetLocation - store the location of objects
-00162  */
-00163 static void
-00164 vSetLocation(int iLocationNumber)
-00165 {
-00166         fail(iLocationNumber <= 0);
-00167 
-00168         if ((size_t)iLocationNumber >= tLocations) {
-00169                 /* Extend and set to zero */
-00170                 tLocations += EXTENSION_ARRAY_SIZE;
-00171                 alLocation = xrealloc(alLocation, tLocations * sizeof(long));
-00172                 memset(alLocation + tLocations - EXTENSION_ARRAY_SIZE,
-00173                         0,
-00174                         EXTENSION_ARRAY_SIZE * sizeof(long));
-00175                 DBG_DEC(tLocations);
-00176         }
-00177         if (iLocationNumber > iMaxLocationNumber) {
-00178                 iMaxLocationNumber = iLocationNumber;
-00179         }
-00180 
-00181         DBG_DEC_C((size_t)iLocationNumber >= tLocations, iLocationNumber);
-00182         DBG_DEC_C((size_t)iLocationNumber >= tLocations, tLocations);
-00183         fail((size_t)iLocationNumber >= tLocations);
-00184 
-00185         alLocation[iLocationNumber] = lFilePosition;
-00186 } /* end of vSetLocation */
-00187 
-00188 /*
-00189  * vFillNextPageObject - fil the next page object with the current object number
-00190  */
-00191 static void
-00192 vFillNextPageObject(void)
-00193 {
-00194         iPageCount++;
-00195         if ((size_t)iPageCount >= tMaxPageObjects) {
-00196                 /* Extend the array */
-00197                 tMaxPageObjects += EXTENSION_ARRAY_SIZE;
-00198                 aiPageObject = xrealloc(aiPageObject,
-00199                                         tMaxPageObjects * sizeof(int));
-00200                 DBG_DEC(tMaxPageObjects);
-00201         }
-00202         aiPageObject[iPageCount] = iObjectNumberCurr;
-00203 } /* end of vFillNextPageObject */
-00204 
-00205 /*
-00206  * vFPprintf - printf and update the fileposition
-00207  *
-00208  * called with arguments like fprintf(3)
-00209  */
-00210 static void
-00211 vFPprintf(FILE *pOutFile, const char *szFormat, ...)
-00212 {
-00213         va_list tArg;
-00214 
-00215         va_start(tArg, szFormat);
-00216         lFilePosition += vfprintf(pOutFile, szFormat, tArg);
-00217         va_end(tArg);
-00218 } /* end of vFPprintf */
-00219 
-00220 /*
-00221  * vCreateInfoDictionary - create the document information dictionary
-00222  */
-00223 void
-00224 vCreateInfoDictionary(diagram_type *pDiag, int iWordVersion)
-00225 {
-00226         FILE    *pOutFile;
-00227         const char      *szTitle, *szAuthor, *szSubject, *szCreator;
-00228         const char      *szCreationDate, *szModDate;
-00229 
-00230         fail(pDiag == NULL);
-00231         fail(pDiag->pOutFile == NULL);
-00232         fail(iWordVersion < 0);
-00233         fail(szProducer == NULL || szProducer[0] == '\0');
-00234 
-00235         szTitle = szGetTitle();
-00236         szAuthor = szGetAuthor();
-00237         szSubject = szGetSubject();
-00238         szCreationDate = szGetCreationDate();
-00239         szModDate = szGetModDate();
-00240 
-00241         switch (iWordVersion) {
-00242         case 0: szCreator = "Word for DOS"; break;
-00243         case 1: szCreator = "WinWord 1.x"; break;
-00244         case 2: szCreator = "WinWord 2.0"; break;
-00245         case 4: szCreator = "MacWord 4"; break;
-00246         case 5: szCreator = "MacWord 5"; break;
-00247         case 6: szCreator = "Word 6"; break;
-00248         case 7: szCreator = "Word 7/95"; break;
-00249         case 8: szCreator = "Word 97 or later"; break;
-00250         default: szCreator = NULL; break;
-00251         }
-00252 
-00253         pOutFile = pDiag->pOutFile;
-00254 
-00255         vSetLocation(2);
-00256         vFPprintf(pOutFile, "2 0 obj\n");
-00257         vFPprintf(pOutFile, "<<\n");
-00258         if (szTitle != NULL && szTitle[0] != '\0') {
-00259                 vFPprintf(pOutFile, "/Title (%s)\n", szTitle);
-00260         }
-00261         if (szAuthor != NULL && szAuthor[0] != '\0') {
-00262                 vFPprintf(pOutFile, "/Author (%s)\n", szAuthor);
-00263         }
-00264         if (szSubject != NULL && szSubject[0] != '\0') {
-00265                 vFPprintf(pOutFile, "/Subject (%s)\n", szSubject);
-00266         }
-00267         if (szCreator != NULL && szCreator[0] != '\0') {
-00268                 vFPprintf(pOutFile, "/Creator (%s)\n", szCreator);
-00269         }
-00270         vFPprintf(pOutFile, "/Producer (%s %s)\n", szProducer, VERSIONSTRING);
-00271         if (szCreationDate != NULL && szCreationDate[0] != '\0') {
-00272                 vFPprintf(pOutFile, "/CreationDate (%s)\n", szCreationDate);
-00273         }
-00274         if (szModDate != NULL && szModDate[0] != '\0') {
-00275                 vFPprintf(pOutFile, "/ModDate (%s)\n", szModDate);
-00276         }
-00277         vFPprintf(pOutFile, ">>\n");
-00278         vFPprintf(pOutFile, "endobj\n");
-00279 } /* end of vCreateInfoDictionary */
-00280 
-00281 /*
-00282  * vAddHdrFtr - add a header or footer
-00283  */
-00284 static void
-00285 vAddHdrFtr(diagram_type *pDiag, const hdrftr_block_type *pHdrFtrInfo)
-00286 {
-00287         output_type     *pStart, *pPrev, *pNext;
-00288 
-00289         fail(pDiag == NULL);
-00290         fail(pHdrFtrInfo == NULL);
-00291 
-00292         vStartOfParagraphPDF(pDiag, 0);
-00293         pStart = pHdrFtrInfo->pText;
-00294         while (pStart != NULL) {
-00295                 pNext = pStart;
-00296                 while (pNext != NULL &&
-00297                        (pNext->tNextFree != 1 ||
-00298                         (pNext->szStorage[0] != PAR_END &&
-00299                          pNext->szStorage[0] != HARD_RETURN))) {
-00300                         pNext = pNext->pNext;
-00301                 }
-00302                 if (pNext == NULL) {
-00303                         if (bOutputContainsText(pStart)) {
-00304                                 vAlign2Window(pDiag, pStart,
-00305                                         lChar2MilliPoints(DEFAULT_SCREEN_WIDTH),
-00306                                         ALIGNMENT_LEFT);
-00307                         } else {
-00308                                 vMove2NextLinePDF(pDiag, pStart->usFontSize);
-00309                         }
-00310                         break;
-00311                 }
-00312                 fail(pNext->tNextFree != 1);
-00313                 fail(pNext->szStorage[0] != PAR_END &&
-00314                         pNext->szStorage[0] != HARD_RETURN);
-00315 
-00316                 if (pStart != pNext) {
-00317                         /* There is something to print */
-00318                         pPrev = pNext->pPrev;
-00319                         fail(pPrev->pNext != pNext);
-00320                         /* Cut the chain */
-00321                         pPrev->pNext = NULL;
-00322                         if (bOutputContainsText(pStart)) {
-00323                                 /* Print it */
-00324                                 vAlign2Window(pDiag, pStart,
-00325                                         lChar2MilliPoints(DEFAULT_SCREEN_WIDTH),
-00326                                         ALIGNMENT_LEFT);
-00327                         } else {
-00328                                 /* Just an empty line */
-00329                                 vMove2NextLinePDF(pDiag, pStart->usFontSize);
-00330                         }
-00331                         /* Repair the chain */
-00332                         pPrev->pNext = pNext;
-00333                 }
-00334                 if (pNext->szStorage[0] == PAR_END) {
-00335                         vEndOfParagraphPDF(pDiag, pNext->usFontSize,
-00336                                         (long)pNext->usFontSize * 200);
-00337                 }
-00338                 pStart = pNext->pNext;
-00339         }
-00340 } /* end of vAddHdrFtr */
-00341 
-00342 /*
-00343  * vAddHeader - add a page header
-00344  */
-00345 static void
-00346 vAddHeader(diagram_type *pDiag)
-00347 {
-00348         const hdrftr_block_type *pHdrInfo;
-00349         const hdrftr_block_type *pFtrInfo;
-00350 
-00351         fail(pDiag == NULL);
-00352 
-00353         NO_DBG_MSG("vAddHeader");
-00354 
-00355         pHdrInfo = pGetHdrFtrInfo(iSectionIndex, TRUE,
-00356                                         odd(iPageCount), bFirstInSection);
-00357         pFtrInfo = pGetHdrFtrInfo(iSectionIndex, FALSE,
-00358                                         odd(iPageCount), bFirstInSection);
-00359         /* Set the height of the footer of this page */
-00360         lFooterHeight = pFtrInfo == NULL ? 0 : pFtrInfo->lHeight;
-00361         fail(lFooterHeight < 0);
-00362 
-00363         if (pHdrInfo == NULL ||
-00364             pHdrInfo->pText == NULL ||
-00365             pHdrInfo->lHeight <= 0) {
-00366                 fail(pHdrInfo != NULL && pHdrInfo->lHeight < 0);
-00367                 fail(pHdrInfo != NULL &&
-00368                         pHdrInfo->pText != NULL &&
-00369                         pHdrInfo->lHeight == 0);
-00370                 return;
-00371         }
-00372 
-00373         vAddHdrFtr(pDiag, pHdrInfo);
-00374 
-00375         DBG_DEC_C(pHdrInfo->lHeight !=
-00376                 lPageHeight - PS_TOP_MARGIN - pDiag->lYtop,
-00377                 pHdrInfo->lHeight);
-00378         DBG_DEC_C(pHdrInfo->lHeight !=
-00379                 lPageHeight - PS_TOP_MARGIN - pDiag->lYtop,
-00380                 lPageHeight - PS_TOP_MARGIN - pDiag->lYtop);
-00381 } /* end of vAddHeader */
-00382 
-00383 /*
-00384  * vAddFooter - add a page footer
-00385  */
-00386 static void
-00387 vAddFooter(diagram_type *pDiag)
-00388 {
-00389         const hdrftr_block_type *pFtrInfo;
-00390 
-00391         fail(pDiag == NULL);
-00392 
-00393         NO_DBG_MSG("vAddFooter");
-00394 
-00395         pFtrInfo = pGetHdrFtrInfo(iSectionIndex, FALSE,
-00396                                         odd(iPageCount), bFirstInSection);
-00397         bFirstInSection = FALSE;
-00398         if (pFtrInfo == NULL ||
-00399             pFtrInfo->pText == NULL ||
-00400             pFtrInfo->lHeight <= 0) {
-00401                 fail(pFtrInfo != NULL && pFtrInfo->lHeight < 0);
-00402                 fail(pFtrInfo != NULL &&
-00403                         pFtrInfo->pText != NULL &&
-00404                         pFtrInfo->lHeight == 0);
-00405                 return;
-00406         }
-00407 
-00408         bInFtrSpace = TRUE;
-00409 
-00410         DBG_DEC_C(pFtrInfo->lHeight != lFooterHeight, pFtrInfo->lHeight);
-00411         DBG_DEC_C(pFtrInfo->lHeight != lFooterHeight, lFooterHeight);
-00412         DBG_DEC_C(pDiag->lYtop < lFooterHeight + PS_BOTTOM_MARGIN,
-00413                         pDiag->lYtop);
-00414         DBG_DEC_C(pDiag->lYtop < lFooterHeight + PS_BOTTOM_MARGIN,
-00415                         lFooterHeight + PS_BOTTOM_MARGIN);
-00416 
-00417         if (pDiag->lYtop > lFooterHeight + PS_BOTTOM_MARGIN) {
-00418                 /* Move down to the start of the footer */
-00419                 pDiag->lYtop = lFooterHeight + PS_BOTTOM_MARGIN;
-00420                 vMoveTo(pDiag, 0);
-00421         } else if (pDiag->lYtop < lFooterHeight + PS_BOTTOM_MARGIN / 2) {
-00422                 DBG_FIXME();
-00423                 /*
-00424                  * Move up to the start of the footer, to prevent moving
-00425                  * of the bottom edge of the paper
-00426                  */
-00427                 pDiag->lYtop = lFooterHeight + PS_BOTTOM_MARGIN;
-00428                 vMoveTo(pDiag, 0);
-00429         }
-00430 
-00431         DBG_FLT_C(pDiag->lYtop < lFooterHeight + PS_BOTTOM_MARGIN,
-00432         dDrawUnits2Points(lFooterHeight + PS_BOTTOM_MARGIN - pDiag->lYtop));
-00433 
-00434         vAddHdrFtr(pDiag, pFtrInfo);
-00435         bInFtrSpace = FALSE;
-00436 } /* end of vAddFooter */
-00437 
-00438 /*
-00439  * vEndPageObject - end the current page object
-00440  */
-00441 static void
-00442 vEndPageObject(FILE *pOutFile)
-00443 {
-00444         long    lStreamEnd;
-00445 
-00446         if (lStreamStart < 0) {
-00447                 /* There is no current page object */
-00448                 return;
-00449         }
-00450 
-00451         vFPprintf(pOutFile, "ET\n");
-00452         lStreamEnd = lFilePosition;
-00453         vFPprintf(pOutFile, "endstream\n");
-00454         vFPprintf(pOutFile, "endobj\n");
-00455 
-00456         iObjectNumberCurr++;
-00457         vSetLocation(iObjectNumberCurr);
-00458         vFPprintf(pOutFile, "%d 0 obj\n", iObjectNumberCurr);
-00459         vFPprintf(pOutFile, "%lu\n", lStreamEnd - lStreamStart);
-00460         vFPprintf(pOutFile, "endobj\n");
-00461 } /* end of vEndPageObject */
-00462 
-00463 /*
-00464  * vMove2NextPage - move to the start of the next page
-00465  */
-00466 static void
-00467 vMove2NextPage(diagram_type *pDiag, BOOL bNewSection)
-00468 {
-00469         FILE    *pOutFile;
-00470 
-00471         fail(pDiag == NULL);
-00472         fail(pDiag->pOutFile == NULL);
-00473 
-00474         pOutFile = pDiag->pOutFile;
-00475 
-00476         vAddFooter(pDiag);
-00477         /* End the old page object */
-00478         vEndPageObject(pOutFile);
-00479         if (bNewSection) {
-00480                 iSectionIndex++;
-00481                 bFirstInSection = TRUE;
-00482         }
-00483 
-00484         /* Start the new page object */
-00485         iObjectNumberCurr++;
-00486         vSetLocation(iObjectNumberCurr);
-00487         vFillNextPageObject();
-00488         vFPprintf(pOutFile, "%d 0 obj\n", iObjectNumberCurr);
-00489         vFPprintf(pOutFile, "<<\n");
-00490         vFPprintf(pOutFile, "/Type /Page\n");
-00491         vFPprintf(pOutFile, "/Parent 3 0 R\n");
-00492         vFPprintf(pOutFile, "/Resources 17 0 R\n");
-00493         vFPprintf(pOutFile, "/Contents %d 0 R\n", iObjectNumberCurr + 1);
-00494         vFPprintf(pOutFile, ">>\n");
-00495         vFPprintf(pOutFile, "endobj\n");
-00496 
-00497         /* Start the new text object */
-00498         iObjectNumberCurr++;
-00499         vSetLocation(iObjectNumberCurr);
-00500         vFPprintf(pOutFile, "%d 0 obj\n", iObjectNumberCurr);
-00501         vFPprintf(pOutFile, "<<\n");
-00502         vFPprintf(pOutFile, "/Length %d 0 R\n", iObjectNumberCurr + 1);
-00503         vFPprintf(pOutFile, ">>\n");
-00504         vFPprintf(pOutFile, "stream\n");
-00505         lStreamStart = lFilePosition;
-00506         vFPprintf(pOutFile, "BT\n");
-00507 
-00508         /* Set variables to their start of page values */
-00509         pDiag->lYtop = lPageHeight - PS_TOP_MARGIN;
-00510         tFontRefCurr = (drawfile_fontref)-1;
-00511         usFontSizeCurr = 0;
-00512         iFontColorCurr = -1;
-00513         lYtopCurr = -1;
-00514         vAddHeader(pDiag);
-00515 } /* end of vMove2NextPage */
-00516 
-00517 /*
-00518  * vMoveTo - move to the specified X,Y coordinates
-00519  *
-00520  * Move the current position of the specified diagram to its X,Y coordinates,
-00521  * start on a new page if needed
-00522  */
-00523 static void
-00524 vMoveTo(diagram_type *pDiag, long lLastVerticalMovement)
-00525 {
-00526         fail(pDiag == NULL);
-00527         fail(pDiag->pOutFile == NULL);
-00528 
-00529         if (pDiag->lYtop <= lFooterHeight + PS_BOTTOM_MARGIN && !bInFtrSpace) {
-00530                 vMove2NextPage(pDiag, FALSE);
-00531                 /* Repeat the last vertical movement on the new page */
-00532                 pDiag->lYtop -= lLastVerticalMovement;
-00533         }
-00534 
-00535         fail(pDiag->lYtop < lFooterHeight + PS_BOTTOM_MARGIN && !bInFtrSpace);
-00536         DBG_DEC_C(pDiag->lYtop < PS_BOTTOM_MARGIN, pDiag->lYtop);
-00537         fail(pDiag->lYtop < PS_BOTTOM_MARGIN / 3);
-00538 
-00539         if (pDiag->lYtop != lYtopCurr) {
-00540                 vFPprintf(pDiag->pOutFile, "1 0 0 1 %.2f %.2f Tm\n",
-00541                         dDrawUnits2Points(pDiag->lXleft + PS_LEFT_MARGIN),
-00542                         dDrawUnits2Points(pDiag->lYtop));
-00543                 lYtopCurr = pDiag->lYtop;
-00544         }
-00545 } /* end of vMoveTo */
-00546 
-00547 /*
-00548  * vProloguePDF - set options and perform the PDF initialization
-00549  */
-00550 void
-00551 vProloguePDF(diagram_type *pDiag,
-00552         const char *szTask, const options_type *pOptions)
-00553 {
-00554         FILE    *pOutFile;
-00555 
-00556         fail(pDiag == NULL);
-00557         fail(pDiag->pOutFile == NULL);
-00558         fail(pOptions == NULL);
-00559 
-00560         pOutFile = pDiag->pOutFile;
-00561 
-00562         eEncoding = pOptions->eEncoding;
-00563 
-00564         /* Create an empty location array */
-00565         tLocations = INITIAL_LOCATION_SIZE;
-00566         alLocation = xcalloc(tLocations, sizeof(long));
-00567 
-00568         /* Create an empty pageobject array */
-00569         tMaxPageObjects = INITIAL_PAGEOBJECT_SIZE;
-00570         aiPageObject = xcalloc(tMaxPageObjects, sizeof(int));
-00571 
-00572         if (pOptions->iPageHeight == INT_MAX) {
-00573                 lPageHeight = LONG_MAX;
-00574         } else {
-00575                 lPageHeight = lPoints2DrawUnits(pOptions->iPageHeight);
-00576         }
-00577         DBG_DEC(lPageHeight);
-00578         if (pOptions->iPageWidth == INT_MAX) {
-00579                 lPageWidth = LONG_MAX;
-00580         } else {
-00581                 lPageWidth = lPoints2DrawUnits(pOptions->iPageWidth);
-00582         }
-00583         DBG_DEC(lPageWidth);
-00584         lFooterHeight = 0;
-00585         bInFtrSpace = FALSE;
-00586 
-00587         tFontRefCurr = (drawfile_fontref)-1;
-00588         usFontSizeCurr = 0;
-00589         iFontColorCurr = -1;
-00590         lYtopCurr = -1;
-00591         iPageCount = 0;
-00592         iImageCount = 0;
-00593         iSectionIndex = 0;
-00594         bFirstInSection = TRUE;
-00595         lFilePosition = 0;
-00596         iMaxLocationNumber = 0;
-00597         lStreamStart = -1;
-00598         iObjectNumberCurr = 17;
-00599         pDiag->lXleft = 0;
-00600         pDiag->lYtop = 0;
-00601 
-00602         szProducer = szTask;
-00603 
-00604         vFPprintf(pOutFile, "%%PDF-1.3\n");
-00605         vFPprintf(pOutFile, "%%%c%c%c%c\n", 0xe2, 0xe3, 0xcf, 0xd3);
-00606 
-00607         /* Root catalog */
-00608         vSetLocation(1);
-00609         vFPprintf(pOutFile, "1 0 obj\n");
-00610         vFPprintf(pOutFile, "<<\n");
-00611         vFPprintf(pOutFile, "/Type /Catalog\n");
-00612         vFPprintf(pOutFile, "/Pages 3 0 R\n");
-00613         vFPprintf(pOutFile, ">>\n");
-00614         vFPprintf(pOutFile, "endobj\n");
-00615 } /* end of vProloguePDF */
-00616 
-00617 /*
-00618  * vEpiloguePDF - clean up after everything is done
-00619  */
-00620 void
-00621 vEpiloguePDF(diagram_type *pDiag)
-00622 {
-00623         FILE    *pOutFile;
-00624         long    lXref;
-00625         int     iIndex;
-00626 
-00627         fail(pDiag == NULL);
-00628         fail(pDiag->pOutFile == NULL);
-00629 
-00630         pOutFile = pDiag->pOutFile;
-00631 
-00632         vAddFooter(pDiag);
-00633         /* End the old page object */
-00634         vEndPageObject(pOutFile);
-00635 
-00636         vSetLocation(3);
-00637         vFPprintf(pOutFile, "3 0 obj\n");
-00638         vFPprintf(pOutFile, "<<\n");
-00639         vFPprintf(pOutFile, "/Type /Pages\n");
-00640         vFPprintf(pOutFile, "/Count %d\n", iPageCount);
-00641         vFPprintf(pOutFile, "/MediaBox [ 0 0 %.0f %.0f ]\n",
-00642                         dDrawUnits2Points(lPageWidth),
-00643                         dDrawUnits2Points(lPageHeight));
-00644         vFPprintf(pOutFile, "/Kids [ ");
-00645         for (iIndex = 1; iIndex <= iPageCount; iIndex++) {
-00646                 vFPprintf(pOutFile, "\t%d 0 R\n", aiPageObject[iIndex]);
-00647         }
-00648         vFPprintf(pOutFile, "]\n");
-00649         vFPprintf(pOutFile, ">>\n");
-00650         vFPprintf(pOutFile, "endobj\n");
-00651 
-00652         lXref = lFilePosition;
-00653 
-00654         vFPprintf(pOutFile, "xref\n");
-00655         vFPprintf(pOutFile, "0 %d\n", iMaxLocationNumber + 1);
-00656         vFPprintf(pOutFile, "0000000000 65535 f \n");
-00657         for (iIndex = 1; iIndex <= iMaxLocationNumber; iIndex++) {
-00658                 vFPprintf(pOutFile, "%.10ld 00000 n \n", alLocation[iIndex]);
-00659         }
-00660 
-00661         vFPprintf(pOutFile, "trailer\n");
-00662         vFPprintf(pOutFile, "<<\n");
-00663         vFPprintf(pOutFile, "/Size %d\n", iMaxLocationNumber + 1);
-00664         vFPprintf(pOutFile, "/Root 1 0 R\n");
-00665         vFPprintf(pOutFile, "/Info 2 0 R\n");
-00666         vFPprintf(pOutFile, ">>\n");
-00667 
-00668         vFPprintf(pOutFile, "startxref\n");
-00669         vFPprintf(pOutFile, "%ld\n", lXref);
-00670         vFPprintf(pOutFile, "%%%%EOF\n");
-00671 
-00672         szProducer = NULL;
-00673         aiPageObject = xfree(aiPageObject);
-00674         alLocation = xfree(alLocation);
-00675 } /* end of vEpiloguePDF */
-00676 
-00677 /*
-00678  * vPrintPalette - print a pdf color space (palette)
-00679  */
-00680 static void
-00681 vPrintPalette(FILE *pOutFile, const imagedata_type *pImg)
-00682 {
-00683         int     iIndex;
-00684 
-00685         fail(pOutFile == NULL);
-00686         fail(pImg == NULL);
-00687         fail(pImg->iColorsUsed < 2);
-00688         fail(pImg->iColorsUsed > 256);
-00689 
-00690         vFPprintf(pOutFile, "\t/ColorSpace [ /Indexed\n");
-00691         vFPprintf(pOutFile, "\t/Device%s %d\n",
-00692                 pImg->bColorImage ? "RGB" : "Gray", pImg->iColorsUsed - 1);
-00693         vFPprintf(pOutFile, "<");
-00694         for (iIndex = 0; iIndex < pImg->iColorsUsed; iIndex++) {
-00695                 vFPprintf(pOutFile, "%02x",
-00696                                 (unsigned int)pImg->aucPalette[iIndex][0]);
-00697                 if (pImg->bColorImage) {
-00698                         vFPprintf(pOutFile, "%02x%02x",
-00699                                 (unsigned int)pImg->aucPalette[iIndex][1],
-00700                                 (unsigned int)pImg->aucPalette[iIndex][2]);
-00701                 }
-00702                 if (iIndex % 8 == 7) {
-00703                         vFPprintf(pOutFile, "\n");
-00704                 } else {
-00705                         vFPprintf(pOutFile, " ");
-00706                 }
-00707         }
-00708         vFPprintf(pOutFile, "> ]\n");
-00709 } /* end of vPrintPalette */
-00710 
-00711 /*
-00712  * vImageProloguePDF - perform the image initialization
-00713  */
-00714 void
-00715 vImageProloguePDF(diagram_type *pDiag, const imagedata_type *pImg)
-00716 {
-00717         FILE    *pOutFile;
-00718 
-00719         fail(pDiag == NULL);
-00720         fail(pDiag->pOutFile == NULL);
-00721         fail(pImg == NULL);
-00722 
-00723         if (pImg->iVerSizeScaled <= 0 || pImg->iHorSizeScaled <= 0) {
-00724                 return;
-00725         }
-00726 
-00727         iImageCount++;
-00728 
-00729         DBG_DEC_C(pDiag->lXleft != 0, pDiag->lXleft);
-00730 
-00731         pDiag->lYtop -= lPoints2DrawUnits(pImg->iVerSizeScaled);
-00732         vMoveTo(pDiag, lPoints2DrawUnits(pImg->iVerSizeScaled));
-00733 
-00734         pOutFile = pDiag->pOutFile;
-00735 
-00736         vFPprintf(pOutFile, "ET\n");
-00737         vFPprintf(pOutFile, "q %% Image %03d\n", iImageCount);
-00738         if (pImg->eImageType == imagetype_is_dib) {
-00739                 /* Scanning from left to right and bottom to top */
-00740                 vFPprintf(pOutFile, "%d 0 0 %d %.2f %.2f cm\n",
-00741                         pImg->iHorSizeScaled, -pImg->iVerSizeScaled,
-00742                         dDrawUnits2Points(pDiag->lXleft + PS_LEFT_MARGIN),
-00743                         dDrawUnits2Points(pDiag->lYtop) + pImg->iVerSizeScaled);
-00744         } else {
-00745                 /* Scanning from left to right and top to bottom */
-00746                 vFPprintf(pOutFile, "%d 0 0 %d %.2f %.2f cm\n",
-00747                         pImg->iHorSizeScaled, pImg->iVerSizeScaled,
-00748                         dDrawUnits2Points(pDiag->lXleft + PS_LEFT_MARGIN),
-00749                         dDrawUnits2Points(pDiag->lYtop));
-00750         }
-00751         vFPprintf(pOutFile, "BI\n");
-00752         vFPprintf(pOutFile, "\t/Width %d\n", pImg->iWidth);
-00753         vFPprintf(pOutFile, "\t/Height %d\n", pImg->iHeight);
-00754         switch (pImg->eImageType) {
-00755         case imagetype_is_jpeg:
-00756                 switch (pImg->iComponents) {
-00757                 case 1:
-00758                         vFPprintf(pOutFile, "\t/ColorSpace /DeviceGray\n");
-00759                         break;
-00760                 case 3:
-00761                         vFPprintf(pOutFile, "\t/ColorSpace /DeviceRGB\n");
-00762                         break;
-00763                 case 4:
-00764                         vFPprintf(pOutFile, "\t/ColorSpace /DeviceCMYK\n");
-00765                         if (pImg->bAdobe) {
-00766                                 /*
-00767                                  * Adobe-conforming CMYK file
-00768                                  * applying workaround for color inversion
-00769                                  */
-00770                                 vFPprintf(pOutFile,
-00771                                         "\t/Decode [1 0 1 0 1 0 1 0]\n");
-00772                         }
-00773                         break;
-00774                 default:
-00775                         DBG_DEC(pImg->iComponents);
-00776                         break;
-00777                 }
-00778                 vFPprintf(pOutFile, "\t/BitsPerComponent 8\n");
-00779                 vFPprintf(pOutFile,
-00780                         "\t/Filter [ /ASCII85Decode /DCTDecode ]\n");
-00781                 break;
-00782         case imagetype_is_png:
-00783                 if (pImg->iComponents == 3 || pImg->iComponents == 4) {
-00784                         vFPprintf(pOutFile, "\t/ColorSpace /DeviceRGB\n");
-00785                         vFPprintf(pOutFile, "\t/BitsPerComponent 8\n");
-00786                 } else if (pImg->iColorsUsed > 0) {
-00787                         vPrintPalette(pOutFile, pImg);
-00788                         fail(pImg->uiBitsPerComponent > 8);
-00789                         vFPprintf(pOutFile, "\t/BitsPerComponent %u\n",
-00790                                         pImg->uiBitsPerComponent);
-00791                 } else {
-00792                         vFPprintf(pOutFile, "\t/ColorSpace /DeviceGray\n");
-00793                         vFPprintf(pOutFile, "\t/BitsPerComponent 8\n");
-00794                 }
-00795                 vFPprintf(pOutFile,
-00796                         "\t/Filter [ /ASCII85Decode /FlateDecode ]\n");
-00797                 vFPprintf(pOutFile, "\t/DecodeParms [ null <<\n");
-00798                 vFPprintf(pOutFile, "\t\t/Predictor 10\n");
-00799                 vFPprintf(pOutFile, "\t\t/Colors %d\n", pImg->iComponents);
-00800                 vFPprintf(pOutFile, "\t\t/BitsPerComponent %u\n",
-00801                                                 pImg->uiBitsPerComponent);
-00802                 vFPprintf(pOutFile, "\t\t/Columns %d\n", pImg->iWidth);
-00803                 vFPprintf(pOutFile, "\t\t>> ]\n");
-00804                 break;
-00805         case imagetype_is_dib:
-00806                 if (pImg->uiBitsPerComponent <= 8) {
-00807                         vPrintPalette(pOutFile, pImg);
-00808                 } else {
-00809                         vFPprintf(pOutFile, "\t/ColorSpace /DeviceRGB\n");
-00810                 }
-00811                 vFPprintf(pOutFile, "\t/BitsPerComponent 8\n");
-00812                 vFPprintf(pOutFile, "\t/Filter /ASCII85Decode\n");
-00813                 break;
-00814         default:
-00815                 vFPprintf(pOutFile, "\t/ColorSpace /Device%s\n",
-00816                         pImg->bColorImage ? "RGB" : "Gray");
-00817                 vFPprintf(pOutFile, "\t/BitsPerComponent 8\n");
-00818                 vFPprintf(pOutFile, "\t/Filter /ASCIIHexDecode\n");
-00819                 break;
-00820         }
-00821         vFPprintf(pOutFile, "ID\n");
-00822 } /* end of vImageProloguePDF */
-00823 
-00824 /*
-00825  * vImageEpiloguePDF - clean up after the image
-00826  */
-00827 void
-00828 vImageEpiloguePDF(diagram_type *pDiag)
-00829 {
-00830         FILE    *pOutFile;
-00831 
-00832         fail(pDiag == NULL);
-00833         fail(pDiag->pOutFile == NULL);
-00834 
-00835         pOutFile = pDiag->pOutFile;
-00836 
-00837         /* Correction for the image bytes */
-00838         lFilePosition = ftell(pOutFile);
-00839 
-00840         vFPprintf(pOutFile, "EI\n");
-00841         vFPprintf(pOutFile, "Q\n");
-00842         vFPprintf(pOutFile, "BT\n");
-00843 
-00844         pDiag->lXleft = 0;
-00845 } /* end of vImageEpiloguePDF */
-00846 
-00847 /*
-00848  * bAddDummyImagePDF - add a dummy image
-00849  *
-00850  * return TRUE when successful, otherwise FALSE
-00851  */
-00852 BOOL
-00853 bAddDummyImagePDF(diagram_type *pDiag, const imagedata_type *pImg)
-00854 {
-00855         FILE    *pOutFile;
-00856 
-00857         fail(pDiag == NULL);
-00858         fail(pDiag->pOutFile == NULL);
-00859         fail(pImg == NULL);
-00860 
-00861         if (pImg->iVerSizeScaled <= 0 || pImg->iHorSizeScaled <= 0) {
-00862                 return FALSE;
-00863         }
-00864 
-00865         iImageCount++;
-00866 
-00867         DBG_DEC_C(pDiag->lXleft != 0, pDiag->lXleft);
-00868 
-00869         pDiag->lYtop -= lPoints2DrawUnits(pImg->iVerSizeScaled);
-00870         vMoveTo(pDiag, lPoints2DrawUnits(pImg->iVerSizeScaled));
-00871 
-00872         pOutFile = pDiag->pOutFile;
-00873 
-00874         vFPprintf(pOutFile, "ET\n");
-00875         vFPprintf(pOutFile, "q %% Image %03d\n", iImageCount);
-00876         vFPprintf(pOutFile, "\t1.0 w\n");
-00877         vFPprintf(pOutFile, "\t0.3 G\n");
-00878         vFPprintf(pOutFile, "\t%.2f %.2f %d %d re\n",
-00879                         dDrawUnits2Points(pDiag->lXleft + PS_LEFT_MARGIN),
-00880                         dDrawUnits2Points(pDiag->lYtop),
-00881                         pImg->iHorSizeScaled,
-00882                         pImg->iVerSizeScaled);
-00883         vFPprintf(pOutFile, "\tS\n");
-00884         vFPprintf(pOutFile, "Q\n");
-00885         vFPprintf(pOutFile, "BT\n");
-00886 
-00887         pDiag->lXleft = 0;
-00888 
-00889         return TRUE;
-00890 } /* end of bAddDummyImagePDF */
-00891 
-00892 /*
-00893  * vAddFontsPDF - add the font information
-00894  */
-00895 void
-00896 vAddFontsPDF(diagram_type *pDiag)
-00897 {
-00898         FILE    *pOutFile;
-00899         size_t  tIndex;
-00900 
-00901         fail(pDiag == NULL);
-00902         fail(pDiag->pOutFile == NULL);
-00903 
-00904         pOutFile = pDiag->pOutFile;
-00905 
-00906         /* The font encoding */
-00907         vSetLocation(4);
-00908         vFPprintf(pOutFile, "4 0 obj\n");
-00909         vFPprintf(pOutFile, "<<\n");
-00910         vFPprintf(pOutFile, "/Type /Encoding\n");
-00911         vFPprintf(pOutFile, "/BaseEncoding /StandardEncoding\n");
-00912         vFPprintf(pOutFile, "/Differences [\n");
-00913         switch (eEncoding) {
-00914         case encoding_latin_1:
-00915                 for (tIndex = 0;
-00916                      tIndex < elementsof(iso_8859_1);
-00917                      tIndex++) {
-00918                         vFPprintf(pOutFile, "%s\n", iso_8859_1[tIndex]);
-00919                 }
-00920                 break;
-00921         case encoding_latin_2:
-00922                 for (tIndex = 0;
-00923                      tIndex < elementsof(iso_8859_2);
-00924                      tIndex++) {
-00925                         vFPprintf(pOutFile, "%s\n", iso_8859_2[tIndex]);
-00926                 }
-00927                 break;
-00928         case encoding_cyrillic:
-00929                 werr(1,
-00930                 "The combination PDF and Cyrillic is not supported");
-00931                 break;
-00932         case encoding_utf_8:
-00933                 werr(1,
-00934                 "The combination PDF and UTF-8 is not supported");
-00935                 break;
-00936         default:
-00937                 DBG_DEC(eEncoding);
-00938                 break;
-00939         }
-00940         vFPprintf(pOutFile, "]\n");
-00941         vFPprintf(pOutFile, ">>\n");
-00942         vFPprintf(pOutFile, "endobj\n");
-00943 
-00944         /* Twelve of the standard type 1 fonts */
-00945         for (tIndex = 0; tIndex < 12; tIndex++) {
-00946                 vSetLocation(5 + tIndex);
-00947                 vFPprintf(pOutFile, "%u 0 obj\n", 5 + tIndex);
-00948                 vFPprintf(pOutFile, "<<\n");
-00949                 vFPprintf(pOutFile, "/Type /Font\n");
-00950                 vFPprintf(pOutFile, "/Subtype /Type1\n");
-00951                 vFPprintf(pOutFile, "/Name /F%u\n", 1 + tIndex);
-00952                 vFPprintf(pOutFile, "/BaseFont /%s\n",
-00953                                                 atFontname[tIndex].szPDFname);
-00954                 vFPprintf(pOutFile, "/Encoding 4 0 R\n");
-00955                 vFPprintf(pOutFile, ">>\n");
-00956                 vFPprintf(pOutFile, "endobj\n");
-00957         }
-00958 
-00959         /* The Resources */
-00960         vSetLocation(17);
-00961         vFPprintf(pOutFile, "17 0 obj\n");
-00962         vFPprintf(pOutFile, "<<\n");
-00963         vFPprintf(pOutFile, "/ProcSet [ /PDF /Text ]\n");
-00964         vFPprintf(pOutFile, "/Font <<\n");
-00965         for (tIndex = 0; tIndex < 12; tIndex++) {
-00966                 vFPprintf(pOutFile, "\t/F%u %u 0 R\n", 1 + tIndex, 5 + tIndex);
-00967         }
-00968         vFPprintf(pOutFile, "\t>>\n");
-00969         vFPprintf(pOutFile, ">>\n");
-00970         vFPprintf(pOutFile, "endobj\n");
-00971         vAddHeader(pDiag);
-00972 } /* end of vAddFontsPDF */
-00973 
-00974 /*
-00975  * vPrintPDF - print a PDF string
-00976  */
-00977 static void
-00978 vPrintPDF(FILE *pFile, const char *szString, size_t tStringLength,
-00979         USHORT usFontstyle)
-00980 {
-00981         const UCHAR     *aucBytes;
-00982         double  dMove;
-00983         size_t  tCount;
-00984 
-00985         fail(szString == NULL);
-00986 
-00987         if (szString == NULL || szString[0] == '\0' || tStringLength == 0) {
-00988                 return;
-00989         }
-00990         DBG_DEC_C(usFontSizeCurr < MIN_FONT_SIZE, usFontSizeCurr);
-00991 
-00992         dMove = 0.0;
-00993 
-00994         /* Up for superscript */
-00995         if (bIsSuperscript(usFontstyle) && usFontSizeCurr != 0) {
-00996                 dMove = (double)((usFontSizeCurr + 1) / 2) * 0.375;
-00997                 vFPprintf(pFile, "%.2f Ts\n", dMove);
-00998         }
-00999 
-01000         /* Down for subscript */
-01001         if (bIsSubscript(usFontstyle) && usFontSizeCurr != 0) {
-01002                 dMove = (double)usFontSizeCurr * 0.125;
-01003                 vFPprintf(pFile, "%.2f Ts\n", -dMove);
-01004         }
-01005 
-01006         /* Generate and print the PDF output */
-01007         aucBytes = (UCHAR *)szString;
-01008         vFPprintf(pFile, "(");
-01009         for (tCount = 0; tCount < tStringLength ; tCount++) {
-01010                 switch (aucBytes[tCount]) {
-01011                 case '(':
-01012                 case ')':
-01013                 case '\\':
-01014                         vFPprintf(pFile, "\\%c", szString[tCount]);
-01015                         break;
-01016                 default:
-01017                         if (aucBytes[tCount] < 0x20 ||
-01018                             aucBytes[tCount] == 0x7f ||
-01019                             (aucBytes[tCount] >= 0x81 &&
-01020                              aucBytes[tCount] < 0x8c)) {
-01021                                 DBG_HEX(aucBytes[tCount]);
-01022                                 vFPprintf(pFile, " ");
-01023                         } else if (aucBytes[tCount] >= 0x80) {
-01024                                 vFPprintf(pFile, "\\%03o",
-01025                                                 (UINT)aucBytes[tCount]);
-01026                         } else {
-01027                                 vFPprintf(pFile, "%c", szString[tCount]);
-01028                         }
-01029                         break;
-01030                 }
-01031         }
-01032         vFPprintf(pFile, ") Tj\n");
-01033 
-01034         /* Undo the superscript/subscript move */
-01035         if (dMove != 0.0) {
-01036                 vFPprintf(pFile, "0 Ts\n");
-01037         }
-01038 } /* end of vPrintPDF */
-01039 
-01040 /*
-01041  * vSetColor - move to the specified color
-01042  */
-01043 static void
-01044 vSetColor(FILE *pFile, UCHAR ucFontColor)
-01045 {
-01046         ULONG   ulTmp, ulRed, ulGreen, ulBlue;
-01047 
-01048         ulTmp = ulColor2Color(ucFontColor);
-01049         ulRed   = (ulTmp & 0x0000ff00) >> 8;
-01050         ulGreen = (ulTmp & 0x00ff0000) >> 16;
-01051         ulBlue  = (ulTmp & 0xff000000) >> 24;
-01052         vFPprintf(pFile, "%.3f %.3f %.3f rg\n",
-01053                         ulRed / 255.0, ulGreen / 255.0, ulBlue / 255.0);
-01054 } /* end of vSetColor */
-01055 
-01056 /*
-01057  * vMove2NextLinePDF - move to the next line
-01058  */
-01059 void
-01060 vMove2NextLinePDF(diagram_type *pDiag, USHORT usFontSize)
-01061 {
-01062         fail(pDiag == NULL);
-01063         fail(usFontSize < MIN_FONT_SIZE || usFontSize > MAX_FONT_SIZE);
-01064 
-01065         pDiag->lYtop -= lComputeLeading(usFontSize);
-01066 } /* end of vMove2NextLinePDF */
-01067 
-01068 /*
-01069  * vSubstringPDF - print a sub string
-01070  */
-01071 void
-01072 vSubstringPDF(diagram_type *pDiag,
-01073         char *szString, size_t tStringLength, long lStringWidth,
-01074         UCHAR ucFontColor, USHORT usFontstyle, drawfile_fontref tFontRef,
-01075         USHORT usFontSize, USHORT usMaxFontSize)
-01076 {
-01077         size_t  tFontIndex;
-01078 
-01079         fail(pDiag == NULL || szString == NULL);
-01080         fail(pDiag->pOutFile == NULL);
-01081         fail(pDiag->lXleft < 0);
-01082         fail(tStringLength != strlen(szString));
-01083         fail(usFontSize < MIN_FONT_SIZE || usFontSize > MAX_FONT_SIZE);
-01084         fail(usMaxFontSize < MIN_FONT_SIZE || usMaxFontSize > MAX_FONT_SIZE);
-01085         fail(usFontSize > usMaxFontSize);
-01086 
-01087         if (szString[0] == '\0' || tStringLength == 0) {
-01088                 return;
-01089         }
-01090 
-01091         vMoveTo(pDiag, lComputeLeading(usMaxFontSize));
-01092         if (tFontRef != tFontRefCurr || usFontSize != usFontSizeCurr) {
-01093                 tFontIndex = tGetFontIndex(tFontRef);
-01094                 vFPprintf(pDiag->pOutFile, "/F%u %.1f Tf\n",
-01095                          1 + tFontIndex, (double)usFontSize / 2.0);
-01096                 tFontRefCurr = tFontRef;
-01097                 usFontSizeCurr = usFontSize;
-01098         }
-01099         if ((int)ucFontColor != iFontColorCurr) {
-01100                 vSetColor(pDiag->pOutFile, ucFontColor);
-01101                 iFontColorCurr = (int)ucFontColor;
-01102         }
-01103         vPrintPDF(pDiag->pOutFile, szString, tStringLength, usFontstyle);
-01104         pDiag->lXleft += lStringWidth;
-01105 } /* end of vSubstringPDF */
-01106 
-01107 /*
-01108  * Create an start of paragraph by moving the y-top mark
-01109  */
-01110 void
-01111 vStartOfParagraphPDF(diagram_type *pDiag, long lBeforeIndentation)
-01112 {
-01113         fail(pDiag == NULL);
-01114         fail(lBeforeIndentation < 0);
-01115 
-01116         pDiag->lXleft = 0;
-01117         pDiag->lYtop -= lMilliPoints2DrawUnits(lBeforeIndentation);
-01118 } /* end of vStartOfParagraphPDF */
-01119 
-01120 /*
-01121  * Create an end of paragraph by moving the y-top mark
-01122  */
-01123 void
-01124 vEndOfParagraphPDF(diagram_type *pDiag,
-01125         USHORT usFontSize, long lAfterIndentation)
-01126 {
-01127         fail(pDiag == NULL);
-01128         fail(pDiag->pOutFile == NULL);
-01129         fail(usFontSize < MIN_FONT_SIZE || usFontSize > MAX_FONT_SIZE);
-01130         fail(lAfterIndentation < 0);
-01131 
-01132         if (pDiag->lXleft > 0) {
-01133                 /* To the start of the line */
-01134                 vMove2NextLinePDF(pDiag, usFontSize);
-01135         }
-01136 
-01137         pDiag->lXleft = 0;
-01138         pDiag->lYtop -= lMilliPoints2DrawUnits(lAfterIndentation);
-01139 } /* end of vEndOfParagraphPDF */
-01140 
-01141 /*
-01142  * Create an end of page
-01143  */
-01144 void
-01145 vEndOfPagePDF(diagram_type *pDiag, BOOL bNewSection)
-01146 {
-01147         vMove2NextPage(pDiag, bNewSection);
-01148 } /* end of vEndOfPagePDF */
-