Changeset 13295 in project


Ignore:
Timestamp:
02/13/09 23:08:46 (11 years ago)
Author:
Jim Ursetto
Message:

update gopher/phricken with licensing

Location:
release/4
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/gopher/trunk/gopher.scm

    r13273 r13295  
     1;;; gopher chicken extension
     2
     3;; Copyright(c) 2009 Jim Ursetto.  All rights reserved.
     4;; See EOF for license.
     5
    16;; API notes: send-* are specified to return a true value.
    27
     
    8186    (send-line (entry->string e)))
    8287  )
     88
     89;; Copyright (c) 2009 Jim Ursetto.  All rights reserved.
     90;;
     91;; Redistribution and use in source and binary forms, with or without
     92;; modification, are permitted provided that the following conditions are met:
     93;;
     94;;  Redistributions of source code must retain the above copyright notice,
     95;;   this list of conditions and the following disclaimer.
     96;;  Redistributions in binary form must reproduce the above copyright notice,
     97;;   this list of conditions and the following disclaimer in the documentation
     98;;   and/or other materials provided with the distribution.
     99;;  Neither the name of the author nor the names of its contributors
     100;;   may be used to endorse or promote products derived from this software
     101;;   without specific prior written permission.
     102;;
     103;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
     104;; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
     105;; THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     106;; PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
     107;; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
     108;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
     109;; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
     110;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
     111;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
     112;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
     113;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  • release/4/phricken/trunk/phricken.scm

    r13268 r13295  
     1
     2;;; phricken chicken extension
     3
     4;; Copyright(c) 2009 Jim Ursetto.  All rights reserved.
     5;; See EOF for license.
     6
    17(require-library gopher) ;; doesn't work inside module when not compiled
    28
     
    1016   sanitize-filename selector->filename utc-seconds->string
    1117   match-resource match-url bind-fs any-handler
    12    start-server! filenames->entries
     18   start-server! filenames->entries extension-type
    1319   ;; handlers
    1420   handle-request handle-url handle-file handle-sgm handle-open-dir
     
    108114;; sgm-rules: alist mapping entry type to a procedure which creates
    109115;; that entry.  Procedure is passed the current sgm entry via APPLY.
    110 (define (project-cdr proc)  ; eat first argument, then apply proc
    111   (lambda args
    112     (apply proc (cdr args))))
    113116(define sgm-rules
    114117  (make-parameter
    115118   `((*default* . ,make-entry)
    116      (i . ,(project-cdr make-info-entry))
    117      (3 . ,(project-cdr make-error-entry))
    118      (h . ,(lambda (type name url)
    119              (make-url-entry name url)))
     119     (i . ,(lambda (type . msg)    (apply make-info-entry msg)))
     120     (3 . ,(lambda (type . msg)    (apply make-error-entry msg)))
     121     (h . ,(lambda (type name url) (make-url-entry name url)))
    120122)))
    121123
     
    304306
    305307;; Match resource.  Just a shortcut for match-selector, which matches
    306 
    307308;; the directory (posix-string or SRE) you provide as 'resource', plus
    308309;; optional subdirectory path.  E.g., "/wiki" will match
     
    391392;;    (server-thread #f)))
    392393)
     394
     395;; Copyright (c) 2009 Jim Ursetto.  All rights reserved.
     396;;
     397;; Redistribution and use in source and binary forms, with or without
     398;; modification, are permitted provided that the following conditions are met:
     399;;
     400;;  Redistributions of source code must retain the above copyright notice,
     401;;   this list of conditions and the following disclaimer.
     402;;  Redistributions in binary form must reproduce the above copyright notice,
     403;;   this list of conditions and the following disclaimer in the documentation
     404;;   and/or other materials provided with the distribution.
     405;;  Neither the name of the author nor the names of its contributors
     406;;   may be used to endorse or promote products derived from this software
     407;;   without specific prior written permission.
     408;;
     409;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
     410;; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
     411;; THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     412;; PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
     413;; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
     414;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
     415;; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
     416;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
     417;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
     418;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
     419;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     420
Note: See TracChangeset for help on using the changeset viewer.