test.tcl

多发法定阿凡阿道夫埃罚罚 埃担罚大多发叮罚罚多发

proc ShowIODeclProp {id} {
    global fp
    puts $fp "  <---- properties ----"
    puts $fp "  npiName=[npi_get $id -npiName]"
    puts $fp "  npiFullName=[npi_get $id -npiFullName]"
    puts $fp "  npiType=[npi_get $id -npiType]"
    puts $fp "  npiFile=[npi_get $id -npiFile]"
    puts $fp "  npiLineNo=[npi_get $id -npiLineNo]"
    puts $fp "  npiDirection=[npi_get $id -npiDirection]"
    puts $fp "  npiSize=[npi_get $id -npiSize]"
    puts $fp "  npiIsScalar=[npi_get $id -npiIsScalar]"
    puts $fp "  npiIsVector=[npi_get $id -npiIsVector]"
    puts $fp "  >---- properties ----"
}

proc ShowHandleProp {Handle type} {
    global fp
    puts $fp "    <---$type --->"
    if {$Handle != "NULL"} {
        puts $fp "    npiType = [npi_get $Handle -npiType]"
        puts $fp "    npiName = [npi_get $Handle -npiName]"
        if {[npi_get $Handle -npiType] == "npiConstant"} {
            puts $fp "    npiValue = [npi_get $Handle -npiValue]"
        } else {
            puts $fp "    npiLineNo = [npi_get $Handle -npiLineNo]"
        }
    }
    puts $fp "    <---end of $type --->"
}

proc ShowIODeclRelationship {id} {
    global fp
    puts $fp "  <---relationship --->"
    set Scope [npi_handle $id -npiType npiScope]
    ShowHandleProp $Scope "npi_handle \$id -npiType npiScope"
    set UdpDefn [npi_handle $id -npiType npiUdpDefn]
    ShowHandleProp $UdpDefn "npi_handle \$id -npiType npiUdpDefn"
    set exp [npi_handle $id -npiType npiExpr]
    ShowHandleProp $exp "npi_handle \$id -npiType npiExpr"
    set Left [npi_handle $id -npiType npiLeftRange]
    ShowHandleProp $Left "npi_handle \$id -npiType npiLeftRange"
    set Right [npi_handle $id -npiType npiRightRange]
    ShowHandleProp $Right "npi_handle \$id -npiType npiRightRange"
    puts $fp "  <---end of relationship --->"
}

proc ShowIODeclPropAndRelationship {} {
    global fp
    global g_IODecl
    set var $g_IODecl
    puts $fp "<---begin showing IODecl information--->"
    ShowIODeclProp $var
    ShowIODeclRelationship $var
    puts $fp "<---end of showing IODecl information--->"
}

set log_file [file join [file dirname [info script]] [file tail [info script]].out]
set fp [open $log_file w]
fconfigure $fp -buffering none

npi_register_cb -npiModuleBased IODecl ShowIODeclPropAndRelationship
npi_traverse_model -npiModuleBased

close $fp