view release on metacpan or  search on metacpan

lib/Syntax/Highlight/Universal/hrc/rare/tcltk.hrc  view on Meta::CPAN

    <import type="def"/>

    <region name="tclString" parent="String"/>
    <region name="tclArrayNm" parent="StringContent"/>
    <region name="tclChar" parent="CharacterContent"/>
    <region name="tclComment" parent="Comment"/>
    <region name="tclSymb" parent="Symbol"/>
    <region name="tclMainSymb" parent="SymbolStrong"/>
    <region name="tclBase" parent="Keyword"/>
    <region name="tclWord" parent="Keyword"/>
    <region name="tclNumb" parent="Number"/>
    <region name="tclVar" parent="Var"/>
    <region name="tclVar2" parent="VarStrong"/>
    <region name="tclFunc" parent="Function"/>
    <region name="tclParam" parent="Parameter"/>
    <region name="tclError" parent="Error"/>

    <region name="NamespaceOutline" parent="def:Outlined"/>
    <region name="ProcOutline" parent="def:Outlined"/>

    <scheme name="tcltkBase">
<!-- base syntax -->
      <keywords region="tclBase">
         <word name="break"/>      <word name="case"/>     <word name="catch"/>
         <word name="continue"/>   <word name="for"/>      <word name="foreach"/>
         <word name="global"/>     <word name="if"/>       <word name="else"/>
         <word name="elseif"/>     <word name="proc"/>     <word name="return"/>
         <word name="set"/>        <word name="source"/>   <word name="switch"/>
         <word name="unset"/>      <word name="uplevel"/>  <word name="upvar"/>
         <word name="variable"/>   <word name="while"/>    <word name="namespace"/>
      </keywords>
    </scheme>

    <scheme name="tcltkWord">
      <keywords region="tclWord">
         <!-- tcl commands -->
         <word name="after"/>      <word name="append"/>   <word name="bgerror"/>
         <word name="binary"/>     <word name="array"/>    <word name="cd"/>
         <word name="clock"/>      <word name="close"/>    <word name="concat"/>
         <word name="eof"/>        <word name="error"/>    <word name="eval"/>
         <word name="exec"/>       <word name="exit"/>     <word name="expr"/>
         <word name="fblocked"/>   <word name="fcopy"/>    <word name="fconfigure"/>
         <word name="file"/>       <word name="fileevent"/><word name="filename"/>
         <word name="flush"/>      <word name="format"/>   <word name="gets"/>
         <word name="glob"/>       <word name="history"/>  <word name="incr"/>
         <word name="info"/>       <word name="interp"/>   <word name="join"/>
         <word name="lappend"/>    <word name="library"/>  <word name="lindex"/>
         <word name="linsert"/>    <word name="list"/>     <word name="llength"/>
         <word name="load"/>       <word name="lrange"/>   <word name="lreplace"/>
         <word name="lsearch"/>    <word name="lsort"/>    <word name="vwait"/>
         <word name="open"/>       <word name="package"/>  <word name="pid"/>
         <word name="pkg_mkindex"/><word name="puts"/>     <word name="pwd"/>
         <word name="read"/>       <word name="regexp"/>   <word name="regsub"/>
         <word name="rename"/>     <word name="resource"/> <word name="scan"/>
         <word name="seek"/>       <word name="socket"/>   <word name="split"/>
         <word name="string"/>     <word name="subst"/>    <word name="tell"/>
         <word name="time"/>       <word name="trace"/>    <word name="update"/>
         <!-- tk commands -->
         <word name="bell"/>       <word name="bind"/>     <word name="bindtags"/>
         <word name="bitmap"/>     <word name="button"/>   <word name="canvas"/>
         <word name="checkbutton"/><word name="clipboard"/><word name="destroy"/>
         <word name="entry"/>      <word name="event"/>    <word name="focus"/>
         <word name="font"/>       <word name="frame"/>    <word name="grab"/>
         <word name="grid"/>       <word name="image"/>    <word name="label"/>
         <word name="listbox"/>    <word name="lower"/>    <word name="menu"/>
         <word name="menubutton"/> <word name="message"/>  <word name="option"/>
         <word name="pack"/>       <word name="pack-old"/> <word name="photo"/>
         <word name="place"/>      <word name="raise"/>    <word name="radiobutton"/>
         <word name="scale"/>      <word name="scrollbar"/><word name="selection"/>
         <word name="send"/>       <word name="text"/>     <word name="tk_menuBar"/>
         <word name="tk_bindForTraversal"/>                <word name="tk_bisque"/>
         <word name="tk_setPalette"/>                      <word name="tk_chooseColor"/>
         <word name="tk_dialog"/>                          <word name="tk_focusFollowsMouse"/>
         <word name="tk_focusNext"/>                       <word name="tk_focusPrev"/>
         <word name="tk_getOpenFile"/>                     <word name="tk_getSaveFile"/>
         <word name="tk_messageBox"/>                      <word name="tk_optionMenu"/>
         <word name="tk_popup"/>   <word name="tkerror"/>  <word name="tkwait"/>
         <word name="toplevel"/>   <word name="winfo"/>    <word name="wm"/>
      </keywords>
    </scheme>

    <scheme name="tcltkPairedBrackets">
      <!-- Paired block -->
      <block start="/(\{)/" end="/(\})/" scheme="tcltkPairedBrackets"
             region00="tclMainSymb" region01="def:PairStart"
             region10="tclMainSymb" region11="def:PairEnd"/>
      <block start="/(\()/" end="/(\))/" scheme="tcltkPairedBrackets"
             region00="tclSymb" region01="def:PairStart"
             region10="tclSymb" region11="def:PairEnd"/>
      <block start="/(\[)/" end="/(\])/" scheme="tcltkPairedBrackets"
             region00="tclMainSymb" region01="def:PairStart"
             region10="tclMainSymb" region11="def:PairEnd"/>
    </scheme>

    <scheme name="tcltkPredefinedVar">
      <regexp match="/(\$|\s?#1)(::)?((errorCode)|(errorInfo)|(tcl_library)|
                             (tcl_patchLevel)|(tcl_pkgPath)|(tcl_precision)|
                             (tcl_rcFileName)|(tcl_traceExec)|(tcl_version)|
                             (tcl_rcRsrcName)|(tcl_traceCompile)|
                             (tk_library)|(tk_patchLevel)|(argv0)|(argv)|(argc)|
                             (tk_strictMotif)|(tk_version))\B/x"
              region0="tclVar2"  region2="tclMainSymb" region3="tclVar2" />
      <!-- Following variables has array type and needs
           the special handling -->
      <block start="/(\$|\s?#1)(::)?((env)|(tcl_platform))(\()/" end="/(\))|$/"
             scheme="tcltkString" priority="low"
             region="tclArrayNm" region00="tclSymb" region01="tclVar2"
             region02="tclMainSymb" region03="tclVar2" region06="def:PairStart"
             region10="tclSymb" region11="def:PairEnd"/>
    </scheme>

    <scheme name="tcltkSymbol">
      <!-- operators -->
      <keywords region="tclSymb">
        <symb name="="/> <symb name="/"/> <symb name="&amp;"/>
        <symb name="|"/> <symb name=">"/> <symb name="%"/>
        <symb name="~"/> <symb name="^"/> <symb name="&lt;"/>
        <symb name="+"/> <symb name="-"/> <symb name="*"/>
        <symb name=","/> <symb name="\"/> <symb name="!"/>
        <symb name=";"/> <word name="::" region="tclMainSymb"/>
      </keywords>