Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,5 +0,0 @@
|
|||
package P is
|
||||
... -- Declarations placed here are publicly visible
|
||||
private
|
||||
... -- These declarations are visible only to the children of P
|
||||
end P;
|
||||
|
|
@ -1,11 +0,0 @@
|
|||
package P is
|
||||
type T is private; -- No components visible
|
||||
procedure F (X : in out T); -- The only visible operation
|
||||
N : constant T; -- A constant, which value is hidden
|
||||
private
|
||||
type T is record -- The implementation, visible to children only
|
||||
Component : Integer;
|
||||
end record;
|
||||
procedure V (X : in out T); -- Operation used only by children
|
||||
N : constant T := (Component => 0); -- Constant implementation
|
||||
end P;
|
||||
|
|
@ -1,4 +0,0 @@
|
|||
package body P is
|
||||
-- The implementation of P, invisible to anybody
|
||||
procedure W (X : in out T); -- Operation used only internally
|
||||
end P;
|
||||
|
|
@ -1,5 +0,0 @@
|
|||
private package P.Q is
|
||||
... -- Visible to the siblings only
|
||||
private
|
||||
... -- Visible to the children only
|
||||
end P.Q;
|
||||
|
|
@ -1,6 +0,0 @@
|
|||
$a = "foo" # global scope
|
||||
function test {
|
||||
$a = "bar" # local scope
|
||||
Write-Host Local: $a # "bar" - local variable
|
||||
Write-Host Global: $global:a # "foo" - global variable
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue