# $Header: /home/cvsroot/tcldb/ucodb/Tlib/numericCols,v 1.1.1.1 1996/10/12 01:08:26 de Exp $
# tcl procs saved on Sun Sep 03 16:19:19 PDT 1995

proc numericCols types {


  set fmt ""

  set i 0
  set num ""
  while {! [lempty $types] } {
    set t [lvarpop types]

    # set a length based on type
    # text, image, and binary get defaults


    case $t in {
      {int tinyint smallint float real}   {lappend num $i}
        {default} {}
    }

        incr i
  }
  return $num
}

