Initial commit

1 files changed, 197 insertions, 0 deletions

diff --git a/noao/nproto/ace/tables.x b/noao/nproto/ace/tables.x
new file mode 100644
index 00000000..53a0d48b
--- /dev/null
+++ b/noao/nproto/ace/tables.x
@@ -0,0 +1,197 @@
+procedure tbcfmt (tp, cdef, str)
+
+pointer	tp
+pointer	cdef
+char	str[ARB]
+
+begin
+end
+
+procedure tbcnam (tp, cdef, str)
+
+pointer	tp
+pointer	cdef
+char	str[ARB]
+
+begin
+end
+
+procedure tbcnit (tp, cdef, str)
+
+pointer	tp
+pointer	cdef
+char	str[ARB]
+
+begin
+end
+
+procedure tbegtd (tp, cdef, row, val)
+
+pointer	tp
+pointer	cdef
+int	row
+double	val
+
+begin
+end
+
+procedure tbegtr (tp, cdef, row, val)
+
+pointer	tp
+pointer	cdef
+int	row
+real	val
+
+begin
+end
+
+procedure tbegti (tp, cdef, row, val)
+
+pointer	tp
+pointer	cdef
+int	row
+int	val
+
+begin
+end
+
+procedure tbegtt (tp, cdef, row, val, len)
+
+pointer	tp
+pointer	cdef
+int	row
+char	val[ARB]
+int	len
+
+begin
+end
+
+procedure tbeptd (tp, cdef, row, val)
+
+pointer	tp
+pointer	cdef
+int	row
+double	val
+
+begin
+end
+
+procedure tbeptr (tp, cdef, row, val)
+
+pointer	tp
+pointer	cdef
+int	row
+real	val
+
+begin
+end
+
+procedure tbepti (tp, cdef, row, val)
+
+pointer	tp
+pointer	cdef
+int	row
+int	val
+
+begin
+end
+
+procedure tbeptt (tp, cdef, row, val)
+
+pointer	tp
+pointer	cdef
+int	row
+char	val[ARB]
+
+begin
+end
+
+procedure tbhgtr (tp, key, val)
+
+pointer	tp
+char	key[ARB]
+char	val[ARB]
+
+begin
+end
+
+procedure tbhgtt (tp, key, val, maxchar)
+
+pointer	tp
+char	key[ARB]
+char	val[ARB]
+int	maxchar
+
+begin
+end
+
+procedure tbhadr (tp, key, val)
+
+pointer	tp
+char	key[ARB]
+char	val[ARB]
+
+begin
+end
+
+procedure tbhadt (tp, key, val)
+
+pointer	tp
+char	key[ARB]
+char	val[ARB]
+
+begin
+end
+
+procedure tbpsta (tp, par)
+
+pointer	tp
+int	par
+
+begin
+end
+
+procedure tbtclo (tp)
+
+pointer	tp
+
+begin
+end
+
+procedure tbtcre (tp)
+
+pointer	tp
+
+begin
+end
+
+pointer procedure tbtopn (fname, mode, arg)
+
+char	fname[ARB]
+int	mode
+pointer	arg
+
+begin
+end
+
+procedure tbcdef1 (tp, cdef, label, units, format, type, n)
+
+pointer	tp
+pointer	cdef
+char	label[ARB]
+char	units[ARB]
+char	format[ARB]
+int	type
+int	n
+
+begin
+end
+
+procedure tbcfnd1 (tp, label, cdef)
+
+pointer	tp
+char	label[ARB]
+pointer	cdef
+
+begin
+end