create ScmPkg description files if they don't exit to avoid repeated warnings

configure

 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.65 for stklos 1.00.
+# Generated by GNU Autoconf 2.65 for stklos 1.01dev.
 #
 #
 # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
@@ -549,8 +549,8 @@ MAKEFLAGS=
 # Identity of this package.
 PACKAGE_NAME='stklos'
 PACKAGE_TARNAME='stklos'
-PACKAGE_VERSION='1.00'
-PACKAGE_STRING='stklos 1.00'
+PACKAGE_VERSION='1.01dev'
+PACKAGE_STRING='stklos 1.01dev'
 PACKAGE_BUGREPORT=''
 PACKAGE_URL=''
 
@@ -1295,7 +1295,7 @@ if test "$ac_init_help" = "long"; then
   # Omit some internal or obsolete options to make the list less imposing.
   # This message is too long to be a string in the A/UX 3.1 sh.
   cat <<_ACEOF
-\`configure' configures stklos 1.00 to adapt to many kinds of systems.
+\`configure' configures stklos 1.01dev to adapt to many kinds of systems.
 
 Usage: $0 [OPTION]... [VAR=VALUE]...
 
@@ -1361,7 +1361,7 @@ fi
 
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of stklos 1.00:";;
+     short | recursive ) echo "Configuration of stklos 1.01dev:";;
    esac
   cat <<\_ACEOF
 
@@ -1460,7 +1460,7 @@ fi
 test -n "$ac_init_help" && exit $ac_status
 if $ac_init_version; then
   cat <<\_ACEOF
-stklos configure 1.00
+stklos configure 1.01dev
 generated by GNU Autoconf 2.65
 
 Copyright (C) 2009 Free Software Foundation, Inc.
@@ -1917,7 +1917,7 @@ cat >config.log <<_ACEOF
 This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
 
-It was created by stklos $as_me 1.00, which was
+It was created by stklos $as_me 1.01dev, which was
 generated by GNU Autoconf 2.65.  Invocation command line was
 
   $ $0 $@
@@ -2728,7 +2728,7 @@ fi
 
 # Define the identity of the package.
  PACKAGE='stklos'
- VERSION='1.00'
+ VERSION='1.01dev'
 
 
 cat >>confdefs.h <<_ACEOF
@@ -7435,7 +7435,7 @@ cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
 # report actual input values of CONFIG_FILES etc. instead of their
 # values after options handling.
 ac_log="
-This file was extended by stklos $as_me 1.00, which was
+This file was extended by stklos $as_me 1.01dev, which was
 generated by GNU Autoconf 2.65.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
@@ -7501,7 +7501,7 @@ _ACEOF
 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
 ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
 ac_cs_version="\\
-stklos config.status 1.00
+stklos config.status 1.01dev
 configured by $0, generated by GNU Autoconf 2.65,
   with options \\"\$ac_cs_config\\"
 

configure.ac

@@ -2,10 +2,10 @@
 ###
 ###           Author: Erick Gallesio [eg@unice.fr]
 ###    Creation date: 28-Dec-1999 21:19 (eg)
-### Last file update: 12-Aug-2010 22:57 (eg)
+### Last file update: 20-Aug-2010 09:46 (eg)
 
 AC_PREREQ(2.64)
-AC_INIT([stklos], [1.00])
+AC_INIT([stklos], [1.01dev])
 AM_INIT_AUTOMAKE
 AC_CONFIG_SRCDIR(src/stklos.c)
 AC_CONFIG_HEADERS(src/stklosconf.h)

pkgman/repository.stk

@@ -21,7 +21,7 @@
 ;;;; 
 ;;;;           Author: Erick Gallesio [eg@essi.fr]
 ;;;;    Creation date: 26-Dec-2006 18:20 (eg)
-;;;; Last file update:  8-Aug-2010 09:17 (eg)
+;;;; Last file update: 20-Aug-2010 09:59 (eg)
 ;;;;
 
 
@@ -97,12 +97,15 @@
   (define (add-descriptions src)
     (let ((in (open-file src "r")))
       (if (not in)
-	(eprintf "Warning: cannot load package descriptions. File ~s doesn't exist"
-		 src)
-	(let ((lst (read in)))
-	  (close-port in)
-	  (unless (eof-object? lst) 
-	    (for-each add-description lst))))))
+	  (begin
+	    (eprintf "Warning: cannot load package descriptions. File ~s created.\n"
+		     src)
+	    ;; create file to avoir this warning next time
+	    (with-output-to-file src (lambda () (write '()))))
+	  (let ((lst (read in)))
+	    (close-port in)
+	    (unless (eof-object? lst) 
+	      (for-each add-description lst))))))
 
   (define (add-tuning-to-package tuning)