diff options
Diffstat (limited to 'Build/source/texk/ttf2pk/newobj.c')
-rw-r--r-- | Build/source/texk/ttf2pk/newobj.c | 380 |
1 files changed, 0 insertions, 380 deletions
diff --git a/Build/source/texk/ttf2pk/newobj.c b/Build/source/texk/ttf2pk/newobj.c deleted file mode 100644 index eede1470a9d..00000000000 --- a/Build/source/texk/ttf2pk/newobj.c +++ /dev/null @@ -1,380 +0,0 @@ -/* - * newobj.c - * - * This file is part of the ttf2pk package. - * - * Copyright 1997-1999, 2000, 2002 by - * Frederic Loyer <loyer@ensta.fr> - * Werner Lemberg <wl@gnu.org> - */ - -#ifdef HAVE_CONFIG_H -#include <config.h> -#endif - -#include <stdlib.h> -#include <stddef.h> /* for size_t */ -#include <string.h> - -#include "newobj.h" -#include "ttf2tfm.h" -#include "errormsg.h" -#include "texenc.h" - - -#if !defined(HAVE_LIBKPATHSEA) -void * -mymalloc(size_t len) -{ - void *p; - - -#ifdef SMALLMALLOC - if (len > 65500L) - oops("Cannot allocate more than 64kByte."); -#endif - - if (len) - p = malloc(len); - else - p = malloc(1); - - if (p == NULL) - oops("Out of memory."); - - return p; -} - - -void * -mycalloc(size_t nmemb, size_t len) -{ - void *p; - - p = calloc(nmemb ? nmemb : 1, len ? len : 1); - - if (p == NULL) - oops("Out of memory."); - - return p; -} - - -void * -myrealloc(void *oldp, size_t len) -{ - void *p; - - -#ifdef SMALLMALLOC - if (len > 65500L) - oops("Cannot allocate more than 64kByte."); -#endif - - if (len) - p = realloc(oldp, len); - else - p = realloc(oldp, 1); - - if (p == NULL) - oops("Out of memory."); - - return p; -} -#endif - - -/* - * This routine gets a line from a file, supporting continuation with - * '\' as the last character on the line. - * - * In case of error, NULL is returned. If EOF is reached a pointer to - * a null string is returned. The final newline will be retained. - */ - -char * -get_line(FILE *f) -{ - size_t linelen, len; - char *buffer; - int c; - - - linelen = 80; - len = 0; - - buffer = (char *)mymalloc(linelen); - - while (1) - { - c = fgetc(f); - buffer[len++] = c; - - if (len == linelen - 1) - { - linelen += 80; - buffer = (char *)myrealloc(buffer, linelen); - } - - again: - switch (c) - { - case '\\': - c = fgetc(f); - if (c == '\n') - { - len--; - break; - } - else - { - buffer[len++] = c; - goto again; - } - case '\n': - buffer[len] = '\0'; - return buffer; - case EOF: - buffer[len - 1] = '\0'; - if (feof(f)) - return buffer; - else - return NULL; - default: - break; - } - } -} - - -/* - * texlive_getline() is a wrapper function for get_line(). It returns `False' in - * case of error and expects a pointer to a buffer to store the current - * line. Additionally, the final newline character is stripped. - */ - -Boolean -texlive_getline(char **bufferp, FILE *f) -{ - size_t l; - - - *bufferp = get_line(f); - - if (!(*bufferp && **bufferp)) - return 0; - - l = strlen(*bufferp); - if (l > 0) - (*bufferp)[l - 1] = '\0'; - - return 1; -} - - -char * -newstring(const char *s) -{ - char *q; - - if (s) - { - q = mymalloc(strlen(s) + 1); - (void)strcpy(q, s); - return q; - } - else - return NULL; -} - - -ttfinfo * -newchar(Font *fnt) -{ - register ttfinfo *ti; - - - ti = (ttfinfo *)mymalloc(sizeof (ttfinfo)); - - ti->next = fnt->charlist; - - ti->charcode = -1; - ti->glyphindex = -1; - ti->incode = -1; - ti->outcode = -1; - ti->adobename = NULL; - - ti->width = -1; - ti->llx = -1; - ti->lly = -1; - ti->urx = -1; - ti->ury = -1; - - ti->ligs = NULL; - ti->kerns = NULL; - ti->kern_equivs = NULL; - ti->pccs = NULL; - - ti->constructed = False; - - ti->wptr = 0; - ti->hptr = 0; - ti->dptr = 0; - ti->iptr = 0; - - ti->fntnum = -1; - - fnt->charlist = ti; - - return ti; -} - - -kern * -newkern(void) -{ - register kern *nk; - - - nk = (kern *)mymalloc(sizeof (kern)); - nk->next = NULL; - nk->succ = NULL; - nk->delta = 0; - - return nk; -} - - -pcc * -newpcc(void) -{ - register pcc *np; - - - np = (pcc *)mymalloc(sizeof (pcc)); - np->next = NULL; - np->partname = NULL; - np->xoffset = 0; - np->yoffset = 0; - - return np; -} - - -lig * -newlig(void) -{ - register lig *nl; - - - nl = (lig *)mymalloc(sizeof (lig)); - nl->next = NULL; - nl->succ = NULL; - nl->sub = NULL; - nl->op = 0; /* the default =: op */ - nl->boundleft = 0; - - return nl; -} - - -stringlist * -newstringlist(void) -{ - register stringlist *sl; - - - sl = (stringlist *)mymalloc(sizeof (stringlist)); - sl->next = NULL; - sl->old_name = NULL; - sl->new_name = NULL; - sl->single_replacement = False; - - return sl; -} - - -void -init_font_structure(Font *fnt) -{ - int i; - - - fnt->ttfname = NULL; - - fnt->tfm_path = NULL; - fnt->tfm_ext = NULL; - - fnt->outname = NULL; - fnt->subfont_name = NULL; - fnt->outname_postfix = NULL; - fnt->fullname = NULL; - - fnt->vplout = NULL; - fnt->tfmout = NULL; - - fnt->inencname = NULL; - fnt->inencoding = NULL; - - fnt->replacements = NULL; - fnt->replacementname = NULL; - - fnt->outencname = NULL; - fnt->outencoding = NULL; - - fnt->sfdname = NULL; - - fnt->sawligkern = False; - fnt->subfont_ligs = False; - fnt->ligname = NULL; - fnt->write_enc = False; - - fnt->charlist = NULL; - - fnt->boundarychar = -1; - fnt->codingscheme = default_codingscheme; - fnt->titlebuf = NULL; - - fnt->cksum = 0; - fnt->subfont_num = 0; - fnt->subfont_list = NULL; - - fnt->units_per_em = 0; - fnt->italicangle = 0.0; - fnt->fixedpitch = 0; - - fnt->fontindex = 0; - fnt->pid = 3; - fnt->eid = 1; - - fnt->xheight = 0; - fnt->fontspace = 0; - - fnt->y_offset = 0.25; - - fnt->efactor = 1.0; - fnt->slant = 0; - fnt->capheight = 0.8; - fnt->PSnames = No; - fnt->rotate = No; - - fnt->efactorparam = NULL; - fnt->slantparam = NULL; - fnt->fontindexparam = NULL; - fnt->pidparam = NULL; - fnt->eidparam = NULL; - fnt->y_offsetparam = NULL; - - for (i = 0; i < 256; i++) - { - fnt->inencptrs[i] = NULL; - fnt->outencptrs[i] = NULL; - fnt->uppercase[i] = NULL; - fnt->lowercase[i] = NULL; - fnt->sf_code[i] = -1; - fnt->nextout[i] = -1; /* encoding chains have length 0 */ - } -} - - -/* end */ |