Tangle comments for more languages !149
2 files changed, +41 −1
Layout: unified · split
Sources/OrgCore/Compute/Tangle.swift +14 −1
| @@ -306,7 +306,20 @@ public enum Tangle { | ||
| 306 | 306 | for language in ["js", "java", "cpp", "C++"] { table[language] = ("// ", "") } |
| 307 | 307 | for language in ["c", "C", "css"] { table[language] = ("/* ", " */") } |
| 308 | 308 | for language in ["lua", "sql", "sqlite"] { table[language] = ("-- ", "") } |
| 309 | for language in ["latex"] { table[language] = ("%% ", "") } | |
| 309 | for language in ["latex", "tex", "prolog"] { table[language] = ("%% ", "") } | |
| 310 | for language in ["javascript", "objc", "csharp", "idl", "pike", "antlr", "verilog"] { table[language] = ("// ", "") } | |
| 311 | for language in ["html", "xml", "nxml", "mhtml", "sgml"] { table[language] = ("<!-- ", " -->") } | |
| 312 | for language in ["m4", "icon", "desktop"] { table[language] = ("# ", "") } | |
| 313 | for language in ["ps", "metapost"] { table[language] = ("% ", "") } | |
| 314 | for language in ["f90", "dcl"] { table[language] = ("! ", "") } | |
| 315 | table["asm"] = (";; ", "") | |
| 316 | table["octave"] = ("## ", "") | |
| 317 | table["vhdl"] = ("-- ", "") | |
| 318 | table["pascal"] = ("{ ", " }") | |
| 319 | table["texinfo"] = ("@c ", "") | |
| 320 | table["bibtex"] = ("@Comment ", "") | |
| 321 | table["nroff"] = ("\\\" ", "") | |
| 322 | table["bat"] = ("rem ", "") | |
| 310 | 323 | return table |
| 311 | 324 | }() |
| 312 | 325 | |
Tests/OrgCoreTests/TangleTests.swift +27
| @@ -193,6 +193,33 @@ struct TangleTests { | ||
| 193 | 193 | #+begin_src cpp :tangle out.cpp |
| 194 | 194 | int y; |
| 195 | 195 | #+end_src |
| 196 | #+begin_src html :tangle out.html | |
| 197 | <p>hi</p> | |
| 198 | #+end_src | |
| 199 | #+begin_src octave :tangle out.m | |
| 200 | x = 1 | |
| 201 | #+end_src | |
| 202 | #+begin_src pascal :tangle out.pas | |
| 203 | begin end. | |
| 204 | #+end_src | |
| 205 | #+begin_src tex :tangle out.tex2 | |
| 206 | \\relax | |
| 207 | #+end_src | |
| 208 | #+begin_src f90 :tangle out.f90 | |
| 209 | print *, 1 | |
| 210 | #+end_src | |
| 211 | #+begin_src asm :tangle out.s | |
| 212 | nop | |
| 213 | #+end_src | |
| 214 | #+begin_src verilog :tangle out.v | |
| 215 | module m; endmodule | |
| 216 | #+end_src | |
| 217 | #+begin_src nroff :tangle out.1 | |
| 218 | .TH x | |
| 219 | #+end_src | |
| 220 | #+begin_src bat :tangle out.bat | |
| 221 | echo hi | |
| 222 | #+end_src | |
| 196 | 223 | #+begin_src bash :tangle out.bash |
| 197 | 224 | echo b |
| 198 | 225 | #+end_src |