← Back to branch summary

~ubuntu-branches/ubuntu/precise/code-saturne/precise

« back to all changes in this revision

Viewing changes to preprocessor/base/ecs_famille.c

  • Committer: Package Import Robot
  • Author(s): Sylvestre Ledru
  • Date: 2011-11-24 00:00:08 UTC
  • mfrom: (6.1.9 sid)
  • Revision ID: package-import@ubuntu.com-20111124000008-2vo99e38267942q5
Tags: 2.1.0-3
Install a missing file

Show diffs side-by-side

added added

removed removed

Lines of Context:
preprocessor/base/ecs_famille.c
 
1
/*============================================================================
 
2
 *  Définitions des fonctions de base
 
3
 *   associées à la structure `ecs_famille_t' décrivant une famille
 
4
 *============================================================================*/
 
5
 
 
6
/*
 
7
  This file is part of Code_Saturne, a general-purpose CFD tool.
 
8
 
 
9
  Copyright (C) 1998-2011 EDF S.A.
 
10
 
 
11
  This program is free software; you can redistribute it and/or modify it under
 
12
  the terms of the GNU General Public License as published by the Free Software
 
13
  Foundation; either version 2 of the License, or (at your option) any later
 
14
  version.
 
15
 
 
16
  This program is distributed in the hope that it will be useful, but WITHOUT
 
17
  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 
18
  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
 
19
  details.
 
20
 
 
21
  You should have received a copy of the GNU General Public License along with
 
22
  this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
 
23
  Street, Fifth Floor, Boston, MA 02110-1301, USA.
 
24
*/
 
25
 
 
26
/*----------------------------------------------------------------------------*/
 
27
 
 
28
 
 
29
/*============================================================================
 
30
 *                                 Visibilité
 
31
 *============================================================================*/
 
32
 
 
33
/*----------------------------------------------------------------------------
 
34
 *  Fichiers `include' librairie standard C
 
35
 *----------------------------------------------------------------------------*/
 
36
 
 
37
#include <assert.h>
 
38
#include <string.h>  /* memcmp() */
 
39
 
 
40
 
 
41
/*----------------------------------------------------------------------------
 
42
 *  Fichiers `include' système
 
43
 *----------------------------------------------------------------------------*/
 
44
 
 
45
 
 
46
/*----------------------------------------------------------------------------
 
47
 *  Fichiers `include' visibles du  paquetage global "Utilitaire"
 
48
 *----------------------------------------------------------------------------*/
 
49
 
 
50
#include "ecs_def.h"
 
51
#include "ecs_fic.h"
 
52
#include "ecs_file.h"
 
53
#include "ecs_mem.h"
 
54
 
 
55
 
 
56
/*----------------------------------------------------------------------------
 
57
  *  Fichiers `include' visibles des paquetages visibles
 
58
 *----------------------------------------------------------------------------*/
 
59
 
 
60
 
 
61
 
 
62
/*----------------------------------------------------------------------------
 
63
 *  Fichiers `include' visibles du  paquetage courant
 
64
 *----------------------------------------------------------------------------*/
 
65
 
 
66
#include "ecs_descr_chaine.h"
 
67
 
 
68
 
 
69
/*----------------------------------------------------------------------------
 
70
 *  Fichier  `include' du  paquetage courant associe au fichier courant
 
71
 *----------------------------------------------------------------------------*/
 
72
 
 
73
#include "ecs_famille.h"
 
74
 
 
75
 
 
76
/*----------------------------------------------------------------------------
 
77
 *  Fichiers `include' prives   du  paquetage courant
 
78
 *----------------------------------------------------------------------------*/
 
79
 
 
80
#include "ecs_famille_priv.h"
 
81
 
 
82
 
 
83
/*============================================================================
 
84
 *                              Fonctions privées
 
85
 *============================================================================*/
 
86
 
 
87
 
 
88
/*============================================================================
 
89
 *                             Fonctions publiques
 
90
 *============================================================================*/
 
