Just another update

Task/Function-prototype/ALGOL-68/function-prototype.alg

@@ -0,0 +1,37 @@
+#!/usr/bin/a68g --script #
+# -*- coding: utf-8 -*- #
+
+# An explanation of any placement restrictions for prototype declarations #
+PROC VOID no args; # Declare a function with no argument that returns an INTeger #
+PROC (INT #a#,INT #b#)VOID two args; # Declare a function with two arguments that returns an INTeger #
+MODE VARARGS = UNION(INT,REAL,COMPL);
+PROC ([]VARARGS)VOID var args; # An empty parameter list can be used to declare a function that accepts varargs #
+PROC (INT, []VARARGS)VOID at least one args; # One mandatory INTeger argument followed by varargs #
+
+MODE OPTINT = UNION(VOID,INT), OPTSTRING=UNION(VOID,STRING); # a function that utilizes optional arguments #
+PROC (OPTINT, OPTSTRING)VOID optional arguments;
+
+# A prototype declaration for a function that utilizes named parameters #
+MODE KWNAME = STRUCT(STRING name),
+     KWSPECIES = STRUCT(STRING species),
+     KWBREED = STRUCT(STRING breed),
+     OWNER=STRUCT(STRING first name, middle name, last name);
+
+# due to the "Yoneda ambiguity" simple arguments must have an unique operator defined #
+OP NAME = (STRING name)KWNAME: (KWNAME opt; name OF opt := name; opt),
+   SPECIES = (STRING species)KWSPECIES: (KWSPECIES opt; species OF opt := species; opt),
+   BREED = (STRING breed)KWBREED: (KWBREED opt; breed OF opt := breed; opt);
+
+PROC ([]UNION(KWNAME,KWSPECIES,KWBREED,OWNER) #options#)VOID print pet;
+
+# subroutines, and fuctions are procedures, so have the same prototype declarations #
+
+# An explanation and example of any special forms of prototyping not covered by the above:  #
+COMMENT
+  If a function has no arguments, eg f,
+  then it is not requied to pass it a "vacuum()" to call it, eg "f()" not correct!
+  Rather is can be called without the () vacuum. eg "f"
+  A GOTO "label" is equivalent to "PROC VOID label".
+END COMMENT
+
+SKIP

Task/Function-prototype/C++/function-prototype.cpp

@@ -0,0 +1,7 @@
+int noargs(); // Declare a function with no arguments that returns an integer
+int twoargs(int a,int b); // Declare a function with two arguments that returns an integer
+int twoargs(int ,int); // Parameter names are optional in a prototype definition
+int anyargs(...); // An ellipsis is used to declare a function that accepts varargs
+int atleastoneargs(int, ...); // One mandatory integer argument followed by varargs
+template<typename T> T declval(T); //A function template
+template<typename ...T> tuple<T...> make_tuple(T...); //Function template using parameter pack (since c++11)

Task/Function-prototype/C/function-prototype.c

@@ -1,5 +1,5 @@
-int noargs(); /* Declare a function with no arguments that returns an integer */
-int twoargs(int a,int b); /* Declare a function with no arguments that returns an integer */
+int noargs(void); /* Declare a function with no argument that returns an integer */
+int twoargs(int a,int b); /* Declare a function with two arguments that returns an integer */
 int twoargs(int ,int); /* Parameter names are optional in a prototype definition */
-int anyargs(...); /* An ellipsis can be used to declare a function that accepts varargs */
+int anyargs(); /* An empty parameter list can be used to declare a function that accepts varargs */
 int atleastoneargs(int, ...); /* One mandatory integer argument followed by varargs */

Task/Function-prototype/Clojure/function-prototype.clj

@@ -0,0 +1 @@
+(declare foo)

Task/Function-prototype/Perl/function-prototype.pl

@@ -1,2 +1,4 @@
 sub noargs(); # Declare a function with no arguments
 sub twoargs($$); # Declare a function with two scalar arguments. The two sigils act as argument type placeholders
+sub noargs :prototype(); # Using the :attribute syntax instead
+sub twoargs :prototype($$);