Theia-Modula-2/extensions/pascal-language/snippets/pascal.json

{
  "program": {
    "prefix": "program",
    "body": ["PROGRAM ${1:ProgramName};", "", "BEGIN", "    ${2}", "END."],
    "description": "Create a Pascal program"
  },
  "unit": {
    "prefix": "unit",
    "body": ["UNIT ${1:UnitName};", "", "INTERFACE", "", "${2}", "", "IMPLEMENTATION", "", "${3}", "", "BEGIN", "END."],
    "description": "Create a Pascal unit"
  },
  "procedure": {
    "prefix": "proc",
    "body": ["PROCEDURE ${1:ProcedureName}(${2});", "BEGIN", "    ${3}", "END;"],
    "description": "Create a Pascal procedure"
  },
  "function": {
    "prefix": "func",
    "body": ["FUNCTION ${1:FunctionName}(${2}): ${3:Integer};", "BEGIN", "    ${4}", "    ${1:FunctionName} := ${5:0};", "END;"],
    "description": "Create a Pascal function"
  },
  "if": {
    "prefix": "if",
    "body": ["IF ${1:condition} THEN", "BEGIN", "    ${2}", "END;"],
    "description": "Create an IF statement"
  },
  "for": {
    "prefix": "for",
    "body": ["FOR ${1:i} := ${2:start} TO ${3:end} DO", "BEGIN", "    ${4}", "END;"],
    "description": "Create a FOR loop"
  },
  "while": {
    "prefix": "while",
    "body": ["WHILE ${1:condition} DO", "BEGIN", "    ${2}", "END;"],
    "description": "Create a WHILE loop"
  },
  "record": {
    "prefix": "record",
    "body": ["${1:T} = RECORD", "    ${2:field}: ${3:Integer};", "END;"],
    "description": "Create a Pascal record type"
  }
}