Revision: 65581
http://sourceforge.net/p/brlcad/code/65581
Author: starseeker
Date: 2015-07-11 23:48:45 +0000 (Sat, 11 Jul 2015)
Log Message:
-----------
Completely remove tcl.h from sketch.c
Modified Paths:
--------------
brlcad/trunk/src/librt/primitives/sketch/sketch.c
Modified: brlcad/trunk/src/librt/primitives/sketch/sketch.c
===================================================================
--- brlcad/trunk/src/librt/primitives/sketch/sketch.c 2015-07-11 23:46:14 UTC
(rev 65580)
+++ brlcad/trunk/src/librt/primitives/sketch/sketch.c 2015-07-11 23:48:45 UTC
(rev 65581)
@@ -35,7 +35,6 @@
#include <ctype.h>
#include "bnetwork.h"
-#include "tcl.h"
#include "vmath.h"
#include "bu/debug.h"
#include "bu/cv.h"
@@ -2620,18 +2619,14 @@
skt->vert_count = len / 2;
} else if (BU_STR_EQUAL(argv[0], "SL")) {
/* the entire segment list */
- Tcl_Obj *tmp;
struct rt_curve *crv;
- /* create a Tcl object */
- tmp = Tcl_NewStringObj(argv[1], -1);
-
crv = &skt->curve;
crv->count = 0;
crv->reverse = (int *)NULL;
crv->segment = (void **)NULL;
- if ((ret=get_tcl_curve(logstr, crv, argv[1])) != TCL_OK)
+ if ((ret=get_tcl_curve(logstr, crv, argv[1])) != 0)
return ret;
} else if (*argv[0] == 'V' && isdigit((int)*(argv[0]+1))) {
/* changing a specific vertex */
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Don't Limit Your Business. Reach for the Cloud.
GigeNET's Cloud Solutions provide you with the tools and support that
you need to offload your IT needs and focus on growing your business.
Configured For All Businesses. Start Your Cloud Today.
https://www.gigenetcloud.com/
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
