blob: a2a981edef2118cd18309a60b4b687513f7f072a (
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
|
# IS_WHOLETAB -- Return true if table name has no extension
bool procedure is_wholetab (table)
char table[ARB] # i: table name
#--
bool wholetab
int nc, hdu
pointer sp, fname, extname
int tbparse()
begin
call smark (sp)
call salloc (fname, SZ_FNAME, TY_CHAR)
call salloc (extname, SZ_FNAME, TY_CHAR)
nc = tbparse (table, Memc[fname], Memc[extname], SZ_FNAME, hdu)
wholetab = Memc[extname] == EOS
call sfree (sp)
return (wholetab)
end
|
