log_note log_error log_warning

testop.tcl

=========

proc testop_initialize { } {

}

proc testop_start { state} {  

  variable testopsp  

  set testopsp $state  

  log_note "set test_shutter to $testopsp"        

  log_error "error information"        

  log_warning "warning information"

}

=========

in device db

testop

11

self testop

0 1 1 1 1

0 1 1 1 1

 

 

 

posted @ 2012-02-13 23:39  greencolor  阅读(381)  评论(0)  编辑  收藏  举报