Update umpire_shroud.yaml for untracked pools

.github/actions/shroud/entrypoint.sh

@@ -1,5 +1,7 @@
 #!/bin/bash
 
+set -euo pipefail
+
 git config --global --add safe.directory /github/workspace
 git config --global --add safe.directory /github/workspace/.radiuss-ci
 git config --global --add safe.directory /github/workspace/blt
@@ -13,4 +15,3 @@ git submodule update --init --recursive
 mkdir build && cd build 
 cmake -DCMAKE_CXX_COMPILER=clang++ -DSHROUD_EXECUTABLE=/usr/local/bin/shroud ..
 make -j 3 generate_umpire_shroud
-

.github/workflows/generate-shroud.yml

@@ -1,8 +1,10 @@
-on: 
+on:
+  workflow_dispatch:
   pull_request:
     paths:
       - '**umpire_shroud.yaml'
       - '**genfumpiresplicer.f'
+      - '**gencumpiresplicer.inc'
 
 name: Generate C/FORTRAN Interface
 jobs:

docs/sphinx/tutorial/fortran/allocators.rst

@@ -3,14 +3,14 @@
 =======================
 FORTRAN API: Allocators
 =======================
-
+    
 The fundamental concept for accessing memory through Umpire is an
 :class:`umpire:Allocator`. In FORTRAN, this means using the type
 ``UmpireAllocator``. This type provides an ``allocate_pointer`` function to
 allocate raw memory, and a generic ``allocate`` procedure that takes an array
 pointer and an array of dimensions and will allocate the correct amount of
 memory.
-
+      
 As with the native C++ interface, all allocators are accessed via the
 :class:`umpire::ResourceManager`. In the FORTRAN API, there is a corresponding
 ``UmpireResourceManager`` type. To get an ``UmpireAllocator``:
@@ -31,3 +31,7 @@ deallocate memory:
 
 In this case, we allocate a one-dimensional array using the generic
 ``allocate`` function.
+
+.. note:: 
+
+   Umpire's FORTRAN interface is generated with the help of `Shroud <https://shroud.readthedocs.io/en/latest/>`_.

src/umpire/interface/c_fortran/gencumpiresplicer.inc

