Mercurial > hg > jgplsrc

annotate jlib.h @ 0:e0bbaa717f41 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
lol J
author Jordi Gutiérrez Hermoso <jordigh@octave.org>
date Mon, 25 Nov 2013 11:56:30 -0500 (2013-11-25)
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
1 /* Copyright 1990-2011, Jsoftware Inc. All rights reserved. */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
2 /* License in license.txt. */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
4 J _stdcall JInit(); /* init instance */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
5 void _stdcall JSM(J jt, void*callbacks[]); /* set callbacks */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
6 int _stdcall JDo(J jt,C*); /* run sentence */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
7 C* _stdcall JGetLocale(J jt); /* get locale */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
8 int _stdcall JFree(J jt); /* free instance */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
9 A _stdcall JGetA(J jt,I n,C* name); /* get 3!:1 from name */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
10 I _stdcall JSetA(J jt,I n,C* name,I x,C* d);/* name=:3!:2 data */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
11
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
12 typedef void* (_stdcall *JInitType) ();
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
13 typedef int (_stdcall *JDoType) (void*, C*);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
14 typedef C* (_stdcall *JGetLocaleType)(void*);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
15 typedef void (_stdcall *JSMType) (void*, void*);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
16 typedef void (_stdcall *JFreeType) (void*);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
17 typedef A (_stdcall *JgaType) (J jt, I t, I n, I r, I*s);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
18
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
19 /* void* callbacks[] = {Joutput, Jwd, Jinput, unused, smoptions}; */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
20
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
21 typedef void (_stdcall * outputtype)(J,int,C*);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
22 typedef int (_stdcall * dowdtype) (J,int, A, A*);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
23 typedef C* (_stdcall * inputtype) (J,C*);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
24
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
25 void _stdcall Joutput(J jt, int type, C* s);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
26 int _stdcall Jwd(J jt, int x, A parg, A* pres);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27 C* _stdcall Jinput(J jt, C*);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29 // output type
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
30 #define MTYOFM 1 /* formatted result array output */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
31 #define MTYOER 2 /* error output */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
32 #define MTYOLOG 3 /* output log */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
33 #define MTYOSYS 4 /* system assertion failure */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
34 #define MTYOEXIT 5 /* exit */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
35 #define MTYOFILE 6 /* output 1!:2[2 */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
36
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
37 // smoptions
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
38 #define SMWIN 0 /* j.exe Jwdw (Windows) front end */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
39 #define SMJAVA 2 /* j.jar Jwdp (Java) front end */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
40 #define SMCON 3 /* jconsole */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
41