add extra:syntax.terse, for bitwise ops. Addresses #2641.

factor · Nov 8, 2022 · 8c9bb02 · 8c9bb02
1 parent 44855a8
commit 8c9bb02
Show file tree

Hide file tree

Showing 4 changed files with 15 additions and 1 deletion.
diff --git a/extra/syntax/terse/authors.txt b/extra/syntax/terse/authors.txt
@@ -0,0 +1 @@
+Alex Maestas
diff --git a/extra/syntax/terse/terse.factor b/extra/syntax/terse/terse.factor
@@ -0,0 +1,10 @@
+USING: math words ;
+IN: syntax.terse
+
+! shorthand/C-like bitwise ops
+ALIAS: `& bitand
+ALIAS: `| bitor
+ALIAS: `^ bitxor
+ALIAS: `~ bitnot
+ALIAS: `<< shift
+: `>> ( x n -- x/2^n ) neg shift ; inline
diff --git a/misc/fuel/factor-mode.el b/misc/fuel/factor-mode.el
@@ -178,7 +178,7 @@ these lines in your .emacs:
 ;;; Regexps galore:
 
 ;; Utility regexp used by other regexps to match a Factor symbol name
-(setq-local symbol-nc "\\(?:\\sw\\|\\s_\\|\"\\|\\s(\\|\\s)\\|\\s\\\\)+")
+(setq-local symbol-nc "\\(?:\\sw\\|\\s_\\|`\\|\"\\|\\s(\\|\\s)\\|\\s\\\\)+")
 (setq-local symbol (format "\\(%s\\)" symbol-nc))
 (setq-local c-symbol-nc "\\(?:\\sw\\|\\s_\\|\\[\\|\\]\\)+")
 (setq-local c-symbol (format "\\(%s\\)" c-symbol-nc))

diff --git a/misc/fuel/strange-syntax.factor b/misc/fuel/strange-syntax.factor
@@ -101,3 +101,6 @@ COLOR: #ffffff COLOR: green NAN: 1234 CHAR: m ALIEN: 93
 
 PRIMITIVE: one ( a -- b )
 PRIMITIVE: two ( c -- d )
+
+: `word ( -- ) ;
+: word ( -- ) ; ! this isn't strange, just for contrast with the above