github-linguist 7.11.1 → 7.12.0

data/grammars/source.forth.json

@@ -1,84 +1 @@
-{
-  "name": "Forth",
-  "scopeName": "source.forth",
-  "patterns": [
-    {
-      "name": "constant.language.forth",
-      "match": "(?i:(?\u003c=^|\\s)(TRUE|FALSE|BL|PI|CELL|C/L|R/O|W/O|R/W)(?=\\s))"
-    },
-    {
-      "name": "constant.numeric.forth",
-      "match": "(?\u003c=^|\\s)([$#%]?[-+]?[0-9]+(\\.[0-9]*e(-?[0-9]+)|\\.?[0-9a-fA-F]*))(?=\\s)"
-    },
-    {
-      "name": "constant.character.forth",
-      "match": "(?\u003c=^|\\s)(([\u0026^]\\S)|((\"|')\\S(\"|')))(?=\\s)"
-    },
-    {
-      "name": "comment.line.double-dash.forth",
-      "match": "(?\u003c=^|\\s)(-- .*$)"
-    },
-    {
-      "name": "comment.line.backslash.forth",
-      "match": "(?\u003c=^|\\s)(\\\\ .*$)"
-    },
-    {
-      "name": "comment.line.backslash-g.forth",
-      "match": "(?\u003c=^|\\s)(\\\\[Gg] .*$)"
-    },
-    {
-      "name": "comment.block.forth",
-      "begin": "(?\u003c=^|\\s)(\\(\\*)(?=\\s)",
-      "end": "(?\u003c=^|\\s)(\\*\\))(?=\\s)"
-    },
-    {
-      "name": "comment.block.documentation.forth",
-      "begin": "\\b(?i:DOC)\\b",
-      "end": "\\b(?i:ENDDOC)\\b"
-    },
-    {
-      "name": "comment.line.parentheses.forth",
-      "match": "(?\u003c=^|\\s)(\\.?\\( [^)]*\\))"
-    },
-    {
-      "name": "string.quoted.double.forth",
-      "match": "(?i:((?\u003c=ABORT\" )|(?\u003c=BREAK\" )|(?\u003c=\\.\" )|(C\" )|(S\\\\?\" )))[^\"]+\""
-    },
-    {
-      "name": "string.unquoted.forth",
-      "match": "(?i:((?\u003c=INCLUDE)|(?\u003c=NEEDS)|(?\u003c=REQUIRE)|(?\u003c=USE)))[ ]\\S+(?=\\s)"
-    },
-    {
-      "name": "keyword.control.immediate.forth",
-      "match": "(?\u003c=^|\\s)\\[(?i:(\\?DO|\\+LOOP|AGAIN|BEGIN|DO|ELSE|ENDIF|FOR|IF|IFDEF|IFUNDEF|LOOP|NEXT|REPEAT|THEN|UNTIL|WHILE))\\](?=\\s)"
-    },
-    {
-      "name": "keyword.other.immediate.forth",
-      "match": "(?\u003c=^|\\s)(?i:(COMPILE-ONLY|IMMEDIATE|IS|RESTRICT|TO|WHAT'S))(?=\\s)"
-    },
-    {
-      "name": "keyword.control.compile-only.forth",
-      "match": "(?\u003c=^|\\s)(?i:(-DO|\\-LOOP|\\?DO|\\?LEAVE|\\+DO|\\+LOOP|ABORT\\\"|AGAIN|AHEAD|BEGIN|CASE|DO|ELSE|ENDCASE|ENDIF|ENDOF|ENDTRY\\-IFERROR|ENDTRY|FOR|IF|IFERROR|LEAVE|LOOP|NEXT|RECOVER|REPEAT|RESTORE|THEN|TRY|U\\-DO|U\\+DO|UNTIL|WHILE))(?=\\s)"
-    },
-    {
-      "name": "keyword.other.compile-only.forth",
-      "match": "(?\u003c=^|\\s)(?i:(\\?DUP-0=-IF|\\?DUP-IF|\\)|\\['\\]|\\[CHAR\\]|\\[COMPILE\\]|\\[IS\\]|\\[TO\\]|\u003cCOMPILATION|\u003cINTERPRETATION|ASSERT\\(|ASSERT0\\(|ASSERT1\\(|ASSERT2\\(|ASSERT3\\(|COMPILATION\u003e|DEFERS|DOES\u003e|INTERPRETATION\u003e|OF|POSTPONE))(?=\\s)"
-    },
-    {
-      "name": "keyword.other.non-immediate.forth",
-      "match": "(?\u003c=^|\\s)(?i:('|\u003cIS\u003e|\u003cTO\u003e|CHAR|END-STRUCT|INCLUDE[D]?|LOAD|NEEDS|REQUIRE[D]?|REVISION|SEE|STRUCT|THRU|USE))(?=\\s)"
-    },
-    {
-      "name": "keyword.other.warning.forth",
-      "match": "(?\u003c=^|\\s)(?i:(~~|BREAK:|BREAK\"|DBG))(?=\\s)"
-    },
-    {
-      "name": "variable.language.forth",
-      "match": "\\b(?i:I|J)\\b"
-    },
-    {
-      "name": "storage.type.forth",
-      "match": "(?\u003c=^|\\s)(?i:(2CONSTANT|2VARIABLE|ALIAS|CONSTANT|CREATE-INTERPRET/COMPILE[:]?|CREATE|DEFER|FCONSTANT|FIELD|FVARIABLE|USER|VALUE|VARIABLE|VOCABULARY))(?=\\s)"
-    }
-  ]
-}
+{"name":"Forth","scopeName":"source.forth","patterns":[{"name":"constant.language.forth","match":"(?i:(?\u003c=^|\\s)(TRUE|FALSE|BL|PI|CELL|C/L|R/O|W/O|R/W)(?=\\s))"},{"name":"constant.numeric.forth","match":"(?\u003c=^|\\s)([$#%]?[-+]?[0-9]+(\\.[0-9]*e(-?[0-9]+)|\\.?[0-9a-fA-F]*))(?=\\s)"},{"name":"constant.character.forth","match":"(?\u003c=^|\\s)(([\u0026^]\\S)|((\"|')\\S(\"|')))(?=\\s)"},{"name":"comment.line.double-dash.forth","match":"(?\u003c=^|\\s)(-- .*$)"},{"name":"comment.line.backslash.forth","match":"(?\u003c=^|\\s)(\\\\ .*$)"},{"name":"comment.line.backslash-g.forth","match":"(?\u003c=^|\\s)(\\\\[Gg] .*$)"},{"name":"comment.block.forth","begin":"(?\u003c=^|\\s)(\\(\\*)(?=\\s)","end":"(?\u003c=^|\\s)(\\*\\))(?=\\s)"},{"name":"comment.block.documentation.forth","begin":"\\b(?i:DOC)\\b","end":"\\b(?i:ENDDOC)\\b"},{"name":"comment.line.parentheses.forth","match":"(?\u003c=^|\\s)(\\.?\\( [^)]*\\))"},{"name":"string.quoted.double.forth","match":"(?i:((?\u003c=ABORT\" )|(?\u003c=BREAK\" )|(?\u003c=\\.\" )|(C\" )|(S\\\\?\" )))[^\"]+\""},{"name":"string.unquoted.forth","match":"(?i:((?\u003c=INCLUDE)|(?\u003c=NEEDS)|(?\u003c=REQUIRE)|(?\u003c=USE)))[ ]\\S+(?=\\s)"},{"name":"keyword.control.immediate.forth","match":"(?\u003c=^|\\s)\\[(?i:(\\?DO|\\+LOOP|AGAIN|BEGIN|DO|ELSE|ENDIF|FOR|IF|IFDEF|IFUNDEF|LOOP|NEXT|REPEAT|THEN|UNTIL|WHILE))\\](?=\\s)"},{"name":"keyword.other.immediate.forth","match":"(?\u003c=^|\\s)(?i:(COMPILE-ONLY|IMMEDIATE|IS|RESTRICT|TO|WHAT'S))(?=\\s)"},{"name":"keyword.control.compile-only.forth","match":"(?\u003c=^|\\s)(?i:(-DO|\\-LOOP|\\?DO|\\?LEAVE|\\+DO|\\+LOOP|ABORT\\\"|AGAIN|AHEAD|BEGIN|CASE|DO|ELSE|ENDCASE|ENDIF|ENDOF|ENDTRY\\-IFERROR|ENDTRY|FOR|IF|IFERROR|LEAVE|LOOP|NEXT|RECOVER|REPEAT|RESTORE|THEN|TRY|U\\-DO|U\\+DO|UNTIL|WHILE))(?=\\s)"},{"name":"keyword.other.compile-only.forth","match":"(?\u003c=^|\\s)(?i:(\\?DUP-0=-IF|\\?DUP-IF|\\)|\\['\\]|\\[CHAR\\]|\\[COMPILE\\]|\\[IS\\]|\\[TO\\]|\u003cCOMPILATION|\u003cINTERPRETATION|ASSERT\\(|ASSERT0\\(|ASSERT1\\(|ASSERT2\\(|ASSERT3\\(|COMPILATION\u003e|DEFERS|DOES\u003e|INTERPRETATION\u003e|OF|POSTPONE))(?=\\s)"},{"name":"keyword.other.non-immediate.forth","match":"(?\u003c=^|\\s)(?i:('|\u003cIS\u003e|\u003cTO\u003e|CHAR|END-STRUCT|INCLUDE[D]?|LOAD|NEEDS|REQUIRE[D]?|REVISION|SEE|STRUCT|THRU|USE))(?=\\s)"},{"name":"keyword.other.warning.forth","match":"(?\u003c=^|\\s)(?i:(~~|BREAK:|BREAK\"|DBG))(?=\\s)"},{"name":"variable.language.forth","match":"\\b(?i:I|J)\\b"},{"name":"storage.type.forth","match":"(?\u003c=^|\\s)(?i:(2CONSTANT|2VARIABLE|ALIAS|CONSTANT|CREATE-INTERPRET/COMPILE[:]?|CREATE|DEFER|FCONSTANT|FIELD|FVARIABLE|USER|VALUE|VARIABLE|VOCABULARY))(?=\\s)"}]}

