/tags/rel-1-3-25/SWIG/Tools/WAD/Tcl/wadtclinit.cxx
C++ | 38 lines | 9 code | 4 blank | 25 comment | 0 complexity | e7c939cc84eb85edb3d05eea3d4e3245 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
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;