epyt-flow 0.14.2__py3-none-any.whl → 0.15.0__py3-none-any.whl

epyt_flow/EPANET/EPANET-MSX/Src/msxfile.c

@@ -1,260 +0,0 @@
-/*******************************************************************************
-**  MODULE:        MSXFILE.C
-**  PROJECT:       EPANET-MSX
-**  DESCRIPTION:   writes MSX project data to a MSX input file.
-**  AUTHORS:       see AUTHORS
-**  Copyright:     see AUTHORS
-**  License:       see LICENSE
-**  VERSION:       2.0.00
-**  LAST UPDATE:   04/14/2021
-*******************************************************************************/
-
-#include <stdio.h>
-#include <string.h>
-
-#include "msxtypes.h"
-#include "msxutils.h"
-#include "msxdict.h"
-#include "epanet2.h"
-
-//  External variables
-//--------------------
-extern MSXproject  MSX;                // MSX project data
-
-//  Exported functions
-//--------------------
-int MSXfile_save(FILE *f);
-
-//  Local functions
-//-----------------
-static void  saveSpecies(FILE *f);
-static void  saveCoeffs(FILE *f);
-static int   saveInpSections(FILE *f);
-static void  saveParams(FILE *f);
-static void  saveQuality(FILE *f);
-static void  saveSources(FILE *f);
-static void  savePatterns(FILE *f);
-
-//=============================================================================
-
-int MSXfile_save(FILE *f)
-/*
-**  Purpose:
-**    saves current MSX project data to file.
-**
-**  Input:
-**    f = pointer to MSX file where data are saved.
-*/
-{
-    int errcode;
-    fprintf(f, "[TITLE]");
-    fprintf(f, "\n%s\n", MSX.Title);
-    saveSpecies(f);
-    saveCoeffs(f);
-    errcode = saveInpSections(f);
-    saveParams(f);
-    saveQuality(f);
-    saveSources(f);
-    savePatterns(f);
-    return errcode;
-}
-
-//=============================================================================
-
-void  saveSpecies(FILE *f)
-{
-    int  i, n;
-    fprintf(f, "\n[SPECIES]");
-    n = MSX.Nobjects[SPECIES];
-    for (i=1; i<=n; i++)
-    {
-        if ( MSX.Species[i].type == BULK ) fprintf(f, "\nBULK    ");
-        else                               fprintf(f, "\nWALL    ");
-        fprintf(f, "%-32s %-15s %e %e",
-            MSX.Species[i].id, MSX.Species[i].units,
-            MSX.Species[i].aTol, MSX.Species[i].rTol);
-    }
-}
-
-//=============================================================================
-
-void  saveCoeffs(FILE *f)
-{
-    int  i, n;
-    fprintf(f, "\n\n[COEFFICIENTS]");
-    n = MSX.Nobjects[CONSTANT];
-    for (i=1; i<=n; i++)
-    {
-        fprintf(f, "\nCONSTANT    %-32s  %e",
-            MSX.Const[i].id, MSX.Const[i].value);
-    }
-    n = MSX.Nobjects[PARAMETER];
-    for (i=1; i<=n; i++)
-    {
-        fprintf(f, "\nPARAMETER   %-32s  %e",
-            MSX.Param[i].id, MSX.Param[i].value);
-    }
-}
-
-//=============================================================================
-
-int  saveInpSections(FILE *f)
-{
-    char   line[MAXLINE+1];
-    char   writeLine;
-    int    newsect;
-
-    if ((MSX.MsxFile.file = fopen(MSX.MsxFile.name,"rt")) == NULL) return ERR_OPEN_MSX_FILE;
-    rewind(MSX.MsxFile.file);
-
-    fprintf(f,"\n\n");
-    writeLine = FALSE;
-    while ( fgets(line, MAXLINE, MSX.MsxFile.file) != NULL )
-    {
-        if (*line == '[' )
-        {
-            writeLine = TRUE;
-            newsect = MSXutils_findmatch(line, MsxSectWords);
-            if ( newsect >= 0 ) switch(newsect)
-            {
-              case s_OPTION:
-              case s_TERM:
-              case s_PIPE:
-              case s_TANK:
-              case s_REPORT:
-                break;
-              default:
-                writeLine = FALSE;
-            }
-        }
-        if ( writeLine) fprintf(f, "%s", line);
-    }
-    if ( MSX.MsxFile.file ) fclose(MSX.MsxFile.file);
-    MSX.MsxFile.file = NULL;
-    return 0;
-}
-
-//=============================================================================
-
-void  saveParams(FILE *f)
-{
-    int    i, j, k;
-    double x;
-    char   id[MAXLINE+1];
-
-    if ( MSX.Nobjects[PARAMETER] > 0 )
-    {
-        fprintf(f, "\n\n[PARAMETERS]");
-        for (j=1; j<=MSX.Nobjects[PARAMETER]; j++)
-        {
-            x = MSX.Param[j].value;
-            for (i=1; i<=MSX.Nobjects[LINK]; i++)
-            {
-                if ( MSX.Link[i].param[j] != x )
-                {
-                    ENgetlinkid(i, id);
-                    fprintf(f, "\nPIPE    %-32s  %-32s  %e",
-                        id, MSX.Param[j].id, MSX.Link[i].param[j]);
-                }
-            }
-            for (i=1; i<=MSX.Nobjects[TANK]; i++)
-            {
-                if ( MSX.Tank[i].param[j] != x )
-                {
-                    k = MSX.Tank[i].node;
-                    ENgetnodeid(k, id);
-                    fprintf(f, "\nTANK    %-32s  %-32s  %e",
-                        id, MSX.Param[j].id, MSX.Tank[i].param[j]);
-                }
-            }
-        }
-    }
-}
-
-//=============================================================================
-
-void  saveQuality(FILE *f)
-{
-    int    i, j;
-    char   id[MAXLINE+1];
-
-    fprintf(f, "\n\n[QUALITY]");
-    for (j=1; j<=MSX.Nobjects[SPECIES]; j++)
-    {
-		if (MSX.C0[j] > 0.0)
-			fprintf(f, "\nGLOBAL  %-32s  %e",
-                    MSX.Species[j].id, MSX.C0[j]);
-
-        for (i=1; i<=MSX.Nobjects[NODE]; i++)
-        {
-            if ( MSX.Node[i].c0[j] > 0.0 && MSX.Node[i].c0[j] != MSX.C0[j])
-            {
-                ENgetnodeid(i, id);
-                fprintf(f, "\nNODE    %-32s  %-32s  %e",
-                    id, MSX.Species[j].id, MSX.Node[i].c0[j]);
-            }
-        }
-        for (i=1; i<=MSX.Nobjects[LINK]; i++)
-        {
-            if ( MSX.Link[i].c0[j] > 0.0 && MSX.Link[i].c0[j] != MSX.C0[j])			
-            {
-                ENgetlinkid(i, id);
-                fprintf(f, "\nLINK    %-32s  %-32s  %e",
-                    id, MSX.Species[j].id, MSX.Link[i].c0[j]);
-            }
-        }
-    }
-}
-
-//=============================================================================
-
-void  saveSources(FILE *f)
-{
-    int     i;
-    Psource source;
-    char    id[MAXLINE+1];
-
-    fprintf(f, "\n\n[SOURCES]");
-    for (i=1; i<=MSX.Nobjects[NODE]; i++)
-    {
-        source = MSX.Node[i].sources;
-        while ( source )
-        {
-            if ( source->c0 > 0.0 && source->type > -1)   //Feng Shang 09/23/2008
-            {
-                ENgetnodeid(i, id);
-                fprintf(f, "\n%-10s  %-32s  %-32s  %e",
-                    SourceTypeWords[source->type], id,
-                    MSX.Species[source->species].id, source->c0);
-                if ( source->pat > 0 )
-                    fprintf(f, "  %-32s", MSX.Pattern[source->pat].id);
-            }
-            source = source->next;
-        }
-    }
-}
-
-//=============================================================================
-
-void  savePatterns(FILE *f)
-{
-    int  i, count;
-    SnumList *listItem;
-
-    if ( MSX.Nobjects[PATTERN] > 0 ) fprintf(f, "\n\n[PATTERNS]");
-    for (i=1; i<=MSX.Nobjects[PATTERN]; i++)
-    {
-        count = 0;
-        listItem = MSX.Pattern[i].first;
-        while (listItem)
-        {
-            if ( count % 6 == 0 )
-            {
-                fprintf(f, "\n%-32s", MSX.Pattern[i].id);
-            }
-            fprintf(f, "  %e", listItem->value);
-            count++;
-            listItem = listItem->next;
-        }
-    }
-}

