git.zerfleddert.de Git - micropolis/blob - src/tclx/src/tclxcret.c

   1 /*
   2  * tclXcreate.c
   3  *
   4  * Contains a routine to create an interpreter and initialize all the Extended
   5  * Tcl commands.  It is is a seperate file so that an application may create
   6  * the interpreter and add in only a subset of the Extended Tcl commands.
   7  *-----------------------------------------------------------------------------
   8  * Copyright 1992 Karl Lehenbauer and Mark Diekhans.
   9  *
  10  * Permission to use, copy, modify, and distribute this software and its
  11  * documentation for any purpose and without fee is hereby granted, provided
  12  * that the above copyright notice appear in all copies.  Karl Lehenbauer and
  13  * Mark Diekhans make no representations about the suitability of this
  14  * software for any purpose.  It is provided "as is" without express or
  15  * implied warranty.
  16  *-----------------------------------------------------------------------------
  17  * $Id: tclXcreate.c,v 2.0 1992/10/16 04:50:33 markd Rel $
  18  *-----------------------------------------------------------------------------
  19  */
  20
  21 #include "tclxint.h"
  22
  23 int matherr ();
  24
  25 /*
  26  * This is a little kludge to make sure matherr is brought in from the Tcl
  27  * library if it is not already defined.  This could be done on the link line,
  28  * but this makes sure it happens.  This is a global so optimizers don't thow
  29  * away the assignment to it.
  30  */
  31 static int (*bringInMathErr)() = matherr;
  32
  33 \f
  34 /*
  35  *-----------------------------------------------------------------------------
  36  *
  37  * Tcl_CreateExtendedInterp --
  38  *
  39  *      Create a new TCL command interpreter and initialize all of the
  40  *      extended Tcl commands..
  41  *
  42  * Results:
  43  *      The return value is a token for the interpreter.
  44  *-----------------------------------------------------------------------------
  45  */
  46 Tcl_Interp *
  47 Tcl_CreateExtendedInterp ()
  48 {
  49     Tcl_Interp *interp;
  50
  51     interp = Tcl_CreateInterp ();
  52
  53     /*
  54      * from tclCkalloc.c (now part of the UCB Tcl).
  55      */
  56 #ifdef TCL_MEM_DEBUG
  57     Tcl_InitMemory (interp);
  58 #endif
  59
  60     /*
  61      * from tclXbsearch.c
  62      */
  63     Tcl_CreateCommand (interp, "bsearch", Tcl_BsearchCmd,
  64                       (ClientData)NULL, (void (*)())NULL);
  65
  66     /*
  67      * from tclXchmod.c
  68      */
  69     Tcl_CreateCommand (interp, "chgrp", Tcl_ChgrpCmd, (ClientData)NULL,
  70                       (void (*)())NULL);
  71     Tcl_CreateCommand (interp, "chmod", Tcl_ChmodCmd, (ClientData)NULL,
  72                       (void (*)())NULL);
  73     Tcl_CreateCommand (interp, "chown", Tcl_ChownCmd, (ClientData)NULL,
  74                       (void (*)())NULL);
  75
  76     /*
  77      * from tclXclock.c
  78      */
  79     Tcl_CreateCommand (interp, "getclock", Tcl_GetclockCmd,
  80                       (ClientData)NULL, (void (*)())NULL);
  81     Tcl_CreateCommand (interp, "fmtclock", Tcl_FmtclockCmd,
  82                       (ClientData)NULL, (void (*)())NULL);
  83
  84     /*
  85      * from tclXcnvdate.c
  86      */
  87     Tcl_CreateCommand (interp, "convertclock", Tcl_ConvertclockCmd,
  88                       (ClientData)NULL, (void (*)())NULL);
  89
  90     /*
  91      * from tclXcmdloop.c
  92      */
  93     Tcl_CreateCommand (interp, "commandloop", Tcl_CommandloopCmd,
  94                       (ClientData)NULL, (void (*)())NULL);
  95
  96     /*
  97      * from tclXdebug.c
  98      */
  99     Tcl_InitDebug (interp);
 100
 101     /*
 102      * from tclXdup.c
 103      */
 104     Tcl_CreateCommand (interp, "dup",  Tcl_DupCmd,
 105                        (ClientData) NULL, (void (*)())NULL);
 106     /*
 107      * from tclXtclXfcntl.c
 108      */
 109     Tcl_CreateCommand (interp, "fcntl", Tcl_FcntlCmd,
 110                        (ClientData) NULL, (void (*)())NULL);
 111
 112     /*
 113      * from tclXfilecmds.c
 114      */
 115     Tcl_CreateCommand (interp, "pipe", Tcl_PipeCmd,
 116                        (ClientData) NULL, (void (*)())NULL);
 117     Tcl_CreateCommand (interp, "copyfile", Tcl_CopyfileCmd,
 118                        (ClientData) NULL, (void (*)())NULL);
 119     Tcl_CreateCommand (interp, "fstat", Tcl_FstatCmd,
 120                        (ClientData) NULL, (void (*)())NULL);
 121     Tcl_CreateCommand (interp, "lgets", Tcl_LgetsCmd,
 122                        (ClientData) NULL, (void (*)())NULL);
 123     Tcl_CreateCommand (interp, "flock", Tcl_FlockCmd,
 124                        (ClientData) NULL, (void (*)())NULL);
 125     Tcl_CreateCommand (interp, "funlock", Tcl_FunlockCmd,
 126                        (ClientData) NULL, (void (*)())NULL);
 127
 128     /*
 129      * from tclXfilescan.c
 130      */
 131     Tcl_InitFilescan (interp);
 132
 133     /*
 134      * from tclXfmath.c
 135      */
 136     Tcl_CreateCommand(interp, "acos", Tcl_AcosCmd,
 137                      (ClientData)NULL, (void (*)())NULL);
 138     Tcl_CreateCommand(interp, "asin", Tcl_AsinCmd,
 139                      (ClientData)NULL, (void (*)())NULL);
 140     Tcl_CreateCommand(interp, "atan", Tcl_AtanCmd,
 141                      (ClientData)NULL, (void (*)())NULL);
 142     Tcl_CreateCommand(interp, "cos", Tcl_CosCmd,
 143                      (ClientData)NULL, (void (*)())NULL);
 144     Tcl_CreateCommand(interp, "sin", Tcl_SinCmd,
 145                      (ClientData)NULL, (void (*)())NULL);
 146     Tcl_CreateCommand(interp, "tan", Tcl_TanCmd,
 147                      (ClientData)NULL, (void (*)())NULL);
 148     Tcl_CreateCommand(interp, "cosh", Tcl_CoshCmd,
 149                      (ClientData)NULL, (void (*)())NULL);
 150     Tcl_CreateCommand(interp, "sinh", Tcl_SinhCmd,
 151                      (ClientData)NULL, (void (*)())NULL);
 152     Tcl_CreateCommand(interp, "tanh", Tcl_TanhCmd,
 153                      (ClientData)NULL, (void (*)())NULL);
 154     Tcl_CreateCommand(interp, "exp", Tcl_ExpCmd,
 155                      (ClientData)NULL, (void (*)())NULL);
 156     Tcl_CreateCommand(interp, "log", Tcl_LogCmd,
 157                      (ClientData)NULL, (void (*)())NULL);
 158     Tcl_CreateCommand(interp, "log10", Tcl_Log10Cmd,
 159                      (ClientData)NULL, (void (*)())NULL);
 160     Tcl_CreateCommand(interp, "sqrt", Tcl_SqrtCmd,
 161                      (ClientData)NULL, (void (*)())NULL);
 162     Tcl_CreateCommand(interp, "fabs", Tcl_FabsCmd,
 163                      (ClientData)NULL, (void (*)())NULL);
 164     Tcl_CreateCommand(interp, "floor", Tcl_FloorCmd,
 165                      (ClientData)NULL, (void (*)())NULL);
 166     Tcl_CreateCommand(interp, "ceil", Tcl_CeilCmd,
 167                      (ClientData)NULL, (void (*)())NULL);
 168     Tcl_CreateCommand(interp, "fmod", Tcl_FmodCmd,
 169                      (ClientData)NULL, (void (*)())NULL);
 170     Tcl_CreateCommand(interp, "pow", Tcl_PowCmd,
 171                      (ClientData)NULL, (void (*)())NULL);
 172
 173     /*
 174      * from tclXgeneral.c
 175      */
 176     Tcl_CreateCommand(interp, "echo", Tcl_EchoCmd,
 177                      (ClientData)NULL, (void (*)())NULL);
 178     Tcl_CreateCommand(interp, "infox", Tcl_InfoxCmd,
 179                      (ClientData)NULL, (void (*)())NULL);
 180     Tcl_CreateCommand(interp, "loop", Tcl_LoopCmd,
 181                      (ClientData)NULL, (void (*)())NULL);
 182
 183     /*
 184      * from tclXid.c
 185      */
 186     Tcl_CreateCommand (interp, "id", Tcl_IdCmd,
 187                        (ClientData)NULL, (void (*)())NULL);
 188
 189     /*
 190      * from tclXkeylist.c
 191      */
 192     Tcl_CreateCommand(interp, "keyldel", Tcl_KeyldelCmd,
 193                      (ClientData)NULL, (void (*)())NULL);
 194     Tcl_CreateCommand(interp, "keylget", Tcl_KeylgetCmd,
 195                      (ClientData)NULL, (void (*)())NULL);
 196     Tcl_CreateCommand(interp, "keylkeys", Tcl_KeylkeysCmd,
 197                      (ClientData)NULL, (void (*)())NULL);
 198     Tcl_CreateCommand(interp, "keylset", Tcl_KeylsetCmd,
 199                      (ClientData)NULL, (void (*)())NULL);
 200
 201     /*
 202      * from tclXlist.c
 203      */
 204     Tcl_CreateCommand(interp, "lvarcat", Tcl_LvarcatCmd,
 205                      (ClientData)NULL, (void (*)())NULL);
 206     Tcl_CreateCommand(interp, "lvarpop", Tcl_LvarpopCmd,
 207                      (ClientData)NULL, (void (*)())NULL);
 208     Tcl_CreateCommand(interp, "lvarpush", Tcl_LvarpushCmd,
 209                      (ClientData)NULL, (void (*)())NULL);
 210     Tcl_CreateCommand(interp, "lempty", Tcl_LemptyCmd,
 211                      (ClientData)NULL, (void (*)())NULL);
 212     /*
 213      * from tclXmath.c
 214      */
 215     Tcl_CreateCommand (interp, "max", Tcl_MaxCmd, (ClientData)NULL,
 216               (void (*)())NULL);
 217     Tcl_CreateCommand (interp, "min", Tcl_MinCmd, (ClientData)NULL,
 218               (void (*)())NULL);
 219     Tcl_CreateCommand (interp, "random", Tcl_RandomCmd, (ClientData)NULL,
 220               (void (*)())NULL);
 221
 222     /*
 223      * from tclXmsgcat.c
 224      */
 225     Tcl_InitMsgCat (interp);
 226
 227     /*
 228      * from tclXprocess.c
 229      */
 230     Tcl_CreateCommand (interp, "execl", Tcl_ExeclCmd, (ClientData)NULL,
 231                       (void (*)())NULL);
 232     Tcl_CreateCommand (interp, "fork", Tcl_ForkCmd, (ClientData)NULL,
 233                       (void (*)())NULL);
 234     Tcl_CreateCommand (interp, "wait", Tcl_WaitCmd, (ClientData)NULL,
 235                       (void (*)())NULL);
 236
 237     /*
 238      * from tclXprofile.c
 239      */
 240     Tcl_InitProfile (interp);
 241
 242     /*
 243      * from tclXselect.c
 244      */
 245     Tcl_CreateCommand (interp, "select", Tcl_SelectCmd,
 246                        (ClientData) NULL, (void (*)())NULL);
 247
 248     /*
 249      * from tclXsignal.c
 250      */
 251     Tcl_InitSignalHandling (interp);
 252
 253     /*
 254      * from tclXstring.c
 255      */
 256     Tcl_CreateCommand(interp, "cindex", Tcl_CindexCmd,
 257                      (ClientData)NULL, (void (*)())NULL);
 258     Tcl_CreateCommand(interp, "clength", Tcl_ClengthCmd,
 259                      (ClientData)NULL, (void (*)())NULL);
 260     Tcl_CreateCommand(interp, "crange", Tcl_CrangeCmd,
 261                      (ClientData)NULL, (void (*)())NULL);
 262     Tcl_CreateCommand(interp, "csubstr", Tcl_CrangeCmd,
 263                      (ClientData)NULL, (void (*)())NULL);
 264     Tcl_CreateCommand(interp, "replicate", Tcl_ReplicateCmd,
 265                      (ClientData)NULL, (void (*)())NULL);
 266     Tcl_CreateCommand (interp, "translit", Tcl_TranslitCmd, (ClientData)NULL,
 267                        (void (*)())NULL);
 268     Tcl_CreateCommand (interp, "ctype", Tcl_CtypeCmd,
 269                        (ClientData)NULL, (void (*)())NULL);
 270
 271     /*
 272      * from tclXlib.c
 273      */
 274     Tcl_CreateCommand (interp, "demand_load", Tcl_Demand_loadCmd,
 275                       (ClientData)NULL, (void (*)())NULL);
 276     Tcl_CreateCommand (interp, "loadlibindex", Tcl_LoadlibindexCmd,
 277                       (ClientData)NULL, (void (*)())NULL);
 278
 279     /*
 280      * from tclXunixcmds.c
 281      */
 282     Tcl_CreateCommand (interp, "system", Tcl_SystemCmd, (ClientData)NULL,
 283                       (void (*)())NULL);
 284     Tcl_CreateCommand (interp, "times", Tcl_TimesCmd, (ClientData)NULL,
 285                       (void (*)())NULL);
 286     Tcl_CreateCommand (interp, "umask", Tcl_UmaskCmd, (ClientData)NULL,
 287                       (void (*)())NULL);
 288     Tcl_CreateCommand (interp, "link", Tcl_LinkCmd, (ClientData)NULL,
 289                       (void (*)())NULL);
 290     Tcl_CreateCommand (interp, "unlink", Tcl_UnlinkCmd, (ClientData)NULL,
 291                       (void (*)())NULL);
 292     Tcl_CreateCommand (interp, "mkdir", Tcl_MkdirCmd, (ClientData)NULL,
 293                       (void (*)())NULL);
 294     Tcl_CreateCommand (interp, "rmdir", Tcl_RmdirCmd, (ClientData)NULL,
 295                       (void (*)())NULL);
 296     Tcl_CreateCommand (interp, "alarm", Tcl_AlarmCmd, (ClientData)NULL,
 297                       (void (*)())NULL);
 298     Tcl_CreateCommand (interp, "sleep", Tcl_SleepCmd, (ClientData)NULL,
 299                       (void (*)())NULL);
 300
 301     return interp;
 302 }