/usr/share/tcltk/combat0.8/combat.tcl is in tcl-combat 0.8.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 | #
# ======================================================================
# This file is part of Combat/Tcl, a Tcl CORBA Object Request Broker
#
# Please visit the Combat Web site at http://www.fpx.de/Combat/ for
# more information.
#
# Copyright (c) Frank Pilhofer, combat@fpx.de
#
# ======================================================================
#
# CVS Version Tag: $Id: combat.tcl,v 1.8 2008-11-08 18:24:50 Owner Exp $
#
# ----------------------------------------------------------------------
# Main
# ----------------------------------------------------------------------
#
#
# Tcl 8.1 adds the internationalization features that are used for codeset
# negotiation. Also, [string] had some bugs with binary strings in 8.0.
#
package require Tcl 8.1
#
# Look for Itcl, or, failing that, tcl++
#
if {[catch {
package require Itcl
}]} {
#
# If we can't have Itcl, can we load tcl++?
#
package require tcl++
#
# When using tcl++, fool myself into thinking that Itcl is present.
# The original tcl++ didn't want to be so bold.
#
namespace eval ::itcl {
namespace import -force ::tcl++::class
namespace import -force ::tcl++::delete
namespace import -force ::tcl++::scope
}
package provide Itcl 3.0
}
#
# Load Combat
#
set _combat_mandatory_files {
cdr giop iop iiop codeset str object orb corba
}
set _combat_optional_files {
poa
}
foreach _combat_file $_combat_mandatory_files {
set _combat_fullname [file join [file dirname [info script]] \
[set _combat_file].tcl]
source $_combat_fullname
}
foreach _combat_file $_combat_optional_files {
set _combat_fullname [file join [file dirname [info script]] \
[set _combat_file].tcl]
if {[file exists $_combat_fullname]} {
source $_combat_fullname
}
}
#
# combat Namespace
#
namespace eval combat {
proc ir {cmd data} {
if {$cmd != "add"} {
error "illegal option for combat::ir, was expecting add"
}
::Combat::SimpleTypeRepository::add $data
}
}
package provide corba 0.8
package provide combat 0.8
|