diff options
Diffstat (limited to 'noao/digiphot/photcal/mkcatalog.cl')
| -rw-r--r-- | noao/digiphot/photcal/mkcatalog.cl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/noao/digiphot/photcal/mkcatalog.cl b/noao/digiphot/photcal/mkcatalog.cl new file mode 100644 index 00000000..8c9b0e20 --- /dev/null +++ b/noao/digiphot/photcal/mkcatalog.cl @@ -0,0 +1,25 @@ +# MKCATALOG -- Create / edit a catalog of photometric standards. + +procedure mkcatalog (catalog) + +file catalog {prompt="The name of the output catalog"} +bool review {no, prompt="Verify each existing catalog record"} +bool verify {no, prompt="Verify each new catalog record"} +bool edit {yes,prompt="Check the output catalog with the editor"} + + +begin + # Declare local variables + file cat + + # Get the positional parameters + cat = catalog + + # Make a new catalog or edit an existing catalog. + catalog (cat, review=review, verify=verify) + + # Edit the catalog with the editor. + print ("") + if (access (cat) && edit) + edit (cat) +end |