{opt assets/awthemes*}
{opt assets/ble*}
{opt assets/blt* {libs/$arch/libblt.so jni/blt}}
{req assets/borg* {libs/$arch/libmain.so jni/src src/tk/tcl/wish}}
{opt assets/bwidget*}
{opt assets/can2svg*}
{opt assets/Canvas3d* {libs/$arch/libCanvas3d.so jni/3dcanvas}}
{opt jni/sdl2tk/library/demos}

Only the 'awthemes.tcl', 'colorutils.tcl', 'themeutils.tcl'
and 'pkgIndex.tcl' files are necessary.  The other files are
infrastructure files and only needed for development.

awthemes 3.1
  - Added themeutils.tcl.
      ::themeutils::setThemeColors awdark color-name color ...
    allows the colors to be set.  The graphical colors will be
    changed when tksvg is in use.  See themeutils.tcl for a list
    of color names.

awthemes 3.0
  - Breaking change: The package name has been renamed so
    that 'package require awdark' works.

  - Support for tksvg has been added.
    New graphics have been added to support tksvg, and the graphics

#     Sets the listbox widget colors.
#
#   ::ttk::theme::awdark::setBackground color
#     requires the colorutils package
#
#   ::ttk::theme::awdark::setHighlight color
#     requires the colorutils package
#     This does not work with the scalable graphics.
#
#   ::themeutils::setThemeColors awdark colorname color ...
#     Allows modification of any of the colors used by awdark and awlight.
#     The graphical colors will be changed to match.
#     e.g.
#       package require colorutils
#       package require themeutils
#       ::themeutils::setThemeColors awdark \
#           highlight.selectbg #007000 highlight.selectdisabledbg #222222
#       package require awdark
#     will change the selection and graphical colors to a green, and the
#     the disabled selection color to a dark grey.
#
# Mac OS X notes for prior to 8.6.9:
#   To style the scrollbars, use:
#        ttk::scrollbar .sb -style Vertical.TScrollbar
#     or ttk::scrollbar .sb -style Horizontal.TScrollbar
#   This will turn off the aqua styling and use the theme styling.
#   Also note that the styling for the scrollbar cannot be configured
#     afterwards, it must be configured when the scrollbar is created.
#
# 3.1
#   - allow user configuration of colors
# 3.0
#   - tksvg support
# 2.6
#   - Fix mac colors
# 2.5
#   - Added missing TFrame style setup.
# 2.4

try {
  set ap [file normalize [file dirname [info script]]]
  if { $ap ni $::auto_path } {
    lappend ::auto_path $ap
  }
  unset ap
  package require colorutils
  package require themeutils
} on error {err res} {
  puts stderr "ERROR: colorutlis and themeutils packages are required"
}

