config/fortran.properties

   1 # Define SciTE settings for Fortran files.
   2
   3 #filter.fortran=Fortran (f for f90 f95 f2k)|*.f;*.for;*.f90;*.f95;*.f2k|
   4 filter.fortran=Fortran (for f90 f95 f2k)|*.for;*.f90;*.f95;*.f2k|
   5
   6 #file.patterns.f95=*.f90;*.f95;*.f2k
   7 file.patterns.f95=*.f90;*.f95;*.f2k;*.pat
   8 #file.patterns.f77=*.f;*.for
   9 file.patterns.f77=*.for
  10 file.patterns.fortran=$(file.patterns.f95);$(file.patterns.f77)
  11
  12 lexer.$(file.patterns.f95)=fortran
  13 lexer.$(file.patterns.f77)=f77
  14
  15 # keywords and input/output specifiers
  16 keywordclass.fortran=access action advance allocatable allocate \
  17 apostrophe assign assignment associate asynchronous backspace \
  18 bind blank blockdata call case character class close common \
  19 complex contains continue cycle data deallocate decimal delim \
  20 default dimension direct do dowhile double doubleprecision else \
  21 elseif elsewhere encoding end endassociate endblockdata enddo \
  22 endfile endforall endfunction endif endinterface endmodule endprogram \
  23 endselect endsubroutine endtype endwhere entry eor equivalence \
  24 err errmsg exist exit external file flush fmt forall form format \
  25 formatted function go goto id if implicit in include inout \
  26 integer inquire intent interface intrinsic iomsg iolength \
  27 iostat kind len logical module name named namelist nextrec nml \
  28 none nullify number only open opened operator optional out pad \
  29 parameter pass pause pending pointer pos position precision \
  30 print private program protected public quote read readwrite \
  31 real rec recl recursive result return rewind save select \
  32 selectcase selecttype sequential sign size stat status stop stream \
  33 subroutine target then to type unformatted unit use value \
  34 volatile wait where while write
  35
  36 keywords.$(file.patterns.f95)=$(keywordclass.fortran)
  37 keywords.$(file.patterns.f77)=$(keywordclass.fortran)
  38
  39 # keywords2 is for highlighting intrinsic and extended functions
  40 keywords2.$(file.patterns.fortran)=abs achar acos acosd adjustl adjustr \
  41 aimag aimax0 aimin0 aint ajmax0 ajmin0 akmax0 akmin0 all allocated alog \
  42 alog10 amax0 amax1 amin0 amin1 amod anint any asin asind associated \
  43 atan atan2 atan2d atand bitest bitl bitlr bitrl bjtest bit_size bktest break \
  44 btest cabs ccos cdabs cdcos cdexp cdlog cdsin cdsqrt ceiling cexp char \
  45 clog cmplx conjg cos cosd cosh count cpu_time cshift csin csqrt dabs \
  46 dacos dacosd dasin dasind datan datan2 datan2d datand date \
  47 date_and_time dble dcmplx dconjg dcos dcosd dcosh dcotan ddim dexp \
  48 dfloat dflotk dfloti dflotj digits dim dimag dint dlog dlog10 dmax1 dmin1 \
  49 dmod dnint dot_product dprod dreal dsign dsin dsind dsinh dsqrt dtan dtand \
  50 dtanh eoshift epsilon errsns exp exponent float floati floatj floatk floor fraction \
  51 free huge iabs iachar iand ibclr ibits ibset ichar idate idim idint idnint ieor ifix \
  52 iiabs iiand iibclr iibits iibset iidim iidint iidnnt iieor iifix iint iior iiqint iiqnnt iishft \
  53 iishftc iisign ilen imax0 imax1 imin0 imin1 imod index inint inot int int1 int2 int4 \
  54 int8 iqint iqnint ior ishft ishftc isign isnan izext jiand jibclr jibits jibset jidim jidint \
  55 jidnnt jieor jifix jint jior jiqint jiqnnt jishft jishftc jisign jmax0 jmax1 jmin0 jmin1 \
  56 jmod jnint jnot jzext kiabs kiand kibclr kibits kibset kidim kidint kidnnt kieor kifix \
  57 kind kint kior kishft kishftc kisign kmax0 kmax1 kmin0 kmin1 kmod knint knot kzext \
  58 lbound leadz len len_trim lenlge lge lgt lle llt log log10 logical lshift malloc matmul \
  59 max max0 max1 maxexponent maxloc maxval merge min min0 min1 minexponent minloc \
  60 minval mod modulo mvbits nearest nint not nworkers number_of_processors pack popcnt \
  61 poppar precision present product radix random random_number random_seed range real \
  62 repeat reshape rrspacing rshift scale scan secnds selected_int_kind \
  63 selected_real_kind set_exponent shape sign sin sind sinh size sizeof sngl snglq spacing \
  64 spread sqrt sum system_clock tan tand tanh tiny transfer transpose trim ubound unpack verify
  65
  66 # keywords3 are nonstardard, extended and user defined functions
  67 keywords3.$(file.patterns.fortran)=cdabs cdcos cdexp cdlog cdsin cdsqrt cotan cotand \
  68 dcmplx dconjg dcotan dcotand decode dimag dll_export dll_import doublecomplex dreal \
  69 dvchk encode find flen flush getarg getcharqq getcl getdat getenv gettim hfix ibchng \
  70 identifier imag int1 int2 int4 intc intrup invalop iostat_msg isha ishc ishl jfix \
  71 lacfar locking locnear map nargs nbreak ndperr ndpexc offset ovefl peekcharqq precfill \
  72 prompt qabs qacos qacosd qasin qasind qatan qatand qatan2 qcmplx qconjg qcos qcosd \
  73 qcosh qdim qexp qext qextd qfloat qimag qlog qlog10 qmax1 qmin1 qmod qreal qsign qsin \
  74 qsind qsinh qsqrt qtan qtand qtanh ran rand randu rewrite segment setdat settim system \
  75 timer undfl unlock union val virtual volatile zabs zcos zexp zlog zsin zsqrt
  76
  77 #fold.comment.fortran=1
  78 #fold.quotes.fortran=1
  79
  80 comment.block.fortran=!~
  81
  82 # These setting do not work very well for FORTRAN, uncoment to use it
  83 # statement.indent.$(file.patterns.fortran)=8 associate block blockdata case do enum \
  84 #       function interface module program subroutine then type where
  85 # statement.end.$(file.patterns.fortran)=10 end
  86
  87 # Fortran styles
  88 # Default
  89 style.fortran.0=fore:#808080
  90 style.f77.0=fore:#808080
  91 style.fortran.32=
  92 style.f77.32=
  93 # Comment
  94 style.fortran.1=$(colour.code.comment.line),$(font.code.comment.line)
  95 style.f77.1=$(colour.code.comment.line),$(font.code.comment.line)
  96 # Number
  97 style.fortran.2=$(colour.number)
  98 style.f77.2=$(colour.number)
  99 # Single quoted string
 100 style.fortran.3=$(colour.string)
 101 style.f77.3=$(colour.string)
 102 # Double quoted string
 103 style.fortran.4=$(colour.string)
 104 style.f77.4=$(colour.string)
 105 # End of line where string is not closed
 106 style.fortran.5=fore:#000000,back:#E0C0E0,eolfilled
 107 style.f77.5=fore:#000000,back:#E0C0E0,eolfilled
 108 # Operators
 109 style.fortran.6=$(colour.operator),bold
 110 style.f77.6=$(colour.operator),bold
 111 # Identifiers
 112 style.fortran.7=
 113 style.f77.7=
 114 # Keywords
 115 style.fortran.8=$(colour.keyword),case:u
 116 style.f77.8=$(colour.keyword),case:u
 117 # Keywords2
 118 style.fortran.9=fore:#B00040
 119 style.f77.9=fore:#B00040
 120 # Keywords3
 121 style.fortran.10=fore:#B04080
 122 style.f77.10=fore:#B04080
 123 # Preprocessor
 124 style.fortran.11=$(colour.preproc)
 125 style.f77.11=$(colour.preproc)
 126 # Operators in .NAME. format
 127 #style.fortran.12=$(colour.operator),bold
 128 #style.f77.12=$(colour.operator),bold
 129 style.fortran.12=$(colour.operator)
 130 style.f77.12=$(colour.operator)
 131 # Labels
 132 style.fortran.13=fore:#E0C0E0
 133 style.f77.13=fore:#E0C0E0
 134 # Continuation
 135 style.fortran.14=fore:#000000,back:#F0E080
 136 style.f77.14=fore:#000000,back:#F0E080
 137 # Braces are matched in all cases
 138 braces.fortran.style=0
 139
 140 if PLAT_WIN
 141         fc77=lf95 $(FileNameExt) -c -fix
 142         fc90=lf95 $(FileNameExt) -c
 143         g95=g95 $(FileNameExt) -o $(FileName).exe
 144 if PLAT_GTK
 145         fc77=f77 -c -o $(FileName).o $(FileNameExt)
 146         fc90=f90 -c -o $(FileName).o $(FileNameExt)
 147         g95=g95 $(FileNameExt) -o $(FileName).exe
 148 command.compile.*.f=$(g95)
 149 command.build.*.f=make
 150 command.go.*.f=$(FileName)
 151
 152 command.compile.*.for=$(g95)
 153 command.build.*.for=make
 154 command.go.*.for=$(FileName)
 155
 156 command.compile.*.f90=$(g95)
 157 command.build.*.f90=make
 158 command.go.*.f90=$(FileName)
 159
 160 command.compile.*.f95=$(g95)
 161 command.build.*.f95=make
 162 command.go.*.f95=$(FileName)
 163
 164 if PLAT_WIN
 165     api.$(file.patterns.fortran)=$(SciteDefaultHome)\fortran.api
 166
 167 autocomplete.fortran.ignorecase=1
 168 autocomplete.f77.ignorecase=1
 169 calltip.fortran.ignorecase=1
 170 calltip.f77.ignorecase=1