package-phoros.lisp

   1 ;;; PHOROS -- Photogrammetric Road Survey
   2 ;;; Copyright (C) 2010, 2011, 2012 Bert Burgemeister
   3 ;;;
   4 ;;; This program is free software; you can redistribute it and/or modify
   5 ;;; it under the terms of the GNU General Public License as published by
   6 ;;; the Free Software Foundation; either version 2 of the License, or
   7 ;;; (at your option) any later version.
   8 ;;;
   9 ;;; This program is distributed in the hope that it will be useful,
  10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 ;;; GNU General Public License for more details.
  13 ;;;
  14 ;;; You should have received a copy of the GNU General Public License along
  15 ;;; with this program; if not, write to the Free Software Foundation, Inc.,
  16 ;;; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  17
  18
  19 (defpackage :phoros-photogrammetry
  20   (:documentation "Interface to the PhoML library.")
  21   (:use :cl
  22         :phoml)
  23   (:export :photogrammetry
  24            :*photogrammetry-mutex*
  25            :del-all))
  26
  27 (defpackage :phoros
  28   (:use :cl
  29         :phoros-photogrammetry
  30         :parenscript
  31         :postmodern)
  32   (:export :defun*
  33            :unqualified-symbol
  34            :phoml
  35            :launch-logger
  36            :muffle-postgresql-warnings
  37            :*number-of-images*
  38            :*aux-numeric-labels*
  39            :*aux-text-labels*
  40            :*login-intro*
  41            :*postgresql-credentials*
  42            :*postgresql-aux-credentials*
  43            :phoros-version
  44            :check-db
  45            :check-dependencies
  46            :nuke-all-tables
  47            :create-sys-tables
  48            :create-acquisition-project
  49            :assert-acquisition-project
  50            :delete-acquisition-project
  51            :delete-measurement
  52            :store-images-and-points
  53            :delete-imageless-points
  54            :insert-footprints
  55            :store-camera-hardware
  56            :store-lens
  57            :store-generic-device
  58            :store-device-stage-of-life
  59            :store-device-stage-of-life-end
  60            :store-camera-calibration
  61            :timestring
  62            :create-presentation-project
  63            :assert-presentation-project
  64            :user-point-table-name
  65            :user-line-table-name
  66            :delete-presentation-project
  67            :add-to-presentation-project
  68            :remove-from-presentation-project
  69            :create-image-attribute
  70            :delete-image-attribute
  71            :create-presentation-project-trigger-function
  72            :fire-presentation-project-trigger-function
  73            :aux-view-exists-p
  74            :aux-point-view-name
  75            :delete-aux-view
  76            :create-aux-view
  77            :add-spherical-mercator-ref
  78            :store-user-points
  79            :get-user-points
  80            :create-user
  81            :delete-user
  82            :insert-all-footprints
  83            :delete-all-imageless-points
  84            :start-server
  85            :utc-from-unix
  86            :thread-aux-points-function-name))
  87
  88 (defpackage :phoros-image-reader
  89   (:documentation "The part of Phoros that makes servable images from
  90   raw files of measuring data.")
  91   (:nicknames :img)
  92   (:use :cl
  93         :phoros)
  94   (:export :send-png
  95            :send-nth-png
  96            :find-keyword
  97            :find-keyword-value
  98            :find-keyword-in-stream
  99            :*picture-header-length-tolerance*))
 100
 101 (defpackage :phoros-command-line-interface
 102   (:documentation "The part of Phoros that provides its UNIX command
 103   line interface.")
 104   (:nicknames :cli)
 105   (:use :cl
 106         :phoros
 107         :postmodern)
 108   (:import-from :net.didierverna.clon
 109                 :defsynopsis
 110                 :make-stropt
 111                 :make-path
 112                 :make-lispobj
 113                 :make-switch
 114                 :make-context
 115                 :with-context
 116                 :cmdline
 117                 :getopt
 118                 :do-cmdline-options
 119                 :help)
 120   (:export :help ;re-export from net.didierverna.clon
 121            :with-options ;Phoros CLI stuff
 122            :verbosity-level
 123            :main
 124            :set-umask))
 125