Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,48 +0,0 @@
|
|||
procedure Goto_Test is
|
||||
begin
|
||||
|
||||
Stuff;
|
||||
goto The_Mother_Ship; -- You can do this if you really must!
|
||||
Stuff;
|
||||
if condition then
|
||||
Stuff;
|
||||
<<Jail>>
|
||||
Stuff;
|
||||
end if;
|
||||
Stuff;
|
||||
|
||||
-- Ada does not permit any of the following
|
||||
goto Jail;
|
||||
goto The_Sewer;
|
||||
goto The_Morgue;
|
||||
|
||||
Stuff;
|
||||
case condition is
|
||||
when Arm1 =>
|
||||
Stuff;
|
||||
goto The_Gutter; -- Cant do this either
|
||||
Stuff;
|
||||
when Arm2 =>
|
||||
Stuff;
|
||||
<<The_Gutter>>
|
||||
Stuff;
|
||||
<<The_Sewer>>
|
||||
Stuff;
|
||||
end case;
|
||||
|
||||
Stuff;
|
||||
for I in Something'Range loop
|
||||
Stuff;
|
||||
<<The_Morgue>>
|
||||
if You_Are_In_Trouble then
|
||||
goto The_Mother_Ship;
|
||||
-- This is the usual use of a goto.
|
||||
end if;
|
||||
Stuff;
|
||||
end loop;
|
||||
|
||||
Stuff;
|
||||
<<The_Mother_Ship>>
|
||||
Stuff;
|
||||
|
||||
end Goto_Test;
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. jumps-program.
|
||||
* Nobody writes like this, of course; but...
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
|
||||
* You can jump anywhere you like.
|
||||
start-paragraph.
|
||||
GO TO an-arbitrary-paragraph.
|
||||
|
||||
yet-another-paragraph.
|
||||
ALTER start-paragraph TO PROCEED TO a-paragraph-somewhere.
|
||||
* That's right, folks: we don't just have GO TOs, we have GO TOs whose
|
||||
* destinations can be changed at will, from anywhere in the program,
|
||||
* at run time.
|
||||
GO TO start-paragraph.
|
||||
* But bear in mind: once you get there, the GO TO no longer goes to
|
||||
* where it says it goes to.
|
||||
|
||||
a-paragraph-somewhere.
|
||||
DISPLAY 'Never heard of him.'
|
||||
STOP RUN.
|
||||
|
||||
some-other-paragraph.
|
||||
* You think that's bad? You ain't seen nothing.
|
||||
GO TO yet-another-paragraph.
|
||||
|
||||
an-arbitrary-paragraph.
|
||||
DISPLAY 'Edsger who now?'
|
||||
GO TO some-other-paragraph.
|
||||
|
||||
END PROGRAM jumps-program.
|
||||
|
|
@ -1,7 +0,0 @@
|
|||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
01 province PICTURE IS 99 VALUE IS 2.
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
GO TO quebec, ontario, manitoba DEPENDING ON province.
|
||||
* Jumps to section or paragraph named 'ontario'.
|
||||
|
|
@ -1 +0,0 @@
|
|||
:myLabel while (<condition>) { <statement list>}
|
||||
|
|
@ -1,9 +0,0 @@
|
|||
:myLabel while (<condition 1>)
|
||||
{
|
||||
for ($item in $items)
|
||||
{
|
||||
if (<condition 2>) { break myLabel }
|
||||
$item = $x # A statement inside the For-loop
|
||||
}
|
||||
}
|
||||
$a = $c # A statement after the labeled While-loop
|
||||
|
|
@ -1,15 +0,0 @@
|
|||
:red while (<condition1>)
|
||||
{
|
||||
:yellow while (<condition2>)
|
||||
{
|
||||
while (<condition3>)
|
||||
{
|
||||
if ($a) {break}
|
||||
if ($b) {break red}
|
||||
if ($c) {break yellow}
|
||||
}
|
||||
# After innermost loop
|
||||
}
|
||||
# After "yellow" loop
|
||||
}
|
||||
# After "red" loop
|
||||
Loading…
Add table
Add a link
Reference in a new issue