"Fossies" - the Fresh Open Source Software Archive

Member "wscite/fortran.properties" (11 Sep 2020, 7087 Bytes) of package /windows/misc/wscite445.zip:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

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