Check-in [df58e94263]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:fixed no args to wrap/unwrap commands
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:df58e94263ae3202a7c9623ff5620e472de18618d70a84755ca3b74fd7986bdf
User & Date: grable 2018-11-01 05:05:40
Context
2018-11-01
16:43
added exists command as a quicker and easier way to find symbols than info check-in: 4c5284048d user: grable tags: trunk
05:05
fixed no args to wrap/unwrap commands check-in: df58e94263 user: grable tags: trunk
05:02
removed jimff_test.tcl, since its tests keep changing anyway check-in: 66084d9a33 user: grable tags: trunk
Changes

Changes to jimff-commands.c.

525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
...
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
	int count = 0;
	int length;
	char* end;
	void* p;
	Jim_Obj* lastobj;
	Jim_Obj* array;
	
	if(argc >= 1 && Jim_CompareStringImmediate( interp, argv[1], "-packed")) {
		packed = 1;
		argv++;
		argc--;
	}
	
	if(argc < 3) {
wrongnumargs:
		Jim_WrongNumArgs( interp, 1, argv, "pointer typetag ?varNames...?");
		return JIM_ERR;
	}

	ptr = jimff_getpointer( ctx, argv[1], &size, 0);
	if(size == -1) goto err_not_pointer;
	if(!ptr) goto err_null_pointer;
	
................................................................................
	int count = 0;
	int length;
	char* end;
	Jim_Obj* lastobj;
	Jim_Obj* array;
	int numargs = 0;
	
	if(argc >= 1 && Jim_CompareStringImmediate( interp, argv[1], "-packed")) {
		packed = 1;
		argv++;
		argc--;
	}	
	
	if(argc < 4) {
wrongnumargs:







|







|







 







|







525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
...
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
	int count = 0;
	int length;
	char* end;
	void* p;
	Jim_Obj* lastobj;
	Jim_Obj* array;
	
	if(argc >= 2 && Jim_CompareStringImmediate( interp, argv[1], "-packed")) {
		packed = 1;
		argv++;
		argc--;
	}
	
	if(argc < 3) {
wrongnumargs:
		Jim_WrongNumArgs( interp, 1, argv, "?-packed? pointer typetag ?varNames...?");
		return JIM_ERR;
	}

	ptr = jimff_getpointer( ctx, argv[1], &size, 0);
	if(size == -1) goto err_not_pointer;
	if(!ptr) goto err_null_pointer;
	
................................................................................
	int count = 0;
	int length;
	char* end;
	Jim_Obj* lastobj;
	Jim_Obj* array;
	int numargs = 0;
	
	if(argc >= 2 && Jim_CompareStringImmediate( interp, argv[1], "-packed")) {
		packed = 1;
		argv++;
		argc--;
	}	
	
	if(argc < 4) {
wrongnumargs: