From 5d2b52ba9b76a51cc9a99cfc477f36836656e71c Mon Sep 17 00:00:00 2001
From: Keita Haga <keitahaga@mail.com>
Date: Sun, 20 Mar 2011 17:37:50 +0900
Subject: [PATCH] misc/vim/syntax/factor.vim: add support for escape characters

---
 misc/factor.vim.fgen       | 8 +++++---
 misc/vim/syntax/factor.vim | 8 +++++---
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/misc/factor.vim.fgen b/misc/factor.vim.fgen
index 0d446420cc..340f9e374e 100644
--- a/misc/factor.vim.fgen
+++ b/misc/factor.vim.fgen
@@ -12,7 +12,7 @@ IN: factor.vim.fgen
 " Vim syntax file
 " Language: Factor
 " Maintainer: Alex Chapman <chapman.alex@gmail.com>
-" Last Change: 2011 Mar 18
+" Last Change: 2011 Mar 20
 " To run: USING: html.templates html.templates.fhtml ; "resource:misc/factor.vim.fgen" <fhtml> call-template
 
 " For version 5.x: Clear all syntax items
@@ -150,8 +150,9 @@ syn cluster factorWordOps       contains=factorConstant,factorAlias,factorSingle
 " LIBRARY:
 "#\ "
 
-syn region factorString start=/\<"/ skip=/\\"/ end=/"/
-syn region factorTriString start=/\<"""/ skip=/\\"/ end=/"""/
+syn match factorEscape /\\\(\\\|s\|t\|n\|r\|0\|e\|\"\|u\x\{6\}\|u{\S\+}\)/ contained
+syn region factorString start=/\<"/ skip=/\\"/ end=/"/ contains=factorEscape
+syn region factorTriString start=/\<"""/ skip=/\\"/ end=/"""/ contains=factorEscape
 syn region factorSbuf start=/\<[-a-zA-Z0-9]\+"\>/ skip=/\\"/ end=/"/
 
 syn region factorMultiString matchgroup=factorMultiStringDelims start=/\<STRING:\s\+\S\+\>/ end=/^;$/ contains=factorMultiStringContents
@@ -235,6 +236,7 @@ if version >= 508 || !exists("did_factor_syn_inits")
     HiLink factorPrivateMethodDelims    Special
     HiLink factorPGenericDelims         Special
     HiLink factorPGenericNDelims        Special
+    HiLink factorEscape                 SpecialChar
     HiLink factorString                 String
     HiLink factorTriString              String
     HiLink factorSbuf                   String
diff --git a/misc/vim/syntax/factor.vim b/misc/vim/syntax/factor.vim
index 8e827368b7..1f0f15528f 100644
--- a/misc/vim/syntax/factor.vim
+++ b/misc/vim/syntax/factor.vim
@@ -1,7 +1,7 @@
 " Vim syntax file
 " Language: Factor
 " Maintainer: Alex Chapman <chapman.alex@gmail.com>
-" Last Change: 2011 Mar 18
+" Last Change: 2011 Mar 20
 " To run: USING: html.templates html.templates.fhtml ; "resource:misc/factor.vim.fgen" <fhtml> call-template
 
 " For version 5.x: Clear all syntax items
@@ -137,8 +137,9 @@ syn cluster factorWordOps       contains=factorConstant,factorAlias,factorSingle
 " LIBRARY:
 "#\ "
 
-syn region factorString start=/\<"/ skip=/\\"/ end=/"/
-syn region factorTriString start=/\<"""/ skip=/\\"/ end=/"""/
+syn match factorEscape /\\\(\\\|s\|t\|n\|r\|0\|e\|\"\|u\x\{6\}\|u{\S\+}\)/ contained
+syn region factorString start=/\<"/ skip=/\\"/ end=/"/ contains=factorEscape
+syn region factorTriString start=/\<"""/ skip=/\\"/ end=/"""/ contains=factorEscape
 syn region factorSbuf start=/\<[-a-zA-Z0-9]\+"\>/ skip=/\\"/ end=/"/
 
 syn region factorMultiString matchgroup=factorMultiStringDelims start=/\<STRING:\s\+\S\+\>/ end=/^;$/ contains=factorMultiStringContents
@@ -222,6 +223,7 @@ if version >= 508 || !exists("did_factor_syn_inits")
     HiLink factorPrivateMethodDelims    Special
     HiLink factorPGenericDelims         Special
     HiLink factorPGenericNDelims        Special
+    HiLink factorEscape                 SpecialChar
     HiLink factorString                 String
     HiLink factorTriString              String
     HiLink factorSbuf                   String