RE: C Functions (service programs)

["Jon Paris" <Jon.Paris@xxxxxxxxxxxxxx>]

Easiest answer I can think of (assuming you don't have access to the C
compiler) is to write a small RPG IV program that prototypes a few of the
functions (just the name on the PR is enough since you'll never call it.
Add DFTACTGRP(*NO) and BNDDIR('QC2LE') to the H spec compile and do a DSPPGM
to see which SPs were used.

Jon Paris
Partner400



-----Original Message-----
From: java400-l-admin@midrange.com
[mailto:java400-l-admin@midrange.com]On Behalf Of Mike Silvers
Sent: Friday, October 05, 2001 4:03 PM
To: Java400L List
Subject: C Functions (service programs)


Hi All.  I am converting some classes from a MS platform to the AS400.  I
need to load a service program.  Does anyone know which service program on
the 400 holds the C code for the bignum procedures?

I am particularly interested in:

    private native static int bignum_test();
    private native int bignum_new();
    private native void bignum_free();

    private native static int bignum_copy(BigNum a, BigNum b);
    private native static int bignum_iszero(BigNum a);
    private native static int bignum_grow(BigNum a, int i);
    private native static int bignum_bytelen();
    private native static int bignum_bitlen(BigNum a);

    private native int bignum_into_bytes(byte[] buffer);
    private native int bignum_from_bytes(byte[] buffer);

    private native int setToOne();
    private native int setToZero();

    private native static int bignum_add_word(BigNum a, int w);
    private native static int bignum_set_word(BigNum a, int w);
    private native static int bignum_add(BigNum r, BigNum a, BigNum b);
    private native static int bignum_sub(BigNum r, BigNum a, BigNum b);
    private native static int bignum_cmp(BigNum a, BigNum b);
    private native static int bignum_ucmp(BigNum a, BigNum b);

    // was hashCode() - need to fix the native library.
    public native int bignum_hashCode(); // just returns the MSB word.

    private native static int bignum_mul(BigNum r, BigNum a, BigNum b);
    private native static int bignum_mod(BigNum rem, BigNum m, BigNum d);
    private native static int bignum_div(BigNum dv, BigNum rem, BigNum m,
BigNum d);
    private native static int bignum_lshift(BigNum r, BigNum a, short n);
    private native static int bignum_lshift1(BigNum r, BigNum a);
    private native static int bignum_rshift(BigNum r, BigNum a, short n);
    private native static int bignum_rshift1(BigNum r, BigNum a);
    private native static int bignum_mod_exp(BigNum r, BigNum a, BigNum p,
BigNum m);
    private native static int bignum_modmul_recip(BigNum r, BigNum x, BigNum
y, BigNum m, BigNum i, short nb);
    private native static int bignum_mod_mul(BigNum r, BigNum a, BigNum b,
BigNum m);
    // was bignum_reciprical() - need to fix the native library.
    private native static int bignum_reciprocal(BigNum r, BigNum m);
    private native static int bignum_gcd(BigNum r, BigNum a, BigNum b);
    private native static int bignum_inverse_modn(BigNum r, BigNum a, BigNum
n);


Mike


================================

Mike Silvers
AS/400 Senior Programmer/Analyst
AS/400 IBM Certified RPG IV Developer
AS/400 IBM Certified Solutions Expert
Hainey Business Systems
8 E. Canal St
Dover, PA 17315
Branch Office:  (410) 397-8739
Phone:  (800) 932-3380
Fax:  (717) 292-9474
Web: http://www.hbs-inc.com
________________________________
Providing E-Commerce, EDI, AS/400
Development and related services
nationwide.
================================


_______________________________________________
This is the Java Programming on and around the iSeries / AS400 (JAVA400-L)
mailing list
To post a message email: JAVA400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/java400-l
or email: JAVA400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/java400-l.