(in-package "CL-USER")

;; Load this file into LispWorks for Windows (version 4.3). Doing so
;; will load the rest of the system for you.

(require "com")
(require "automation")

;; We start with a .dll file, we want a lisp .fsl. The steps are:
;; a) create .idl file from p4com.dll, using the OLE/COM Object Viewer
;; b) create type library (.tlb) from this file, by invoking
;;       midl /tlb p4com.tlb p4com.idl
;; c) include the type library in a lisp system

(defsystem p4com ()
  :members (
	    "pkg"
	    ("p4com" :type :midl-type-library-file :package "P4COM")
	    "p4"
	    "editor-bindings"
	    "capi-prompters"
            )
  :rules ((:compile :all
		    (:requires (:compile :previous)))
          (:compile :all
		    (:requires (:load :previous)))))

(compile-system 'p4com :load t)

;;;;;;;;;;;;;;;;;

;; COPYRIGHT AND LICENCE
;;
;; This file is copyright (c) 2003, Nick Levine.  All rights reserved.
;;
;; Redistribution and use in source and binary forms, with or without
;; modification, are permitted provided that the following conditions are
;; met:
;;
;; 1.  Redistributions of source code must retain the above copyright
;;     notice, this list of conditions and the following disclaimer.
;;
;; 2.  Redistributions in binary form must reproduce the above copyright
;;     notice, this list of conditions and the following disclaimer in
;;     the documentation and/or other materials provided with the
;;     distribution.
;;
;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
;; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
;; A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
;; HOLDERS AND CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
;; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
;; BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
;; OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
;; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
;; TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
;; DAMAGE.

;; $Id: //info.ravenbrook.com/user/ndl/lisp/p4com/load.lisp#3 $