proc awinit { } {
  global awthemename

  foreach awthemename {awdark awlight} {
    package provide $awthemename 3.1
    package provide ttk::theme::$awthemename 3.1

    namespace eval ::ttk::theme::$awthemename {
      variable colors
      variable images
      variable imgdata
      variable vars

        set vars(have.tksvg) false
        if { ! [catch {package present tksvg}] } {
          set vars(have.tksvg) true
        }

        _setThemeBaseColors

        # set up the curr.* named colors

        foreach {k} [array names colors] {
          if { [regexp {^user\.} $k] } { continue }
          set colors(curr.$k) $colors($k)
        }

        # override colors with any user.* colors
        # these are set by the ::themeutils package
        # process the base colors first, then the derived colors

        foreach {k} $::themeutils::vars(names.colors.base) {
          if { [info exists colors(user.$k)] } {
            set colors(curr.$k) $colors(user.$k)
          }
        }

        # sets both the base colors and the curr.* colors
        _setDerivedColors

        # now override any derived colors with user-specified colors
        foreach {k} $::themeutils::vars(names.colors.derived) {
          if { [info exists colors(user.$k)] } {
            set colors(curr.$k) $colors(user.$k)
          }
        }

        _setImageData
        _createTheme
        _setStyledColors
      }

      proc _setThemeBaseColors { } {
        variable vars
        variable colors

        if { $vars(theme.name) eq "awdark" } {
          array set colors {
              base.disabledfg       #919282
              base.disabledbg       #2d3234
              base.disabledborder   #202425
              base.frame            #33393b
              base.dark             #252a2c
              base.darker           #1b1f20
              base.darkest          #000000
              base.bpress           #424a4d
              base.lighter          #525c5f
              base.lightest         #ffffff
              highlight.selectbg    #215d9c
              highlight.selectdisabledbg  #224162
              highlight.darkhighlight     #1a497c
              highlight.selectfg    #ffffff
              }









        }
        if { $vars(theme.name) eq "awlight" } {
          array set colors {
              base.frame      #e8e8e7
              base.disabledfg #8e8e8f
              base.disabledbg #cacaca
              base.disabledborder #c0c0bd
              base.dark       #cacaca
              base.darker     #8b8391
              base.darkest    #000000
              base.bpress     #e8e8e7
              base.lighter    #f0f0f0
              base.lightest   #ffffff
              highlight.selectbg   #1a497c
              highlight.selectdisabledbg   #f0f0f0
              highlight.darkhighlight #1a497c
              highlight.selectfg   #ffffff
              }
        }
      }

      proc _setDerivedColors { } {
        variable vars
        variable colors

        foreach {prefix} {{} curr.} {
          if { $vars(theme.name) eq "awdark" } {
            set colors(${prefix}base.arrow) $colors(base.lightest)
            set colors(${prefix}base.arrow.disabled) $colors(base.lighter)
            set colors(${prefix}base.border) $colors(base.darkest)
            set colors(${prefix}base.border.light) $colors(base.darkest)
            set colors(${prefix}text.text) $colors(base.lightest)
            set colors(${prefix}base.tabborder) $colors(base.darkest)
            set colors(${prefix}base.tabinactive) $colors(base.frame)
            set colors(${prefix}base.tabhighlight) #8b9ca1
            set colors(${prefix}base.entrybg) $colors(base.darker)
          }
          if { $vars(theme.name) eq "awlight" } {
            set colors(${prefix}base.arrow) $colors(base.darkest)
            set colors(${prefix}base.arrow.disabled) $colors(base.darker)
            set colors(${prefix}base.border) $colors(base.dark)
            set colors(${prefix}base.border.light) $colors(base.dark)
            set colors(${prefix}text.text) $colors(base.darkest)
            set colors(${prefix}base.tabborder) $colors(base.frame)
            set colors(${prefix}base.tabinactive) $colors(base.darker)
            set colors(${prefix}base.tabhighlight) $colors(base.darkest)
            set colors(${prefix}base.entrybg) $colors(base.lightest)
          }
        }
      }

      proc _setImageData { } {
        variable vars
        variable imgdata
        variable imgtype

           style="opacity:1;fill:#215d9b;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-3"
           cx="12.721766"
           cy="284.22617"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-6"
           cx="11.119109"
           cy="285.81818"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-7"
           cx="9.5164518"
           cy="287.41016"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-5"
           cx="7.913794"
           cy="289.00214"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-35"
           cx="6.3111362"
           cy="290.59412"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-62"
           cx="4.7084789"
           cy="292.18613"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-9"
           cx="3.1058214"
           cy="293.77811"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-1"
           cx="1.5031636"
           cy="295.37009"
           rx="0.69321311"
           ry="0.69321305" />
      </g>
      <g
         id="g959"
         transform="translate(-0.53809974,-0.04111673)">
        <ellipse
           inkscape:transform-center-y="-2.5681986"
           inkscape:transform-center-x="-1.8183937"
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-3-7"
           cx="14.967299"
           cy="285.89139"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           inkscape:transform-center-y="-1.8042036"
           inkscape:transform-center-x="-1.05441"
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-6-0"
           cx="13.364642"
           cy="287.48337"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           inkscape:transform-center-y="-1.0402233"
           inkscape:transform-center-x="-0.29042529"
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-7-9"
           cx="11.761985"
           cy="289.07538"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           inkscape:transform-center-y="-0.27624296"
           inkscape:transform-center-x="0.47355939"
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-5-3"
           cx="10.159327"
           cy="290.66736"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           inkscape:transform-center-y="0.48773736"
           inkscape:transform-center-x="1.2375436"
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-35-6"
           cx="8.5566683"
           cy="292.25934"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           inkscape:transform-center-y="1.2517323"
           inkscape:transform-center-x="2.0015276"
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-62-0"
           cx="6.954011"
           cy="293.85135"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           inkscape:transform-center-y="2.0157126"
           inkscape:transform-center-x="2.7655121"
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-9-6"
           cx="5.3513532"
           cy="295.44333"
           rx="0.69321311"
           ry="0.69321305" />
      </g>
      <g
         id="g1056"
         transform="translate(-0.28974602,-0.04111673)">
        <ellipse
           inkscape:transform-center-y="-1.8042036"
           inkscape:transform-center-x="-1.05441"
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-6-0-8"
           cx="14.689195"
           cy="289.13831"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           inkscape:transform-center-y="-1.0402233"
           inkscape:transform-center-x="-0.29042529"
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-7-9-7"
           cx="13.086537"
           cy="290.73032"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           inkscape:transform-center-y="-0.27624296"
           inkscape:transform-center-x="0.47355939"
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-5-3-9"
           cx="11.48388"
           cy="292.3223"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           inkscape:transform-center-y="0.48773736"
           inkscape:transform-center-x="1.2375436"
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-35-6-2"
           cx="9.8812218"
           cy="293.91428"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           inkscape:transform-center-y="1.2517323"
           inkscape:transform-center-x="2.0015276"
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-62-0-0"
           cx="8.2785645"
           cy="295.50629"
           rx="0.69321311"
           ry="0.69321305" />
      </g>
      <g
         id="g1034"
         transform="translate(8.4854191,7.1543113)">
        <ellipse
           inkscape:transform-center-y="-1.0402233"
           inkscape:transform-center-x="-0.29042529"
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-7-9-7-7"
           cx="5.9463682"
           cy="285.23096"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           inkscape:transform-center-y="-0.27624296"
           inkscape:transform-center-x="0.47355939"
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-5-3-9-5"
           cx="4.3437109"
           cy="286.82294"
           rx="0.69321311"
           ry="0.69321305" />
        <ellipse
           inkscape:transform-center-y="0.48773736"
           inkscape:transform-center-x="1.2375436"
           style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
           id="path841-79-35-6-2-9"
           cx="2.7410524"
           cy="288.41492"
           rx="0.69321311"
           ry="0.69321305" />
      </g>
      <ellipse
         ry="0.69321305"
         rx="0.69321311"
         cy="295.49088"
         cx="14.451189"
         id="path841-79-6-0-8-2"
         style="opacity:1;fill:#215d9c;fill-opacity:1;stroke:#07090b;stroke-width:0;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
         inkscape:transform-center-x="-1.05441"
         inkscape:transform-center-y="-1.8042036" />
    </g>
  </g>
</svg>
}
          # slider-hd

       ry="0"
       transform="scale(-1)" />
  </g>
</svg>
}
          #E == svgdata ==
        }

        if { $vars(theme.name) eq "awlight" } {
          # convert all the svg colors to awlight specific colors
          if { $vars(have.tksvg) } {
            foreach {n} [array names ::ttk::theme::awdark::imgdata] {
              set imgdata($n) $::ttk::theme::awdark::imgdata($n)
              if { [string match *arrow* $n] } {
                set oc $::ttk::theme::awdark::colors(highlight.selectbg)
                set nc $colors(curr.base.lighter)
                regsub -all $oc $imgdata($n) $nc imgdata($n)
              }
              foreach {oc nc} [list \
                  $::ttk::theme::awdark::colors(base.dark) \
                  $colors(base.dark) \
                  $::ttk::theme::awdark::colors(base.disabledfg) \
                  $colors(base.disabledfg) \
                  $::ttk::theme::awdark::colors(base.disabledbg) \
                  $colors(base.disabledbg) \
                  $::ttk::theme::awdark::colors(base.disabledborder) \
                  $colors(base.disabledborder) \
                  $::ttk::theme::awdark::colors(base.bpress) \
                  $colors(base.bpress) \
                  $::ttk::theme::awdark::colors(highlight.selectbg) \
                  $colors(highlight.selectbg) \
                  $::ttk::theme::awdark::colors(highlight.selectdisabledbg) \
                  $colors(highlight.selectdisabledbg) \
                  $::ttk::theme::awdark::colors(base.border) \
                  $colors(base.border) \
                  $::ttk::theme::awdark::colors(base.arrow) \
                  $colors(base.arrow) \
                  ] {
                regsub -all $oc $imgdata($n) $nc imgdata($n)
              }
            }
          }
        }

        # convert all the svg colors to the current colors
        if { $vars(have.tksvg) } {
          foreach {n} [array names imgdata] {
            if { [string match *arrow* $n] } {
              set oc $colors(highlight.selectbg)
              set nc $colors(curr.highlight.selectbg)
              if { $nc ne $oc } {
                regsub -all $oc $imgdata($n) $nc imgdata($n)
              }
            }
            foreach {oc nc} [list \
                $colors(base.dark) \
                $colors(curr.base.dark) \
                $colors(base.disabledfg) \
                $colors(curr.base.disabledfg) \
                $colors(base.disabledbg) \
                $colors(curr.base.disabledbg) \
                $colors(base.disabledborder) \
                $colors(curr.base.disabledborder) \
                $colors(base.bpress) \
                $colors(curr.base.bpress) \
                $colors(highlight.selectbg) \
                $colors(curr.highlight.selectbg) \
                $colors(highlight.selectdisabledbg) \
                $colors(curr.highlight.selectdisabledbg) \
                $colors(base.border) \
                $colors(curr.base.border) \
                $colors(base.arrow) \
                $colors(curr.base.arrow) \
                ] {
              if { $nc ne $oc } {
                regsub -all $oc $imgdata($n) $nc imgdata($n)
              }
            }
          }
        }

        if { $vars(theme.name) eq "awdark" } {
          if { ! [info exists imgdata(cb-sa)] } {
            # cb-sa
            set imgdata(cb-sa) {
               iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAlwSFlz
               AAAOJgAADiYBou8l/AAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAAABSdEVY

               QnjtvO9k08mVGKOIMfrvMylcVbHI0vhzOFyUh8u3zrm7wPK4DS8ZY55Yaz+LSCoimVj7Vax9Dmwf
               Hf4Dx8Kr4mNF2+sAAAAASUVORK5CYII=
            }
          }
        }

        if { $vars(theme.name) eq "awlight" } {


































          if { ! [info exists imgdata(cb-sa)] } {
            # cb-sa
            set imgdata(cb-sa) {
               iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAlwSFlz
               AAAOJgAADiYBou8l/AAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAAABSdEVY
               dENvcHlyaWdodABDQyBBdHRyaWJ1dGlvbi1TaGFyZUFsaWtlIGh0dHA6Ly9jcmVhdGl2ZWNvbW1v
               bnMub3JnL2xpY2Vuc2VzL2J5LXNhLzQuMC/DVGIFAAAB3klEQVQ4jYWSvW9SURiHn3O4VMtH1ARb

      }

      proc _createNotebookStyle { } {
        variable colors
        variable images
        variable vars

        set tag "$colors(curr.base.tabhighlight)$colors(curr.base.tabinactive)$colors(curr.highlight.selectbg)"
        foreach {k bg} [list \
            indhover $colors(curr.base.tabhighlight) \
            indnotactive $colors(curr.base.tabinactive) \
            indselected $colors(curr.highlight.selectbg) \
            ] {
          if { ! [info exists images($k.$bg)] } {
            set images($k.$bg) [image create photo \
                -width $vars(nb.img.width) -height $vars(nb.img.height)]
            set row [lrepeat $vars(nb.img.width) $bg]
            set pix [list]
            for {set i 0} {$i < $vars(nb.img.height)} {incr i} {

        if { $theme eq {} } {
          set theme $vars(theme.name)
        }

        ttk::style theme settings $theme {
          # defaults
          ttk::style configure . \
              -background $colors(curr.base.frame) \
              -foreground $colors(curr.text.text) \
              -borderwidth 1 \
              -bordercolor $colors(curr.base.border) \
              -darkcolor $colors(curr.base.darkest) \
              -lightcolor $colors(curr.base.darkest) \
              -troughcolor $colors(curr.base.entrybg) \
              -selectbackground $colors(curr.highlight.selectbg) \
              -selectforeground $colors(curr.highlight.selectfg) \
              -selectborderwidth 0 \
              -fieldbackground $colors(curr.base.entrybg) \
              -focuscolor $colors(curr.highlight.selectbg) \
              -insertcolor $colors(curr.base.lightest) \
              -relief none
          ttk::style map . \
              -background [list disabled $colors(curr.base.frame)] \
              -foreground [list active $colors(curr.text.text) \
                  focus $colors(curr.text.text) \
                  disabled $colors(curr.base.disabledfg)] \
              -selectbackground [list !focus $colors(curr.base.darkest)] \
              -selectforeground [list !focus $colors(curr.base.lightest)] \
              -bordercolor [list disabled $colors(curr.base.disabledborder)]

          # button

          ttk::style configure TButton \
              -bordercolor $colors(curr.base.frame) \
              -background $colors(curr.base.dark) \
              -lightcolor $colors(curr.base.lighter) \
              -darkcolor $colors(curr.base.darker)
          ttk::style map TButton \
              -background [list {hover !pressed !disabled} $colors(curr.base.bpress) \
                  {active !pressed} $colors(curr.base.bpress) \
                  {selected !disabled} $colors(curr.base.dark) \
                  pressed $colors(curr.base.dark) \
                  disabled $colors(curr.base.disabledbg)] \
              -lightcolor [list pressed $colors(curr.base.darker)] \
              -darkcolor [list pressed $colors(curr.base.lighter)]

          # checkbutton

          ttk::style map TCheckbutton \
              -indicatorcolor [list selected $colors(curr.base.lightest)] \
              -darkcolor [list disabled $colors(curr.base.frame)] \
              -lightcolor [list disabled $colors(curr.base.frame)]

          # combobox

          ttk::style configure TCombobox \
              -bordercolor $colors(curr.base.border) \
              -lightcolor $colors(curr.base.dark) \
              -darkcolor $colors(curr.base.dark) \
              -arrowcolor $colors(curr.base.arrow)
          ttk::style map TCombobox \
              -lightcolor [list active $colors(curr.highlight.selectbg) \
                  focus $colors(curr.highlight.selectbg)] \
              -darkcolor [list active $colors(curr.highlight.selectbg) \
                  focus $colors(curr.highlight.selectbg)] \
              -arrowcolor [list disabled $colors(curr.base.arrow.disabled)] \
              -fieldbackground [list disabled $colors(curr.base.disabledbg)]
          if { $::tcl_platform(os) eq "Darwin" } {
            # mac os x has cross-platform incompatibilities
            ttk::style configure TCombobox \
                -background $colors(curr.base.dark)
            ttk::style map TCombobox \
                -background [list disabled $colors(curr.base.disabledbg)]
          }

          # entry

          ttk::style configure TEntry \
              -background $colors(curr.base.dark) \
              -bordercolor $colors(curr.base.border) \
              -lightcolor $colors(curr.base.dark)
          ttk::style map TEntry \
              -lightcolor [list active $colors(curr.highlight.selectbg) \
                  focus $colors(curr.highlight.selectbg)] \
              -fieldbackground [list disabled $colors(curr.base.disabledbg)]
          if { $::tcl_platform(os) eq "Darwin" } {
            # mac os x has cross-platform incompatibilities
            ttk::style configure TEntry \
                -background $colors(curr.base.dark)
            ttk::style map TEntry \
                -background [list disabled $colors(curr.base.disabledbg)]
          }

          # frame

          ttk::style configure TFrame \
              -bordercolor $colors(curr.base.frame) \
              -lightcolor $colors(curr.base.lighter) \
              -darkcolor $colors(curr.base.darker)

          # labelframe

          ttk::style configure TLabelframe \
              -bordercolor $colors(curr.base.frame) \
              -lightcolor $colors(curr.base.frame) \
              -darkcolor $colors(curr.base.frame)

          # menubutton

          ttk::style configure TMenubutton \
              -arrowcolor $colors(curr.base.arrow)
          ttk::style map TMenubutton \
              -background [list {active !disabled} $colors(curr.highlight.selectbg)] \
              -foreground [list {active !disabled} $colors(curr.highlight.selectfg) \
                  disabled $colors(curr.base.disabledfg)] \
              -arrowcolor [list disabled $colors(curr.base.arrow.disabled)]

          # notebook

          ttk::style configure TNotebook \
              -bordercolor $colors(curr.base.frame) \
              -lightcolor $colors(curr.base.lighter) \
              -darkcolor $colors(curr.base.darker)
          ttk::style configure TNotebook.Tab \
              -lightcolor $colors(curr.base.frame) \
              -darkcolor $colors(curr.base.frame) \
              -bordercolor $colors(curr.base.tabborder) \
              -background $colors(curr.base.dark)

          # panedwindow

          ttk::style configure TPanedwindow \
              -background $colors(curr.base.dark)
          ttk::style configure Sash \
              -lightcolor $colors(curr.highlight.darkhighlight) \
              -darkcolor $colors(curr.base.darkest) \
              -sashthickness [expr {round(10*$vars(scale.factor))}]

          # progressbar

          ttk::style configure TProgressbar \
              -background $colors(curr.highlight.darkhighlight) \
              -bordercolor $colors(curr.base.border.light) \
              -lightcolor $colors(curr.highlight.darkhighlight) \
              -darkcolor $colors(curr.highlight.darkhighlight)
          ttk::style map TProgressbar \
              -troughcolor [list disabled $colors(curr.base.dark)] \
              -darkcolor [list disabled $colors(curr.base.disabledbg)] \
              -lightcolor [list disabled $colors(curr.base.disabledbg)]

          # scale

          # background is used both for the background and
          # for the grip colors
          ttk::style configure TScale \
              -background $colors(curr.highlight.darkhighlight) \
              -bordercolor $colors(curr.base.border.light) \
              -lightcolor $colors(curr.highlight.darkhighlight) \
              -darkcolor $colors(curr.highlight.darkhighlight)
          ttk::style map TScale \
              -troughcolor [list disabled $colors(curr.base.dark)] \
              -darkcolor [list disabled $colors(curr.base.disabledbg)] \
              -lightcolor [list disabled $colors(curr.base.disabledbg)]

          # scrollbar

          ttk::style configure TScrollbar \
              -background $colors(curr.highlight.selectbg) \
              -bordercolor $colors(curr.base.border.light) \
              -lightcolor $colors(curr.highlight.selectbg) \
              -darkcolor $colors(curr.highlight.selectbg) \
              -arrowcolor $colors(curr.base.lightest)
          ttk::style map TScrollbar \
              -arrowcolor [list disabled $colors(curr.base.arrow.disabled)] \
              -darkcolor [list disabled $colors(curr.base.frame)] \
              -lightcolor [list disabled $colors(curr.base.frame)]

          # spinbox

          ttk::style configure TSpinbox \
              -bordercolor $colors(curr.base.border) \
              -lightcolor $colors(curr.base.dark) \
              -arrowcolor $colors(curr.base.arrow)
          ttk::style map TSpinbox \
              -lightcolor [list active $colors(curr.highlight.selectbg) \
                  focus $colors(curr.highlight.selectbg)] \
              -darkcolor [list active $colors(curr.highlight.selectbg) \
                  focus $colors(curr.highlight.selectbg)] \
              -arrowcolor [list disabled $colors(curr.base.arrow.disabled)] \
              -fieldbackground [list disabled $colors(curr.base.disabledbg)]
          if { $::tcl_platform(os) eq "Darwin" } {
            # mac os x has cross-platform incompatibilities
            ttk::style configure TSpinbox \
                -background $colors(curr.base.dark)
            ttk::style map TSpinbox \
                -background [list disabled $colors(curr.base.disabledbg)]
          }

          # treeview

          ttk::style configure Treeview \
              -fieldbackground $colors(curr.base.frame)
          ttk::style map Treeview \
              -background [list selected $colors(curr.highlight.selectbg)] \
              -foreground [list selected $colors(curr.highlight.selectfg)]
        }
      }

      proc setBackground { bcol } {
        variable colors
        variable vars

        variable images
        variable vars

        if { ! [dict exists $vars(cache.menu) $w] } {
          dict set vars(cache.menu) $w 1
        }

        $w configure -background $colors(curr.base.frame)
        $w configure -foreground $colors(curr.text.text)
        $w configure -activebackground $colors(curr.highlight.selectbg)
        $w configure -activeforeground $colors(curr.highlight.selectfg)
        $w configure -disabledforeground $colors(curr.base.disabledfg)
        $w configure -selectcolor $colors(curr.highlight.selectbg)

        set max [$w index end]
        if { $max eq "none" } {
          return
        }

        # the standard menu does not have a -mode option

        variable images
        variable vars

        if { ! [dict exists $vars(cache.listbox) $w] } {
          dict set vars(cache.listbox) $w 1
        }

        $w configure -background $colors(curr.base.frame)
        $w configure -foreground $colors(curr.text.text)
        $w configure -disabledforeground $colors(curr.base.disabledfg)
        $w configure -selectbackground $colors(curr.highlight.selectbg)
        $w configure -selectforeground $colors(curr.highlight.selectfg)
        $w configure -borderwidth 1p
        $w configure -relief solid
      }

      proc setTextColors { w {useflag {}} } {
        variable colors
        variable images
        variable vars

        if { ! [dict exists $vars(cache.text) $w] } {
          dict set vars(cache.text) $w $useflag
        }

        if { $useflag eq "-entry" } {
          $w configure -background $colors(curr.base.entrybg)
        } elseif { $useflag eq "-dark" } {
          $w configure -background $colors(curr.base.dark)
        } else {
          $w configure -background $colors(curr.base.frame)
        }
        $w configure -foreground $colors(curr.text.text)
        $w configure -selectforeground $colors(curr.highlight.selectfg)
        $w configure -selectbackground $colors(curr.highlight.selectbg)
        $w configure -inactiveselectbackground $colors(curr.base.darkest)
        $w configure -borderwidth 1p
      }

      proc awCboxHandler { w } {
        variable vars
        variable colors

        set theme [ttk::style theme use]
        if { [info exists colors(curr.base.entrybg)] &&
            $theme eq $vars(theme.name) &&
            ! [dict exists $vars(cache.listbox) $w] } {
          ::ttk::theme::${vars(theme.name)}::setListboxColors $w
        }
      }

      init
    }
  }
}

awinit
unset -nocomplain ::awthemename

package ifneeded awdark 3.1 \
    [list source [file join $dir awthemes.tcl]]
package ifneeded awlight 3.1 \
    [list source [file join $dir awthemes.tcl]]
package ifneeded colorutils 4.3 \
    [list source [file join $dir colorutils.tcl]] 
package ifneeded themeutils 1.0 \
    [list source [file join $dir themeutils.tcl]] 
package ifneeded ttk::theme::awdark 3.1 \
    [list source [file join $dir awthemes.tcl]]
package ifneeded ttk::theme::awlight 3.1 \
    [list source [file join $dir awthemes.tcl]]

#!/usr/bin/tclsh
#
# themeutils.tcl
#
# Copyright 2019 Brad Lanam Pleasant Hill, CA
#
# zlib/libpng license
#

package provide themeutils 1.0

namespace eval ::themeutils {
  variable vars

  proc init {} {
    variable vars

      set vars(names.colors.base) {
          base.disabledfg
          base.disabledbg
          base.disabledborder
          base.frame
          base.dark
          base.darker
          base.darkest
          base.bpress
          base.lighter
          base.lightest
          highlight.selectbg
          highlight.selectdisabledbg
          highlight.darkhighlight
          highlight.selectfg
          }
      set vars(names.colors.derived) {
          base.arrow
          base.arrow.disabled
          base.border
          base.border.light
          text.text
          base.tabborder
          base.tabinactive
          base.tabhighlight
          base.entrybg
          }
# derived colors:
# base.arrow
#     awdark:   base.lightest         awlight:  base.darkest
# base.arrow.disabled
#     awdark:   base.lighter          awlight:  base.darker
# base.border
#     awdark:   base.darkest          awlight:  base.dark
# base.border.light
#     awdark:   base.darkest          awlight:  base.dark
# text.text
#     awdark:   base.lightest         awlight:  base.darkest
# base.tabborder
#     awdark:   base.darkest          awlight:  base.frame
# base.tabinactive
#     awdark:   base.frame            awlight:  base.darker
# base.tabhighlight
#     awdark:   #8b9ca1               awlight:  base.darkest
# base.entrybg
#     awdark:   base.darker           awlight:  base.lightest
  }

  proc setThemeColors { theme args } {
    variable vars

    namespace eval ::ttk::theme::$theme {}

    foreach {cn col} $args {
      set ::ttk::theme::${theme}::colors(user.$cn) $col
    }
  }

  init
}

 */

void TkSetCursorPos(
    int x,
    int y)
{
    INPUT input;
    unsigned xscreen = (GetSystemMetrics(SM_CXSCREEN) - 1);
    unsigned yscreen = (GetSystemMetrics(SM_CYSCREEN) - 1);

    input.type = INPUT_MOUSE;
    input.mi.dx = (x * 65535 + xscreen/2) / xscreen;
    input.mi.dy = (y * 65535 + yscreen/2) / yscreen;
    input.mi.mouseData = 0;
    input.mi.dwFlags = MOUSEEVENTF_ABSOLUTE | MOUSEEVENTF_MOVE;
    input.mi.time = 0;
    input.mi.dwExtraInfo = 0;
    SendInput(1, &input, sizeof(input));
}

The authors of open62541 are (in alphabetical order)

Bauer, Maximilian
Ebrahimi, Reza <reza.ebrahimi.dev (at) gmail.com>
Graube, Markus <markus.graube (at) tu-dresden.de>
Gruener, Sten <s.gruener (at) plt.rwth-aachen.de>
Iatrou, Chris Paul <chris_paul.iatrou (at) tu-dresden.de>
Jeromin, Holger
Palm, Florian <f.palm (at) plt.rwth-aachen.de>
Pfrommer, Julius <julius.pfrommer (at) iosb.fraunhofer.edu>
Profanter, Stefan <profanter (at) fortiss.org>
Stalder, Thomas <t.stalder (at) bluetimeconcept.ch>
Urbas, Leon <leon.urbas (at) tu-dresden.de>

# open62541


open62541 (<http://open62541.org>) is an open source and free implementation of OPC UA (OPC Unified Architecture) written in the common subset of the C99 and C++98 languages. The library is usable with all major compilers and provides the necessary tools to implement dedicated OPC UA clients and servers, or to integrate OPC UA-based communication into existing applications. open62541 library is platform independent. All platform-specific functionality is implemented via exchangeable plugins. Plugin implementations are provided for the major operating systems.

open62541 is licensed under the Mozilla Public License v2.0 (MPLv2). This allows the open62541 library to be combined and distributed with any proprietary software. Only changes to the open62541 library itself need to be licensed under the MPLv2 when copied and distributed. The plugins, as well as the server and client examples are in the public domain (CC0 license). They can be reused under any license and changes do not have to be published.

The library is [available](https://github.com/open62541/open62541/releases) in standard source and binary form. In addition, the single-file source distribution merges the entire library into a single .c and .h file that can be easily added to existing projects. Example server and client implementations can be found in the [/examples](examples/) directory or further down on this page.








### Features and Certification


open62541 implements the OPC UA binary protocol stack as well as a client and server SDK. The final server binaries can be well under 100kb, depending on the selected features and the size of the information model.


- Communication Stack
  - OPC UA binary protocol
  - OPC UA JSON encoding
  - Secure communication with encrypted messages
  - Exchangeable network layer (plugin) for using custom networking APIs (e.g. on embedded targets)
  - Support for generating data types from standard XML definitions
- Server
  - Support for all OPC UA node types
  - Access control for individual nodes
  - Support for generating server-side information models from standard XML definitions (nodesets)
  - Support for adding and removing nodes and references also at runtime.
  - Support for inheritance and instantiation of object- and variable-types (custom constructor/destructor, instantiation of child nodes)

  - Support for subscriptions/monitoreditems (data change notifications and events)

- Client
  - All OPC UA services supported
  - Asynchronous service requests
  - Background handling of subscriptions
- Publish/Subscribe
  - UADP Binary protocol with UDP-multicast or Ethernet communication
  - PubSub JSON encoding

### Official Certification

The sample server (server_ctt) built using open62541 v1.0 is in conformance with the 'Micro Embedded Device Server' Profile of OPC Foundation supporting OPC UA client/server communication, subscriptions, method calls and security (encryption) with the security policies 'Basic128Rsa15', 'Basic256' and 'Basic256Sha256' and the facets 'method server' and 'node management'. See https://open62541.org/certified-sdk for more details.

PubSub (UADP) is implemented in open62541. But the feature cannot be certified at this point in time (Sep-2019) due to the lack of official test cases and testing tools.

During development, the Conformance Testing Tools (CTT) of the OPC Foundation are regularly applied.
The CTT configuration and results are tracked at https://github.com/open62541/open62541-ctt. The OPC UA profiles under regular test in the CTT are currently:

- Micro Embedded Device Server
- Method Server Facet
- Node Management Facet
- Security Policies
  - Basic128Rsa15
  - Basic256
  - Basic256Sha256
- User Tokens
  - Anonymous Facet
  - User Name Password Server Facet



See the page on [open62541 Features](FEATURES.md) for an in-depth look at the support for the conformance units that make up the OPC UA profiles.
  
### Dependencies

On most systems, open62541 requires the C standard library only. For dependencies during the build process, see the following list and the [build documentation](https://open62541.org/doc/current/building.html) for details.

- Core Library: The core library has no dependencies besides the C99 standard headers.
- Default Plugins: The default plugins use the POSIX interfaces for networking and accessing the system clock. Ports to different (embedded) architectures are achieved by customizing the plugins.
- Building and Code Generation: The build environment is generated via CMake. Some code is auto-generated from XML definitions that are part of the OPC UA standard. The code generation scripts run with both Python 2 and 3.

**Note:**
Specific optional features are dependent on third-party libraries. These are all listed under the `deps/` folder.
Depending on the selected feature set, some of these libraries will be included in the resulting library.

More information on the third-party libraries can be found in the corresponding [deps/README.md](deps/README.md)

### Code Quality

We emphasize code quality. The following quality metrics are continuously checked and are ensured to hold before an official release is made:

- Zero errors indicated by the Compliance Testing Tool (CTT) of the OPC Foundation for the supported features
- Zero compiler warnings from GCC/Clang/MSVC with very strict compilation flags
- Zero issues indicated by unit tests (more than 80% coverage)
- Zero issues indicated by clang-analyzer, clang-tidy, cpp-check and the Codacy static code analysis tools
- Zero unresolved issues from fuzzing the library in Google's oss-fuzz infrastructure
- Zero issues indicated by Valgrind (Linux), DrMemory (Windows) and Clang AddressSanitizer / MemorySanitizer for the CTT tests, unit tests and fuzzing

### Documentation and Support

A general introduction to OPC UA and the open62541 documentation can be found at http://open62541.org/doc/current.
Past releases of the library can be downloaded at https://github.com/open62541/open62541/releases.
To use the latest improvements, download a nightly build of the *single-file distribution* (the entire library merged into a single source and header file) from http://open62541.org/releases. Nightly builds of MSVC binaries of the library are available [here](https://ci.appveyor.com/project/open62541/open62541/build/artifacts).

For individual discussion and support, use the following channels:

- the [mailing list](https://groups.google.com/d/forum/open62541)
- our [IRC channel](http://webchat.freenode.net/?channels=%23open62541)
- the [bugtracker](https://github.com/open62541/open62541/issues)


We want to foster an open and welcoming community. Please take our [code of conduct](CODE_OF_CONDUCT.md) into regard.


Jointly with the overall open62541 community, the core maintainers steer the long-term development. The current core maintainers are (as of April 2018, in alphabetical order):

- Chris-Paul Iatrou (Dresden University of Technology, Chair for Process Control Systems Engineering)
- Florian Palm (RWTH Aachen University, Chair of Process Control Engineering)
- Julius Pfrommer (Fraunhofer IOSB, Karlsruhe)
- Stefan Profanter (fortiss, Munich)

## Support & Development

### Commercial Support

The open62541 community handles support requests for the open source library and its development. Custom development and individual support is provided by commercial partners that are affiliated with open62541:

- [Kalycito Infotech, Tamil Nadu, INDIA](https://www.kalycito.com/landing/open62541-commercial-partner) for embedded and realtime IIoT applications (Contact: enterprise.services@kalycito.com)
- [basysKom GmbH, Darmstadt, Germany](https://www.basyskom.com/) Software Engineering for Embedded Systems. (Contact: info@basysKom.com) 

For custom development that shall eventually become part of the open62541 library, please keep one of the core maintainers in the loop. Again, please note that all changes to files that are already licensed under the MPLv2 automatically become MPLv2 as well. Static linking of the open62541 library with code under a different license is possible. All architecture-specific code is implemented in the form of exchangeable plugins under a very permissible CC0 license.

### Development

As an open source project, new contributors are encouraged to help improve open62541. The following are good starting points for new contributors:

- [Report bugs](https://github.com/open62541/open62541/issues)
- Improve the [documentation](http://open62541.org/doc/current)
- Work on issues marked as "[good first issue](https://github.com/open62541/open62541/issues?q=is%3Aissue+is%3Aopen+label%3A%22good+first+issue%22)"

### Success Stories and Users of open62541

A list of projects and companies using our open62541 stack can be found in our Wiki:

https://github.com/open62541/open62541/wiki/References-to-open62541

## Installation and code usage

For every release, we provide some pre-packed release packages which you can directly use in your compile infrastructure.

Have a look at the [release page](https://github.com/open62541/open62541/releases) and the corresponding attached assets.

A more detailed explanation on how to install the open62541 SDK is given in our [documentation](https://open62541.org/doc/current/installing.html).

You can not directly download a .zip package from the main branches using the Github UI, since then some of the submodules and version strings are missing.
Therefore you have three options to install and use this stack:

- **Recommended:** Use any of the prepared packages attached to every release or in the package repository of your distro (if available).  
  Please check the install guide for more info.
  
- Download a .zip package of special `pack/` branches.  
  These pack branches are up-to-date with the corresponding base branches, but already have the submodules in-place and the version string set correctly.  
  Here are some direct download links for the current pack branches:  
  - [pack/master.zip](https://github.com/open62541/open62541/archive/pack/master.zip)
  - [pack/1.0.zip](https://github.com/open62541/open62541/archive/pack/1.0.zip)
   
- Clone this repository and initialize all the submodules using `git submodule update --init --recursive`. Then either use `make install` or setup your CMake project correspondingly.

## Examples

A complete list of examples can be found in the [examples directory](https://github.com/open62541/open62541/tree/master/examples).

To build the examples, we recommend to install the open62541 project as mentioned in previous section.

### Example Server Implementation

The following simple server example can be built using gcc, after you installed open62541 on your system.

Using the GCC compiler, just run ```gcc -std=c99 -lopen62541 -DUA_ARCHITECTURE_POSIX <server.c> -o server``` (under Windows you may need to add ``` -lws2_32``` 
and change `-DUA_ARCHITECTURE_POSIX` to `-DUA_ARCHITECTURE_WIN32`).
```c
#include <signal.h>
#include <open62541/server.h>
#include <open62541/server_config_default.h>

UA_Boolean running = true;
void signalHandler(int sig) {
    running = false;
}

int main(int argc, char** argv)
{
    signal(SIGINT, signalHandler); /* catch ctrl-c */

    /* Create a server listening on port 4840 */

    UA_Server *server = UA_Server_new();
    UA_ServerConfig_setDefault(UA_Server_getConfig(server));

    /* Add a variable node */
    /* 1) Define the node attributes */
    UA_VariableAttributes attr = UA_VariableAttributes_default;
    attr.displayName = UA_LOCALIZEDTEXT("en-US", "the answer");
    UA_Int32 myInteger = 42;
    UA_Variant_setScalar(&attr.value, &myInteger, &UA_TYPES[UA_TYPES_INT32]);

    /* 3) Add the node */
    UA_Server_addVariableNode(server, newNodeId, parentNodeId, parentReferenceNodeId,
                              browseName, variableType, attr, NULL, NULL);

    /* Run the server loop */
    UA_StatusCode status = UA_Server_run(server, &running);

    UA_Server_delete(server);

    return status;
}
```

### Example Client Implementation
```c
#include <stdio.h>
#include <open62541/client.h>
#include <open62541/client_config_default.h>

int main(int argc, char *argv[])
{
    /* Create a client and connect */
    UA_Client *client = UA_Client_new();
    UA_ClientConfig_setDefault(UA_Client_getConfig(client));
    UA_StatusCode status = UA_Client_connect(client, "opc.tcp://localhost:4840");
    if(status != UA_STATUSCODE_GOOD) {
        UA_Client_delete(client);
        return status;
    }

    /* Read the value attribute of the node. UA_Client_readValueAttribute is a

The following patch relaxes type checking on attribute R/W functions.
This simplifies the "opcua read ..." and "opcua write ..." logic.
Another change allows the server's logger to be fully overriden.
It changes the default timeout to 10 milliseconds and adds some
functions to set the custom data type array on client and server.

--- open62541.c.orig	2019-10-10 17:56:09.000000000 +0200
+++ open62541.c	2019-10-11 15:42:00.506190943 +0200
@@ -22428,7 +22428,7 @@
 /* Main Server Loop */

 /********************/
 
-#define UA_MAXTIMEOUT 50 /* Max timeout in ms between main-loop iterations */
+#define UA_MAXTIMEOUT 10 /* Max timeout in ms between main-loop iterations */
 
 /* Start: Spin up the workers and the network layer and sample the server's
  *        start time.
@@ -41415,7 +41415,7 @@
     UA_WriteValue_init(&wValue);
     wValue.nodeId = *nodeId;
     wValue.attributeId = attributeId;
-    if(attributeId == UA_ATTRIBUTEID_VALUE)
+    if(attributeId == UA_ATTRIBUTEID_VALUE && inDataType == &UA_TYPES[UA_TYPES_VARIANT])
         wValue.value.value = *(const UA_Variant*)in;
     else
         /* hack. is never written into. */
@@ -41518,13 +41518,16 @@
     if(attributeId == UA_ATTRIBUTEID_VALUE) {
         memcpy(out, &res->value, sizeof(UA_Variant));
         UA_Variant_init(&res->value);
-    } else if(attributeId == UA_ATTRIBUTEID_NODECLASS) {
+    } else if(attributeId == UA_ATTRIBUTEID_NODECLASS && outDataType != &UA_TYPES[UA_TYPES_VARIANT]) {
         memcpy(out, (UA_NodeClass*)res->value.data, sizeof(UA_NodeClass));
     } else if(UA_Variant_isScalar(&res->value) &&
               res->value.type == outDataType) {
         memcpy(out, res->value.data, res->value.type->memSize);
         UA_free(res->value.data);
         res->value.data = NULL;
+    } else if(UA_Variant_isScalar(&res->value) && outDataType == &UA_TYPES[UA_TYPES_VARIANT]) {
+        memcpy(out, &res->value, sizeof(UA_Variant));
+        UA_Variant_init(&res->value);
     } else {
         retval = UA_STATUSCODE_BADUNEXPECTEDERROR;
     }
@@ -51591,16 +51594,22 @@
 
 static UA_StatusCode
 setDefaultConfig(UA_ServerConfig *conf) {
+    UA_Logger logger;
+
     if (!conf)
         return UA_STATUSCODE_BADINVALIDARGUMENT;
 
+    logger = conf->logger;
+    if (logger.log == NULL)
+        logger = UA_Log_Stdout_;
+
     /* Zero out.. All members have a valid initial value */
     UA_ServerConfig_clean(conf);
     memset(conf, 0, sizeof(UA_ServerConfig));
 
     /* --> Start setting the default static config <-- */
     conf->nThreads = 1;
-    conf->logger = UA_Log_Stdout_;
+    conf->logger = logger;
 
     conf->shutdownDelay = 0.0;
 
@@ -56830,7 +56839,7 @@
     time_t gmt, rawtime = time(NULL);
 
     struct tm ptm;
-    gmtime_s(&ptm, &rawtime);
+    ptm = *gmtime(&rawtime);
     // Request that mktime() looksup dst in timezone database
     ptm.tm_isdst = -1;
     gmt = mktime(&ptm);
@@ -57915,3 +57924,17 @@
 






     return connection;







 }
+


+UA_StatusCode








+UA_Client_setCustomDataTypes(UA_Client *client, const UA_DataTypeArray *types) {
+  client->config.customDataTypes = types;

+
+  return UA_STATUSCODE_GOOD;
+}
+
+UA_StatusCode








+UA_Server_setCustomDataTypes(UA_Server *server, const UA_DataTypeArray *types) {
+  server->config.customDataTypes = types;

+
+  return UA_STATUSCODE_GOOD;
+}
--- open62541.h.orig	2019-10-10 17:56:09.000000000 +0200
+++ open62541.h	2019-10-11 15:40:15.785621699 +0200
@@ -95,7 +95,7 @@
  * On Win32: Define ``UA_DYNAMIC_LINKING`` and ``UA_DYNAMIC_LINKING_EXPORT`` in
  * order to export symbols for a DLL. Define ``UA_DYNAMIC_LINKING`` only to
  * import symbols from a DLL.*/
-#define UA_DYNAMIC_LINKING
+/* #undef UA_DYNAMIC_LINKING */
 
 /* Shortcuts for extern "C" declarations */
 #if !defined(_UA_BEGIN_DECLS)
@@ -23139,7 +23139,7 @@
  * @param server The server object.
  * @param waitInternal Should we wait for messages in the networklayer?
  *        Otherwise, the timouts for the networklayers are set to zero.
- *        The default max wait time is 50millisec.
+ *        The default max wait time is 10millisec.
  * @return Returns how long we can wait until the next scheduled
  *         callback (in ms) */
 UA_UInt16 UA_EXPORT






@@ -30420,6 +30420,11 @@

 #define UA_fileExists(X) ( UA_access(X, 0) == 0)











 #endif
 
+UA_StatusCode UA_EXPORT



+UA_Client_setCustomDataTypes(UA_Client *client, const UA_DataTypeArray *types);
+
+UA_StatusCode UA_EXPORT
+UA_Server_setCustomDataTypes(UA_Server *server, const UA_DataTypeArray *types);
 
 _UA_END_DECLS