config/forth.properties

   1 # Define SciTE settings for Forth files
   2
   3 # These patterns conflict with fortran.properties and nncrontab.properties
   4 # so disable these other properties files if you want to use forth.
   5 file.patterns.forth=*.f;*.4th
   6
   7 # add '*.tab;*.spf;' to 'source.files' variable in 'SciTEGlobal.properties'
   8 # if you want to include these file patterns into default source file list
   9
  10 lexer.$(file.patterns.forth)=forth
  11
  12 *language.forth=Forth|forth||
  13
  14
  15 filter.forth=Forth files (4th f)|$(file.patterns.forth)|
  16
  17 *filter.forth=$(filter.forth)
  18
  19
  20 word.characters.$(file.patterns.forth)=$(chars.alpha)$(chars.numeric)_
  21
  22 comment.block.forth=\
  23 #comment.block.at.line.start.forth=0
  24 comment.stream.start.forth=
  25 comment.stream.end.forth=
  26 comment.box.start.forth=
  27 comment.box.middle.forth=
  28 comment.box.end.forth=
  29 block.start.forth=
  30 block.end.forth=
  31 # Forth styles
  32
  33 # control keywords Forth
  34 keywords.$(file.patterns.forth)=\
  35 again begin case do i j else endcase endof if loop +loop leave unloop of repeat then until  while ?do \
  36 <  >  >= = <> 0<> 0= 0< <0 0>= u< u>= s< s>= jmp goto ?goto bw1 bw2 bw3 fw1 fw2 fw3
  37
  38 # Keywords
  39 keywords2.$(file.patterns.forth)=\
  40 dup ?dup drop rot swap over @ ! 2@ 2! 2dup 2drop 2swap 2over nip r@ >r r> 2r@ 2>r 2r> \
  41      sp@ sp! @ ! c@ c! s>d um/mod um* m* * fm/mod sm/rem rshift lshift invert 1+ 1- negate \
  42      is lit depth /mod mod \
  43     space spaces bl word char fill key? key abort */ 2* 2/ /mod cell+ cells char+ \
  44     chars move abs hex decimal hold <# # #s #> sign or \
  45     count type . u. dump (.") >number ' exit recurse here allot , \
  46     c, branch 0branch  ?branch align aligned create does> \
  47     variable constant defer definitions forth only also previous literal \
  48     source evaluate word interpret quit >body execute find state base \
  49     words  accept emit cr type echo noecho min max true false \
  50     char [char] postpone ['] rst_set rst_ret sys \
  51     assembler close pad
  52
  53 # defwords
  54 keywords3.$(file.patterns.forth)=\
  55 code hdncode endcode  :  ;  immediate :noname codennm \
  56 lo2hi hi2lo colon \
  57
  58 # MSP430 assembly words & MSP430_instructions
  59 keywords4.$(file.patterns.forth)=\
  60     adc adc.b adc.w add add.b add.w addc addc.b addc.w and and.b and.w \
  61     bic bic.b bic.w bis bis.b bis.w bit bit.b bit.w br branch call clrc clrn clrz dint eint \
  62     clr clr.b clr.w cmp cmp.b cmp.w dadc dadc.b dadc.w dadd dadd.b dadd.w dec dec.b dec.w decd decd.b decd.w \
  63     inc inc.b inc.w incd incd.b incd.w inv inv.b inv.w mov mov.b mov.w pop pop.b pop.w push push.b push.w \
  64     jc jhs je jeq jz jge jl jmp jn jnc jlo jne jnz nop nop2 nop3 nop4 nop5 nop6 nop7 ret reti setc setn setz swpb sxt \
  65     rla rla.b rla.w rlc rlc.b rlc.w rra rra.b rra.w rrc rrc.b rrc.w sbc sbc.b sbc.w sub sub.b sub.w \
  66     subc subc.b subc.w sbb sbb.b sbb.w tst tst.b tst.w xor xor.b xor.w \
  67     pushm popm rlam rram rrcm rrum \
  68 # MSP430X_instructions
  69     mova cmpa adda suba calla \
  70     movx movx.a movx.b addx addx.a addx.b addcx addcx.a addcx.b subx subx.a subx.b subcx subcx.a subcx.b \
  71     cmpx cmpx.a cmpx.b daddx daddx.a daddx.b bitx bitx.a bitx.b bicx bicx.a bicx.b bisx bisx.a bisx.b \
  72     xorx xorx.a xorx.b andx andx.a andx.b rrcx rrcx.a rrcx.b rrux rrux.a rrux.b swpbx swpbx.a \
  73     rrax rrax.a rrax.b sxtx sxtx.a pushx pushx.a pushx.b rpt
  74
  75
  76 #keywords5.$(file.patterns.forth)= \
  77 #u v w x y ip tos pc rsp psp
  78
  79 # string words
  80 keywords6.$(file.patterns.forth)=\
  81 s"  ." c" abort" ( .(  read" write" del" load"
  82
  83
  84
  85
  86
  87 # Default
  88 style.forth.32=$(font.base)
  89
  90 # whitespace (SCE_FORTH_DEFAULT)
  91 style.forth.0=$(font.base)
  92
  93 # Comment (SCE_FORTH_COMMENT)
  94 style.forth.1=fore:#00FF00,$(font.comment)
  95
  96 # ( ) comment (SCE_FORTH_COMMENT_ML)
  97 style.forth.2=fore:#00FF00,$(font.comment)
  98
  99 # ML comment (SCE_FORTH_IDENTIFIER)
 100 style.forth.3=fore:#FFFFFF
 101
 102 # control (keyword_FORTH_CONTROL)
 103 style.forth.4=fore:#0000FF
 104
 105 # Keywords (keyword2_SCE_FORTH_KEYWORD)
 106 style.forth.5=fore:#FF00FF,$(font.base)
 107
 108 # defwords (keyword3_SCE_FORTH_DEFWORD)
 109 style.forth.6=fore:#FFFF00,$(font.base)
 110
 111 # preword1 (keyword4_SCE_msp430_assembly)
 112 style.forth.7=fore:#FF0000,$(font.base)
 113
 114 # preword2 (keyword5_SCE_msp430_registers)
 115 style.forth.8=fore:#FFFF00,$(font.base)
 116
 117 # number (SCE_FORTH_NUMBER)
 118 style.forth.9=fore:#00BFBF,$(font.base)
 119
 120 # Double quoted string (SCE_FORTH_STRING)
 121 style.forth.10=fore:#00FFFF,$(font.base)
 122
 123 # locale
 124 style.forth.11=fore:#0077FF,$(font.base)
 125
 126 #command.compile.*.f=spf.cmd $(FileNameExt)
 127
 128 if PLAT_WIN
 129     command.name.0.*.f=preprocess file.f with 1:[target].pat then download file.4TH
 130     command.0.*.f=*\config\SendSource.bat $(FileDir)\$(FileName).f $(1)$(2) NOECHO
 131
 132     command.name.1.*.f=preprocess file.f with 1:[target].pat then download file.4TH with ECHO
 133     command.1.*.f=*\config\SendSource.bat $(FileDir)\$(FileName).f $(1)$(2) ECHO
 134
 135     command.name.2.*.f=preprocess file.f with 1:[target].pat then download file.4th HALFDUPLEX
 136     command.2.*.f=*\config\SendSource.bat $(FileDir)/$(FileName).f $(1)$(2) HALF
 137
 138     command.name.3.*.f=preprocess file.f with 1:[target].pat then download file.4TH to target SD_CARD
 139     command.3.*.f=*\config\CopyTo_SD_Card.bat $(FileDir)\$(FileName).f $(1)$(2)
 140
 141     command.name.4.*.f=preprocess file.f with 1:[target].pat to LAST.4th (for debug)
 142     command.4.*.f=*\config\Preprocess.bat $(FileDir)\$(FileName).f $(1)$(2)
 143
 144     command.name.5.*.f=preprocess file.f with target CurrentSelection then download
 145     command.5.*.f=\config\SendSource.bat $(FileDir)\$(FileName).f  $(CurrentSelection) NOECHO
 146
 147     command.name.6.*.f=preprocess file.f with target CurrentSelection then download with ECHO
 148     command.6.*.f=\config\SendSource.bat $(FileDir)\$(FileName).f  $(CurrentSelection) ECHO
 149
 150     command.name.7.*.f=preprocess file.f with target CurrentSelection then download HALFDUPLEX
 151     command.7.*.f=\config\SendSource.bat $(FileDir)\$(FileName).f  $(CurrentSelection) HALF
 152
 153     command.name.8.*.f=preprocess file.f with target CurrentSelection then download file.4th to target SD_CARD
 154     command.8.*.f=\config\CopyTo_SD_Card.bat $(FileDir)\$(FileName).f  $(CurrentSelection)
 155
 156     command.name.9.*.f=preprocess file.f with target CurrentSelection to LAST.4th (for debug)
 157     command.9.*.f=\config\Preprocess.bat $(FileDir)\$(FileName).f  $(CurrentSelection)
 158
 159     command.name.10.*.f=convert FORTH registers to TI's ones
 160     command.10.*.f=\prog\gema -line -t -f \inc\FastForthREGtoTI.pat $(FileNameExt) $(FileNameExt)
 161
 162     command.name.11.*.f=convert TI registers to FORTH's ones
 163     command.11.*.f=\prog\gema -line -t -f \inc\TiREGtoFastForth.pat $(FileNameExt) $(FileNameExt)
 164
 165     command.name.0.*.4th=send file.4th to target
 166     command.0.*.4th=\config\SendSource.bat $(FileDir)\$(FileName).4TH NOECHO
 167
 168     command.name.1.*.4th=send file.4th to target with ECHO
 169     command.1.*.4th=\config\SendSource.bat $(FileDir)\$(FileName).4TH ECHO
 170
 171     command.name.2.*.4th=send file.4th to target with HALFDUPLEX
 172     command.2.*.4th=\config\SendSource.bat $(FileDir)/$(FileName).4th HALF
 173
 174     command.name.3.*.4th=send file.4th to target SD_CARD
 175     command.3.*.4th=\config\CopyTo_SD_Card.bat $(FileDir)\$(FileName).4TH
 176
 177     command.name.4.*.4th=convert TI registers to FORTH's ones
 178     command.4.*.4th=\prog\gema -line -t -f \inc\TiREGtoFastForth.pat $(FileNameExt) $(FileNameExt)
 179
 180     command.name.5.*.4th=convert FORTH registers to TI's ones
 181     command.5.*.4th=\prog\gema -line -t -f \inc\FastForthREGtoTI.pat $(FileNameExt) $(FileNameExt)
 182
 183 if PLAT_GTK
 184     # variable $FF = /media/jeanmi/DATA/CloudStation is defined in my ~.profile
 185     # open first scite in a terminal to import $FF
 186     command.name.0.*.f=preprocess file.f with 1:[target].pat then download file.4th without ECHO
 187     command.0.*.f=*../config/SendSource $(FileDir)/$(FileName) $(1) NOECHO
 188
 189     command.name.1.*.f=preprocess file.f with 1:[target].pat then download file.4th with ECHO
 190     command.1.*.f=*../config/SendSource $(FileDir)/$(FileName) $(1) ECHO
 191
 192     command.name.2.*.f=preprocess file.f with 1:[target].pat then download file.4th HALFDUPLEX
 193     command.2.*.f=*../config/SendSource $(FileDir)/$(FileName) $(1) HALF
 194
 195     command.name.3.*.f=preprocess file.f with 1:[target].pat then download file.4th to target SD_CARD
 196     command.3.*.f=*../config/CopyTo_SD_Card $(FileDir)/$(FileName) $(1)
 197
 198     command.name.4.*.f=preprocess file.f with 1:[target].pat to LAST.4th (for debug)
 199     command.4.*.f=*../config/Preprocess $(FileDir)/$(FileName) $(1)
 200
 201     command.name.5.*.f=preprocess file.f with for target CurrentSelection then download
 202     command.5.*.f=../config/SendSource $(FileDir)/$(FileName) $(CurrentSelection)
 203
 204     command.name.6.*.f=preprocess file.f with for target CurrentSelection then download with ECHO
 205     command.6.*.f=../config/SendSource $(FileDir)/$(FileName) $(CurrentSelection) ECHO
 206
 207     command.name.7.*.f=preprocess file.f with for target CurrentSelection then download file.4th to target SD_CARD
 208     command.7.*.f=../config/CopyTo_SD_Card $(FileDir)/$(FileName).f  $(CurrentSelection)
 209
 210     command.name.8.*.f=preprocess file.f with for target CurrentSelection to LAST.4th (for debug)
 211     command.8.*.f=../config/Preprocess $(FileDir)/$(FileName)  $(CurrentSelection)
 212
 213     command.name.9.*.f=convert FORTH registers to TI's ones
 214     command.9.*.f=gema -line -t -f ./inc/FastForthREGtoTI.pat $(FileNameExt) $(FileNameExt)
 215
 216     command.name.10.*.f=convert TI registers to FORTH's ones
 217     command.10.*.f=gema -line -t -f ./inc/tiREGtoFastForth.pat $(FileNameExt) $(FileNameExt)
 218
 219     command.name.0.*.4th=send file.4th to target without ECHO
 220     command.0.*.4th=./config/msp430/SendSource $(FileDir)/$(FileName).4th NOECHO
 221
 222     command.name.1.*.4th=send file.4th to target with ECHO
 223     command.1.*.4th=./config/msp430/SendSource $(FileDir)/$(FileName).4th ECHO
 224
 225     command.name.2.*.4th=send file.4th to target with HALFDUPLEX
 226     command.2.*.4th=./config/msp430/SendSource $(FileDir)/$(FileName).4th HALF
 227
 228     command.name.3.*.4th=send file.4th to target SD_CARD
 229     command.3.*.4th=./config/CopyTo_SD_Card $(FileDir)/$(FileName).4th
 230
 231     command.name.4.*.4th=convert TI registers to FORTH's ones
 232     command.4.*.4th=gema -line -t -f ./inc/TiREGtoFastForth.pat $(FileNameExt) $(FileNameExt)
 233
 234     command.name.5.*.4th=convert FORTH registers to TI's ones
 235     command.5.*.4th=gema -line -t -f ./inc/FastForthREGtoTI.pat $(FileNameExt) $(FileNameExt)
 236
 237