@@ -0,0 +1,101 @@
+//////////////////////////////////////////////////////////////////////////////
+// Copyright (c) 2016-26, Lawrence Livermore National Security, LLC and Umpire
+// project contributors. See the COPYRIGHT file for details.
+//
+// SPDX-License-Identifier: (MIT)
+//////////////////////////////////////////////////////////////////////////////
+//
+// Shroud splicer overrides for C wrappers.
+//
+// These bufferify wrappers correspond to explicit non-type template
+// instantiations such as makeAllocator<Strategy, false>(...). Shroud emits
+// invalid member calls for these overloads in the generated bufferify helpers,
+// so provide the exact wrapper bodies here.
+
+// splicer begin class.ResourceManager.method.make_allocator_list_pool_untracked_bufferify
+const std::string SHCXX_name(name, Lname);
+umpire::Allocator * SHCXX_allocator =
+    static_cast<umpire::Allocator *>(allocator.addr);
+umpire::Allocator * SHCXX_rv = new umpire::Allocator;
+*SHCXX_rv = SH_this->makeAllocator<umpire::strategy::DynamicPoolList, false>(
+    SHCXX_name, *SHCXX_allocator, initial_size, block);
+SHC_rv->addr = SHCXX_rv;
+SHC_rv->idtor = 1;
+return SHC_rv;
+// splicer end class.ResourceManager.method.make_allocator_list_pool_untracked_bufferify
+
+// splicer begin class.ResourceManager.method.make_allocator_quick_pool_untracked_bufferify
+const std::string SHCXX_name(name, Lname);
+umpire::Allocator * SHCXX_allocator =
+    static_cast<umpire::Allocator *>(allocator.addr);
+umpire::Allocator * SHCXX_rv = new umpire::Allocator;
+*SHCXX_rv = SH_this->makeAllocator<umpire::strategy::QuickPool, false>(
+    SHCXX_name, *SHCXX_allocator, initial_size, block);
+SHC_rv->addr = SHCXX_rv;
+SHC_rv->idtor = 1;
+return SHC_rv;
+// splicer end class.ResourceManager.method.make_allocator_quick_pool_untracked_bufferify
+
+// splicer begin class.ResourceManager.method.make_allocator_resource_aware_pool_untracked_bufferify
+const std::string SHCXX_name(name, Lname);
+umpire::Allocator * SHCXX_allocator =
+    static_cast<umpire::Allocator *>(allocator.addr);
+umpire::Allocator * SHCXX_rv = new umpire::Allocator;
+*SHCXX_rv = SH_this->makeAllocator<umpire::strategy::ResourceAwarePool, false>(
+    SHCXX_name, *SHCXX_allocator, initial_size, block);
+SHC_rv->addr = SHCXX_rv;
+SHC_rv->idtor = 1;
+return SHC_rv;
+// splicer end class.ResourceManager.method.make_allocator_resource_aware_pool_untracked_bufferify
+
+// splicer begin class.ResourceManager.method.make_allocator_fixed_pool_untracked_bufferify
+const std::string SHCXX_name(name, Lname);
+umpire::Allocator * SHCXX_allocator =
+    static_cast<umpire::Allocator *>(allocator.addr);
+umpire::Allocator * SHCXX_rv = new umpire::Allocator;
+*SHCXX_rv = SH_this->makeAllocator<umpire::strategy::FixedPool, false>(
+    SHCXX_name, *SHCXX_allocator, object_size);
+SHC_rv->addr = SHCXX_rv;
+SHC_rv->idtor = 1;
+return SHC_rv;
+// splicer end class.ResourceManager.method.make_allocator_fixed_pool_untracked_bufferify
+
+// splicer begin class.ResourceManager.method.make_allocator_monotonic_untracked_bufferify
+const std::string SHCXX_name(name, Lname);
+umpire::Allocator * SHCXX_allocator =
+    static_cast<umpire::Allocator *>(allocator.addr);
+umpire::Allocator * SHCXX_rv = new umpire::Allocator;
+*SHCXX_rv =
+    SH_this->makeAllocator<umpire::strategy::MonotonicAllocationStrategy, false>(
+        SHCXX_name, *SHCXX_allocator, object_size);
+SHC_rv->addr = SHCXX_rv;
+SHC_rv->idtor = 1;
+return SHC_rv;
+// splicer end class.ResourceManager.method.make_allocator_monotonic_untracked_bufferify
+
+// splicer begin class.ResourceManager.method.make_allocator_slot_pool_untracked_bufferify
+const std::string SHCXX_name(name, Lname);
+umpire::Allocator * SHCXX_allocator =
+    static_cast<umpire::Allocator *>(allocator.addr);
+umpire::Allocator * SHCXX_rv = new umpire::Allocator;
+*SHCXX_rv = SH_this->makeAllocator<umpire::strategy::SlotPool, false>(
+    SHCXX_name, *SHCXX_allocator, object_size);
+SHC_rv->addr = SHCXX_rv;
+SHC_rv->idtor = 1;
+return SHC_rv;
+// splicer end class.ResourceManager.method.make_allocator_slot_pool_untracked_bufferify
+
+// splicer begin class.ResourceManager.method.make_allocator_mixed_pool_untracked_bufferify
+const std::string SHCXX_name(name, Lname);
+umpire::Allocator * SHCXX_allocator =
+    static_cast<umpire::Allocator *>(allocator.addr);
+umpire::Allocator * SHCXX_rv = new umpire::Allocator;
+*SHCXX_rv = SH_this->makeAllocator<umpire::strategy::MixedPool, false>(
+    SHCXX_name, *SHCXX_allocator, smallest_fixed_obj_size,
+    largest_fixed_obj_size, max_initial_fixed_pool_size,
+    fixed_size_multiplier, quick_pool_initial_alloc_size,
+    quick_pool_min_alloc_size, quick_pool_align_bytes);
+SHC_rv->addr = SHCXX_rv;
+SHC_rv->idtor = 1;
+return SHC_rv;
+// splicer end class.ResourceManager.method.make_allocator_mixed_pool_untracked_bufferify