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
37
38
39
40
41
42
43
44
45
46
47
|
include <mach.h>
include "pdm.h"
# PDM_OPEN -- Open a new PDM data structure.
int procedure pdm_open (device, batchfile, metafile, interactive)
char device[SZ_FNAME] # graphics device
char batchfile[SZ_FNAME] # file to store batch information
char metafile[SZ_FNAME] # file to store plots
bool interactive # interactive flag
pointer pdmp
pointer gt_init(), gopen()
int open()
errchk ic_open, gopen, open, calloc, malloc
begin
# Allocate a pdm data structure.
call calloc (pdmp, PDM_LENSTRUCT, TY_STRUCT)
# Set up icfit structure pointers for data and phase curve fits.
call ic_open (PDM_ICD(pdmp))
call ic_open (PDM_ICP(pdmp))
# Set up gtools and the gio structure pointers.
PDM_GT(pdmp) = gt_init ()
if (interactive) {
PDM_GP(pdmp) = gopen (device, NEW_FILE, STDGRAPH)
PDM_LFD(pdmp) = open ("STDOUT", APPEND, TEXT_FILE)
} else {
PDM_LFD(pdmp) = open (batchfile, APPEND, TEXT_FILE)
PDM_PFD(pdmp) = open (metafile, APPEND, BINARY_FILE)
PDM_GP(pdmp) = gopen ("stdvdm", NEW_FILE, PDM_PFD(pdmp))
}
# Allocate space for the sample string and put a '*' in it.
call malloc (PDM_SAMPLEP(pdmp), SZ_LINE, TY_CHAR)
call strcpy ("*", PDM_SAMPLE(pdmp), SZ_LINE)
# Booleans.
PDM_RESID(pdmp) = NO
PDM_RANGE(pdmp) = YES
PDM_EB(pdmp) = NO
return (pdmp)
end
|
