diff options
Diffstat (limited to 'noao/twodspec/multispec/history.x')
| -rw-r--r-- | noao/twodspec/multispec/history.x | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/noao/twodspec/multispec/history.x b/noao/twodspec/multispec/history.x new file mode 100644 index 00000000..9c79965b --- /dev/null +++ b/noao/twodspec/multispec/history.x @@ -0,0 +1,29 @@ +include <time.h> +include "ms.h" + +# HISTORY - Add a dated comment string to the MULTISPEC database. + +procedure history (ms, comment) + +pointer ms +char comment[ARB] + +char time_string[SZ_TIME] + +long clktime() + +begin + # Get the clock time and convert to a date string. + call cnvdate (clktime(0), time_string, SZ_TIME) + + # Append the following to the comment block: + # (date string)(: )(comment string)(newline) + + call strcat (time_string, COMMENT(ms,1), SZ_MS_COMMENTS) + call strcat (": ", COMMENT(ms,1), SZ_MS_COMMENTS) + call strcat (comment, COMMENT(ms,1), SZ_MS_COMMENTS) + call strcat ("\n", COMMENT(ms,1), SZ_MS_COMMENTS) + + # Write the updated comment block to the database. + call mspcomments (ms) +end |