From 36dcb21857fbab76e4026311d334e762f11f17b4 Mon Sep 17 00:00:00 2001 From: "Jose A. Ortega Ruiz" Date: Sat, 10 Jan 2009 06:40:01 +0100 Subject: [PATCH] FUEL: Font lock for integers, floats and ratios. --- misc/fuel/fuel-font-lock.el | 6 +++++- misc/fuel/fuel-syntax.el | 10 ++++++++-- 2 files changed, 13 insertions(+), 3 deletions(-) diff --git a/misc/fuel/fuel-font-lock.el b/misc/fuel/fuel-font-lock.el index 45fd0758d5..bcddf82d18 100644 --- a/misc/fuel/fuel-font-lock.el +++ b/misc/fuel/fuel-font-lock.el @@ -55,6 +55,8 @@ ((comment comment "comments") (constructor type "constructors ()") (constant constant "constants and literal values") + (number constant "integers and floats") + (ratio constant "ratios") (declaration keyword "declaration words") (parsing-word keyword "parsing words") (setter-word function-name "setter words (>>foo)") @@ -80,7 +82,9 @@ (,fuel-syntax--alias-definition-regex (1 'factor-font-lock-word) (2 'factor-font-lock-word)) (,fuel-syntax--int-constant-def-regex 2 'factor-font-lock-constant) - (,fuel-syntax--number-regex . 'factor-font-lock-constant) + (,fuel-syntax--integer-regex . 'factor-font-lock-number) + (,fuel-syntax--float-regex . 'factor-font-lock-number) + (,fuel-syntax--ratio-regex . 'factor-font-lock-ratio) (,fuel-syntax--type-definition-regex 2 'factor-font-lock-type-name) (,fuel-syntax--method-definition-regex (1 'factor-font-lock-type-name) (2 'factor-font-lock-word)) diff --git a/misc/fuel/fuel-syntax.el b/misc/fuel/fuel-syntax.el index 0d85cf897e..93274c5160 100644 --- a/misc/fuel/fuel-syntax.el +++ b/misc/fuel/fuel-syntax.el @@ -84,8 +84,14 @@ (defconst fuel-syntax--method-definition-regex "^M: +\\([^ ]+\\) +\\([^ ]+\\)") -(defconst fuel-syntax--number-regex - "\\_<\\(\\+\\|-\\)?\\([0-9]+\\.?[0-9]*\\|\\.[0-9]+\\)\\([eE]\\(\\+\\|-\\)?[0-9]+\\)?\\_>") +(defconst fuel-syntax--integer-regex + "\\_<-?[0-9]+\\_>") + +(defconst fuel-syntax--ratio-regex + "\\_<-?\\([0-9]+\\+\\)?[0-9]+/-?[0-9]+\\_>") + +(defconst fuel-syntax--float-regex + "\\_<-?[0-9]+\\.[0-9]*\\([eE]-?[0-9]+\\)?\\_>") (defconst fuel-syntax--word-definition-regex (fuel-syntax--second-word-regex