stardis

Perform coupled heat transfer calculations
git clone git://git.meso-star.fr/stardis.git
Log | Files | Refs | README | LICENSE

stardis-fbound-prog.c (2871B)

      1 /* Copyright (C) 2018-2025 |Méso|Star> (contact@meso-star.com)
      2  *
      3  * This program is free software: you can redistribute it and/or modify
      4  * it under the terms of the GNU General Public License as published by
      5  * the Free Software Foundation, either version 3 of the License, or
      6  * (at your option) any later version.
      7  *
      8  * This program is distributed in the hope that it will be useful,
      9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
     10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
     11  * GNU General Public License for more details.
     12  *
     13  * You should have received a copy of the GNU General Public License
     14  * along with this program. If not, see <http://www.gnu.org/licenses/>. */
     15 
     16 #include "stardis-app.h"
     17 #include "stardis-fbound-prog.h"
     18 #include "stardis-prog-properties.h"
     19 #include "stardis-intface.h"
     20 
     21 #include <rsys/rsys.h>
     22 #include <rsys/mem_allocator.h>
     23 #include <rsys/str.h>
     24 
     25 #include <sdis.h>
     26 
     27 #include <limits.h>
     28 
     29 /*******************************************************************************
     30  * Public Functions
     31  ******************************************************************************/
     32 
     33 res_T
     34 init_f_boundary_prog
     35   (struct mem_allocator* allocator,
     36    struct f_boundary_prog** dst)
     37 {
     38   res_T res = RES_OK;
     39   int str_initialized = 0;
     40   ASSERT(allocator && dst && *dst == NULL);
     41   *dst = MEM_CALLOC(allocator, 1, sizeof(**dst));
     42   if(! *dst) {
     43     res = RES_MEM_ERR;
     44     goto error;
     45   }
     46   str_init(allocator, &(*dst)->name);
     47   str_init(allocator, &(*dst)->prog_name);
     48   str_initialized = 1;
     49   (*dst)->mat_id = UINT_MAX;
     50 end:
     51   return res;
     52 error:
     53   if(str_initialized) {
     54     str_release(&(*dst)->name);
     55     str_release(&(*dst)->prog_name);
     56   }
     57   if(*dst) MEM_RM(allocator, *dst);
     58   goto end;
     59 }
     60 
     61 void
     62 release_f_boundary_prog
     63   (struct f_boundary_prog* bound,
     64    struct mem_allocator* allocator)
     65 {
     66   size_t i;
     67   ASSERT(bound && allocator);
     68   str_release(&bound->name);
     69   str_release(&bound->prog_name);
     70   if(bound->prog_data)
     71     bound->release(bound->prog_data);
     72   for(i = 0; i < bound->argc; i++) MEM_RM(allocator, bound->argv[i]);
     73   MEM_RM(allocator, bound->argv);
     74   /* library_close call is managed at lib_data level */
     75   MEM_RM(allocator, bound);
     76 }
     77 
     78 res_T
     79 str_print_f_boundary_prog
     80   (struct str* str,
     81    const struct f_boundary_prog* b)
     82 {
     83   res_T res = RES_OK;
     84   ASSERT(str && b);
     85   ASSERT(b->argc >= 1); /* At least one argument which is the program name */
     86 
     87   ERR(str_append_printf(str,
     88     "programmed F boundary for SOLID '%s': lib='%s', "
     89     "(using medium %u as external medium)",
     90     str_cget(&b->name), str_cget(&b->prog_name), b->mat_id));
     91   if(b->argc > 1) {
     92     size_t i;
     93     ERR(str_append_printf(str, ", provided arguments:\n"));
     94     for(i = 1; i < b->argc; i++) {
     95       ERR(str_append_printf(str, (i+1 == b->argc ? "\t%s" : "\t%s\n"), b->argv[i]));
     96     }
     97   }
     98 end:
     99   return res;
    100 error:
    101   goto end;
    102 }
    103