stk/Src/dummy.c

60 lines
1.6 KiB
C
Raw Normal View History

1996-09-27 06:29:02 -04:00
/******************************************************************************
*
* d u m m y . c -- this file contains functions referenced
* (but not used) by the Tcl library.
* It is useful for the snow interpreter only.
* Dummy functions are defined here to make the
* loader happy
*
1999-09-05 07:16:41 -04:00
* Copyright <EFBFBD> 1993-1999 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
1996-09-27 06:29:02 -04:00
*
*
1999-09-05 07:16:41 -04:00
* Permission to use, copy, modify, distribute,and license this
* software and its documentation for any purpose is hereby granted,
* 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.
* This software is provided ``AS IS'' without express or implied
* warranty.
1996-09-27 06:29:02 -04:00
*
*
* Author: Erick Gallesio [eg@unice.fr]
* Creation date: 1-Feb-1995 22:43
1999-09-05 07:16:41 -04:00
* Last file update: 3-Sep-1999 20:19 (eg)
1996-09-27 06:29:02 -04:00
*
******************************************************************************/
#include "stk.h"
#ifndef USE_TK
1998-09-30 07:11:02 -04:00
static void Error(char *msg)
1996-09-27 06:29:02 -04:00
{
1999-02-02 06:13:40 -05:00
Fprintf(STk_curr_eport,
"Error: call of '%s' in Snow !!!. This should not occur\n",
msg);
1996-09-27 06:29:02 -04:00
}
char *Tcl_SetVar2(interp, name1, name2, val, flags)
Tcl_Interp *interp;
char *name1, *name2, *val;
int flags;
{
Error("Tcl_SetVar2");
}
1998-04-10 06:59:06 -04:00
void Tcl_DeleteFileHandler(int fd)
1996-09-27 06:29:02 -04:00
{
Error("Tcl_DeleteFileHandler");
}
1998-04-10 06:59:06 -04:00
void Tcl_CreateFileHandler(int fd, int mask, Tcl_FileProc *proc,
1996-09-27 06:29:02 -04:00
ClientData clientData)
{
Error("Tcl_CreateFileHandler");
}
#endif