[Summary view] [Print] [Text view]

   1  #!/usr/local/bin/clisp 
   2  ;(setq lisp:*args* '("(5 24 5759)"))
   3  
   4  
   5  ;;;  calculate bar mitzvah parasha
   6  
   7  ;;;  usage:  bm.cl "( mo day year )"  date of birth
   8  ;;;     Returns the Gregorian date and Parshah
   9  ;;;
  10  
  11  (if (equal (machine-instance) "mkultra [192.168.64.52]")
  12      (progn
  13        (load 'yc.cl))
  14      (progn
  15        (load '/usr/home/yi/lisp/yahrweb.cl)))
  16  
  17  ;(format t "~%") 
  18  
  19  
  20  (defun bm-info ()
  21    (let* (birth-date (read-from-string (car lisp:*args*))
  22                  (abs-bday (calendar-absolute-from-gregorian birth-date))
  23                  (heb-bday (calendar-hebrew-from-absolute abs-bday)))
  24          (print  birth-date)
  25          (print  abs-bday)
  26          (print  heb-bday)
  27      (declare (special date ))
  28      (format t "~A~%~A~%" (calendar-date-string birth-date) 
  29          (diary-parasha))))
  30  
  31  (bm-info)
  32  
  33  
  34  ;      (my-dow  (calendar-day-of-week yahr-greg))
  35  ;      (date (calendar-gregorian-from-absolute 
  36  ;         (- yahr-abs (if (=  my-dow 6) 0 (1+ my-dow))) ))  ); adjust to previous shb.
  37  ;    (declare (special date ))
  38      
  39  ;    (format t "~A~%~A~%" (calendar-date-string yahr-greg) 
  40  ;        (diary-parasha))))
  41  ;;(trace (yahr-dates :step-if t))
  42  
  43  
  44  ;(let* ((h-today (calendar-hebrew-from-absolute
  45  ;        (calendar-absolute-from-gregorian date)))
  46  ;      (h-year (third h-today))
  47  ;      (yymm00 (list (car my-date) (car (cdr my-date)) 5760))
  48  ;      (today0 (list (car h-today) (car (cdr h-today)) 5760)))
  49  
  50  ;        (if (> (calendar-absolute-from-hebrew today0) 
  51  ;                     (calendar-absolute-from-hebrew yymm00))
  52  ;                (setq h-year (1+ h-year)))
  53  ;        (yahr-dates my-date h-year))
  54  ;
  55  
  56  
  57  ;    (print date) 
  58  ;    (print today0)
  59  ;    (print yymm00)
  60  ;    (print h-year)
  61  
  62  ;(list-yahrzeit-dates (list 10 17 1974) 2000) (5 24 5759)