Changeset 18060 in project


Ignore:
Timestamp:
05/12/10 09:36:19 (9 years ago)
Author:
Ivan Raikov
Message:

added miniML examle

Location:
release/4/miniML/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/miniML/trunk/miniML.meta

    r18058 r18060  
    55 ; List here all the files that should be bundled as part of your egg. 
    66
    7  (files "miniML.scm" "miniML.l" "miniML.grm" "miniMLparse.scm" "miniMLeval.scm" "miniMLmain.scm" "miniML.setup" )
     7 (files "miniML.scm" "miniML.l" "miniML.grm" "miniMLparse.scm" "miniMLeval.scm" "miniMLmain.scm" "example.miniML" "miniML.setup" )
    88
    99 ; Your egg's license:
  • release/4/miniML/trunk/miniML.setup

    r18058 r18060  
    8888    ))
    8989
     90
     91;; From setup-header.scm by Kon Lovett
     92
     93;;; Constants & Procedures
     94
     95(define SHARED-DIR (chicken-home))
     96
     97(define MINIML-DIR (make-pathname SHARED-DIR "miniML"))
     98
     99
     100;; File Copy Operations
     101
     102(define (*file-copy fn dn)
     103  (let ([fn (->string fn)])
     104    (copy-file fn (make-pathname dn fn)) ) )
     105
     106(define (copy-to-shared fn)
     107  (*file-copy (->string fn) (chicken-home)) )
     108
     109(define (copy-file-to-miniML-dir fn)
     110  (*file-copy (->string fn) MINIML-DIR) )
     111
     112(if (not (file-exists? MINIML-DIR))
     113    (create-directory MINIML-DIR))
     114
     115(copy-file-to-miniML-dir "example.miniML" )
     116
Note: See TracChangeset for help on using the changeset viewer.