Commit c4f4c71b 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 33cbc7ae
type Bib = <bib>[Book*] ;;
type Book = <book year=String>[Title (Author+ | Editor+ ) Publisher Price ];;
type Author = <author>[Last First ];;
type Editor = <editor>[Last First Affiliation ];;
type Title = <title>[PCDATA ];;
type Last = <last>[PCDATA];;
type First = <first>[PCDATA];;
type Affiliation = <affiliation>[PCDATA];;
type Publisher = <publisher>[PCDATA];;
type Bib = <bib>[Book*]
type Book = <book year=String>[Title (Author+ | Editor+ ) Publisher Price ]
type Author = <author>[Last First ]
type Editor = <editor>[Last First Affiliation ]
type Title = <title>[PCDATA ]
type Last = <last>[PCDATA]
type First = <first>[PCDATA]
type Affiliation = <affiliation>[PCDATA]
type Publisher = <publisher>[PCDATA]
type Price = <price>[PCDATA];;
let doc : Bib = <bib>[
......
......@@ -29,13 +29,14 @@ select
from b in [doc]/<book>_
where count([b]/<author>_)>=1;;
let q6p=
<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],
<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:
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