URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [itcl/] [testsuite/] [config/] [default.exp] - Diff between revs 578 and 1765

Rev 578	Rev 1765
`# Dejagnu test wrapper for [incr tcl] test suite`	`# Dejagnu test wrapper for [incr tcl] test suite`
`# Copyright 1997 Cygnus Solutions`	`# Copyright 1997 Cygnus Solutions`

`# Extract and print version number.`	`# Extract and print version number.`
`proc itcl_version {} {`	`proc itcl_version {} {`
`# No way to extract this in version 1.5.`	`# No way to extract this in version 1.5.`
`clone_output "itcl version 1.5\n"`	`clone_output "itcl version 1.5\n"`
`}`	`}`

`proc itcl_exit {} {`	`proc itcl_exit {} {`
`}`	`}`

`proc itcl_start {} {`	`proc itcl_start {} {`
`global spawn_id objdir`	`global spawn_id objdir`

`spawn $objdir/src/itcl_sh`	`spawn $objdir/src/itcl_sh`
`}`	`}`

`proc itcl_load {} {`	`proc itcl_load {} {`
`}`	`}`