Changeset 16490 for util

Timestamp:

05/22/07 00:41:32 (18 months ago)

Author:

renormalist

Message:

- cperl-mode.el: role handling analogue to class|package

Files:

• util/cperl-mode.el (modified) (14 diffs)

util/cperl-mode.el

@@ -1470 +1470 @@
 ;;;
 ;;;  Highlighting new keywords/builtins:
-;;;    class,
+;;;    class, role, 
 ;;;    has, state, does,
 ;;;    say,
@@ -1485 +1485 @@
 ;;;    "Complex" "Exception" "Seq" "Range" "Set" "Junction" "Pair" "Mapping" "Signature" "Capture",
 ;;;    "Bool" "Array" "Hash" "IO" "Code" "Routine" "Sub" "Method" "Submethod",
-;;;    "Macro" "Rule" "Block" "Bare" "Parametric" "Package" "Module" "Class",
+;;;    "Macro" "Rule" "Block" "Bare" "Parametric" "Package" "Module" "Class", "Role",
 ;;;    "Object" "Grammar" "List" "Lazy" "Eager",
 ;;;    "Real" "Scalar" "int8" "Socket"
@@ -2098 +2098 @@
    (save-excursion
      (beginning-of-buffer)
-     (search-forward-regexp "^[\t ]*\\(use v6\\|class[\t ]+.*;\\)" 320 t))))
+     (search-forward-regexp "^[\t ]*\\(use v6\\|\\(class\\|role\\)[\t ]+.*;\\)" 320 t))))
 
 (if cperl-can-font-lock
@@ -6966 +6966 @@
                     (forward-sexp -1)
                     ;; else {}     but not    else::func {}
-                    (or (and (looking-at "\\(else\\|class\\|\\|continue\\|grep\\|map\\|gather\\|async\\|atomically\\|given\\|when\\|default\\|loop\\|for\\|BEGIN\\|END\\|CHECK\\|INIT\\|START\\|FIRST\\|ENTER\\|LEAVE\\|KEEP\\|UNDO\\|NEXT\\|LAST\\|PRE\\|POST\\|CATCH\\|CONTROL\\|\\(\\(multi\\|proto\\)[ \t]*\\)?\\(coro\\|sub\\|method\\|submethod\\)?\\)\\>")
+                    (or (and (looking-at "\\(else\\|class\\|role\\|continue\\|grep\\|map\\|gather\\|async\\|atomically\\|given\\|when\\|default\\|loop\\|for\\|BEGIN\\|END\\|CHECK\\|INIT\\|START\\|FIRST\\|ENTER\\|LEAVE\\|KEEP\\|UNDO\\|NEXT\\|LAST\\|PRE\\|POST\\|CATCH\\|CONTROL\\|\\(\\(multi\\|proto\\)[ \t]*\\)?\\(coro\\|sub\\|method\\|submethod\\)?\\)\\>")
                              (not (looking-at "\\(\\sw\\|_\\)+::")))
                         ;; sub f {}
@@ -6983 +6983 @@
                 ;; perl6: todo: correct in P5? Then use-v6'ify!
                 (beginning-of-line)
-                (looking-at "\\s *}?\\s *\\(\\(els\\(e\\s +\\|\\)\\)?if\\|un\\(less\\|til\\)\\|class\\|gather\\|async\\|atomically\\|given\\|wh\\(ile\\|en\\)\\|loop\\|for\\|\\(\\(multi\\|proto\\)[ \t]*\\)?\\(coro\\|sub\\|method\\|submethod\\)?\\)\\>"))))
+                (looking-at "\\s *}?\\s *\\(\\(els\\(e\\s +\\|\\)\\)?if\\|un\\(less\\|til\\)\\|class\\|role\\|gather\\|async\\|atomically\\|given\\|wh\\(ile\\|en\\)\\|loop\\|for\\|\\(\\(multi\\|proto\\)[ \t]*\\)?\\(coro\\|sub\\|method\\|submethod\\)?\\)\\>"))))
       (error nil))))
 
@@ -7788 +7788 @@
              "given" "when" "default" "has" "returns" "of" "is" "does"
              "\\(\\(multi\\|proto\\)[ \t]*\\)?\\(coro\\|sub\\|method\\|submethod\\)?"
-             "class" "try")
+             "class" "role" "try")
                "\\|")                   ; Flow control
               "\\)\\>") 2)              ; was "\\)[ \n\t;():,\|&]"
@@ -7867 +7867 @@
               ;; bit" "int" "str" "num" "ref" "bool" "Bit" "Int" "Str" "Num" "Ref"
               ;; Bool" "Array" "Hash" "IO" "Code" "Routine" "Sub" "Method" "Submethod"
-              ;; Macro" "Rule" "Block" "Bare" "Parametric" "Package" "Module" "Class"
+              ;; Macro" "Rule" "Block" "Bare" "Parametric" "Package" "Module" "Class" "Role"
               ;; Object" "Grammar" "List" "Lazy" "Eager" 
               ;; Real" "Scalar" "int8" "Socket"
@@ -7873 +7873 @@
                   "Complex\\|Exception\\|Seq\\|Range\\|Set\\|Junction\\|Pair\\|Mapping\\|Signature\\|Capture\\|"
               "Bool\\|Array\\|Hash\\|IO\\|Code\\|Routine\\|Sub\\|Method\\|Submethod\\|"
-              "Macro\\|Rule\\|Block\\|Bare\\|Parametric\\|Package\\|Module\\|Class\\|"
+              "Macro\\|Rule\\|Block\\|Bare\\|Parametric\\|Package\\|Module\\|Class\\|Role\\|"
               "Object\\|Grammar\\|List\\|Lazy\\|Eager\\|"
               "Real\\|Scalar\\|int8\\|Socket\\|"
@@ -7890 +7890 @@
               ;; "grep" "has" "if" "keys" "kv" "last" "local" "loop" "map" "my" "next"
               ;; "no" "our" "pairs" "package" "pop" "pos" "pick" "print" "printf" "push"
-              ;; "q" "qq" "qw" "qx" "redo" "rx" "reduce" "return" "say" "scalar" "shift"
+              ;; "q" "qq" "qw" "qx" "redo" "rx" "reduce" "return" "role" "say" "scalar" "shift"
               ;; "sort" "splice" "split" "study" "state" "sum" "take" "type" "sub" "tie" "tr"
               ;; "undef" "uniq" "unless" "unshift" "untie" "until" "uniq" "use"
@@ -7899 +7899 @@
               "l\\(ast\\|o\\(cal\\|op\\)\\)\\|m\\(a\\(p\\|x\\)\\|in\\|y\\)\\|n\\(ext\\|o\\)\\|our\\|"
               "p\\(a\\(ckage\\|irs\\)\\|ick\\|rint\\(\\|f\\)\\|ush\\|o\\(p\\|s\\)\\)\\|"
-              "q\\(\\|q\\|w\\|x\\|r\\)\\|rx\\|re\\(turn\\|d\\(o\\|uce\\)\\)\\|s\\(ay\\|pli\\(ce\\|t\\)\\|"
+              "q\\(\\|q\\|w\\|x\\|r\\)\\|rx\\|re\\(turn\\|d\\(o\\|uce\\)\\)\\|role\\|s\\(ay\\|pli\\(ce\\|t\\)\\|"
               "calar\\|t\\(udy\\|ate\\)\\|u\\(b\\|m\\)\\|hift\\|ort\\)\\|t\\(r\\|ie\\|ype\\|aken?\\)\\|"
               "u\\(se\\|n\\(iq\\|shift\\|ti\\(l\\|e\\)\\|def\\|less\\)\\)\\|"
@@ -7938 +7938 @@
                              'font-lock-function-name-face
                            'font-lock-variable-name-face))))
-            '("\\<\\(package\\|class\\|require\\|use\\|import\\|no\\|bootstrap\\)[ \t]+\\([a-zA-z_][a-zA-z_0-9:]*\\)[ \t;]" ; require A if B;
+            '("\\<\\(package\\|class\\|role\\|require\\|use\\|import\\|no\\|bootstrap\\)[ \t]+\\([a-zA-z_][a-zA-z_0-9:]*\\)[ \t;]" ; require A if B;
               2 font-lock-function-name-face)
             '("^[ \t]*format[ \t]+\\([a-zA-z_][a-zA-z_0-9:]*\\)[ \t]*=[ \t]*$"
@@ -8773 +8773 @@
                 "/\\<sub[ \\t]+\\(\\([a-zA-Z0-9:_]*::\\)?\\([a-zA-Z0-9_]+\\)\\)[ \\t]*\\(([^()]*)[ \t]*\\)?\\([ \t]*:[^#{;]*\\)?\\([{#]\\|$\\)/\\3/"
                 "-r"
-                "/\\<\\(package\\|class\\)[ \\t]+\\(\\([a-zA-Z0-9:_]*::\\)?\\([a-zA-Z0-9_]+\\)\\)[ \\t]*\\([#;]\\|$\\)/\\2/"; perl6
+                "/\\<\\(package\\|class\\|role\\)[ \\t]+\\(\\([a-zA-Z0-9:_]*::\\)?\\([a-zA-Z0-9_]+\\)\\)[ \\t]*\\([#;]\\|$\\)/\\2/"; perl6
                 "-r"
-                "/\\<\\(package\\|class\\)[ \\t]*;/\\1;/"))
+                "/\\<\\(package\\|class\\|role\\)[ \\t]*;/\\1;/"))
         res)
     (if add (setq args (cons "-a" args)))
@@ -8986 +8986 @@
                 (insert (elt elt 3)
                         127
-                        (if (string-match "^\\(package\\|class\\) " (car elt)) ; perl6
+                        (if (string-match "^\\(package\\|class\\|role\\) " (car elt)) ; perl6
                             (substring (car elt) 8)
                           (car elt) )
@@ -9123 +9123 @@
   (concat
    "^\\("
-      "\\(package\\|class\\)\\>"
+      "\\(package\\|class\\|role\\)\\>"
      "\\|"
       "sub\\>[^\n]+::"