;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(require 'seq)
(defvar arbitools-verbose nil)
#@31 Rating floor for calculations
(defvar arbitools-elo-floor 1000 (#$ . 133))
#@44 Cut the worst result for ARPO calculations
(defvar arbitools-arpo-cutworst t (#$ . 214))
#@44 Cut the best results for ARPO calculations
(defvar arbitools-arpo-cutbest t (#$ . 309))
#@59 Table of expected results according to FIDE ratings rules
(defvar arbitools-performancetable (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377\201@ \201A \201B \201C \201D \201E \201F \201G \201H \201I \201J \201K \201L \201M \201N \201O \201P \201Q \201R \201S \201T \201U \201V \201W \201X \201Y \201Z \201[ \201\\ \201] \201^ \201_ \201` \201a \201b \201c \201d \257e\207" [-800 -677 -589 -538 -501 -470 -444 -422 -401 -383 -366 -351 -336 -322 -309 -296 -284 -273 -262 -251 -240 -230 -220 -211 -202 -193 -184 -175 -166 -158 -149 -141 -133 -125 -117 -110 -102 -95 -87 -80 -72 -65 -57 -50 -43 -36 -29 -21 -14 -7 0 7 14 21 29 36 43 50 57 65 72 80 87 95 102 110 117 125 133 141 149 158 166 175 184 193 202 211 220 230 240 251 262 273 284 296 309 322 336 351 366 383 401 422 444 470 501 538 589 677 800] 101) (#$ . 403))
#@66 Table to store rank numbers, names, ratings and expected results
(defvar arbitools-players-info nil (#$ . 1447))
#@73 Fill `arbitools-players-info' with the information from the main buffer
(defalias 'arbitools-fill-players-info #[nil "\212eb\210\306\307\310\306\311#\205M \312\313!\314	\315\316#\314	\317\320#\314	\321\322#\306\nBB\fB\323B\324!\211\235\204H \325C\".\202 )\207" [arbitools-players-info linestring rankstring namestring elostring playerinfo nil re-search-forward "^001" t thing-at-point line substring-no-properties 5 8 14 47 48 52 0 reverse append #1=#:x] 5 (#$ . 1566)])
#@525 Use bbpPairings to do the pairings for the next round.
   You need a XXR section followed by the number of rounds.
   If you have any players that are not going to be paired,
   insert 0000 - H in the column, for a half point bye and
   0000 - F for full point bye. You can do that with
   arbitools-insert-bye. For the first round you will need a
   XXC section followed by white1 or black1, which will force
   the corresponding colour.
   If the program throws an error you will find it in the
   Pairings-output buffer.
(defalias 'arbitools-do-pairings #[(round) "r\306q\210\307 \210)\310\311\312\306\312\313\314&\210\315\211\315\211\316\317!S\320_\\\"\315#r\306q\210eb\210\317\321\322!!)\n	X\205'r\306q\210\312y\210\nT\321\322!\312v\210\312v\210\321\322!)\212eb\210\323\324\312\325#\203#\326u\210\321\322!\230\203\302 \312\210i#\327 \210\"u\210\"#U\204\211 \330#\"Z!\210\331c\210\fG\332U\203\231 \333u\210\202\243 \fG\334U\203\243 \335u\210\336\337\f\"c\210\fG\332U\203\267 \330\340!\210\202\302 \fG\334U\203\302 \330\332!\210\f\321\322!\230\203Y \312\210i#\327 \210\"u\210\"#U\204\347 \330#\"Z!\210\331c\210G\332U\203\367 \333u\210\202G\334U\203\335u\210\336\341\"c\210G\332U\203\330\340!\210\202Y G\334U\203Y \330\332!\210\202Y )\2026 .\207" [buffer-file-name numberoftables actualtable white black round "Pairings-output" erase-buffer call-process "bbpPairings.exe" nil "--dutch" "-p" 0 89 string-to-number 10 thing-at-point word re-search-forward "^001" t 4 beginning-of-line delete-char "     " 2 -1 3 -2 format "%s w  " 1 "%s b  " positiontowrite endoflinecolumn] 9 (#$ . 2069) "sWhich round do you need to generate the pairings for?: "])
#@183 Prepare file for DOS: add carriage return at the end of lines.
   For some administrators, like the ones in FEDA, the files need
   to be in this format or they will not allow them.
(defalias 'arbitools-prepare-file-DOS #[nil "\212eb\210\300\301\302\303#\205 \304\305!\210\202 )\207" [search-forward "\n" nil t replace-match "\n"] 4 (#$ . 3768) nil])
#@73 Update the players ratings in a database file based on a elo list file.
(defalias 'arbitools-update #[(elolist) "\302\303\304\305\304\306\307	&\207" [buffer-file-name elolist call-process "arbitools-run.py" nil "Arbitools-output" "update" "-l"] 9 (#$ . 4128) "selolist:"])
#@43 Add players to an existing database file.
(defalias 'arbitools-add #[(addfile) "\302\303\304\305\304\306\307	&\207" [addfile buffer-file-name call-process "arbitools-add.py" nil "Arbitools-output" "-a" "-i"] 9 (#$ . 4409) "faddfile: "])
#@42 Remove whitespace at the beginning of S.
(defalias 'arbitools-trim-left #[(s) "\301\302\"\203 \303\304\305\211$\207\207" [s string-match "\\`[ 	\n]+" replace-match "" t] 5 (#$ . 4654)])
#@36 Remove whitespace at the end of S.
(defalias 'arbitools-trim-right #[(s) "\301\302\"\203 \303\304\305\211$\207\207" [s string-match "[ 	\n]+\\'" replace-match "" t] 5 (#$ . 4851)])
#@160 Create userTB.txt file for file generated with ARPO app.
   Use in crosstable.txt generated in Vega.
   You need to open the ARPO1.txt file in another buffer.
(defalias 'arbitools-arpo-vega #[nil "\212eb\210\306y\210\307\310\311\312\313\314\315!\204 \316\315!\210r\315q\210\317 \210\320c\210)\307eb\210\306y\210\321\322\313\307#\203= \323\324!\210\202. eb\210\306y\210)\205\267 \325 \210\313v\210\326\327!\203\260 \330!\210\331\326\332!\333\334#\335\336\"\337\340\f\341#\342!r\343q\210eb\210\321!\203\241 \313\210\344v\210\326\327!\344v\210\326\327!r\315q\210	c\210\345c\210\nc\210\346c\210)\202\251 r\315q\210\347c\210))\313y\210\202D \313\211\204H \313.\207" [continue arpodata arpopoint name namesplit case-fold-search 7 t "data" "point" " " nil get-buffer "userTB.txt" generate-new-buffer erase-buffer "  User Tie-Break  ;" search-forward "(W)" replace-match "   " beginning-of-line thing-at-point word clear-string substring-no-properties line 4 24 split-string "," mapconcat identity "" arbitools-trim-right "ARPO1.txt" -1 "." ";" "0.0;"] 5 (#$ . 5044) nil])
#@270 Get the pairings and/or results of the given round. It will
   only work with the current round. Some player's names will be
   missing if you try a finished round, and the order of the tables
   will be wrong.
   You will find the pairings in the Pairing List buffer.
(defalias 'arbitools-list-pairing #[(round) "\306 \210\212\307\211\310\307\211\307\211:\307\211;<\307\211=>\307\211?@\307Aeb\210\311\312\307\313#\210\314\315\316!\317\307#eb\210\311\320\307\313#\210\321\314\315\316!\317\307#!r\322q\210\323 \210\324\325\"c\210\324\326B\"c\210)r\327q\210eb\210\317y\210`:)	\310Y\203\277r\327q\210:b\210\310y\210\330\314\315\316!\331\332#!>`:)eb\210\333>!\210\330\314\315\316!\317\334#!=\314\315\316!\335\336#;\330\314\315\316!\337\321B!S\340_\\\341\321B!S\340_\\#!?\314\315\316!\342\321B!S\340_\\\343\321B!S\340_\\#@\314\315\316!\344\321B!S\340_\\\345\321B!S\340_\\#A`eb\210\311\346\307\313#\203-\317u\210\330?!\315\347!\230\203\377 \314\315\316!\335\336#<r\350q\210\324\325<\"c\210)\202\377 b\210=\f\235\204\265?\f\235\204\265=\f\235\203I\f\202M=\fBr\322q\210\351\n!\211G\352W\203a\353P=G\352W\203o=\353P=?G\352W\203}?\353P?@\354\230\203A\355\230\203\235\324\356=;?<&c\210\202\264A\357\230\203\266\324\360=;?<&c\210\202\264A\361\230\203\317\324\362=;?<&c\210\202\264A\363\230\203\350\324\364=;?<&c\210\202\264A\353\230\203\324\365=;?<&c\210\202\264A\366\230\203\264\324\367=;?<&c\210\202\264@\370\230\203\264A\355\230\203:\324\360?<=;&c\210\202\264A\357\230\203S\324\356?<=;&c\210\202\264A\361\230\203l\324\364?<=;&c\210\202\264A\363\230\203\205\324\362?<=;&c\210\202\264A\353\230\203\236\324\365?<=;&c\210\202\264A\366\230\203\264\324\367?<=;&c\210)\nT	S\211\202r .\371\322!\207" [tournamentnamestring numberofplayers tablenumber tablenumberstring paired saveposition arbitools-calculate-standings nil 1 re-search-forward "^012" t substring-no-properties thing-at-point line 4 "^062" string-to-number "Pairings List" erase-buffer format "%s" "Pairings for round %s\n\n" "Standings" arbitools-trim-left 50 58 search-forward 8 14 46 91 10 95 96 97 98 99 "^001" word "Arbitools-output" number-to-string 2 " " "w" "1" "%s. %s %s 1-0 %s %s\n" "0" "%s. %s %s 0-1 %s %s\n" "+" "%s. %s %s + - %s %s\n" "-" "%s. %s %s - + %s %s\n" "%s. %s %s  -  %s %s\n" "=" "%s. %s %s 1/2 %s %s\n" "b" switch-to-buffer savepositionstandings namestring opponentstring rankstring fideidstring opponent color result round] 8 (#$ . 6137) "sFor which round?: "])
#@156 Put the list of players in two buffers, one in plain text and another
   in a beautiful LaTeX.
   You will also find a list in the List of players buffer.
(defalias 'arbitools-list-players #[nil "\212eb\210r\304q\210\305 \210)\306\307\310\311#\203S \312\313!\211\314\315Or\304q\210\316\317	\"c\210+\312\313!\211\320\321Or\304q\210\316\322\n\"c\210+\312\313!\211\323\324Or\304q\210\316\325\"c\210+\202\f )r\304q\210\326ed\327#)\207" [linestring rankstring namestring elostring "List of players" erase-buffer re-search-forward "^001" nil t thing-at-point line 5 8 format " %s " 14 47 "%s " 48 52 "%s\n" remove-text-properties (face nil)] 5 (#$ . 8761) nil])
#@26 Create an empty trf file
(defalias 'arbitools-new-trf #[nil "\300\301!\210\302\301!\210\301q\210\303 \210\304c\210\305c\210\306c\210\307c\210\310c\210\311c\210\312c\210\313c\210\314c\210\315c\210\316c\210\317c\210\320c\210\321c\210\322c\210\323c\207" [generate-new-buffer "New trf" switch-to-buffer arbitools-mode "012 NAME OF THE TOURNAMENT\n" "022 PLACE\n" "032 FEDERATION\n" "042 STARTING DATE (YYYY/MM/DD)\n" "052 ENDING DATE (YYYY/MM/DD)\n" "062 NUMBER OF PLAYERS\n" "072 NUMBER OF RATED PLAYERS\n" "082 NUMBER OF TEAMS\n" "092 TYPE OF TOURNAMENT\n" "102 CHIEF ARBITER\n" "112 DEPUTY CHIEF ARBITER\n" "122 ALLOTED TIMES PER MOVE/GAME\n" "XXC COLOR FOR THE FIRST ROUND (white1 or black1)\n" "XXR NUMBER OF ROUNDS\n" "132 DATES                                                                                  YY/MM/DD  YY/MM/DD\n" "001  000 GTIT NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN RAT. FED   0000000000 YYYY/MM/DD 00.0  RNK  0000 C R  0000 C R\n"] 2 (#$ . 9430) nil])
#@96 Get the number of rounds in the tournament. It has to be executed in the
    principal buffer.
(defalias 'arbitools-number-of-rounds #[nil "\305\212\306\307\310\311#\203 \312 \210\313u\210\314\315\316!!\202M eb\210\306\317\310\311#\210\315\320!\321\322\311\f\203L 	GW\203F T\n\323\\\323\\\202- \310\211\2041 ,))\207" [numberofrounds linestringrounds beginning-of-round end-of-round continue 0 re-search-forward "^XXR" nil t beginning-of-line 5 string-to-number thing-at-point word "^132" line 91 99 10] 5 (#$ . 10405)])
#@71 Calculate the actual round. It has to be run on the principal buffer.
(defalias 'arbitools-actual-round #[nil "\301\212eb\210\302\303\304\305#\210\304\210i\306Zi\306V\203 i\307\245\301W\203% \301))\207" [actualround 0 re-search-forward "^001" nil t 89 10] 4 (#$ . 10946)])
#@166 Automatically calculate the points of each player and adjust the
   corresponding column.
   Don't use this function when the round doesn't include all the results.
(defalias 'arbitools-calculate-points #[(round) "\212\305\211\306eb\210\307\310\311\312#\205\305 \305\306\211\313!X\203\244 \314 \210\315S\316_\\u\210\317\320!\211\321\230\2038 \322\202\230 \f\323\230\203C \322\202\230 \f\324\230\203N \325\202\230 \f\326\230\203Y \305\202\230 \f\327\230\203d \305\202\230 \f\330\230\203o \322\202\230 \f\331\230\203z \325\202\230 \f\332\230\203\205 \305\202\230 \f\333\230\203\220 \322\202\230 \f\311\230\203\230 \305)\n	\\T\211\202 \314 \210\334u\210\335u\210\336\337!\210\340\341\337\342\343\n\"GZ\"\210\342\343\n\"c\210\202\n ,\207" [roundcount pointstosum points round sym 0.0 1 re-search-forward "^001" nil t string-to-number beginning-of-line 98 10 thing-at-point symbol "1" 1.0 "+" "=" 0.5 "0" "-" "F" "H" "Z" "U" 84 -3 delete-char 3 insert-char 32 format "%s"] 7 (#$ . 11234) "sUp to which round?: "])
#@166 Write the standings in the Standings buffer. Update the POS field in the
   file.
   You might need to run arbitools-calculate-points before using this
   function.
(defalias 'arbitools-calculate-standings #[nil "\212r\306q\210\307 \210)\310 \210\311\312\313\314\311\211\3126\311\21178eb\210\315\316\311\317#\210\320u\210\321\322!eb\210\315\323\311\317#\210\321\324!r\306q\210\307 \210\325\326\"c\210\325\327\n\"c\210\325\330!c\210)eb\210\315\331\311\317#\203\332 \210\333\321\324!\334\335#r\306q\210\325\326\"c\210\336\337\340GZ\"\210\341c\210)\333\321\324!\340\342#r\306q\210\325\326\"c\210\336\337\340GZ\"\210\341c\210)\333\321\324!\343\344#\211r\306q\210\325\326\"c\210\336\337\345GZ\"\210\346c\210)\332 \210\347u\210\321\322!r\306q\210\325\326\"c\210\336\337\350GZ\"\210\346c\210)r\351q\210eb\210\315\f\311\317#\210\311v\210\321\322!\311v\210\325\352\321\322!#)r\306q\210\325\326\"c\210\353c\210)\202Z r\306q\210eb\210\340y\210`7db\210`8\35478\"\210\355\32078#\210eb\210\340y\210\356	!\320Y\203`\325\326	\"c\210\336\337\357	GZ\"\210\346c\210\360\356	!S!\320y\210\202:eb\210\340y\210`7db\210`8\35478\"\210)eb\210\315\331\311\317#\205\301\333\321\324!\343\344#r\306q\210eb\210\361\311\317#\210\362 \340Z6)\332 \210\363u\210\364u\210\365\357!\210\336\337\357\325\3266\"GZ\"\210\325\3266\"c\210\202z.\n\207" [tournamentnamestring numberofplayers round datachunk name arpo "Standings" erase-buffer arbitools-list-players nil 0 "round" "" re-search-forward "^062" t 1 thing-at-point word "^012" line format "%s" "Standings for round %s\n\n" "POS. PTS.   No. Name                              ID         ARPO\n" "^001" beginning-of-line substring-no-properties 80 84 insert-char 32 4 "  " 8 14 47 33 " " 67 10 "ARPO" "%s.%s" "\n" reverse-region sort-numeric-fields string-to-number 3 number-to-string search-forward line-number-at-pos 89 -3 delete-char newpos beg end] 7 (#$ . 12272) nil])
#@59 Delete a player. Adjust all the rank numbers accordingly.
(defalias 'arbitools-delete-player #[(player) "\306\307\212eb\210\310\311\312\313#\210\314\315!\316\317\313\2037 \f\nGW\2031 	T\320\\\f\320\\\202 \312\211\204 -\212eb\210\310\321\312\313#\203r\314\315!\211-\322\323O.\324.!\324/!U\203v \325u\210\326\327!\210\330c\210-\331\332Or\333q\210\334\335\"c\210)\324.!\324/!V\203n\325u\210\326\327!\210\336\337\327\334\335\324.!S\"GZ\"\210\334\335\324.!S\"c\210\212eb\210\310\321\312\313#\203m\325\2110	X\203\372 \340 \210\3410S\320_\\u\210\334\335\324.!\"\314\342!\230\203\361 \343u\210\326\327!\210\336\337\327\334\335\324.!S\"GZ\"\210\334\335\324.!S\"c\2100T\2110\202\262 )\212\310\344\312\313#\203i\314\315!1\306\211231G\345Z\346Z\322\245323W\203e\340 \210\3472S\322_\\u\210\334\335\324.!\"\314\342!\230\203\\\343u\210\326\327!\210\336\337\327\334\335\324.!S\"GZ\"\210\334\335\324.!S\"c\2102T\2112\202+\202\374 )\202\246 )*\202< )\212eb\210\310\350\312\313#\203\221\340 \210`4\325y\2104`|\210)\202w)\212r\333q\210\334\335\"c\210)eb\210\310\351!\210\314\315!\211-\327\312O5\3265G!\210\3245!\2115S5\3525!\353Pc\210*\310\354!\210\314\315!\211-\327\312O6G\345W?\205\367\3266G!\210\3246!\2116S6\3526!\353Pc-\207" [elo numberofrounds linestringrounds beginning-of-round end-of-round continue 0 "" re-search-forward "^132" nil t thing-at-point line 91 99 10 "^001" 5 8 string-to-number 1 delete-char 4 " DEL" 48 52 "Arbitools-output" format "%s" insert-char 32 beginning-of-line 95 word -4 "^013" 2 34 40 "^001  DEL" "^062 " number-to-string "\n" "^072 " linestring rankstring player roundcount linestringteam integrantcount members beg numberofplayers numberofratedplayers] 8 (#$ . 14217) "sInsert rank number of the player: "])
#@17 Delete a round.
(defalias 'arbitools-delete-round #[(round) "\212eb\210\301\302\303\304#\205  \305\306!S\307_\\u\210\310\311!\210\312c\210\202 )\207" [round re-search-forward "^001" nil t 88 string-to-number 10 delete-char 8 "        "] 4 (#$ . 16022) "sround: "])
#@135 Insert bye for player. Types of byes are: H for Half point,
    F for Full point, Z for zero points of U for allocated by the system.
(defalias 'arbitools-insert-bye #[(player round type) "\306\307!S\310_\\\311\312\212eb\210\313\314\315\316#\205\252 \317u\210\f\320\321!\230\203 \315\210i\211	W\2039 \315\210\322\323	\nZ\"\210\324 \210\325u\210\326u\210\307\320\321!!\327\230\203U \330\\\202\206 \331\230\203b \332\\\202\206 \333\230\203o \332\\\202\206 \334\230\203| \312\\\202\206 \335\230\203\206 \312\\\336\337!\210\322\323\337\340\341\"GZ\"\210\340\341\"c\210\324 \210	u\210\340\342\"c\210\202 ,\207" [round pointtowrite positionendofline points player type 89 string-to-number 10 0 0.0 re-search-forward "^001" nil t 4 thing-at-point word insert-char 32 beginning-of-line 84 -3 "H" 0.5 "F" 1.0 "U" "Z" "-" delete-char 3 format "%s" "  0000 - %s"] 7 (#$ . 16296) "sRank number of the player: \nsround: \nstype (H, F, -, Z, U):"])
#@39 Replace non played games with spaces.
(defalias 'arbitools-replace-empty #[nil "\212eb\210\300\301\302\303#\205 \304\305!\210\202 )\207" [search-forward "0000 - 0" nil t replace-match "        "] 4 (#$ . 17265) nil])
#@53 Insert a player. You will be prompted for the data.
(defalias 'arbitools-insert-player #[(sex title name elo fed idfide year) "\306\211\212eb\210\307\310!\210\311\312!\211G*\212eb\210\307\313\306\314#\204 \311\312!\211\315\316O\317y\210\320c\210\321u\210\322\323!c\210\324\325\326\322\327\330!T\"GZ\"\210\322\327\330!T\"c\210\322\331\f\"c\210\fG\332U\203^ \333c\210\324\325\334GZ\"\210\322\335\"c\210\322\327+\"c\210\324\325\336+GZ\"\210,G\326U\203\213 \322\335,\"c\210,G\332U\203\226 \337c\210,G\317U\203\241 \340c\210\322\327-\"c\210-G\332U\203\263 \341c\210\324\325\342.GZ\"\210\322\335.\"c\210\322\343/\"c\210/G\332U\203\325 \344c\210\322\345!c\210\324\325\326\322\327\330!T\"GZ\"\210\322\327\330!T\"c\210\311\312!G\324\325	Z\"\210-\212eb\210\307\346!\210\311\312!\211\326\306O0\3470G!\210\3300!\2110T0\3500!\320Pc\210*\307\351!\210\311\312!\211\326\306O1,G\352W?\205W\3471G!\210\3301!\2111T1\3501!\320Pc+\207" [thislinelength playerlinelength linestring rankstring sex title nil re-search-forward "^001 " thing-at-point line "^001" t 5 8 1 "\n" -1 format "001 " insert-char 32 4 "%s" string-to-number " %s" 0 " " 3 "%s " 34 "     " "   0 " "   " 12 "%s      " "    " "  0.0 " "^062 " delete-char number-to-string "^072 " 2 name elo fed idfide year numberofplayers numberofratedplayers] 8 (#$ . 17490) "ssex: \nstitle: \nsname: \nselo: \nsfed: \nsidfide: \nsyear: "])
#@93 Insert MSG (formatted with ARGS) into BUFFER.
Only do it if `arbitools-verbose' is non-nil.
(defalias 'arbitools--verbose-output #[(buffer msg &rest args) "\205 r	q\210\304\305\n#c)\207" [arbitools-verbose buffer msg args apply format] 4 (#$ . 18911)])
(byte-code "\300\301\302\303#\300\207" [function-put arbitools--verbose-output lisp-indent-function 1] 4)
#@119 Insert a result. You will be prompetd for the white and black players
    rank numbers and the result (1, 0, =, +, -)
(defalias 'arbitools-insert-result #[(round white black result) "\306\307!S\310_\\\311\212eb\210\312\313\314\315#\205\343 \316u\210\317\320!\230\203Z \314\210i\321 \210	u\210	\nU\2049 \322\n	Z!\210\323c\210\fG\324U\203I \325u\210\202S \fG\326U\203S \327u\210\330\331\f#c\210\f\317\320!\230\203 \314\210i\321 \210	u\210	\nU\204~ \332\333\334\"\210\322\n	Z!\210\323c\210G\324U\203\216 \325u\210\202\230 G\326U\203\230 \327u\210\335\230\203\247 \330\336\"c\210\202 \337\230\203\266 \330\340\"c\210\202 \341\230\203\305 \330\342\"c\210\202 \343\230\203\324 \330\344\"c\210\202 \345\230\203 \330\346\"c\210\202 +\207" [round pointtowrite positionendofline white black result 89 string-to-number 10 0 re-search-forward "^001" nil t 4 thing-at-point word beginning-of-line delete-char "     " 2 -1 3 -2 format "%s w %s" arbitools--verbose-output "Arbitools-output" "yes" "1" "%s b 0" "=" "%s b =" "+" "%s b -" "-" "%s b +" "0" "%s b 1"] 4 (#$ . 19280) "sround: \nswhite player's rank number: \nsblack player's rank number: \nsresult (1, 0, =, +, -): "])
#@82 Takes the player's rank as argument. Returns the average rating of the opponents
(defalias 'arbitools-get-player-opponents-average #[(player) "\212\306\307	!\211\310\211\203H \f@\311\312\311!S88!\211\f\204& \f\f\247\2040 \f\f\313U\203; \f\f\\)\fA\211\204 *\nG\245\211+\207" [eloaverage player opponents opponent --dolist-tail-- arbitools-players-info 0.0 arbitools-get-player-opponents nil string-to-number 2 0 rating arbitools-elo-floor] 5 (#$ . 20479)])
#@69 Takes the player's rank as argument. Returns the re-scaling of diff
(defalias 'arbitools-get-player-ci #[(player) "\212\306\211\306\307!\211\310\211\203= @	\307\311!!G\\\312\311!S88\307\311!!G_\\A\211\204 *\312S88	\245Z\313\314\315	\n&\210\n-\207" [sum_mi_ci sum_mi ci player opponents opponent 0.0 arbitools-get-player-opponents nil string-to-number 3 arbitools--verbose-output "Arbitools-output" "Player %d sum_mi_ci %d sum_mi %d ci %d\n" --dolist-tail-- arbitools-players-info] 8 (#$ . 20967)])
#@196 Takes the player's rank as argument. Returns a list which contains the rank number
   of player opponents in the tournament. Worst passes the number of worst opponents
   to remove from the list
(defalias 'arbitools-get-player-opponents #[(player) "\212\306\211\307eb\210\310\311\312\"!\210\306\210i\211\313Z\314\245\307\307W\203] \315\314_\\\316 \210u\210\317\320!\211\321\235\204T \n\235\203P \202S \nBT\211\202' -\306\211\203\226 @\322\323!!  B\211!	\235\203\206 	\202\212 !	B))A\211\204h *\324	\325\"G\326V\203\257 \"\203\257 \327	@@\"G\326V\203\305 #\203\305 \327	GS	8@\"\330\331\332G	G	\211@@	GS	8@&	\210,\207" [opps oppspoints opponent player maxlength numberofrounds nil 0 re-search-forward format "^001[[:space:]]\\{1,4\\}%d" 89 10 94 beginning-of-line thing-at-point word (" " "" nil "nil" "0000") arbitools-get-player-played-points string-to-number sort #[(a b) "A	AW\207" [a b] 2] 4 delete arbitools--verbose-output "Arbitools-output" "Player: %d opponents: %d: %s oppspoints %d: %s worst %s best %s\n" offset roundcount-1 --dotimes-limit-- opp --dolist-tail-- points #1=#:va arbitools-arpo-cutworst arbitools-arpo-cutbest] 12 (#$ . 21504)])
#@81 Take the player's rank as argument. Return points got by player in actual games
(defalias 'arbitools-get-player-played-points #[(player) "\212\306\307eb\210\307\310\307\311\312\313\"!\210\310\210\ni\\\211\314Z\315\245\211\307W\203r \316\315_\\\317 \210\fu\210\320\321!\211\322\235\204i 	\323\230\203S T\202i 	\324\230\203_ T\202i 	\325\230\203i \326\\T\211\202* -+\207" [points result maxlength numberofrounds offset player 0.0 0 nil re-search-forward format "^001[[:space:]]\\{1,4\\}%d" 89 10 98 beginning-of-line thing-at-point symbol (nil "nil" "-" "F" "H" "Z") "1" "+" "=" 0.5 roundcount-1 --dotimes-limit--] 5 (#$ . 22733)])
#@95 Take the player's rank as argument. Return the performance of the player
   in the tournament
(defalias 'arbitools-get-player-performance #[(player) "\212\306!\307!\310\211\311\310\211%&\311'eb\210\311(\312)\311\211*+\313\314\315\"!\210\312\210(i\\\211(\316Z\317\245\211)\311,-,-W\203\226 \320,\317_\\+\321 \210+u\210\322\323!\211*	\235\204\215 \324u\210\322\325!\326\230\203u \327\\\322\325!\330\230\203\201 \327\\\322\325!\331\230\203\215 \332\\,T\211,\202F .	\312.\211/\203\350 /@.\333\334\333.!S088!\2111\204\275 211\247\204\307 211\311U\203\322 21%1\\%'T')/A\211/\204\242 *%'\245%\nZ\211'\245\335\336\f_!38\337S08\233\2114\240\210)\2030\340\341\342%\n'\f\336_&\210\340\341\343S08A@$\210\204J\311r\341q\210\314\344%\n'\336\f_&c\210)%\\\211&.	\207" [player opponents points discard percentage diff arbitools-get-player-opponents arbitools-get-player-played-points 0.0 0 nil re-search-forward format "^001[[:space:]]\\{1,4\\}%d" 89 10 94 beginning-of-line thing-at-point word 4 symbol "1" 1.0 "+" "=" 0.5 string-to-number 2 truncate 100 3 arbitools--verbose-output "Arbitools-output" "Correct! player %d eloaverage: %d points:%f numberofopponents:%d  percentage: %d\n" "Players's info player %s diff %d\n" "Warning! player %d diff=0 eloaverage: %d points:%d numberofopponents:%d percentage: %d\n" eloaverage performance numberofopponents maxlength numberofrounds opp offset roundcount-1 --dotimes-limit-- opponent --dolist-tail-- arbitools-players-info rating arbitools-elo-floor arbitools-performancetable #1=#:c] 10 (#$ . 23401)])
#@122 Calculates the performance for all the players in the tourmanent and writes them in a buffer,
   ordered by player rank.
(defalias 'arbitools-calculate-players-performance #[nil "\212\306\307\n\203 r\310q\210ed|\210\311c\210)G\312\fW\203N \f8A@\313\fT!\211	B\n\203F r\310q\210db\210\314\315\fT$c\210))\fT\211\202 *	+\207" [performance performances arbitools-verbose arbitools-players-info iter --dotimes-limit-- 0.0 nil "Players performance" "rank Name                           Performance\n" 0 arbitools-get-player-performance format "%d %s %s\n" name] 6 (#$ . 25033)])
#@149 Calculates the ARPO for all the players and writes the results to a buffer.
   also it creates a userTB.txt buffer, so that it can be used in Vega.
(defalias 'arbitools-calculate-arpo #[nil "\212\306\211\307\306\310\306\3071\3102\307\21134\311\312 !5\3066\307\21178\306\2119:\313;\306\211<=55G<;\203\330	\306\314\315\"\316\317\320\f\n%\210<\310>?>?W\203\202\321>T!\211G=\3066\3078\306@\211A\203\243 A@@\322@!S8787\\876B6AA\211A\204~ *8=\2458\3074eb\210\310B\306C\310\211DE\323\324\325>T\"!\210\306\210Bi\\\211B\326Z\327\245\211C\310F?F?W\203)\330F\327_\\E\331 \210Eu\210\332\333!\211D\235\204 \334u\210\332\335!\336\235\2034\337\\4\202 \332\335!\340\235\203 4\341\\4FT\211F\202\336 .\342>T!\21134Z3G\310V\203F3=\2451\343>T!282\\8\316\317\3442#\210\316\317\345>T\f34=1862&\f\2108	B>T\211>\202^ *\311	!\3069<\310>?>?W\203\263>8>	8Z\211:9B9>T\211>\202\223*\3469!\3479!Z\350W\203\304\313\fT\204\321\f\351U\203? \306\211;\204D \316\317\3529A@9@Z9%\210r\353q\210eb\210ed|\210\354c\210)r\355q\210eb\210ed|\210\356c\210)	G\310G?G?W\205JGH8A@IG	8Jr\353q\210\324\357GTIJ$c\210)r\355q\210\324\360J\"c\210+GT\211G\202.\207" [iterand iterand_1 sumiterand converges iterations opponents nil 0.0 0 reverse arbitools-calculate-players-performance t apply + arbitools--verbose-output "Arbitools-output" "Starting run %d; iterand: %s sum_iterand: %d\n" arbitools-get-player-opponents string-to-number re-search-forward format "^001[[:space:]]\\{1,4\\}%d" 89 10 94 beginning-of-line thing-at-point word 4 symbol ("1" "+" "F") 1.0 ("H" "=") 0.5 arbitools-get-player-played-points arbitools-get-player-ci " c %d----\n" "Success! player %d run %d points %f discard %f opponents %d: %s percentage %f ARPO averageperformanceofopponents %f performances %s diff %d\n" seq-max seq-min 1e-10 300 "difference: %f differences: %s converges: %s" "ARPO" "rank Name                           ARPO\n" "userTB.txt" "  User Tie-Break   ;" "%d %s %s\n" "%s;" percentage diff points discard performances performancesopponents opponentsperformance averageperformanceofopponents differences difference continue numberofplayers numberofopponents number --dotimes-limit-- opponent --dolist-tail-- maxlength numberofrounds opp offset roundcount-1 iter arbitools-players-info name arpo] 14 (#$ . 25629) nil])
#@104 Get the IT3 tournament report. You will get a .tex file, and a pdf
    if you have pdflatex installed.
(defalias 'arbitools-it3 #[nil "\301\302\303\304\303\305&\207" [buffer-file-name call-process "arbitools-run.py" nil "Arbitools-output" "it3"] 7 (#$ . 28069) nil])
#@33 Get the FEDA rating admin file.
(defalias 'arbitools-fedarating #[nil "\301\302\303\304\303\305&\207" [buffer-file-name call-process "arbitools-run.py" nil "Arbitools-output" "fedarating"] 7 (#$ . 28344) nil])
#@34 Keymap for Arbitools major mode.
(defvar arbitools-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210)\207" [map make-sparse-keymap define-key "i" arbitools-insert-player "r" arbitools-insert-result "p" arbitools-do-pairing "b" arbitools-insert-bye] 4) (#$ . 28562))
#@25 Menu for Arbitools mode
(defvar arbitools-mode-menu nil (#$ . 28889))
(easy-menu-do-define 'arbitools-mode-menu arbitools-mode-map "Menu for Arbitools mode" '("Arbitools" ["New Tournament header" arbitools-new-trf] "---" ["Insert Player" arbitools-insert-player] ["Delete Player" arbitools-delete-player] "---" ["Do Pairings" arbitools-do-pairings] ["Insert Result" arbitools-insert-result] ["Insert Bye" arbitools-insert-bye] ["Delete Round" arbitools-delete-round] "---" ["List Players" arbitools-list-players] ["List Pairings" arbitools-list-pairing] ["Recalculate Standings" arbitools-calculate-standings] ["Recalculate points" arbitools-calculate-points] ["Calculate ARPO" arbitools-calculate-arpo] "---" ["Print Standings to file" arbitools-standings] "---" ["Update Elo" arbitools-update] ["Get It3 form Report" arbitools-it3] ["Get FEDA Rating file" arbitools-fedarating] ["Prepare file for DOS" arbitools-prepare-file-DOS]))
(defvar arbitools-highlights '(("^001" . font-lock-function-name-face) ("^012.*" . font-lock-comment-face) ("\\(^022\\|^032\\|^042\\|^052\\|^062\\|^072\\|^082\\|^092\\|^102\\|^112\\|^122\\).*" . font-lock-constant-face) ("^132.*" . font-lock-warning-face) ("^013" . font-lock-warning-face) ("\\(^013.\\{1\\}\\)\\(.\\{31\\}\\)" 2 font-lock-comment-face) ("\\(^001.\\{11\\}\\)\\(.\\{32\\}\\)" 2 font-lock-string-face) ("\\(^001.\\{55\\}\\)\\(.\\{10\\}\\)" 2 font-lock-function-name-face) ("\\(^001.\\{88\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face) ("\\(^001.\\{93\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face) ("\\(^001.\\{95\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face) ("\\(^001.\\{98\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face) ("\\(^001.\\{103\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face) ("\\(^001.\\{105\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face) ("\\(^001.\\{108\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face) ("\\(^001.\\{113\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face) ("\\(^001.\\{115\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face) ("\\(^001.\\{118\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face) ("\\(^001.\\{123\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face) ("\\(^001.\\{125\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face) ("\\(^001.\\{128\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face) ("\\(^001.\\{133\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face) ("\\(^001.\\{135\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face) ("\\(^001.\\{138\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face) ("\\(^001.\\{143\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face) ("\\(^001.\\{145\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face) ("\\(^001.\\{148\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face) ("\\(^001.\\{153\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face) ("\\(^001.\\{155\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face) ("\\(^001.\\{158\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face) ("\\(^001.\\{163\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face) ("\\(^001.\\{165\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face) ("\\(^001.\\{168\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face) ("\\(^001.\\{173\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face) ("\\(^001.\\{175\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face) ("\\(^001.\\{178\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face) ("\\(^001.\\{183\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face) ("\\(^001.\\{185\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face) ("\\(^001.\\{188\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face) ("\\(^001.\\{193\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face) ("\\(^001.\\{195\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face) ("\\(^001.\\{198\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face) ("\\(^001.\\{203\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face) ("\\(^001.\\{205\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face)))
(defvar arbitools-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [arbitools-mode-hook variable-documentation put "Hook run after entering Arbitools mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp arbitools-mode-map definition-name arbitools-mode] 4)
(defvar arbitools-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [arbitools-mode-abbrev-table arbitools-mode-map variable-documentation put purecopy "Keymap for `arbitools-mode'." boundp arbitools-mode-syntax-table definition-name arbitools-mode (lambda (#1=#:def-tmp-var) (defvar arbitools-mode-syntax-table #1#)) make-syntax-table "Syntax table for `arbitools-mode'." (lambda (#1#) (defvar arbitools-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `arbitools-mode'." derived-mode-parent] 5)
#@172 Major mode for Chess Tournament Management.

This mode runs the hook `arbitools-mode-hook', as the final or
penultimate step during initialization.

\{arbitools-mode-map}
(defalias 'arbitools-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210\315\316!\210\315\317!\210\315\320!\210\315\321!\210\315\322!\210\315\323!\210\315\324!\210\315\325!\210\326 \210\327 \210\306\330!\210\331)\332\333!\207" [delay-mode-hooks major-mode mode-name arbitools-mode-map arbitools-mode-syntax-table arbitools-mode-abbrev-table make-local-variable t kill-all-local-variables arbitools-mode "Arbitools" use-local-map set-syntax-table get-buffer-create "Arbitools-output" "List of players" "Pairings List" "Standings" "Pairings-output" "Players performance" "ARPO" "userTB.txt" column-number-mode arbitools-fill-players-info font-lock-defaults (arbitools-highlights) run-mode-hooks arbitools-mode-hook local-abbrev-table] 2 (#$ . 33851) nil])
(byte-code "\300\301\302\"\210\303\304!\207" [add-to-list auto-mode-alist ("\\.trf?\\'" . arbitools-mode) provide arbitools] 3)