Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/GAP/tst/testinstall/ (Algebra von RWTH Aachen Version 4.15.1^©) Datei vom 18.9.2025 mit Größe 1 kB

Quelle localvars.tst Sprache: unbekannt

#@local a,f,func,g
gap> f := function()
> local a,b,c;
> if IsBound(a) then Print("1"); fi;
> a := 2;
> if not IsBound(a) then Print("2"); fi;
> if IsBound(b) then Print("3"); fi;
> Unbind(a);
> Unbind(b);
> if IsBound(a) then Print("4"); fi;
> if IsBound(b) then Print("4"); fi;
> end;;
gap> f();
gap> Print(f,"\n");
function (  )
    local a, b, c;
    if IsBound( a ) then
        Print( "1" );
    fi;
    a := 2;
    if not IsBound( a ) then
        Print( "2" );
    fi;
    if IsBound( b ) then
        Print( "3" );
    fi;
    Unbind( a );
    Unbind( b );
    if IsBound( a ) then
        Print( "4" );
    fi;
    if IsBound( b ) then
        Print( "4" );
    fi;
    return;
end

# Now nested
gap> g := function()
> local a,b,f;
> f := function()
> if IsBound(a) then Print("1"); fi;
> a := 2;
> if not IsBound(a) then Print("2"); fi;
> if IsBound(b) then Print("3"); fi;
> Unbind(a);
> Unbind(b);
> if IsBound(a) then Print("4"); fi;
> if IsBound(b) then Print("4"); fi;
> end;
> return f;
> end;;
gap> func := g();;
gap> Print(g, "\n");
function (  )
    local a, b, f;
    f := function (  )
          if IsBound( a ) then
              Print( "1" );
          fi;
          a := 2;
          if not IsBound( a ) then
              Print( "2" );
          fi;
          if IsBound( b ) then
              Print( "3" );
          fi;
          Unbind( a );
          Unbind( b );
          if IsBound( a ) then
              Print( "4" );
          fi;
          if IsBound( b ) then
              Print( "4" );
          fi;
          return;
      end;
    return f;
end
gap> Print(func, "\n");
function (  )
    if IsBound( a ) then
        Print( "1" );
    fi;
    a := 2;
    if not IsBound( a ) then
        Print( "2" );
    fi;
    if IsBound( b ) then
        Print( "3" );
    fi;
    Unbind( a );
    Unbind( b );
    if IsBound( a ) then
        Print( "4" );
    fi;
    if IsBound( b ) then
        Print( "4" );
    fi;
    return;
end