File: tclShared.c

package info (click to toggle)
tcl-fitstcl 2.3-3
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 1,608 kB
  • ctags: 529
  • sloc: ansic: 25,287; sh: 2,820; makefile: 252; tcl: 157
file content (23 lines) | stat: -rw-r--r-- 345 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 

#include <tcl.h>

#ifdef macintosh
#pragma export on
#endif

#ifdef __WIN32__
int _export Fitstcl_Init (Tcl_Interp *interp);
#else 
int Fitstcl_Init (Tcl_Interp *interp);
#endif

#ifdef macintosh
#pragma export reset
#endif

int Fitstcl_Init (interp)
    Tcl_Interp *interp;		/* Interpreter for application. */
{
  return Fits_Init(interp);
}