added new lexer configs auto-generated by scite2co.lua

 * these are still not all languages supported by Scintilla.
   scite2co.lua does not do a good job of generating styles when
   SciTE's property files use hardcoded colors/fonts.
   This commit only includes reasonably good conversion results.
   The remaining languages need some additional manual labor.
 * Even these lexers are not perfect and should be revised by comparing
   them with SciTE's properties.
 * So many lexers make the "lexer.auto" macro too slow.
   We need some optimization. E.g. the search-command optimization
   described in TODO, or an extended EN command for globbing manually
   specified file names.

1 files changed, 40 insertions, 0 deletions

diff --git a/lib/lexers/scheme.tes b/lib/lexers/scheme.tes
new file mode 100644
index 0000000..5ad6db6
--- /dev/null
+++ b/lib/lexers/scheme.tes
@@ -0,0 +1,40 @@
+! AUTO-GENERATED FROM SCITE PROPERTY SET !
+
+@[lexer.test.scheme]{ [_
+  _.[scm,smd,ss]M[lexer.checkname]
+]_ }
+
+@[lexer.set.scheme]{
+  ESSETLEXER,SCLEX_LISP
+  0ESSETKEYWORDS
+    + - * / = < > <= >= => abs acos and angle append apply asin assoc assoc assq
+    assv atan begin boolean? caar cadr call-with-current-continuation call/cc
+    call-with-input-file call-with-output-file call-with-values car cdr caar cadr cdar cddr caaar
+    caadr cadar caddr cdaar cdadr cddar cdddr caaaar caaadr caadar caaddr cadaar
+    cadadr caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr case
+    ceiling char->integer char-alphabetic? char-ci<=? char-ci<? char-ci=? char-ci>=?
+    char-ci>? char-downcase char-lower-case? char-numeric? char-ready? char-upcase
+    char-upper-case? char-whitespace? char<=? char<? char=? char>=? char>? char? close-input-port
+    close-output-port complex? cond cons cos current-input-port current-output-port define
+    define-syntax delay denominator display do dynamic-wind else eof-object? eq? equal? eqv?
+    eval even? exact->inexact exact? exp expt floor for-each force gcd if imag-part
+    inexact->exact inexact? input-port? integer->char integer? interaction-environment lambda
+    lcm length let let* let-syntax letrec letrec-syntax list list->string
+    list->vector list-ref list-tail list? load log magnitude make-polar make-rectangular
+    make-string make-vector map max member memq memv min modulo negative? newline not
+    null-environment null? number->string number? numerator odd? open-input-file open-output-file
+    or output-port? pair? peek-char input-port? output-port? positive? procedure?
+    quasiquote quote quotient rational? rationalize read read-char real-part real?
+    remainder reverse round scheme-report-environment set! set-car! set-cdr! sin sqrt
+    string string->list string->number string->symbol string-append string-ci<=?
+    string-ci<? string-ci=? string-ci>=? string-ci>? string-copy string-fill! string-length
+    string-ref string-set! string<=? string<? string=? string>=? string>? string? substring
+    symbol->string symbol? syntax-rules transcript-off transcript-on truncate unquote
+    unquote-splicing values vector vector->list vector-fill! vector-length vector-ref vector-set!
+    vector? with-input-from-file with-output-to-file write write-char zero?
+  :M[color.comment],1M[color.set]
+  :M[color.number],2M[color.set]
+  :M[color.keyword],3M[color.set]
+  :M[color.string],6M[color.set]
+  :M[color.operator],10M[color.set]
+}