Shell Programming and Scripting

This is my code now---
shell.sh:
      #!/bin/bash
      tclsh snmpv2-conf-sam.tcl $SERVER $NODESYSIP $SPASSWD

but i need this in a different way like , without having a .tcl file i want the tcl file content to be in a function and to be called in the unix script.

Shell.sh:
     #!/bin/bash
     snmpv2 $SERVER $NODESYSIP $SPASSWD

     snmpv2()
     expect {
    password: {
        send "$nodePass\r"
        exp_continue
    } "yes/no)?" {
        send "yes\r"
        exp_continue
    }
    "# "
    }

#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"

#!/usr/bin/env tclsh

# @(#) hi     Demonstrate tclsh feature.

puts stdout ""
set version [ info tclversion ]
set message " Hello, world from tclsh ($version)"
puts stdout $message
set message "$auto_path"
puts stdout " auto_path: $message"

set my_library ""
set my_library "$env(HOME)/lib/tcl"
lappend auto_path $my_library
if { ! [ auto_load Debug ] } then {
  # Define Debug procedures as null.
  puts stderr " (Hiding debugging procedures.)"
  proc Debug {x} {}
  proc DebugOn {} {}
  proc DebugOff {} {}
}

puts stdout ""
if { $argc == 0 } then {
  puts stdout " No command line parameters provided."
  set file "stdin"
} else {
  set i 0
  puts stdout " Command line arguments:"
  foreach arg $argv {
    set m1 " $i $arg"
    incr i
    set m2 ""
    if { [ file exists $arg ] } then {
      set m2 [ join [ list "(" [ file type $arg ] ")" ] ]
    }
    puts stdout "$m1 $m2"
	set file $arg
  }
}

puts ""
puts " Debugger validation:"
DebugOn 
Debug { Hello, debugger. }
DebugOff
Debug { Goodbye, debugger. }

# Copy from file if it exists.
puts stdout ""
puts stdout " Attempting copy from last argument:"
if { ! [string equal $file "stdin"] } {
  if { [file exists $file] } {
  puts " Opening and reading from file $file"
  set input [open $file "r"]
  } else {
    puts " No such file $file available for read, exiting."
	exit 0
  }
} else {
  puts " Reading from stdin"
  set input $file
}
while { [gets $input line] >= 0} {
  puts $line
}

exit 0

$ ./hi a b c

 Hello, world from tclsh (8.4)
 auto_path: /usr/share/tcltk/tcl8.4 /usr/lib /usr/local/lib/tcltk /usr/local/share/tcltk /usr/lib/tcltk /usr/share/tcltk

 Command line arguments:
 0 a 
 1 b 
 2 c 

 Debugger validation:
 Hello, debugger. 

 Attempting copy from last argument:
 No such file c available for read, exiting.