(ses-repair-cell-reference-all): New function.

(ses-cell-symbol): Set macro as safe, so that it can be used in
formulas.

2 files changed, 76 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c0833592e7e..f7b1a336c88 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2011-06-27  Vincent Belaïche  <vincentb1@users.sourceforge.net>
 
+        * ses.el (ses-repair-cell-reference-all): New function.
+        (ses-cell-symbol): Set macro as safe, so that it can be used in
+        formulas.
+
+2011-06-27  Vincent Belaïche  <vincentb1@users.sourceforge.net>
+
         * ses.el:  Update cycle detection algorithm.
         (ses-localvars): Add ses--Dijkstra-attempt-nb and
         ses--Dijkstra-weight-bound, and initial values thereof when
diff --git a/lisp/ses.el b/lisp/ses.el
index b54a7519093..2e6c24ab5e8 100644
--- a/lisp/ses.el
+++ b/lisp/ses.el
@@ -348,6 +348,7 @@ when to emit a progress message.")
 (defmacro ses-cell-symbol (row &optional col)
   "From a CELL or a pair (ROW,COL), get the symbol that names the local-variable holding its value.  (0,0) => A1."
   `(aref ,(if col `(ses-get-cell ,row ,col) row) 0))
+(put 'ses-cell-symbol 'safe-function t)
 
 (defmacro ses-cell-formula (row &optional col)
   "From a CELL or a pair (ROW,COL), get the function that computes its value."
@@ -755,6 +756,75 @@ means Emacs will crash if FORMULA contains a circular list."
       (ses-formula-record formula)
       (ses-set-cell row col 'formula formula))))
 
+
+(defun ses-repair-cell-reference-all ()
+  "Repair cell reference and warn if there was some reference corruption."
+  (interactive "*")
+  (let (errors)
+    ;; Step 1, reset  :ses-repair-reference cell property in the whole sheet.
+    (dotimes (row ses--numrows)
+      (dotimes (col ses--numcols)
+        (let ((references  (ses-cell-property-pop :ses-repair-reference
+                                                  row col)))
+        (when references
+          (push (list
+                 (ses-cell-symbol row col)
+                 :corrupt-property
+                 references) errors)))))
+
+    ;; Step 2, build new.
+    (dotimes (row ses--numrows)
+      (dotimes (col ses--numcols)
+        (let* ((cell (ses-get-cell row col))
+               (sym (ses-cell-symbol cell))
+               (formula (ses-cell-formula cell))
+               (new-ref (ses-formula-references formula)))
+          (dolist (ref new-ref)
+            (let* ((rowcol (ses-sym-rowcol ref))
+                  (h (ses-cell-property-get-handle :ses-repair-reference
+                                                  (car rowcol) (cdr rowcol))))
+              (unless (memq ref (ses-cell-property-handle-car h))
+                (ses-cell-property-handle-setcar
+                 h
+                 (cons sym
+                       (ses-cell-property-handle-car h)))))))))
+
+    ;; Step 3, overwrite with check.
+    (dotimes (row ses--numrows)
+      (dotimes (col ses--numcols)
+        (let* ((cell (ses-get-cell row col))
+               (irrelevant (ses-cell-references cell))
+               (new-ref (ses-cell-property-pop  :ses-repair-reference cell))
+               missing)
+          (dolist (ref new-ref)
+            (if (memq ref irrelevant)
+                (setq irrelevant (delq ref irrelevant))
+              (push ref missing)))
+          (ses-set-cell row col 'references new-ref)
+          (when (or missing irrelevant)
+            (push `( ,(ses-cell-symbol cell)
+                     ,@(and missing (list :missing missing))
+                     ,@(and irrelevant  (list :irrelevant irrelevant)))
+                  errors)))))
+    (if errors
+      (warn "----------------------------------------------------------------
+Some reference where corrupted.
+
+The following is a list of where each element ELT is such
+that (car ELT) is the reference of cell CELL with corruption,
+and (cdr ELT) is a property list where
+
+* property `:corrupt-property' means that
+  property `:ses-repair-reference' of cell CELL was initially non
+  nil,
+
+* property `:missing' is a list of missing references
+
+* property `:irrelevant' is a list of non needed references
+
+%S" errors)
+      (message "No reference corruption found"))))
+
 (defun ses-calculate-cell (row col force)
   "Calculate and print the value for cell (ROW,COL) using the cell's formula
 function and print functions, if any.  Result is nil for normal operation, or