Changeset 30664 in project


Ignore:
Timestamp:
04/08/14 14:17:25 (7 years ago)
Author:
Ivan Raikov
Message:

picnic: fixes in write-sections

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/picnic/trunk/picnic-utils.scm

    r30645 r30664  
    144144              ))
    145145
    146         (define (write-sections section-name cells)
    147           (lambda (out)
    148             (for-each
    149              (lambda (gx)
    150                (for-each
    151                 (lambda (section)
    152                   (for-each
    153                    (lambda (gd)
    154                      (let ((p (genpoint-coords gd)))
    155                        (fprintf out "~A ~A ~A "
    156                                 (coord 0 p)
    157                                 (coord 1 p)
    158                                 (coord 2 p))))
    159                    (cdr section)))
    160                 (cell-section-ref section-name gx))
    161                (fprintf out "~%"))
    162              cells)))
     146        (define (write-sections section-name sections)
     147          (call-with-output-file (string-append (->string section-name) ".section.dat")
     148            (lambda (out)
     149              (for-each
     150                 (lambda (section)
     151                   (for-each
     152                    (lambda (c)
     153                      (for-each
     154                       (lambda (gd)
     155                         (let ((p (genpoint-coords gd)))
     156                           (fprintf out "~A ~A ~A "
     157                                    (coord 0 p)
     158                                    (coord 1 p)
     159                                    (coord 2 p))))
     160                       (cdr c))
     161                      (fprintf out "~%"))
     162                    (cdr section)))
     163                 sections))))
    163164
    164165
Note: See TracChangeset for help on using the changeset viewer.