-/* program function */
-
-void prog (int id, int nbmems, element_t *root)
-{
- int i, n = -1;
-
- if (programs == NULL) {
-
- /* initial memory allocation */
- programs = (workspace_t *) calloc (1, sizeof (workspace_t));
- if (programs == NULL) {
- VERBOSE (ERROR, fprintf (stderr, "can't allocate memory\n"));
- exit (1);
- }
- nb_programs = 1;
- n = 0;
-
- } else {
-
- /* look for existing program */
- for (i = 0; i < nb_programs; i++) {
- if ((programs + i)->id == id) {
- n = i;
- break;
- }
- }
- if (n == -1) {
-
- /* new program */
- n = nb_programs++;
- programs = (workspace_t *) realloc (programs, nb_programs * sizeof (workspace_t));
- } else {
-
- /* clean old program */
- if ((programs + n)->storage) {
- free ((programs + n)->storage);
- }
- if ((programs + n)->root) {
- delelement ((programs + n)->root);
- }
- }
- }
-
- /* set program */
- (programs + n)->id = id;
- (programs + n)->answer = 0;
- (programs + n)->storage = (double *) calloc (nbmems, sizeof (double));
- if ((programs + n)->storage == NULL) {
- VERBOSE (ERROR, fprintf (stderr, "can't allocate memory\n"));
- exit (1);
- }
- (programs + n)->storage_size = nbmems;
- (programs + n)->root = root;
-}
-
-double call (int id, int nbobs, element_t **ops)
-{
- workspace_t tmp = {0};
- int i, n = -1;
- double ret = 0;
-
- if (programs) {
- for (i = 0; i < nb_programs; i++) {
- if ((programs + i)->id == i) {
- n = i;
- break;
- }
- }
-
- if (n == -1) {
- VERBOSE (WARNING, fprintf (stdout, "error unknown program (%d)\n", id));
- return 0;
- }
-
- /* store context */
- tmp.answer = answer;
- tmp.storage = storage;
- tmp.storage_size = storage_size;
-
- /* change context */
- answer = 0;
- storage = (programs + i)->storage;
- storage_size = (programs + i)->storage_size;
- if (nbobs > storage_size) {
- storage = realloc (storage, nbobs * sizeof (double));
- storage_size = nbobs;
- }
- for (i = 0; i < nbobs; i++) {
- store (i + 1, evaluate_element (ops[i], 0));
- }
-
- /* evaluate program */
- element_t *element = dupelement ((programs + n)->root);
- ret = evaluate_element (element, 0);
-
- /* restore context */
- answer = tmp.answer;
- storage = tmp.storage;
- storage_size = tmp.storage_size;
- }
-
- return ret;
-}
-
-void list ()
-{
- int i;
- if (programs != NULL) {
- fprintf (stdout, "programs:");
- for (i = 0; i < nb_programs; i++) {
- fprintf (stdout, " %d", (programs + i)->id);
- }
- fprintf (stdout, "\n");
- }
-}
-
-void edit (int id)
-{ }
-
-void del (int id)
-{ }
-