ruby-list

皆さん今晩は、田鎖です。

以前、GPIB モジュールの件で相談させていただきましたが、結局うまい解決法
は見つからず、やばそうなところを GC.disable と GC.enable で囲むことであ
る程度解決いたしました。非常に効率の悪い方法ですが、動かないよりましです。

これで安定したかと思えば、例えば 

# GPIB デバイス にはオシロスコープがつながっています
dev = Gpib.new("dev1")

cnt = 1
loop do
  print cnt," "
  # "curve?" という命令は画面の波形データを転送します。約 5 KByte
  dev.write("curve?")
  # とりあえず取り込んだデータはすべて捨てます
  dev.read	
  cnt += 1
end

と言うコマンドを実行すると数十回のループ後セグメンテーションフォルトで落
ちてしまいます。

しかし、機器の動作検証用に irb から呼び出してちょこちょこと書く分には非
常に便利で重宝しています。

Gpib 用のコンソール(?) には、NI のボードの場合 標準で ibic というプログ
ラムが付いてくるのですが、これが非常に使いにくいのです。コマンドの編集は
できないし、変数が使えないので結果は常にファイルにセーブしなければならな
いし。だからといってちょこっとしたプログラムを書くのに LabVIEW みたいな
物は大げさすぎるし。

GUI については、Ruby/Gtk に期待しております。快適な環境を手に入れること
ができました。皆さんありがとうございます。

最後に変更したソースをつけておきますので、NI の GPIB ボードを持ってる方
がいらっしゃいましたら、使ってみてください。(NI の GPIB ボードは高いから
なかなか使っている人がいないんだよね。)

						'00.2.23 tag

Attachments (1)

gpib.rb (3.1 KB, text/x-ruby)

# NI Gpib library wrapper
#

require "Win32API"

def Gpib(name = "")
  dev = Gpib.new
  dev.open(name) if name != ""
  dev
end

class Gpib

  class Error < StandardError
  end

  def initialize
    @devname = ""
    @dev = -1
    @pad = -1
    @sad = -1
    @tmo = -1
  end
  attr("pad",true)
  attr("sad",true)
  attr("tmp",true)

  def open(devname)
    @devname = devname
    r = ibfind(@devname)
    raise Gpib::Error, error_to_str(thrediberr) if r < 0
    r
  end

  def write(str)
    GC.disable
    ibfind(@devname)
    ibpad(@pad) if @pad != -1
    ibsad(@sad) if @sad != -1
    ibtmp(@tmo) if @tmo != -1
    stat,cnt = ibwrt(str)
    if (stat & 0b1000000000000000) > 0
      raise Gpib::Error, error_to_str(stat)
    end
    GC.enable
    cnt
  end

  def read(cnt=1024)
    GC.disable
    ibfind(@devname)
    ibpad(@pad) if @pad != -1
    ibsad(@sad) if @sad != -1
    ibtmp(@tmo) if @tmo != -1

    buf = ""
    loop do
      stat,b = ibrd(cnt)
      if (stat & 0b1000000000000000) > 0
	raise Gpib::Error, error_to_str(stat)
      end
      buf << b
      if (stat & 0b0010000000000000) > 0 # END bit
	break
      end
    end
    GC.enable
    buf
  end

  def rsp
    GC.disable
    ibfind(@devname)
    ibpad(@pad) if @pad != -1
    ibsad(@sad) if @sad != -1
    ibtmp(@tmo) if @tmo != -1

    stat, rsp = ibrsp
    if (stat & 0b1000000000000000) > 0
      raise Gpib::Error, error_to_str(stat)
    end
    GC.enable
    rsp
  end

