From 513157dfa08c59bdc06788e4bd88052e824fd581 Mon Sep 17 00:00:00 2001 From: Chris Allegretta Date: Fri, 3 Oct 2008 21:00:35 +0000 Subject: [PATCH] 2008-10-03 Pascal Gentil * fortran.nanorc: Sample python syntax highlighting file git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4334 35c25a1d-7b9e-4130-9fde-d3aeb78583b8 --- ChangeLog | 5 ++++- doc/syntax/Makefile.am | 3 ++- doc/syntax/fortran.nanorc | 41 +++++++++++++++++++++++++++++++++++++++ 3 files changed, 47 insertions(+), 2 deletions(-) create mode 100644 doc/syntax/fortran.nanorc diff --git a/ChangeLog b/ChangeLog index ea68a112..27953da3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,4 +1,7 @@ -2009-09-30 Dirkjan Ochtman +2008-10-03 Pascal Gentil + * fortran.nanorc: Sample python syntax highlighting file + +2008-09-30 Dirkjan Ochtman * python.nanorc: Small python syntax update 2008-09-30 diff --git a/doc/syntax/Makefile.am b/doc/syntax/Makefile.am index a3bad823..828bd7bb 100644 --- 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 index 00000000..cc0c726a --- /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 "!.*" +