Changeset 14740 in project


Ignore:
Timestamp:
05/22/09 09:23:52 (10 years ago)
Author:
felix winkelmann
Message:

ported to chicken4

Location:
release/4/ftl
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • release/4/ftl/ftl.meta

    r9305 r14740  
    1 ;;; ftl.meta -*- Hen -*-
     1;;; ftl.meta -*- Scheme -*-
    22
    33((egg "ftl.egg")
    44 (synopsis "Interface based sequence library")
    5  (needs syntactic-closures test)
     5 (test-depends test)
    66 (category data)
    77 (license "LGPL-2.1")
    8  (doc-from-wiki)
    98 (author "Sergei Egorov, partially reimplemented by felix winkelmann")
    10  (files "ftl.setup" "ftl.scm" "ftl.html" "tests/run.scm"))
     9 (files "ftl.setup" "ftl.scm" "tests/run.scm"))
  • release/4/ftl/ftl.scm

    r4849 r14740  
    22
    33
    4 (use srfi-1 syntactic-closures)
     4(module ftl
     5
     6    (%a
     7     %a*
     8     %a-iota
     9     %a-tabulate
     10     %a-unfold
     11     %e=?
     12     %g->%o
     13     %g->%o/%g-splicing
     14     %g-append->%o
     15     %g-append->%o*
     16     %g-count-%t
     17     %g-filter-map1->%o
     18     %g-fold
     19     %g-for-each
     20     %g-last
     21     %g-last-%t
     22     %g-length
     23     %g-map1->%o
     24     %g-map1->%o/%g-splicing
     25     %g-partition-%t->%o+%o
     26     %g-remove-%t->%o
     27     %g-substitute-%t->%o
     28     %i->%a
     29     %i-andmap
     30     %i-andmap-%t
     31     %i-filter-map->%a
     32     %i-find-%t
     33     %i-map->%a
     34     %i-map1->%a
     35     %i-next
     36     %i-ormap
     37     %i-ormap-%t
     38     %i-position-%t
     39     %i-read
     40     %i-ref
     41     %li-empty?
     42     %li-peek
     43     %li-read
     44     %mv
     45     %mv-append
     46     %mv-copy
     47     %mv-fill!
     48     %mv-length
     49     %mv-ref
     50     %mv-reverse!
     51     %mv-set!
     52     %mv-sort!
     53     %mv-stable-sort!
     54     %o-create
     55     %o-result
     56     %o-write
     57     %oe-max
     58     %oe-min
     59     %oe<=?
     60     %oe<?
     61     %oe=?
     62     %oe>=?
     63     %oe>?
     64     %t?
     65     %v->%mv
     66     %v->%mv!
     67     %v-fold-left
     68     %v-fold-right
     69     %v-length
     70     %v-map->%mv
     71     %v-null?
     72     %v-ref
     73     %x
     74     a-interface
     75     a-interface?
     76     a=%mv
     77     a=%mv!
     78     a=%o
     79     a=%x-%a
     80     a=and
     81     a=char-file
     82     a=char-port
     83     a=count
     84     a=file
     85     a=list
     86     a=max
     87     a=min
     88     a=or
     89     a=port
     90     a=product
     91     a=reverse-%mv
     92     a=reverse-%mv!
     93     a=reverse-list
     94     a=string
     95     a=sum
     96     e-interface
     97     e-interface?
     98     e=%oe
     99     e=char
     100     e=char-ci
     101     e=l
     102     e=number
     103     e=q
     104     e=string
     105     e=string-ci
     106     e=v
     107     g-interface
     108     g-interface?
     109     g=%g-%x
     110     g=%i
     111     g=%v
     112     g=char-file
     113     g=char-port
     114     g=file
     115     g=iota
     116     g=line-file
     117     g=line-port
     118     g=list
     119     g=port
     120     g=reverse-%i
     121     g=reverse-%v
     122     g=reverse-list
     123     g=reverse-string
     124     g=reverse-vector
     125     g=string
     126     g=vector
     127     i-interface
     128     i-interface-read
     129     i-interface?
     130     i=%li
     131     i=%v
     132     i=char-port
     133     i=list
     134     i=port
     135     i=reverse-%v
     136     i=reverse-string
     137     i=reverse-vector
     138     i=string
     139     i=vector
     140     li-interface
     141     li-interface?
     142     li=%v
     143     li=char-port
     144     li=list
     145     li=reverse-%v
     146     li=string
     147     li=vector
     148     make-%a
     149     make-%mv
     150     mv-interface
     151     mv-interface?
     152     mv=string
     153     mv=vector
     154     o-interface
     155     o-interface?
     156     o=char-file
     157     o=char-port
     158     o=count
     159     o=file
     160     o=list
     161     o=max
     162     o=min
     163     o=port
     164     o=product
     165     o=reverse-list
     166     o=string
     167     o=sum
     168     oe-interface
     169     oe-interface?
     170     oe=char
     171     oe=char-ci
     172     oe=number
     173     oe=string
     174     oe=string-ci
     175     sub
     176     sub%i->%a
     177     sub%mv
     178     sub?
     179     t-interface
     180     t-interface?
     181     t=%e
     182     t=%x&%t
     183     t=char
     184     t=char-ci
     185     t=if
     186     t=if-not
     187     t=l
     188     t=not-%t
     189     t=number
     190     t=q
     191     t=string
     192     t=string-ci
     193     t=v
     194     v-interface
     195     v-interface?
     196     v=%mv
     197     v=string
     198     v=vector
     199     x-interface
     200     x-interface?
     201     x=abs
     202     x=add1
     203     x=car
     204     x=cdr
     205     x=char->integer
     206     x=downcase
     207     x=integer->char
     208     x=not
     209     x=sub1
     210     x=upcase)
     211
     212(import scheme chicken data-structures extras)
     213
     214(use srfi-1)
    5215
    6216
     
    15521762          (mv-set! mvec i (apply proc (map (cut v-ref <> i) vs))))))))
    15531763
     1764)
    15541765
    15551766'end
  • release/4/ftl/ftl.setup

    r5220 r14740  
    1 (make (("ftl.so" ("ftl.scm") (compile -s -O2 -d1 ftl.scm))
    2        ("ftl-static.o" ("ftl.scm") (compile -c -O2 -d1 ftl.scm -o ftl-static.o -unit ftl)) )
    3   '("ftl.so" "ftl-static.o") )
     1;;;; -*- Scheme -*-
     2
     3
     4(compile -s -O2 -d1 ftl.scm -j ftl)
     5(compile -s -O2 -d0 ftl.import.scm)
     6(compile -c -O2 -d1 ftl.scm -o ftl-static.o -unit ftl)
    47
    58(install-extension
    69 'ftl
    7  '("ftl.so" "ftl-static.o")
    8  '((version 0.3)
    9    (documentation "ftl.html")
     10 '("ftl.so" "ftl-static.o" "ftl.import.so")
     11 '((version 0.4)
    1012   (static "ftl-static.o")))
  • release/4/ftl/tests/run.scm

    r4627 r14740  
    5454
    5555(test 44 ((%g-length g=iota) 44))
    56 (test 206 ((%g-length g=file) "../ftl.scm"))
     56(test 2 ((%g-length g=file) "../ftl.scm"))
    5757
    5858((%g-for-each g=iota) write 10) ;; writes 0123456789
Note: See TracChangeset for help on using the changeset viewer.