File: runscript.c

package info (click to toggle)
et 80b2-8
  • links: PTS
  • area: main
  • in suites: potato, slink
  • size: 1,068 kB
  • ctags: 1,074
  • sloc: ansic: 10,313; tcl: 2,633; makefile: 179; sh: 19
file content (17 lines) | stat: -rw-r--r-- 593 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
/*
** This ET program is used to run a stand-alone Tcl/Tk script.  The
** Tcl/Tk script which is run must be in the same directory as this
** executable, and must have the same name except with the suffix
** ".tcl" appended.
**
** For example, to run the Tcl/Tk script named "myscript.tcl", make
** a link of the executable for this program to a file called
** "myscript" in the same directory with the "myscript.tcl" script.
** To invoke the Tcl/Tk script, type "myscript".
*/
void
main(int argc, char **argv){
  Et_Init(&argc,argv);
  ET( source $cmd_dir/$cmd_name.tcl );
  Et_MainLoop();
}