blob: 620c203ae05c3b4693080412b5c6b185d0d657a8 (
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
|
# T_TREAD -- Read only table editor
procedure t_tread ()
#--
pointer table # SDAS table name
pointer columns # list of columns to edit
bool silent # don't ring bell when error occurs
bool rdonly,inplace
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 = true
inplace = true
call edit (Memc[table], Memc[columns], silent, rdonly, inplace)
call sfree (sp)
end
|