91
 
 
92
/*----------------------------------------------------------------------------
 
93
 *    Fonction de création d'une structure de famille `ecs_famille_t'
 
94
 *----------------------------------------------------------------------------*/
 
95
 
 
96
ecs_famille_t *
 
97
ecs_famille__cree(int           num,
 
98
                  ecs_descr_t  *descr_tete)
 
99
{
 
100
  ecs_famille_t * fam_loc;
 
101
 
 
102
  /*xxxxxxxxxxxxxxxxxxxxxxxxxxx Instructions xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*/
 
103
 
 
104
  /* Allocation et initialisation de la structure */
 
105
  /*==============================================*/
 
106
 
 
107
  /* Allocation de la structure globale de la famille */
 
108
  /*--------------------------------------------------*/
 
109
 
 
110
  ECS_MALLOC(fam_loc, 1, ecs_famille_t);
 
111
 
 
112
  /* Initialisation de la structure */
 
113
  /*--------------------------------*/
 
114
 
 
115
  fam_loc->num           = num;
 
116
  fam_loc->descr         = descr_tete;
 
117
  fam_loc->l_famille_sui = NULL;
 
118
 
 
119
  return fam_loc;
 
120
}
 
121
 
 
122
/*----------------------------------------------------------------------------
 
123
 *  Fonction libérant la structure `ecs_famille_t' donnée en argument.
 
124
 *  Elle renvoie un pointeur NULL
 
125
 *----------------------------------------------------------------------------*/
 
126
 
 
127
ecs_famille_t *
 
128
ecs_famille__detruit(ecs_famille_t  *this_fam)
 
129
{
 
130
  /*xxxxxxxxxxxxxxxxxxxxxxxxxxx Instructions xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*/
 
131
 
 
132
  assert(this_fam != NULL);
 
133
 
 
134
  ecs_descr_chaine__detruit(&this_fam->descr);
 
135
 
 
136
  ECS_FREE(this_fam);
 
137
 
 
138
  assert(this_fam == NULL);
 
139
 
 
140
  return this_fam;
 
141
}
 
142
 
 
143
/*----------------------------------------------------------------------------
 
144
 *  Fonction imprimant le contenu d'une structure `ecs_famille_t' donnée
 
145
 *   sur le flux décrit par la structure `ecs_file_t'
 
146
 *----------------------------------------------------------------------------*/
 
147
 
 
148
void
 
149
ecs_famille__imprime(const ecs_famille_t  *this_fam,
 
150
                     int                   imp_col,
 
151
                     FILE                 *fic_imp)
 
152
{
 
153
#define ECS_FCT_IMP_FAMILLE_NUM           "numero"
 
154
#define ECS_FCT_IMP_FAMILLE_DESCR         "descr"
 
155
#define ECS_FCT_IMP_FAMILLE_L_FAMILLE     "l_famille_sui"
 
156
 
 
157
  /*xxxxxxxxxxxxxxxxxxxxxxxxxxx Instructions xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*/
 
158
 
 
159
  assert(this_fam != NULL);
 
160
 
 
161
  imp_col++;
 
162
 
 
163
  /* Impression du numero de famille */
 
164
 
 
165
  ecs_fic__imprime_val(fic_imp, imp_col, ECS_FCT_IMP_FAMILLE_NUM,
 
166
                       ECS_TYPE_ecs_int_t, &(this_fam->num));
 
167
 
 
168
  /* Impression de la liste chainee des descripteurs composant la famille */
 
169
  /*----------------------------------------------------------------------*/
 
170
 
 
171
  /* Impression du pointeur sur le descripteur de tete */
 
172
 
 
173
  ecs_fic__imprime_val(fic_imp, imp_col, ECS_FCT_IMP_FAMILLE_DESCR,
 
174
                       ECS_TYPE_void, this_fam->descr);
 
175
 
 
176
  /* Appel à la fonction d'impression d'une chaine de descripteurs */
 
177
 
 
178
  ecs_descr_chaine__imprime(this_fam->descr,
 
179
                            imp_col + 1,
 
180
                            fic_imp);
 
181
 
 
182
  /* Impression du lien sur une eventuelle famille suivante */
 
183
  /*--------------------------------------------------------*/
 
184
 
 
185
  ecs_fic__imprime_val(fic_imp, imp_col, ECS_FCT_IMP_FAMILLE_L_FAMILLE,
 
186
                       ECS_TYPE_void, this_fam->l_famille_sui);
 
187
}
 
188
 
 
189
/*----------------------------------------------------------------------------
 
190
 *  Fonction qui renvoie la taille en octets d'une structure `ecs_famille_t'
 
191
 *----------------------------------------------------------------------------*/
 
192
 
 
193
float
 
194
ecs_famille__ret_taille(const ecs_famille_t  *this_fam)
 
195
{
 
196
  float  taille;
 
197
 
 
198
  /*xxxxxxxxxxxxxxxxxxxxxxxxxxx Instructions xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*/
 
199
 
 
200
  assert(this_fam != NULL);
 
201
 
 
202
  taille = sizeof(*this_fam);
 
203
 
 
204
  taille += ecs_descr_chaine__ret_taille(this_fam->descr);
 
205
 
 
206
  return taille;
 
207
}
 
208
 
 
209
/*----------------------------------------------------------------------------
 
210
 *  Fonction qui renvoie le nombre et la liste des des pointeurs sur les noms
 
211
 *   des descripteurs de la famille donnée en argument
 
212
 *----------------------------------------------------------------------------*/
 
213
 
 
214
ecs_tab_char_t
 
215
ecs_famille__ret_nom(const ecs_famille_t  *this_fam)
 
216
{
 
217
  /*xxxxxxxxxxxxxxxxxxxxxxxxxxx Instructions xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*/
 
218
 
 
219
  assert(this_fam != NULL);
 
220
 
 
221
  return ecs_descr_chaine__ret_nom(this_fam->descr);
 
222
}
 
223
 
 
224
/*----------------------------------------------------------------------------
 
225
 *  Fonction qui alloue une structure `ecs_famille_t' et qui remplit
 
226
 *   son contenu en copiant le contenu de la structure donnée en argument
 
227
 *----------------------------------------------------------------------------*/
 
228
 
 
229
ecs_famille_t *
 
230
ecs_famille__copie(ecs_famille_t  *this_famille)
 
231
{
 
232
  ecs_descr_t     * descr;
 
233
  ecs_famille_t   * famille_loc;
 
234
 
 
235
  /*xxxxxxxxxxxxxxxxxxxxxxxxxxx Instructions xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*/
 
236
 
 
237
  assert(this_famille != NULL);
 
238
 
 
239
  descr = ecs_descr_chaine__copie(this_famille->descr);
 
240
 
 
241
  famille_loc = ecs_famille__cree(this_famille->num, descr);
 
242
 
 
243
  return famille_loc;
 
244
}
 
245
 
 
246
/*----------------------------------------------------------------------------
 
247
 *  Fonction qui affiche la définition de la famille
 
248
 *----------------------------------------------------------------------------*/
 
249
 
 
250
void
 
251
ecs_famille__affiche(const ecs_famille_t  *this_fam)
 
252
{
 
253
  /*xxxxxxxxxxxxxxxxxxxxxxxxxxx Instructions xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*/
 
254
 
 
255
  assert(this_fam != NULL);
 
256
 
 
257
  printf("  %s %d\n",
 
258
         _("Family"), this_fam->num);
 
259
 
 
260
  ecs_descr_chaine__affiche(this_fam->descr,
 
261
                            (int)strlen(_("Family")) + 1);
 
262
}
 
263
 
 
264
/*----------------------------------------------------------------------------*/
 
265