Multi line comment fix (#2303)

* F# parsing, tiral to add multi-line text string support, not working yet

* updates

Author: Thorium

Externals/crystaledit/editlib/parsers/fsharp.cpp

@@ -158,6 +158,7 @@ static const tchar_t * s_apszFsKeywordList[] =
     _T("Char"),
     _T("DateTime"),
     _T("Decimal"),
+    _T("Guid"),
     _T("Int16"),
     _T("Int32"),
     _T("Int64"),
@@ -197,17 +198,20 @@ unsigned
 CrystalLineParser::ParseLineFSharp (unsigned dwCookie, const tchar_t *pszChars, int nLength, TEXTBLOCK * pBuf, int &nActualItems)
 {
     if (nLength == 0)
-        return dwCookie & COOKIE_EXT_COMMENT;
+        return dwCookie & (COOKIE_EXT_COMMENT | COOKIE_RAWSTRING);
 
-    bool bFirstChar = (dwCookie & ~COOKIE_EXT_COMMENT) == 0;
+    bool bFirstChar = (dwCookie & ~COOKIE_EXT_COMMENT & ~COOKIE_RAWSTRING) == 0;
     const tchar_t* pszCommentBegin = nullptr;
     const tchar_t* pszCommentEnd = nullptr;
+    const tchar_t* pszTextBegin = nullptr;
+    const tchar_t* pszTextEnd = nullptr;
     bool bRedefineBlock = true;
     bool bDecIndex = false;
     int nIdentBegin = -1;
     int nPrevI = -1;
+    int nPrevII = -2;
     int I = 0;
-    for (I = 0;; nPrevI = I, I = static_cast<int>(tc::tcharnext(pszChars + I) - pszChars))
+    for (I = 0;; nPrevII=nPrevI, nPrevI = I, I = static_cast<int>(tc::tcharnext(pszChars + I) - pszChars))
     {
         if (I == nPrevI)
         {
@@ -225,7 +229,7 @@ CrystalLineParser::ParseLineFSharp (unsigned dwCookie, const tchar_t *pszChars,
             {
                 DEFINE_BLOCK(nPos, COLORINDEX_COMMENT);
             }
-            else if (dwCookie & (COOKIE_CHAR | COOKIE_STRING))
+            else if (dwCookie & (COOKIE_CHAR | COOKIE_STRING | COOKIE_RAWSTRING))
             {
                 DEFINE_BLOCK(nPos, COLORINDEX_STRING);
             }
@@ -305,6 +309,25 @@ CrystalLineParser::ParseLineFSharp (unsigned dwCookie, const tchar_t *pszChars,
             break;
         }
 
+        //  Multi-line string constant """...."""
+        if (dwCookie & COOKIE_RAWSTRING)
+        {
+            if ((pszTextBegin < pszChars + I) && (I > 1 && pszChars[I] == '"' && pszChars[nPrevI] == '"' && pszChars[nPrevII] == '"'))
+            {
+                dwCookie &= ~COOKIE_RAWSTRING;
+                bRedefineBlock = true;
+                pszTextEnd = pszChars + I + 2;
+            }
+            continue;
+        }
+
+        if ((pszTextEnd < pszChars + I) && (I > 1 && pszChars[I] == '"' && pszChars[nPrevI] == '"' && pszChars[nPrevII] == '"'))
+        {
+            DEFINE_BLOCK(nPrevII, COLORINDEX_STRING);
+            dwCookie |= COOKIE_RAWSTRING;
+            break;
+        }
+
         //  Preprocessor directive #....
         if (dwCookie & COOKIE_PREPROCESSOR)
         {
@@ -313,11 +336,17 @@ CrystalLineParser::ParseLineFSharp (unsigned dwCookie, const tchar_t *pszChars,
                 DEFINE_BLOCK(nPrevI, COLORINDEX_COMMENT);
                 dwCookie |= COOKIE_EXT_COMMENT;
             }
+            if ((pszTextEnd < pszChars + I) && (I > 1 && pszChars[I] == '"' && pszChars[nPrevI] == '"' && pszChars[nPrevII] == '"'))
+            {
+                DEFINE_BLOCK(nPrevII, COLORINDEX_STRING);
+                dwCookie |= COOKIE_RAWSTRING;
+                break;
+            }
             continue;
         }
 
         //  Normal text
-        if (pszChars[I] == '"')
+        if (pszChars[I] == '"' && (I < 2 || pszChars[nPrevI] != '"' || pszChars[nPrevII] != '"'))
         {
             DEFINE_BLOCK(I, COLORINDEX_STRING);
             dwCookie |= COOKIE_STRING;
@@ -340,6 +369,13 @@ CrystalLineParser::ParseLineFSharp (unsigned dwCookie, const tchar_t *pszChars,
             pszCommentBegin = pszChars + I + 1;
             continue;
         }
+        if ((pszTextEnd < pszChars + I) && (I > 1 && pszChars[I] == '"' && pszChars[nPrevI] == '"' && pszChars[nPrevII] == '"'))
+        {
+            DEFINE_BLOCK(nPrevII, COLORINDEX_STRING);
+            dwCookie |= COOKIE_RAWSTRING;
+            pszTextBegin = pszChars + I + 1;
+            continue;
+        }
 
         if (bFirstChar)
         {
@@ -443,6 +479,7 @@ CrystalLineParser::ParseLineFSharp (unsigned dwCookie, const tchar_t *pszChars,
     }
 
     if (pszChars[nLength - 1] != '\\' || IsMBSTrail(pszChars, nLength - 1))
-        dwCookie &= COOKIE_EXT_COMMENT;
+        dwCookie &= (COOKIE_EXT_COMMENT | COOKIE_RAWSTRING);
+
     return dwCookie;
 }