Changeset 169

Timestamp:

03/31/07 18:22:28 (18 months ago)

Author:

dmik

Message:

Kernel: Added initial DBCS input/output support (thanks to Ko Myung-Hun for patches).

Location:

trunk

Files:

• include/qstring.h (modified) (1 diff)
• src/kernel/qapplication_pm.cpp (modified) (11 diffs)
• src/kernel/qfontengine_pm.cpp (modified) (23 diffs)
• src/kernel/qtextengine_p.h (modified) (2 diffs)
• src/tools/qstring.cpp (modified) (2 diffs)

trunk/include/qstring.h

@@ -1108 +1108 @@
 extern Q_EXPORT QCString qt_os2QString2MB( const QString& s, int len=-1 );
 extern Q_EXPORT QString qt_os2MB2QString( const char* mb, int len=-1 );
+extern Q_EXPORT const char *qt_os2UconvFirstByteTable();
 #endif
 

trunk/src/kernel/qapplication_pm.cpp

@@ -1015 +1015 @@
     // some undocumented system values
     
-    SV_WORKAREA_YTOP = 51,            
-    SV_WORKAREA_YBOTTOM = 52,            
-    SV_WORKAREA_XRIGHT = 53,            
+    SV_WORKAREA_YTOP = 51,
+    SV_WORKAREA_YBOTTOM = 52,
+    SV_WORKAREA_XRIGHT = 53,
     SV_WORKAREA_XLEFT = 54,
 };
@@ -1252 +1252 @@
 #if 0
             qDebug( "WM_CHAR:  [%s]", widget->name() );
-#endif            
+#endif
             QWidget *g = QWidget::keyboardGrabber();
             if ( g )
@@ -1276 +1276 @@
             }
             break;
+        }
+
+        case WM_QUERYCONVERTPOS :
+        {
+            // Ooops, how to get caret pos ?
+            /// @todo (r=dmik) we should make usage of the QIMEvent
+            //  to query widgets about IME data (see how/where this event
+            //  is used across the sources)
+
+            PRECTL pcp = ( PRECTL )mp1;
+            CURSORINFO ci;
+
+            WinQueryCursorInfo( HWND_DESKTOP, &ci );
+
+            memset( pcp, 0xFF, sizeof( RECTL ));
+
+            pcp->xLeft = ci.x;
+            pcp->yBottom = ci.y;
+            WinMapWindowPoints( ci.hwnd, hwnd, ( PPOINTL )pcp, 2 );
+
+            RETURN( QCP_CONVERT );
         }
 
@@ -1787 +1808 @@
                     USHORT w = r.width();
                     USHORT h = r.height();
-                    // flip y coordinate 
+                    // flip y coordinate
                     y = QApplication::desktop()->height() - (y + h);
                     WinSetWindowUShort( hwnd, QWS_XRESTORE, x );
@@ -1867 +1888 @@
             // WM_MINMAXFRAME, because WM_MINMAXFRAME is a pre-process message
             // (i.e. no actual changes have been made) We need actual changes
-            // in order to update the frame strut and send WindowStateChange. 
+            // in order to update the frame strut and send WindowStateChange.
             result = TRUE;
             rc = QtOldFrameProc( hwnd, msg, mp1, mp2 );
@@ -2954 +2975 @@
     ascii = ch;
     if ( ascii > 0x7F ) ascii = 0;
-    if ( ch )
-        text = QString::fromLocal8Bit( (char*)&ch, 1 );
+    if ( ch ) {
+        // Note: Ignore the KC_CHAR flag when generating text for a key to get
+        // correct (non-null) text even for Alt+Letter combinations (that
+        // don't have KC_CHAR set) because processing Alt+Letter shortcuts
+        // for non-ASCII letters in widgets (e.g. QPushButton) depends on that.
+        if ( !(chm.fs & KC_KEYUP) && (chm.chr & 0xFF) && (chm.chr & 0xFF00) &&
+             qt_os2UconvFirstByteTable()[ (chm.chr & 0xFF) ] == 2 ) {
+            // We assime we get a DBCS char if both hi and lo bytes of chr are
+            // non-zero. Note that this check is performed only for key press
+            // events, because key release events (at least for SBCS) often
+            // contain a scancode in the hi byte of chr, which is of course
+            // doesn't mean DBCS. We also perform a DBCS lead byte check to
+            // ensure keys like ESC (that always gives chm=0x011B) are not 
+            // mistakenly recognized as DBCS.
+            text = QString::fromLocal8Bit( (char *) &chm.chr, 2 );
+        }
+        else
+            text = QString::fromLocal8Bit( (char*) &ch, 1 );
+    }
 }
 
@@ -3022 +3060 @@
     if ( nrecs == maxrecs ) {
 #if defined(QT_CHECK_RANGE)
-        qWarning( "Qt: Internal keyboard buffer overflow" );
+        qWarning( "Qt: Internal keyboard buffer overflow" );
 #endif
-        return;
+        return;
     }
 
@@ -3044 +3082 @@
 
     if ( sm_blockUserInput ) // block user interaction during session management
-        return TRUE;
+        return TRUE;
 
     translateKeyCode( chm, code, ascii, state, text );
-/// @todo (dmik) currently WM_CHARs chars with zero virtual code or zero
-//  scancode are totally ignored. -- are they?
-//    if ( !code || !chm.scancode ) return FALSE;
+
+    // code will be zero for all non-ASCII letters, but I'm not sure when
+    // scancode is oficially allowed to be zero and what it means. Anyway,
+    // ignore key events when both are zero, because it will not make sense
+    // (we will not be able to properly report key releases for such events
+    // since all of them will be indexed by the same zero number in key_rec).
+    if ( !code && !chm.scancode ) return FALSE;
 
     // Invert state logic
@@ -3072 +3114 @@
                         // "Alt depressed" event, that must preceed it, will be
                         // eaten by the system)
-                        find_key_rec( Qt::Key_Alt, TRUE ); 
+                        find_key_rec( Qt::Key_Alt, TRUE );
 /// @todo (dmik) do the same for other global keys (ALT+TAB, ALT+ESC, CTRL+ESC)
 //  by handling this situation when we obtain/loose focus)
@@ -3080 +3122 @@
 //  that find_key_rec() above should also be removed to get identical behavior for
 //  all stolen keys. This will allow to solve the problem on the Qt application
-//  level if needed (and even in a platform-independent manner). 
+//  level if needed (and even in a platform-independent manner).
                     }
                     return TRUE;
@@ -3127 +3169 @@
     }
 
-#if 0    
+#if 0
     qDebug("WM_CHAR: RESULT = %d", (k0 || k1));
-#endif    
+#endif
     return k0 || k1;
 }

trunk/src/kernel/qfontengine_pm.cpp

@@ -43 +43 @@
 #include <qpaintdevice.h>
 #include <qpainter.h>
-//@@TODO (dmik): need?
-//#include <limits.h>
-//#include <math.h>
 
 #include <private/qunicodetables_p.h>
@@ -52 +49 @@
 #include <qthreadstorage.h>
 
-//@@TODO (dmik): need?
+/// @todo need?
 //#ifndef M_PI
 //#define M_PI 3.14159265358979
@@ -59 +56 @@
 // per-thread unique screen ps to perform font operations
 
