Add missing RIF symbols.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 14 insertions, 0 deletions

diff --git a/examples/generif.scm b/examples/generif.scm
index fb3208a..b6a1e2c 100755
--- a/examples/generif.scm
+++ b/examples/generif.scm
@@ -45,6 +45,19 @@
     (set rdfs:label
          (field GeneRIF_BASIC symbol))))
 
+(define-transformer generif-symbols
+  (tables (GeneRIF)
+          "WHERE symbol NOT IN (SELECT symbol from GeneRIF_BASIC) GROUP BY BINARY symbol")
+  (triples
+      (string->identifier
+       "symbol"
+       (regexp-substitute/global #f "[^A-Za-z0-9:]"
+                                 (field GeneRIF symbol)
+                                 'pre "_" 'post)
+       #:proc (lambda (x) x))
+    (set rdfs:label
+         (field GeneRIF symbol))))
+
 (define-transformer gn-genewiki-entries
   (tables (GeneRIF
            (left-join Species "ON Species.SpeciesId = GeneRIF.SpeciesId")
@@ -219,6 +232,7 @@
    (inputs
     (list
      genewiki-symbols
+     generif-symbols
      gn-genewiki-entries
      ncbi-genewiki-entries))
    (outputs