debian/0000755000000000000000000000000011615775665007211 5ustar debian/copyright0000644000000000000000000000377311615745047011145 0ustar Format: http://anonscm.debian.org/viewvc/dep/web/deps/dep5.mdwn?revision=174&view=co Upstream-Name: Combat Upstream-Contact: Frank Pilhofer Source: http://www.fpx.de/Combat/ Files: * Copyright: 2001-2004, 2008 Frank Pilhofer License: BSD-2 This software is copyrighted by Frank Pilhofer and other parties. The following terms apply to all files associated with the software unless explicitly disclaimed in individual files. The authors hereby grant permission to use, copy, modify, distribute, and license this software and its documentation for any purpose, provided that existing copyright notices are retained in all copies and that this notice is included verbatim in any distributions. No written agreement, license, or royalty fee is required for any of the authorized uses. Modifications to this software may be copyrighted by their authors and need not follow the licensing terms described here, provided that the new terms are clearly indicated on the first page of each file where they apply. IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. Files: tclkill/* Copyright: not applicable License: public-domain Written 2008 by Frank Pilhofer. This extension is so trivial that I can not assert any copyright. Consider this package to be in the public domain. Contact me at fp@fpx.de (unfortunately, this mailbox is frequently flooded with spam). debian/source/0000755000000000000000000000000011615716550010475 5ustar debian/source/format0000644000000000000000000000001411615716550011703 0ustar 3.0 (quilt) debian/control0000644000000000000000000000301611615743611010576 0ustar Source: combat Section: interpreters Priority: optional Maintainer: Debian CORBA Team Uploaders: Thomas Girard Build-Depends: debhelper (>= 8) Build-Depends-Indep: tcl-dev (>= 8.5) Standards-Version: 3.9.2 Vcs-Git: git://anonscm.debian.org/pkg-corba/pkg-combat.git Vcs-Browser: http://anonscm.debian.org/gitweb/?p=pkg-corba/pkg-combat.git;a=summary Homepage: http://www.fpx.de/Combat/ Package: tcl-combat Architecture: all Depends: ${tclsh:Depends}, itcl3, ${misc:Depends} Recommends: tao-ifr Description: CORBA scripting with Tcl Combat is a CORBA Object Request Broker that allows the implementation of CORBA clients and servers in the Tcl programming language. . On the client side, Combat is not only useful to easily test-drive existing CORBA servers, including the ability for rapid prototyping or to interactively interface with servers from a console, but makes Tcl an exciting language for distributed programming. Also, Tk allows to quickly develop attractive user interfaces accessing CORBA services. Server-side scripting using [incr Tcl] classes also offers a wide range of possibilities. . Combat is compatible with the CORBA 3.0 specification including the IIOP protocol, and has been tested to interoperate with a wide range of open-source and commercial ORBs, including MICO, TAO and ORBexpress. . Combat is written in pure Tcl, allowing it to run on all platforms supported by Tcl, which is a much wider range than supported by any other ORB. debian/patches/0000755000000000000000000000000011615734756010634 5ustar debian/patches/use-tclsh-in-scripts.diff0000644000000000000000000000305411615746041015456 0ustar diff --git a/bin/idl2tcl b/bin/idl2tcl index ccdeff4..55c871e 100755 --- a/bin/idl2tcl +++ b/bin/idl2tcl @@ -1,15 +1,5 @@ -#! /bin/sh +#!/usr/bin/tclsh # $Id: idl2tcl,v 1.2 2011-08-01 18:00:08 fp Exp $ \ -# \ -# the next line restarts using tclsh8.5 on unix \ -if type tclsh8.5 > /dev/null 2>&1 ; then exec tclsh8.5 "$0" ${1+"$@"} ; fi -# the next line restarts using tclsh85 on Windows using Cygwin \ -if type tclsh85 > /dev/null 2>&1 ; then exec tclsh85 "`cygpath --windows $0`" ${1+"$@"} ; fi -# the next line complains about a missing tclsh \ -echo "This software requires Tcl 8.5 to run." ; \ -echo "Make sure that \"tclsh8.5\" or \"tclsh85\" is in your \$PATH" ; \ -exit 1 - # # ---------------------------------------------------------------------- # Initialize. diff --git a/bin/iordump b/bin/iordump index bf290d5..beb2677 100755 --- a/bin/iordump +++ b/bin/iordump @@ -1,15 +1,5 @@ -#! /bin/sh +#!/usr/bin/tclsh # $Id: iordump,v 1.1 2008-11-14 02:12:35 Owner Exp $ \ -# \ -# the next line restarts using tclsh8.5 on unix \ -if type tclsh8.5 > /dev/null 2>&1 ; then exec tclsh8.5 "$0" ${1+"$@"} ; fi -# the next line restarts using tclsh85 on Windows using Cygwin \ -if type tclsh85 > /dev/null 2>&1 ; then exec tclsh85 "`cygpath --windows $0`" ${1+"$@"} ; fi -# the next line complains about a missing tclsh \ -echo "This software requires Tcl 8.5 to run." ; \ -echo "Make sure that \"tclsh8.5\" or \"tclsh85\" is in your \$PATH" ; \ -exit 1 - # # ---------------------------------------------------------------------- # IOR Decoder using some Combat internals. debian/patches/simple-tclkill.diff0000644000000000000000000000130711615745407014407 0ustar diff --git a/tclkill/pkgIndex.tcl b/tclkill/pkgIndex.tcl index 4168901..14572e1 100755 --- a/tclkill/pkgIndex.tcl +++ b/tclkill/pkgIndex.tcl @@ -1,16 +1,3 @@ package ifneeded kill 1.0 " - set killplat [lindex $::tcl_platform(os) 0] - set killmach $::tcl_platform(machine) - switch -glob -- \$killmach { - intel - - i*86* { set killmach x86 } - x*86* { set killmach x86 } - \"Power Macintosh\" { set killmach ppc } - } - set killfile \[file join \"$dir\" \"kill-\[string tolower \$killplat-\$killmach\][info sharedlibextension]\"\] - if {\[file exists \$killfile\]} { - load \$killfile - } else { source \[file join \"$dir\" unixkill.tcl\] - } " debian/patches/series0000644000000000000000000000005611615734752012046 0ustar simple-tclkill.diff use-tclsh-in-scripts.diff debian/tcl-combat.docs0000644000000000000000000000003211615716550012067 0ustar README.txt doc/combat.pdf debian/changelog0000644000000000000000000000023611615746214011050 0ustar combat (0.8.1-1) unstable; urgency=low * Initial packaging. Closes: #636333. -- Thomas Girard Tue, 02 Aug 2011 12:08:07 +0200 debian/tcl-combat.install0000644000000000000000000000016111615716550012610 0ustar orb/* usr/share/tcltk/combat0.8 tclkill/*.tcl usr/share/tcltk/tclkill1.0 bin/idl2tcl usr/bin bin/iordump usr/bin debian/compat0000644000000000000000000000000211615716550010373 0ustar 8 debian/tcl-combat.doc-base0000644000000000000000000000044011615770051012613 0ustar Document: combat Title: CORBA Scripting with Tcl Author: Frank Pilhofer Abstract: This document describes what Combat is, and how it can be used for client-side or server-side CORBA scripting with Tcl. Section: Programming/Tcl Format: pdf Files: /usr/share/doc/tcl-combat/combat.pdf.gz debian/rules0000755000000000000000000000040611615770152010253 0ustar #!/usr/bin/make -f %: dh $@ override_dh_gencontrol: tcltk-depends dh_gencontrol # Work-around permission issue in the 0.8.1 tarball override_dh_fixperms: find debian/tcl-combat -name '*.tcl' -o -name '*.txt' -o -name '*.idl' | xargs chmod -x dh_fixperms debian/watch0000644000000000000000000000010711615716550010224 0ustar version=3 http://www.fpx.de/Combat/download/combat-([\d\.]*)\.tar\.gz debian/tcl-combat.examples0000644000000000000000000000000711615716550012757 0ustar demo/*