99 lines
2.2 KiB
C
Vendored
99 lines
2.2 KiB
C
Vendored
/*
|
||
*----------------------------------------------------------------------
|
||
*
|
||
* tclTomMathInterface.c --
|
||
*
|
||
* This file contains procedures that are used as a 'glue' layer between
|
||
* Tcl and libtommath.
|
||
*
|
||
* Copyright © 2005 Kevin B. Kenny. All rights reserved.
|
||
*
|
||
* See the file "license.terms" for information on usage and redistribution of
|
||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||
*/
|
||
|
||
#include "tclInt.h"
|
||
#include "tclTomMath.h"
|
||
|
||
MODULE_SCOPE const TclTomMathStubs tclTomMathStubs;
|
||
|
||
/*
|
||
*----------------------------------------------------------------------
|
||
*
|
||
* TclTommath_Init --
|
||
*
|
||
* Initializes the TclTomMath 'package', which exists as a
|
||
* placeholder so that the package data can be used to hold
|
||
* a stub table pointer.
|
||
*
|
||
* Results:
|
||
* Returns a standard Tcl result.
|
||
*
|
||
* Side effects:
|
||
* Installs the stub table for tommath.
|
||
*
|
||
*----------------------------------------------------------------------
|
||
*/
|
||
|
||
int
|
||
TclTommath_Init(
|
||
Tcl_Interp *interp) /* Tcl interpreter */
|
||
{
|
||
/* TIP #268: Full patchlevel instead of just major.minor */
|
||
|
||
if (Tcl_PkgProvideEx(interp, "tcl::tommath", TCL_PATCH_LEVEL,
|
||
&tclTomMathStubs) != TCL_OK) {
|
||
return TCL_ERROR;
|
||
}
|
||
return TCL_OK;
|
||
}
|
||
|
||
/*
|
||
*----------------------------------------------------------------------
|
||
*
|
||
* TclBN_epoch --
|
||
*
|
||
* Return the epoch number of the TclTomMath stubs table
|
||
*
|
||
* Results:
|
||
* Returns an arbitrary integer that does not decrease with
|
||
* release. Stubs tables with different epochs are incompatible.
|
||
*
|
||
*----------------------------------------------------------------------
|
||
*/
|
||
|
||
int
|
||
TclBN_epoch(void)
|
||
{
|
||
return TCLTOMMATH_EPOCH;
|
||
}
|
||
|
||
/*
|
||
*----------------------------------------------------------------------
|
||
*
|
||
* TclBN_revision --
|
||
*
|
||
* Returns the revision level of the TclTomMath stubs table
|
||
*
|
||
* Results:
|
||
* Returns an arbitrary integer that increases with revisions.
|
||
* If a client requires a given epoch and revision, any Stubs table
|
||
* with the same epoch and an equal or higher revision satisfies
|
||
* the request.
|
||
*
|
||
*----------------------------------------------------------------------
|
||
*/
|
||
|
||
int
|
||
TclBN_revision(void)
|
||
{
|
||
return TCLTOMMATH_REVISION;
|
||
}
|
||
|
||
/*
|
||
* Local Variables:
|
||
* mode: c
|
||
* c-basic-offset: 4
|
||
* fill-column: 78
|
||
* End:
|
||
*/
|