Grammar Composition System

/src/branch/20110407-thread-priority/test-grm/g2agr/rules.tdl

;;; Rules

s_rule := phrase &
[ CATEG s,
  NUMAGR #1,
  ARGS [ FIRST [ CATEG np,
                 NUMAGR #1 ],
         REST [ FIRST [ CATEG vp,
                        NUMAGR #1 ],
                REST *null* ]]] .

np_rule := phrase &
[ CATEG np,
  NUMAGR #1,
  ARGS [ FIRST [ CATEG det,
                 NUMAGR #1 ],
         REST [ FIRST [ CATEG n,
                        NUMAGR #1 ],
                REST *null* ]]] .