epyt_flow/EPANET/EPANET-MSX/Src/msxfuncs.c

@@ -1,175 +0,0 @@
-/*******************************************************************************
-**  MODULE:        MSXFUNCS.C
-**  PROJECT:       EPANET-MSX
-**  DESCRIPTION:   compiles chemistry functions to a shared dynamic library.
-**  COPYRIGHT:     Copyright (C) 2007 Feng Shang, Lewis Rossman, and James Uber.
-**                 All Rights Reserved. See license information in LICENSE.TXT.
-**  AUTHORS:       see AUTHORS
-**  VERSION:       2.0.00
-**  LAST UPDATE:   04/14/2014
-*******************************************************************************/
-
-#include <stdio.h>
-
-// --- define WINDOWS
-
-#undef WINDOWS
-#ifdef _WIN32
-  #define WINDOWS
-#endif
-#ifdef __WIN32__
-  #define WINDOWS
-#endif
-#ifdef WIN32
-  #define WINDOWS
-#endif
-
-#ifdef WINDOWS
-#include <windows.h>
-HMODULE hDLL;
-#else
-  #include <dlfcn.h>
-  void *hDLL; 
-#endif
-
-#include "msxfuncs.h"
-
-
-MSXGETRATES    MSXgetPipeRates = NULL;
-MSXGETRATES    MSXgetTankRates = NULL;
-MSXGETEQUIL    MSXgetPipeEquil = NULL;
-MSXGETEQUIL    MSXgetTankEquil = NULL;
-MSXGETFORMULAS MSXgetPipeFormulas = NULL;
-MSXGETFORMULAS MSXgetTankFormulas = NULL;
-
-
-
-//=============================================================================
-
-int MSXfuncs_load(char * libName)
-/*
-**  Purpose:
-**    loads compiled chemistry functions from a named library
-**
-**  Input:
-**    libName = path to shared library
-**
-**  Returns:
-**    an error code (0 if no error).
-*/
-{
-
-#ifdef WINDOWS
-	hDLL = LoadLibraryA(libName);
-	if (hDLL == NULL) return 1;
-
-	  MSXgetPipeRates    = (MSXGETRATES)    GetProcAddress(hDLL, "MSXgetPipeRates");
-    MSXgetTankRates    = (MSXGETRATES)    GetProcAddress(hDLL, "MSXgetTankRates");
-    MSXgetPipeEquil    = (MSXGETEQUIL)    GetProcAddress(hDLL, "MSXgetPipeEquil");
-    MSXgetTankEquil    = (MSXGETEQUIL)    GetProcAddress(hDLL, "MSXgetTankEquil");
-    MSXgetPipeFormulas = (MSXGETFORMULAS) GetProcAddress(hDLL, "MSXgetPipeFormulas");
-    MSXgetTankFormulas = (MSXGETFORMULAS) GetProcAddress(hDLL, "MSXgetTankFormulas");
-
-#else
-    hDLL = dlopen(libName, RTLD_LAZY);
-    if (hDLL == NULL) return 1;
-	
-    MSXgetPipeRates    = (MSXGETRATES)    dlsym(hDLL, "MSXgetPipeRates");
-    MSXgetTankRates    = (MSXGETRATES)    dlsym(hDLL, "MSXgetTankRates");
-    MSXgetPipeEquil    = (MSXGETEQUIL)    dlsym(hDLL, "MSXgetPipeEquil");
-    MSXgetTankEquil    = (MSXGETEQUIL)    dlsym(hDLL, "MSXgetTankEquil");
-    MSXgetPipeFormulas = (MSXGETFORMULAS) dlsym(hDLL, "MSXgetPipeFormulas");
-    MSXgetTankFormulas = (MSXGETFORMULAS) dlsym(hDLL, "MSXgetTankFormulas");
-#endif
-
-    if (MSXgetPipeRates == NULL || MSXgetTankRates == NULL ||
-        MSXgetPipeEquil == NULL || MSXgetTankEquil == NULL ||
-        MSXgetPipeFormulas == NULL || MSXgetTankFormulas == NULL)
-    {
-        MSXfuncs_free();
-        hDLL = NULL;
-        return 2;
-    }
-    return 0;
-}
-
-//=============================================================================
-
-void MSXfuncs_free()
-/*
-**  Purpose:
-**    frees the handle to the shared function library
-**
-**  Input:
-**    none
-**
-**  Returns:
-**    none
-*/
-{
-#ifdef WINDOWS
-    if (hDLL) FreeLibrary(hDLL);
-#else
-    if (hDLL) dlclose(hDLL);
-#endif
-}
-
-//=============================================================================
-
-int MSXfuncs_run(char* cmdLine)
-/*
-**  Purpose:
-**    executes a program and waits for it to end
-**
-**  Input:
-**    cmdLine = command line string that executes the program
-**
-**  Returns:
-**    the program's exit code (or -1 if the program was not run)
-*/
-{
-#ifdef WINDOWS
-
-  unsigned long exitCode;
-  STARTUPINFOA si;
-  PROCESS_INFORMATION  pi;
-
-  // --- initialize data structures
-
-  memset(&si, 0, sizeof(si));
-  memset(&pi, 0, sizeof(pi));
-  si.cb = sizeof(si);
-
-  // --- hide the window that the program runs in
-
-  si.dwFlags = STARTF_USESHOWWINDOW;
-  si.wShowWindow = SW_HIDE;
-
-  // --- execute the command line in a new console window
-  exitCode = CreateProcess(NULL, cmdLine, NULL, NULL, 0,
-		 CREATE_NEW_CONSOLE, NULL, NULL, &si, &pi);
-  if (exitCode == 0)
-  {
-	  exitCode = GetLastError();
-	  return exitCode;
-  }
-
-  // --- wait for program to end
-
-  exitCode = WaitForSingleObject(pi.hProcess, INFINITE);
-
-  // --- retrieve the error code produced by the program
-
-  BOOL rt = GetExitCodeProcess(pi.hProcess, &exitCode);
-
-  // --- release handles
-
-  CloseHandle(pi.hProcess);
-  CloseHandle(pi.hThread);
-  return exitCode;
-
-#else
-  return -1;
-#endif
-}
-

