blob: 03e805870822fc06452896ba8936e0da7a656871 (
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
34
35
36
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
include <mwset.h>
include <mach.h>
include "mwcs.h"
# MW_STATI -- Get the value of a MWCS interface parameter.
int procedure mw_stati (mw, param)
pointer mw #I pointer to MWCS descriptor
int param #I parameter code as defined in <mwset.h>
begin
switch (param) {
case MW_NDIM:
if (MI_USEAXMAP(mw) == NO)
return (MI_NDIM(mw))
else
return (MI_NLOGDIM(mw))
case MW_NWCS:
return (MI_NWCS(mw))
case MW_REFIM:
return (MI_REFIM(mw))
case MW_USEAXMAP:
return (MI_USEAXMAP(mw))
case MW_NPHYSDIM:
return (MI_NDIM(mw))
case MW_SAVELEN:
return (MI_LEN(mw) * SZ_STRUCT + MI_DBUFUSED(mw) * SZ_DOUBLE +
(MI_SBUFUSED(mw) + SZB_CHAR-1) / SZB_CHAR)
default:
call syserr (SYS_MWSTAT)
}
end
|
