/*
   ACHTUNG pb de synonimie avec form.* de ncurses
   j'utilise ~/thermo/fwt/uform.* qui est la m^eme chose
*/
#ifndef JFORM_H
#define JFORM_H
	
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <assert.h>
#include <jtools.h> //     -lj  pour les classes vec pil et set

#define MAXELM           94   /* 92+ 1 (O18) + 1 */

extern void
symbel(int *za, char *symb);

/* function sur le mod�e xxx strtox(char*, char**) */
extern int
zat(char *s, char **t);
  int r, j, k0, k1;

extern double
fchtod(double*, char*, char**, set);

extern bool
sysapp(char *ph, char *sy, int *out);

// Prototypes compatibles avec Scilab

extern void         // p1:symbole -> p2:Numero atomique
za(char *f, int *z);

extern void         // p1:formule -> p2:masse formulaire
fw(char *f, double *w);

extern void         //p1:formule -> p2:entropie standard formulaire ��entaire
fs(char *f, double *s);     // en kJ

extern void         //p1:formule -> p2:entropie std. * 298.15
fs298(char *f, double *s);  // en kJ

extern void         //p1:formule, p2:zatom -> p3 stoechio
stoe(char *f, int *z, double *s);

extern void // ajou. au syst. z(n) ��. de la formule f -> zz(nn)
sysadd(char *f, int *z, int *n, int *zz, int *nn);

extern int  // f appartient au syst�e z
sysin(char *f, int *z, int *n, int *ret);

#endif /* JFORM_H */
