mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-06-26 15:13:16 +00:00
Code Issues 1 Releases Wiki Activity

Merge branch 'master' of github.com:janet-lang/janet

Browse Source
This commit is contained in:
bakpakin 2022-07-09 11:44:20 -05:00
commit 4c7ea9e893
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/boot/boot.janet
View File

@ -3146,16 +3146,18 @@
(def b (get line i)) (def b (get line i))
(cond (cond
(or (= b (chr "\n")) (= b (chr " "))) (endtoken) (or (= b (chr "\n")) (= b (chr " "))) (endtoken)
(= b (chr `\`)) (do
(++ token-length)
(buffer/push token (get line (++ i))))
(= b (chr "_")) (delim :underline)
(= b (chr "`")) (delim :code) (= b (chr "`")) (delim :code)
(= b (chr "*")) (not (modes :code)) (cond
(if (= (chr "*") (get line (+ i 1))) (= b (chr `\`)) (do
(do (++ i) (++ token-length)
(delim :bold)) (buffer/push token (get line (++ i))))
(delim :italics)) (= b (chr "_")) (delim :underline)
(= b (chr "*"))
(if (= (chr "*") (get line (+ i 1)))
(do (++ i)
(delim :bold))
(delim :italics))
(do (++ token-length) (buffer/push token b)))
(do (++ token-length) (buffer/push token b)))) (do (++ token-length) (buffer/push token b))))
(endtoken) (endtoken)
(tuple/slice tokens)) (tuple/slice tokens))