pnome-alloc.c File Reference

#include <stdio.h>
#include <stdlib.h>
#include "linear_assert.h"
#include "boolean.h"
#include "arithmetique.h"
#include "vecteur.h"
#include "polynome.h"

Include dependency graph for pnome-alloc.c:

Go to the source code of this file.

Functions
Pmonome	new_monome ()
	INTLIBRARY. More...
Ppolynome	new_polynome ()
	allocation of an unitialized polynome (to avoid various direct unchecked call to malloc) More...
Pmonome	make_monome (float coeff, Variable var, Value expo)
	Pmonome make_monome(float coeff, Variable var, Value expo) PRIVATE allocates space for, and creates, the monome "coeff*var^expo". More...
Ppolynome	make_polynome (float coeff, Variable var, Value expo)
	Ppolynome make_polynome(float coeff, Variable var, Value expo) PRIVATE allocates space for, and creates, the polynome "coeff*var^expo". More...
Ppolynome	monome_to_new_polynome (Pmonome pm)
	Ppolynome monome_to_new_polynome(Pmonome pm) PRIVATE allocates space for, and creates the polynomial containing the monomial pointed by pm, which is NOT duplicated but attached to the polynomial. More...
Pmonome	monome_dup (Pmonome pm)
	Pmonome monome_dup(Pmonome pm) PRIVATE creates and returns a copy of pm. More...
void	monome_rm (Pmonome *ppm)
	void monome_rm(Pmonome* ppm) PRIVATE frees space occupied by monomial *ppm returns *ppm pointing to MONOME_NUL !usage: monome_rm(&pm); More...
void	polynome_rm (Ppolynome *ppp)
	void polynome_rm(Ppolynome* ppp) frees space occupied by polynomial *ppp returns *ppp pointing to POLYNOME_NUL !usage: polynome_rm(&pp); More...
Ppolynome	polynome_free (Ppolynome pp)
	Ppolynome polynome_free(Ppolynome pp) frees space occupied by polynomial pp returns pp == POLYNOME_NUL !usage: polynome_rm(pp);. More...
Ppolynome	polynome_dup (Ppolynome pp)
	Ppolynome polynome_dup(Ppolynome pp) creates and returns a copy of pp. More...

Function Documentation

make_monome()

Pmonome make_monome	(	float	coeff,
		Variable	var,
		Value	expo
	)

Pmonome make_monome(float coeff, Variable var, Value expo) PRIVATE allocates space for, and creates, the monome "coeff*var^expo".

Parameters

coeff	oeff
var	ar
expo	xpo

Definition at line 81 of file pnome-alloc.c.

{
  if (coeff == 0)
    return MONOME_NUL;
 
  Pmonome pm = new_monome();
  monome_coeff(pm) = coeff;
  if (value_zero_p(expo))
    monome_term(pm) = vect_new(TCST, VALUE_ONE);
  else
    monome_term(pm) = vect_new(var, expo);
 
  return pm;
}

References monome_coeff, MONOME_NUL, monome_term, new_monome(), TCST, VALUE_ONE, value_zero_p, and vect_new().

Referenced by make_polynome(), number_replaces_var(), polynome_decr(), polynome_incr(), polynome_scalar_add(), polynome_scalar_addition(), and polynome_sscanf().

Here is the call graph for this function:

Here is the caller graph for this function:

make_polynome()

Ppolynome make_polynome	(	float	coeff,
		Variable	var,
		Value	expo
	)

Ppolynome make_polynome(float coeff, Variable var, Value expo) PRIVATE allocates space for, and creates, the polynome "coeff*var^expo".

Parameters

coeff	oeff
var	ar
expo	xpo

Definition at line 100 of file pnome-alloc.c.

{
    Pmonome m = make_monome(coeff, var, expo);
    assert(!MONOME_UNDEFINED_P(m));
    Ppolynome p = monome_to_new_polynome(m);
    return p;
}

References assert, make_monome(), monome_to_new_polynome(), and MONOME_UNDEFINED_P.

Referenced by add_constraint_on_x(), apply_farkas(), complexity_float_add(), complexity_sigma(), create_farkas_poly(), enode_to_polynome(), evalue_to_polynome(), expression_to_polynome(), make_polynome_Xe(), make_single_var_complexity(), mapping_on_broadcast(), my_vecteur_to_polynome(), old_vecteur_to_polynome(), plc_make_proto(), polynome_power_n(), polynome_sum_of_power(), pvecteur_to_polynome(), reference_to_polynome(), sc_enumerate(), vecteur_mult(), and vecteur_to_polynome().

Here is the call graph for this function:

Here is the caller graph for this function:

monome_dup()

Pmonome monome_dup

(

Pmonome

pm

)

Pmonome monome_dup(Pmonome pm) PRIVATE creates and returns a copy of pm.

