Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 12:35:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added SRFI 132

Browse source
This commit is contained in:
Justin Ethier 2016-08-23 18:18:00 -04:00
parent 37be41a16f
commit 7249861814
2 changed files with 16 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Makefile
View file

@ -41,6 +41,7 @@ SMODULES = \
srfi/27 \ srfi/27 \
srfi/69 \ srfi/69 \
srfi/111 \ srfi/111 \
srfi/132 \
srfi/133 srfi/133
SLDFILES = $(addsuffix .sld, $(SMODULES)) SLDFILES = $(addsuffix .sld, $(SMODULES))
COBJECTS=$(SLDFILES:.sld=.o) COBJECTS=$(SLDFILES:.sld=.o)
@ -140,6 +141,8 @@ bootstrap: icyc
cp srfi/27.c $(BOOTSTRAP_DIR)/srfi cp srfi/27.c $(BOOTSTRAP_DIR)/srfi
cp srfi/69.c $(BOOTSTRAP_DIR)/srfi cp srfi/69.c $(BOOTSTRAP_DIR)/srfi
cp srfi/111.c $(BOOTSTRAP_DIR)/srfi cp srfi/111.c $(BOOTSTRAP_DIR)/srfi
cp srfi/132.c $(BOOTSTRAP_DIR)/srfi
cp srfi/sorting/*.scm $(BOOTSTRAP_DIR)/srfi/sorting
cp srfi/133.c $(BOOTSTRAP_DIR)/srfi cp srfi/133.c $(BOOTSTRAP_DIR)/srfi
cp cyclone.c $(BOOTSTRAP_DIR)/cyclone.c cp cyclone.c $(BOOTSTRAP_DIR)/cyclone.c
cp Makefile.config $(BOOTSTRAP_DIR)/Makefile.config cp Makefile.config $(BOOTSTRAP_DIR)/Makefile.config
@ -190,6 +193,7 @@ install:
$(MKDIR) $(DESTDIR)$(DATADIR) $(MKDIR) $(DESTDIR)$(DATADIR)
$(MKDIR) $(DESTDIR)$(DATADIR)/scheme/cyclone $(MKDIR) $(DESTDIR)$(DATADIR)/scheme/cyclone
$(MKDIR) $(DESTDIR)$(DATADIR)/srfi $(MKDIR) $(DESTDIR)$(DATADIR)/srfi
$(MKDIR) $(DESTDIR)$(DATADIR)/srfi/sorting
$(INSTALL) -m0644 libcyclone.a $(DESTDIR)$(LIBDIR)/ $(INSTALL) -m0644 libcyclone.a $(DESTDIR)$(LIBDIR)/
$(INSTALL) -m0644 include/cyclone/*.h $(DESTDIR)$(INCDIR)/ $(INSTALL) -m0644 include/cyclone/*.h $(DESTDIR)$(INCDIR)/
$(INSTALL) -m0644 scheme/*.sld $(DESTDIR)$(DATADIR)/scheme $(INSTALL) -m0644 scheme/*.sld $(DESTDIR)$(DATADIR)/scheme
@ -199,6 +203,7 @@ install:
$(INSTALL) -m0644 srfi/*.sld $(DESTDIR)$(DATADIR)/srfi $(INSTALL) -m0644 srfi/*.sld $(DESTDIR)$(DATADIR)/srfi
$(INSTALL) -m0644 srfi/*.o $(DESTDIR)$(DATADIR)/srfi $(INSTALL) -m0644 srfi/*.o $(DESTDIR)$(DATADIR)/srfi
$(INSTALL) -m0644 srfi/*.meta $(DESTDIR)$(DATADIR)/srfi $(INSTALL) -m0644 srfi/*.meta $(DESTDIR)$(DATADIR)/srfi
$(INSTALL) -m0644 srfi/sorting/*.scm $(DESTDIR)$(DATADIR)/srfi/sorting
$(INSTALL) -m0755 cyclone $(DESTDIR)$(BINDIR)/ $(INSTALL) -m0755 cyclone $(DESTDIR)$(BINDIR)/
$(INSTALL) -m0755 icyc $(DESTDIR)$(BINDIR)/ $(INSTALL) -m0755 icyc $(DESTDIR)$(BINDIR)/

22
srfi/132.sld
View file

@ -1,4 +1,4 @@
(define-library (srfi-132) (define-library (srfi 132)
(import (scheme base)) (import (scheme base))
(import (scheme cxr)) (import (scheme cxr))
(export list-sorted? vector-sorted? list-merge vector-merge list-sort vector-sort (export list-sorted? vector-sorted? list-merge vector-merge list-sort vector-sort
@ -6,14 +6,14 @@
list-stable-sort! vector-stable-sort! list-stable-sort! vector-stable-sort!
list-delete-neighbor-dups vector-delete-neighbor-dups list-delete-neighbor-dups vector-delete-neighbor-dups
list-delete-neighbor-dups! vector-delete-neighbor-dups!) list-delete-neighbor-dups! vector-delete-neighbor-dups!)
(include "delndups.scm") (include "sorting/delndups.scm")
(include "lmsort.scm") (include "sorting/lmsort.scm")
(include "sortp.scm") (include "sorting/sortp.scm")
(include "vector-util.scm") (include "sorting/vector-util.scm")
(include "vhsort.scm") (include "sorting/vhsort.scm")
(include "visort.scm") (include "sorting/visort.scm")
(include "vmsort.scm") (include "sorting/vmsort.scm")
(include "vqsort2.scm") (include "sorting/vqsort2.scm")
(include "vqsort3.scm") (include "sorting/vqsort3.scm")
(include "sort.scm") ; must be last (include "sorting/sort.scm") ; must be last
) )