先日ルネサスさんのmrubyを使ってGR-CITRUSでIoTデバイスを扱うというワークショップに参加させてもらったところ、MacBookProおよび(El capitan以上?)macOSにてハマるポイントがあったのでクイックハックで逃げたので、雑なスクリプト付きでメモ。

2016年11月30日現在のファームウェア(WAKAYAMA.RB Board Ver.CITRUS-2.19(2016/11/19)f3(256KB), mruby 1.2.0)を基にした情報なので、将来的には解決されると思います。

2016.12.6 追記: Rubic0.9.2で問題(512バイト分しか実行されない)は解消された模様。しかし強引なリトライ機能が便利なので、そのままスクリプトを使い続けるワタクシなのであった...

環境および前提

GR-CITRUS (2.19)
MacBookPro(late 2013)
macOS Sierra
Rubic 0.9

ハマったポイント

MBPのUSBポートによってGR-CITRUSを認識しない
- 結果として左側ポートが使え、右側は使えない。他の参加者のMBPはLate2013以外もあったんじゃないかとおもうが、同様のばらつきがあった。使用電流に差があるのではとの意見もあった（未検証）
Rubic上での開発ということだったが15行程度のスクリプトがビルド後転送できない(ビルドはできている)。10行付近であれば問題なく動作するし、同一スクリプトをWindows上のRubicで試すと問題がない。
ターミナル上でmrbcを直接実行してできたmrubyの中間ファイル(.rb)をCoolTermで転送すると問題なく動く。が、いちいちコマンドでmrbcしたあと、バイト数をカウントして、ファームウェア上のアップローダでXコマンドを用いて転送しないといけない。面倒すぎる

応急策

mrubyの中間ファイル生成したあと、バイト数を数えて、自動で転送するスクリプトをrubyで書いた。

rubyでバイト数カウントしてもいいのにwcを呼び出しているのは、元がシェルスクリプトだったりする。

下記スクリプトを chmod +x しておき、引数にスクリプトファイルをあたえる。
スクリプト自体はEmacsでもVimでもお好みのものを使えばいいので、CrioneやRubicで編集するよりも楽だったりした(個人の感想です)

chmod +x mt.rb

% ./mt.rb  i2c_lcd82.rb                                                                
>¥r¥n>>>>¥r¥nX main 2056
Wait for upload
X main 2056¥r¥n>>>>>>>>>>¥r¥nX main 2056
Wait for upload
.
.
.

上記のようなかんじでターミナル上で実行します。
内部でSerialPortを読んでるので、事前に

% sudo gem i serialport

...とかなんとか準備しておきましょう。

mt.rb

# !/usr/local/bin/ruby
# coding: utf-8
=begin

make and transfer .mrb file

mrbc hoge.rb
wc -w < hoge.mrb
したあと、SerialPort経由でファイルを送り込み
ターミナルモードに移行

=end
require 'serialport'

port = "/dev/tty.usbmodem1_1"
bps  = 9600
send_script_name = "main"
sending_timeout = 10 #sec

script_file = ARGV.shift
mrb_file    = script_file.split(".").first + ".mrb"

`mrbc #{script_file}`
size = open("|wc -c <#{mrb_file}").readlines.join.chomp.strip.to_i


sp = SerialPort.new(port,bps,8,1,SerialPort::NONE)

$wait4upload = true
$buf = ""

Thread.new{ #Waiting xx xx を受信するまではアップロードまちで、受信内容を表示
  loop do
    line = sp.getc

    $wait4upload = false if $buf =~ /Wait/

    $buf += line
    $buf == "" if line == "¥n"
    print line
  end
}

#
# sp.print "L¥r¥n"
sp.write "¥r¥n"
sleep 4

#
# Transfer  .mrb file (Xコマンド送信)
#
retry_count = 0
begin
  first_send_time = Time.now
  cmd = "¥r¥nX #{send_script_name} #{size}"
  STDERR.puts cmd
  sp.write "X #{send_script_name} #{size}"
  sp.write "¥r¥n"

  #雑な待ち受け
  STDERR.puts "Wait for upload"
  while $wait4upload
    raise "Time Out "  if Time.now-first_send_time >= sending_timeout
  end
  STDERR.puts
rescue
  if  retry_count <= 2
    retry_count += 1
    retry
  else
    STDERR.puts "timeout error;_;"
    exit
  end
end

STDERR.puts " ** sending #{mrb_file} : #{size} bytes ** "
sleep 5
open(mrb_file,"rb") do |io|
  io.each_byte do |b|
    sp.putc b
  end
end
sp.write "¥r¥n"

#
# そのままターミナルモードに移行(^Cでとまる)
#
loop do
  line = gets
  sp.write line
end
sp.close