make_auto_workspace_h.cc

Go to the documentation of this file.

/* Copyright (C) 2001-2012 Stefan Buehler <sbuehler@ltu.se>

   This program is free software; you can redistribute it and/or modify it
   under the terms of the GNU General Public License as published by the
   Free Software Foundation; either version 2, or (at your option) any
   later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
   USA. */

#include <stdexcept>
#include <iostream>
#include "arts.h"
#include "matpackI.h"
#include "file.h"
#include "array.h"
#include "global_data.h"

int main()
{
  try
    {
      // Initialize the group names.
      define_wsv_group_names();

      // Make the names visible.
      using global_data::wsv_group_names;

      ofstream ofs;
      open_output_file(ofs,"auto_workspace.h");

      ofs << "/*! \\file  auto_workspace.h\n"
          << "    \\brief Defines the enum type that acts as a\n"
          << "    handle for workspace variables groups.\n\n"

          << "    Also defined here is a special pointer class that can hold\n"
          << "    a pointer to any workspace variable.\n\n"

          << "    This file was generated automatically by make_auto_workspace_h.cc.\n"

          << "    <b>DO NOT EDIT!</b>\n\n"

          << "    \\date "
          << __DATE__ << ", "
          << __TIME__ << " */\n\n";

      ofs << "#ifndef auto_workspace_h\n"
          << "#define auto_workspace_h\n\n";

      ofs << "#include <iostream>\n"
          << "#include \"matpackII.h\"\n"
          << "#include \"m_general.h\"\n"
          << "#include \"supergeneric.h\"\n"
          << "#include \"ppath.h\"\n"
          << "#include \"gas_abs_lookup.h\"\n"
          << "#include \"optproperties.h\"\n"
          << "#include \"gridded_fields.h\"\n"
          << "#include \"jacobian.h\"\n"
          << "#include \"agenda_class.h\"\n"
          << "#include \"mc_interp.h\"\n"
          << "#include \"mc_antenna.h\"\n"
          << "#include \"cia.h\"\n"
          << "#include \"linemixingrecord.h\"\n"
          << "\n";

      // WorkspaceMemoryHandler class
      //
      ofs << "class WorkspaceMemoryHandler {\n"
        <<   "private:\n"
        <<   "  // List of function pointers to allocation routines\n"
        <<   "  void *(*allocfp[" << wsv_group_names.nelem () << "])();\n"
        <<   "  // List of function pointers to deallocation routines\n"
        <<   "  void (*deallocfp[" << wsv_group_names.nelem () << "])(void *);\n\n"
        <<   "  // List of function pointers to duplication routines\n"
        <<   "  void *(*duplicatefp[" << wsv_group_names.nelem () << "])(void *);\n\n"
        <<   "  // Allocation and deallocation routines for workspace groups\n";
      for (Index i = 0; i < wsv_group_names.nelem (); ++i)
        {
          ofs << "  static void *allocate_wsvg_" << wsv_group_names[i] << "()\n"
            <<   "    { return (void *)new " << wsv_group_names[i] << "; }\n\n"
            <<   "  static void deallocate_wsvg_" << wsv_group_names[i] << "(void *vp)\n"
            <<   "    { delete (" << wsv_group_names[i] << " *)vp; }\n\n"
            <<   "  static void *duplicate_wsvg_" << wsv_group_names[i] << "(void *vp)\n"
            <<   "    { return (new " << wsv_group_names[i] << "(*("
            << wsv_group_names[i] << " *)vp)); }\n\n";
        }

      ofs << "public:\n"
        <<   "  /** Default constructor. Initialize allocation and "
        <<   "deallocation\n"
        <<   "      function pointer lists.\n"
        <<   "  */\n"
        <<   "  WorkspaceMemoryHandler ()\n"
        <<   "    {\n";

      for (Index i = 0; i < wsv_group_names.nelem (); ++i)
        {
          ofs << "      allocfp[" << i << "] = allocate_wsvg_"
            <<            wsv_group_names[i] << ";\n"
            <<   "      deallocfp[" << i << "] = deallocate_wsvg_"
            <<            wsv_group_names[i] << ";\n"
            <<   "      duplicatefp[" << i << "] = duplicate_wsvg_"
            <<            wsv_group_names[i] << ";\n";
        }

      ofs << "    }\n\n"
        <<   "  /** Getaway function to call the allocation function for the\n"
        <<   "      WSV group with the given Index.\n"
        <<   "  */\n"
        <<   "  void *allocate (Index wsvg)\n"
        <<   "    {\n"
        <<   "      return allocfp[wsvg]();\n"
        <<   "    }\n\n"
        <<   "  /** Getaway function to call the deallocation function for the\n"
        <<   "      WSV group with the given Index.\n"
        <<   "  */\n"
        <<   "  void deallocate (Index wsvg, void *vp)\n"
        <<   "    {\n"
        <<   "      deallocfp[wsvg](vp);\n"
        <<   "    }\n\n"
        <<   "  /** Getaway function to call the duplication function for the\n"
        <<   "      WSV group with the given Index.\n"
        <<   "  */\n"
        <<   "  void *duplicate (Index wsvg, void *vp)\n"
        <<   "    {\n"
        <<   "      return duplicatefp[wsvg](vp);\n"
        <<   "    }\n\n";

      ofs << "};\n\n";
      //


      ofs << "#endif  // auto_workspace_h\n";      
    }
  catch (runtime_error x)
    {
      cout << "Something went wrong. Message text:\n";
      cout << x.what() << '\n';
      return 1;
    }

  return 0;
}