[Summary view] [Print] [Text view]

   1  #!/usr/local/bin/clisp 
   2  ;(setq lisp:*args* '("(5 24 5759)"))
   3  
   4  
   5  ;;;  calculate yahrzeit.
   6  ;;;  usage:  test.cl "( mo day year )"
   7  ;;;     Returns the Gregorian date and Parshah
   8  ;;;
   9  
  10  (if (equal (machine-instance) "mkultra [192.168.64.52]")
  11      (progn
  12        (load 'yc.cl))
  13      (progn
  14        (load '/usr/home/yi/lisp/yahrweb.cl)))
  15  
  16  ;(format t "~%") 
  17  
  18  (setq my-date (read-from-string (car lisp:*args*)))
  19  
  20  (defun yahr-dates (y-date)
  21    (let* ( (yahr-abs (hebrew-calendar-yahrzeit y-date 5760))
  22        (yahr-greg (calendar-gregorian-from-absolute yahr-abs))
  23        (my-dow  (calendar-day-of-week yahr-greg))
  24        (date (calendar-gregorian-from-absolute 
  25           (- yahr-abs (if (=  my-dow 6) 0 (1+ my-dow))) ))  ); adjust to previous shb.
  26      (declare (special date ))
  27      
  28      (format t "~A~%~A~%" (calendar-date-string yahr-greg) 
  29          (diary-parasha))))
  30  ;(trace (yahr-dates :step-if t))
  31  
  32  (yahr-dates my-date)
  33  
  34  ;(list-yahrzeit-dates (list 10 17 1974) 2000) (5 24 5759)