Hex Artifact Content

Artifact deca556b9b58d8165a9cd2654c1c0d0ba5257903:


0000: 2f 2a 20 0a 20 2a 20 74 6b 41 70 70 49 6e 69 74  /* . * tkAppInit
0010: 2e 63 20 28 43 54 6b 29 20 2d 2d 0a 20 2a 0a 20  .c (CTk) --. *. 
0020: 2a 09 50 72 6f 76 69 64 65 73 20 61 20 64 65 66  *.Provides a def
0030: 61 75 6c 74 20 76 65 72 73 69 6f 6e 20 6f 66 20  ault version of 
0040: 74 68 65 20 54 63 6c 5f 41 70 70 49 6e 69 74 20  the Tcl_AppInit 
0050: 70 72 6f 63 65 64 75 72 65 20 66 6f 72 0a 20 2a  procedure for. *
0060: 09 75 73 65 20 69 6e 20 77 69 73 68 20 61 6e 64  .use in wish and
0070: 20 73 69 6d 69 6c 61 72 20 54 6b 2d 62 61 73 65   similar Tk-base
0080: 64 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 2e 0a  d applications..
0090: 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20   *. * Copyright 
00a0: 28 63 29 20 31 39 39 33 20 54 68 65 20 52 65 67  (c) 1993 The Reg
00b0: 65 6e 74 73 20 6f 66 20 74 68 65 20 55 6e 69 76  ents of the Univ
00c0: 65 72 73 69 74 79 20 6f 66 20 43 61 6c 69 66 6f  ersity of Califo
00d0: 72 6e 69 61 2e 0a 20 2a 20 43 6f 70 79 72 69 67  rnia.. * Copyrig
00e0: 68 74 20 28 63 29 20 31 39 39 34 20 53 75 6e 20  ht (c) 1994 Sun 
00f0: 4d 69 63 72 6f 73 79 73 74 65 6d 73 2c 20 49 6e  Microsystems, In
0100: 63 2e 0a 20 2a 0a 20 2a 20 53 65 65 20 74 68 65  c.. *. * See the
0110: 20 66 69 6c 65 20 22 6c 69 63 65 6e 73 65 2e 74   file "license.t
0120: 65 72 6d 73 22 20 66 6f 72 20 69 6e 66 6f 72 6d  erms" for inform
0130: 61 74 69 6f 6e 20 6f 6e 20 75 73 61 67 65 20 61  ation on usage a
0140: 6e 64 20 72 65 64 69 73 74 72 69 62 75 74 69 6f  nd redistributio
0150: 6e 0a 20 2a 20 6f 66 20 74 68 69 73 20 66 69 6c  n. * of this fil
0160: 65 2c 20 61 6e 64 20 66 6f 72 20 61 20 44 49 53  e, and for a DIS
0170: 43 4c 41 49 4d 45 52 20 4f 46 20 41 4c 4c 20 57  CLAIMER OF ALL W
0180: 41 52 52 41 4e 54 49 45 53 2e 0a 20 2a 0a 20 2a  ARRANTIES.. *. *
0190: 20 40 28 23 29 20 24 49 64 3a 20 63 74 6b 2e 73   @(#) $Id: ctk.s
01a0: 68 61 72 2c 76 20 31 2e 35 30 20 31 39 39 36 2f  har,v 1.50 1996/
01b0: 30 31 2f 31 35 20 31 34 3a 34 37 3a 31 36 20 61  01/15 14:47:16 a
01c0: 6e 64 72 65 77 6d 20 45 78 70 20 61 6e 64 72 65  ndrewm Exp andre
01d0: 77 6d 20 24 0a 20 2a 2f 0a 0a 0a 23 69 6e 63 6c  wm $. */...#incl
01e0: 75 64 65 20 22 74 6b 2e 68 22 09 09 2f 2a 20 6d  ude "tk.h"../* m
01f0: 61 79 20 6e 65 65 64 20 74 6f 20 63 68 61 6e 67  ay need to chang
0200: 65 20 74 68 69 73 20 74 6f 20 63 74 6b 2e 68 20  e this to ctk.h 
0210: 2a 2f 0a 0a 2f 2a 0a 20 2a 20 54 68 65 20 66 6f  */../*. * The fo
0220: 6c 6c 6f 77 69 6e 67 20 76 61 72 69 61 62 6c 65  llowing variable
0230: 20 69 73 20 61 20 73 70 65 63 69 61 6c 20 68 61   is a special ha
0240: 63 6b 20 74 68 61 74 20 69 73 20 6e 65 65 64 65  ck that is neede
0250: 64 20 69 6e 20 6f 72 64 65 72 20 66 6f 72 0a 20  d in order for. 
0260: 2a 20 53 75 6e 20 73 68 61 72 65 64 20 6c 69 62  * Sun shared lib
0270: 72 61 72 69 65 73 20 74 6f 20 62 65 20 75 73 65  raries to be use
0280: 64 20 66 6f 72 20 54 63 6c 2e 0a 20 2a 2f 0a 0a  d for Tcl.. */..
0290: 65 78 74 65 72 6e 20 69 6e 74 20 6d 61 74 68 65  extern int mathe
02a0: 72 72 28 29 3b 0a 69 6e 74 20 2a 74 63 6c 44 75  rr();.int *tclDu
02b0: 6d 6d 79 4d 61 74 68 50 74 72 20 3d 20 28 69 6e  mmyMathPtr = (in
02c0: 74 20 2a 29 20 6d 61 74 68 65 72 72 3b 0a 0c 0a  t *) matherr;...
02d0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  /*. *-----------
02e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
02f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20  -----------. *. 
0320: 2a 20 6d 61 69 6e 20 2d 2d 0a 20 2a 0a 20 2a 09  * main --. *. *.
0330: 54 68 69 73 20 69 73 20 74 68 65 20 6d 61 69 6e  This is the main
0340: 20 70 72 6f 67 72 61 6d 20 66 6f 72 20 74 68 65   program for the
0350: 20 61 70 70 6c 69 63 61 74 69 6f 6e 2e 0a 20 2a   application.. *
0360: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09  . * Results:. *.
0370: 4e 6f 6e 65 3a 20 54 6b 5f 4d 61 69 6e 20 6e 65  None: Tk_Main ne
0380: 76 65 72 20 72 65 74 75 72 6e 73 20 68 65 72 65  ver returns here
0390: 2c 20 73 6f 20 74 68 69 73 20 70 72 6f 63 65 64  , so this proced
03a0: 75 72 65 20 6e 65 76 65 72 0a 20 2a 09 72 65 74  ure never. *.ret
03b0: 75 72 6e 73 20 65 69 74 68 65 72 2e 0a 20 2a 0a  urns either.. *.
03c0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a   * Side effects:
03d0: 0a 20 2a 09 57 68 61 74 65 76 65 72 20 74 68 65  . *.Whatever the
03e0: 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 64 6f 65   application doe
03f0: 73 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  s.. *. *--------
0400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
0440: 2a 2f 0a 0a 69 6e 74 0a 6d 61 69 6e 28 61 72 67  */..int.main(arg
0450: 63 2c 20 61 72 67 76 29 0a 20 20 20 20 69 6e 74  c, argv).    int
0460: 20 61 72 67 63 3b 09 09 09 2f 2a 20 4e 75 6d 62   argc;.../* Numb
0470: 65 72 20 6f 66 20 63 6f 6d 6d 61 6e 64 2d 6c 69  er of command-li
0480: 6e 65 20 61 72 67 75 6d 65 6e 74 73 2e 20 2a 2f  ne arguments. */
0490: 0a 20 20 20 20 63 68 61 72 20 2a 2a 61 72 67 76  .    char **argv
04a0: 3b 09 09 2f 2a 20 56 61 6c 75 65 73 20 6f 66 20  ;../* Values of 
04b0: 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20 61 72 67  command-line arg
04c0: 75 6d 65 6e 74 73 2e 20 2a 2f 0a 7b 0a 20 20 20  uments. */.{.   
04d0: 20 54 6b 5f 4d 61 69 6e 28 61 72 67 63 2c 20 61   Tk_Main(argc, a
04e0: 72 67 76 2c 20 54 63 6c 5f 41 70 70 49 6e 69 74  rgv, Tcl_AppInit
04f0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b  );.    return 0;
0500: 09 09 09 2f 2a 20 4e 65 65 64 65 64 20 6f 6e 6c  .../* Needed onl
0510: 79 20 74 6f 20 70 72 65 76 65 6e 74 20 63 6f 6d  y to prevent com
0520: 70 69 6c 65 72 20 77 61 72 6e 69 6e 67 2e 20 2a  piler warning. *
0530: 2f 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d  /.}.../*. *-----
0540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0580: 2d 0a 20 2a 0a 20 2a 20 54 63 6c 5f 41 70 70 49  -. *. * Tcl_AppI
0590: 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69  nit --. *. *.Thi
05a0: 73 20 70 72 6f 63 65 64 75 72 65 20 70 65 72 66  s procedure perf
05b0: 6f 72 6d 73 20 61 70 70 6c 69 63 61 74 69 6f 6e  orms application
05c0: 2d 73 70 65 63 69 66 69 63 20 69 6e 69 74 69 61  -specific initia
05d0: 6c 69 7a 61 74 69 6f 6e 2e 0a 20 2a 09 4d 6f 73  lization.. *.Mos
05e0: 74 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 2c 20  t applications, 
05f0: 65 73 70 65 63 69 61 6c 6c 79 20 74 68 6f 73 65  especially those
0600: 20 74 68 61 74 20 69 6e 63 6f 72 70 6f 72 61 74   that incorporat
0610: 65 20 61 64 64 69 74 69 6f 6e 61 6c 0a 20 2a 09  e additional. *.
0620: 70 61 63 6b 61 67 65 73 2c 20 77 69 6c 6c 20 68  packages, will h
0630: 61 76 65 20 74 68 65 69 72 20 6f 77 6e 20 76 65  ave their own ve
0640: 72 73 69 6f 6e 20 6f 66 20 74 68 69 73 20 70 72  rsion of this pr
0650: 6f 63 65 64 75 72 65 2e 0a 20 2a 0a 20 2a 20 52  ocedure.. *. * R
0660: 65 73 75 6c 74 73 3a 0a 20 2a 09 52 65 74 75 72  esults:. *.Retur
0670: 6e 73 20 61 20 73 74 61 6e 64 61 72 64 20 54 63  ns a standard Tc
0680: 6c 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 63 6f 64  l completion cod
0690: 65 2c 20 61 6e 64 20 6c 65 61 76 65 73 20 61 6e  e, and leaves an
06a0: 20 65 72 72 6f 72 0a 20 2a 09 6d 65 73 73 61 67   error. *.messag
06b0: 65 20 69 6e 20 69 6e 74 65 72 70 2d 3e 72 65 73  e in interp->res
06c0: 75 6c 74 20 69 66 20 61 6e 20 65 72 72 6f 72 20  ult if an error 
06d0: 6f 63 63 75 72 73 2e 0a 20 2a 0a 20 2a 20 53 69  occurs.. *. * Si
06e0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 44  de effects:. *.D
06f0: 65 70 65 6e 64 73 20 6f 6e 20 74 68 65 20 73 74  epends on the st
0700: 61 72 74 75 70 20 73 63 72 69 70 74 2e 0a 20 2a  artup script.. *
0710: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
0720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 69  ---------. */..i
0760: 6e 74 0a 54 63 6c 5f 41 70 70 49 6e 69 74 28 69  nt.Tcl_AppInit(i
0770: 6e 74 65 72 70 29 0a 20 20 20 20 54 63 6c 5f 49  nterp).    Tcl_I
0780: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 09  nterp *interp;..
0790: 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 72 20 66  /* Interpreter f
07a0: 6f 72 20 61 70 70 6c 69 63 61 74 69 6f 6e 2e 20  or application. 
07b0: 2a 2f 0a 7b 0a 20 20 20 20 69 66 20 28 54 63 6c  */.{.    if (Tcl
07c0: 5f 49 6e 69 74 28 69 6e 74 65 72 70 29 20 3d 3d  _Init(interp) ==
07d0: 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 72   TCL_ERROR) {..r
07e0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
07f0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 54  .    }.    if (T
0800: 6b 5f 49 6e 69 74 28 69 6e 74 65 72 70 29 20 3d  k_Init(interp) =
0810: 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a 09  = TCL_ERROR) {..
0820: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
0830: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a  ;.    }..    /*.
0840: 20 20 20 20 20 2a 20 43 61 6c 6c 20 74 68 65 20       * Call the 
0850: 69 6e 69 74 20 70 72 6f 63 65 64 75 72 65 73 20  init procedures 
0860: 66 6f 72 20 69 6e 63 6c 75 64 65 64 20 70 61 63  for included pac
0870: 6b 61 67 65 73 2e 20 20 45 61 63 68 20 63 61 6c  kages.  Each cal
0880: 6c 20 73 68 6f 75 6c 64 0a 20 20 20 20 20 2a 20  l should.     * 
0890: 6c 6f 6f 6b 20 6c 69 6b 65 20 74 68 69 73 3a 0a  look like this:.
08a0: 20 20 20 20 20 2a 0a 20 20 20 20 20 2a 20 69 66       *.     * if
08b0: 20 28 4d 6f 64 5f 49 6e 69 74 28 69 6e 74 65 72   (Mod_Init(inter
08c0: 70 29 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29  p) == TCL_ERROR)
08d0: 20 7b 0a 20 20 20 20 20 2a 20 20 20 20 20 72 65   {.     *     re
08e0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
08f0: 20 20 20 20 20 2a 20 7d 0a 20 20 20 20 20 2a 0a       * }.     *.
0900: 20 20 20 20 20 2a 20 77 68 65 72 65 20 22 4d 6f       * where "Mo
0910: 64 22 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f  d" is the name o
0920: 66 20 74 68 65 20 6d 6f 64 75 6c 65 2e 0a 20 20  f the module..  
0930: 20 20 20 2a 2f 0a 0a 20 20 20 20 2f 2a 0a 20 20     */..    /*.  
0940: 20 20 20 2a 20 43 61 6c 6c 20 54 63 6c 5f 43 72     * Call Tcl_Cr
0950: 65 61 74 65 43 6f 6d 6d 61 6e 64 20 66 6f 72 20  eateCommand for 
0960: 61 70 70 6c 69 63 61 74 69 6f 6e 2d 73 70 65 63  application-spec
0970: 69 66 69 63 20 63 6f 6d 6d 61 6e 64 73 2c 20 69  ific commands, i
0980: 66 0a 20 20 20 20 20 2a 20 74 68 65 79 20 77 65  f.     * they we
0990: 72 65 6e 27 74 20 61 6c 72 65 61 64 79 20 63 72  ren't already cr
09a0: 65 61 74 65 64 20 62 79 20 74 68 65 20 69 6e 69  eated by the ini
09b0: 74 20 70 72 6f 63 65 64 75 72 65 73 20 63 61 6c  t procedures cal
09c0: 6c 65 64 20 61 62 6f 76 65 2e 0a 20 20 20 20 20  led above..     
09d0: 2a 2f 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20  */..    /*.     
09e0: 2a 20 53 70 65 63 69 66 79 20 61 20 75 73 65 72  * Specify a user
09f0: 2d 73 70 65 63 69 66 69 63 20 73 74 61 72 74 75  -specific startu
0a00: 70 20 66 69 6c 65 20 74 6f 20 69 6e 76 6f 6b 65  p file to invoke
0a10: 20 69 66 20 74 68 65 20 61 70 70 6c 69 63 61 74   if the applicat
0a20: 69 6f 6e 0a 20 20 20 20 20 2a 20 69 73 20 72 75  ion.     * is ru
0a30: 6e 20 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2e  n interactively.
0a40: 20 20 54 79 70 69 63 61 6c 6c 79 20 74 68 65 20    Typically the 
0a50: 73 74 61 72 74 75 70 20 66 69 6c 65 20 69 73 20  startup file is 
0a60: 22 7e 2f 2e 61 70 70 72 63 22 0a 20 20 20 20 20  "~/.apprc".     
0a70: 2a 20 77 68 65 72 65 20 22 61 70 70 22 20 69 73  * where "app" is
0a80: 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65   the name of the
0a90: 20 61 70 70 6c 69 63 61 74 69 6f 6e 2e 20 20 49   application.  I
0aa0: 66 20 74 68 69 73 20 6c 69 6e 65 20 69 73 20 64  f this line is d
0ab0: 65 6c 65 74 65 64 0a 20 20 20 20 20 2a 20 74 68  eleted.     * th
0ac0: 65 6e 20 6e 6f 20 75 73 65 72 2d 73 70 65 63 69  en no user-speci
0ad0: 66 69 63 20 73 74 61 72 74 75 70 20 66 69 6c 65  fic startup file
0ae0: 20 77 69 6c 6c 20 62 65 20 72 75 6e 20 75 6e 64   will be run und
0af0: 65 72 20 61 6e 79 20 63 6f 6e 64 69 74 69 6f 6e  er any condition
0b00: 73 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20  s..     */..    
0b10: 54 63 6c 5f 53 65 74 56 61 72 28 69 6e 74 65 72  Tcl_SetVar(inter
0b20: 70 2c 20 22 74 63 6c 5f 72 63 46 69 6c 65 4e 61  p, "tcl_rcFileNa
0b30: 6d 65 22 2c 20 22 7e 2f 2e 63 77 69 73 68 72 63  me", "~/.cwishrc
0b40: 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e  ", TCL_GLOBAL_ON
0b50: 4c 59 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  LY);.    return 
0b60: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 23 69 66 20 54  TCL_OK;.}..#if T
0b70: 43 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f 4e  CL_MAJOR_VERSION
0b80: 20 3e 3d 20 38 0a 23 69 66 20 30 0a 76 6f 69 64   >= 8.#if 0.void
0b90: 20 70 61 6e 69 63 28 63 6f 6e 73 74 20 63 68 61   panic(const cha
0ba0: 72 20 2a 6d 73 67 29 0a 7b 0a 20 20 66 70 72 69  r *msg).{.  fpri
0bb0: 6e 74 66 28 73 74 64 65 72 72 2c 20 6d 73 67 29  ntf(stderr, msg)
0bc0: 3b 0a 20 20 65 78 69 74 28 31 29 3b 0a 7d 0a 23  ;.  exit(1);.}.#
0bd0: 65 6e 64 69 66 0a 23 65 6c 73 65 0a 20 20 23 65  endif.#else.  #e
0be0: 72 72 6f 72 20 54 43 4c 5f 4d 41 4a 4f 52 5f 56  rror TCL_MAJOR_V
0bf0: 45 52 53 49 4f 4e 0a 23 65 6e 64 69 66 0a        ERSION.#endif.