;;;; -*- mode:lisp; coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE:               index.lisp
;;;;LANGUAGE:           Common-Lisp
;;;;SYSTEM:             Common-Lisp
;;;;USER-INTERFACE:     NONE
;;;;DESCRIPTION
;;;;    
;;;;    Generate the index.html for small-cl-pgms.
;;;;    
;;;;AUTHORS
;;;;    <PJB> Pascal Bourguignon <pjb@informatimago.com>
;;;;MODIFICATIONS
;;;;    2004-03-14 <PJB> Created.
;;;;BUGS
;;;;LEGAL
;;;;    GPL
;;;;    
;;;;    Copyright Pascal Bourguignon 2004 - 2004
;;;;    
;;;;    This program is free software; you can redistribute it and/or
;;;;    modify it under the terms of the GNU General Public License
;;;;    as published by the Free Software Foundation; either version
;;;;    2 of the License, or (at your option) any later version.
;;;;    
;;;;    This program is distributed in the hope that it will be
;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;;;;    PURPOSE.  See the GNU General Public License for more details.
;;;;    
;;;;    You should have received a copy of the GNU General Public
;;;;    License along with this program; if not, write to the Free
;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;;    Boston, MA 02111-1307 USA
;;;;****************************************************************************

;;(load "PACKAGES:COM;INFORMATIMAGO;COMMON-LISP;HTML.LISP")
(PACKAGE:LOAD-PACKAGE "COM.INFORMATIMAGO.COMMON-LISP.SOURCE-FORM")
(PACKAGE:LOAD-PACKAGE "COM.INFORMATIMAGO.COMMON-LISP.UTILITY")
(PACKAGE:LOAD-PACKAGE "COM.INFORMATIMAGO.COMMON-LISP.LIST")
(PACKAGE:LOAD-PACKAGE "COM.INFORMATIMAGO.COMMON-LISP.ECMA048")
(PACKAGE:LOAD-PACKAGE "COM.INFORMATIMAGO.COMMON-LISP.STRING")
(package:load-package "COM.INFORMATIMAGO.COMMON-LISP.CHARACTER-SETS")
(PACKAGE:LOAD-PACKAGE "COM.INFORMATIMAGO.COMMON-LISP.HTML")
(PACKAGE:ADD-NICKNAME "COM.INFORMATIMAGO.COMMON-LISP.HTML" "<")