-//@@TODO (dmik): optimize: use small mem hps'es 1x1 px instead of screen ps?
+/// @todo (r=dmik) optimize: use small mem hps'es 1x1 px instead of screen ps?
 class QDisplayPS
 {
@@ -70 +67 @@
 
 
-//@@TODO (dmik): remove?
-//// defined in qtextengine_win.cpp
-//typedef void *SCRIPT_CACHE;
-//typedef HRESULT (WINAPI *fScriptFreeCache)( SCRIPT_CACHE *);
-//extern fScriptFreeCache ScriptFreeCache;
-
-
-//@@TODO (dmik): remove?
-//static unsigned char *getCMap( HDC hdc, bool & );
-//static Q_UINT16 getGlyphIndex( unsigned char *table, unsigned short unicode );
-
-
-//@@TODO (dmik): remove?
-//HDC   shared_dc           = 0;                // common dc for all fonts
-//static HFONT shared_dc_font = 0;              // used by Windows 95/98
-//static HFONT stock_sysfont  = 0;
-//
-//static inline HFONT systemFont()
-//{
-//    if ( stock_sysfont == 0 )
-//      stock_sysfont = (HFONT)GetStockObject(SYSTEM_FONT);
-//    return stock_sysfont;
-//}
-
 // general font engine
 
@@ -100 +73 @@
     hps = 0;
     delete pfm;
-//@@TODO (dmik): remove...
-//    QT_WA( {
-//      if ( hdc ) {                            // one DC per font (Win NT)
-//          //SelectObject( hdc, systemFont() );
-//          if ( !stockFont )
-//              DeleteObject( hfont );
-//          if ( !paintDevice )
-//              ReleaseDC( 0, hdc );
-//          hdc = 0;
-//          hfont = 0;
-//      }
-//    } , {
-//      if ( hfont ) {                          // shared DC (Windows 95/98)
-//          if ( shared_dc_font == hfont ) {    // this is the current font
-//              Q_ASSERT( shared_dc != 0 );
-//              SelectObject( shared_dc, systemFont() );
-//              shared_dc_font = 0;
-//          }
-//          if ( !stockFont )
-//              DeleteObject( hfont );
-//          hfont = 0;
-//      }
-//    } );
-//    delete [] cmap;
-//
-//    // for Uniscribe
-//    if ( ScriptFreeCache )
-//      ScriptFreeCache( &script_cache );
 }
 
 int QFontEngine::lineThickness() const
 {
-//@@TODO (dmik): values from FONTMETRICS are not always good (line is too
+/// @todo (r=dmik) values from FONTMETRICS are not always good (line is too
 //  thick or too close to glyphs). The algorithm below is not always perfect
 //  either. Which one to leave?
@@ -149 +94 @@
 int QFontEngine::underlinePosition() const
 {
-//@@TODO (dmik): values from FONTMETRICS are not always good (line is too
+/// @todo (r=dmik) values from FONTMETRICS are not always good (line is too
 //  thick or too close to glyphs). The algorithm below is not always perfect
 //  either. Which one to leave?
@@ -228 +173 @@
 }
 
-//@@TODO (dmik): remove?
-//HDC QFontEngine::dc() const
-//{
-//    if ( hdc || (qt_winver & Qt::WV_NT_based) ) // either NT_based or Printer
-//      return hdc;
-//    Q_ASSERT( shared_dc != 0 && hfont != 0 );
-//    if ( shared_dc_font != hfont ) {
-//      SelectObject( shared_dc, hfont );
-//      shared_dc_font = hfont;
-//    }
-//    return shared_dc;
-//}
-
-//@@TODO (dmik): remove?
-//void QFontEngine::getCMap()
-//{
-//    QT_WA( {
-//      ttf = (bool)(tm.w.tmPitchAndFamily & TMPF_TRUETYPE);
-//    } , {
-//      ttf = (bool)(tm.a.tmPitchAndFamily & TMPF_TRUETYPE);
-//    } );
-//    HDC hdc = dc();
-//    SelectObject( hdc, hfont );
-//    bool symb = false;
-//    cmap = ttf ? ::getCMap( hdc, symb ) : 0;
-//    if ( !cmap ) {
-//      ttf = false;
-//      symb = false;
-//    }
-//    symbol = symb;
-//    script_cache = 0;
-//}
-
-//@@TODO (dmik): remove
-//void QFontEngine::getGlyphIndexes( const QChar *ch, int numChars, glyph_t *glyphs, bool mirrored ) const
-//{
-//    if ( mirrored ) {
-//      if ( symbol ) {
-//          while( numChars-- ) {
-//              *glyphs = getGlyphIndex(cmap, ch->unicode() );
-//              if(!*glyphs && ch->unicode() < 0x100)
-//                  *glyphs = getGlyphIndex(cmap, ch->unicode()+0xf000 );
-//              glyphs++;
-//              ch++;
-//          }
-//      } else if ( ttf ) {
-//          while( numChars-- ) {
-//              *glyphs = getGlyphIndex(cmap, ::mirroredChar(*ch).unicode() );
-//              glyphs++;
-//              ch++;
-//          }
-//      } else {
-//          while( numChars-- ) {
-//              *glyphs = ::mirroredChar(*ch).unicode();
-//              glyphs++;
-//              ch++;
-//          }
-//      }
-//    } else {
-//      if ( symbol ) {
-//          while( numChars-- ) {
-//              *glyphs = getGlyphIndex(cmap, ch->unicode() );
-//              if(!*glyphs && ch->unicode() < 0x100)
-//                  *glyphs = getGlyphIndex(cmap, ch->unicode()+0xf000 );
-//              glyphs++;
-//              ch++;
-//          }
-//      } else if ( ttf ) {
-//          while( numChars-- ) {
-//              *glyphs = getGlyphIndex(cmap, ch->unicode() );
-//              glyphs++;
-//              ch++;
-//          }
-//      } else {
-//          while( numChars-- ) {
-//              *glyphs = ch->unicode();
-//              glyphs++;
-//              ch++;
-//          }
-//      }
-//    }
-//}
-
 QFontEnginePM::QFontEnginePM( HPS ps, PFATTRS pfa, int pixelSize, int pointSize )
 {
@@ -325 +187 @@
     // cache cost here should be in bytes. it is converted to
     // kbytes by QFontCache::increaseCost()
-//@@TODO (dmik): is this formula for cost ok?
+    /// @todo is this formula for cost ok?
     cache_cost = pfm->lMaxBaselineExt * pfm->lAveCharWidth * 2000;
 
@@ -332 +194 @@
 }
 
-//@@TODO (dmik): remove
-//QFontEngineWin::QFontEngineWin( const char * name, HDC _hdc, HFONT _hfont, bool stockFont, LOGFONT lf )
-//{
-//    paintDevice = FALSE;
-//    //qDebug("regular windows font engine created: font='%s', size=%d", name, lf.lfHeight);
-//
-//    _name = name;
-//
-//    hdc = _hdc;
-//    hfont = _hfont;
-//    logfont = lf;
-//    SelectObject( dc(), hfont );
-//    this->stockFont = stockFont;
-//
-//    lbearing = SHRT_MIN;
-//    rbearing = SHRT_MIN;
-//
-//    BOOL res;
-//    QT_WA( {
-//      res = GetTextMetricsW( dc(), &tm.w );
-//    } , {
-//      res = GetTextMetricsA( dc(), &tm.a );
-//    } );
-//#ifndef QT_NO_DEBUG
-//    if ( !res )
-//      qSystemWarning( "QFontPrivate: GetTextMetrics failed" );
-//#endif
-//    cache_cost = tm.w.tmHeight * tm.w.tmAveCharWidth * 2000;
-//    getCMap();
-//
-//    useTextOutA = FALSE;
-//#ifndef Q_OS_TEMP
-//    // TextOutW doesn't work for symbol fonts on Windows 95!
-//    // since we're using glyph indices we don't care for ttfs about this!
-//    if ( qt_winver == Qt::WV_95 && !ttf &&
-//       ( _name == "Marlett" || _name == "Symbol" || _name == "Webdings" || _name == "Wingdings" ) )
-//          useTextOutA = TRUE;
-//#endif
-//    memset( widthCache, 0, sizeof(widthCache) );
-//}
-
-//@@TODO (dmik): current implementation of this fn uses the local8bit QChar
+#define isDBCSGlyph(g) ( (g) & 0xFF00 )
+
+#define queryGlyphSize(g) ( isDBCSGlyph( g ) ? 2 : 1 )
+
+/// @todo (r=dmik) current implementation of this fn uses the local8bit QChar
 //  code as the glyph index, i.e. glyphs are just unicode chars converted to
 //  8 bit chars according to the current (system) code page. This will be
-//  changed when all font-related code will be rewritten to support true unicode
+//  changed when all font-related code is rewritten to support true unicode
 //  (for example, by using innotek ft2lib, since native OS/2 unicode support
 //  relative to text output using GPI is pretty buggy).
-QFontEngine::Error QFontEnginePM::stringToCMap( const QChar *str, int len, glyph_t *glyphs, advance_t *advances, int *nglyphs, bool mirrored ) const
-{
-    if ( *nglyphs < len ) {
-        *nglyphs = len;
-        return OutOfMemory;
-    }
-
-//@@TODO (dmik): mirrored is currently ignored.
-    Q_UNUSED(mirrored);
-
-    // convert chars to glyphs
+QFontEngine::Error QFontEnginePM::stringToCMap( const QChar *str, int len,
+                                                glyph_t *glyphs, advance_t *advances,
+                                                int *nglyphs, bool mirrored ) const
+{
+    /// @todo mirrored is currently ignored.
+    Q_UNUSED( mirrored );
+
+    const char *uconvFirstByteTable = qt_os2UconvFirstByteTable();
+
+    // convert multibyte chars to "wide char" glyphs
     QCString s = QConstString( str, len ).string().local8Bit();
-    for ( int i = 0; i < len; i++ ) {
-        glyphs[i] = (uchar) s[i];
+    // sanity check (uint value must fit into positive int)
+    Q_ASSERT( (int) s.size() >= 1 );
+    if ( (int) s.size() < 1 ) {
+        *nglyphs = 0;
+        return OutOfMemory;
+    }
+    // we use QCString::size() instead of length() because the str array may
+    // contain embedded zero chars that must be also processed
+    int slen = (int) s.size() - 1; // exclude terminating zero
+    if ( slen == 0 ) {
+        // null string or no valid conversion, nothing to do
+        *nglyphs = 0;
+        return NoError;
+    }
+    int givenLen = *nglyphs;
+    int realLen = 0;
+    for( int i = 0; i < slen; i++ ) {
+        bool isDBCSLeadByte = uconvFirstByteTable[ s[ i ] ] == 2;
+        if ( realLen < givenLen ) {
+            // enough space, store the glyph
+            glyphs[ realLen ] = s[ i ] & 0xFF;
+            if( isDBCSLeadByte )
+                glyphs[ realLen ] |= ( s[ ++i ] << 8 ) & 0xFF00;
+        } else {
+            // not enough space, keep calulating the length
+            if( isDBCSLeadByte )
+                ++i;
+        }
+        realLen++;
+    }
+
+    if ( givenLen < realLen ) {
+        *nglyphs = realLen;
+        return OutOfMemory;
     }
 
     if ( advances ) {
-        HPS ps = 0;
-        glyph_t glyph;
-        for( register int i = 0; i < len; i++ ) {
-            glyph = *(glyphs + i);
-            advances[i] = (glyph < widthCacheSize) ? widthCache[glyph] : 0;
-            // font-width cache failed
-            if ( !advances[i] ) {
+        HPS ps = 0;
+        glyph_t glyph;
+        for( register int i = 0; i < realLen; i++ ) {
+            glyph = *(glyphs + i);
+            advances[i] = (glyph < widthCacheSize) ? widthCache[glyph] : 0;
+            // font-width cache failed
+            if ( !advances[i] ) {
                 if ( !ps ) ps = this->ps();
                 POINTL ptls [TXTBOX_COUNT];
-                GpiQueryTextBox( ps, 1, &s[i], TXTBOX_COUNT, ptls);
+                GpiQueryTextBox( ps, queryGlyphSize( glyph ),
+                                 (PCH) &glyph, TXTBOX_COUNT, ptls );
                 advances[i] = ptls[4].x;
-                // if glyph's within cache range, store it for later
-                if ( glyph < widthCacheSize && advances[i] < 0x100 )
-                    ((QFontEnginePM *)this)->widthCache[glyph] = advances[i];
-            }
-        }
-    }
-
-    *nglyphs = len;
+                // if glyph's within cache range, store it for later
+                if ( glyph < widthCacheSize && advances[i] < 0x100 )
+                    ((QFontEnginePM *)this)->widthCache[glyph] = advances[i];
+            }
+        }
+    }
+
+    *nglyphs = realLen;
     return NoError;
-
-//@@TODO (dmik): remove
-//    if ( *nglyphs < len ) {
-//      *nglyphs = len;
-//      return OutOfMemory;
-//    }
-//
-//    getGlyphIndexes( str, len, glyphs, mirrored );
-//
-//    if ( advances ) {
-//      HDC hdc = dc();
-//      unsigned int glyph;
-//      int overhang = (qt_winver & Qt::WV_DOS_based) ? tm.a.tmOverhang : 0;
-//      for( register int i = 0; i < len; i++ ) {
-//          glyph = *(glyphs + i);
-//          advances[i] = (glyph < widthCacheSize) ? widthCache[glyph] : 0;
-//          // font-width cache failed
-//          if ( !advances[i] ) {
-//              SIZE size;
-//              GetTextExtentPoint32W( hdc, (wchar_t *)str, 1, &size );
-//              advances[i] = size.cx - overhang;
-//              // if glyph's within cache range, store it for later
-//              if ( glyph < widthCacheSize && (size.cx - overhang) < 0x100 )
-//                  ((QFontEngineWin *)this)->widthCache[glyph] = size.cx - overhang;
-//          }
-//          str++;
-//      }
-//    }
-//
-//    *nglyphs = len;
-//    return NoError;
 }
 
@@ -456 +282 @@
 extern const LONG qt_ropCodes_2ROP[];
 
-void QFontEnginePM::draw( QPainter *p, int x, int y, const QTextEngine *engine, const QScriptItem *si, int textFlags )
+void QFontEnginePM::draw( QPainter *p, int x, int y, const QTextEngine
+                          *engine, const QScriptItem *si, int textFlags )
 {
     HPS ps = p->handle();
@@ -463 +290 @@
     advance_t *advances = engine->advances( si );
     qoffset_t *offsets = engine->offsets( si );
-
-    /// @todo (dmik)
-    //      glyphs here are just 8 bit chars (see stringToCMap()),
-    //      and glyph_t is temporarly defined as unsigned char.
-    //      it should be changed later.
-    PSZ cglyphs = (PSZ) glyphs;
-    /*
-    QConstString str( (QChar *)glyphs, si->num_glyphs );
-    QCString cglyphs = str.string().latin1();
-    */
 
     // GPI version of the opaque rectangle below the text is rather strange,
@@ -480 +297 @@
         GpiSetMix( ps, FM_LEAVEALONE );
         // use drawRect to have the rectangle properly transformed
-        /// @todo (dmik)
+        /// @todo (r=dmik)
         //      we don't add 1 to si->ascent + si->descent to exactly match
         //      QFontMetrics::boundingRect(). This stuff needs to be reviewed
@@ -563 +380 @@
 
     if ( p->txop == QPainter::TxTranslate ) {
-        p->map( x, y, &x, &y );
+        p->map( x, y, &x, &y );
     } else if ( p->txop > QPainter::TxTranslate ) {
         y = -y;
         ySign = -1;
         nativexform = p->setNativeXForm( TRUE /* assumeYNegation */ );
-        if( !nativexform )
-            return;
+        if( !nativexform )
+            return;
     }
 
@@ -598 +415 @@
         if ( haveOffsets ) {
             for( int i = 0; i < si->num_glyphs; i++ ) {
-                char chr = *glyphs;
                 ptl.x = x + offsets->x;
                 ptl.y = y + ySign * offsets->y;
@@ -604 +420 @@
                 if ( !nativexform && p->devh )
                     ptl.y = p->devh - (ptl.y + 1);
-                GpiCharStringPosAt( ps, &ptl, NULL, options, 1, &chr, NULL );
+                GpiCharStringPosAt( ps, &ptl, NULL, options,
+                                    queryGlyphSize( *glyphs ), (PCH) glyphs, NULL );
                 x += *advances;
                 glyphs++;
@@ -617 +434 @@
             if ( !nativexform && p->devh )
                 ptl.y = p->devh - (ptl.y + 1);
+            GpiMove( ps, &ptl );
             // draw glyphs in 512 char chunks: it's a GpiCharString* limitation
-            GpiMove( ps, &ptl );
-            for ( int i = 0; i < si->num_glyphs; i += 512 ) {  
-                GpiCharStringPos( ps, NULL, options | CHS_VECTOR,
-                    QMIN( si->num_glyphs - i, 512 ),  cglyphs, (PLONG) advances );
-                cglyphs += 512;
-                advances += 512;
+            advance_t adv[ 512 ];
+            char str[ 512 ];
+            int len = 0;
+            // convert "wide char" glyphs to a multi byte string
+            glyph_t *pg = glyphs;
+            advance_t *pa = advances;
+            for( int i = 0; i < si->num_glyphs; i++, pg++, pa++ ) {
+                str[ len ] = *pg & 0xFF;
+                adv[ len++ ] = *pa;
+
+                if( isDBCSGlyph( *pg ) ) {
+                    str[ len ] = ( *pg & 0xFF00 ) >> 8;
+                    adv[ len++ ] = 0;
+                }
+
+                if( len > 510 ) {
+                    GpiCharStringPos( ps, NULL, options | CHS_VECTOR, len, str, (PLONG) adv );
+                    len = 0;
+                }
             }
+
+            if( len > 0 )
+                GpiCharStringPos( ps, NULL, options | CHS_VECTOR, len, str, (PLONG) adv );
+
             x += w;
         }
     } else {
-        offsets += si->num_glyphs;
-        advances += si->num_glyphs;
-        glyphs += si->num_glyphs;
-        for( int i = 0; i < si->num_glyphs; i++ ) {
-            glyphs--;
-            offsets--;
-            advances--;
-            char chr = *glyphs;
-            ptl.x = x + offsets->x;
-            ptl.y = y + ySign * offsets->y;
+        offsets += si->num_glyphs;
+        advances += si->num_glyphs;
+        glyphs += si->num_glyphs;
+        for( int i = 0; i < si->num_glyphs; i++ ) {
+            glyphs--;
+            offsets--;
+            advances--;
+            ptl.x = x + offsets->x;
+            ptl.y = y + ySign * offsets->y;