(str)
| 13 | |
| 14 | CodeMirror.defineMode("pascal", function() { |
| 15 | function words(str) { |
| 16 | var obj = {}, words = str.split(" "); |
| 17 | for (var i = 0; i < words.length; ++i) obj[words[i]] = true; |
| 18 | return obj; |
| 19 | } |
| 20 | var keywords = words("and array begin case const div do downto else end file for forward integer " + |
| 21 | "boolean char function goto if in label mod nil not of or packed procedure " + |
| 22 | "program record repeat set string then to type until var while with"); |