# TEDIT -- Table editor

procedure t_tedit ()

#--
pointer	table		# SDAS table name
pointer	columns		# list of columns to edit
bool	silent		# don't ring bell when error occurs
bool	rdonly		# edit table read only
bool	inplace		# edit table in place

pointer	sp

bool	clgetb()

begin
	call smark (sp)
	call salloc (table, SZ_FNAME, TY_CHAR)
	call salloc (columns, SZ_FNAME, TY_CHAR)

	call clgstr ("table", Memc[table], SZ_FNAME)
	call clgstr ("columns", Memc[columns], SZ_FNAME)

	silent = clgetb ("silent")
	rdonly = clgetb ("rdonly")
	inplace = clgetb ("inplace")
	inplace = inplace || rdonly

	call edit (Memc[table], Memc[columns], silent, rdonly, inplace)
	call sfree (sp)

end