Parameters

pm

m

Definition at line 132 of file pnome-alloc.c.

{
    if (MONOME_NUL_P(pm))
        return (MONOME_NUL);
    else if (MONOME_UNDEFINED_P(pm))
        return (MONOME_UNDEFINED);
    else {
        Pmonome pmd = new_monome();
        monome_coeff(pmd) = monome_coeff(pm);
        monome_term(pmd) = vect_dup(monome_term(pm));
        return(pmd);
    }
}

References monome_coeff, MONOME_NUL, MONOME_NUL_P, monome_term, MONOME_UNDEFINED, MONOME_UNDEFINED_P, new_monome(), and vect_dup().

Referenced by monome_gen_copy_tree(), polynome_dup(), polynome_monome_add(), polynome_monome_addition(), and polynome_roots().

Here is the call graph for this function:

Here is the caller graph for this function:

monome_rm()

void monome_rm

(

Pmonome *

ppm

)

void monome_rm(Pmonome* ppm) PRIVATE frees space occupied by monomial *ppm returns *ppm pointing to MONOME_NUL !usage: monome_rm(&pm);

Parameters

ppm

pm

Definition at line 154 of file pnome-alloc.c.

{
    if ((!MONOME_NUL_P(*ppm)) && (!MONOME_UNDEFINED_P(*ppm))) {
        vect_rm((Pvecteur) monome_term(*ppm));
        free((char *) *ppm);
    }
    *ppm = MONOME_NUL;
}

References free(), MONOME_NUL, MONOME_NUL_P, monome_term, MONOME_UNDEFINED_P, and vect_rm().

Referenced by do_solve_hardware_constraints_on_volume(), monome_gen_free(), monome_monome_div(), monome_monome_mult(), polynome_decr(), polynome_free(), polynome_incr(), polynome_rm(), polynome_roots(), polynome_scalar_add(), polynome_scalar_addition(), polynome_sscanf(), and polynome_var_subst().

Here is the call graph for this function:

Here is the caller graph for this function:

monome_to_new_polynome()

Ppolynome monome_to_new_polynome

(

Pmonome

pm

)

Ppolynome monome_to_new_polynome(Pmonome pm) PRIVATE allocates space for, and creates the polynomial containing the monomial pointed by pm, which is NOT duplicated but attached to the polynomial.

Parameters

pm

m

Definition at line 115 of file pnome-alloc.c.

{
  if (MONOME_NUL_P(pm))
    return POLYNOME_NUL;
  else if (MONOME_UNDEFINED_P(pm))
    return POLYNOME_UNDEFINED;
 
        Ppolynome pp = new_polynome();
        polynome_monome(pp) = pm;
        polynome_succ(pp) = POLYNOME_NUL;
        return pp;
}

References MONOME_NUL_P, MONOME_UNDEFINED_P, new_polynome(), polynome_monome, POLYNOME_NUL, polynome_succ, and POLYNOME_UNDEFINED.

Referenced by make_polynome(), number_replaces_var(), polynome_dup(), polynome_gen_read(), polynome_monome_add(), and polynome_monome_addition().

Here is the call graph for this function:

Here is the caller graph for this function:

new_monome()

Pmonome new_monome

(

void

)

INTLIBRARY.

POLYNOME_INCLUDED.

allocation of an unitialized monome (to avoid various direct unchecked call to malloc)

(void) fprintf(stderr, "%10.3f MB", (sbrk(0) - etext)/(double)(1 << 20));

xit(-1);

Definition at line 48 of file pnome-alloc.c.

{
    Pmonome pm = (Pmonome) malloc(sizeof(Smonome));
    if (pm == NULL) {
        (void) fprintf(stderr,"new_monome: Out of memory space\n");
        /* (void) fprintf(stderr, "%10.3f MB", 
                       (sbrk(0) - etext)/(double)(1 << 20)); */
        abort();
        /*exit(-1);*/
    }
    return pm;
}

References abort, fprintf(), and malloc().

Referenced by make_monome(), monome_del_var(), monome_dup(), and monome_monome_div().

Here is the call graph for this function:

Here is the caller graph for this function:

new_polynome()

Ppolynome new_polynome

(

void

)

allocation of an unitialized polynome (to avoid various direct unchecked call to malloc)

(void) fprintf(stderr, "%10.3f MB", (sbrk(0) - etext)/(double)(1 << 20));

xit(-1);

Definition at line 64 of file pnome-alloc.c.

{
    Ppolynome pp = (Ppolynome) malloc(sizeof(Spolynome));
    if (pp == NULL) {
        (void) fprintf(stderr,"new_polynome: Out of memory space\n");
        /* (void) fprintf(stderr, "%10.3f MB", 
           (sbrk(0) - etext)/(double)(1 << 20)); */
        abort();
        /*exit(-1);*/
    }
    return pp;
}

References abort, fprintf(), and malloc().

Referenced by monome_to_new_polynome().

Here is the call graph for this function:

Here is the caller graph for this function:

polynome_dup()

Ppolynome polynome_dup

(

Ppolynome

pp

)

Ppolynome polynome_dup(Ppolynome pp) creates and returns a copy of pp.

Parameters

pp

p

Definition at line 211 of file pnome-alloc.c.

{
    Ppolynome ppdup, curpp;
 
    if (POLYNOME_NUL_P(pp)) 
        return (POLYNOME_NUL);
    else if (POLYNOME_UNDEFINED_P(pp)) 
        return (POLYNOME_UNDEFINED);
    else {
        ppdup = monome_to_new_polynome(monome_dup(polynome_monome(pp)));
        curpp = ppdup;
        while ((pp = polynome_succ(pp)) != POLYNOME_NUL) {
            polynome_succ(curpp) =
                monome_to_new_polynome(monome_dup(polynome_monome(pp)));
            curpp = polynome_succ(curpp);
        }
        return (ppdup);
    }
}

References monome_dup(), monome_to_new_polynome(), polynome_monome, POLYNOME_NUL, POLYNOME_NUL_P, polynome_succ, POLYNOME_UNDEFINED, and POLYNOME_UNDEFINED_P.

Referenced by complexity_dup(), cutting_conditions(), do_computation_intensity(), is_not_trivial_p(), make_causal_external(), make_causal_internal(), old_polynome_to_sc(), plc_make_distance(), polynome_add(), polynome_addition(), polynome_equal(), polynome_gen_copy_tree(), polynome_monome_div(), polynome_monome_mult(), polynome_nth_root(), polynome_power_n(), polynome_roots(), polynome_sum_of_power(), polynome_to_new_complexity(), polynome_to_sc(), prgm_mapping(), prototype_var_subst(), search_scc_bdt(), and valuer().

Here is the call graph for this function:

Here is the caller graph for this function:

polynome_free()

Ppolynome polynome_free

(

Ppolynome

pp

)

Ppolynome polynome_free(Ppolynome pp) frees space occupied by polynomial pp returns pp == POLYNOME_NUL !usage: polynome_rm(pp);.

correct?

Parameters

pp

p

Definition at line 191 of file pnome-alloc.c.

{
    Ppolynome pp1 = pp, pp2;
 
    if (!POLYNOME_UNDEFINED_P(pp)) {
        while (pp1 != POLYNOME_NUL) {
            pp2 = polynome_succ(pp1);
            monome_rm(&polynome_monome(pp1));
            free((char *) pp1);               /* correct? */
            pp1 = pp2;
        }
    }
    return POLYNOME_NUL;
}

References free(), monome_rm(), polynome_monome, POLYNOME_NUL, polynome_succ, and POLYNOME_UNDEFINED_P.

Referenced by complexity_mult(), complexity_stats_add(), do_group_statement_constant(), polynome_addition(), polynome_monome_addition(), polynome_scalar_multiply(), and valuer().

Here is the call graph for this function:

Here is the caller graph for this function:

polynome_rm()

void polynome_rm

(

Ppolynome *

ppp

)

void polynome_rm(Ppolynome* ppp) frees space occupied by polynomial *ppp returns *ppp pointing to POLYNOME_NUL !usage: polynome_rm(&pp);

correct?

Parameters

ppp

pp

Definition at line 170 of file pnome-alloc.c.

{
    Ppolynome pp1 = *ppp, pp2;
 
    if (!POLYNOME_UNDEFINED_P(*ppp)) {
        while (pp1 != POLYNOME_NUL) {
            pp2 = polynome_succ(pp1);
            monome_rm(&polynome_monome(pp1));
            free((char *) pp1);               /* correct? */
            pp1 = pp2;
        }
        *ppp = POLYNOME_NUL;
    }
}

References free(), monome_rm(), polynome_monome, POLYNOME_NUL, polynome_succ, and POLYNOME_UNDEFINED_P.

Referenced by complexity_float_add(), complexity_sigma(), cutting_conditions(), do_computation_intensity(), do_solve_hardware_constraints_on_volume(), expression_to_polynome(), make_causal_external(), make_causal_internal(), make_single_var_complexity(), number_replaces_var(), polynome_add(), polynome_gen_free(), polynome_monome_add(), polynome_monome_addition(), polynome_mult(), polynome_nth_root(), polynome_power_n(), polynome_roots(), polynome_scalar_mult(), polynome_sigma(), polynome_sum_of_power(), polynome_var_subst(), power_op_handler(), reference_to_polynome(), and simplify_expression().

Here is the call graph for this function:

Here is the caller graph for this function: