Commit 664dc87a authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-11-26 21:15:02 by beppe] changed a bit

Original author: beppe
Date: 2003-11-26 21:15:02+00:00
parent ed7717ce
type Bib = <bib>[Book*] ;; type Bib = <bib>[Book*]
type Book = <book year=String>[Title (Author+ | Editor+ ) Publisher Price ];; type Book = <book year=String>[Title (Author+ | Editor+ ) Publisher Price ]
type Author = <author>[Last First ];; type Author = <author>[Last First ]
type Editor = <editor>[Last First Affiliation ];; type Editor = <editor>[Last First Affiliation ]
type Title = <title>[PCDATA ];; type Title = <title>[PCDATA ]
type Last = <last>[PCDATA]
type Last = <last>[PCDATA];; type First = <first>[PCDATA]
type First = <first>[PCDATA];; type Affiliation = <affiliation>[PCDATA]
type Affiliation = <affiliation>[PCDATA];; type Publisher = <publisher>[PCDATA]
type Publisher = <publisher>[PCDATA];;
type Price = <price>[PCDATA];; type Price = <price>[PCDATA];;
let doc : Bib = <bib>[ let doc : Bib = <bib>[
......
...@@ -29,13 +29,14 @@ select ...@@ -29,13 +29,14 @@ select
from b in [doc]/<book>_ from b in [doc]/<book>_
where count([b]/<author>_)>=1;; where count([b]/<author>_)>=1;;
let q6p= let q6p=
<bib> <bib>
select <book>[t !a !(if etal=[] then [] else [<et-al>[]])] select <book>[t !a !(if etal=[] then [] else [<et-al>[]])]
from <bib>[b::Book*] in [doc], from <bib>[b::Book*] in [doc],
<book>[t&Title ( a&Author | a::(Author Author) etal::_*) Publisher _*] in b;; <book>[t&Title a::(Author Author?) etal::Author* ;_] in b;;
(* le typage est differents entre q6x et q6p: (* le typage est differents entre q6x et q6p:
on a pour q6x: on a pour q6x:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment