Data update

Task/Program-termination/Ada/program-termination-1.ada

@@ -1,10 +0,0 @@
-with Ada.Task_Identification;  use Ada.Task_Identification;
-
-procedure Main is
-   -- Create as many task objects as your program needs
-begin
-   -- whatever logic is required in your Main procedure
-   if some_condition then
-      Abort_Task (Current_Task);
-   end if;
-end Main;

Task/Program-termination/Ada/program-termination-2.ada

@@ -1,11 +0,0 @@
-procedure Main is
-   -- Create as many task objects as your program needs
-begin
-   -- whatever logic is required in your Main procedure
-   if some_condition then
-      -- for each task created by the Main procedure
-      The_task.Stop;
-      -- end the Main procedure
-      return;  -- actually, this is not needed
-   end if;
-end Main;

Task/Program-termination/Ada/program-termination-3.ada

@@ -1,14 +0,0 @@
-task body Some_Task is
-begin
-   loop
-      select
-         -- Some alternatives
-         ...
-      or accept Stop do
-            -- Some cleanup while holding the caller is here
-         end Stop;
-            -- A cleanup asynchronous to the caller is here
-         exit; -- We are through
-      end select
-   end loop;
-end Some_Task;

Task/Program-termination/Ada/program-termination-4.ada

@@ -1,10 +0,0 @@
-task body Some_Task is
-begin
-   loop
-      select
-         -- Some alternatives
-         ...
-      or terminate; -- We are through
-      end select
-   end loop;
-end Some_Task;

Task/Program-termination/AutoIt/program-termination.autoit

@@ -1,3 +0,0 @@
-If problem Then
-  Exit
-Endif

Task/Program-termination/COBOL/program-termination-1.cobol

@@ -1,3 +0,0 @@
-IF problem
-    STOP RUN
-END-IF

Task/Program-termination/COBOL/program-termination-2.cobol

@@ -1,3 +0,0 @@
-IF problem
-    GOBACK
-END-IF

Task/Program-termination/Emacs-Lisp/program-termination.l

@@ -1,2 +0,0 @@
-(when something
-  (kill-emacs))

Task/Program-termination/Phix/program-termination-1.phix

@@ -1,5 +1,3 @@
-(phixonline)-->
- <span style="color: #008080;">if</span> <span style="color: #000000;">error_code</span><span style="color: #0000FF;">!=</span><span style="color: #000000;">NO_ERROR</span> <span style="color: #008080;">then</span>
-     <span style="color: #7060A8;">abort</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">)</span>
- <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
-<!--
+if error_code!=NO_ERROR then
+    abort(0)
+end if

Task/Program-termination/Phix/program-termination-2.phix

@@ -1,5 +1,3 @@
--->
- <span style="color: #008080;">if</span> <span style="color: #000000;">error_code</span><span style="color: #0000FF;">!=</span><span style="color: #000000;">NO_ERROR</span> <span style="color: #008080;">then</span>
-     <span style="color: #7060A8;">exit_thread</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">)</span>
- <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
-<!--
+if error_code!=NO_ERROR then
+    exit_thread(0)
+end if

Task/Program-termination/PowerShell/program-termination.psh

@@ -1,3 +0,0 @@
-if (somecondition) {
-    exit
-}

Task/Program-termination/REBOL/program-termination-1.rebol

@@ -1 +0,0 @@
-if error? try [6 / 0] [quit]

Task/Program-termination/REBOL/program-termination-2.rebol

@@ -1 +0,0 @@
-if error? try [dangerous-operation] [quit/return -12]

Task/Program-termination/REBOL/program-termination-3.rebol

@@ -1 +0,0 @@
-if error? try [something-silly] [q/return -12]

Task/Program-termination/REBOL/program-termination-4.rebol

@@ -1 +0,0 @@
-view layout [button "stopme" [halt]]

Task/Program-termination/VBScript/program-termination.vb

@@ -1,11 +0,0 @@
-dim i, j
-j = 0
-do
-    for i = 1 to 100
-        while j < i
-            if i = 3 then
-                wscript.quit
-            end if
-        wend
-    next
-loop