XEROX PLURAL 2 4 1 PLURAL 1 4 By: Martin Kay (Kay.pa@Xerox) and Jon L White PLURAL is a file containing two main user-level functions: "Plural" which returns the plural forms of singular nouns, and "Ordinal" which returns the ordinal corresponding to a given cardinal. Both functions return STRINGs. Plural takes a STRING or a LITATOM as its argument and Ordinal takes a non-negative integer. The second argument to Plural, if non-null, affects the result just in case it is 1; in that case, the first argument is *not* modified for plurality (the rationale for this will be clear form the examples below). The second argument to Ordinal, if non-null, causes the oridnal suffix ("th", "nd", etc.) to be upper rather than lower case. VЗА└8>°@xppВ@аHА DА D @@аHДxq`А,8╪`╤└,8▒с─O └D├БxБЁрЗXаЗ ЙРА2Dиа82 2╚В$D @D A БA@И"dЯ ЙА Dиа ИВ$D @x┴ БAИ DИ ЙА Dи ИВ$D @@A аБAИ DД ЙА Dи СD2 ИТ$─А @@2A аБIHЙ"D╟ qА 8и└8╤└ Иa├C @@╥┴ @В0рЗЖD@А8АЁр(8 И (@А И"%З(Ёс┼ЕА И"&@В@"&@А Ё"$В@!Д@А А"$В@ D@А А"dВ@"$@АА!дВ@!─@8А@@А└8pрЗ8Ёт└ А<8qa├А@ЙА"A АЙТ$@@°└А Irregular plurals can be provided for by putting the putting them on the property list of the atom whose print name is the singular form, in lower case, under the name PLURAL. Thus: └KАpА┴@A BD░рBxДD╚B OЮDАЁB DDБB" BLБB" А4АЁA АpЗаБ аБxpа И `" " И pАА"| рА<@ЙрДА@" "@ЙDАB"@!├П"@ЙD8Ис└АD"@" D"@ЙсD"Й А╧Ю"@"#─<@ЙB$"0C╚МxАBА"DИЄ"DЙАА"(БС@aHВ"DРDE@АB@"DЙ@"DЙ$@"D! "БСDИaGВ8`C┬@°ууА8ЁЄА8ё#А< с└О"°р╟8p#ПА For the user who wants to put suffixes together himself, the function ORDINALSUFFIXSTRING will return only the "st", "nd", "rd", or "th" part that Ordinal returns. (LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))(╚(╚(КК8(КК8D╚╚PAGEHEADINGRUNNINGHEAD(MODERNMODERNLOGOMODERN GACHA HRULE.GETFNMODERN HRULE.GETFNMODERN HRULE.GETFNMODERN HRULE.GETFNMODERNHRULE.GETFNMODERN/Х8BMOBJ.GETFN3GACHA ╢BMOBJ.GETFN3GACHA BMOBJ.GETFN3GACHA д+┐2z║