h54664
s 00169/00000/00000
d D 1.1 83/03/24 13:54:54 lib 1 0
c date and time created 83/03/24 13:54:54 by lib
e
u
4
U
t
T
I 1
(* IKRNPAS.SRC
        Include file for Pascal Kernel Interface.
        type ia = array [1..n] of integer;
             ra = array [1..n] of real;
*)
 
external procedure gioini (var i : integer);
 
external function gitoch (var val : integer; var str : ia; var siz,
                          ierr : integer) : integer;
external procedure gdstot (var ilen : ia; var str : ia);
 
external procedure gdstin (var ilenin : integer; var str : ia; var ilenout :
                        integer);
external procedure gdevot (var ch : integer);
 
external procedure gdevin (var ch : integer);
 
external procedure gcstot (var ilen : integer; var str : ia);
 
external procedure gcstin (var ilenin : integer; var str : ia; var ilen :
                        integer);
external procedure gchrot (var ch : integer);
 
external procedure gchrin (var ch : integer);
 
external procedure gchtoi (var str : ia; var i, valu, stop : integer);
 
external procedure giaip (var wtype, errind : integer; var ninput : ia);
 
external procedure giwkct (var id, err, conid, wktype : integer);
 
external procedure giwkt (var id, err, tus: integer; rwind, cwind, rvwpt,
                          cwvpt: ra);
external procedure giwks (var id, err, state, mode, regmod, nfram :
                        integer);
external procedure gitxex (var wkid : integer; var px, py : real; var
                        il, nch : integer; var str : ia; var err : integer;
                        var cpx, cpy : real; var txtent : ra);
external procedure gitxf (var wtyp, err : integer; var ntxi : ia; var
                        rtxi : ra);
external procedure gipmf (var wtype, err : integer; var npmi : ia; var
                        rpmi : ra);
external procedure giplf (var wtyp, err : integer; var npli : ia; var
                        rpli : ra);
external procedure gipaf (var wtype, err, nppai : integer);
 
external procedure gint (var il, errind, ol : integer; var nprio : ia;
                        var wxmin, wxmax, wymin, wymax, vxmin, vxmax,
                        vymin, vymax : ra);
external procedure gimxnt (var err, maxtnr : integer);
 
external procedure gimxds (var wkid, err, unit : integer; var lx, ly : real;
                        var rx, ry : integer);
external procedure gikslv  (var err, lev : integer);
 
external procedure gifaf (var wtyp, err : integer; var npfai : ia);
 
external procedure gicspa (var err : integer; var inta : ia; var pa : ra);
 
external procedure gicr (var id, coli, wtyp, err : integer; var r, g, b :
                        real);
external procedure gicntn (var err, cntr : integer);
 
external procedure gicnt (var err, cntnr : integer; var wx, wxmax, wy, wymax,
                        vx, vxmax, vy, vymax : real);
external procedure giclin (var err, clip : integer);
 
external procedure giclad (var id : integer; var pxy : ra;
                        var err, n, m : integer);
external procedure gicla (var wkid : integer; var pxy : ra ; var nmax,
                        mmax, errind, invval, n, m : integer; colia : ia);
external procedure gicl (var wkid : integer; var px, py : real; var err, coli
                        : integer);
external procedure giciav (var err : integer; var ivals : ia; var rvals : ra);
 
external procedure gici (var id, il, err, ol : integer; var colind : ia);
 
external procedure gicf (var wtyp, err : integer; var nci : ia);
 
external procedure giagdp (var wtyp, np, err, ngdp : integer; gdpl, atrtab :
                           ia);
external procedure grqvl (var id, vldnr : integer; var inival : real; valrng :
                        ra; var stat : integer; var val : real);
external procedure grqst (var wkid, stdnr, l, echo, stat, strl : integer; var
                        str : ia);
external procedure grqlc (var id, dnr : integer; var px, py : real; var
                        stat, tnr : integer; var qx, qy : real; var
                        tmtr : integer);
external procedure grqch (var id, dnr, inich, stat, chnr : integer);
 
external procedure gswkw (var xmin, xmax, ymin, ymax : real);
 
external procedure gswkvw (var xmin, xmax, ymin, ymax : real);
 
external procedure gsw (var rn : integer; var xmin, xmax, ymin, ymax : real);
 
external procedure gsvw (var tru : integer; var xmin, xmax, ymin, ymax :
                        real);
external procedure gselnt (var trn : integer);
 
external procedure gsclin (var slip : integer);
 
external procedure gstxpr (var pre : integer);
 
external procedure gstxft (var font :integer);
 
external procedure gstxci (var col : integer);
 
external procedure gsmssf (var scale : real);
 
external procedure gspmt (var typ : integer);
 
external procedure gspmci (var ind : integer);
 
external procedure gsplt (var ind : integer);
 
external procedure gsplci (var ind : integer);
 
external procedure gslwsf (var scal : real);
 
external procedure gsfasi (var ind : integer);
 
external procedure gsfais (var styl : integer);
 
external procedure gsfaci (var ind : integer);
 
external procedure gscr (var id, ci : integer; var r, g, b : real);
 
external procedure gschu (var x,y : real);
 
external procedure gschh (var hei : real);
 
external procedure gschal (var hori, vert : integer);
 
external procedure gtx (var xo, yo : real; var l, lstr : integer; var chars
                        : ia);
external procedure gcla (var pxy : ra; var nmax, mmax : integer; var
                        colia : ia);
external procedure gpm (var n : integer; var x, y : ra);
 
external procedure gpl (var n : integer; var x, y : ra);
 
external procedure ggdp (var n : integer; var px, py : ra; var primid,
                        il : integer; var add : ia);
external procedure gfa (var n : integer; var x, y : ra);
 
external procedure gupdwk (var id : integer);
 
external procedure gopwk (var id, donid, wtyp : integer);
 
external procedure gopks (var err : integer);
 
external procedure gesc (var id, il : integer; var inarr : ia; var ol :
                        integer; var outarr : ia);
external procedure geclks;
 
external procedure gdawk (var id : integer);
 
external procedure gclwk (var id : integer);
 
external procedure gclrwk (var id, cofl : integer);
 
external procedure gclks;
 
external procedure gacwk (var id : integer);
 
(* End of IKRNPAS.SRC *)
 
E 1
