/tags/rel-1-3-25/SWIG/Tools/WAD/Tcl/wadtclinit.cxx

 1/* -----------------------------------------------------------------------------
 2 * wadtclinit.cxx
 3 *
 4 *     C++ initializer for Tcl wad.
 5 * 
 6 * Copyright (C) 2000.  The University of Chicago. 
 7 *
 8 * This library is free software; you can redistribute it and/or
 9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
12 *
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16 * Lesser General Public License for more details.
17 *
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
21 * 
22 * See the file COPYING for a complete copy of the LGPL.
23 * ----------------------------------------------------------------------------- */
24static char cvs[] = "$Header$";
25
26extern "C" void tclwadinit();
27
28/* This hack is used to auto-initialize wad regardless of whether we are
29   used as an imported module or as a link-library for another module */
30   
31class wadinitializer {
32public:
33  wadinitializer() {
34    tclwadinit();
35  }
36};
37
38static wadinitializer wi;