home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / rec / sila.cnv < prev    next >
Encoding:
Text File  |  1990-07-09  |  1.5 KB  |  44 lines
  1. [sila.cnv]
  2. [G. Cisneros, 12.9.88]
  3. [reglas de silabeo segun la Academia
  4. (J. A. Ma\~nas, Commun. ACM 30, #7, 612--616 (1987)]
  5.  
  6. (()()(0 1 2)(
  7.     (<>,);
  8.     ((and,<:P:>,<0>)(and,<:V:>,<1>)<2>,<<
  9.     >>(%W,,<0>)<1><2>):
  10.     ((and,<:V:>,<0>)(and,(or,h,H)<:D:>,<1>)<2>,<<
  11.     >>(%W,,<0>)<1><2>):
  12.     ((and,<:D:>,<0>)(and,(or,h,H)<:F:>,<1>)<2>,<<
  13.     >>(%W,,<0>)<1><2>):
  14.     ((and,<:L:>,<0>)(and,(or,<:P:>,<:C:>)<:V:>,<1>)<2>,<<
  15.     >>(%W,,<0>-)<1><2>):
  16.     ((and,<:F:>,<0>)(and,<:F:><:L:>,<1>)<2>,<<
  17.     >>(%W,,<0>-)<1><2>):
  18.     ((and,<:L:>,<0>)<1>,(%W,,<0>)<1>):
  19.     (,(WHILE,(0 1),<=>,(and,(NOT,<:L:>)<[1]>,<0>)<1>,(%W,,<0>),<1>,<<
  20.             >>(q,<=>))):
  21. )) s
  22.  
  23. (()()(0 1)(
  24.     ((and,<:L:>,<0>)<1>,(%W,,<0>)<1>);
  25. )) q
  26.  
  27. ((
  28.     ((or,\<'>(or,e,a,o,i,u,E,A,O,I,U),e,a,o,E,A,O)) F    [Fuerte]
  29.     ((or,i,I,(or,\<">,)(or,u,U))) D            [Debil]
  30.     ((or,<:F:>,<:D:>)) V                [Vocal]
  31.     ((or,(IVL/B/D/),(IVL/F/H/),(IVL/J/N/),(IVL/P/T/),(IVL/V/Z/))) M [Mayus]
  32.     ((or,(IVL/b/d/),(IVL/f/h/),(IVL/j/n/),(IVL/p/t/),(IVL/v/z/))) m [Minus]
  33.     ((or,\~(or,n,N),<:m:>,<:M:>)) C            [Consonante]
  34.     ((or,b,c,f,g,k,p,t,B,C,F,G,K,P,T)(or,l,L)) l    [P con l]
  35.     ((or,b,c,d,f,g,k,p,t,B,C,D,F,G,K,P,T)(or,r,R)) r    [P con r]
  36.     ((or,(or,c,C)(or,h,H),(or,l,L)(or,l,L),(or,r,R)(or,r,R))) d    [Doble]
  37.     ((or,<:d:>,<:l:>,<:r:>)) P                [Par]
  38.     ((or,<:V:>,<:C:>)) L                [Letra]
  39. )(
  40.     ((%r,<8>,<--> (ITR, ))) p
  41. )(8)(
  42.     (<8>(or, ,<>),(until,(p),<>,(s,(q,<=>)),(p),));
  43. ))
  44.