chiark / gitweb /
protogen: missing generated docs
authorRichard Kettlewell <rjk@terraraq.org.uk>
Sun, 7 Aug 2011 12:57:44 +0000 (13:57 +0100)
committerRichard Kettlewell <rjk@terraraq.org.uk>
Sun, 7 Aug 2011 12:57:44 +0000 (13:57 +0100)
lib/client-stubs.h
scripts/protocol

index 8b0f4c5..07312b4 100644 (file)
@@ -539,6 +539,7 @@ int disorder_revoke(disorder_client *c);
  *
  * @param c Client
  * @param addressp Where to store hostname or address
+ * @param portp Where to store service name or port number
  * @return 0 on success, non-0 on error
  */
 int disorder_rtp_address(disorder_client *c, char **addressp, char **portp);
@@ -759,6 +760,7 @@ int disorder_set_volume(disorder_client *c, long left, long right);
  *
  * @param c Client
  * @param leftp Left channel volume
+ * @param rightp Right channel volume
  * @return 0 on success, non-0 on error
  */
 int disorder_get_volume(disorder_client *c, long *leftp, long *rightp);
index c7ef728..9e7be9d 100755 (executable)
@@ -194,6 +194,7 @@ sub c_param_docs {
 sub c_return_docs {
     my $returns = shift;
     return () unless defined $returns;
+    my @docs = ();
     for my $return (@$returns) {
         my $type = $return->[0];
         my $name = $return->[1];
@@ -203,20 +204,25 @@ sub c_return_docs {
            or $type eq 'integer'
            or $type eq 'time'
            or $type eq 'boolean') {
-            return (" * \@param ${name}p $descr\n");
+            push(@docs,
+                " * \@param ${name}p $descr\n");
         } elsif($type eq 'list' or $type eq 'body') {
-            return (" * \@param ${name}p $descr\n",
-                    " * \@param n${name}p Number of elements in ${name}p\n");
+            push(@docs,
+                " * \@param ${name}p $descr\n",
+                " * \@param n${name}p Number of elements in ${name}p\n");
         } elsif($type eq 'pair-list') {
-            return (" * \@param ${name}p $descr\n");
+            push(@docs,
+                " * \@param ${name}p $descr\n");
         } elsif($type eq 'queue' or $type eq 'queue-one') {
-            return (" * \@param ${name}p $descr\n");
+            push(@docs,
+                " * \@param ${name}p $descr\n");
         } elsif($type eq 'user') {
-            return ();
+           # nothing
         } else {
             die "$0: c_return_docs: unknown type '$type'\n";
         }
     }
+    return @docs;
 }
 
 # simple(CMD, SUMMARY, DETAIL,