# $Id: util.tcl 1177 2019-06-30 12:34:07Z mueller $
# SPDX-License-Identifier: GPL-3.0-or-later
# Copyright 2011-2017 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
#
#  Revision History:
# Date         Rev Version  Comment
# 2017-04-22   883   2.1.1  add amap_reg2addr
# 2016-04-02   758   2.1    add USR_ACCESS register support (RLUA0/RLUA1)
# 2014-12-21   617   2.0.1  add rbtout definition in STAT
# 2014-12-07   609   2.0    use new rlink v4 iface; remove SINIT again
# 2014-08-09   580   1.0.2  add run_rri
# 2011-08-06   403   1.0.1  add SINT and SINIT defs for serport init
# 2011-03-26   373   1.0    Initial version
# 2011-03-19   372   0.1    First draft
#

package provide rlink 1.0

package require rutil 1.0

namespace eval rlink {
  regdsc STAT   {stat 7 4} {attn 3} {rbtout 2} {rbnak 1} {rberr 0}
  variable STAT_DEFMASK [regbld rlink::STAT rbtout rbnak rberr]

  regdsc RLCNTL {anena 15} {atoena 14} {atoval 7 8}
  regdsc RLSTAT {lcmd 15 8} {babo 7} {rbsize 2 3}

  # RLUSRACC describes the 32 bit value returned by the usracc property
  # assuming that standart Xilinx TIMESTAMP format is used for USR_ACCESS
  regdsc RLUSRACC {day 31 5} {mon 26 4} {yr 22 6} {hr 16 5} {min 11 6} {sec 5 6}

  # 'pseudo register', describes 3rd word in return list element for -rlist
  regdsc FLAGS {vol 16} \
    {chkdata 13} {chkstat 12} \
    {errcrc 11} {errcmd 10}  {errmiss 9} {errnak 8} \
    {resend 7} {recov 6} {pktend 5} {pktbeg 4} \
    {done 2} {send 1} {init 0} 

  # define rlink core regs addresses (are system constants)
  variable ADDR_RLCNTL 0xffff
  variable ADDR_RLSTAT 0xfffe
  variable ADDR_RLID1  0xfffd
  variable ADDR_RLID0  0xfffc
  # define rlink optinal regs addresses (are system constants too)
  variable ADDR_RLUA1  0xfffb
  variable ADDR_RLUA0  0xfffa

  #
  # setup: currently noop, amap definitions done at cpp level
  # 
  proc setup {} {
  }

  #
  # init: reset rlink: disable enables; clear attn register
  #
  proc init {} {
    rlc exec \
      -wreg $rlink::ADDR_RLCNTL 0 \
      -attn
    return
  }

  #
  # anena: enable/disable attn notify messages
  #
  proc anena {{ena 0}} {
    rlc exec \
      -wreg $rlink::ADDR_RLCNTL [regbld rlink::RLCNTL [list anena $ena]]
  }

  #
  # isopen: returns 1 if open and 0 if close
  #
  proc isopen {} {
    if {[rlc open] eq ""} { return 0 }
    return 1
  }

  #
  # isfifo: returns 1 if open and fifo, 0 otherwise
  #
  proc isfifo {} {
    set name [rlc open]
    if {$name ne "" && [regexp -- {^fifo:} $name]} { return 1 }
    return 0
  }

  #
  # issim: returns 1 if open and in simulation mode, 0 otherwise
  #
  proc issim {} {
    if {![info exists rlink::sim_mode]} { return 0}
    return $rlink::sim_mode
  }

  #
  # run_rri: execute rri type command file
  #
  proc run_rri {fname} {
    rlc errcnt -clear
    set code [exec ticonv_rri $fname]
    eval $code
    set errcnt [rlc errcnt]
    if { $errcnt } {
      puts [format "run_rri: FAIL after %d errors" $errcnt]
    }
    return $errcnt
  }

  #
  # format_usracc: format usracc timestamp
  #
  proc format_usracc {usracc} {
    reggetkv rlink::RLUSRACC $usracc "ua_"
    set ua_yr [expr {$ua_yr + 2000}]
    set rval [format "%04d-%02d-%02d %02d:%02d:%02d" \
                $ua_yr $ua_mon $ua_day $ua_hr $ua_min $ua_sec]
    return $rval
  }

  #
  # amap_reg2addr: convert register to address -------------------------------
  # 
  proc amap_reg2addr {reg} {
    if {[rlc amap -testname $reg]} {
      return [rlc amap $reg]
    } elseif {[string is integer $reg]} {
      return $reg
    } else {
      error "amap_reg2addr-E: unknown register '$reg'"
    }
  }

}