Adding fortran-modern support

aaron-bond · Sep 2, 2018 · 8762226 · 8762226
1 parent a772f37
commit 8762226
Show file tree

Hide file tree

Showing 4 changed files with 20 additions and 1 deletion.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,8 +1,9 @@
 # Change Log
 
-## [1.2.6] (2018-06-10)
+## [1.2.6] (2018-09-02)
 ### Features
 * Adding support for Flax ([71f6326](https://github.com/aaron-bond/better-comments/commit/71f6326)), merges [#76](https://github.com/aaron-bond/better-comments/issues/76)
+* Adding support for Fortran (modern) ([](https://github.com/aaron-bond/better-comments/commit/)), closes [#89](https://github.com/aaron-bond/better-comments/issues/89)
 ### House Keeping
 * Updating README to reflect actual styntax better ([71f9019](https://github.com/aaron-bond/better-comments/commit/71f9019)), merges [#77](https://github.com/aaron-bond/better-comments/issues/77)
 

diff --git a/package.json b/package.json
@@ -37,6 +37,7 @@
         "onLanguage:erlang",
         "onLanguage:flax",
         "onLanguage:fsharp",
+        "onLanguage:fortran-modern",
         "onLanguage:go",
         "onLanguage:graphql",
         "onLanguage:groovy",

diff --git a/src/parser.ts b/src/parser.ts
@@ -280,6 +280,10 @@ export class Parser {
 				this.supportedLanguage = this.contributions.highlightPlainText;
 				break;
 
+			case "fortran-modern":
+				this.delimiter = "c";
+				break;
+
 			default:
 				this.supportedLanguage = false;
 				break;

diff --git a/src/test/samples/fortran.f03 b/src/test/samples/fortran.f03
@@ -0,0 +1,13 @@
+program circle
+      real r, area
+
+c ! This program reads a real number r and prints
+c * the area of a circle with radius r.
+
+      write (*,*) 'Give radius r:'
+      read  (*,*) r
+      area = 3.14159*r*r
+      write (*,*) 'Area = ', area
+
+      stop
+      end