scalos/main/FontUtil.c

   1 // FontUtil.c
   2 // $Date$
   3 // $Revision$
   4
   5
   6 #include <exec/types.h>
   7 #include <graphics/gels.h>
   8 #include <graphics/rastport.h>
   9
  10 #define __USE_SYSBASE
  11
  12 #include <proto/dos.h>
  13 #include <proto/exec.h>
  14 #include <proto/graphics.h>
  15 #include <proto/intuition.h>
  16 #include <proto/utility.h>
  17 #define USE_INLINE_STDARG
  18 #include <proto/ttengine.h>
  19 #undef USE_INLINE_STDARG
  20 #include "debug.h"
  21 #include <proto/scalos.h>
  22
  23 #include <clib/alib_protos.h>
  24
  25 #include <defs.h>
  26 #include <scalos/scalos.h>
  27
  28 #include <string.h>
  29 #include <ctype.h>
  30 #include <stdio.h>
  31 #include <stdarg.h>
  32
  33 #include "scalos_structures.h"
  34 #include "functions.h"
  35 #include "Variables.h"
  36
  37 //----------------------------------------------------------------------------
  38
  39 // local functions
  40
  41 static void SetFamilyTTFont(struct RastPort *rp, ULONG style, struct TTFontFamily *ttff);
  42 static BOOL FillTTTextAttrFromDesc(struct TTTextAttr *ttta, CONST_STRPTR FontDesc);
  43 static SAVEDS(ULONG) FontFunctionDispatcher(struct Hook *hook, Object *o, Msg msg);
  44
  45 //----------------------------------------------------------------------------
  46
  47 // public data items
  48
  49 struct Hook ScalosFontHook =
  50         {
  51         { NULL, NULL },
  52         HOOKFUNC_DEF(FontFunctionDispatcher),  // h_Entry + h_SubEntry
  53         NULL,                                   // h_Data
  54         };
  55
  56 SCALOSSEMAPHORE tteSema;
  57
  58 //----------------------------------------------------------------------------
  59
  60 // local data items
  61
  62 #define USE_SEMA
  63
  64 //----------------------------------------------------------------------------
  65
  66 BOOL FontUtilInit(void)
  67 {
  68         ScalosInitSemaphore(&tteSema);
  69
  70         return TRUE;    // Success
  71 }
  72
  73
  74 SAVEDS(WORD) Scalos_TextLength(struct RastPort *rp, CONST_STRPTR string, WORD Length)
  75 {
  76         d1(kprintf("%s/%s/%ld: TTEngineBase=%08lx  rp=%08lx\n", __FILE__, __FUNC__, __LINE__, TTEngineBase, rp));
  77
  78         if (NULL == rp)
  79                 return 0;
  80
  81         if (TTEngineBase)
  82                 {
  83                 // TT_GetAttrsA()
  84                 STRPTR FontName = NULL;
  85
  86                 TT_GetAttrs(rp, TT_FontName, (IPTR) &FontName,
  87                         TAG_END);
  88
  89                 if (FontName)
  90                         {
  91                         WORD Result;
  92
  93 #ifdef USE_SEMA
  94                         ScalosObtainSemaphore(&tteSema);
  95 #endif
  96                         Result = (WORD) TT_TextLength(rp, (STRPTR) string, Length);
  97 #ifdef USE_SEMA
  98                         ScalosReleaseSemaphore(&tteSema);
  99 #endif
 100
 101                         return Result;
 102                         }
 103                 }
 104
 105         return TextLength(rp, (STRPTR) string, Length);
 106 }
 107
 108
 109 SAVEDS(ULONG) Scalos_TextFit(struct RastPort *rp, CONST_STRPTR string, WORD Length,
 110         struct TextExtent *textExtent, struct TextExtent *constrainingExtent,
 111         WORD strDirection, UWORD constrainingBitWidth, UWORD constrainingBitHeight)
 112 {
 113         ULONG Result;
 114
 115         d1(kprintf("%s/%s/%ld: TTEngineBase=%08lx  rp=%08lx\n", __FILE__, __FUNC__, __LINE__, TTEngineBase, rp));
 116
 117         if (NULL == rp)
 118                 return 0;
 119
 120         if (TTEngineBase)
 121                 {
 122                 // TT_GetAttrsA()
 123                 STRPTR FontName = NULL;
 124
 125                 TT_GetAttrs(rp, TT_FontName, (IPTR) &FontName,
 126                         TAG_END);
 127
 128                 d1(kprintf("%s/%s/%ld: FontName=%08lx\n", __FILE__, __FUNC__, __LINE__, FontName));
 129                 if (FontName)
 130                         {
 131                         d1(kprintf("%s/%s/%ld: textExtent: %ld %ld %ld %ld\n", __FILE__, __FUNC__, __LINE__, \
 132                                 textExtent->te_Extent.MinX, textExtent->te_Extent.MinY,\
 133                                 textExtent->te_Extent.MaxX, textExtent->te_Extent.MaxY));
 134                         d1(kprintf("%s/%s/%ld: constrainingExtent=%08lx\n", __FILE__, __FUNC__, __LINE__, constrainingExtent));
 135                         d1(kprintf("%s/%s/%ld: constrainingBitWidth=%ld  constrainingBitHeight=%ld\n", __FILE__, __FUNC__, __LINE__, constrainingBitWidth, constrainingBitHeight));
 136 #ifdef USE_SEMA
 137                         ScalosObtainSemaphore(&tteSema);
 138 #endif
 139                         Result = TT_TextFit(rp,
 140                                 (STRPTR) string,
 141                                 Length,
 142                                 textExtent,
 143                                 constrainingExtent,
 144                                 strDirection,
 145                                 constrainingBitWidth,
 146                                 constrainingBitWidth);
 147 #ifdef USE_SEMA
 148                         ScalosReleaseSemaphore(&tteSema);
 149 #endif
 150                         d1(kprintf("%s/%s/%ld: Result=%lu\n", __FILE__, __FUNC__, __LINE__, Result));
 151
 152                         return Result;
 153                         }
 154                 }
 155
 156         Result = TextFit(rp, (STRPTR) string, Length, textExtent, constrainingExtent,
 157                 strDirection, constrainingBitWidth, constrainingBitHeight);
 158
 159         d1(kprintf("%s/%s/%ld: Result=%lu\n", __FILE__, __FUNC__, __LINE__, Result));
 160
 161         return Result;
 162 }
 163
 164
 165 SAVEDS(void) Scalos_TextExtent(struct RastPort *rp, CONST_STRPTR string, WORD Length, struct TextExtent *tExt)
 166 {
 167         d1(kprintf("%s/%s/%ld: TTEngineBase=%08lx  rp=%08lx\n", __FILE__, __FUNC__, __LINE__, TTEngineBase, rp));
 168
 169         if (NULL == rp)
 170                 {
 171                 memset(tExt, 0, sizeof(struct TextExtent));
 172                 return;
 173                 }
 174
 175         if (TTEngineBase)
 176                 {
 177                 // TT_GetAttrsA()
 178                 STRPTR FontName = NULL;
 179
 180                 TT_GetAttrs(rp, TT_FontName, (IPTR) &FontName,
 181                         TAG_END);
 182
 183                 d1(kprintf("%s/%s/%ld: FontName=%08lx\n", __FILE__, __FUNC__, __LINE__, FontName));
 184
 185                 if (FontName)
 186                         {
 187                         d1(kprintf("%s/%s/%ld: FontName=<%s>  rp=%08lx  TextExtent=%08lx\n", \
 188                                 __FILE__, __FUNC__, __LINE__, FontName, rp, tExt));
 189
 190                         d1(kprintf("%s/%s/%ld: string=<%s>  Length=%ld\n", __FILE__, __FUNC__, __LINE__, string, Length));
 191
 192 #ifdef USE_SEMA
 193                         ScalosObtainSemaphore(&tteSema);
 194 #endif
 195                         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 196
 197                         TT_TextExtent(rp, (STRPTR) string, Length, tExt);
 198
 199                         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 200
 201 #ifdef USE_SEMA
 202                         ScalosReleaseSemaphore(&tteSema);
 203 #endif
 204                         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 205
 206                         return;
 207                         }
 208                 }
 209
 210         TextExtent(rp, (STRPTR) string, Length, tExt);
 211 }
 212
 213
 214 SAVEDS(void) Scalos_Text(struct RastPort *rp, CONST_STRPTR string, WORD Length)
 215 {
 216         if (rp)
 217                 {
 218                 if (TTEngineBase)
 219                         {
 220                         // TT_GetAttrsA()
 221                         STRPTR FontName = NULL;
 222
 223                         TT_GetAttrs(rp, TT_FontName, (IPTR) &FontName,
 224                                 TAG_END);
 225
 226                         d1(kprintf("%s/%s/%ld: FontName=%08lx\n", __FILE__, __FUNC__, __LINE__, FontName));
 227
 228                         if (FontName)
 229                                 {
 230                                 d1(kprintf("%s/%s/%ld: rp=%08lx  string=<%s>  Length=%ld\n", \
 231                                         __FILE__, __FUNC__, __LINE__, rp, string, Length));
 232
 233 #ifdef USE_SEMA
 234                                 ScalosObtainSemaphore(&tteSema);
 235 #endif
 236                                 TT_Text(rp, (STRPTR) string, Length);
 237 #ifdef USE_SEMA
 238                                 ScalosReleaseSemaphore(&tteSema);
 239 #endif
 240
 241                                 return;
 242                                 }
 243                         }
 244
 245                 Text(rp, (STRPTR) string, Length);
 246                 }
 247 }
 248
 249
 250 SAVEDS(UWORD) Scalos_GetFontHeight(struct RastPort *rp)
 251 {
 252         if (TTEngineBase && rp)
 253                 {
 254                 STRPTR FontName = NULL;
 255
 256                 // TT_GetAttrsA()
 257                 TT_GetAttrs(rp, TT_FontName, (IPTR) &FontName,
 258                         TAG_END);
 259
 260                 d1(kprintf("%s/%s/%ld: rp=%08lx FontName=%08lx\n", __FILE__, __FUNC__, __LINE__, rp, FontName));
 261
 262                 if (FontName)
 263                         {
 264                         ULONG Height = 0;
 265                         ULONG asc = 0, desc = 0;
 266
 267                         TT_GetAttrs(rp, TT_FontDesignHeight, (IPTR) &Height,
 268                                 TT_FontRealAscender, (IPTR) &asc,
 269                                 TT_FontRealDescender, (IPTR) &desc,
 270                                 TAG_END);
 271
 272                         d1(kprintf("%s/%s/%ld: FontName=<%s>  DesignHeight=%ld\n", __FILE__, __FUNC__, __LINE__, FontName, Height));
 273                         d1(kprintf("%s/%s/%ld: ascender=%ld  descender=%ld\n", __FILE__, __FUNC__, __LINE__, asc, desc));
 274                         return (UWORD) Height;
 275                         }
 276                 }
 277
 278         return rp->TxHeight;
 279 }
 280
 281
 282 SAVEDS(UWORD) Scalos_GetFontBaseline(struct RastPort *rp)
 283 {
 284         d1(kprintf("%s/%s/%ld: rp=%08lx\n", __FILE__, __FUNC__, __LINE__, rp));
 285
 286         if (TTEngineBase && rp)
 287                 {
 288                 STRPTR FontName = NULL;
 289
 290                 // TT_GetAttrsA()
 291                 TT_GetAttrs(rp, TT_FontName, (IPTR) &FontName,
 292                         TAG_END);
 293
 294
 295                 d1(kprintf("%s/%s/%ld: FontName=%08lx\n", __FILE__, __FUNC__, __LINE__, FontName));
 296
 297                 if (FontName)
 298                         {
 299                         ULONG Baseline = 0;
 300
 301                         TT_GetAttrs(rp, TT_FontAccentedAscender, (IPTR) &Baseline,
 302                                 TAG_END);
 303
 304                         return (UWORD) (Baseline - 2);
 305                         }
 306                 }
 307
 308         d1(kprintf("%s/%s/%ld: TxBaseline=%ld  tf_Baseline=%ld\n", __FILE__, __FUNC__, __LINE__, rp->TxBaseline, rp->Font->tf_Baseline));
 309
 310         return (UWORD) rp->Font->tf_Baseline;
 311 }
 312
 313
 314 SAVEDS(void) Scalos_SetFontTransparency(struct RastPort *rp, ULONG Transparency)
 315 {
 316         if (TTEngineBase && rp)
 317                 {
 318                 STRPTR FontName = NULL;
 319
 320                 // TT_GetAttrsA()
 321                 TT_GetAttrs(rp, TT_FontName, (IPTR) &FontName,
 322                         TAG_END);
 323
 324                 if (FontName)
 325                         {
 326                         d1(kprintf("%s/%s/%ld: rp=%08lx  FamilyName=<%s>  Transparency=%ld\n", \
 327                                 __FILE__, __FUNC__, __LINE__, rp, FontName, Transparency));
 328
 329 #ifdef USE_SEMA
 330                         ScalosObtainSemaphore(&tteSema);
 331 #endif
 332                         // TT_SetAttrsA()
 333                         TT_SetAttrs(rp, TT_Transparency, Transparency,
 334                                 TAG_END);
 335
 336 #ifdef USE_SEMA
 337                         ScalosReleaseSemaphore(&tteSema);
 338 #endif
 339                         }
 340                 }
 341 }
 342
 343
 344 SAVEDS(ULONG) Scalos_SetSoftStyle(struct RastPort *rp, ULONG style, ULONG enable, struct TTFontFamily *ttff)
 345 {
 346         if (TTEngineBase)
 347                 {
 348                 STRPTR FontName = NULL;
 349
 350                 // TT_GetAttrsA()
 351                 TT_GetAttrs(rp, TT_FontName, (IPTR) &FontName,
 352                         TAG_END);
 353
 354                 if (FontName)
 355                         {
 356                         d1(kprintf("%s/%s/%ld: rp=%08lx  FamilyName=<%s>  style=%08lx enable=%08lx\n", \
 357                                 __FILE__, __FUNC__, __LINE__, rp, FontName, style, enable));
 358
 359 #ifdef USE_SEMA
 360                         ScalosObtainSemaphore(&tteSema);
 361 #endif
 362                         TT_SetAttrs(rp,
 363                                 TT_SoftStyle, ((style & enable) == FSF_UNDERLINED)
 364                                         ? TT_SoftStyle_Underlined : TT_SoftStyle_None,
 365                                 TAG_END);
 366
 367 #ifdef USE_SEMA
 368                         ScalosReleaseSemaphore(&tteSema);
 369 #endif
 370                         SetFamilyTTFont(rp, style & enable, ttff);
 371                         }
 372                 }
 373
 374         d1(kprintf("%s/%s/%ld: TxBaseline=%ld  tf_Baseline=%ld\n", __FILE__, __FUNC__, __LINE__, rp->TxBaseline, rp->Font->tf_Baseline));
 375
 376         return SetSoftStyle(rp, style, enable);
 377 }
 378
 379
 380 SAVEDS(void) Scalos_SetFont(struct RastPort *rp, struct TextFont *tf, struct TTFontFamily *ttff)
 381 {
 382         d1(kprintf("%s/%s/%ld: TTEngineBase=%08lx  ttFont=%08lx\n", __FILE__, __FUNC__, __LINE__, TTEngineBase, ttff));
 383
 384         if (tf && (rp->Font != tf))
 385                 SetFont(rp, tf);
 386
 387         if (TTEngineBase && ttff && (ttff->ttff_BoldItalic || ttff->ttff_Bold || ttff->ttff_Italic || ttff->ttff_Normal))
 388                 {
 389                 SetFamilyTTFont(rp, FS_NORMAL, ttff);
 390
 391 #ifdef USE_SEMA
 392                 ScalosObtainSemaphore(&tteSema);
 393 #endif
 394                 // TT_SetAttrsA()
 395                 TT_SetAttrs(rp,
 396                         TT_Antialias, CurrentPrefs.pref_TTFontAntialias,
 397                         TT_Gamma, CurrentPrefs.pref_TTFontGamma,
 398                         TT_ColorMap, (IPTR) iInfos.xii_iinfos.ii_Screen->ViewPort.ColorMap,
 399 //                      TT_Screen, iInfos.xii_iinfos.ii_Screen,
 400                         TAG_END);
 401 #ifdef USE_SEMA
 402                 ScalosReleaseSemaphore(&tteSema);
 403 #endif
 404                 }
 405
 406         if (NULL == ttff || (NULL == ttff->ttff_BoldItalic && NULL == ttff->ttff_Bold &&
 407                         NULL == ttff->ttff_Italic && NULL == ttff->ttff_Normal))
 408                 Scalos_DoneRastPort(rp);        // remove TT font
 409 }
 410
 411
 412 static void SetFamilyTTFont(struct RastPort *rp, ULONG style, struct TTFontFamily *ttff)
 413 {
 414         BOOL isBold = style & FSF_BOLD;
 415         BOOL isItalic = style & FSF_ITALIC;
 416         APTR ttFont;
 417
 418         if (isBold && isItalic)
 419                 {
 420                 d1(kprintf("%s/%s/%ld: rp=%08lx BoldItalic font=%08lx\n", __FILE__, __FUNC__, __LINE__, rp, ttff->ttff_BoldItalic));
 421                 ttFont = ttff->ttff_BoldItalic;
 422                 }
 423         else if (isBold)
 424                 {
 425                 d1(kprintf("%s/%s/%ld: rp=%08lx Bold font=%08lx\n", __FILE__, __FUNC__, __LINE__, rp, ttff->ttff_Bold));
 426                 ttFont = ttff->ttff_Bold;
 427                 }
 428         else if (isItalic)
 429                 {
 430                 d1(kprintf("%s/%s/%ld: rp=%08lx Italic font=%08lx\n", __FILE__, __FUNC__, __LINE__, rp, ttff->ttff_Italic));
 431                 ttFont = ttff->ttff_Italic;
 432                 }
 433         else
 434                 {
 435                 d1(kprintf("%s/%s/%ld: rp=%08lx Normal font=%08lx\n", __FILE__, __FUNC__, __LINE__, rp, ttff->ttff_Normal));
 436                 ttFont = ttff->ttff_Normal;
 437                 }
 438
 439         if (NULL == ttFont)
 440                 {
 441                 d1(kprintf("%s/%s/%ld: rp=%08lx Fallback to Normal font=%08lx\n", __FILE__, __FUNC__, __LINE__, rp, ttff->ttff_Normal));
 442                 ttFont = ttff->ttff_Normal;
 443                 }
 444
 445         if (ttFont)
 446                 {
 447 #ifdef USE_SEMA
 448                 ScalosObtainSemaphore(&tteSema);
 449 #endif
 450                 TT_SetFont(rp, ttFont);
 451                 d1(kprintf("%s/%s/%ld: rp=%08lx ttFont=%08lx\n", __FILE__, __FUNC__, __LINE__, rp, ttFont));
 452
 453                 //TT_SetAttrsA()
 454                 TT_SetAttrs(rp,
 455                         TT_Antialias, CurrentPrefs.pref_TTFontAntialias,
 456                         TT_Gamma, CurrentPrefs.pref_TTFontGamma,
 457                         TT_ColorMap, (IPTR) iInfos.xii_iinfos.ii_Screen->ViewPort.ColorMap,
 458                         TAG_END);
 459 #ifdef USE_SEMA
 460                 ScalosReleaseSemaphore(&tteSema);
 461 #endif
 462                 }
 463 }
 464
 465
 466 APTR Scalos_OpenTTFont(CONST_STRPTR FontDesc, struct TTFontFamily *ttff)
 467 {
 468         d1(kprintf("%s/%s/%ld: FontDesc=<%s>\n", __FILE__, __FUNC__, __LINE__, FontDesc));
 469         memset(ttff, 0, sizeof(struct TTFontFamily));
 470
 471         if (TTEngineBase && FontDesc)
 472                 {
 473                 struct TTTextAttr ttta;
 474
 475                 d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 476
 477                 if (FillTTTextAttrFromDesc(&ttta, FontDesc))
 478                         {
 479                         d1(kprintf("%s/%s/%ld: FamilyName=<%s>  Size=%ld\n", \
 480                                 __FILE__, __FUNC__, __LINE__, ttta.ttta_FamilyTable[0], ttta.ttta_FontSize));
 481
 482 #ifdef USE_SEMA
 483                         ScalosObtainSemaphore(&tteSema);
 484 #endif
 485
 486                         // TT_OpenFontA()
 487                         ttff->ttff_Normal = TT_OpenFont(
 488                                 TT_FamilyTable, (IPTR) ttta.ttta_FamilyTable,
 489                                 TT_FontSize, ttta.ttta_FontSize,
 490                                 TT_FontStyle, ttta.ttta_FontStyle,
 491                                 TT_FontWeight, ttta.ttta_FontWeight,
 492                                 TAG_END);
 493                         d1(kprintf("%s/%s/%ld: Normal font=%08lx\n", __FILE__, __FUNC__, __LINE__, ttff->ttff_Normal));
 494
 495                         ttff->ttff_Bold = TT_OpenFont(
 496                                 TT_FamilyTable, (IPTR) ttta.ttta_FamilyTable,
 497                                 TT_FontSize, ttta.ttta_FontSize,
 498                                 TT_FontStyle, TT_FontStyle_Regular,
 499                                 TT_FontWeight, TT_FontWeight_Bold,
 500                                 TAG_END);
 501                         d1(kprintf("%s/%s/%ld: Bold font=%08lx\n", __FILE__, __FUNC__, __LINE__, ttff->ttff_Bold));
 502
 503                         ttff->ttff_Italic = TT_OpenFont(
 504                                 TT_FamilyTable, (IPTR) ttta.ttta_FamilyTable,
 505                                 TT_FontSize, ttta.ttta_FontSize,
 506                                 TT_FontStyle, TT_FontStyle_Italic,
 507                                 TT_FontWeight, TT_FontWeight_Normal,
 508                                 TAG_END);
 509                         d1(kprintf("%s/%s/%ld: Italic font=%08lx\n", __FILE__, __FUNC__, __LINE__, ttff->ttff_Italic));
 510
 511                         ttff->ttff_BoldItalic = TT_OpenFont(
 512                                 TT_FamilyTable, (IPTR) ttta.ttta_FamilyTable,
 513                                 TT_FontSize, ttta.ttta_FontSize,
 514                                 TT_FontStyle, TT_FontStyle_Italic,
 515                                 TT_FontWeight, TT_FontWeight_Bold,
 516                                 TAG_END);
 517                         d1(kprintf("%s/%s/%ld: BoldItalic font=%08lx\n", __FILE__, __FUNC__, __LINE__, ttff->ttff_BoldItalic));
 518
 519 #ifdef USE_SEMA
 520                         ScalosReleaseSemaphore(&tteSema);
 521 #endif
 522                         }
 523                 }
 524
 525         return ttff->ttff_Normal;
 526 }
 527
 528
 529 void Scalos_CloseFont(struct TextFont **tf, struct TTFontFamily *ttFont)
 530 {
 531         if (TTEngineBase && ttFont)
 532                 {
 533                 d1(kprintf("%s/%s/%ld: Normal font=%08lx\n", __FILE__, __FUNC__, __LINE__, ttFont->ttff_Normal));
 534
 535 #ifdef USE_SEMA
 536                 ScalosObtainSemaphore(&tteSema);
 537 #endif
 538                 TT_CloseFont(ttFont->ttff_Normal);
 539                 TT_CloseFont(ttFont->ttff_Bold);
 540                 TT_CloseFont(ttFont->ttff_Italic);
 541                 TT_CloseFont(ttFont->ttff_BoldItalic);
 542
 543 #ifdef USE_SEMA
 544                 ScalosReleaseSemaphore(&tteSema);
 545 #endif
 546                 ttFont->ttff_Normal = NULL;
 547                 ttFont->ttff_Bold = NULL;
 548                 ttFont->ttff_Italic = NULL;
 549                 ttFont->ttff_BoldItalic = NULL;
 550                 }
 551
 552         if (tf && *tf)
 553                 {
 554                 CloseFont(*tf);
 555                 *tf = NULL;
 556                 }
 557 }
 558
 559
 560 SAVEDS(void) Scalos_InitRastPort(struct RastPort *rp)
 561 {
 562         InitRastPort(rp);
 563
 564         if (TTEngineBase)
 565                 {
 566 #ifdef USE_SEMA
 567                 ScalosObtainSemaphore(&tteSema);
 568 #endif
 569                 TT_SetAttrs(rp,
 570                         TT_ColorMap, (IPTR) iInfos.xii_iinfos.ii_Screen->ViewPort.ColorMap,
 571                         TAG_END);
 572
 573 #ifdef USE_SEMA
 574                 ScalosReleaseSemaphore(&tteSema);
 575 #endif
 576                 d1(kprintf("%s/%s/%ld: rp=%08lx  cm=%08lx\n", \
 577                         __FILE__, __FUNC__, __LINE__, rp, iInfos.xii_iinfos.ii_Screen->ViewPort.ColorMap));
 578                 }
 579 }
 580
 581
 582 SAVEDS(void) Scalos_DoneRastPort(struct RastPort *rp)
 583 {
 584         d1(kprintf("%s/%s/%ld: rp=%08lx\n", __FILE__, __FUNC__, __LINE__, rp));
 585
 586         if (TTEngineBase)
 587                 {
 588 #ifdef USE_SEMA
 589                 ScalosObtainSemaphore(&tteSema);
 590 #endif
 591                 TT_DoneRastPort(rp);
 592 #ifdef USE_SEMA
 593                 ScalosReleaseSemaphore(&tteSema);
 594 #endif
 595                 }
 596 }
 597
 598
 599 static BOOL FillTTTextAttrFromDesc(struct TTTextAttr *ttta, CONST_STRPTR FontDesc)
 600 {
 601         // Font Desc format:
 602         // "style/weight/size/fontname"
 603         char Buffer[10];
 604         size_t n;
 605
 606         ttta->ttta_FontStyle = TT_FontStyle_Regular;
 607         ttta->ttta_FontWeight = TT_FontWeight_Normal;
 608
 609         d1(kprintf("%s/%s/%ld: ttta=%08lx  FontDesc=<%s>\n", __FILE__, __FUNC__, __LINE__, ttta, FontDesc));
 610
 611         for (n = 0; *FontDesc && '/' != *FontDesc && n < sizeof(Buffer) - 1; n++)
 612                 Buffer[n] = *FontDesc++;
 613         Buffer[n] = '\0';
 614         d1(kprintf("%s/%s/%ld: Buffer=<%s>\n", __FILE__, __FUNC__, __LINE__, Buffer));
 615
 616         if (StrToLong(Buffer, (LONG *) &ttta->ttta_FontStyle) <= 0)
 617                 return FALSE;
 618
 619         if ('/' == *FontDesc)
 620                 FontDesc++;     // Skip "/" between style and weight
 621         else
 622                 return FALSE;
 623
 624         for (n = 0; *FontDesc && '/' != *FontDesc && n < sizeof(Buffer) - 1; n++)
 625                 Buffer[n] = *FontDesc++;
 626         Buffer[n] = '\0';
 627         d1(kprintf("%s/%s/%ld: Buffer=<%s>\n", __FILE__, __FUNC__, __LINE__, Buffer));
 628
 629         if (StrToLong(Buffer, (LONG *) &ttta->ttta_FontWeight) <= 0)
 630                 return FALSE;
 631
 632         if ('/' == *FontDesc)
 633                 FontDesc++;     // Skip "/" between weight and size
 634         else
 635                 return FALSE;
 636
 637         for (n = 0; *FontDesc && '/' != *FontDesc && n < sizeof(Buffer) - 1; n++)
 638                 Buffer[n] = *FontDesc++;
 639         Buffer[n] = '\0';
 640         d1(kprintf("%s/%s/%ld: Buffer=<%s>\n", __FILE__, __FUNC__, __LINE__, Buffer));
 641
 642         if (StrToLong(Buffer, (LONG *) &ttta->ttta_FontSize) <= 0)
 643                 return FALSE;
 644
 645         d1(kprintf("%s/%s/%ld: ttta=%08lx\n", __FILE__, __FUNC__, __LINE__, ttta));
 646
 647         if ('/' == *FontDesc)
 648                 FontDesc++;     // Skip "/" between size and name
 649         else
 650                 return FALSE;
 651
 652         d1(kprintf("%s/%s/%ld: FontDesc=<%s>\n", __FILE__, __FUNC__, __LINE__, FontDesc));
 653
 654         // copy font name
 655         stccpy(ttta->ttta_NameSpace, FontDesc, sizeof(ttta->ttta_NameSpace));
 656         ttta->ttta_FamilyTable[0] = ttta->ttta_NameSpace;
 657         ttta->ttta_FamilyTable[1] = NULL;
 658
 659         return TRUE;            // Success!
 660 }
 661
 662
 663 static SAVEDS(ULONG) FontFunctionDispatcher(struct Hook *hook, Object *o, Msg msg)
 664 {
 665         ULONG Result = 0;
 666
 667         d1(kprintf("%s/%s/%ld: hook=%08lx  o=%08lx  msg=%08lx\n", __FILE__, __FUNC__, __LINE__, hook, o, msg));
 668         d1(kprintf("%s/%s/%ld: MethodID=%08lx\n", __FILE__, __FUNC__, __LINE__, msg->MethodID));
 669
 670         switch (msg->MethodID)
 671                 {
 672         case iofMsg_DONERASTPORT:
 673                 {
 674                 struct ioFontMsg_DoneRastPort *iofdr = (struct ioFontMsg_DoneRastPort *) msg;
 675
 676                 Scalos_DoneRastPort(iofdr->iofdr_RastPort);
 677                 }
 678                 break;
 679         case iofMsg_SETFONT:
 680                 {
 681                 struct ioFontMsg_SetFont *iofsf = (struct ioFontMsg_SetFont *) msg;
 682
 683                 Scalos_SetFont(iofsf->iofsf_RastPort, iofsf->iofsf_TextFont, iofsf->iofsf_FontHandle);
 684                 }
 685                 break;
 686         case iofMsg_TEXT:
 687                 {
 688                 struct ioFontMsg_Text *ioft = (struct ioFontMsg_Text *) msg;
 689
 690                 Scalos_Text(ioft->ioft_RastPort, ioft->ioft_String, ioft->ioft_Length);
 691                 }
 692                 break;
 693         case iofMsg_SETFONTSTYLE:
 694                 {
 695                 struct ioFontMsg_SetFontStyle *iofsfs = (struct ioFontMsg_SetFontStyle *) msg;
 696
 697                 Result = Scalos_SetSoftStyle(iofsfs->iofsfs_RastPort,
 698                         iofsfs->iofsfs_Style, iofsfs->iofsfs_Enable,
 699                         iofsfs->iofsfs_FontHandle);
 700                 }
 701                 break;
 702         case iofMsg_TEXTEXTENT:
 703                 {
 704                 struct ioFontMsg_TextExtent *iofte = (struct ioFontMsg_TextExtent *) msg;
 705
 706                 d1(kprintf("%s/%s/%ld: rp=%08lx  string=%08lx  length=%lu\n", \
 707                         __FILE__, __FUNC__, __LINE__, iofte->iofte_RastPort, iofte->iofte_String, iofte->iofte_Length));
 708
 709                 Scalos_TextExtent(iofte->iofte_RastPort, iofte->iofte_String,
 710                         iofte->iofte_Length, iofte->iofte_TextExtent);
 711                 }
 712                 break;
 713         case iofMsg_TEXTFIT:
 714                 {
 715                 struct ioFontMsg_TextFit *ioftf = (struct ioFontMsg_TextFit *) msg;
 716
 717                 Result = Scalos_TextFit(ioftf->ioftf_RastPort, ioftf->ioftf_String,
 718                         ioftf->ioftf_Length, ioftf->ioftf_TextExtent,
 719                         ioftf->ioftf_ConstrainingTextExtent, ioftf->ioftf_StrDirection,
 720                         ioftf->ioftf_ConstrainingBitWidth, ioftf->ioftf_ConstrainingBitHeight);
 721                 }
 722                 break;
 723         case iofMsg_GETFONTHEIGHT:
 724                 {
 725                 struct ioFontMsg_GetFontHeight *iofgfh = (struct ioFontMsg_GetFontHeight *) msg;
 726
 727                 Result = Scalos_GetFontHeight(iofgfh->iofgfh_RastPort);
 728                 }
 729                 break;
 730         case iofMsg_GETFONTBASELINE:
 731                 {
 732                 struct ioFontMsg_GetFontBaseline *iofgfb = (struct ioFontMsg_GetFontBaseline *) msg;
 733
 734                 Result = Scalos_GetFontBaseline(iofgfb->iofgfb_RastPort);
 735                 }
 736                 break;
 737         case iofMsg_SETTRANSPARENCY:
 738                 {
 739                 struct ioFontMsg_SetTransparency *iofst = (struct ioFontMsg_SetTransparency *) msg;
 740
 741                 Scalos_SetFontTransparency(iofst->iofst_RastPort, iofst->iofst_Transparency);
 742                 }
 743                 break;
 744         default:
 745                 break;
 746                 }
 747
 748         d1(kprintf("%s/%s/%ld: Result=%08lx\n", __FILE__, __FUNC__, __LINE__, Result));
 749
 750         return Result;
 751 }
 752