2008-10-03 Pascal Gentil <pascal.gentil@univ-rennes1.fr>

       * fortran.nanorc: Sample python syntax highlighting file

git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4334 35c25a1d-7b9e-4130-9fde-d3aeb78583b8

diff --git a/ChangeLog b/ChangeLog
index ea68a112262f042730b819703ae230a624d58b7a..27953da316008b1ab770200433322c434ea22390 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,7 @@
-2009-09-30 Dirkjan Ochtman <dirkjan@ochtman.nl>
+2008-10-03 Pascal Gentil <pascal.gentil@univ-rennes1.fr>
+       * fortran.nanorc: Sample python syntax highlighting file
+
+2008-09-30 Dirkjan Ochtman <dirkjan@ochtman.nl>
        * python.nanorc: Small python syntax update
 
 2008-09-30 <bluestorm_dylc@hotmail.com>

diff --git a/doc/syntax/Makefile.am b/doc/syntax/Makefile.am
index a3bad823d1794b83a7553cd470ce31c5fcf4caba..828bd7bb6c6ab9e821612a0b8701d44e33f355ba 100644 (file)
--- a/doc/syntax/Makefile.am
+++ b/doc/syntax/Makefile.am
@@ -21,6 +21,7 @@ pkgdata_DATA =        asm.nanorc \
                css.nanorc \
                xml.nanorc \
                ocaml.nanorc \
-               objc.nanorc
+               objc.nanorc \
+               fortran.nanorc
 
 EXTRA_DIST = $(pkgdata_DATA)

diff --git a/doc/syntax/fortran.nanorc b/doc/syntax/fortran.nanorc
new file mode 100644 (file)
index 0000000..cc0c726
--- /dev/null
+++ b/doc/syntax/fortran.nanorc
@@ -0,0 +1,41 @@
+## Here is an example for Fortran 90/95
+
+syntax "fortran" "\.(f|f90|f95)$" 
+
+#color red "\<[A-Z_]a[0-9A-Z_]+\>" 
+color red "\<[0-9]+\>" 
+
+icolor green "\<(action|advance|all|allocatable|allocated|any|apostrophe)\>"
+icolor green "\<(append|asis|assign|assignment|associated|character|common)\>"
+icolor green "\<(complex|data|default|delim|dimension|double precision)\>"
+icolor green "\<(elemental|epsilon|external|file|fmt|form|format|huge)\>"
+icolor green "\<(implicit|include|index|inquire|integer|intent|interface)\>"
+icolor green "\<(intrinsic|iostat|kind|logical|module|none|null|only)>"
+icolor green "\<(operator|optional|pack|parameter|pointer|position|private)\>"
+icolor green "\<(program|public|real|recl|recursive|selected_int_kind)\>"
+icolor green "\<(selected_real_kind|subroutine|status)\>"
+
+icolor cyan "\<(abs|achar|adjustl|adjustr|allocate|bit_size|call|char)\>" 
+icolor cyan "\<(close|contains|count|cpu_time|cshift|date_and_time)\>" 
+icolor cyan "\<(deallocate|digits|dot_product|eor|eoshift|function|iachar)\>" 
+icolor cyan "\<(iand|ibclr|ibits|ibset|ichar|ieor|iolength|ior|ishft|ishftc)\>" 
+icolor cyan "\<(lbound|len|len_trim|matmul|maxexponent|maxloc|maxval|merge)\>" 
+icolor cyan "\<(minexponent|minloc|minval|mvbits|namelist|nearest|nullify)\>" 
+icolor cyan "\<(open|pad|present|print|product|pure|quote|radix)\>" 
+icolor cyan "\<(random_number|random_seed|range|read|readwrite|replace)\>" 
+icolor cyan "\<(reshape|rewind|save|scan|sequence|shape|sign|size|spacing)\>" 
+icolor cyan "\<(spread|sum|system_clock|target|transfer|transpose|trim)\>" 
+icolor cyan "\<(ubound|unpack|verify|write|tiny|type|use|yes)\>"
+
+icolor yellow "\<(.and.|case|do|else|else?if|else?where|end|end?do|end?if)\>"
+icolor yellow "\<(end?select|.eqv.|forall|if|lge|lgt|lle|llt|.neqv.|.not.)\>"
+icolor yellow "\<(.or.|repeat|select case|then|where|while)\>"
+
+icolor magenta "\<(continue|cycle|exit|go?to|result|return)\>"
+
+## String highlighting.  
+icolor yellow "<[^=    ]*>" ""(\\.|[^"])*""
+
+## Comment highlighting
+icolor blue "!.*"
+