← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/plplot/intrepid

« back to all changes in this revision

Viewing changes to bindings/tcl/tclAPI.c

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2006-11-04 10:19:34 UTC
  • mfrom: (2.1.8 edgy)
  • Revision ID: james.westby@ubuntu.com-20061104101934-mlirvdg4gpwi6i5q
Tags: 5.6.1-10
* Orphaning the package
* debian/control: Changed the maintainer to the Debian QA Group

Show diffs side-by-side

added added

removed removed

Lines of Context:
bindings/tcl/tclAPI.c
1
 
/* $Id: tclAPI.c,v 1.57 2004/06/14 21:51:52 rlaboiss Exp $
 
1
/* $Id: tclAPI.c,v 1.60 2005/04/27 06:43:20 rlaboiss Exp $
2
2
 
3
3
    Copyright 1994, 1995
4
4
    Maurice LeBrun                      mjl@dino.ph.utexas.edu
21
21
 
22
22
    You should have received a copy of the GNU Library General Public License
23
23
    along with PLplot; if not, write to the Free Software
24
 
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 
24
    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
25
25
 
26
26
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
27
27
 
300
300
 
301
301
    argc--; argv++;
302
302
    if (argc == 0 || (strcmp(argv[0], "cmd") != 0)) {
303
 
        Tcl_AppendResult(interp, "bad option to \"loopback\": must be ",
 
303
        Tcl_AppendResult(interp, "bad option \"", argv[0],
 
304
                         "\" to \"loopback\": must be ",
304
305
                         "\"cmd ?options?\" ", (char *) NULL);
305
306
        return TCL_ERROR;
306
307
    }
324
325
 
325
326
    hPtr = Tcl_FindHashEntry(&cmdTable, argv[0]);
326
327
    if (hPtr == NULL) {
327
 
        Tcl_AppendResult(interp,
328
 
                         "bad option to \"loopback cmd\": must be one of ",
 
328
        Tcl_AppendResult(interp, "bad option \"", argv[0],
 
329
                         "\" to \"loopback cmd\": must be one of ",
329
330
                         (char *) NULL);
330
331
        Append_Cmdlist(interp);
331
332
        result = TCL_ERROR;
401
402
/* if we are in the build tree, search there */
402
403
    if (plInBuildTree()) {
403
404
        if (debug) fprintf(stderr, "trying BUILD_DIR\n");
404
 
        libDir = BUILD_DIR "/bindings/tk";
 
405
        libDir = BUILD_DIR "/bindings/tcl";
405
406
        Tcl_SetVar(interp, "pllibrary", libDir, TCL_GLOBAL_ONLY);
406
407
        if (Tcl_Eval(interp, initScript) != TCL_OK) {
407
408
            libDir = NULL;