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