summaryrefslogtreecommitdiff
path: root/Build/source/texk/dvipng/dvipng-1.12/dvi.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/dvipng/dvipng-1.12/dvi.c')
-rw-r--r--Build/source/texk/dvipng/dvipng-1.12/dvi.c479
1 files changed, 479 insertions, 0 deletions
diff --git a/Build/source/texk/dvipng/dvipng-1.12/dvi.c b/Build/source/texk/dvipng/dvipng-1.12/dvi.c
new file mode 100644
index 00000000000..a4463bbdb2e
--- /dev/null
+++ b/Build/source/texk/dvipng/dvipng-1.12/dvi.c
@@ -0,0 +1,479 @@
+/* dvi.c */
+
+/************************************************************************
+
+ Part of the dvipng distribution
+
+ This program is free software: you can redistribute it and/or modify
+ it under the terms of the GNU Lesser General Public License as
+ published by the Free Software Foundation, either version 3 of the
+ License, or (at your option) any later version.
+
+ This program 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 Lesser General Public
+ License along with this program. If not, see
+ <http://www.gnu.org/licenses/>.
+
+ Copyright (C) 2002-2008 Jan-Åke Larsson
+
+************************************************************************/
+
+#include "dvipng.h"
+#ifdef MIKTEX
+# include <gnu-miktex.h>
+# define SLEEP Sleep(1000)
+#else /* MIKTEX */
+# ifdef HAVE_LIBGEN_H
+# include <libgen.h>
+# else
+# define basename xbasename
+#endif
+# define SLEEP sleep(1)
+#endif /* MIKTEX */
+#include <sys/stat.h>
+
+bool followmode=0;
+
+bool DVIFollowToggle(void)
+{
+ return followmode = ! followmode;
+}
+
+static unsigned char fgetc_follow(FILE* fp)
+{
+ int got=fgetc(fp);
+
+ while(followmode && got==EOF) {
+ SLEEP;
+ got=fgetc(fp);
+ }
+ if (got==EOF)
+ Fatal("DVI file ends prematurely");
+ return (unsigned char)got;
+}
+
+static void DVIInit(struct dvi_data* dvi)
+{
+ int k;
+ unsigned char* pre;
+ struct stat stat;
+
+ fseek(dvi->filep,0,SEEK_SET);
+ pre=DVIGetCommand(dvi);
+ if (*pre != PRE) {
+ Fatal("PRE does not occur first - are you sure this is a DVI file?");
+ }
+ k = UNumRead(pre+1,1);
+ DEBUG_PRINT(DEBUG_DVI,("DVI START:\tPRE %d",k));
+ if (k != DVIFORMAT) {
+ Fatal("DVI format = %d, can only process DVI format %d files",
+ k, DVIFORMAT);
+ }
+ dvi->num = UNumRead(pre+2, 4);
+ dvi->den = UNumRead(pre+6, 4);
+ DEBUG_PRINT(DEBUG_DVI,(" %d/%d",dvi->num,dvi->den));
+ dvi->mag = UNumRead(pre+10, 4); /*FIXME, see font.c*/
+ DEBUG_PRINT(DEBUG_DVI,(" %d",dvi->mag));
+ if ( usermag > 0 && usermag != dvi->mag ) {
+ Warning("DVI magnification of %d over-ridden by user (%ld)",
+ (long)dvi->mag, usermag );
+ dvi->mag = usermag;
+ }
+ dvi->conv = (1.0/(((double)dvi->num / (double)dvi->den) *
+ ((double)dvi->mag / 1000.0) *
+ ((double)dpi*shrinkfactor/254000.0)))+0.5;
+ DEBUG_PRINT(DEBUG_DVI,(" (%d)",dvi->conv));
+ k = UNumRead(pre+14,1);
+ DEBUG_PRINT(DEBUG_DVI,(" '%.*s'",k,pre+15));
+ Message(BE_VERBOSE,"'%.*s' -> %s\n",k,pre+15,dvi->outname);
+ fstat(fileno(dvi->filep), &stat);
+ dvi->mtime = stat.st_mtime;
+ dvi->pagelistp=NULL;
+ dvi->flags = 0;
+}
+
+struct dvi_data* DVIOpen(char* dviname,char* outname)
+{
+ char* tmpstring;
+ struct dvi_data* dvi;
+
+ if ((dvi = calloc(1,sizeof(struct dvi_data)))==NULL)
+ Fatal("cannot allocate memory for DVI struct");
+
+ dvi->type = DVI_TYPE;
+ dvi->fontnump=NULL;
+
+ dvi->name = malloc(strlen(dviname)+5);
+ if (dvi->name==NULL)
+ Fatal("cannot allocate space for DVI filename");
+ strcpy(dvi->name, dviname);
+ tmpstring = strrchr(dvi->name, '.');
+ if (tmpstring == NULL || strcmp(tmpstring,".dvi") != 0)
+ strcat(dvi->name, ".dvi");
+
+ if (outname==NULL) {
+ dvi->outname = malloc(strlen(basename(dviname))+7);
+ if (dvi->outname==NULL) {
+ free(dvi->name);
+ free(dvi);
+ Fatal("cannot allocate space for output filename");
+ }
+ strcpy(dvi->outname,basename(dviname));
+ tmpstring = strrchr(dvi->outname, '.');
+ if (tmpstring != NULL && strcmp(tmpstring,".dvi") == 0)
+ *tmpstring = '\0';
+ strcat(dvi->outname, "%d.png");
+ } else {
+ dvi->outname = malloc(strlen(outname)+1);
+ if (dvi->outname==NULL) {
+ free(dvi->name);
+ free(dvi);
+ Fatal("cannot allocate space for output filename");
+ }
+ strcpy(dvi->outname,outname);
+ }
+
+ if ((dvi->filep = fopen(dvi->name,"rb")) == NULL) {
+ /* do not insist on .dvi */
+ tmpstring = strrchr(dvi->name, '.');
+ *tmpstring='\0';
+ dvi->filep = fopen(dvi->name,"rb");
+ }
+ while((dvi->filep == NULL) && followmode) {
+ SLEEP;
+ *tmpstring='.';
+ if ((dvi->filep = fopen(dvi->name,"rb")) == NULL) {
+ /* do not insist on .dvi */
+ *tmpstring='\0';
+ dvi->filep = fopen(dvi->name,"rb");
+ }
+ }
+ if (dvi->filep == NULL) {
+ free(dvi->name);
+ free(dvi->outname);
+ free(dvi);
+ perror(dviname);
+ exit (EXIT_FAILURE);
+ }
+ DEBUG_PRINT(DEBUG_DVI,("OPEN FILE\t%s", dvi->name));
+ DVIInit(dvi);
+ return(dvi);
+}
+
+unsigned char* DVIGetCommand(struct dvi_data* dvi)
+ /* This function reads in and stores the next dvi command. */
+ /* Mmap is not appropriate here, we may want to read from
+ half-written files. */
+{
+ static unsigned char* command=NULL;
+ static uint32_t commlen=0;
+ unsigned char *current = command;
+ int length;
+ uint32_t strlength=0;
+
+ if (commlen==0) {
+ commlen=STRSIZE;
+ if ((current=command=malloc(commlen))==NULL)
+ Fatal("cannot allocate memory for DVI command");
+ }
+ DEBUG_PRINT(DEBUG_DVI,("\n@%ld ", ftell(dvi->filep)));
+ *(current++) = fgetc_follow(dvi->filep);
+ length = dvi_commandlength[*command];
+ if (length < 0)
+ Fatal("undefined DVI op-code %d",*command);
+ while(current < command+length)
+ *(current++) = fgetc_follow(dvi->filep);
+ switch (*command) {
+ case XXX4:
+ strlength = *(current - 4);
+ case XXX3:
+ strlength = strlength * 256 + *(current - 3);
+ case XXX2:
+ strlength = strlength * 256 + *(current - 2);
+ case XXX1:
+ strlength = strlength * 256 + *(current - 1);
+ break;
+ case FNT_DEF1: case FNT_DEF2: case FNT_DEF3: case FNT_DEF4:
+ strlength = *(current - 1) + *(current - 2);
+ break;
+ case PRE:
+ strlength = *(current - 1);
+ break;
+ }
+ if (strlength > 0) { /* Read string */
+ if (strlength+1 + (uint32_t)length > commlen) {
+ /* string + command length exceeds that of buffer */
+ commlen=strlength+1 + (uint32_t)length;
+ if ((command=realloc(command,commlen))==NULL)
+ Fatal("cannot allocate memory for DVI command");
+ current = command + length;
+ }
+ while(current < command+length+strlength)
+ *(current++) = fgetc_follow(dvi->filep);
+ *current='\0';
+ }
+ return(command);
+}
+
+bool DVIIsNextPSSpecial(struct dvi_data* dvi)
+ /* This function checks if the next dvi command is a raw PS
+ special */
+ /* Mmap is not appropriate here, we may want to read from
+ half-written files. */
+{
+ long fpos;
+ uint32_t strlength=0;
+ bool israwps=false;
+
+ DEBUG_PRINT(DEBUG_DVI,("\n CHECKING NEXT DVI COMMAND "));
+ fpos=ftell(dvi->filep);
+ switch (fgetc_follow(dvi->filep)) {
+ case XXX4:
+ strlength = fgetc_follow(dvi->filep);
+ case XXX3:
+ strlength = strlength * 256 + fgetc_follow(dvi->filep);
+ case XXX2:
+ strlength = strlength * 256 + fgetc_follow(dvi->filep);
+ case XXX1:
+ strlength = strlength * 256 + fgetc_follow(dvi->filep);
+ }
+ if (strlength > 0) {
+ switch(fgetc_follow(dvi->filep)) {
+ case 'p':
+ if (strlength > 2
+ && fgetc_follow(dvi->filep)=='s'
+ && fgetc_follow(dvi->filep)==':')
+ israwps=true;
+ break;
+ case '"':
+ israwps=true;
+ }
+ }
+ fseek(dvi->filep,fpos,SEEK_SET);
+ return(israwps);
+}
+
+uint32_t CommandLength(unsigned char* command)
+{
+ /* generally 2^32+5 bytes max, but in practice 32 bit numbers suffice */
+ uint32_t length=0;
+
+ length = dvi_commandlength[*command];
+ switch (*command) {
+ case XXX1: case XXX2: case XXX3: case XXX4:
+ length += UNumRead(command + 1,length - 1);
+ break;
+ case FNT_DEF1: case FNT_DEF2: case FNT_DEF3: case FNT_DEF4:
+ length += *(command + length - 1) + *(command + length - 2);
+ break;
+ case PRE:
+ length += *(command + length - 1);
+ break;
+ }
+ return(length);
+}
+
+static void SkipPage(struct dvi_data* dvi)
+{
+ /* Skip present page */
+ unsigned char* command;
+
+ command=DVIGetCommand(dvi);
+ while (*command != EOP) {
+ switch (*command) {
+ case FNT_DEF1: case FNT_DEF2: case FNT_DEF3: case FNT_DEF4:
+ DEBUG_PRINT(DEBUG_DVI,("NOSKIP CMD:\t%s", dvi_commands[*command]));
+ FontDef(command,dvi);
+ break;
+ case XXX1: case XXX2: case XXX3: case XXX4:
+ DEBUG_PRINT(DEBUG_DVI,("NOSKIP CMD:\t%s %d", dvi_commands[*command],
+ UNumRead(command+1, dvi_commandlength[*command]-1)));
+ SetSpecial((char*)command + dvi_commandlength[*command],0,0);
+ break;
+ case BOP: case PRE: case POST: case POST_POST:
+ Fatal("%s occurs within page", dvi_commands[*command]);
+ break;
+#ifdef DEBUG
+ default:
+ DEBUG_PRINT(DEBUG_DVI,("SKIP CMD:\t%s", dvi_commands[*command]));
+#endif
+ }
+ command=DVIGetCommand(dvi);
+ } /* while */
+ DEBUG_PRINT(DEBUG_DVI,("SKIP CMD:\t%s", dvi_commands[*command]));
+}
+
+static struct page_list* InitPage(struct dvi_data* dvi)
+{
+ /* Find page start, return pointer to page_list entry if found */
+ struct page_list* tpagelistp=NULL;
+ unsigned char* command;
+
+ command=DVIGetCommand(dvi);
+ /* Skip until page start or postamble */
+ while((*command != BOP) && (*command != POST)) {
+ switch(*command) {
+ case FNT_DEF1: case FNT_DEF2: case FNT_DEF3: case FNT_DEF4:
+ DEBUG_PRINT(DEBUG_DVI,("NOPAGE CMD:\t%s", dvi_commands[*command]));
+ FontDef(command,dvi);
+ break;
+ case NOP:
+ DEBUG_PRINT(DEBUG_DVI,("NOPAGE CMD:\tNOP"));
+ break;
+ default:
+ Fatal("%s occurs outside page", dvi_commands[*command]);
+ }
+ command=DVIGetCommand(dvi);
+ }
+ if ((tpagelistp =
+ malloc(sizeof(struct page_list)
+ +(csp+1-2)*sizeof(struct dvi_color)))==NULL)
+ Fatal("cannot allocate memory for new page entry");
+ tpagelistp->next = NULL;
+ if ( *command == BOP ) { /* Init page */
+ int i;
+ DEBUG_PRINT(DEBUG_DVI,("PAGE START:\tBOP"));
+ StoreColorStack(tpagelistp);
+ tpagelistp->offset = ftell(dvi->filep)-45;
+ for (i = 0; i <= 9; i++) {
+ tpagelistp->count[i] = UNumRead(command + 1 + i*4, 4);
+ DEBUG_PRINT(DEBUG_DVI,(" %d",tpagelistp->count[i]));
+ }
+ if (dvi->pagelistp==NULL)
+ tpagelistp->count[10] = 1;
+ else
+ tpagelistp->count[10] = dvi->pagelistp->count[10]+1;
+ DEBUG_PRINT(DEBUG_DVI,(" (%d)", tpagelistp->count[10]));
+ } else {
+ DEBUG_PRINT(DEBUG_DVI,("DVI END:\tPOST"));
+ tpagelistp->offset = ftell(dvi->filep)-1;
+ tpagelistp->count[0] = PAGE_POST; /* POST */
+ tpagelistp->count[10] = PAGE_POST; /* POST */
+ }
+ return(tpagelistp);
+}
+
+int SeekPage(struct dvi_data* dvi, struct page_list* page)
+{
+ ReadColorStack(page);
+ return(fseek(dvi->filep,
+ page->offset+((page->count[0]==PAGE_POST) ? 1L : 45L),
+ SEEK_SET));
+}
+
+struct page_list* NextPage(struct dvi_data* dvi, struct page_list* page)
+{
+ struct page_list* tpagelistp;
+
+ /* if page points to POST there is no next page */
+ if (page!=NULL && page->count[0]==PAGE_POST)
+ return(NULL);
+
+ /* If we have read past the last page in our current list or the
+ * list is empty, sneak a look at the next page
+ */
+ if (dvi->pagelistp==NULL
+ || dvi->pagelistp->offset+45L < ftell(dvi->filep)) {
+ tpagelistp=dvi->pagelistp;
+ dvi->pagelistp=InitPage(dvi);
+ dvi->pagelistp->next=tpagelistp;
+ }
+
+ if (page!=dvi->pagelistp) {
+ /* also works if page==NULL, we'll get the first page then */
+ tpagelistp=dvi->pagelistp;
+ while(tpagelistp!=NULL && tpagelistp->next!=page)
+ tpagelistp=tpagelistp->next;
+ } else {
+ /* dvi->pagelistp points to the last page we've read so far,
+ * the last page that we know where it is, so to speak
+ * So look at the next
+ */
+ (void)SeekPage(dvi,dvi->pagelistp);
+ SkipPage(dvi);
+ tpagelistp=dvi->pagelistp;
+ dvi->pagelistp=InitPage(dvi);
+ dvi->pagelistp->next=tpagelistp;
+ tpagelistp=dvi->pagelistp;
+ }
+ return(tpagelistp);
+}
+
+struct page_list* PrevPage(struct dvi_data* dvi, struct page_list* page)
+{
+ return(page->next);
+}
+
+
+struct page_list* FindPage(struct dvi_data* dvi, int32_t pagenum, bool abspage)
+ /* Find first page of certain number,
+ absolute number if abspage is set */
+{
+ struct page_list* page=NextPage(dvi, NULL);
+
+ if (pagenum==PAGE_LASTPAGE || pagenum==PAGE_POST) {
+ while(page!=NULL && page->count[0]!=PAGE_POST)
+ page=NextPage(dvi,page);
+ if (pagenum==PAGE_LASTPAGE)
+ page=PrevPage(dvi,page);
+ } else
+ if (pagenum!=PAGE_FIRSTPAGE)
+ while(page != NULL && pagenum != page->count[abspage ? 0 : 10])
+ page=NextPage(dvi,page);
+ return(page);
+}
+
+
+static void DelPageList(struct dvi_data* dvi)
+{
+ struct page_list* temp;
+
+ /* Delete the page list */
+
+ temp=dvi->pagelistp;
+ while(temp!=NULL) {
+ dvi->pagelistp=dvi->pagelistp->next;
+ free(temp);
+ temp=dvi->pagelistp;
+ }
+}
+
+void DVIClose(struct dvi_data* dvi)
+{
+ if (dvi!=NULL) {
+ fclose(dvi->filep);
+ DelPageList(dvi);
+ ClearPSHeaders();
+ free(dvi->outname);
+ free(dvi->name);
+ free(dvi);
+ }
+}
+
+bool DVIReOpen(struct dvi_data* dvi)
+{
+ struct stat stat;
+ fstat(fileno(dvi->filep), &stat);
+ if (dvi->mtime != stat.st_mtime) {
+ fclose(dvi->filep);
+ dvi->filep=NULL;
+ DelPageList(dvi);
+ ClearPSHeaders();
+ while(((dvi->filep = fopen(dvi->name,"rb")) == NULL) && followmode) {
+ SLEEP;
+ }
+ if (dvi->filep == NULL) {
+ perror(dvi->name);
+ exit(EXIT_FAILURE);
+ }
+ Message(PARSE_STDIN,"Reopened file\n");
+ DEBUG_PRINT(DEBUG_DVI,("\nREOPEN FILE\t%s", dvi->name));
+ DVIInit(dvi);
+ return(true);
+ }
+ return(false);
+}