// (c) Bernhard Tittelbach, 2013

package main

import (
    "fmt"
    "os"
    "flag"
    "time"
    "log/syslog"
    "log"
)

//~ func StringArrayToByteArray(ss []string) [][]byte {
    //~ bb := make([][]byte, len(ss))
    //~ for index, s := range(ss) {
        //~ bb[index] = []byte(s)
    //~ }
    //~ return bb
//~ }

// ---------- Main Code -------------

var (
    cmd_port_ string
    pub_port_ string
    door_tty_path_ string
    use_syslog_ bool
    Syslog_ *log.Logger
)

func init() {
    flag.StringVar(&cmd_port_, "cmdport", "ipc:///run/tuer/door_cmd.ipc", "zmq command socket path")
    flag.StringVar(&pub_port_, "pubport", "tcp://*:4242", "zmq public/listen socket path")
    flag.StringVar(&door_tty_path_, "device", "/dev/door", "door tty device path")
    flag.BoolVar(&use_syslog_, "syslog", false, "log to syslog local1 facility")
    flag.Parse()
}

func main() {
    zmqctx, cmd_chans, pub_chans := ZmqsInit(cmd_port_, pub_port_)
    defer cmd_chans.Close()
    defer pub_chans.Close()
    defer zmqctx.Close()

    serial_wr, serial_rd, err := OpenAndHandleSerial(door_tty_path_)
    defer close(serial_wr)
    if err != nil {
        panic(err)
    }

    if use_syslog_ {
        var logerr error
        Syslog_, logerr = syslog.NewLogger(syslog.LOG_INFO | syslog.LOG_LOCAL1, 0)
        if logerr != nil { panic(logerr) }
        Syslog_.Print("started")
        defer Syslog_.Print("exiting")
    }

    //~ serial_wr <- "f"
    //~ firmware_version := <- serial_rd
    //~ log.Print("Firmware version:", firmware_version)
    var next_incoming_serial_is_client_reply bool
    timeout_chan := make(chan bool)
    defer close(timeout_chan)
    for {
        select {
            case incoming_ser_line, is_notclosed := <- serial_rd:
                if is_notclosed {
                    //~ if Syslog_ != nil { Syslog_.Print(ByteArrayToString(incoming_ser_line)) }
                    if Syslog_ != nil { Syslog_.Printf("%s",incoming_ser_line) }
                    if next_incoming_serial_is_client_reply {
                        next_incoming_serial_is_client_reply = false
                        cmd_chans.Out() <- incoming_ser_line
                    }
                    pub_chans.Out() <- incoming_ser_line
                } else {
                    Syslog_.Print("serial device disappeared, exiting")
                    os.Exit(1)
                }
            case tv, timeout_notclosed := <- timeout_chan:
                if timeout_notclosed && tv && next_incoming_serial_is_client_reply {
                        next_incoming_serial_is_client_reply = false
                        cmd_chans.Out() <- [][]byte{[]byte("ERROR"), []byte("No reply from firmware")}
                }
            case incoming_request, ic_notclosed := <- cmd_chans.In():
                if ! ic_notclosed {
                    Syslog_.Print("zmq socket died, exiting")
                    os.Exit(2)
                }
                if string(incoming_request[0]) == "log" {
                    if len(incoming_request) < 2 {
                        cmd_chans.Out() <- [][]byte{[]byte("ERROR"), []byte("argument missing")}
                        continue
                    }
                    if Syslog_ == nil {
                        cmd_chans.Out() <- [][]byte{[]byte("ERROR"), []byte("syslog logging not enabled")}
                        continue
                    }
                    Syslog_.Printf("Log: %s",incoming_request[1:])
                    cmd_chans.Out() <- [][]byte{[]byte("Ok")}
                    continue
                }
                if Syslog_ != nil { Syslog_.Printf("%s",incoming_request) }
                 if err := HandleCommand(incoming_request, serial_wr, serial_rd); err != nil {
                    out_msg := [][]byte{[]byte("ERROR"), []byte(err.Error())}
                    cmd_chans.Out() <- out_msg
                 } else {
                    pub_chans.Out() <- incoming_request
                    next_incoming_serial_is_client_reply = true
                    go func(){time.Sleep(3*time.Second); timeout_chan <- true;}()
                 }
        }
    }
}