Skip to content
Snippets Groups Projects
Select Git revision
  • 4ca43ea5f9c24f4e9370c43d970b067e52378085
  • master default protected
  • 9.0
  • 8.0
  • nt-tools
  • 7.8
  • 7.6
  • 7.4
  • 7.2
  • 7.0
  • 0.6
  • rosuav/latex-markdown-renderer
  • rxnpatch/rxnpatch
  • marcus/gobject-introspection
  • rxnpatch/8.0
  • rosuav/pre-listening-ports
  • rosuav/async-annotations
  • rosuav/pgsql-ssl
  • rxnpatch/rxnpatch-broken/2023-10-06T094250
  • grubba/fdlib
  • grubba/wip/sakura/8.0
  • v8.0.2020
  • v8.0.2018
  • v8.0.2016
  • v8.0.2014
  • v8.0.2012
  • v8.0.2008
  • v8.0.2006
  • v8.0.2004
  • v8.0.2002
  • v8.0.2000
  • v8.0.1998
  • v8.0.1996
  • v8.0.1994
  • v8.0.1992
  • v8.0.1990
  • v8.0.1988
  • v8.0.1986
  • rxnpatch/clusters/8.0/2025-04-29T124414
  • rxnpatch/2025-04-29T124414
  • v8.0.1984
41 results

main.c

Blame
  • Mapping.pmod 3.75 KiB
    #pike __REAL_VERSION__
    #pragma strict_types
    
    //! Alias for @[m_delete()]
    constant delete=m_delete;
    
    constant Iterator = __builtin.mapping_iterator;
    
    //! A mapping look-alike that overrides (ie shadows) another @[parent] mapping.
    //!
    //! The class implements most of the usual mapping operations.
    class ShadowedMapping(protected mapping|ShadowedMapping parent)
    {
      protected mapping shadow = ([]);
    
      protected mapping joined;
      protected mapping parent_copy;
    
      protected int(0..1) modify_parent;
    
      //! @decl void create(mapping|ShadowedMapping parent, @
      //!                   mapping|void shadow, int(0..1)|void modify_parent)
      //!
      //! @param parent
      //!   Mapping to be shadowed.
      //! @param shadow
      //!   Initial shadow of @[parent].
      //! @param modify_parent
      //!   Modifications should be done to @[parent] rather than
      //!   to @[shadow]. If this is set, only entries that are
      //!   already present in @[shadow] can be modified by later
      //!   operations.
    
      protected void create(mapping|void shadow, int(0..1)|void modify_parent)
      {
        if (shadow) this_program::shadow = shadow + ([]);
        this_program::modify_parent = modify_parent;
      }
    
      // Updates the cached joined mapping if needed.
      protected void update_joined()
      {
        if (!joined || !equal(parent, parent_copy)) {
          joined = [mapping](parent + shadow);
          parent_copy = [mapping](parent + ([]));
        }
      }
    
      protected mixed `[](mixed ind)
      {
        mixed res = shadow[ind];
        if (!zero_type(res)) return res;
        return parent[ind];
      }
    
      protected void `[]=(mixed ind, mixed val)
      {
        joined = 0;
        if (modify_parent && zero_type(shadow[ind])) {
          parent[ind] = val;
        } else {
          shadow[ind] = val;
        }
      }
    
      protected mixed `->(string ind)
      {
        return `[](ind);
      }
    
      protected void `->=(string ind, mixed val)
      {
        `[]=(ind, val);
      }
    
      protected int(0..1) _equal(mixed other)
      {
        update_joined();
        return equal(other, joined);
      }
    
      protected mixed _m_delete(mixed ind)
      {
        mixed res = m_delete(shadow, ind);
        if (zero_type(res)) {
          res = m_delete(parent, ind);
        }
        if (!zero_type(res)) {
          joined = 0;
        }
        return res;
      }
    
      protected array(mixed) _indices()
      {
        update_joined();
        return indices(joined);
      }
    
      protected array(mixed) _values()
      {
        update_joined();
        return values(joined);
      }
    
      protected mixed `+(mixed ... args)
      {
        update_joined();
        return predef::`+(joined, @args);
      }
    
      protected mixed ``+(mixed ... args)
      {
        update_joined();
        return predef::`+(@args, joined);
      }
    
      protected mixed `-(mixed ... args)
      {
        update_joined();
        return predef::`-(joined, @args);
      }
    
      protected mixed ``-(mixed ... args)
      {
        update_joined();
        return predef::`-(@args, joined);
      }
    
      protected mixed `|(mixed ... args)
      {
        update_joined();
        return predef::`|(joined, @args);
      }
    
      protected mixed ``|(mixed ... args)
      {
        update_joined();
        return predef::`|(@args, joined);
      }
    
      protected mixed `&(mixed ... args)
      {
        update_joined();
        return predef::`&(joined, @args);
      }
    
      protected mixed ``&(mixed ... args)
      {
        update_joined();
        return predef::`&(@args, joined);
      }
    
      protected mixed `^(mixed ... args)
      {
        update_joined();
        return predef::`^(joined, @args);
      }
    
      protected mixed ``^(mixed ... args)
      {
        update_joined();
        return predef::`^(@args, joined);
      }
    
      protected mixed cast(string type)
      {
        update_joined();
        switch(type) {
        case "mapping": return joined + ([]);
        case "array": return (array)joined;
        }
        return joined + ([]);
      }
    
      protected mixed _search(mixed val)
      {
        update_joined();
        return search(joined, val);
      }
    
      protected string _sprintf(int c)
      {
        update_joined();
        return sprintf(sprintf("%%%c", c), joined);
      }
    }