data/grammars/source.fortran.json

@@ -1,464 +1 @@
-{
-  "name": "Fortran - Punchcard",
-  "scopeName": "source.fortran",
-  "patterns": [
-    {
-      "include": "#preprocessor-rule-enabled"
-    },
-    {
-      "include": "#preprocessor-rule-disabled"
-    },
-    {
-      "include": "#preprocessor-rule-other"
-    },
-    {
-      "name": "constant.language.fortran",
-      "match": "(?i:(r8|r4|\\.TRUE\\.|\\.FALSE\\.))"
-    },
-    {
-      "name": "constant.numeric.fortran",
-      "match": "\\b[\\+\\-]?[0-9]+\\.?[0-9a-zA-Z_]*\\b"
-    },
-    {
-      "name": "meta.function.fortran",
-      "begin": "(?x:\t\t\t\t\t\t\t\t# extended mode\n\t\t\t\t\t^\n\t\t\t\t\t\\s*\t\t\t\t\t\t\t\t\t# start of line and possibly some space\n\t\t\t\t\t([a-zA-Z\\(\\)]*)(?\u003c!end)\t\t\t\t# 1: possibly some type specification but not the word end\n\t\t\t\t\t\\s*\t\t\t\t\t\t\t\t\t# possibly some space\n\t\t\t\t\t(?i:(function|subroutine))\\b\t\t# 2: function or subroutine\n\t\t\t\t\t\\s+\t\t\t\t\t\t\t\t\t# some space\n\t\t\t\t\t([A-Za-z_][A-Za-z0-9_]*)\t\t\t# 3: name\n\t\t\t\t\t)",
-      "end": "(?x:\t\t\t\t\t\t\t\t\t# extended mode\n\t\t\t\t\t((?i:end))\t\t\t\t\t\t\t# 1: the word end\n\t\t\t\t\t(\t\t\t\t\t\t\t\t\t# followed by\n\t\t\t\t\t\t$\t\t\t\t\t\t\t\t# end of line\n\t\t\t\t\t|\t\t\t\t\t\t\t\t\t# or\n\t\t\t\t\t\t\\s*\t\t\t\t\t\t\t\t# possibly some space\n\t\t\t\t\t\t(?i:(function|subroutine))\t\t# 2: function or subroutine\n\t\t\t\t\t\t((\\s+[A-Za-z_][A-Za-z0-9_]*)?)\t# 3: possibly the name\n\t\t\t\t\t)\n\t\t\t\t\t)",
-      "patterns": [
-        {
-          "begin": "\\G\\s*(\\()",
-          "end": "\\)",
-          "patterns": [
-            {
-              "match": "([^\\s),]*)\\s*(,)?",
-              "captures": {
-                "1": {
-                  "name": "variable.parameter.fortran"
-                },
-                "2": {
-                  "name": "punctuation.separator.arguments.fortan"
-                }
-              }
-            }
-          ],
-          "beginCaptures": {
-            "1": {
-              "name": "punctuation.definition.parameters.begin.fortran"
-            }
-          },
-          "endCaptures": {
-            "0": {
-              "name": "punctuation.definition.parameters.end.fortran"
-            }
-          }
-        },
-        {
-          "include": "$base"
-        }
-      ],
-      "beginCaptures": {
-        "1": {
-          "name": "storage.type.fortran"
-        },
-        "2": {
-          "name": "storage.type.function.fortran"
-        },
-        "3": {
-          "name": "entity.name.function.fortran"
-        }
-      },
-      "endCaptures": {
-        "1": {
-          "name": "keyword.other.fortran"
-        },
-        "3": {
-          "name": "storage.type.function.fortran"
-        },
-        "4": {
-          "name": "entity.name.function.end.fortran"
-        }
-      }
-    },
-    {
-      "name": "meta.specification.fortran",
-      "begin": "\\b(?i:(integer|real|double\\s+precision|complex|logical|character))\\b(?=.*::)",
-      "end": "(?=!)|$",
-      "patterns": [
-        {
-          "include": "$base"
-        }
-      ],
-      "beginCaptures": {
-        "1": {
-          "name": "storage.type.fortran"
-        }
-      }
-    },
-    {
-      "name": "keyword.control.fortran",
-      "match": "\\b(?i:(go\\s*to|assign|to|if|then|else|elseif|end\\s*if|continue|stop|pause|do|end\\s*do|while|cycle))\\b"
-    },
-    {
-      "name": "keyword.control.programming-units.fortran",
-      "match": "\\b(?i:(program|end\\s+program|entry|block\\s+data|call|return|contains|include))\\b"
-    },
-    {
-      "name": "keyword.control.io.fortran",
-      "match": "\\b(?i:(open|close|read|write|print|inquire|backspace|endfile|format))\\b"
-    },
-    {
-      "name": "keyword.operator.fortran",
-      "match": "((?\u003c!\\=)\\=(?!\\=)|\\-|\\+|\\/\\/|\\/|(?!^)\\*|::)"
-    },
-    {
-      "name": "keyword.operator.logical.fortran",
-      "match": "(?i:(\\.and\\.|\\.or\\.|\\.eq\\.|\\.lt\\.|\\.le\\.|\\.gt\\.|\\.ge\\.|\\.ne\\.|\\.not\\.|\\.eqv\\.|\\.neqv\\.))"
-    },
-    {
-      "name": "keyword.other.instrisic.argument.fortran",
-      "match": "\\b(?i:(present)(?=\\())"
-    },
-    {
-      "name": "keyword.other.instrisic.numeric.fortran",
-      "match": "\\b(?i:(abs|aimag|aint|anint|cmplx|conjg|dble|dim|dprod|int|max|min|mod|nint|real|sign|digits|epsilon|huge|maxexponent|minexponent|precision|radix|range|tiny)(?=\\())"
-    },
-    {
-      "name": "keyword.other.instrisic.string.fortran",
-      "match": "\\b(?i:(achar|adjustl|adjustr|char|iachar|ichar|index|len_trim|repeat|scan|string|trim|verify|len)(?=\\())"
-    },
-    {
-      "name": "keyword.other.instrisic.math.fortran",
-      "match": "\\b(?i:(((acos|asin|atan|atan2|cos|cosh|exp|log|log10|sin|sinh|sqrt|tan|tanh)(?=\\())|(random_number|random_seed)))\\b"
-    },
-    {
-      "name": "keyword.other.instrisic.data.fortran",
-      "match": "\\b(?i:(kind|selected_int_kind|selected_real_kind|transfer)(?=\\())"
-    },
-    {
-      "name": "keyword.other.instrisic.logical.fortran",
-      "match": "\\b(?i:(logical)(?=\\())"
-    },
-    {
-      "name": "keyword.other.instrisic.bit.fortran",
-      "match": "\\b(?i:(((bit_size|btest|iand|ibclr|ibits|ibset|ieor|ior|ishift|ishiftc|not)(?=\\())|mvbits))\\b"
-    },
-    {
-      "name": "keyword.other.instrisic.floating-point.fortran",
-      "match": "\\b(?i:(exponent|fraction|nearest|rrspacing|scale|set_exponent|spacing)(?=\\())"
-    },
-    {
-      "name": "keyword.other.instrisic.array.fortran",
-      "match": "\\b(?i:(((dot_product|sum|matmul|transpose|all|any|count|maxval|minval|maxloc|minloc|product|sum|lbound|ubound|shape|size|merge|pack|unpack|reshape|spread|cshift|eoshift)(?=\\())|(where|elsewhere|end\\s*where)))\\b"
-    },
-    {
-      "name": "keyword.other.instrisic.fortran",
-      "match": "\\b(?i:(((dtime)(?=\\())|(date_and_time|system_clock)))\\b"
-    },
-    {
-      "name": "storage.type.fortran",
-      "match": "\\b(?i:(integer|real|double\\s+precision|complex|logical|character|block\\sdata|operator|assignment))\\b"
-    },
-    {
-      "name": "storage.modifier.fortran",
-      "match": "\\b(?i:(dimension|common|equivalence|parameter|external|intrinsic|save|data|implicit\\s*none|implicit|intent|in|out|inout))\\b"
-    },
-    {
-      "name": "string.quoted.single.fortran",
-      "begin": "'",
-      "end": "'",
-      "patterns": [
-        {
-          "name": "constant.character.escape.apostrophe.fortran",
-          "match": "''"
-        }
-      ],
-      "beginCaptures": {
-        "0": {
-          "name": "punctuation.definition.string.begin.fortran"
-        }
-      },
-      "endCaptures": {
-        "0": {
-          "name": "punctuation.definition.string.end.fortran"
-        }
-      },
-      "applyEndPatternLast": true
-    },
-    {
-      "name": "string.quoted.double.fortran",
-      "begin": "\"",
-      "end": "\"",
-      "patterns": [
-        {
-          "name": "constant.character.escape.quote.fortran",
-          "match": "\"\""
-        }
-      ],
-      "beginCaptures": {
-        "0": {
-          "name": "punctuation.definition.string.begin.fortran"
-        }
-      },
-      "endCaptures": {
-        "0": {
-          "name": "punctuation.definition.string.end.fortran"
-        }
-      },
-      "applyEndPatternLast": true
-    },
-    {
-      "name": "meta.preprocessor.diagnostic.fortran",
-      "begin": "^\\s*#\\s*(error|warning)\\b",
-      "end": "$\\n?",
-      "patterns": [
-        {
-          "name": "punctuation.separator.continuation.fortran",
-          "match": "(?\u003e\\\\\\s*\\n)"
-        }
-      ],
-      "captures": {
-        "1": {
-          "name": "keyword.control.import.error.fortran"
-        }
-      }
-    },
-    {
-      "name": "meta.preprocessor.fortran.include",
-      "begin": "^\\s*#\\s*(include|import)\\b\\s+",
-      "end": "(?=(?://|/\\*))|$\\n?",
-      "patterns": [
-        {
-          "name": "punctuation.separator.continuation.fortran",
-          "match": "(?\u003e\\\\\\s*\\n)"
-        },
-        {
-          "name": "string.quoted.double.include.fortran",
-          "begin": "\"",
-          "end": "\"",
-          "beginCaptures": {
-            "0": {
-              "name": "punctuation.definition.string.begin.fortran"
-            }
-          },
-          "endCaptures": {
-            "0": {
-              "name": "punctuation.definition.string.end.fortran"
-            }
-          }
-        },
-        {
-          "name": "string.quoted.other.lt-gt.include.fortran",
-          "begin": "\u003c",
-          "end": "\u003e",
-          "beginCaptures": {
-            "0": {
-              "name": "punctuation.definition.string.begin.fortran"
-            }
-          },
-          "endCaptures": {
-            "0": {
-              "name": "punctuation.definition.string.end.fortran"
-            }
-          }
-        }
-      ],
-      "captures": {
-        "1": {
-          "name": "keyword.control.import.include.fortran"
-        }
-      }
-    },
-    {
-      "include": "#pragma-mark"
-    },
-    {
-      "name": "meta.preprocessor.fortran",
-      "begin": "^\\s*#\\s*(define|defined|elif|else|if|ifdef|ifndef|line|pragma|undef)\\b",
-      "end": "(?=(?://|/\\*))|$\\n?",
-      "patterns": [
-        {
-          "name": "punctuation.separator.continuation.fortran",
-          "match": "(?\u003e\\\\\\s*\\n)"
-        }
-      ],
-      "captures": {
-        "1": {
-          "name": "keyword.control.import.fortran"
-        }
-      }
-    }
-  ],
-  "repository": {
-    "disabled": {
-      "begin": "^\\s*#\\s*if(n?def)?\\b.*$",
-      "end": "^\\s*#\\s*endif\\b.*$",
-      "patterns": [
-        {
-          "include": "#disabled"
-        },
-        {
-          "include": "#pragma-mark"
-        }
-      ]
-    },
-    "pragma-mark": {
-      "name": "meta.section",
-      "match": "^\\s*(#\\s*(pragma\\s+mark)\\s+(.*))",
-      "captures": {
-        "1": {
-          "name": "meta.preprocessor.fortran"
-        },
-        "2": {
-          "name": "keyword.control.import.pragma.fortran"
-        },
-        "3": {
-          "name": "meta.toc-list.pragma-mark.fortran"
-        }
-      }
-    },
-    "preprocessor-rule-disabled": {
-      "begin": "^\\s*(#(if)\\s+(0)\\b).*",
-      "end": "^\\s*(#\\s*(endif)\\b)",
-      "patterns": [
-        {
-          "begin": "^\\s*(#\\s*(else)\\b)",
-          "end": "(?=^\\s*#\\s*endif\\b.*$)",
-          "patterns": [
-            {
-              "include": "$base"
-            }
-          ],
-          "captures": {
-            "1": {
-              "name": "meta.preprocessor.fortran"
-            },
-            "2": {
-              "name": "keyword.control.import.else.fortran"
-            }
-          }
-        },
-        {
-          "name": "comment.block.preprocessor.if-branch",
-          "end": "(?=^\\s*#\\s*(else|endif)\\b.*$)",
-          "patterns": [
-            {
-              "include": "#disabled"
-            },
-            {
-              "include": "#pragma-mark"
-            }
-          ]
-        }
-      ],
-      "captures": {
-        "1": {
-          "name": "meta.preprocessor.fortran"
-        },
-        "2": {
-          "name": "keyword.control.import.if.fortran"
-        },
-        "3": {
-          "name": "constant.numeric.preprocessor.fortran"
-        }
-      }
-    },
-    "preprocessor-rule-enabled": {
-      "begin": "^\\s*(#(if)\\s+(0*1)\\b)",
-      "end": "^\\s*(#\\s*(endif)\\b)",
-      "patterns": [
-        {
-          "contentName": "comment.block.preprocessor.else-branch",
-          "begin": "^\\s*(#\\s*(else)\\b).*",
-          "end": "(?=^\\s*#\\s*endif\\b.*$)",
-          "patterns": [
-            {
-              "include": "#disabled"
-            },
-            {
-              "include": "#pragma-mark"
-            }
-          ],
-          "captures": {
-            "1": {
-              "name": "meta.preprocessor.fortran"
-            },
-            "2": {
-              "name": "keyword.control.import.else.fortran"
-            }
-          }
-        },
-        {
-          "end": "(?=^\\s*#\\s*(else|endif)\\b.*$)",
-          "patterns": [
-            {
-              "include": "$base"
-            }
-          ]
-        }
-      ],
-      "captures": {
-        "1": {
-          "name": "meta.preprocessor.fortran"
-        },
-        "2": {
-          "name": "keyword.control.import.if.fortran"
-        },
-        "3": {
-          "name": "constant.numeric.preprocessor.fortran"
-        }
-      }
-    },
-    "preprocessor-rule-other": {
-      "begin": "^\\s*(#\\s*(if(n?def)?)\\b.*?(?:(?=(?://|/\\*))|$))",
-      "end": "^\\s*(#\\s*(endif)\\b).*$",
-      "patterns": [
-        {
-          "include": "$base"
-        }
-      ],
-      "captures": {
-        "1": {
-          "name": "meta.preprocessor.fortran"
-        },
-        "2": {
-          "name": "keyword.control.import.fortran"
-        }
-      }
-    }
-  },
-  "injections": {
-    "source.fortran - (source.fortran.modern)": {
-      "patterns": [
-        {
-          "name": "comment.line.c.fortran",
-          "begin": "^[Cc](?=\\b|[Cc])",
-          "end": "$\\n?",
-          "patterns": [
-            {
-              "match": "\\\\\\s*\\n"
-            }
-          ],
-          "beginCaptures": {
-            "0": {
-              "name": "punctuation.definition.comment.fortran"
-            }
-          }
-        },
-        {
-          "name": "comment.line.asterisk.fortran",
-          "begin": "^\\*",
-          "end": "$\\n?",
-          "patterns": [
-            {
-              "match": "\\\\\\s*\\n"
-            }
-          ],
-          "beginCaptures": {
-            "0": {
-              "name": "punctuation.definition.comment.fortran"
-            }
-          }
-        }
-      ]
-    }
-  }
-}
+{"name":"Fortran - Punchcard","scopeName":"source.fortran","patterns":[{"include":"#preprocessor-rule-enabled"},{"include":"#preprocessor-rule-disabled"},{"include":"#preprocessor-rule-other"},{"name":"constant.language.fortran","match":"(?i:(r8|r4|\\.TRUE\\.|\\.FALSE\\.))"},{"name":"constant.numeric.fortran","match":"\\b[\\+\\-]?[0-9]+\\.?[0-9a-zA-Z_]*\\b"},{"name":"meta.function.fortran","begin":"(?x:\t\t\t\t\t\t\t\t# extended mode\n\t\t\t\t\t^\n\t\t\t\t\t\\s*\t\t\t\t\t\t\t\t\t# start of line and possibly some space\n\t\t\t\t\t([a-zA-Z\\(\\)]*)(?\u003c!end)\t\t\t\t# 1: possibly some type specification but not the word end\n\t\t\t\t\t\\s*\t\t\t\t\t\t\t\t\t# possibly some space\n\t\t\t\t\t(?i:(function|subroutine))\\b\t\t# 2: function or subroutine\n\t\t\t\t\t\\s+\t\t\t\t\t\t\t\t\t# some space\n\t\t\t\t\t([A-Za-z_][A-Za-z0-9_]*)\t\t\t# 3: name\n\t\t\t\t\t)","end":"(?x:\t\t\t\t\t\t\t\t\t# extended mode\n\t\t\t\t\t((?i:end))\t\t\t\t\t\t\t# 1: the word end\n\t\t\t\t\t(\t\t\t\t\t\t\t\t\t# followed by\n\t\t\t\t\t\t$\t\t\t\t\t\t\t\t# end of line\n\t\t\t\t\t|\t\t\t\t\t\t\t\t\t# or\n\t\t\t\t\t\t\\s*\t\t\t\t\t\t\t\t# possibly some space\n\t\t\t\t\t\t(?i:(function|subroutine))\t\t# 2: function or subroutine\n\t\t\t\t\t\t((\\s+[A-Za-z_][A-Za-z0-9_]*)?)\t# 3: possibly the name\n\t\t\t\t\t)\n\t\t\t\t\t)","patterns":[{"begin":"\\G\\s*(\\()","end":"\\)","patterns":[{"match":"([^\\s),]*)\\s*(,)?","captures":{"1":{"name":"variable.parameter.fortran"},"2":{"name":"punctuation.separator.arguments.fortan"}}}],"beginCaptures":{"1":{"name":"punctuation.definition.parameters.begin.fortran"}},"endCaptures":{"0":{"name":"punctuation.definition.parameters.end.fortran"}}},{"include":"$base"}],"beginCaptures":{"1":{"name":"storage.type.fortran"},"2":{"name":"storage.type.function.fortran"},"3":{"name":"entity.name.function.fortran"}},"endCaptures":{"1":{"name":"keyword.other.fortran"},"3":{"name":"storage.type.function.fortran"},"4":{"name":"entity.name.function.end.fortran"}}},{"name":"meta.specification.fortran","begin":"\\b(?i:(integer|real|double\\s+precision|complex|logical|character))\\b(?=.*::)","end":"(?=!)|$","patterns":[{"include":"$base"}],"beginCaptures":{"1":{"name":"storage.type.fortran"}}},{"name":"keyword.control.fortran","match":"\\b(?i:(go\\s*to|assign|to|if|then|else|elseif|end\\s*if|continue|stop|pause|do|end\\s*do|while|cycle))\\b"},{"name":"keyword.control.programming-units.fortran","match":"\\b(?i:(program|end\\s+program|entry|block\\s+data|call|return|contains|include))\\b"},{"name":"keyword.control.io.fortran","match":"\\b(?i:(open|close|read|write|print|inquire|backspace|endfile|format))\\b"},{"name":"keyword.operator.fortran","match":"((?\u003c!\\=)\\=(?!\\=)|\\-|\\+|\\/\\/|\\/|(?!^)\\*|::)"},{"name":"keyword.operator.logical.fortran","match":"(?i:(\\.and\\.|\\.or\\.|\\.eq\\.|\\.lt\\.|\\.le\\.|\\.gt\\.|\\.ge\\.|\\.ne\\.|\\.not\\.|\\.eqv\\.|\\.neqv\\.))"},{"name":"keyword.other.instrisic.argument.fortran","match":"\\b(?i:(present)(?=\\())"},{"name":"keyword.other.instrisic.numeric.fortran","match":"\\b(?i:(abs|aimag|aint|anint|cmplx|conjg|dble|dim|dprod|int|max|min|mod|nint|real|sign|digits|epsilon|huge|maxexponent|minexponent|precision|radix|range|tiny)(?=\\())"},{"name":"keyword.other.instrisic.string.fortran","match":"\\b(?i:(achar|adjustl|adjustr|char|iachar|ichar|index|len_trim|repeat|scan|string|trim|verify|len)(?=\\())"},{"name":"keyword.other.instrisic.math.fortran","match":"\\b(?i:(((acos|asin|atan|atan2|cos|cosh|exp|log|log10|sin|sinh|sqrt|tan|tanh)(?=\\())|(random_number|random_seed)))\\b"},{"name":"keyword.other.instrisic.data.fortran","match":"\\b(?i:(kind|selected_int_kind|selected_real_kind|transfer)(?=\\())"},{"name":"keyword.other.instrisic.logical.fortran","match":"\\b(?i:(logical)(?=\\())"},{"name":"keyword.other.instrisic.bit.fortran","match":"\\b(?i:(((bit_size|btest|iand|ibclr|ibits|ibset|ieor|ior|ishift|ishiftc|not)(?=\\())|mvbits))\\b"},{"name":"keyword.other.instrisic.floating-point.fortran","match":"\\b(?i:(exponent|fraction|nearest|rrspacing|scale|set_exponent|spacing)(?=\\())"},{"name":"keyword.other.instrisic.array.fortran","match":"\\b(?i:(((dot_product|sum|matmul|transpose|all|any|count|maxval|minval|maxloc|minloc|product|sum|lbound|ubound|shape|size|merge|pack|unpack|reshape|spread|cshift|eoshift)(?=\\())|(where|elsewhere|end\\s*where)))\\b"},{"name":"keyword.other.instrisic.fortran","match":"\\b(?i:(((dtime)(?=\\())|(date_and_time|system_clock)))\\b"},{"name":"storage.type.fortran","match":"\\b(?i:(integer|real|double\\s+precision|complex|logical|character|block\\sdata|operator|assignment))\\b"},{"name":"storage.modifier.fortran","match":"\\b(?i:(dimension|common|equivalence|parameter|external|intrinsic|save|data|implicit\\s*none|implicit|intent|in|out|inout))\\b"},{"name":"string.quoted.single.fortran","begin":"'","end":"'","patterns":[{"name":"constant.character.escape.apostrophe.fortran","match":"''"}],"beginCaptures":{"0":{"name":"punctuation.definition.string.begin.fortran"}},"endCaptures":{"0":{"name":"punctuation.definition.string.end.fortran"}},"applyEndPatternLast":true},{"name":"string.quoted.double.fortran","begin":"\"","end":"\"","patterns":[{"name":"constant.character.escape.quote.fortran","match":"\"\""}],"beginCaptures":{"0":{"name":"punctuation.definition.string.begin.fortran"}},"endCaptures":{"0":{"name":"punctuation.definition.string.end.fortran"}},"applyEndPatternLast":true},{"name":"meta.preprocessor.diagnostic.fortran","begin":"^\\s*#\\s*(error|warning)\\b","end":"$\\n?","patterns":[{"name":"punctuation.separator.continuation.fortran","match":"(?\u003e\\\\\\s*\\n)"}],"captures":{"1":{"name":"keyword.control.import.error.fortran"}}},{"name":"meta.preprocessor.fortran.include","begin":"^\\s*#\\s*(include|import)\\b\\s+","end":"(?=(?://|/\\*))|$\\n?","patterns":[{"name":"punctuation.separator.continuation.fortran","match":"(?\u003e\\\\\\s*\\n)"},{"name":"string.quoted.double.include.fortran","begin":"\"","end":"\"","beginCaptures":{"0":{"name":"punctuation.definition.string.begin.fortran"}},"endCaptures":{"0":{"name":"punctuation.definition.string.end.fortran"}}},{"name":"string.quoted.other.lt-gt.include.fortran","begin":"\u003c","end":"\u003e","beginCaptures":{"0":{"name":"punctuation.definition.string.begin.fortran"}},"endCaptures":{"0":{"name":"punctuation.definition.string.end.fortran"}}}],"captures":{"1":{"name":"keyword.control.import.include.fortran"}}},{"include":"#pragma-mark"},{"name":"meta.preprocessor.fortran","begin":"^\\s*#\\s*(define|defined|elif|else|if|ifdef|ifndef|line|pragma|undef)\\b","end":"(?=(?://|/\\*))|$\\n?","patterns":[{"name":"punctuation.separator.continuation.fortran","match":"(?\u003e\\\\\\s*\\n)"}],"captures":{"1":{"name":"keyword.control.import.fortran"}}}],"repository":{"disabled":{"begin":"^\\s*#\\s*if(n?def)?\\b.*$","end":"^\\s*#\\s*endif\\b.*$","patterns":[{"include":"#disabled"},{"include":"#pragma-mark"}]},"pragma-mark":{"name":"meta.section","match":"^\\s*(#\\s*(pragma\\s+mark)\\s+(.*))","captures":{"1":{"name":"meta.preprocessor.fortran"},"2":{"name":"keyword.control.import.pragma.fortran"},"3":{"name":"meta.toc-list.pragma-mark.fortran"}}},"preprocessor-rule-disabled":{"begin":"^\\s*(#(if)\\s+(0)\\b).*","end":"^\\s*(#\\s*(endif)\\b)","patterns":[{"begin":"^\\s*(#\\s*(else)\\b)","end":"(?=^\\s*#\\s*endif\\b.*$)","patterns":[{"include":"$base"}],"captures":{"1":{"name":"meta.preprocessor.fortran"},"2":{"name":"keyword.control.import.else.fortran"}}},{"name":"comment.block.preprocessor.if-branch","end":"(?=^\\s*#\\s*(else|endif)\\b.*$)","patterns":[{"include":"#disabled"},{"include":"#pragma-mark"}]}],"captures":{"1":{"name":"meta.preprocessor.fortran"},"2":{"name":"keyword.control.import.if.fortran"},"3":{"name":"constant.numeric.preprocessor.fortran"}}},"preprocessor-rule-enabled":{"begin":"^\\s*(#(if)\\s+(0*1)\\b)","end":"^\\s*(#\\s*(endif)\\b)","patterns":[{"contentName":"comment.block.preprocessor.else-branch","begin":"^\\s*(#\\s*(else)\\b).*","end":"(?=^\\s*#\\s*endif\\b.*$)","patterns":[{"include":"#disabled"},{"include":"#pragma-mark"}],"captures":{"1":{"name":"meta.preprocessor.fortran"},"2":{"name":"keyword.control.import.else.fortran"}}},{"end":"(?=^\\s*#\\s*(else|endif)\\b.*$)","patterns":[{"include":"$base"}]}],"captures":{"1":{"name":"meta.preprocessor.fortran"},"2":{"name":"keyword.control.import.if.fortran"},"3":{"name":"constant.numeric.preprocessor.fortran"}}},"preprocessor-rule-other":{"begin":"^\\s*(#\\s*(if(n?def)?)\\b.*?(?:(?=(?://|/\\*))|$))","end":"^\\s*(#\\s*(endif)\\b).*$","patterns":[{"include":"$base"}],"captures":{"1":{"name":"meta.preprocessor.fortran"},"2":{"name":"keyword.control.import.fortran"}}}},"injections":{"source.fortran - (source.fortran.modern)":{"patterns":[{"name":"comment.line.c.fortran","begin":"^[Cc](?=\\b|[Cc])","end":"$\\n?","patterns":[{"match":"\\\\\\s*\\n"}],"beginCaptures":{"0":{"name":"punctuation.definition.comment.fortran"}}},{"name":"comment.line.asterisk.fortran","begin":"^\\*","end":"$\\n?","patterns":[{"match":"\\\\\\s*\\n"}],"beginCaptures":{"0":{"name":"punctuation.definition.comment.fortran"}}}]}}}