add jcut

tangentstorm · Jul 28, 2021 · ff04472 · ff04472
1 parent 38390b4
commit ff04472
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/README.md b/README.md
@@ -18,6 +18,14 @@
     │└──────┴─────┴──────┴─────┴──────┴─────┴─────┴─────┴──────┘│
     └───────────────────────────────────────────────────────────┘
 
+       jcut_jlex_ '{{ i. 10,y }}'  NB. like ;: but preserve spaces
+    ┌──┬─┬──┬─┬──┬─┬─┬─┬──┐
+    │{{│ │i.│ │10│,│y│ │}}│
+    └──┴─┴──┴─┴──┴─┴─┴─┴──┘
+
+       jtype_jlex_ '{{'  NB. return the type code for a single token
+    D
+
 See `help_jlex_` for what the token descriptor codes mean.
 
 ## Known Limitations

diff --git a/j-lex.ijs b/j-lex.ijs
@@ -85,4 +85,7 @@ jlex =: {{
   if. 'literal' -: datatype y do. y =. ,. LF cut y -. CR end.
   (jtype;]) L:0 jtokens each y }}
 
+NB. jcut is like ;: but preserves whitespace
+jcut =: {{>>L:_1 {:L:1 jlex y}}
+
 jlex_z_ =: jlex_jlex_