Changeset 5903 for branches/1.5
- Timestamp:
- Oct 8, 2015, 1:56:45 PM (9 years ago)
- Location:
- branches/1.5
- Files:
-
- 1 added
- 1 deleted
- 24 moved
Legend:
- Unmodified
- Added
- Removed
-
branches/1.5/pkgs/readpoints/readPoints.c
r5902 r5903 88 88 return TCL_OK; 89 89 } 90 90 91 91 /* 92 92 * ReadPoints string dimVar pointsVar … … 167 167 /* 168 168 * ------------------------------------------------------------------------ 169 * R pReadPoints_Init --169 * Rappture_readpoints_Init -- 170 170 * 171 171 * Invoked when the Rappture GUI library is being initialized 172 * to install the " ConvertDxToVtk" command into the interpreter.172 * to install the "readpoints" command into the interpreter. 173 173 * 174 174 * Returns TCL_OK if successful, or TCL_ERROR (along with an error … … 177 177 */ 178 178 int 179 R pReadPoints_Init(Tcl_Interp *interp)179 Rappture_readpoints_Init(Tcl_Interp *interp) 180 180 { 181 181 /* install the widget command */ 182 Tcl_CreateObjCommand(interp, "Rappture:: ReadPoints", ReadPoints,182 Tcl_CreateObjCommand(interp, "Rappture::readpoints", ReadPoints, 183 183 NULL, NULL); 184 184 return TCL_OK; -
branches/1.5/pkgs/squeezer/RpSqueezer.c
r5902 r5903 30 30 Tcl_Interp *interp, int argc, CONST char **argv)); 31 31 32 /*33 * ------------------------------------------------------------------------34 * RpSqueezer_Init --35 *36 * Installs the "squeezer" command in a Tcl interpreter.37 *38 * Returns TCL_OK if successful, or TCL_ERROR (along with an error39 * message in the interp) if anything goes wrong.40 * ------------------------------------------------------------------------41 */42 int43 RpSqueezer_Init(interp)44 Tcl_Interp *interp; /* interpreter being initialized */45 {46 /* install the widget command */47 Tcl_CreateCommand(interp, "squeezer", RpSqueezerCmd,48 NULL, NULL);49 50 return TCL_OK;51 }52 32 53 33 /* … … 199 179 } 200 180 } 181 #if (TK_MAJOR_VERSION == 8 && TK_MINOR_VERSION >= 5) 182 if (Tk_PhotoSetSize(interp, destPhoto, destw, srch) != TCL_OK) { 183 return TCL_ERROR; 184 } 185 if (Tk_PhotoPutBlock(interp, destPhoto, &destBlock, 0, 0, destBlock.width, 186 destBlock.height, TK_PHOTO_COMPOSITE_SET) != TCL_OK) { 187 return TCL_ERROR; 188 } 189 #else 201 190 Tk_PhotoSetSize(destPhoto, destw, srch); 202 191 Tk_PhotoPutBlock(destPhoto, &destBlock, 0, 0, 203 192 destBlock.width, destBlock.height, TK_PHOTO_COMPOSITE_SET); 204 193 #endif 205 194 ckfree((char*)destBlock.pixelPtr); 206 195 return TCL_OK; 207 196 } 197 198 /* 199 * ------------------------------------------------------------------------ 200 * RapptureSqueezer_Init -- 201 * 202 * Installs the "squeezer" command in a Tcl interpreter. 203 * 204 * Returns TCL_OK if successful, or TCL_ERROR (along with an error 205 * message in the interp) if anything goes wrong. 206 * ------------------------------------------------------------------------ 207 */ 208 int 209 Rappture_squeezer_Init(interp) 210 Tcl_Interp *interp; /* interpreter being initialized */ 211 { 212 /* install the widget command */ 213 Tcl_CreateCommand(interp, "squeezer", RpSqueezerCmd, 214 NULL, NULL); 215 216 return TCL_OK; 217 } -
branches/1.5/pkgs/system/curses.c
r5902 r5903 22 22 * ====================================================================== 23 23 */ 24 #include "config.h" 24 25 #include "tcl.h" 25 26 #include <string.h> -
branches/1.5/pkgs/system/init.c
r5902 r5903 22 22 #endif 23 23 24 extern Tcl_AppInitProc Rappture _Init;24 extern Tcl_AppInitProc RapptureSystem_Init; 25 25 extern Tcl_AppInitProc RpRlimit_Init; 26 26 extern Tcl_AppInitProc RpRusage_Init; … … 31 31 extern Tcl_AppInitProc RpCurses_Init; 32 32 33 #ifdef notdef34 extern Tcl_AppInitProc RpLibrary_Init;35 #endif36 extern Tcl_AppInitProc RpUnits_Init;37 extern Tcl_AppInitProc RpEncoding_Init;38 extern Tcl_AppInitProc RpUtils_Init;39 40 33 #ifdef BUILD_Rappture 41 34 __declspec( dllexport ) 42 35 #endif 43 36 int 44 Rappture_ Init( Tcl_Interp * interp)37 Rappture_system_Init( Tcl_Interp * interp) 45 38 { 46 39 #ifdef _WIN32 47 40 rpWinInitJob(); 48 41 #endif 49 if (Tcl_InitStubs(interp, "8.4", 0) == NULL) {50 return TCL_ERROR;51 }52 if (Tcl_PkgProvide(interp, "Rappture", RAPPTURE_VERSION) != TCL_OK) {53 return TCL_ERROR;54 }55 #ifdef notdef56 if (RpLibrary_Init(interp) != TCL_OK) {57 return TCL_ERROR;58 }59 #endif60 if (RpUnits_Init(interp) != TCL_OK) {61 return TCL_ERROR;62 }63 if (RpEncoding_Init(interp) != TCL_OK) {64 return TCL_ERROR;65 }66 if (RpUtils_Init(interp) != TCL_OK) {67 return TCL_ERROR;68 }69 42 if (RpRlimit_Init(interp) != TCL_OK) { 70 43 return TCL_ERROR; … … 85 58 return TCL_ERROR; 86 59 } 60 #ifdef HAVE_LIBNCURSES 87 61 if (RpCurses_Init(interp) != TCL_OK) { 88 62 return TCL_ERROR; 89 63 } 64 #endif 90 65 return TCL_OK; 91 66 } -
branches/1.5/pkgs/system/op.c
r5902 r5903 1 1 2 2 /* 3 * RpOp.c --3 * op.c -- 4 4 * 5 5 * This module implements utility procedures for the BLT toolkit. … … 32 32 #include <tcl.h> 33 33 #include <string.h> 34 #include " RpOp.h"34 #include "op.h" 35 35 /* 36 36 *--------------------------------------------------------------------------- -
branches/1.5/pkgs/system/rlimit.c
r5902 r5903 25 25 26 26 #include <errno.h> 27 #include " RpOp.h"27 #include "op.h" 28 28 29 29 static Tcl_ObjCmdProc RpRlimitCmd; -
branches/1.5/pkgs/system/rusage.c
r5902 r5903 24 24 #endif 25 25 26 #include " RpOp.h"26 #include "op.h" 27 27 28 28 /* -
branches/1.5/pkgs/system/switch.c
r5902 r5903 34 34 #include <stdlib.h> 35 35 #include <tcl.h> 36 #include " Switch.h"36 #include "switch.h" 37 37 38 38 static void
Note: See TracChangeset
for help on using the changeset viewer.