Check-in [0938293f53]
Overview
Comment:Ensure the correct version of the package is provided
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 0938293f533e68381298efe69e004b521ead553af1898dae24388b411cdfe006
User & Date: rkeene on 2018-07-03 06:03:04
Other Links: manifest | tags
Context
2018-07-03
19:03
Use a dict for account tracking check-in: 4dba0fcb54 user: rkeene tags: trunk
06:03
Ensure the correct version of the package is provided check-in: 0938293f53 user: rkeene tags: trunk
05:58
Updated missing ignores check-in: 82b672fc7f user: rkeene tags: trunk
Changes

Modified nano.c from [3fe2cef44c] to [7904158504].

335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
	return(TCL_OK);

	/* NOTREACH */
	clientData = clientData;
}

int Nano_Init(Tcl_Interp *interp) {
	int te_ret;
	const char nanoInitScript[] = {
#include "nano.tcl.h"
		0x00
	};
#ifdef USE_TCL_STUBS
	const char *tclInitStubs_ret;








|







335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
	return(TCL_OK);

	/* NOTREACH */
	clientData = clientData;
}

int Nano_Init(Tcl_Interp *interp) {
	int te_ret, tpp_ret;
	const char nanoInitScript[] = {
#include "nano.tcl.h"
		0x00
	};
#ifdef USE_TCL_STUBS
	const char *tclInitStubs_ret;

364
365
366
367
368
369
370





371
372
373

	if (interp) {
		te_ret = Tcl_Eval(interp, nanoInitScript);
		if (te_ret != TCL_OK) {
			return(te_ret);
		}
	}






	return(TCL_OK);
}







>
>
>
>
>



364
365
366
367
368
369
370
371
372
373
374
375
376
377
378

	if (interp) {
		te_ret = Tcl_Eval(interp, nanoInitScript);
		if (te_ret != TCL_OK) {
			return(te_ret);
		}
	}

	tpp_ret = Tcl_PkgProvide(interp, "nano", PACKAGE_VERSION);
	if (tpp_ret != TCL_OK) {
		return(tpp_ret);
	}

	return(TCL_OK);
}

Modified nano.tcl from [f244565700] to [8dfa10c41c].

726
727
728
729
730
731
732
733
734
	foreach accountPubKeyBlockHash [array names ::nano::account::pending [list $accountPubKey *]] {
		set blockHash [lindex $accountPubKeyBlockHash 1]
		lappend outBlocks [receive $account $blockHash $signKey]
	}

	return $outBlocks
}

package provide nano 0







<
<
726
727
728
729
730
731
732


	foreach accountPubKeyBlockHash [array names ::nano::account::pending [list $accountPubKey *]] {
		set blockHash [lindex $accountPubKeyBlockHash 1]
		lappend outBlocks [receive $account $blockHash $signKey]
	}

	return $outBlocks
}