rexx.jsf.in (1100B)
1 # JOE syntax highlight file for REXX 2 3 =Idle 4 =Bad bold red 5 =Comment green 6 =Constant cyan 7 =Escape bold cyan 8 =Keyword bold 9 10 :idle Idle 11 * idle 12 "\"" dquote recolor=-1 13 "'" squote recolor=-1 14 "a-zA-Z.!?@_0-9" symbol buffer 15 "/" idle call=.maybe_comment() 16 17 :symbol Idle 18 * idle noeat istrings 19 "address" kw 20 "arg" kw 21 "call" kw 22 "do" kw 23 "drop" kw 24 "exit" kw 25 "if" kw 26 "interpret" kw 27 "iterate" kw 28 "leave" kw 29 "nop" kw 30 "numeric" kw 31 "options" kw 32 "parse" kw 33 "procedure" kw 34 "pull" kw 35 "push" kw 36 "queue" kw 37 "return" kw 38 "say" kw 39 "select" kw 40 "signal" kw 41 "trace" kw 42 "upper" kw 43 "then" kw 44 "end" kw 45 "else" kw 46 "when" kw 47 "otherwise" kw 48 done 49 "a-zA-Z.!?@_0-9" symbol 50 51 :kw Keyword 52 * idle noeat 53 54 :squote Constant 55 * squote 56 "'" idle 57 58 :dquote Constant 59 * dquote 60 "\"" idle 61 62 # 63 # Subroutine to parse recursive /* */ comments 64 # 65 66 .subr maybe_comment 67 68 :maybe_comment Idle 69 * maybe_comment return noeat 70 "*" comment recolor=-2 71 72 :comment Comment 73 * comment 74 "*" maybe_done 75 "/" comment call=.maybe_comment() 76 77 :maybe_done Comment 78 * comment noeat 79 "/" comment return 80 81 .end