/* $Xorg: fontfcn.c,v 1.4 2000/08/17 19:46:30 cpqbld Exp $ */ /* Copyright International Business Machines,Corp. 1991 * All Rights Reserved * * License to use, copy, modify, and distribute this software * and its documentation for any purpose and without fee is * hereby granted, provided that the above copyright notice * appear in all copies and that both that copyright notice and * this permission notice appear in supporting documentation, * and that the name of IBM not be used in advertising or * publicity pertaining to distribution of the software without * specific, written prior permission. * * IBM PROVIDES THIS SOFTWARE "AS IS", WITHOUT ANY WARRANTIES * OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING, BUT NOT * LIMITED TO ANY IMPLIED WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE, AND NONINFRINGEMENT OF * THIRD PARTY RIGHTS. THE ENTIRE RISK AS TO THE QUALITY AND * PERFORMANCE OF THE SOFTWARE, INCLUDING ANY DUTY TO SUPPORT * OR MAINTAIN, BELONGS TO THE LICENSEE. SHOULD ANY PORTION OF * THE SOFTWARE PROVE DEFECTIVE, THE LICENSEE (NOT IBM) ASSUMES * THE ENTIRE COST OF ALL SERVICING, REPAIR AND CORRECTION. IN * NO EVENT SHALL IBM BE LIABLE FOR ANY SPECIAL, INDIRECT OR * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING * FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF * CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS * SOFTWARE. */ /* Author: Katherine A. Hitchcock IBM Almaden Research Laboratory */ /* Copyright (c) 1994-1999 Silicon Graphics, Inc. All Rights Reserved. * * The contents of this file are subject to the CID Font Code Public Licence * Version 1.0 (the "License"). You may not use this file except in compliance * with the Licence. You may obtain a copy of the License at Silicon Graphics, * Inc., attn: Legal Services, 2011 N. Shoreline Blvd., Mountain View, CA * 94043 or at http://www.sgi.com/software/opensource/cid/license.html. * * Software distributed under the License is distributed on an "AS IS" basis. * ALL WARRANTIES ARE DISCLAIMED, INCLUDING, WITHOUT LIMITATION, ANY IMPLIED * WARRANTIES OF MERCHANTABILITY, OF FITNESS FOR A PARTICULAR PURPOSE OR OF * NON-INFRINGEMENT. See the License for the specific language governing * rights and limitations under the License. * * The Original Software is CID font code that was developed by Silicon * Graphics, Inc. */ /* $XFree86: xc/lib/font/Type1/fontfcn.c,v 1.10 2001/04/05 17:42:27 dawes Exp $ */ #ifdef HAVE_CONFIG_H #include #endif #ifdef BUILDCID #define XFONT_CID 1 #endif #ifndef FONTMODULE #include #include #else #include "Xmd.h" /* For INT32 declaration */ #include "Xdefs.h" /* For Bool */ #include "xf86_ansic.h" #endif #include "t1imager.h" #include "util.h" #if XFONT_CID #include "range.h" #include #endif #include #include "fontfcn.h" extern struct segment *Type1Char ( char *env, XYspace S, psobj *charstrP, psobj *subrsP, psobj *osubrsP, struct blues_struct *bluesP, int *modeP ); #if XFONT_CID extern struct xobject *CIDChar ( char *env, XYspace S, psobj *charstrP, psobj *subrsP, psobj *osubrsP, struct blues_struct *bluesP, int *modeP ); static boolean initCIDFont( int cnt ); #endif /***================================================================***/ /* GLOBALS */ /***================================================================***/ char CurFontName[120]; char *CurFontEnv; char *vm_base = NULL; psfont *FontP = NULL; psfont TheCurrentFont; #if XFONT_CID char CurCIDFontName[CID_PATH_MAX]; char CurCMapName[CID_PATH_MAX]; cidfont *CIDFontP = NULL; cmapres *CMapP = NULL; cidfont TheCurrentCIDFont; cmapres TheCurrentCMap; psfont *FDArrayP = NULL; int FDArrayIndex = 0; #endif /***================================================================***/ /* SearchDict - look for name */ /* - compare for match on len and string */ /* return 0 - not found. */ /* return n - nth element in dictionary. */ /***================================================================***/ int SearchDictName(psdict *dictP, psobj *keyP) { int i,n; n = dictP[0].key.len; for (i=1;i<=n;i++) { /* scan the intire dictionary */ if ( (dictP[i].key.len == keyP->len ) && (strncmp(dictP[i].key.data.valueP, keyP->data.valueP, keyP->len) == 0 ) ) return(i); } return(0); } #if XFONT_CID static boolean initCIDFont(int cnt) { if (!(vm_init(cnt))) return(FALSE); vm_base = vm_next_byte(); strcpy(CurCIDFontName, ""); /* initialize to none */ strcpy(CurCMapName, ""); /* initialize to none */ /* cause a font data reset on the next Type 1 font */ strcpy(CurFontName, ""); /* initialize to none */ CIDFontP = &TheCurrentCIDFont; CMapP = &TheCurrentCMap; CIDFontP->vm_start = vm_next_byte(); CIDFontP->spacerangecnt = 0; CIDFontP->notdefrangecnt = 0; CIDFontP->cidrangecnt = 0; CIDFontP->spacerangeP = NULL; CIDFontP->notdefrangeP = NULL; CIDFontP->cidrangeP = NULL; CIDFontP->CIDFontFileName.len = 0; CIDFontP->CIDFontFileName.data.valueP = CurCIDFontName; CMapP->CMapFileName.len = 0; CMapP->CMapFileName.data.valueP = CurCMapName; CMapP->firstRow = 0xFFFF; CMapP->firstCol = 0xFFFF; CMapP->lastRow = 0; CMapP->lastCol = 0; return(TRUE); } /***================================================================***/ boolean initCIDType1Font(void) { strcpy(CurFontName, ""); /* initialize to none */ FontP = &FDArrayP[FDArrayIndex]; FontP->vm_start = vm_next_byte(); FontP->FontFileName.len = 0; FontP->FontFileName.data.valueP = CurFontName; FontP->Subrs.len = 0; FontP->Subrs.data.stringP = NULL; FontP->CharStringsP = NULL; FontP->Private = NULL; FontP->fontInfoP = NULL; FontP->BluesP = NULL; return(TRUE); } #endif boolean initFont(int cnt) { if (!(vm_init(cnt))) return(FALSE); vm_base = vm_next_byte(); if (!(Init_BuiltInEncoding())) return(FALSE); strcpy(CurFontName, ""); /* iniitialize to none */ #if XFONT_CID /* cause a font data reset on the next CID-keyed font */ strcpy(CurCIDFontName, ""); /* initialize to none */ #endif FontP = &TheCurrentFont; FontP->vm_start = vm_next_byte(); FontP->FontFileName.len = 0; FontP->FontFileName.data.valueP = CurFontName; return(TRUE); } /***================================================================***/ #if XFONT_CID static void resetCIDFont(char *cidfontname, char *cmapfile) { vm_next = CIDFontP->vm_start; vm_free = vm_size - ( vm_next - vm_base); CIDFontP->spacerangecnt = 0; CIDFontP->notdefrangecnt = 0; CIDFontP->cidrangecnt = 0; CIDFontP->spacerangeP = NULL; CIDFontP->notdefrangeP = NULL; CIDFontP->cidrangeP = NULL; CIDFontP->CIDfontInfoP = NULL; /* This will load the font into the FontP */ strcpy(CurCIDFontName,cidfontname); strcpy(CurCMapName,cmapfile); CIDFontP->CIDFontFileName.len = strlen(CurCIDFontName); CIDFontP->CIDFontFileName.data.valueP = CurCIDFontName; CMapP->CMapFileName.len = strlen(CurCMapName); CMapP->CMapFileName.data.valueP = CurCMapName; CMapP->firstRow = 0xFFFF; CMapP->firstCol = 0xFFFF; CMapP->lastRow = 0; CMapP->lastCol = 0; } static void resetCIDType1Font(void) { vm_next = FontP->vm_start; vm_free = vm_size - ( vm_next - vm_base); FontP->Subrs.len = 0; FontP->Subrs.data.stringP = NULL; FontP->CharStringsP = NULL; FontP->Private = NULL; FontP->fontInfoP = NULL; FontP->BluesP = NULL; /* This will load the font into the FontP */ FontP->FontFileName.len = strlen(CurFontName); FontP->FontFileName.data.valueP = CurFontName; } #endif static void resetFont(char *env) { vm_next = FontP->vm_start; vm_free = vm_size - ( vm_next - vm_base); FontP->Subrs.len = 0; FontP->Subrs.data.stringP = NULL; FontP->CharStringsP = NULL; FontP->Private = NULL; FontP->fontInfoP = NULL; FontP->BluesP = NULL; /* This will load the font into the FontP */ strcpy(CurFontName,env); FontP->FontFileName.len = strlen(CurFontName); FontP->FontFileName.data.valueP = CurFontName; } #if XFONT_CID /***================================================================***/ int readCIDFont(char *cidfontname, char *cmapfile) { int rcode; /* restore the virtual memory and eliminate old font */ resetCIDFont(cidfontname, cmapfile); /* This will load the font into the FontP */ rcode = scan_cidfont(CIDFontP, CMapP); if (rcode == SCAN_OUT_OF_MEMORY) { /* free the memory and start again */ if (!(initCIDFont(vm_size * 2))) { /* we are really out of memory */ return(SCAN_OUT_OF_MEMORY); } resetCIDFont(cidfontname, cmapfile); rcode = scan_cidfont(CIDFontP, CMapP); /* only double the memory twice, then report error */ if (rcode == SCAN_OUT_OF_MEMORY) { /* free the memory and start again */ if (!(initCIDFont(vm_size * 2))) { /* we are really out of memory */ return(SCAN_OUT_OF_MEMORY); } resetCIDFont(cidfontname, cmapfile); rcode = scan_cidfont(CIDFontP, CMapP); } } return(rcode); } int readCIDType1Font(void) { int rcode; resetCIDType1Font(); /* This will load the font into the FontP */ rcode = scan_cidtype1font(FontP); return(rcode); } #endif int readFont(char *env) { int rcode; /* restore the virtual memory and eliminate old font */ resetFont(env); /* This will load the font into the FontP */ rcode = scan_font(FontP); if (rcode == SCAN_OUT_OF_MEMORY) { /* free the memory and start again */ #if XFONT_CID /* xfree(vm_base); */ #else xfree(vm_base); #endif if (!(initFont(vm_size * 2))) { /* we are really out of memory */ return(SCAN_OUT_OF_MEMORY); } resetFont(env); rcode = scan_font(FontP); #if XFONT_CID /* only double the memory twice, then report error */ if (rcode == SCAN_OUT_OF_MEMORY) { /* free the memory and start again */ /* xfree(vm_base) */ if (!(initFont(vm_size * 2))) { /* we are really out of memory */ return(SCAN_OUT_OF_MEMORY); } resetFont(env); rcode = scan_font(FontP); } #else /* only double the memory once, then report error */ #endif } return(rcode); } /***================================================================***/ struct xobject * fontfcnB(struct XYspace *S, unsigned char *code, int *lenP, int *mode) { psobj *charnameP; /* points to psobj that is name of character*/ int N; psdict *CharStringsDictP; /* dictionary with char strings */ psobj CodeName; /* used to store the translation of the name*/ psobj *SubrsArrayP; psobj *theStringP; struct xobject *charpath; /* the path for this character */ charnameP = &CodeName; charnameP->len = *lenP; charnameP->data.stringP = code; CharStringsDictP = FontP->CharStringsP; /* search the chars string for this charname as key */ N = SearchDictName(CharStringsDictP,charnameP); if (N<=0) { *mode = FF_PARSE_ERROR; return(NULL); } /* ok, the nth item is the psobj that is the string for this char */ theStringP = &(CharStringsDictP[N].value); /* get the dictionary pointers to the Subrs */ SubrsArrayP = &(FontP->Subrs); /* scale the Adobe fonts to 1 unit high */ /* call the type 1 routine to rasterize the character */ charpath = (struct xobject *)Type1Char((char *)FontP,S,theStringP, SubrsArrayP,NULL, FontP->BluesP , mode); /* if Type1Char reported an error, then return */ if ( *mode == FF_PARSE_ERROR) return(NULL); /* fill with winding rule unless path was requested */ if (*mode != FF_PATH) { charpath = (struct xobject *)Interior((struct segment *)charpath, WINDINGRULE+CONTINUITY); } return(charpath); } #if XFONT_CID /***================================================================***/ /* CIDfontfcnA(cidfontname, cmapfile, mode) */ /* */ /* 1) initialize the font - global indicates it has been done */ /* 2) load the font */ /***================================================================***/ Bool CIDfontfcnA(char *cidfontname, char *cmapfile, int *mode) { int rcode, cidinit; cidinit = 0; if (CIDFontP == NULL || strcmp(CurCIDFontName, "") == 0) { InitImager(); if (!(initCIDFont(VM_SIZE))) { /* we are really out of memory */ *mode = SCAN_OUT_OF_MEMORY; return(FALSE); } cidinit = 1; } /* if the cidfontname is null, then use font already loaded */ /* if not the same font name */ if (cidinit || (cidfontname && strcmp(cidfontname,CurCIDFontName) != 0) || (cmapfile && strcmp(cmapfile,CurCMapName) != 0)) { /* restore the virtual memory and eliminate old font, read new one */ rcode = readCIDFont(cidfontname, cmapfile); if (rcode != 0 ) { strcpy(CurCIDFontName, ""); /* no CIDFont loaded */ strcpy(CurCMapName, ""); /* no CMap loaded */ *mode = rcode; return(FALSE); } } return(TRUE); } /***================================================================***/ /* CIDType1fontfcnA(mode) */ /* */ /* 1) initialize the font - global indicates it has been done */ /* 2) load the font */ /***================================================================***/ Bool CIDType1fontfcnA(int *mode) { int rcode; if (!(initCIDType1Font())) { /* we are really out of memory */ *mode = SCAN_OUT_OF_MEMORY; return(FALSE); } if ((rcode = readCIDType1Font()) != 0) { strcpy(CurFontName, ""); /* no font loaded */ *mode = rcode; return(FALSE); } return(TRUE); } #endif /***================================================================***/ /* fontfcnA(env, mode) */ /* */ /* env is a pointer to a string that contains the fontname. */ /* */ /* 1) initialize the font - global indicates it has been done */ /* 2) load the font */ /***================================================================***/ Bool fontfcnA(char *env, int *mode) { int rc; /* Has the FontP initialized? If not, then */ /* Initialize */ #if XFONT_CID if (FontP == NULL || strcmp(CurFontName, "") == 0) { #else if (FontP == NULL) { #endif InitImager(); if (!(initFont(VM_SIZE))) { /* we are really out of memory */ *mode = SCAN_OUT_OF_MEMORY; return(FALSE); } } /* if the env is null, then use font already loaded */ /* if the not same font name */ if ( (env) && (strcmp(env,CurFontName) != 0 ) ) { /* restore the virtual memory and eliminate old font, read new one */ rc = readFont(env); if (rc != 0 ) { strcpy(CurFontName, ""); /* no font loaded */ *mode = rc; return(FALSE); } } return(TRUE); } #if XFONT_CID /***================================================================***/ /* CIDQueryFontLib(cidfontname,cmapfile,infoName,infoValue,rcodeP) */ /* */ /* cidfontname is a pointer to a string that contains the fontname. */ /* */ /* 1) initialize the font - global indicates it has been done */ /* 2) load the font */ /* 3) use the font to call getInfo for that value. */ /***================================================================***/ void CIDQueryFontLib(char *cidfontname, char *cmapfile, char *infoName, pointer infoValue, /* parameter returned here */ int *rcodeP) { int rc,N,i,cidinit; psdict *dictP; psobj nameObj; psobj *valueP; /* Has the CIDFontP initialized? If not, then */ /* Initialize */ cidinit = 0; if (CIDFontP == NULL || strcmp(CurCIDFontName, "") == 0) { InitImager(); if (!(initCIDFont(VM_SIZE))) { *rcodeP = 1; return; } cidinit = 1; } /* if the file name is null, then use font already loaded */ /* if the not same font name, reset and load next font */ if (cidinit || (cidfontname && strcmp(cidfontname,CurCIDFontName) != 0) || (cmapfile && strcmp(cmapfile,CurCMapName) != 0)) { /* restore the virtual memory and eliminate old font */ rc = readCIDFont(cidfontname, cmapfile); if (rc != 0 ) { strcpy(CurCIDFontName, ""); /* no font loaded */ strcpy(CurCMapName, ""); /* no font loaded */ *rcodeP = 1; return; } } dictP = CIDFontP->CIDfontInfoP; objFormatName(&nameObj,strlen(infoName),infoName); N = SearchDictName(dictP,&nameObj); /* if found */ if ( N > 0 ) { *rcodeP = 0; switch (dictP[N].value.type) { case OBJ_ARRAY: valueP = dictP[N].value.data.arrayP; /* Just double check valueP. H.J. */ if (valueP == NULL) break; if (strcmp(infoName,"FontMatrix") == 0) { /* 6 elments, return them as floats */ for (i=0;i<6;i++) { if (valueP->type == OBJ_INTEGER ) ((float *)infoValue)[i] = valueP->data.integer; else ((float *)infoValue)[i] = valueP->data.real; valueP++; } } if (strcmp(infoName,"FontBBox") == 0) { /* 4 elments for Bounding Box. all integers */ for (i=0;i<4;i++) { ((int *)infoValue)[i] = valueP->data.integer; valueP++; } break; case OBJ_INTEGER: case OBJ_BOOLEAN: *((int *)infoValue) = dictP[N].value.data.integer; break; case OBJ_REAL: *((float *)infoValue) = dictP[N].value.data.real; break; case OBJ_NAME: case OBJ_STRING: *((char **)infoValue) = dictP[N].value.data.valueP; break; default: *rcodeP = 1; break; } } } else *rcodeP = 1; } #endif /***================================================================***/ /* QueryFontLib(env, infoName,infoValue,rcodeP) */ /* */ /* env is a pointer to a string that contains the fontname. */ /* */ /* 1) initialize the font - global indicates it has been done */ /* 2) load the font */ /* 3) use the font to call getInfo for that value. */ /***================================================================***/ void QueryFontLib(char *env, char *infoName, pointer infoValue, /* parameter returned here */ int *rcodeP) { int rc,N,i; psdict *dictP; psobj nameObj; psobj *valueP; /* Has the FontP initialized? If not, then */ /* Initialize */ if (FontP == NULL) { InitImager(); if (!(initFont(VM_SIZE))) { *rcodeP = 1; return; } } /* if the env is null, then use font already loaded */ /* if the not same font name, reset and load next font */ if ( (env) && (strcmp(env,CurFontName) != 0 ) ) { /* restore the virtual memory and eliminate old font */ rc = readFont(env); if (rc != 0 ) { strcpy(CurFontName, ""); /* no font loaded */ *rcodeP = 1; return; } } dictP = FontP->fontInfoP; objFormatName(&nameObj,strlen(infoName),infoName); N = SearchDictName(dictP,&nameObj); /* if found */ if ( N > 0 ) { *rcodeP = 0; switch (dictP[N].value.type) { case OBJ_ARRAY: valueP = dictP[N].value.data.arrayP; /* Just double check valueP. H.J. */ if (valueP == NULL) break; if (strcmp(infoName,"FontMatrix") == 0) { /* 6 elments, return them as floats */ for (i=0;i<6;i++) { if (valueP->type == OBJ_INTEGER ) ((float *)infoValue)[i] = valueP->data.integer; else ((float *)infoValue)[i] = valueP->data.real; valueP++; } } if (strcmp(infoName,"FontBBox") == 0) { /* 4 elments for Bounding Box. all integers */ for (i=0;i<4;i++) { ((int *)infoValue)[i] = valueP->data.integer; valueP++; } break; case OBJ_INTEGER: case OBJ_BOOLEAN: *((int *)infoValue) = dictP[N].value.data.integer; break; case OBJ_REAL: *((float *)infoValue) = dictP[N].value.data.real; break; case OBJ_NAME: case OBJ_STRING: *((char **)infoValue) = dictP[N].value.data.valueP; break; default: *rcodeP = 1; break; } } } else *rcodeP = 1; } #if XFONT_CID struct xobject * CIDfontfcnC(struct XYspace *S, psobj *theStringP, psobj *SubrsArrayP, struct blues_struct *BluesP, int *lenP, int *mode) { struct xobject *charpath; /* the path for this character */ charpath = (struct xobject *)CIDChar((char *)FontP,S,theStringP, SubrsArrayP,NULL,BluesP,mode); /* if Type1Char reported an error, then return */ if ( *mode == FF_PARSE_ERROR) return(NULL); /* fill with winding rule unless path was requested */ if (*mode != FF_PATH) { charpath = (struct xobject *)Interior((struct segment *)charpath, WINDINGRULE+CONTINUITY); } return(charpath); } #endif