Commit 27e3d38a authored by Erick Gallesio's avatar Erick Gallesio

.

parent 846d20b8
......@@ -21,12 +21,12 @@
;;;;
;;;; Author: Erick Gallesio [eg@essi.fr]
;;;; Creation date: 21-Dec-2006 14:55 (eg)
;;;; Last file update: 17-Jan-2007 10:54 (eg)
;;;; Last file update: 24-Jan-2007 10:29 (eg)
;;;;
;//FIXME: _snow:program-filename should be defined as program-file-name
(require "srfi-4") ;;//FIXME:
;;(require "srfi-4") ;;//FIXME:
(define-module _snow
......
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 26-Feb-2000 10:47 (eg)
;;;; Last file update: 19-Jan-2007 10:17 (eg)
;;;; Last file update: 23-Jan-2007 09:54 (eg)
;;;;
(define-module STKLOS-COMPILER
......@@ -1166,8 +1166,7 @@ doc>
(compile-access var (extend-env env loc) args #f)
(Loop (cdr l)
loc)))))))))))
;;
;; COND
;;
......
......@@ -4,6 +4,7 @@
PKG=@PKG@
PKGVERS=@PKGVERS@
PKGSRC=@PKGSRC@
VERSION=@VERSION@€
# Compiler
SCC=stklos-compile
......
......@@ -21,13 +21,13 @@
;;;;
;;;; Author: Erick Gallesio [eg@essi.fr]
;;;; Creation date: 15-Jan-2007 12:10 (eg)
;;;; Last file update: 22-Jan-2007 14:14 (eg)
;;;; Last file update: 24-Jan-2007 21:00 (eg)
;;;;
;; ----------------------------------------------------------------------
;; write-extract-makefile ...
;; ----------------------------------------------------------------------
(define (write-extract-makefile package targets dir)
(define (write-extract-makefile package version targets dir)
(define (find-src name)
(let ((snow (make-path "src" name (format "~a.snow" name)))
......@@ -46,11 +46,11 @@
(printf "\techo -n > $(PKGVERS).stk\n")
;; Produce provides
(for-each (lambda (x)
(printf "\techo '(provide ~s)' > $(PKGVERS).stk\n" x))
(printf "\techo '(provide ~s)' >> $(PKGVERS).stk\n" x))
targets)
;; Produce inclusion of required packages + the package itself
(for-each (lambda (x)
(printf "\techo '(include ~s)' > $(PKGVERS).stk\n"
(printf "\techo '(include ~s)' >> $(PKGVERS).stk\n"
(find-src x)))
(append targets (list (package-sans-version package)))))
......@@ -73,6 +73,7 @@
("@PKG@" ,(package-sans-version package))
("@PKGSRC@" ,(basename
(find-src (package-sans-version package))))
("@VERSION@" ,version)
("@SO@" ,(exec "stklos-config --shared-suffix"))
("@SCOMP@" ,(exec "stklos-config --compile"))
("@SLINK@" ,(exec "stklos-config --link")))))
......@@ -90,10 +91,10 @@
;; ----------------------------------------------------------------------
(define (find-and-extract-package package dir)
(define (extract-package package dir)
(define (extract-package pkg dir)
(let ((src-dir (make-path dir "src"))
(snowball (package-snowball package))
(tuning (package-tuning package)))
(snowball (package-snowball pkg))
(tuning (package-tuning pkg)))
;; create directory
(unless (file-exists? src-dir)
(make-directories src-dir))
......@@ -109,7 +110,7 @@
(basename tuneball))))
(untar tuneball src-dir)
;; Tune the original package
(tune-package package src-dir)))))
(tune-package pkg src-dir)))))
(let ((pkg (download-package package))
(deps (package-deps* package)))
......@@ -120,4 +121,4 @@
;; extract the package itself and (eventually) its tuning
(extract-package pkg dir)
;; Create the Makefile able to build the package
(write-extract-makefile package deps dir)))
(write-extract-makefile package (package-version pkg) deps dir)))
/*
This file was automatically generated by make-C-boot
This is a dump of the image in file /misc/home/eg/Projects/STklos/lib/boot.img3
This is a dump of the image in file /mnt/users/eg/Projects/STklos/lib/boot.img3
***DO NOT EDIT BY HAND***
*/
......
/*
* socket.c -- Socket acess for STklos
*
* Copyright 2003-2006 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
* Copyright 2003-2007 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
*
*
* This program is free software; you can redistribute it and/or modify
......@@ -21,7 +21,7 @@
*
* Author: Erick Gallesio [eg@essi.fr]
* Creation date: 3-Jan-2003 18:45 (eg)
* Last file update: 26-May-2006 10:52 (eg)
* Last file update: 24-Jan-2007 10:49 (eg)
*/
#include <sys/types.h>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment