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     (cr) (EMIT) (accept) (warm) is lit warm 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 forget 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_here rst_state wipe pwr_here  pwr_state \
  51     assembler close pad caps_on caps_off
  52
  53 # defwords
  54 keywords3.$(file.patterns.forth)=\
  55 code hdncode endcode  :  ;  immediate ;noname codennm \
  56 lo2hi hi2lo colon \
  57 [if] [else] [then] [undefined] [defined]
  58
  59 # MSP430 assembly words & MSP430_instructions
  60 keywords4.$(file.patterns.forth)=\
  61     adc adc.b adc.w add add.b add.w addc addc.b addc.w and and.b and.w \
  62     bic bic.b bic.w bis bis.b bis.w bit bit.b bit.w br branch call clrc clrn clrz dint eint \
  63     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 \
  64     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 \
  65     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 \
  66     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 \
  67     subc subc.b subc.w sbb sbb.b sbb.w tst tst.b tst.w xor xor.b xor.w \
  68     pushm popm rlam rram rrcm rrum \
  69 # MSP430X_instructions
  70     mova cmpa adda suba calla \
  71     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 \
  72     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 \
  73     xorx xorx.a xorx.b andx andx.a andx.b rrcx rrcx.a rrcx.b rrux rrux.a rrux.b swpbx swpbx.a \
  74     rrax rrax.a rrax.b sxtx sxtx.a pushx pushx.a pushx.b rpt
  75
  76
  77 #keywords5.$(file.patterns.forth)= \
  78 #u v w x y ip tos pc rsp psp
  79
  80 # string words
  81 keywords6.$(file.patterns.forth)=\
  82 s"  ." c" abort" ( .(  read" write" del" load"
  83
  84
  85
  86
  87
  88 # Default
  89 style.forth.32=$(font.base)
  90
  91 # whitespace (SCE_FORTH_DEFAULT)
  92 style.forth.0=$(font.base)
  93
  94 # Comment (SCE_FORTH_COMMENT)
  95 style.forth.1=fore:#00FF00,$(font.comment)
  96
  97 # ( ) comment (SCE_FORTH_COMMENT_ML)
  98 style.forth.2=fore:#00FF00,$(font.comment)
  99
 100 # ML comment (SCE_FORTH_IDENTIFIER)
 101 style.forth.3=fore:#FFFFFF
 102
 103 # control (keyword_FORTH_CONTROL)
 104 style.forth.4=fore:#0000FF
 105
 106 # Keywords (keyword2_SCE_FORTH_KEYWORD)
 107 style.forth.5=fore:#FF00FF,$(font.base)
 108
 109 # defwords (keyword3_SCE_FORTH_DEFWORD)
 110 style.forth.6=fore:#FFFF00,$(font.base)
 111
 112 # preword1 (keyword4_SCE_msp430_assembly)
 113 style.forth.7=fore:#FF0000,$(font.base)
 114
 115 # preword2 (keyword5_SCE_msp430_registers)
 116 style.forth.8=fore:#FFFF00,$(font.base)
 117
 118 # number (SCE_FORTH_NUMBER)
 119 style.forth.9=fore:#00BFBF,$(font.base)
 120
 121 # Double quoted string (SCE_FORTH_STRING)
 122 style.forth.10=fore:#00FFFF,$(font.base)
 123
 124 # locale
 125 style.forth.11=fore:#0077FF,$(font.base)
 126
 127 #command.compile.*.f=spf.cmd $(FileNameExt)
 128
 129 if PLAT_WIN
 130     command.name.0.*.f=preprocess file.f with 1:[target].pat then download file.4TH
 131     command.0.*.f=*\config\SendSource.bat $(FileDir)\$(FileName).f $(1)$(2) NOECHO
 132
 133     command.name.1.*.f=preprocess file.f with 1:[target].pat then download file.4TH with ECHO
 134     command.1.*.f=*\config\SendSource.bat $(FileDir)\$(FileName).f $(1)$(2) ECHO
 135
 136     command.name.2.*.f=preprocess file.f with 1:[target].pat then download file.4th HALFDUPLEX
 137     command.2.*.f=*\config\SendSource.bat $(FileDir)/$(FileName).f $(1)$(2) HALF
 138
 139     command.name.3.*.f=preprocess file.f with 1:[target].pat then download file.4TH to target SD_CARD
 140     command.3.*.f=*\config\CopyTo_SD_Card.bat $(FileDir)\$(FileName).f $(1)$(2)
 141
 142     command.name.4.*.f=preprocess file.f with 1:[target].pat to LAST.4th (for debug)
 143     command.4.*.f=*\config\Preprocess.bat $(FileDir)\$(FileName).f $(1)$(2)
 144
 145     command.name.5.*.f=preprocess file.f with target CurrentSelection then download
 146     command.5.*.f=\config\SendSource.bat $(FileDir)\$(FileName).f  $(CurrentSelection) NOECHO
 147
 148     command.name.6.*.f=preprocess file.f with target CurrentSelection then download with ECHO
 149     command.6.*.f=\config\SendSource.bat $(FileDir)\$(FileName).f  $(CurrentSelection) ECHO
 150
 151     command.name.7.*.f=preprocess file.f with target CurrentSelection then download HALFDUPLEX
 152     command.7.*.f=\config\SendSource.bat $(FileDir)\$(FileName).f  $(CurrentSelection) HALF
 153
 154     command.name.8.*.f=preprocess file.f with target CurrentSelection then download file.4th to target SD_CARD
 155     command.8.*.f=\config\CopyTo_SD_Card.bat $(FileDir)\$(FileName).f  $(CurrentSelection)
 156
 157     command.name.9.*.f=preprocess file.f with target CurrentSelection to LAST.4th (for debug)
 158     command.9.*.f=\config\Preprocess.bat $(FileDir)\$(FileName).f  $(CurrentSelection)
 159
 160     command.name.10.*.f=convert FORTH registers to TI's ones
 161     command.10.*.f=\prog\gema -line -t -f \inc\FastForthREGtoTI.pat $(FileNameExt) $(FileNameExt)
 162
 163     command.name.11.*.f=convert TI registers to FORTH's ones
 164     command.11.*.f=\prog\gema -line -t -f \inc\TiREGtoFastForth.pat $(FileNameExt) $(FileNameExt)
 165
 166     command.name.0.*.4th=send file.4th to target
 167     command.0.*.4th=\config\SendSource.bat $(FileDir)\$(FileName).4TH NOECHO
 168
 169     command.name.1.*.4th=send file.4th to target with ECHO
 170     command.1.*.4th=\config\SendSource.bat $(FileDir)\$(FileName).4TH ECHO
 171
 172     command.name.2.*.4th=send file.4th to target with HALFDUPLEX
 173     command.2.*.4th=\config\SendSource.bat $(FileDir)/$(FileName).4th HALF
 174
 175     command.name.3.*.4th=send file.4th to target SD_CARD
 176     command.3.*.4th=\config\CopyTo_SD_Card.bat $(FileDir)\$(FileName).4TH
 177
 178     command.name.4.*.4th=convert TI registers to FORTH's ones
 179     command.4.*.4th=\prog\gema -line -t -f \inc\TiREGtoFastForth.pat $(FileNameExt) $(FileNameExt)
 180
 181     command.name.5.*.4th=convert FORTH registers to TI's ones
 182     command.5.*.4th=\prog\gema -line -t -f \inc\FastForthREGtoTI.pat $(FileNameExt) $(FileNameExt)
 183
 184 if PLAT_GTK
 185     # variable $FF = /media/jeanmi/DATA/CloudStation is defined in my ~.profile
 186     # open first scite in a terminal to import $FF
 187     command.name.0.*.f=preprocess file.f with 1:[target].pat then download file.4th without ECHO
 188     command.0.*.f=*$FF/config/SendSource $(FileDir)/$(FileName) $(1) NOECHO
 189
 190     command.name.1.*.f=preprocess file.f with 1:[target].pat then download file.4th with ECHO
 191     command.1.*.f=*$FF/config/SendSource $(FileDir)/$(FileName) $(1) ECHO
 192
 193     command.name.2.*.f=preprocess file.f with 1:[target].pat then download file.4th HALFDUPLEX
 194     command.2.*.f=*$FF/config/SendSource $(FileDir)/$(FileName) $(1) HALF
 195
 196     command.name.3.*.f=preprocess file.f with 1:[target].pat then download file.4th to target SD_CARD
 197     command.3.*.f=*$FF/config/CopyTo_SD_Card $(FileDir)/$(FileName) $(1)
 198
 199     command.name.4.*.f=preprocess file.f with 1:[target].pat to LAST.4th (for debug)
 200     command.4.*.f=*$FF/config/Preprocess $(FileDir)/$(FileName) $(1)
 201
 202     command.name.5.*.f=preprocess file.f with for target CurrentSelection then download
 203     command.5.*.f=$FF/config/SendSource $(FileDir)/$(FileName) $(CurrentSelection)
 204
 205     command.name.6.*.f=preprocess file.f with for target CurrentSelection then download with ECHO
 206     command.6.*.f=$FF/config/SendSource $(FileDir)/$(FileName) $(CurrentSelection) ECHO
 207
 208     command.name.7.*.f=preprocess file.f with for target CurrentSelection then download file.4th to target SD_CARD
 209     command.7.*.f=$FF/config/CopyTo_SD_Card $(FileDir)/$(FileName).f  $(CurrentSelection)
 210
 211     command.name.8.*.f=preprocess file.f with for target CurrentSelection to LAST.4th (for debug)
 212     command.8.*.f=$FF/config/Preprocess $(FileDir)/$(FileName)  $(CurrentSelection)
 213
 214     command.name.9.*.f=convert FORTH registers to TI's ones
 215     command.9.*.f=gema -line -t -f $FF/inc/FastForthREGtoTI.pat $(FileNameExt) $(FileNameExt)
 216
 217     command.name.10.*.f=convert TI registers to FORTH's ones
 218     command.10.*.f=gema -line -t -f $FF/inc/tiREGtoFastForth.pat $(FileNameExt) $(FileNameExt)
 219
 220     command.name.0.*.4th=send file.4th to target without ECHO
 221     command.0.*.4th=$FF/config/msp430/SendSource $(FileDir)/$(FileName).4th NOECHO
 222
 223     command.name.1.*.4th=send file.4th to target with ECHO
 224     command.1.*.4th=$FF/config/msp430/SendSource $(FileDir)/$(FileName).4th ECHO
 225
 226     command.name.2.*.4th=send file.4th to target with HALFDUPLEX
 227     command.2.*.4th=$FF/config/msp430/SendSource $(FileDir)/$(FileName).4th HALF
 228
 229     command.name.3.*.4th=send file.4th to target SD_CARD
 230     command.3.*.4th=$FF/config/CopyTo_SD_Card $(FileDir)/$(FileName).4th
 231
 232     command.name.4.*.4th=convert TI registers to FORTH's ones
 233     command.4.*.4th=gema -line -t -f $FF/inc/TiREGtoFastForth.pat $(FileNameExt) $(FileNameExt)
 234
 235     command.name.5.*.4th=convert FORTH registers to TI's ones
 236     command.5.*.4th=gema -line -t -f $FF/inc/FastForthREGtoTI.pat $(FileNameExt) $(FileNameExt)
 237
 238