25 #include "pips_config.h"
61 (void)
fprintf(stderr,
"EXPRESSION UNDEFINED\n");
64 (
void)
fprintf(stderr,
"Arg. \"e\"is not an expression.\n");
67 (void)
fprintf(stderr,
"syntax = ");
69 (void)
fprintf(stderr,
"\nnormalized = ");
73 (
void)
fprintf(stderr,
"NORMALIZED UNDEFINED\n");
131 fprintf(fd,
"reference undefined\n");
134 fprintf(fd,
"Not a Newgen \"reference\" object\n");
150 fputs(
"NIL", stderr);
160 (void) putc(
'\n', stderr);
171 (void)
fprintf(stderr,
"COMPLEX\n");
191 asprintf(&cmd,
"maxima -q --batch-string \"string(fullratsimp(%s));\"\n",str);
193 FILE* pout = popen(cmd,
"r");
196 fgetc(pout);fgetc(pout);
198 while(!feof(pout) && fgetc(pout)!=
'%');
201 fgetc(pout);fgetc(pout);fgetc(pout);
203 char bufline[strlen(cmd)];
204 if(fscanf(pout,
" %s\n",&bufline[0]) == 1 ) {
235 for(aux_l = exp_l; aux_l !=
NIL; aux_l =
CDR(aux_l))
void free_expression(expression p)
void vect_debug(Pvecteur v)
constraint.c
expression string_to_expression(const char *s, entity module)
Functions using simultaneously pipsdbm, which is based on strings, and ri-util, which contains basic ...
entity get_current_module_entity(void)
Get the entity of the current module.
#define ENDP(l)
Test if a list is empty.
#define NIL
The empty list (nil in Lisp)
#define CAR(pcons)
Get the value of the first element of a list.
void gen_free_list(list l)
free the spine of the list
#define FOREACH(_fe_CASTER, _fe_item, _fe_list)
Apply/map an instruction block on all the elements of a list.
#define CDR(pcons)
Get the list less its first element.
#define MAPL(_map_list_cp, _code, _l)
Apply some code on the addresses of all the elements of a list.
#define MAP(_map_CASTER, _map_item, _map_code, _map_list)
Apply/map an instruction block on all the elements of a list (old fashioned)
int f(int off1, int off2, int n, float r[n], float a[n], float b[n])
void print_references(list rl)
void print_expressions(list le)
void fprint_list_of_exp(FILE *fp, list exp_l)
void fprint_list_of_exp(FILE *fp, list exp_l): prints in the file "fp" the list of expression "exp_l"...
void print_normalized(normalized n)
void print_syntax_expressions(list le)
bool maxima_simplify(expression *presult)
call maxima to simplify an expression prefer simplify_expression !
void fprint_reference(FILE *fd, reference r)
void print_reference_list(list lr)
string reference_to_string(reference r)
void fprint_expression(FILE *f, expression e)
expression.c
void print_syntax(syntax s)
void print_expression(expression e)
no file descriptor is passed to make is easier to use in a debugging stage.
string expression_to_string(expression e)
void print_reference(reference r)
list words_syntax(syntax obj, list *ppdl)
exported for expression.c
list words_expression(expression obj, list *ppdl)
This one is exported.
list words_reference(reference obj, list *ppdl)
const char * entity_local_name(entity e)
entity_local_name modified so that it does not core when used in vect_fprint, since someone thought t...
#define normalized_undefined
#define expression_domain
newgen_execution_domain_defined
#define REFERENCE(x)
REFERENCE.
#define normalized_complex_p(x)
#define reference_variable(x)
#define reference_undefined_p(x)
#define EXPRESSION(x)
EXPRESSION.
#define reference_domain
newgen_range_domain_defined
#define expression_undefined
#define expression_normalized(x)
#define expression_undefined_p(x)
#define reference_domain_number(x)
#define normalized_linear(x)
#define expression_syntax(x)
#define expression_domain_number(x)
int fprintf()
test sc_min : ce test s'appelle par : programme fichier1.data fichier2.data ...
le type des coefficients dans les vecteurs: Value est defini dans le package arithmetique
The structure used to build lists in NewGen.
string words_to_string(cons *lw)
void print_words(FILE *fd, cons *lw)
#define exp
Avoid some warnings from "gcc -Wshadow".