Changeset 27402 in project


Ignore:
Timestamp:
09/11/12 04:23:46 (8 years ago)
Author:
Alan Post
Message:

jbogenturfa'i: implement tree for several time & tense cmavo.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/jbogenturfahi/trunk/samselpla.scm

    r23159 r27402  
    14361436  BEI-clause)
    14371437
    1438 (define (quantifier-BOI . rodasumti)
    1439   `(quantifier-BOI ,@rodasumti))
    1440 
    1441 (define (quantifier-VEI . rodasumti)
    1442   `(quantifier-VEI ,@rodasumti))
     1438(define (quantifier-BOI number BOI-clause? free*)
     1439  `(,number ,@(?-null BOI-clause?) ,@(*-null free*)))
     1440
     1441(define (quantifier-VEI VEI-clause free-0* mex VEhO-clause? free-1*)
     1442  `(,@VEI-clause
     1443    ,@(*-null free-0*)
     1444    ,@mex
     1445    ,@(?-null VEhO-clause?)
     1446    ,@(*-null free-1*)))
    14431447
    14441448(define (mex . rodasumti)
     
    16301634    ,@(?-null NAI-clause?)))
    16311635
    1632 (define (gihek . rodasumti)
    1633   `(gihek ,@rodasumti))
    1634 
    1635 (define (gihek-sa . rodasumti)
    1636   `(gihek-sa ,@rodasumti))
    1637 
    1638 (define (gihek-1 . rodasumti)
    1639   `(gihek-1 ,@rodasumti))
    1640 
    1641 (define (jek . rodasumti)
    1642   `(jek ,@rodasumti))
    1643 
    1644 (define (joik-JOI . rodasumti)
    1645   `(joik-JOI ,@rodasumti))
    1646 
    1647 (define (joik-interval . rodasumti)
    1648   `(joik-interval ,@rodasumti))
    1649 
    1650 (define (joik-GAhO . rodasumti)
    1651   `(joik-GAhO ,@rodasumti))
    1652 
    1653 (define (interval . rodasumti)
    1654   `(interval ,@rodasumti))
     1636(define (gihek gihek-sa* gihek-1)
     1637  `(gihek ,@(*-null gihek-sa*) ,gihek-1))
     1638
     1639(define (gihek-sa gihek-1 sa-word* SA-clause)
     1640  `(sa-clause
     1641    ,@gihek-1
     1642    ,@(apply append (*-null sa-word*))
     1643    ,@SA-clause))
     1644
     1645(define (gihek-1 NA-clause? SE-clause? GIhA-clause NAI-clause?)
     1646  `(,@(?-null NA-clause?)
     1647    ,@(?-null SE-clause?)
     1648    ,@GIhA-clause
     1649    ,@(?-null NAI-clause?)))
     1650
     1651(define (jek NA-clause? SE-clause? JA-clause NAI-clause?)
     1652  `(jek ,@(?-null NA-clause?)
     1653        ,@(?-null SE-clause?)
     1654        ,@JA-clause
     1655        ,@(?-null NAI-clause?)))
     1656
     1657(define (joik-JOI SE-clause? JOI-clause NAI-clause?)
     1658  `(joik ,@(?-null SE-clause?)
     1659         ,@JOI-clause
     1660         ,@(?-null NAI-clause?)))
     1661
     1662(define (joik-interval interval)
     1663  `(joik ,@interval))
     1664
     1665(define (joik-GAhO GAhO-clause interval GAhO-clause)
     1666  `(joik ,@GAhO-clause
     1667         ,@interval
     1668         ,@GAhO-clause))
     1669
     1670(define (interval SE-clause? BIhI-clause NAI-clause?)
     1671  `(,@(?-null SE-clause?)
     1672    ,@BIhI-clause
     1673    ,@(?-null NAI-clause?)))
    16551674
    16561675(define (joik-ek . rodasumti)
Note: See TracChangeset for help on using the changeset viewer.