Skip to content
Snippets Groups Projects
Select Git revision
  • 4a0e5a3462e4b36b2cd22e3e1711a80f5930dd95
  • master default protected
  • 9.0
  • marcus/wix3
  • 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
  • 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

Wmml.pmod

Blame
  • Stack.pmod 882 B
    #define error(X) throw( ({ (X), backtrace()[0..sizeof(backtrace())-2] }) )
    
    class stack {
      int ptr;
      mixed *arr=allocate(32);
    
      void push(mixed val)
      {
        if(ptr==sizeof(arr)) arr+=allocate(ptr);
        arr[ptr++]=val;
      }
    
      mixed top()
      {
        if (ptr) {
          return(arr[ptr-1]);
        }
        error("Stack underflow\n");
      }
    
      mixed pop(void|int val)
      {
        mixed foo;
    
        if (val) {
          if (ptr <= 0) {
    	error("Stack underflow\n");
          }
    
          if (ptr < val) {
            val = ptr;
          }
          ptr -= val;
          foo = arr[ptr..ptr + val - 1];
     
          for (int i=0; i < val; i++) {
            arr[ptr + i] = 0;       /* Don't waste references */
          }
        } else {
          if(--ptr < 0)
    	error("Stack underflow\n");
        
          foo=arr[ptr];
          arr[ptr]=0; /* Don't waste references */
        }
        return foo;
      }
    
      void reset()
      {
        arr=allocate(32);
        ptr=0;
      }
    };