Data update

Task/Function-prototype/Ada/function-prototype-1.ada

@@ -1,6 +0,0 @@
-function noargs return Integer;
-function twoargs (a, b : Integer) return Integer;
---  varargs do not exist
-function optionalargs (a, b : Integer := 0) return Integer;
---  all parameters are always named, only calling by name differs
-procedure dostuff (a : Integer);

Task/Function-prototype/Ada/function-prototype-2.ada

@@ -1,5 +0,0 @@
-type Box; --  tell Ada a box exists (undefined yet)
-type accBox is access Box; --  define a pointer to a box
-type Box is record --  later define what a box is
-   next : accBox; --  including that a box holds access to other boxes
-end record;

Task/Function-prototype/Ada/function-prototype-3.ada

@@ -1,4 +0,0 @@
-package Stack is
-   procedure Push(Object:Integer);
-   function Pull return Integer;
-end Stack;

Task/Function-prototype/Ada/function-prototype-4.ada

@@ -1,13 +0,0 @@
-package body Stack is
-
-   procedure Push(Object:Integer) is
-   begin
-      -- implementation goes here
-   end;
-
-   function Pull return Integer;
-   begin
-      -- implementation goes here
-   end;
-
-end Stack;

Task/Function-prototype/Ada/function-prototype-5.ada

@@ -1,8 +0,0 @@
-with Stack;
-procedure Main is
-   N:integer:=5;
-begin
-   Push(N);
-   ...
-   N := Pull;
-end Main;

Task/Function-prototype/COBOL/function-prototype.cobol

@@ -1,39 +0,0 @@
-       *> A subprogram taking no arguments and returning nothing.
-       PROGRAM-ID. no-args PROTOTYPE.
-       END PROGRAM no-args.
-
-       *> A subprogram taking two 8-digit numbers as arguments, and returning
-       *> an 8-digit number.
-       PROGRAM-ID. two-args PROTOTYPE.
-       DATA DIVISION.
-       LINKAGE SECTION.
-       01  arg-1 PIC 9(8).
-       01  arg-2 PIC 9(8).
-       01  ret   PIC 9(8).
-       PROCEDURE DIVISION USING arg-1, arg-2 RETURNING ret.
-       END PROGRAM two-args.
-
-       *> A subprogram taking two optional arguments which are 8-digit
-       *> numbers (passed by reference (the default and compulsory for
-       *> optional arguments)).
-       PROGRAM-ID. optional-args PROTOTYPE.
-       DATA DIVISION.
-       LINKAGE SECTION.
-       01  arg-1 PIC 9(8).
-       01  arg-2 PIC 9(8).
-       PROCEDURE DIVISION USING OPTIONAL arg-1, OPTIONAL arg-2.
-       END PROGRAM optional-args.
-
-       *> Standard COBOL does not support varargs or named parameters.
-
-       *> A function from another language, taking a 32-bit integer by
-       *> value and returning a 32-bit integer (in Visual COBOL).
-       PROGRAM-ID. foreign-func PROTOTYPE.
-       OPTIONS.
-           ENTRY-CONVENTION some-langauge.
-       DATA DIVISION.
-       WORKING-STORAGE SECTION.
-       01  arg PIC S9(9) USAGE COMP-5.
-       01  ret PIC S9(9) USAGE COMP-5.
-       PROCEDURE DIVISION USING arg RETURNING ret.
-       END PROGRAM foreign-func.