4.2. Examples

Here's a small example of how to use the routines:

# getDBs :
 #   get the names of all the databases at a given host and port number
 #   with the defaults being the localhost and port 5432
 #   return them in alphabetical order
 proc getDBs { {host "localhost"} {port "5432"} } {
     # datnames is the list to be result
     set conn [pg_connect template1 -host $host -port $port]
     set res [pg_exec $conn "SELECT datname FROM pg_database ORDER BY datname"]
     set ntups [pg_result $res -numTuples]
     for {set i 0} {$i < $ntups} {incr i} {
 lappend datnames [pg_result $res -getTuple $i]
     }
     pg_result $res -clear
     pg_disconnect $conn
     return $datnames
 }