blob: c3ced90fbbf06472b42f6f0161aed3efda61e10c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
# 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
|
