From a98b5ea6fe8e8cc98a55e0fd793e6e8660ea31c1 Mon Sep 17 00:00:00 2001
From: Armand Philippot <git@armandphilippot.com>
Date: Thu, 30 Dec 2021 19:47:21 +0100
Subject: chore: add prismjs for syntax highlighting

---
 public/prism/prism-fortran.js | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 public/prism/prism-fortran.js

(limited to 'public/prism/prism-fortran.js')

diff --git a/public/prism/prism-fortran.js b/public/prism/prism-fortran.js
new file mode 100644
index 0000000..ff2d51c
--- /dev/null
+++ b/public/prism/prism-fortran.js
@@ -0,0 +1,41 @@
+Prism.languages.fortran = {
+  'quoted-number': {
+    pattern: /[BOZ](['"])[A-F0-9]+\1/i,
+    alias: 'number',
+  },
+  string: {
+    pattern:
+      /(?:\b\w+_)?(['"])(?:\1\1|&(?:\r\n?|\n)(?:[ \t]*!.*(?:\r\n?|\n)|(?![ \t]*!))|(?!\1).)*(?:\1|&)/,
+    inside: {
+      comment: {
+        pattern: /(&(?:\r\n?|\n)\s*)!.*/,
+        lookbehind: true,
+      },
+    },
+  },
+  comment: {
+    pattern: /!.*/,
+    greedy: true,
+  },
+  boolean: /\.(?:FALSE|TRUE)\.(?:_\w+)?/i,
+  number: /(?:\b\d+(?:\.\d*)?|\B\.\d+)(?:[ED][+-]?\d+)?(?:_\w+)?/i,
+  keyword: [
+    // Types
+    /\b(?:CHARACTER|COMPLEX|DOUBLE ?PRECISION|INTEGER|LOGICAL|REAL)\b/i,
+    // END statements
+    /\b(?:END ?)?(?:BLOCK ?DATA|DO|FILE|FORALL|FUNCTION|IF|INTERFACE|MODULE(?! PROCEDURE)|PROGRAM|SELECT|SUBROUTINE|TYPE|WHERE)\b/i,
+    // Statements
+    /\b(?:ALLOCATABLE|ALLOCATE|BACKSPACE|CALL|CASE|CLOSE|COMMON|CONTAINS|CONTINUE|CYCLE|DATA|DEALLOCATE|DIMENSION|DO|END|EQUIVALENCE|EXIT|EXTERNAL|FORMAT|GO ?TO|IMPLICIT(?: NONE)?|INQUIRE|INTENT|INTRINSIC|MODULE PROCEDURE|NAMELIST|NULLIFY|OPEN|OPTIONAL|PARAMETER|POINTER|PRINT|PRIVATE|PUBLIC|READ|RETURN|REWIND|SAVE|SELECT|STOP|TARGET|WHILE|WRITE)\b/i,
+    // Others
+    /\b(?:ASSIGNMENT|DEFAULT|ELEMENTAL|ELSE|ELSEIF|ELSEWHERE|ENTRY|IN|INCLUDE|INOUT|KIND|NULL|ONLY|OPERATOR|OUT|PURE|RECURSIVE|RESULT|SEQUENCE|STAT|THEN|USE)\b/i,
+  ],
+  operator: [
+    /\*\*|\/\/|=>|[=\/]=|[<>]=?|::|[+\-*=%]|\.[A-Z]+\./i,
+    {
+      // Use lookbehind to prevent confusion with (/ /)
+      pattern: /(^|(?!\().)\/(?!\))/,
+      lookbehind: true,
+    },
+  ],
+  punctuation: /\(\/|\/\)|[(),;:&]/,
+};
-- 
cgit v1.2.3