Changeset 14375 in project


Ignore:
Timestamp:
04/23/09 02:45:35 (11 years ago)
Author:
Ivan Raikov
Message:

graph-ssa ported to Chicken 4

Location:
release/4/graph-ssa/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • release/4/graph-ssa/trunk/graph-ssa.meta

    r11135 r14375  
     1;;;; -*- Hen -*-
     2
    13((egg "graph-ssa.egg") ; This should never change
    24
     
    1618 ; A list of eggs graph-ssa depends on.
    1719
    18  (needs eggdoc graph-dominators)
     20 (needs eggdoc matchable graph-dominators)
    1921
    2022 (eggdoc "ssa-eggdoc.scm")
  • release/4/graph-ssa/trunk/graph-ssa.setup

    r11135 r14375  
    1 
    2 (define has-exports? (string>=? (chicken-version) "2.310"))
     1;;;; -*- Hen -*-
    32
    43(define (dynld-name fn)         
    54  (make-pathname #f fn ##sys#load-dynamic-extension))   
    65
    7 (compile -O2 -d0 -s -o ,(dynld-name "graph-ssa")
    8          ,@(if has-exports? '(-check-imports -emit-exports graph-ssa.exports) '())
    9          ssa.scm -lchicken -ldl)
     6(compile -O2 -d0 -s ssa.scm -o ,(dynld-name "graph-ssa") -j graph-ssa)
     7(compile -O2 -d0 -s graph-ssa.import.scm)
    108
    11 (run (csi -qbs ssa-eggdoc.scm > graph-ssa.html))
     9(run (csi -s ssa-eggdoc.scm > graph-ssa.html))
    1210
    1311(install-extension
     
    1715
    1816  ; Files to install for your extension:
    19   `(,(dynld-name "graph-ssa")
    20     ,@(if has-exports? '("graph-ssa.exports") (list)) )
     17  `(,(dynld-name "graph-ssa") ,(dynld-name "graph-ssa.import") )
    2118
    2219  ; Assoc list with properties for your extension:
    23   `((version 1.0)
     20  `((version 1.2)
    2421    (documentation "graph-ssa.html")
    25     ,@(if has-exports? `((exports "graph-ssa.exports")) (list)) ))
     22    ))
     23
  • release/4/graph-ssa/trunk/ssa-eggdoc.scm

    r11141 r14375  
     1
    12
    23(use eggdoc)
     
    1011
    1112     (history
     13      (version "1.2" "Ported to Chicken 4")
    1214      (version "1.0" "Initial release"))
    1315
    14      (requires (url "graph-dominators.html" "graph-dominators"))
     16     (requires (url "graph-dominators.html" "graph-dominators")
     17               (url "matchable.html" "matchable"))
    1518
    1619     (download "graph-ssa.egg")
  • release/4/graph-ssa/trunk/ssa.scm

    r11135 r14375  
    11; Adapted for Chicken Scheme by Ivan Raikov.
    22
    3 (define-extension graph-ssa)
    4 
    5 (declare (export graph->ssa-graph graph-ssa-find-joins))
    6 
    7 (require-extension srfi-1)
    8 (require-extension graph-dominators)
     3(module graph-ssa
     4
     5 (graph->ssa-graph graph-ssa-find-joins)
     6
     7 (import scheme chicken data-structures)
     8
     9 (require-extension srfi-1 matchable graph-dominators )
     10
    911
    1012(define (graph->ssa-graph g)
     
    171173    (set! *next-uid* (+ uid 1))
    172174    uid))
     175)
    173176
    174177;----------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.