;; (<:INITIALIZE)
(<:with-html-output (*standard-output* :kind :strict :encoding :iso-8859-1)
  (<:HTML ()
          (<:comment "PLEASE DO NOT EDIT THIS FILE!")
          (<:comment "The source of this file is index.lisp")
          (<:HEAD ()
                  ;; (<:link (:rel "SHORTCUT ICON" :HREF "informatimago.ico" :TITLE "EXTERNAL:informatimago.ico"))
                  (<:TITLE () (<:pcdata
                               "Common-Lisp Small Programs and Tidbits"))
                  (<:META (:HTTP-EQUIV "Content-Type" 
                                       :CONTENT "text/html; charset=iso-8859-1"))
                  (<:META (:NAME "author" :CONTENT "Pascal J. Bourguignon"))
                  (<:META (:HTTP-EQUIV "Description" :NAME "description" 
                                       :CONTENT "Small Common-Lisp Programs and Tidbits"))
                  (<:META (:NAME "keywords" 
                                 :CONTENT "software,logiciel,programas,GPL,LGPL,Lisp,Common-Lisp")))
          (<:BODY ()
                  (<:COMMENT "TOP-BEGIN")
                  (<:COMMENT "TOP-END")
                  (<:COMMENT "MENU-BEGIN")
                  (<:COMMENT "MENU-END")

                  (<:H1 () (<:PCDATA "Common-Lisp Small Programs and Tidbits"))
                  (<:h2 () (<:pcdata "Downloading sources via DARCS"))
                  (<:p ()
                       (<:pcdata "The sources of these small Common-Lisp
        programs can also be downloaded via ")
                       (<:a (:href "http://abridgegame.org/darcs/")
                            (<:pcdata "DARCS"))
                       (<:pcdata " with the following command:"))
                  (<:pre ()
                         ;;  (<:pcdata "cvs -z3 -d :pserver:anonymous@cvs.informatimago.com:/local/cvs/public/chrooted-cvs/cvs co small-cl-pgms"))
                         ;; (<:p () (<:pcdata "(The password for anonymous is empty)."))
                         (<:pcdata "darcs get http://darcs.informatimago.com/darcs/public/small-cl-pgms"))
                  (DOLIST
                      (SECTION 
                        '(
                          ("Lisp History"
                           ""
                           ("The original LISP"
                            (("aim-8/" "The LISP of the AI Memo 8"))
                            "Implements the lisp of AIM-8 (4 MARCH 1959 by John McCarthy).")
                           ("A Parser for M-expressions"
                            (("m-expression/" "A Parser for M-expressions"))
                            "Implements a parser and a REPL for the M-expressions defined 
                 in  AIM-8 (4 MARCH 1959 by John McCarthy).")
                           ("Old LISP programs still run in Common Lisp"
                            (("wang.html" "Wang's Algorithm in LISP 1, runs on COMMON-LISP"))
                            "The Wang's algorithm, implemented in LISP 1 on IBM 704
                  in March 1960 still runs well on Common Lisp in 2006."))
                          ("Lisp Cookbook"
                           ""
                           ("Image Based Development"
                            (("ibcl/"
                              "A package that saves the definitions typed at the REPL"))
                            "")

                           ("Recursive Descent Parser Generator"
                            (("rdp/"
                              "A Quick and Dirty Recursive Descent Parser Generator"))
                            "But not so ugly.  
 Can generate the parser in lisp and in pseudo-basic.")
                           )

              
                          ("Lisp Tidbits"
                           ""
                           ("Author Signature" 
                            ("author-signature.lisp")
                            "This program computes an \"author signature\" from a text, with
 the algorithm from  http://unix.dsu.edu/~~johnsone/comp.html")

                           ("Democraphic Simulator"
                            ("douze.lisp")
                            "Assuming an Adam and an Eve 20 years old each,
 assuming the current US life table,
 and assuming an \"intensive\" reproduction rate, with gene selection,
 simulate the population growth during 80 years
 and draw the final age pyramid.")

                           ("Solitaire"
                            ("solitaire.lisp")
                            "A solitaire playing program. The user just watch the program play solitaire.")

                           ("Conway's Life Game"
                            ("life.lisp")
                            "A small life game program.")

                           ("Cube Puzzle" 
                            ("cube.lisp")
                            "This program tries to resolve the Cube Puzzle, where a cube
  composed of 27 smaller cubes linked with a thread  must be recomposed.")

                           ("Common-Lisp quines"
                            ("quine.lisp")
                            "Three Common-Lisp quines (autogenerating programs).")
              
                           ("Geek Day"
                            ("geek-day/geek-day.lisp" "geek-day/Makefile" "geek-day/README")
                            "The famous Geek Day games by userfriendly.org's Illiad.
    See: http://ars.userfriendly.org/cartoons/?id=20021215")

               
                           ("BASIC"
                            (("basic/"  "A Quick, Dirty and Ugly Basic interpreter."))
                            "")

                              
                           ("Brainfuck"
                            (("brainfuck/"  "A brainfuck virtual machine, and brainfuck compiler."))
                            ""))))


                    (<:H2 () (<:PCDATA (FIRST SECTION)))
                    (<:P  () (<:PCDATA (SECOND SECTION)))
                    (DOLIST (SOFT (CDDR SECTION))
                      (<:H3 () (<:PCDATA (FIRST SOFT)))
                      (<:P  () (<:PCDATA (THIRD SOFT)))
                      (<:UL ()
                            (DOLIST (FILE (SECOND SOFT))
                              (<:LI ()
                                    (if (stringp file)
                                        (<:A (:HREF FILE)
                                             (<:PCDATA FILE))
                                        (<:A (:HREF (first FILE))
                                             (<:PCDATA (second FILE)))))))))

                  (<:COMMENT "MENU-BEGIN")
                  (<:COMMENT "MENU-END")
                  (<:COMMENT "BOTTOM-BEGIN")
                  (<:COMMENT "BOTTOM-END"))))

;;;; THE END ;;;;