#!/usr/local/bin/ruby

# nxtlogger 0.2 2006-08-05
# Data Logger via bluetooth serial connection
# Only Tested on OSX.  Let me know if you get it working on other platforms.
# Tony Buser <tbuser@gmail.com>
# http://juju.org/articles/2006/08/03/ruby-nxt-bluetooth-data-logger

# Outputs comma delimited info like:
# Thu Aug 03 00:27:18 EDT 2006,1,"Chunky Robotic Bacon!"
# Format: time, mailbox, message

# requires ruby-serialport from: 
# http://raa.ruby-lang.org/project/ruby-serialport/

require "serialport"

if ARGV.size < 1
  STDERR.print <<EOF
  Usage: ruby #{$0} /dev/tty.NXT
EOF
  exit(1)
end

DEBUG = false
device = ARGV[0]

sp = SerialPort.new(device, 57600, 8, 1, SerialPort::NONE)
sp.flow_control = SerialPort::HARD

class String
  def is_text?
    self.each_byte do |b|
      if !b.to_i.between?(32,126)
        return false
      end
    end
    return true
  end
end

while (data = sp.sysread(6))
  total_bytes   = data[0] + 2
  mailbox       = data[4] + 1
  message_bytes = data[5]
  message       = sp.sysread(message_bytes).chop

  data.each_byte {|b| puts "%02x\t%s" % [b,b]} if DEBUG
  message.each_byte {|b| puts "%02x\t%s" % [b,b]} if DEBUG

  if message.is_text?
    data = "\"#{message.gsub(/"/,'\"')}\""
  else
    case message.size
      when 1
        message[0] == 1 ? data = "true" : data = "false"
      when 4
        data = message[0..3].unpack("V")[0].to_s
      else
        data = "unknown message: #{message}"
    end
  end

  puts Time.now.to_s + "," + mailbox.to_s + "," + data
end

# First 6 bytes always the same, first 2 always length of whole package
# 09 - length LSB: total bytes of data - 2
# 00 - length MSB:
# 80 - command type: direct command telegram, no response
# 09 - command: message
# 00 - mailbox - 1
# 05 - total bytes of message + 1
# bytes 7 to total bytes of message - 1...
# 00 - last byte always 0

# Send Message Type Text
# bytes 7 to total bytes of message - 1:
# 54 - T
# 65 - e
# 73 - s
# 74 - t

# Send Message Type Logic
# byte 7: 01 - True, 00 - false

# Send Message Type Number
# bytes 7-10: ULONG little-endian

sp.close