ࡱ> 130c jjbjbSS *.11j]DDDDDXlDLNNNNNN,ymXzz L,LDLL$ua˷DDLDEUG MASS 2001-2002 NOMPrnomN tudiantOptionsignature =>CDIJOPUV[\abghmnstyz  !"'(-.349:?@EFKLQRWX]^5CJ c+2<=>?@ABCDEFGHIJKLMNO$$lW#$$$+2<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  `OPQRSTUVWXYZ[\]^_`abcdefgh$$lW#$$$hijklmnopqrstuvwxyz{|}~$$$lW#$$$$$lW#$$  b$$$lW#$$$$$lW#$$$$$$$lW#$$lW#$$$      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ  b     $$$lW#$$ !"#$%&'()*+,-./0$$$lW#$$0123456789:;<=>?@ABCDEFGHI$$$lW#$$IJKLMNOPQRSTUVWXYZ[\]^_`ab$$$lW#$$Z[\]^_`abcdefghij  bcdefghij$$$$$$lW#^cdj5CJ (. A!"#$% 9 1303 455 902 520 489 796 1110 1199 480 678 485 536 885 660 755 611 781 794 1106 609 701 845 851 829 684 417 558 650 532 427 1031 1133 4702 1140 542 920 547 339 581 460 429 950 412 522 356 711 553 486 437 571 485 441 371 780 770 501 948 466 494 354 361 823 747 481 1143 473 658 566 525 637 1407 842 2957 1167 1532 927 752 1860 1220 1222 989 2571 1012 604 682 616 1257 1366 1584 1465 1163 767 1581 723 1412 1046 1102 491 922 721 1212 1105 947 965 674 658 1023 771 1067 9 [4@4NormalCJOJPJQJmH <A@<Default Paragraph Font*>`*Title$5CJ 0J`0Subtitle$5CJ j.  j^jOh0Ibj Zj l2;lmlAleph:marge-DEUG MASS 2001@W{5pj0@GTimes New Roman5Symbol3 Arial3Times"Y&Y&4*!>0dm,DEUG MASS 2001-2002mlml6 1124 1584 713 575 575 1055 730 1317 796 917 710 680 719 7b "(sigle)" :start 0) (setf siglep t)) (if (buffer-string-pos b "(Avec une majusc.)" :start 0) (setf majp t)) (buffer-insert b (process-first-line first-line :siglep siglep :majp majp) 0) (buffer-replace-all-tag b "Voir :" " #cf# ") (buffer-replace-all-tag b "v. son ordre alphab." " #cf# ") (buffer-replace-all-tag b ".Voir" ". #cf# ") (buffer-replace-all-tag b "n.m." " #nm# ") (buffer-replace-all-tag b "n.f." " #nf# ") (buffer-replace-all-tag b " n." " #n# ") (buffer-replace-all-tag b "adj." " #adj# ") (buffer-replace-all-tag b "adv." " #adv# ") (buffer-replace-all-tag b " v." " #v# ") (buffer-replace-all-tag b " pl." " #plur# ") (buffer-replace-all-tag b "(pl." " (#form-plur# ") (buffer-replace-all-tag b "[pl." " [#form-plur# ") (buffer-replace-all-tag b " inv." " #inv# ") (buffer-replace-all-tag b " loc." " #loc# ") (buffer-replace-all-tag b " pron." " #pron# ") (buffer-replace-all-tag b " indef." " #indef# ") (buffer-replace-all-tag b " abrv." " #abrev# ") (buffer-replace-all-tag b " Recomm. off." " #recomoff# ") (buffer-replace-all-from-beginning b " " " ") (buffer-replace-all-tag b " #v# t." " #vt#") (buffer-replace-all-tag b " #v# i." " #vi#") (buffer-replace-all-tag b " #v# pr." " #vp#") (buffer-replace-all-tag b " #vi# et t." " #vi# #vt#") (buffer-replace-all-tag b " #vt# et i." " #vi# #vt#") (buffer-replace-all-tag b "# m." "# #m#") (buffer-replace-all-tag b "# f." "# #f#") (buffer-replace-all-tag b "# ind." "# #ind#") (buffer-replace-all-tag b " interj." " #int# ") (buffer-replace-all-tag b "#v# impers." " #v# #impers# ") (buffer-replace-all-tag b "#n# pr." " #n# #np#") (buffer-replace-all-from-beginning b " " " ") (buffer-replace-all-tag b "(du gr." " (#ethym-gr# ") (buffer-replace-all-tag b "# (gr." "# (#ethym-gr# ") (buffer-replace-all-tag b "(du lat." " (#ethym-lat# ") (buffer-replace-all-tag b "# (lat." "# (#ethym-lat# ") (buffer-replace-all-tag b "(de l'anc. fr." " (#ethym-ancfr# ") (buffer-replace-all-tag b "# (anc. fr." "# (#ethym-ancfr# ") (buffer-replace-all-tag b "(du proven." " (#ethym-prov# ") (buffer-replace-all-tag b "# (proven." "# (#ethym-prov# ") (buffer-replace-all-tag b "(de l'anc. angl." " (#ethym-ancangl# ") (buffer-replace-all-tag b "# (anc. angl." "# (#ethym-ancangl# ") (buffer-replace-all-tag b "(du pol." "# (#ethym-pol# ") (buffer-replace-all-tag b "# (polon." " Oh+'0X    ,8@HP'DEUG MASS 2001-2002EUGmlGlGNormalSmlm1mMicrosoft Word 8.0@G@lP?@lP?4*") (buffer-replace-all-tag b "(de l'ar." " (#ethym-ar# ") (buffer-replace-all-tag b "# (ar." "# (#ethym-ar# ") (buffer-replace-all-tag b "(de l'anc. scand." " (#ethym-ancscand# ") (buffer-replace-all-tag b "# (anc. scand." "# (#ethym-ancscand# ") ;; general schemas ;; (buffer-replace-all-tag b "# (mot " "# (#ethym# ") (buffer-replace-all-tag b "# (mots " "# (#ethym# ") (buffer-replace-all-tag b "# (de " "# (#ethym# ") (buffer-replace-all-tag b "(#ethym# polon." "(#ethym-pol# ") (buffer-replace-all-tag b "(#ethym# angl." "(#ethym-angl# ") (buffer-replace-all-tag b "(#ethym# ar." "(#ethym-ar# ") (buffer-replace-all-tag b "(#ethym# esp." "(#ethym-esp# ") (buffer-replace-all-tag b "(#ethym# it." "(#ethym-it# ") (buffer-replace-all-tag b "(#ethym# proven." "(#ethym-prov# ") (buffer-replace-all-tag b "(#ethym# lat." "(#ethym-lat# ") (buffer-replace-all-tag b "(#ethym# gr." "(#ethym-lat# ") (buffer-replace-all-tag b "*" " * ") (buffer-replace-all-from-beginning b " " " ") (buffer-replace-all-tag b "notamm." " #natamm# ") (buffer-replace-all-tag b "gnr." " #gnr# ") (buffer-replace-all-tag b "par opp. " " #opp# ") (buffer-replace-all-tag b "par oppos." " #opp# ") (buffer-replace-all-tag b "par ext." " #parext# ") (buffer-replace-all-tag b "spcial." " #special# ") (buffer-replace-all-tag b "princ." " #princ# ") (buffer-replace-all-tag b "en partic." " #partic# ") (buffer-replace-all-tag b "superl." " #superlatif# ") (buffer-replace-all-tag b "(sigle)" "#sigle# ") (buffer-replace-all-tag b "(Avec une majusc.)" " #maj#") (buffer-replace-all-tag b "(nom dpos)" " #nomdep# ") (buffer-replace-all-tag b "FAM." " #fam# ") (buffer-replace-all-tag b "CONTR." " #ant# ") (buffer-replace-all-tag b "SYN." " #syno# ") (buffer-replace-all-tag b "PAR PLAIS" " #plaisenterie# ") (buffer-replace-all-tag b "INJUR." " #injur# ") (buffer-replace-all-tag b "Abrv." "#abrev#") (buffer-replace-all-tag b "[ex." " [#ex# ") (buffer-replace-all-from-beginning b " " " ") (buffer-replace-all-tag b "# et #" "# #") (buffer-replace-all-tag b "# ou #" "# #") (buffer-replace-all-tag b "#, " "# ") (buffer-replace-all-tag b "#. " "# . ") (buffer-replace-all-tag b ". ." ". ") (buffer-replace-all-from-beginning b " " " ") (buffer-replace-all-tag b ". ;" ". ") (buffer-replace-all-tag b ",)" ")") (buffer-replace-all-tag b ")" " ) ") (buffer-replace-all-tag b "(" " ( ") (buffer-replace-all-tag b "]" " ] ") (buffer-replace-all-tag b "[" " [ ") (buffer-replace-all-tag b (format nil "~%") " ") (buffer-replace-all-tag b (format nil "->") (format nil "#par# ->")) (buffer-replace-all-from-beginning b " " " ") (buffer-replace-all-tag b "#/morpho# #par#" "#/morpho#") (buffer-replace-all-tag b "#par#" (format nil "~%")) (buffer-replace-all-tag b "#morpho# " (format nil "~%#morpho# ")) (dotimes (i 30) (buffer-replace-all-tag b (format nil "-> ~a.;" i) (format nil " #s=~a# " i)) ) (buffer-replace-all-tag b " -> " " ") (buffer-replace-all-from-beginning b (format nil "~% ") (format nil "~%")) (buffer-replace-all-from-beginning b (format nil " ~%") (format nil "~%")) (buffer-replace-all-tag b (format nil "~%ou ") (format nil "~%")) (buffer-replace-all-tag b "LITT." " #litter# ") (buffer-replace-all-tag b "VIEILLI." " #vx# ") (buffer-replace-all-tag b "INDUSTR " " industrie . ") (buffer-replace-all-tag b "COUR." " #cour# ") (buffer-replace-all-tag b "PJ." " #pej# ")  ՜.+,D՜.+,D hp  'lirmmSm DEUG MASS 2001-2002 Title 6> _PID_GUID'AN{CFD8EB80-AB54-11D5-B165-0050E4C0A754}all-tag b "HISTOIRE" "c4.histoire") (buffer-replace-all-tag b "ENCYCL." " #encyl#") (buffer-replace-all-tag b (format nil "#encyl#~%") (format nil "#encyl# ")) (buffer-replace-all-from-beginning b (format nil " ~%") (format nil "~%" )) (buffer-replace-all-from-beginning b (format nil " ") (format nil " " )) (buffer-replace-all-from-beginning b (format nil "#encyl# c4.histoire~%") (format nil "#encyl# c4.histoire ")) (buffer-replace-all-from-beginning b " " " ") (buffer-replace-all-tag b "# Action de " "# #act# ") (buffer-replace-all-tag b "# Action d'" "# #act# ") (buffer-replace-all-tag b "# Action, fait de " "# #act# ") (buffer-replace-all-tag b "# Action, fait d'" "# #act# ") (buffer-replace-all-tag b "# Relatif l'" "# #relat# ") (buffer-replace-all-tag b "# Relatif la " "# #relat# ") (buffer-replace-all-tag b "# Relatif au " "# #relat# ") (buffer-replace-all-tag b "# Relatif aux " "# #relat# ") (buffer-replace-all-tag b "# Se dit d'" "# #relat# ") (buffer-replace-all-tag b "# Se dit de " "# #relat# ") (buffer-replace-all-tag b "# Se dit des " "# #relat# ") (buffer-replace-all-tag b "Partie de la " " #partof# ") (buffer-replace-all-tag b "Partie du " " #partof# ") (buffer-replace-all-tag b "Partie de l'" " #partof# ") (buffer-replace-all-tag b "Partie d'" " #partof# ") (buffer-replace-all-tag b ";" " ; ") (buffer-replace-all-from-beginning b " " " ") (buffer-replace-all-from-beginning b (format nil " ~%") (format nil "~%" )) (buffer-replace-all-from-beginning b (format nil "~% ") (format nil "~%" )) (buffer-replace-all-from-beginning b (format nil "#~%#") (format nil "# #" )) (buffer-replace-all-tag b "#nm# #s=" (format nil "~%#nm# #s=")) (buffer-replace-all-tag b "#nf# #s=" (format nil "~%#nf# #s=")) ;; epilogue (buffer-replace-all-tag b "#entry#" "") (buffer-replace-all-tag b "#morpho#" "") (buffer-replace-all-tag b "#/morpho#" "") (buffer-replace-all-tag b "#end-of-def#" "") (buffer-replace-all-from-beginning b " " " ") (setf text (buffer-substring b 0 (buffer-size b))) (setf b (make-buffer)) (buffer-insert b text) (setf filename (ensure-filename filename 25)) (setf first-letter (guess-first-letter filename)) (setf text-filename-path (concatenate 'string *def-LAR-text-path* first-letter ":" filename ".def")) (buffer-write-file b text-filename-path :if-exists :supersede) text-filename-path ) ) (defun process-first-line (text &key siglep majp name) (let ((b (make-buffer)) (norm-text text) ) (if siglep (progn (setf norm-text (string-upcase norm-text)) (setf norm-text (remove #\space norm-text)) ) (if name (setf norm-text (normalize-entry name)) (setf norm-text (string-downcase norm-text)) ) ) (when majp (setf norm-text (string-capitalize norm-text))) (setf norm-text (string-trim '(#\space #\. #\[ #\) #\]) norm-text)) (buffer-insert b norm-text) (buffer-trim-after b ",") (buffer-trim-after b " ou") (buffer-trim-after b " (") (buffer-insert b "#entry# " 0) (buffer-substring b 0 (buffer-size b)) ) ) (defun maybe-acronym (w) (search "." w) ) (defun normalize-entry (s) (if (equal s (string-upcase s)) (string-downcase s) s) ) ;; (normalize-entry "DANONE") ;; (maybe-acronym "B.C.G") ;; (maybe-acronym "dffdsfsdf") ;; (elt "a" 0) ;; (ed (concatenate 'string *def-LAR-raw !"#$%&')*+,-./2Root EntryaG"a maG"amaG" F 09]Xǒa?4P`1Table< Və