Changeset 22200 in project


Ignore:
Timestamp:
01/03/11 06:44:34 (9 years ago)
Author:
Alan Post
Message:

jbogenturfa'i: Add database support to .setup file.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/jbogenturfahi/trunk/jbogenturfahi.setup

    r21968 r22200  
    2121(use genturfahi-peg)
    2222(use extras)
     23(use srfi-1)
    2324
    2425(include "version.scm")
    2526(include "chicken-conf.scm")
     27
     28(define jbogenturfahi-db-path
     29        (reduce make-pathname
     30                "/"
     31                `(,jbogenturfahi-version
     32                  "jbogenturfahi"
     33                  ,(chicken-home))))
     34(define jbogenturfahi-db-file
     35        (make-pathname jbogenturfahi-db-path "jbogenturfahi.db"))
    2636
    2737       ; jbogenturfahi executable
     
    8393                                      "chicken-declare.scm"
    8494                                      "jbogenturfahi.scm"
     95                                      "c0re.scm"
     96                                      "sql.scm"
     97                                      "db.scm"
    8598                                      "version.scm"
     99                                      "path.scm"
    86100                                      "jbogenturfahi.meta"
    87101                                      "jbogenturfahi.setup"
     
    131145                           "chicken-declare.scm"
    132146                           "jbogenturfahi.scm"
     147                           "c0re.scm"
     148                           "sql.scm"
     149                           "db.scm"
    133150                           "version.scm"
     151                           "path.scm")
    134152                           "jbogenturfahi.meta"
    135153                           "jbogenturfahi.setup")
     
    140158                "chicken-ext.scm"))
    141159
     160       ("jbogenturfahi.db" ("chicken-db.scm"
     161                            "c0re.scm"
     162                            "sql.scm"
     163                            "db.scm"
     164                            "wordlists/cmavo.scm"
     165                            "wordlists/cmavo.txt"
     166                            "wordlists/gismu.txt"
     167                            "wordlists/rafsi.txt")
     168                            "jbogenturfahi.meta"
     169                            "jbogenturfahi.setup")
     170         (load "chicken-db.scm"))
     171
     172       ("path.scm" ("jbogenturfahi.meta"
     173                    "jbogenturfahi.setup")
     174         (call-with-output-file "path.scm"
     175           (lambda (port)
     176             (write `(define jbogenturfahi-db-path
     177                             (make-parameter ,jbogenturfahi-db-file))
     178                    port))))
     179
    142180       ("jbogerna.scm" ("gerna.peg"
    143181                        "rafske_gumgau.peg"
     
    146184                        "jbogenturfahi.meta"
    147185                        "jbogenturfahi.setup")
    148         (call-with-output-file "jbogerna.scm"
    149           (lambda (port)
    150             (let ((lefpoi (string-append (read-all "tamgau.peg")
    151                                          (read-all "gerna.peg")
    152                                          (read-all "rafske_gumgau.peg")
    153                                          (read-all "rafske.peg"))))
    154               (call-with-input-string
    155                 lefpoi
    156                 (lambda (peg)
    157                   (for-each (lambda (form) (pretty-print form port))
    158                             (genturfahi-peg peg)))))))))
    159 
    160       `("jbogenturfahi"
     186         (call-with-output-file "jbogerna.scm"
     187           (lambda (port)
     188             (let ((lefpoi (string-append (read-all "tamgau.peg")
     189                                          (read-all "gerna.peg")
     190                                          (read-all "rafske_gumgau.peg")
     191                                          (read-all "rafske.peg"))))
     192               (for-each (lambda (form) (pretty-print form port))
     193                         (genturfahi-peg lefpoi)))))))
     194
     195      `("jbogenturfahi.db"
     196        "jbogenturfahi"
    161197        ,(dynld-name "jbogensamselpla")
    162198        ,(dynld-name "jbogerna")
     
    214250  ; lo se ckaji vi pagbu
    215251  `((version ,jbogenturfahi-version)))
     252
     253(if (not (setup-install-mode))
     254  (exit))
     255
     256(create-directory/parents jbogenturfahi-db-path)
     257(copy-file "jbogenturfahi.db" jbogenturfahi-db-path)
Note: See TracChangeset for help on using the changeset viewer.