git.oblomov.eu Git - wine/blob - dlls/riched20/writer.c

   1 /*
   2  * RichEdit - RTF writer module
   3  *
   4  * Copyright 2005 by Phil Krylov
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include "editor.h"
  22 #include "rtf.h"
  23
  24 WINE_DEFAULT_DEBUG_CHANNEL(richedit);
  25
  26
  27 static BOOL
  28 ME_StreamOutRTFText(ME_OutStream *pStream, WCHAR *text, LONG nChars);
  29
  30
  31 static ME_OutStream*
  32 ME_StreamOutInit(ME_TextEditor *editor, EDITSTREAM *stream)
  33 {
  34   ME_OutStream *pStream = ALLOC_OBJ(ME_OutStream);
  35   pStream->stream = stream;
  36   pStream->stream->dwError = 0;
  37   pStream->pos = 0;
  38   pStream->written = 0;
  39   pStream->nFontTblLen = 0;
  40   pStream->nColorTblLen = 1;
  41   return pStream;
  42 }
  43
  44
  45 static BOOL
  46 ME_StreamOutFlush(ME_OutStream *pStream)
  47 {
  48   LONG nStart = 0;
  49   LONG nWritten = 0;
  50   LONG nRemaining = 0;
  51   EDITSTREAM *stream = pStream->stream;
  52
  53   do {
  54     TRACE("sending %lu bytes\n", pStream->pos - nStart);
  55     /* Some apps seem not to set *pcb unless a problem arises, relying
  56       on initial random nWritten value, which is usually >STREAMOUT_BUFFER_SIZE */
  57     nRemaining = pStream->pos - nStart;
  58     nWritten = 0xDEADBEEF;
  59     stream->dwError = stream->pfnCallback(stream->dwCookie, (LPBYTE)pStream->buffer + nStart,
  60                                           pStream->pos - nStart, &nWritten);
  61     TRACE("error=%lu written=%lu\n", stream->dwError, nWritten);
  62     if (nWritten > (pStream->pos - nStart) || nWritten<0) {
  63       FIXME("Invalid returned written size *pcb: 0x%x (%ld) instead of %ld\n",
  64             (unsigned)nWritten, nWritten, nRemaining);
  65       nWritten = nRemaining;
  66     }
  67     if (nWritten == 0 || stream->dwError)
  68       return FALSE;
  69     pStream->written += nWritten;
  70     nStart += nWritten;
  71   } while (nStart < pStream->pos);
  72   pStream->pos = 0;
  73   return TRUE;
  74 }
  75
  76
  77 static LONG
  78 ME_StreamOutFree(ME_OutStream *pStream)
  79 {
  80   LONG written = pStream->written;
  81   TRACE("total length = %lu\n", written);
  82
  83   FREE_OBJ(pStream);
  84   return written;
  85 }
  86
  87
  88 static BOOL
  89 ME_StreamOutMove(ME_OutStream *pStream, const char *buffer, int len)
  90 {
  91   while (len) {
  92     int space = STREAMOUT_BUFFER_SIZE - pStream->pos;
  93     int fit = min(space, len);
  94
  95     TRACE("%u:%u:%.*s\n", pStream->pos, fit, fit, buffer);
  96     memmove(pStream->buffer + pStream->pos, buffer, fit);
  97     len -= fit;
  98     buffer += fit;
  99     pStream->pos += fit;
 100     if (pStream->pos == STREAMOUT_BUFFER_SIZE) {
 101       if (!ME_StreamOutFlush(pStream))
 102         return FALSE;
 103     }
 104   }
 105   return TRUE;
 106 }
 107
 108
 109 static BOOL
 110 ME_StreamOutPrint(ME_OutStream *pStream, const char *format, ...)
 111 {
 112   char string[STREAMOUT_BUFFER_SIZE]; /* This is going to be enough */
 113   int len;
 114   va_list valist;
 115
 116   va_start(valist, format);
 117   len = vsnprintf(string, sizeof(string), format, valist);
 118   va_end(valist);
 119
 120   return ME_StreamOutMove(pStream, string, len);
 121 }
 122
 123
 124 static BOOL
 125 ME_StreamOutRTFHeader(ME_OutStream *pStream, int dwFormat)
 126 {
 127   const char *cCharSet = NULL;
 128   UINT nCodePage;
 129   LANGID language;
 130   BOOL success;
 131
 132   if (dwFormat & SF_USECODEPAGE) {
 133     CPINFOEXW info;
 134
 135     switch (HIWORD(dwFormat)) {
 136       case CP_ACP:
 137         cCharSet = "ansi";
 138         nCodePage = GetACP();
 139         break;
 140       case CP_OEMCP:
 141         nCodePage = GetOEMCP();
 142         if (nCodePage == 437)
 143           cCharSet = "pc";
 144         else if (nCodePage == 850)
 145           cCharSet = "pca";
 146         else
 147           cCharSet = "ansi";
 148         break;
 149       case CP_UTF8:
 150         nCodePage = CP_UTF8;
 151         break;
 152       default:
 153         if (HIWORD(dwFormat) == CP_MACCP) {
 154           cCharSet = "mac";
 155           nCodePage = 10000; /* MacRoman */
 156         } else {
 157           cCharSet = "ansi";
 158           nCodePage = 1252; /* Latin-1 */
 159         }
 160         if (GetCPInfoExW(HIWORD(dwFormat), 0, &info))
 161           nCodePage = info.CodePage;
 162     }
 163   } else {
 164     cCharSet = "ansi";
 165     /* TODO: If the original document contained an \ansicpg value, retain it.
 166      * Otherwise, M$ richedit emits a codepage number determined from the
 167      * charset of the default font here. Anyway, this value is not used by
 168      * the reader... */
 169     nCodePage = GetACP();
 170   }
 171   if (nCodePage == CP_UTF8)
 172     success = ME_StreamOutPrint(pStream, "{\\urtf");
 173   else
 174     success = ME_StreamOutPrint(pStream, "{\\rtf1\\%s\\ansicpg%u\\uc1", cCharSet, nCodePage);
 175
 176   if (!success)
 177     return FALSE;
 178
 179   pStream->nDefaultCodePage = nCodePage;
 180
 181   /* FIXME: This should be a document property */
 182   /* TODO: handle SFF_PLAINRTF */
 183   language = GetUserDefaultLangID();
 184   if (!ME_StreamOutPrint(pStream, "\\deff0\\deflang%u\\deflangfe%u", language, language))
 185     return FALSE;
 186
 187   /* FIXME: This should be a document property */
 188   pStream->nDefaultFont = 0;
 189
 190   return TRUE;
 191 }
 192
 193
 194 static BOOL
 195 ME_StreamOutRTFFontAndColorTbl(ME_OutStream *pStream, ME_DisplayItem *pFirstRun, ME_DisplayItem *pLastRun)
 196 {
 197   ME_DisplayItem *item = pFirstRun;
 198   ME_FontTableItem *table = pStream->fonttbl;
 199   int i;
 200
 201   do {
 202     CHARFORMAT2W *fmt = &item->member.run.style->fmt;
 203     COLORREF crColor;
 204
 205     if (fmt->dwMask & CFM_FACE) {
 206       WCHAR *face = fmt->szFaceName;
 207       BYTE bCharSet = (fmt->dwMask & CFM_CHARSET) ? fmt->bCharSet : DEFAULT_CHARSET;
 208
 209       for (i = 0; i < pStream->nFontTblLen; i++)
 210         if (table[i].bCharSet == bCharSet
 211             && (table[i].szFaceName == face || !lstrcmpW(table[i].szFaceName, face)))
 212           break;
 213       if (i == pStream->nFontTblLen) {
 214         table[i].bCharSet = bCharSet;
 215         table[i].szFaceName = face;
 216         pStream->nFontTblLen++;
 217       }
 218     }
 219
 220     if (fmt->dwMask & CFM_COLOR && !(fmt->dwEffects & CFE_AUTOCOLOR)) {
 221       crColor = fmt->crTextColor;
 222       for (i = 1; i < pStream->nColorTblLen; i++)
 223         if (pStream->colortbl[i] == crColor)
 224           break;
 225       if (i == pStream->nColorTblLen) {
 226         pStream->colortbl[i] = crColor;
 227         pStream->nColorTblLen++;
 228       }
 229     }
 230     if (fmt->dwMask & CFM_BACKCOLOR && !(fmt->dwEffects & CFE_AUTOBACKCOLOR)) {
 231       crColor = fmt->crBackColor;
 232       for (i = 1; i < pStream->nColorTblLen; i++)
 233         if (pStream->colortbl[i] == crColor)
 234           break;
 235       if (i == pStream->nColorTblLen) {
 236         pStream->colortbl[i] = crColor;
 237         pStream->nColorTblLen++;
 238       }
 239     }
 240
 241     if (item == pLastRun)
 242       break;
 243     item = ME_FindItemFwd(item, diRun);
 244   } while (item);
 245
 246   if (!ME_StreamOutPrint(pStream, "{\\fonttbl"))
 247     return FALSE;
 248
 249   for (i = 0; i < pStream->nFontTblLen; i++) {
 250     if (table[i].bCharSet != DEFAULT_CHARSET) {
 251       if (!ME_StreamOutPrint(pStream, "{\\f%u\\fcharset%u ", i, table[i].bCharSet))
 252         return FALSE;
 253     } else {
 254       if (!ME_StreamOutPrint(pStream, "{\\f%u ", i))
 255         return FALSE;
 256     }
 257     if (!ME_StreamOutRTFText(pStream, table[i].szFaceName, -1))
 258       return FALSE;
 259     if (!ME_StreamOutPrint(pStream, ";}\r\n"))
 260       return FALSE;
 261   }
 262   if (!ME_StreamOutPrint(pStream, "}"))
 263     return FALSE;
 264
 265   /* Output colors table if not empty */
 266   if (pStream->nColorTblLen > 1) {
 267     if (!ME_StreamOutPrint(pStream, "{\\colortbl;"))
 268       return FALSE;
 269     for (i = 1; i < pStream->nColorTblLen; i++) {
 270       if (!ME_StreamOutPrint(pStream, "\\red%u\\green%u\\blue%u;",
 271                              pStream->colortbl[i] & 0xFF,
 272                              (pStream->colortbl[i] >> 8) & 0xFF,
 273                              (pStream->colortbl[i] >> 16) & 0xFF))
 274         return FALSE;
 275     }
 276     if (!ME_StreamOutPrint(pStream, "}"))
 277       return FALSE;
 278   }
 279
 280   return TRUE;
 281 }
 282
 283
 284 static BOOL
 285 ME_StreamOutRTFParaProps(ME_OutStream *pStream, ME_DisplayItem *para)
 286 {
 287   PARAFORMAT2 *fmt = para->member.para.pFmt;
 288   char props[STREAMOUT_BUFFER_SIZE] = "";
 289   int i;
 290
 291   if (para->member.para.pCells)
 292   {
 293     ME_TableCell *cell = para->member.para.pCells;
 294
 295     if (!ME_StreamOutPrint(pStream, "\\trowd"))
 296       return FALSE;
 297     do {
 298       sprintf(props, "\\cellx%d", cell->nRightBoundary);
 299       if (!ME_StreamOutPrint(pStream, props))
 300         return FALSE;
 301       cell = cell->next;
 302     } while (cell);
 303     props[0] = '\0';
 304   }
 305
 306   /* TODO: Don't emit anything if the last PARAFORMAT2 is inherited */
 307   if (!ME_StreamOutPrint(pStream, "\\pard"))
 308     return FALSE;
 309
 310   if (para->member.para.bTable)
 311     strcat(props, "\\intbl");
 312
 313   /* TODO: PFM_BORDER. M$ does not emit any keywords for these properties, and
 314    * when streaming border keywords in, PFM_BORDER is set, but wBorder field is
 315    * set very different from the documentation.
 316    * (Tested with RichEdit 5.50.25.0601) */
 317
 318   if (fmt->dwMask & PFM_ALIGNMENT) {
 319     switch (fmt->wAlignment) {
 320       case PFA_LEFT:
 321         /* Default alignment: not emitted */
 322         break;
 323       case PFA_RIGHT:
 324         strcat(props, "\\qr");
 325         break;
 326       case PFA_CENTER:
 327         strcat(props, "\\qc");
 328         break;
 329       case PFA_JUSTIFY:
 330         strcat(props, "\\qj");
 331         break;
 332     }
 333   }
 334
 335   if (fmt->dwMask & PFM_LINESPACING) {
 336     /* FIXME: MSDN says that the bLineSpacingRule field is controlled by the
 337      * PFM_SPACEAFTER flag. Is that true? I don't believe so. */
 338     switch (fmt->bLineSpacingRule) {
 339       case 0: /* Single spacing */
 340         strcat(props, "\\sl-240\\slmult1");
 341         break;
 342       case 1: /* 1.5 spacing */
 343         strcat(props, "\\sl-360\\slmult1");
 344         break;
 345       case 2: /* Double spacing */
 346         strcat(props, "\\sl-480\\slmult1");
 347         break;
 348       case 3:
 349         sprintf(props + strlen(props), "\\sl%ld\\slmult0", fmt->dyLineSpacing);
 350         break;
 351       case 4:
 352         sprintf(props + strlen(props), "\\sl-%ld\\slmult0", fmt->dyLineSpacing);
 353         break;
 354       case 5:
 355         sprintf(props + strlen(props), "\\sl-%ld\\slmult1", fmt->dyLineSpacing * 240 / 20);
 356         break;
 357     }
 358   }
 359
 360   if (fmt->dwMask & PFM_DONOTHYPHEN && fmt->wEffects & PFE_DONOTHYPHEN)
 361     strcat(props, "\\hyph0");
 362   if (fmt->dwMask & PFM_KEEP && fmt->wEffects & PFE_KEEP)
 363     strcat(props, "\\keep");
 364   if (fmt->dwMask & PFM_KEEPNEXT && fmt->wEffects & PFE_KEEPNEXT)
 365     strcat(props, "\\keepn");
 366   if (fmt->dwMask & PFM_NOLINENUMBER && fmt->wEffects & PFE_NOLINENUMBER)
 367     strcat(props, "\\noline");
 368   if (fmt->dwMask & PFM_NOWIDOWCONTROL && fmt->wEffects & PFE_NOWIDOWCONTROL)
 369     strcat(props, "\\nowidctlpar");
 370   if (fmt->dwMask & PFM_PAGEBREAKBEFORE && fmt->wEffects & PFE_PAGEBREAKBEFORE)
 371     strcat(props, "\\pagebb");
 372   if (fmt->dwMask & PFM_RTLPARA && fmt->wEffects & PFE_RTLPARA)
 373     strcat(props, "\\rtlpar");
 374   if (fmt->dwMask & PFM_SIDEBYSIDE && fmt->wEffects & PFE_SIDEBYSIDE)
 375     strcat(props, "\\sbys");
 376   if (fmt->dwMask & PFM_TABLE && fmt->dwMask & PFE_TABLE)
 377     strcat(props, "\\intbl");
 378
 379   if (fmt->dwMask & PFM_OFFSET)
 380     sprintf(props + strlen(props), "\\li%ld", fmt->dxOffset);
 381   if (fmt->dwMask & PFM_OFFSETINDENT || fmt->dwMask & PFM_STARTINDENT)
 382     sprintf(props + strlen(props), "\\fi%ld", fmt->dxStartIndent);
 383   if (fmt->dwMask & PFM_RIGHTINDENT)
 384     sprintf(props + strlen(props), "\\ri%ld", fmt->dxRightIndent);
 385   if (fmt->dwMask & PFM_SPACEAFTER)
 386     sprintf(props + strlen(props), "\\sa%ld", fmt->dySpaceAfter);
 387   if (fmt->dwMask & PFM_SPACEBEFORE)
 388     sprintf(props + strlen(props), "\\sb%ld", fmt->dySpaceBefore);
 389   if (fmt->dwMask & PFM_STYLE)
 390     sprintf(props + strlen(props), "\\s%d", fmt->sStyle);
 391
 392   if (fmt->dwMask & PFM_TABSTOPS) {
 393     static const char *leader[6] = { "", "\\tldot", "\\tlhyph", "\\tlul", "\\tlth", "\\tleq" };
 394
 395     for (i = 0; i < fmt->cTabCount; i++) {
 396       switch ((fmt->rgxTabs[i] >> 24) & 0xF) {
 397         case 1:
 398           strcat(props, "\\tqc");
 399           break;
 400         case 2:
 401           strcat(props, "\\tqr");
 402           break;
 403         case 3:
 404           strcat(props, "\\tqdec");
 405           break;
 406         case 4:
 407           /* Word bar tab (vertical bar). Handled below */
 408           break;
 409       }
 410       if (fmt->rgxTabs[i] >> 28 <= 5)
 411         strcat(props, leader[fmt->rgxTabs[i] >> 28]);
 412       sprintf(props+strlen(props), "\\tx%ld", fmt->rgxTabs[i]&0x00FFFFFF);
 413     }
 414   }
 415
 416
 417   if (fmt->dwMask & PFM_SHADING) {
 418     static const char *style[16] = { "", "\\bgdkhoriz", "\\bgdkvert", "\\bgdkfdiag",
 419                                      "\\bgdkbdiag", "\\bgdkcross", "\\bgdkdcross",
 420                                      "\\bghoriz", "\\bgvert", "\\bgfdiag",
 421                                      "\\bgbdiag", "\\bgcross", "\\bgdcross",
 422                                      "", "", "" };
 423     if (fmt->wShadingWeight)
 424       sprintf(props + strlen(props), "\\shading%d", fmt->wShadingWeight);
 425     if (fmt->wShadingStyle & 0xF)
 426       strcat(props, style[fmt->wShadingStyle & 0xF]);
 427     sprintf(props + strlen(props), "\\cfpat%d\\cbpat%d",
 428             (fmt->wShadingStyle >> 4) & 0xF, (fmt->wShadingStyle >> 8) & 0xF);
 429   }
 430
 431   if (*props && !ME_StreamOutPrint(pStream, props))
 432     return FALSE;
 433
 434   return TRUE;
 435 }
 436
 437
 438 static BOOL
 439 ME_StreamOutRTFCharProps(ME_OutStream *pStream, CHARFORMAT2W *fmt)
 440 {
 441   char props[STREAMOUT_BUFFER_SIZE] = "";
 442   int i;
 443
 444   if (fmt->dwMask & CFM_ALLCAPS && fmt->dwEffects & CFE_ALLCAPS)
 445     strcat(props, "\\caps");
 446   if (fmt->dwMask & CFM_ANIMATION)
 447     sprintf(props + strlen(props), "\\animtext%u", fmt->bAnimation);
 448   if (fmt->dwMask & CFM_BACKCOLOR) {
 449     if (!(fmt->dwEffects & CFE_AUTOBACKCOLOR)) {
 450       for (i = 1; i < pStream->nColorTblLen; i++)
 451         if (pStream->colortbl[i] == fmt->crBackColor) {
 452           sprintf(props + strlen(props), "\\cb%u", i);
 453           break;
 454         }
 455     }
 456   }
 457   if (fmt->dwMask & CFM_BOLD && fmt->dwEffects & CFE_BOLD)
 458     strcat(props, "\\b");
 459   if (fmt->dwMask & CFM_COLOR) {
 460     if (!(fmt->dwEffects & CFE_AUTOCOLOR)) {
 461       for (i = 1; i < pStream->nColorTblLen; i++)
 462         if (pStream->colortbl[i] == fmt->crTextColor) {
 463           sprintf(props + strlen(props), "\\cf%u", i);
 464           break;
 465         }
 466     }
 467   }
 468   /* TODO: CFM_DISABLED */
 469   if (fmt->dwMask & CFM_EMBOSS && fmt->dwEffects & CFE_EMBOSS)
 470     strcat(props, "\\embo");
 471   if (fmt->dwMask & CFM_HIDDEN && fmt->dwEffects & CFE_HIDDEN)
 472     strcat(props, "\\v");
 473   if (fmt->dwMask & CFM_IMPRINT && fmt->dwEffects & CFE_IMPRINT)
 474     strcat(props, "\\impr");
 475   if (fmt->dwMask & CFM_ITALIC && fmt->dwEffects & CFE_ITALIC)
 476     strcat(props, "\\i");
 477   if (fmt->dwMask & CFM_KERNING)
 478     sprintf(props + strlen(props), "\\kerning%u", fmt->wKerning);
 479   if (fmt->dwMask & CFM_LCID) {
 480     /* TODO: handle SFF_PLAINRTF */
 481     if (LOWORD(fmt->lcid) == 1024)
 482       strcat(props, "\\noproof\\lang1024\\langnp1024\\langfe1024\\langfenp1024");
 483     else
 484       sprintf(props + strlen(props), "\\lang%u", LOWORD(fmt->lcid));
 485   }
 486   /* CFM_LINK is not streamed out by M$ */
 487   if (fmt->dwMask & CFM_OFFSET) {
 488     if (fmt->yOffset >= 0)
 489       sprintf(props + strlen(props), "\\up%ld", fmt->yOffset);
 490     else
 491       sprintf(props + strlen(props), "\\dn%ld", -fmt->yOffset);
 492   }
 493   if (fmt->dwMask & CFM_OUTLINE && fmt->dwEffects & CFE_OUTLINE)
 494     strcat(props, "\\outl");
 495   if (fmt->dwMask & CFM_PROTECTED && fmt->dwEffects & CFE_PROTECTED)
 496     strcat(props, "\\protect");
 497   /* TODO: CFM_REVISED CFM_REVAUTHOR - probably using rsidtbl? */
 498   if (fmt->dwMask & CFM_SHADOW && fmt->dwEffects & CFE_SHADOW)
 499     strcat(props, "\\shad");
 500   if (fmt->dwMask & CFM_SIZE)
 501     sprintf(props + strlen(props), "\\fs%ld", fmt->yHeight / 10);
 502   if (fmt->dwMask & CFM_SMALLCAPS && fmt->dwEffects & CFE_SMALLCAPS)
 503     strcat(props, "\\scaps");
 504   if (fmt->dwMask & CFM_SPACING)
 505     sprintf(props + strlen(props), "\\expnd%u\\expndtw%u", fmt->sSpacing / 5, fmt->sSpacing);
 506   if (fmt->dwMask & CFM_STRIKEOUT && fmt->dwEffects & CFE_STRIKEOUT)
 507     strcat(props, "\\strike");
 508   if (fmt->dwMask & CFM_STYLE) {
 509     sprintf(props + strlen(props), "\\cs%u", fmt->sStyle);
 510     /* TODO: emit style contents here */
 511   }
 512   if (fmt->dwMask & (CFM_SUBSCRIPT | CFM_SUPERSCRIPT)) {
 513     if (fmt->dwEffects & CFE_SUBSCRIPT)
 514       strcat(props, "\\sub");
 515     else if (fmt->dwEffects & CFE_SUPERSCRIPT)
 516       strcat(props, "\\super");
 517   }
 518   if (fmt->dwMask & CFM_UNDERLINE || fmt->dwMask & CFM_UNDERLINETYPE) {
 519     if (fmt->dwMask & CFM_UNDERLINETYPE)
 520       switch (fmt->bUnderlineType) {
 521         case CFU_CF1UNDERLINE:
 522         case CFU_UNDERLINE:
 523           strcat(props, "\\ul");
 524           break;
 525         case CFU_UNDERLINEDOTTED:
 526           strcat(props, "\\uld");
 527           break;
 528         case CFU_UNDERLINEDOUBLE:
 529           strcat(props, "\\uldb");
 530           break;
 531         case CFU_UNDERLINEWORD:
 532           strcat(props, "\\ulw");
 533           break;
 534         case CFU_UNDERLINENONE:
 535         default:
 536           strcat(props, "\\ul0");
 537           break;
 538       }
 539     else if (fmt->dwEffects & CFE_UNDERLINE)
 540       strcat(props, "\\ul");
 541   }
 542   /* FIXME: How to emit CFM_WEIGHT? */
 543
 544   if (fmt->dwMask & CFM_FACE || fmt->dwMask & CFM_CHARSET) {
 545     WCHAR *szFaceName;
 546
 547     if (fmt->dwMask & CFM_FACE)
 548       szFaceName = fmt->szFaceName;
 549     else
 550       szFaceName = pStream->fonttbl[0].szFaceName;
 551     for (i = 0; i < pStream->nFontTblLen; i++) {
 552       if (szFaceName == pStream->fonttbl[i].szFaceName
 553           || !lstrcmpW(szFaceName, pStream->fonttbl[i].szFaceName))
 554         if (!(fmt->dwMask & CFM_CHARSET)
 555             || fmt->bCharSet == pStream->fonttbl[i].bCharSet)
 556           break;
 557     }
 558     if (i < pStream->nFontTblLen)
 559     {
 560       if (i != pStream->nDefaultFont)
 561         sprintf(props + strlen(props), "\\f%u", i);
 562
 563       /* In UTF-8 mode, charsets/codepages are not used */
 564       if (pStream->nDefaultCodePage != CP_UTF8)
 565       {
 566         if (pStream->fonttbl[i].bCharSet == DEFAULT_CHARSET)
 567           pStream->nCodePage = pStream->nDefaultCodePage;
 568         else
 569           pStream->nCodePage = RTFCharSetToCodePage(NULL, pStream->fonttbl[i].bCharSet);
 570       }
 571     }
 572   }
 573   if (*props)
 574     strcat(props, " ");
 575   if (!ME_StreamOutPrint(pStream, props))
 576     return FALSE;
 577   return TRUE;
 578 }
 579
 580
 581 static BOOL
 582 ME_StreamOutRTFText(ME_OutStream *pStream, WCHAR *text, LONG nChars)
 583 {
 584   char buffer[STREAMOUT_BUFFER_SIZE];
 585   int pos = 0;
 586   int fit, nBytes, i;
 587
 588   if (nChars == -1)
 589     nChars = lstrlenW(text);
 590
 591   while (nChars) {
 592     /* In UTF-8 mode, font charsets are not used. */
 593     if (pStream->nDefaultCodePage == CP_UTF8) {
 594       /* 6 is the maximum character length in UTF-8 */
 595       fit = min(nChars, STREAMOUT_BUFFER_SIZE / 6);
 596       nBytes = WideCharToMultiByte(CP_UTF8, 0, text, fit, buffer,
 597                                    STREAMOUT_BUFFER_SIZE, NULL, NULL);
 598       nChars -= fit;
 599       text += fit;
 600       for (i = 0; i < nBytes; i++)
 601         if (buffer[i] == '{' || buffer[i] == '}' || buffer[i] == '\\') {
 602           if (!ME_StreamOutPrint(pStream, "%.*s\\", i - pos, buffer + pos))
 603             return FALSE;
 604           pos = i;
 605         }
 606       if (pos < nBytes)
 607         if (!ME_StreamOutMove(pStream, buffer + pos, nBytes - pos))
 608           return FALSE;
 609       pos = 0;
 610     } else if (*text < 128) {
 611       if (*text == '{' || *text == '}' || *text == '\\')
 612         buffer[pos++] = '\\';
 613       buffer[pos++] = (char)(*text++);
 614       nChars--;
 615     } else {
 616       BOOL unknown = FALSE;
 617       char letter[3];
 618
 619       /* FIXME: In the MS docs for WideCharToMultiByte there is a big list of
 620        * codepages including CP_SYMBOL for which the last parameter must be set
 621        * to NULL for the function to succeed. But in Wine we need to care only
 622        * about CP_SYMBOL */
 623       nBytes = WideCharToMultiByte(pStream->nCodePage, 0, text, 1,
 624                                    letter, 3, NULL,
 625                                    (pStream->nCodePage == CP_SYMBOL) ? NULL : &unknown);
 626       if (unknown)
 627         pos += sprintf(buffer + pos, "\\u%d?", (short)*text);
 628       else if ((BYTE)*letter < 128) {
 629         if (*letter == '{' || *letter == '}' || *letter == '\\')
 630           buffer[pos++] = '\\';
 631         buffer[pos++] = *letter;
 632       } else {
 633          for (i = 0; i < nBytes; i++)
 634            pos += sprintf(buffer + pos, "\\'%02x", (BYTE)letter[i]);
 635       }
 636       text++;
 637       nChars--;
 638     }
 639     if (pos >= STREAMOUT_BUFFER_SIZE - 11) {
 640       if (!ME_StreamOutMove(pStream, buffer, pos))
 641         return FALSE;
 642       pos = 0;
 643     }
 644   }
 645   return ME_StreamOutMove(pStream, buffer, pos);
 646 }
 647
 648
 649 static BOOL
 650 ME_StreamOutRTF(ME_TextEditor *editor, ME_OutStream *pStream, int nStart, int nChars, int dwFormat)
 651 {
 652   ME_DisplayItem *p, *pEnd, *pPara;
 653   int nOffset, nEndLen;
 654
 655   ME_RunOfsFromCharOfs(editor, nStart, &p, &nOffset);
 656   ME_RunOfsFromCharOfs(editor, nStart+nChars, &pEnd, &nEndLen);
 657
 658   pPara = ME_GetParagraph(p);
 659
 660   if (!ME_StreamOutRTFHeader(pStream, dwFormat))
 661     return FALSE;
 662
 663   if (!ME_StreamOutRTFFontAndColorTbl(pStream, p, pEnd))
 664     return FALSE;
 665
 666   /* TODO: stylesheet table */
 667
 668   /* FIXME: maybe emit something smarter for the generator? */
 669   if (!ME_StreamOutPrint(pStream, "{\\*\\generator Wine Riched20 2.0.????;}"))
 670     return FALSE;
 671
 672   /* TODO: information group */
 673
 674   /* TODO: document formatting properties */
 675
 676   /* FIXME: We have only one document section */
 677
 678   /* TODO: section formatting properties */
 679
 680   if (!ME_StreamOutRTFParaProps(pStream, ME_GetParagraph(p)))
 681     return FALSE;
 682
 683   while(1)
 684   {
 685     switch(p->type)
 686     {
 687       case diParagraph:
 688         if (!ME_StreamOutRTFParaProps(pStream, p))
 689           return FALSE;
 690         pPara = p;
 691         break;
 692       case diRun:
 693         if (p == pEnd && !nEndLen)
 694           break;
 695         TRACE("flags %xh\n", p->member.run.nFlags);
 696         /* TODO: emit embedded objects */
 697         if (p->member.run.nFlags & MERF_GRAPHICS)
 698           FIXME("embedded objects are not handled\n");
 699         if (p->member.run.nFlags & MERF_CELL) {
 700           if (!ME_StreamOutPrint(pStream, "\\cell "))
 701             return FALSE;
 702           nChars--;
 703         } else if (p->member.run.nFlags & MERF_ENDPARA) {
 704           if (pPara->member.para.bTable) {
 705             if (!ME_StreamOutPrint(pStream, "\\row \r\n"))
 706               return FALSE;
 707           } else {
 708             if (!ME_StreamOutPrint(pStream, "\r\n\\par"))
 709               return FALSE;
 710           }
 711           nChars--;
 712           if (editor->bEmulateVersion10 && nChars)
 713             nChars--;
 714         } else {
 715           int nEnd;
 716
 717           if (!ME_StreamOutPrint(pStream, "{"))
 718             return FALSE;
 719           TRACE("style %p\n", p->member.run.style);
 720           if (!ME_StreamOutRTFCharProps(pStream, &p->member.run.style->fmt))
 721             return FALSE;
 722
 723           nEnd = (p == pEnd) ? nEndLen : ME_StrLen(p->member.run.strText);
 724           if (!ME_StreamOutRTFText(pStream, p->member.run.strText->szData + nOffset, nEnd - nOffset))
 725             return FALSE;
 726           nOffset = 0;
 727           if (!ME_StreamOutPrint(pStream, "}"))
 728             return FALSE;
 729         }
 730         break;
 731       default: /* we missed the last item */
 732         assert(0);
 733     }
 734     if (p == pEnd)
 735       break;
 736     p = ME_FindItemFwd(p, diRunOrParagraphOrEnd);
 737   }
 738   if (!ME_StreamOutPrint(pStream, "}"))
 739     return FALSE;
 740   return TRUE;
 741 }
 742
 743
 744 static BOOL
 745 ME_StreamOutText(ME_TextEditor *editor, ME_OutStream *pStream, int nStart, int nChars, DWORD dwFormat)
 746 {
 747   /* FIXME: use ME_RunOfsFromCharOfs */
 748   ME_DisplayItem *item = ME_FindItemAtOffset(editor, diRun, nStart, &nStart);
 749   int nLen;
 750   UINT nCodePage = CP_ACP;
 751   char *buffer = NULL;
 752   int nBufLen = 0;
 753   BOOL success = TRUE;
 754
 755   if (!item)
 756     return FALSE;
 757
 758   if (dwFormat & SF_USECODEPAGE)
 759     nCodePage = HIWORD(dwFormat);
 760
 761   /* TODO: Handle SF_TEXTIZED */
 762
 763   while (success && nChars && item) {
 764     nLen = ME_StrLen(item->member.run.strText) - nStart;
 765     if (nLen > nChars)
 766       nLen = nChars;
 767
 768     if (item->member.run.nFlags & MERF_ENDPARA) {
 769       static const WCHAR szEOL[2] = { '\r', '\n' };
 770
 771       if (dwFormat & SF_UNICODE)
 772         success = ME_StreamOutMove(pStream, (const char *)szEOL, sizeof(szEOL));
 773       else
 774         success = ME_StreamOutMove(pStream, "\r\n", 2);
 775     } else {
 776       if (dwFormat & SF_UNICODE)
 777         success = ME_StreamOutMove(pStream, (const char *)(item->member.run.strText->szData + nStart),
 778                                    sizeof(WCHAR) * nLen);
 779       else {
 780         int nSize;
 781
 782         nSize = WideCharToMultiByte(nCodePage, 0, item->member.run.strText->szData + nStart,
 783                                     nLen, NULL, 0, NULL, NULL);
 784         if (nSize > nBufLen) {
 785           if (buffer)
 786             FREE_OBJ(buffer);
 787           buffer = ALLOC_N_OBJ(char, nSize);
 788           nBufLen = nSize;
 789         }
 790         WideCharToMultiByte(nCodePage, 0, item->member.run.strText->szData + nStart,
 791                             nLen, buffer, nSize, NULL, NULL);
 792         success = ME_StreamOutMove(pStream, buffer, nSize);
 793       }
 794     }
 795
 796     nChars -= nLen;
 797     if (editor->bEmulateVersion10 && nChars && item->member.run.nFlags & MERF_ENDPARA)
 798       nChars--;
 799     nStart = 0;
 800     item = ME_FindItemFwd(item, diRun);
 801   }
 802
 803   if (buffer)
 804     FREE_OBJ(buffer);
 805   return success;
 806 }
 807
 808
 809 LRESULT
 810 ME_StreamOutRange(ME_TextEditor *editor, DWORD dwFormat, int nStart, int nTo, EDITSTREAM *stream)
 811 {
 812   ME_OutStream *pStream = ME_StreamOutInit(editor, stream);
 813
 814   if (nTo == -1)
 815   {
 816     nTo = ME_GetTextLength(editor);
 817     /* Generate an end-of-paragraph at the end of SCF_ALL RTF output */
 818     if (dwFormat & SF_RTF)
 819       nTo++;
 820   }
 821   TRACE("from %d to %d\n", nStart, nTo);
 822
 823   if (dwFormat & SF_RTF)
 824     ME_StreamOutRTF(editor, pStream, nStart, nTo - nStart, dwFormat);
 825   else if (dwFormat & SF_TEXT || dwFormat & SF_TEXTIZED)
 826     ME_StreamOutText(editor, pStream, nStart, nTo - nStart, dwFormat);
 827   if (!pStream->stream->dwError)
 828     ME_StreamOutFlush(pStream);
 829   return ME_StreamOutFree(pStream);
 830 }
 831
 832 LRESULT
 833 ME_StreamOut(ME_TextEditor *editor, DWORD dwFormat, EDITSTREAM *stream)
 834 {
 835   int nStart, nTo;
 836
 837   if (dwFormat & SFF_SELECTION)
 838     ME_GetSelection(editor, &nStart, &nTo);
 839   else {
 840     nStart = 0;
 841     nTo = -1;
 842   }
 843   return ME_StreamOutRange(editor, dwFormat, nStart, nTo, stream);
 844 }