Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,23 +0,0 @@
|
|||
pragma Initialize_Scalars;
|
||||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
|
||||
procedure Invalid_Value is
|
||||
type Color is (Red, Green, Blue);
|
||||
X : Float;
|
||||
Y : Color;
|
||||
begin
|
||||
if not X'Valid then
|
||||
Put_Line ("X is not valid");
|
||||
end if;
|
||||
X := 1.0;
|
||||
if X'Valid then
|
||||
Put_Line ("X is" & Float'Image (X));
|
||||
end if;
|
||||
if not Y'Valid then
|
||||
Put_Line ("Y is not valid");
|
||||
end if;
|
||||
Y := Green;
|
||||
if Y'Valid then
|
||||
Put_Line ("Y is " & Color'Image (Y));
|
||||
end if;
|
||||
end Invalid_Value;
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
if (Get-Variable -Name noSuchVariable -ErrorAction SilentlyContinue)
|
||||
{
|
||||
$true
|
||||
}
|
||||
else
|
||||
{
|
||||
$false
|
||||
}
|
||||
|
|
@ -1 +0,0 @@
|
|||
Get-PSProvider
|
||||
|
|
@ -1 +0,0 @@
|
|||
Test-Path Variable:\noSuchVariable
|
||||
|
|
@ -1 +0,0 @@
|
|||
$noSuchVariable -eq $null
|
||||
Loading…
Add table
Add a link
Reference in a new issue