From: Chris Hanson Date: Fri, 10 Aug 2007 19:26:03 +0000 (+0000) Subject: Add EVENT:NEW-RDF-GRAPH. X-Git-Tag: 20090517-FFI~465 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=05e6e2e5954a08b24c7c0e8ec1ec21ea01950f20;p=mit-scheme.git Add EVENT:NEW-RDF-GRAPH. --- diff --git a/v7/src/xml/rdf-struct.scm b/v7/src/xml/rdf-struct.scm index aac68d5e4..bb221d946 100644 --- a/v7/src/xml/rdf-struct.scm +++ b/v7/src/xml/rdf-struct.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: rdf-struct.scm,v 1.30 2007/08/02 04:40:16 cph Exp $ +$Id: rdf-struct.scm,v 1.31 2007/08/10 19:26:02 cph Exp $ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -119,10 +119,12 @@ USA. '()))) (hash-table/intern! rdf-graphs triples (lambda () - (%make-rdf-graph triples))))) + (let ((graph (%make-rdf-graph triples))) + (event-distributor/invoke! event:new-rdf-graph graph) + graph))))) -(define rdf-graphs - (make-equal-hash-table)) +(define rdf-graphs (make-equal-hash-table)) +(define event:new-rdf-graph (make-event-distributor)) ;;;; Blank nodes diff --git a/v7/src/xml/xml.pkg b/v7/src/xml/xml.pkg index f34d6bcfd..96755aeef 100644 --- a/v7/src/xml/xml.pkg +++ b/v7/src/xml/xml.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: xml.pkg,v 1.96 2007/08/02 04:40:41 cph Exp $ +$Id: xml.pkg,v 1.97 2007/08/10 19:26:03 cph Exp $ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -552,6 +552,7 @@ USA. error:not-rdf-prefix-registry error:not-rdf-qname error:not-rdf-triple + event:new-rdf-graph event:new-rdf-triple for-each-rdf-triple guarantee-rdf-bnode