stardis

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

stardis-ssconnect-prog.c (2910B)

      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-ssconnect-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 res_T
     33 init_ss_connect_prog
     34   (struct mem_allocator* allocator,
     35    struct solid_solid_connect_prog** dst)
     36 {
     37   res_T res = RES_OK;
     38   int str_initialized = 0;
     39   ASSERT(allocator && dst && *dst == NULL);
     40   *dst = MEM_CALLOC(allocator, 1, sizeof(**dst));
     41   if(! *dst) {
     42     res = RES_MEM_ERR;
     43     goto error;
     44   }
     45   str_init(allocator, &(*dst)->name);
     46   str_init(allocator, &(*dst)->prog_name);
     47   str_initialized = 1;
     48   (*dst)->connection_id = UINT_MAX;
     49 end:
     50   return res;
     51 error:
     52   if(str_initialized) {
     53     str_release(&(*dst)->name);
     54     str_release(&(*dst)->prog_name);
     55   }
     56   (*dst)->connection_id = UINT_MAX;
     57   if(*dst) MEM_RM(allocator, *dst);
     58   goto end;
     59 }
     60 
     61 void
     62 release_ss_connect_prog
     63   (struct solid_solid_connect_prog* connect,
     64    struct mem_allocator* allocator)
     65 {
     66   size_t i;
     67   ASSERT(connect && allocator);
     68   str_release(&connect->name);
     69   str_release(&connect->prog_name);
     70   if(connect->prog_data)
     71     connect->release(connect->prog_data);
     72   for(i = 0; i < connect->argc; i++) MEM_RM(allocator, connect->argv[i]);
     73   MEM_RM(allocator, connect->argv);
     74   /* library_close call is managed at lib_data level */
     75   MEM_RM(allocator, connect);
     76 }
     77 
     78 res_T
     79 str_print_ss_connect_prog
     80   (struct str* str,
     81    const struct solid_solid_connect_prog* c)
     82 {
     83   res_T res = RES_OK;
     84   ASSERT(str && c);
     85   ASSERT(c->argc >= 1); /* At least one argument which is the program name */
     86 
     87   ERR(str_append_printf(str,
     88     "programmed Solid-Solid connection '%s': lib='%s'",
     89     str_cget(&c->name), str_cget(&c->prog_name)));
     90   if(c->argc > 1) {
     91     size_t i;
     92     ERR(str_append_printf(str, ", provided arguments:\n"));
     93     for(i = 1; i < c->argc; i++) {
     94       ERR(str_append_printf(str, (i+1 == c->argc ? "\t%s" : "\t%s\n"), c->argv[i]));
     95     }
     96   }
     97 end:
     98   return res;
     99 error:
    100   goto end;
    101 }