#
#
#
  def error_to_str(stat)
    r = []
    err_stat = (format "%016b",stat).split(//)
    err_str = ["ERR","TMO","END","RQS","SRQI",nil,nil,"CMPL","LOK","REN","CIC","ATN","TACS","LACS","DTAS","DCAS"]

    while err_stat != []
      if err_stat.shift == "1"
	r << err_str.shift
      else
	err_str.shift
      end
    end
    "<" + r.join(",") + ">"
  end

  def ibfind(name = "dev1")
    func = Win32API.new("gpib-32","ibfind",["P"],"L")
    @dev = func.call(name)
  end

  def ibwrt(str)
    func = Win32API.new("gpib-32","ibwrt",["L","P","L"],"L")
    stat = func.call(@dev,str,str.size)
    cnt = thredibcntl
    [stat,cnt]
  end

  def ibrd(size = 1024)
    buf = "\000" * size
    func = Win32API.new("gpib-32","ibrd",["L","P","L"],"L")
    stat = func.call(@dev,buf,size)
    cnt = thredibcntl
    [stat,buf[0,cnt]]
  end

  def thredibcntl
    func = Win32API.new("gpib-32","ThreadIbcntl",[],"L")
    func.call
  end

  def thrediberr
    func = Win32API.new("gpib-32","ThreadIberr",[],"L")
    func.call
  end

  def ibrsp
    rsp = "\0"
    func = Win32API.new("gpib-32","ibrsp",["L","P"],"L")
    stat = func.call(@dev,rsp)
    [stat, rsp.unpack("c")[0]]
  end

  def ibpad(pad)
    func = Win32API.new("gpib-32","ibpad",["L","L"],"L")
    func.call(@dev,pad)
  end

  def ibsad(sad)
    func = Win32API.new("gpib-32","ibsad",["L","L"],"L")
    func.call(@dev,sad)
  end

  def ibtmo(tmo)
    func = Win32API.new("gpib-32","ibtmo",["L","L"],"L")
    func.call(@dev,tmo)
  end

end

if __FILE__ == $0
  dev = Gpib("dev1")
  dev.write("*idn?")
  print dev.read
  STDOUT.flush

  cnt = 1
  loop do 
    print cnt," "
    STDOUT.flush
    dev.write("curve?")
    dev.read 3000
    cnt += 1
    sleep (2)
  end
  
end

Thread

Prev Next

In This Thread

Prev Next

[#20453] thread in loop — Yoshiki Wada <wada@...>

[#20457] Ruby チュートリアル — Kazuhiro Nishiyama <nishiyama@...1.tiki.ne.jp>

[#20466] break in rescue — Kentaro Inagaki / 稲垣 健太郎 <inagaki@...>

[#20471] Re: class Polynomial — toyofuku@...

[#20472] Got a message "`close': closed stream (IOError)" for closing ARGF — Jun Adachi <adachi@...>

[#20473] Comparison with Other Languages — Hideto ISHIBASHI <s34204@...>

[#20475] Wrapping Regexp in C++/Windows — OZAWA Sakuro <crouton@...>

[#20481] insert_table について — Kenji Sato (佐藤健司) <ken@...>

[#20505] Array のサブクラス — ogino@...

[#20508] make test — IWATSUKI Hiroyuki <don@...>

[#20511] swigruby example(Qt) — Nobuyuki Horie <horie@...>

[#20523] regexp ML — Tomoyuki Kosimizu <greentea@...2.so-net.ne.jp>

[#20525] lib/subdirectory — gotoken@... (GOTO Kentaro)

[#20526] site_ruby — gotoken@... (GOTO Kentaro)

[#20534] ftpmirror-1.2.2 で @homepage へ up 不可 — Hirokazu Kiuchi <kiuchi@...>

[#20545] NFA probrem — "NAKAMURA, Hiroshi" <nakahiro@...>

[#20554] エスケープされていないものだけを置換 — Ayanosuke <aya@...>

[#20598] — "okaukio+mls" <jtz4046@...6.mnx.ne.jp>

[#20608] media watch 2000.02.08 — Noritsugu Nakamura <nnakamur@...>

[#20613] distributing rubymw.dll — OZAWA Sakuro <crouton@...>

[#20617] Re: [ruby-talk:01300] Announcing a new Ruby book — "Kikutani, Makoto" <kikutani@...>

[#20625] druby で 3 つのプロセス間でオブジェクトをやり取りする — 堀川 久 <vzw00011@...>

[#20626] そろそろ誕生日 — rubikitch <rubikitch@...>

[#20627] Ruby/GTK 0.23 released — Hiroshi IGARASHI <igarashi@...>

[#20631] Copying.dj for the `missing/file.h' — kjana@... (YANAGAWA Kazuhisa)

[#20637] Re: Welcome to our (ruby mailing list) You are added automatically — Takuji YOKOYAMA <takuji@...>

[#20649] core dumped on trapping a signal — Yukio Hirai (平井幸夫) <t94369yh@...>

[#20668] /\Ua\E/ — Kazuhiro Nishiyama <nishiyama@...1.tiki.ne.jp>

[#20675] 括弧省略の問題？ — NISHIKAWA <nyasu@...3web.ne.jp>

[#20695] Fw: Re: How to run ruby — "Hideaki Takata" <hideakit@...3.dion.ne.jp>

[#20701] call Process::waitpid with -1 — Tomoyuki Kosimizu <greentea@...2.so-net.ne.jp>

[#20720] ruby 本の mtalkd マルチスレッド版について — Nobutaka Terauchi <europa@...>

[#20722] opttest.rb of optparse-0.6 — Toshiro Kuwabara <toshirok@...3.so-net.ne.jp>

[#20723] 正規表現について — Takayuki Tanaka <tanaka@...>

[#20725] DAO+Ruby — 北村 幸紀 <kouki_kitamura@...>

[#20726] [Q]Cygwin32 版 Ruby でシリアルを使う方法は？ — eda@...

[#20733] ANN: ActiveScriptRuby — "arton" <arton@...>

[#20737] Ruby/Gtk の CList にパッチ — YASUI Kentarow <kenyasui@...>

[#20748] GPIB wrapper on WIN95 — Makoto Tagusari <mtag@...2.so-net.ne.jp>

[#20766] cvsmailer — Daiji KANEMATSU <kanematu@...>

[#20771] CGI の改行 (Ruby + Apache on Windows) — ogino@...

[#20774] 'scripting' / 'SUKURIPUTO' — TAKAHASHI Masayoshi <maki@...>

[#20775] strange matching against EUC code — kjana@... (YANAGAWA Kazuhisa)

[#20778] — Jun HATTORI <jhat@...>

[#20786] Solaris 2.5.1 へのインストール — Takashi SUGA <suchowan@...>

[#20821] method object — thitoshi@... (TAKAHASHI Hitoshi)

[#20843] Windows の呼び出し形式について。 — "伊藤 友裕" <j6398015@...>

[#20845] Re: rbsh — Toyofuku <toyofuku@...>

[#20848] media watch 2000.02.18 — Noritsugu Nakamura <nnakamur@...>

[#20851] RubyMidi — 中村暁史 Nakamura Akifumi <BXQ04723@...>

[#20865] ANN: ActiveScriptRuby Update — arton <arton@...>

[#20868] commercial application for ruby — kjana@... (YANAGAWA Kazuhisa)

[#20870] [BOOK] Thread local data — nobu.nakada@...

[#20873] active attribute — nobu.nakada@...

[#20876] active attribute — nobu.nakada@...

[#20887] 変数ウォッチ画面ありませんか？ — Itou-T15@...

[#20896] net 1.1.5 — Minero Aoki <aamine@...>

[#20918] Ruby 本入手法 — matz@... (Yukihiro Matsumoto)

[#20923] CUI library available in Ruby — Hideto ISHIBASHI <s34204@...>

[#20929] tmail-0.8.1 — rubikitch <rubikitch@...>

[#20932] [Q] array.each{|i,j|... — junji999@...

[#20939] Re: [ruby-ext:00918] Re: getoptLong — kjana@... (YANAGAWA Kazuhisa)

[#20944] Hash#update について — Fuyuhiko Maruyama (丸山冬彦) <fuyuhik8@...>

[#20959] Ruby/GTK ｔの動かし方 — 中村暁史 Nakamura Akifumi <BXQ04723@...>

[#20965] cgi.rb BUG? — rubikitch <rubikitch@...>

[#20979] join と tainted? — Matsuo Hisanori <hisanori@...>

[#20987] Thread の使い方 — Yoshihiro Nakahara <yoshihiro@...>

[#20992] GPIB driver その後 — Makoto Tagusari <mtag@...2.so-net.ne.jp>

[#20999] bubun sansyou — Koyama Hideo <fa8h-kym@...>

[#21000] 誕生日おめでとう＼（＾ｏ＾）／ — rubikitch <rubikitch@...>

[#21017] media watch 2000.02.24 — Noritsugu Nakamura <nnakamur@...>

[#21024] patch - ext/socket/socket.c — GOTOU YUUZOU <gotoyuzo@...>

[#21028] CGI.rb のドキュメント探してます — Takumi Nakamura <chapuni@...>

[#21042] REQ: String#to_a — Tomoyuki Kosimizu <greentea@...2.so-net.ne.jp>

[#21060] XP — Tomoyuki Kosimizu <greentea@...2.so-net.ne.jp>

[#21063] — Saburo Yosho <yosho@...>

[#21073] Regexp question — Kengo Nakajima <ringo@...>

[#21087] tiny fetchmail — Masatoshi SEKI <m_seki@...>

[#21093] RD with URL — rubikitch <rubikitch@...>

[ruby-list:20992] GPIB driver その後

[#20466] break in rescue — Kentaro Inagaki / 稲垣健太郎 <inagaki@...>

[#20625] druby で 3 つのプロセス間でオブジェクトをやり取りする — 堀川　久 <vzw00011@...>

[#20725] DAO+Ruby — 北村　幸紀 <kouki_kitamura@...>

[#20843] Windows の呼び出し形式について。 — "伊藤　友裕" <j6398015@...>