Merge pull request #351 from olebole/noirlab-nttables

NOIRLAB: Remove unused variabled from nttables

pkg/utilities/nttools/gtedit/t_gtedit.x

@@ -27,7 +27,6 @@ bool inplace
 pointer x, y, null, size, sp, tp, deleted, tpr
 pointer errmsg, bad_column
 int npix
-int window # note: this is apparently not used
 int phu_copied # set by tbfpri and ignored
 int tgrjmp[LEN_JUMPBUF], epa, old_onint, status
 bool do_delete, do_quit
@@ -36,7 +35,6 @@ bool clgetb()
 int fstati(), scan(), strncmp(), tbpsta()
 pointer tbtopn()
 extern tgr_onint2()
-data window /0/
 common /tgrcom/ tgrjmp
 
 begin

pkg/utilities/nttools/keyselect/expr.x

@@ -17,7 +17,7 @@ include "keyselect.com"
 pointer op, sp, errmsg
 
 string badtype "Expression is not of boolean type"
-string badname "Warning: header keyword %s not found in %s\n"
+#string badname "Warning: header keyword %s not found in %s\n"
 
 int errget()
 pointer evexpr(), locpr()

pkg/utilities/nttools/stxtools/sp_util/spmapt.x

@@ -24,8 +24,7 @@ bool perim # I: draw perimeter
 
 real xcen, ycen, x, y
 real aspect_ratio
-real x1, x2, y1, y2, ext, xdis, ydis
-data ext /0.0625/
+real x1, x2, y1, y2, xdis, ydis
 real ggetr()
 
 begin
@@ -36,7 +35,6 @@ begin
  } else {
  x1 = EDGE1; x2 = EDGE2
  y1 = EDGE3; y2 = EDGE4
-
  }
 
  # If any values were specified, then replace them here.

pkg/utilities/nttools/tcopy/tcopy.x

@@ -45,8 +45,6 @@ int root_len # number of char in input directory name
 int numout # number of names in output list
 bool fitsout # is the output just one FITS file?
 
-char src[SZ_FNAME], extn[SZ_FNAME]
-
 int nargs # number of command-line arguments
 bool in_redir, out_redir # is input or output redirected?
 
@@ -211,14 +209,13 @@ bool verbose # i: print informational message
 #--
 bool done
 int phu_copied # set by tbfpri and ignored
-pointer sp, oldname, newname, tp
+pointer sp, oldname, newname
 
 bool use_fcopy # true if we should copy the file with fcopy
 
-pointer tbtopn()
-bool streq(), is_wholetab()
-int tbtacc(), exists, tbttyp() # exists is ignored
-errchk tbfpri, tbtcpy, tbtopn
+bool streq()
+int tbtacc()
+errchk tbfpri, tbtcpy
 
 begin
  call smark (sp)

pkg/utilities/nttools/tedit/screen.x

@@ -268,7 +268,7 @@ int win, row, col, ch
 pointer sp, field, tab, data
 
 string notable "No table associated with this screen"
-string badtype "Illegal data type for this field"
+#string badtype "Illegal data type for this field"
 string notadded "Cannot add row to read only table"
 
 bool check_field()

pkg/utilities/nttools/tedit/table.x

@@ -112,7 +112,7 @@ int dirty, numcol, numrow, numptr, iptr
 int height, width, maxcol, clen
 pointer sp, tabname, filename, ext, cname, tptr, tab
 
-string notable "Table does not exist" 
+#string notable "Table does not exist" 
 string nowrite "No write access to table" 
 string nocols "Column names not found in table"
 string emptytab "Table is empty" 

pkg/utilities/nttools/texpand/parser.x

@@ -41,7 +41,7 @@ int opstack[MAXSTACK]
 pointer sp, rb, work, value, valstack, nxtval, colname, colval
 pointer idstack[MAXSTACK]
 
-string find_error "Column name or type mismatch"
+#string find_error "Column name or type mismatch"
 string stack_error "Stack overflow"
 string oper_error "Operator expected"
 string ident_error "Identifier expected"

pkg/utilities/nttools/tjoin/tjoin.x

@@ -30,7 +30,7 @@ string extraopt "|neither|first|both|"
 string badextra "Illegal value for extrarows"
 string badjnum "Number of join columns do not match"
 string badtolnum "Number of tolereances and join columns do not match"
-string badcolnam "Column name not found in table (%s)"
+#string badcolnam "Column name not found in table (%s)"
 
 bool clgetb()
 int strdic()