epyt_flow/EPANET/EPANET-MSX/Src/msxfuncs.h

@@ -1,35 +0,0 @@
-/************************************************************************
-**  MODULE:        MSXFUNCS.H
-**  PROJECT:       EPANET-MSX
-**  DESCRIPTION:   Definitions of functions loaded from compiled chemistry file.
-**  COPYRIGHT:     Copyright (C) 2007 Feng Shang, Lewis Rossman, and James Uber.
-**                 All Rights Reserved. See license information in LICENSE.TXT.
-**  AUTHORS:       See Authors
-**  VERSION:       2.0.00
-**  LAST UPDATE:   04/14/2021
-***********************************************************************/
-
-#ifndef MSXFUNCS_H
-#define MSXFUNCS_H
-
-// Define pointers for each group of chemistry functions
-typedef void (*MSXGETRATES)(double *, double *, double * , double *, double *);
-typedef void (*MSXGETEQUIL)(double *, double *, double * , double *, double *);
-typedef void (*MSXGETFORMULAS)(double *, double *, double *, double *);
-
-// Declare each chemistry function
-extern MSXGETRATES    MSXgetPipeRates;
-extern MSXGETRATES    MSXgetTankRates;
-extern MSXGETEQUIL    MSXgetPipeEquil;
-extern MSXGETEQUIL    MSXgetTankEquil;
-extern MSXGETFORMULAS MSXgetPipeFormulas;
-extern MSXGETFORMULAS MSXgetTankFormulas;
-
-// Functions that load and free the chemistry functions
-int  MSXfuncs_load(char *);
-void MSXfuncs_free(void);
-
-// Function that executes a command line program
-int MSXfuncs_run(char * );
-
-#endif