From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- noao/digiphot/photcal/parser/prvtran.x | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 noao/digiphot/photcal/parser/prvtran.x (limited to 'noao/digiphot/photcal/parser/prvtran.x') diff --git a/noao/digiphot/photcal/parser/prvtran.x b/noao/digiphot/photcal/parser/prvtran.x new file mode 100644 index 00000000..6119ce05 --- /dev/null +++ b/noao/digiphot/photcal/parser/prvtran.x @@ -0,0 +1,25 @@ +# PR_VTRAN -- Translate the internal parser symbol for an error or weight +# column definition into a compact user readable definition. This code is +# intended primarily for interfacing to the inlfit or other package with +# the goal of making more pleasing variable names. + +procedure pr_vtran (invname, outvname, maxch) + +char invname[ARB] # the input variable name +char outvname[ARB] # the output variable name +int maxch # maximum number of characters + +int first, last +int gstrmatch() + +begin + if (gstrmatch (invname, "@E_", first, last) != 0) { + call sprintf (outvname, maxch, "er(%s)") + call pargstr (invname[last+1]) + } else if (gstrmatch (invname, "@W_", first, last) != 0) { + call sprintf (outvname, maxch, "wt(%s)") + call pargstr (invname[last+1]) + } else { + call strcpy (invname, outvname, maxch) + } +end -- cgit