From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- noao/imred/quadred/src/quad/ccdgetparam.x | 48 +++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100644 noao/imred/quadred/src/quad/ccdgetparam.x (limited to 'noao/imred/quadred/src/quad/ccdgetparam.x') diff --git a/noao/imred/quadred/src/quad/ccdgetparam.x b/noao/imred/quadred/src/quad/ccdgetparam.x new file mode 100644 index 00000000..a032b553 --- /dev/null +++ b/noao/imred/quadred/src/quad/ccdgetparam.x @@ -0,0 +1,48 @@ +procedure ccdgetparam () + +char image[SZ_FNAME] # Image whose parameter is to be fetched +char parameter[SZ_LINE] # Parameter whose value is required. +char instrument[SZ_FNAME] # CCD intrument file. + +char buffer[SZ_LINE] +pointer im + +pointer immap() +int hdmaccf() +bool streq() + +begin + + call clgstr ("image", image, SZ_FNAME) + im = immap (image, READ_ONLY, 0) + + call clgstr ("instrument", instrument, SZ_FNAME) + call hdmopen (instrument) + + call clgstr ("parameter", parameter, SZ_LINE) + + # Handle special cases where we must translate the parameter value + # to the corresponding package name. + if (streq (parameter, "imagetyp")) { + call ccdtypes (im, buffer, SZ_LINE) + call printf ("%s\n") + call pargstr (buffer) + + } else if (streq (parameter, "subset")) { + call ccdsubset (im, buffer, SZ_LINE) + call printf ("%s\n") + call pargstr (buffer) + + } else { + + if (hdmaccf (im, parameter) == NO) { + call printf ("UNDEFINED!\n") + } else { + call hdmgstr (im, parameter, buffer, SZ_LINE) + call printf ("%s\n") + call pargstr (buffer) + } + } + + call imunmap (im) +end -- cgit