TB9.2 Example Applications: examples/PIPS/antiword/src/fonts

00001 /*
-00002  * fonts_r.c
-00003  * Copyright (C) 1999-2002 A.J. van Os; Released under GPL
-00004  *
-00005  * Description:
-00006  * Functions to deal with fonts (RiscOs version)
-00007  */
-00008 
-00009 #include <stdlib.h>
-00010 #include <string.h>
-00011 #include "DeskLib:Font.h"
-00012 #include "drawfile.h"
-00013 #include "antiword.h"
-00014 
-00015 static font_handle      tFontCurr = (font_handle)-1;
-00016 
-00017 /*
-00018  * pOpenFontTableFile - open the Font translation file
-00019  * Copy the file to the proper place if necessary.
-00020  *
-00021  * Returns the file pointer or NULL
-00022  */
-00023 FILE *
-00024 pOpenFontTableFile(void)
-00025 {
-00026         FILE    *pFileR, *pFileW;
-00027         char    *szFontNamesFile;
-00028         size_t  tSize;
-00029         BOOL    bFailed;
-00030         char    acBuffer[256];
-00031 
-00032         pFileR = fopen("<AntiWord$FontNamesFile>", "r");
-00033         if (pFileR != NULL) {
-00034                 /* The font table is already in the right directory */
-00035                 return pFileR;
-00036         }
-00037 
-00038         szFontNamesFile = getenv("AntiWord$FontNamesSave");
-00039         if (szFontNamesFile == NULL) {
-00040                 werr(0, "Warning: Name of the FontNames file not found");
-00041                 return NULL;
-00042         }
-00043         DBG_MSG(szFontNamesFile);
-00044 
-00045         pFileR = fopen("<AntiWord$Dir>.Resources.Default", "r");
-00046         if (pFileR == NULL) {
-00047                 werr(0, "I can't find 'Resources.Default'");
-00048                 return NULL;
-00049         }
-00050         /* Here the default font translation table is known to exist */
-00051 
-00052         if (!bMakeDirectory(szFontNamesFile)) {
-00053                 werr(0,
-00054                 "I can't make a directory for the FontNames file");
-00055                 return NULL;
-00056         }
-00057         /* Here the proper directory is known to exist */
-00058 
-00059         pFileW = fopen(szFontNamesFile, "w");
-00060         if (pFileW == NULL) {
-00061                 (void)fclose(pFileR);
-00062                 werr(0, "I can't create a default FontNames file");
-00063                 return NULL;
-00064         }
-00065         /* Here the proper directory is known to be writeable */
-00066 
-00067         /* Copy the default FontNames file */
-00068         bFailed = FALSE;
-00069         while (!feof(pFileR)) {
-00070                 tSize = fread(acBuffer, 1, sizeof(acBuffer), pFileR);
-00071                 if (ferror(pFileR)) {
-00072                         DBG_MSG("Read error");
-00073                         bFailed = TRUE;
-00074                         break;
-00075                 }
-00076                 if (fwrite(acBuffer, 1, tSize, pFileW) != tSize) {
-00077                         DBG_MSG("Write error");
-00078                         bFailed = TRUE;
-00079                         break;
-00080                 }
-00081         }
-00082         (void)fclose(pFileW);
-00083         (void)fclose(pFileR);
-00084         if (bFailed) {
-00085                 DBG_MSG("Copying the FontNames file failed");
-00086                 (void)remove(szFontNamesFile);
-00087                 return NULL;
-00088         }
-00089         return fopen(szFontNamesFile, "r");
-00090 } /* end of pOpenFontTableFile */
-00091 
-00092 /*
-00093  * vCloseFont - close the current font, if any
-00094  */
-00095 void
-00096 vCloseFont(void)
-00097 {
-00098         os_error        *e;
-00099 
-00100         NO_DBG_MSG("vCloseFont");
-00101 
-00102         if (tFontCurr == (font_handle)-1) {
-00103                 return;
-00104         }
-00105         e = Font_LoseFont(tFontCurr);
-00106         if (e != NULL) {
-00107                 werr(0, "Close font error %d: %s", e->errnum, e->errmess);
-00108         }
-00109         tFontCurr = (font_handle)-1;
-00110 } /* end of vCloseFont */
-00111 
-00112 /*
-00113  * tOpenFont - make the specified font the current font
-00114  *
-00115  * Returns the font reference number for use in a draw file
-00116  */
-00117 drawfile_fontref
-00118 tOpenFont(UCHAR ucWordFontNumber, USHORT usFontStyle, USHORT usWordFontSize)
-00119 {
-00120         os_error        *e;
-00121         const char      *szOurFontname;
-00122         font_handle     tFont;
-00123         int     iFontnumber;
-00124 
-00125         NO_DBG_MSG("tOpenFont");
-00126         NO_DBG_DEC(ucWordFontNumber);
-00127         NO_DBG_HEX(usFontStyle);
-00128         NO_DBG_DEC(usWordFontSize);
-00129 
-00130         /* Keep the relevant bits */
-00131         usFontStyle &= FONT_BOLD|FONT_ITALIC;
-00132         NO_DBG_HEX(usFontStyle);
-00133 
-00134         iFontnumber = iGetFontByNumber(ucWordFontNumber, usFontStyle);
-00135         szOurFontname = szGetOurFontname(iFontnumber);
-00136         if (szOurFontname == NULL || szOurFontname[0] == '\0') {
-00137                 tFontCurr = (font_handle)-1;
-00138                 return (byte)0;
-00139         }
-00140         NO_DBG_MSG(szOurFontname);
-00141         e = Font_FindFont(&tFont, (char *)szOurFontname,
-00142                         (int)usWordFontSize * 8, (int)usWordFontSize * 8,
-00143                         0, 0);
-00144         if (e != NULL) {
-00145                 switch (e->errnum) {
-00146                 case 523:
-00147                         werr(0, "%s", e->errmess);
-00148                         break;
-00149                 default:
-00150                         werr(0, "Open font error %d: %s",
-00151                                 e->errnum, e->errmess);
-00152                         break;
-00153                 }
-00154                 tFontCurr = (font_handle)-1;
-00155                 return (drawfile_fontref)0;
-00156         }
-00157         tFontCurr = tFont;
-00158         NO_DBG_DEC(tFontCurr);
-00159         return (drawfile_fontref)(iFontnumber + 1);
-00160 } /* end of tOpenFont */
-00161 
-00162 /*
-00163  * tOpenTableFont - make the table font the current font
-00164  *
-00165  * Returns the font reference number for use in a draw file
-00166  */
-00167 drawfile_fontref
-00168 tOpenTableFont(USHORT usWordFontSize)
-00169 {
-00170         int     iWordFontnumber;
-00171 
-00172         NO_DBG_MSG("tOpenTableFont");
-00173 
-00174         iWordFontnumber = iFontname2Fontnumber(TABLE_FONT, FONT_REGULAR);
-00175         if (iWordFontnumber < 0 || iWordFontnumber > (int)UCHAR_MAX) {
-00176                 DBG_DEC(iWordFontnumber);
-00177                 tFontCurr = (font_handle)-1;
-00178                 return (drawfile_fontref)0;
-00179         }
-00180 
-00181         return tOpenFont((UCHAR)iWordFontnumber, FONT_REGULAR, usWordFontSize);
-00182 } /* end of tOpenTableFont */
-00183 
-00184 /*
-00185  * lComputeStringWidth - compute the string width
-00186  *
-00187  * Returns the string width in millipoints
-00188  */
-00189 long
-00190 lComputeStringWidth(const char *szString, size_t tStringLength,
-00191         drawfile_fontref tFontRef, USHORT usFontSize)
-00192 {
-00193         font_string     tStr;
-00194         os_error        *e;
-00195 
-00196         fail(szString == NULL);
-00197         fail(usFontSize < MIN_FONT_SIZE || usFontSize > MAX_FONT_SIZE);
-00198 
-00199         if (szString[0] == '\0' || tStringLength == 0) {
-00200                 /* Empty string */
-00201                 return 0;
-00202         }
-00203         if (tStringLength == 1 && szString[0] == TABLE_SEPARATOR) {
-00204                 /* Font_strwidth doesn't like control characters */
-00205                 return 0;
-00206         }
-00207         if (tFontCurr == (font_handle)-1) {
-00208                 /* No current font, use systemfont */
-00209                 return lChar2MilliPoints(tStringLength);
-00210         }
-00211         tStr.s = (char *)szString;
-00212         tStr.x = INT_MAX;
-00213         tStr.y = INT_MAX;
-00214         tStr.split = -1;
-00215         tStr.term = tStringLength;
-00216         e = Font_StringWidth(&tStr);
-00217         if (e == NULL) {
-00218                 return (long)tStr.x;
-00219         }
-00220         DBG_DEC(e->errnum);
-00221         DBG_MSG(e->errmess);
-00222         DBG_DEC(tStringLength);
-00223         DBG_MSG(szString);
-00224         werr(0, "String width error %d: %s", e->errnum, e->errmess);
-00225         return lChar2MilliPoints(tStringLength);
-00226 } /* end of lComputeStringWidth */
-00227 
-00228 /*
-00229  * tCountColumns - count the number of columns in a string
-00230  *
-00231  * Returns the number of columns
-00232  */
-00233 size_t
-00234 tCountColumns(const char *szString, size_t tLength)
-00235 {
-00236         fail(szString == NULL);
-00237 
-00238         /* One byte, one character, one column */
-00239         return tLength;
-00240 } /* end of tCountColumns */
-00241 
-00242 /*
-00243  * tGetCharacterLength - the length of the specified character in bytes
-00244  *
-00245  * Returns the length in bytes
-00246  */
-00247 size_t
-00248 tGetCharacterLength(const char *szString)
-00249 {
-00250         return 1;
-00251 } /* end of tGetCharacterLength */
-
examples/PIPS/antiword/src/fonts_r.c
