[wip/genom3-openprs] Upstream fix for private exceptions

This fixes the build of components defining exceptions that are not in the
public interface (e.g. exceptions thrown by tasks).

genom3-openprs/Makefile

@@ -2,7 +2,7 @@
 # Created:			Anthony Mallet on Sun, 28 Jan 2007
 #
 
-PKGREVISION=	1
+PKGREVISION=	2
 DISTNAME=	genom3-openprs-1.0.6
 CATEGORIES=	architecture
 MASTER_SITES=	${MASTER_SITE_OPENROBOTS:=genom3-openprs/}

genom3-openprs/distinfo

 SHA1 (genom3-openprs-1.0.6.tar.gz) = 9d7740f3ef344817255c49491fbcde6381f948f4
 RMD160 (genom3-openprs-1.0.6.tar.gz) = 31b567ed8f2396f8cf957b4ca53efbe69fdba066
 Size (genom3-openprs-1.0.6.tar.gz) = 61419 bytes
+SHA1 (patch-aa) = b81520e5d19585be76118bf4ed06edeba393e64e

genom3-openprs/patches/patch-aa

+Private exceptions will not be defined for a client (since they cannot be
+thrown).
+
+This fixes the build of component defining exceptions thrown only by tasks.
+
+diff --git a/client/EncodeDecodeOpenprs.c b/client/EncodeDecodeOpenprs.c
+index a776c90..d99b98b 100644
+--- client/EncodeDecodeOpenprs.c
++++ client/EncodeDecodeOpenprs.c
+@@ -485,7 +485,8 @@ Term *genom_oprs_<"$comp">_exception(genom_event e, const void *detail)
+ 	  free(s);
+ 	  return res;
+      }
+-<'foreach e [$component throws] {'>
++<'foreach e [$component types public] {'>
++<'  if {[$e kind] != "exception"} continue'>
+      else if (e == <"[$e cname]">_id) {
+ <'  if {[llength [$e members]]} {'>
+        return build_<"$comp">_exception_term("<"[$e cname]">", decode_g3_<"[$e mangle]">(detail));