unicode

library/dialect/swi/os/libtai/easter.c

@@ -0,0 +1,29 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include "caldate.h"
+
+char *dayname[7] = { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" } ;
+
+char out[101];
+
+int
+main(int argc, char **argv)
+{
+  struct caldate cd;
+  long day;
+  int weekday;
+  int yearday;
+
+  while (*++argv) {
+    cd.year = atoi(*argv);
+    if (cd.year > 0) {
+      caldate_easter(&cd);
+      day = caldate_mjd(&cd);
+      caldate_frommjd(&cd,day,&weekday,&yearday);
+      if (caldate_fmt((char *) 0,&cd) + 1 >= sizeof out) exit(1);
+      out[caldate_fmt(out,&cd)] = 0;
+      printf("%s %s  yearday %d  mjd %ld\n", dayname[weekday], out, yearday, day);
+    }
+  }
+  exit(0);
+}