| 1 | (print platform) |
|---|
| 2 | (setq tmp_dir (if (eq platform 'WATCOM) |
|---|
| 3 | "d:\\tmp\\" |
|---|
| 4 | "/tmp/")) |
|---|
| 5 | |
|---|
| 6 | (setq CC (select platform |
|---|
| 7 | ('AIX "xlC -+ ") |
|---|
| 8 | ('LINUX "g++ ") |
|---|
| 9 | ('SGI "g++ "))) |
|---|
| 10 | |
|---|
| 11 | (setq watcom_include "$(%WATCOM)\\h") |
|---|
| 12 | |
|---|
| 13 | (defun app (head tail) (if (null head) tail (cons (car head) (app (cdr head) tail)))) |
|---|
| 14 | |
|---|
| 15 | (defun get-string-section (string start end) |
|---|
| 16 | (if (> start end) |
|---|
| 17 | nil |
|---|
| 18 | (cons (elt string start) (get-string-section string (+ start 1) end)))) |
|---|
| 19 | |
|---|
| 20 | (defun replace-string-section (string start end replacement) |
|---|
| 21 | (concatenate 'string |
|---|
| 22 | (get-string-section string 0 (- start 1)) |
|---|
| 23 | replacement |
|---|
| 24 | (get-string-section string (+ end 1) (- (length string) 1)))) |
|---|
| 25 | |
|---|
| 26 | |
|---|
| 27 | (defun replace..withdd (string) |
|---|
| 28 | (let ((find (search ".." string))) |
|---|
| 29 | (if find |
|---|
| 30 | (replace..withdd (replace-string-section string find (+ find 1) "dd")) |
|---|
| 31 | string))) |
|---|
| 32 | |
|---|
| 33 | (defun replace.. (string) |
|---|
| 34 | (if (equal outdir ".") |
|---|
| 35 | string |
|---|
| 36 | (let ((find (search ".." string))) |
|---|
| 37 | (if find |
|---|
| 38 | (replace..withdd (replace-string-section string find (+ find 1) outdir)) |
|---|
| 39 | string)))) |
|---|
| 40 | |
|---|
| 41 | ;(setq platform 'WATCOM) |
|---|
| 42 | (setq dirs_to_make '(".")) |
|---|
| 43 | |
|---|
| 44 | (defun get_includes (include_list) |
|---|
| 45 | (if (eq platform 'WATCOM) |
|---|
| 46 | (cons watcom_include include_list) |
|---|
| 47 | include_list)) |
|---|
| 48 | |
|---|
| 49 | (defun add_dir_to_make (dir_list new_dir) |
|---|
| 50 | (if dir_list |
|---|
| 51 | (if (equal (car dir_list) new_dir) |
|---|
| 52 | nil |
|---|
| 53 | (add_dir_to_make (cdr dir_list) new_dir)) |
|---|
| 54 | (setq dirs_to_make (cons new_dir dirs_to_make)))) |
|---|
| 55 | |
|---|
| 56 | (defun make_versions () |
|---|
| 57 | (if (equal platform 'WATCOM) |
|---|
| 58 | '("debug" "opt") |
|---|
| 59 | '("debug" "opt" "profile"))) |
|---|
| 60 | |
|---|
| 61 | (defun default_version () ;; make will build all targets of this verison |
|---|
| 62 | (if (equal platform 'LINUX) ;; linux is debug platform |
|---|
| 63 | "debug" |
|---|
| 64 | "opt")) |
|---|
| 65 | |
|---|
| 66 | |
|---|
| 67 | (defun plat_dot_name (platform) |
|---|
| 68 | (if (eq platform 'SGI) |
|---|
| 69 | ".sgi" |
|---|
| 70 | (if (eq platform 'SUN) |
|---|
| 71 | ".sun" |
|---|
| 72 | (if (eq platform 'AIX) |
|---|
| 73 | ".aix" |
|---|
| 74 | "")))) |
|---|
| 75 | |
|---|
| 76 | |
|---|
| 77 | (defun get_version_extension (version platform) |
|---|
| 78 | (concatenate 'string |
|---|
| 79 | (select version |
|---|
| 80 | ("debug" "") |
|---|
| 81 | ("opt" "o") |
|---|
| 82 | ("profile" "p")) |
|---|
| 83 | (plat_dot_name platform))) |
|---|
| 84 | |
|---|
| 85 | |
|---|
| 86 | |
|---|
| 87 | |
|---|
| 88 | |
|---|
| 89 | ;(setq o_files '("nfserver" "nfclient" "username" "clisp" "gui" "transp" |
|---|
| 90 | ; "collide" "trig" "property" "lisp" "cache" "particle" |
|---|
| 91 | ; "objects" "server2" "client" "extend" "console" "ability" |
|---|
| 92 | ; "items" "dev" "chars" "level" "smallfnt" "automap" |
|---|
| 93 | ; "help" "intsect" "loader" "seq" "points" "fnt6x13" |
|---|
| 94 | ; "morpher" "menu" "director" "view" "config" "game" |
|---|
| 95 | ; "light" "devsel" "crc" "nnet/nnet")) |
|---|
| 96 | |
|---|
| 97 | |
|---|
| 98 | (defun platform_name (plat) |
|---|
| 99 | (select plat |
|---|
| 100 | ('WATCOM "wat") |
|---|
| 101 | ('LINUX_X11 "linux_x11") |
|---|
| 102 | ('LINUX_SVGA "linux_svga") |
|---|
| 103 | ('LINUX "linux") |
|---|
| 104 | ('AIX "AIX") |
|---|
| 105 | ('SGI "SGI") |
|---|
| 106 | ('SUN "SUN"))) |
|---|
| 107 | |
|---|
| 108 | |
|---|
| 109 | (defun slash () |
|---|
| 110 | (if (equal platform 'WATCOM) |
|---|
| 111 | "\\" |
|---|
| 112 | "/")) |
|---|
| 113 | |
|---|
| 114 | (defun object_extension () |
|---|
| 115 | (if (equal platform 'WATCOM) |
|---|
| 116 | ".obj" |
|---|
| 117 | ".o")) |
|---|
| 118 | |
|---|
| 119 | |
|---|
| 120 | (defun version_dir (dir version_name plat) |
|---|
| 121 | ; (let ((platform (if (or (equal plat 'LINUX_SVGA) (equal plat 'LINUX_X11)) |
|---|
| 122 | ; "LINUX" |
|---|
| 123 | ; (platform_name plat)))) |
|---|
| 124 | (concatenate 'string dir (platform_name plat) (slash) version_name)) |
|---|
| 125 | |
|---|
| 126 | (defun make_obj_name (dir basename version_name plat) |
|---|
| 127 | (concatenate 'string tmp_dir (mangle_oname |
|---|
| 128 | (concatenate 'string (version_dir dir version_name plat) (slash) basename (slash))) |
|---|
| 129 | (object_extension))) |
|---|
| 130 | |
|---|
| 131 | (defun make_file_name () |
|---|
| 132 | (if (equal platform 'WATCOM) |
|---|
| 133 | "makefile" |
|---|
| 134 | "Makefile")) |
|---|
| 135 | |
|---|
| 136 | |
|---|
| 137 | (defun link_flags (ver plat) |
|---|
| 138 | (select plat |
|---|
| 139 | ('LINUX_SVGA (if (equal ver "profile") "-lvga -lm" "-lvga -lm")) |
|---|
| 140 | ('LINUX_X11 |
|---|
| 141 | "/lib/libXext.a /lib/libX11.a -lm") |
|---|
| 142 | ('SUN "-lX11 -lXext -lm") |
|---|
| 143 | ('SGI "-lX11 -lXext -lm") |
|---|
| 144 | ('AIX "-L/usr/lpp/X11/Xamples/extensions/lib -lXextSam -lX11 -lXext -lm") |
|---|
| 145 | ('WATCOM ""))) |
|---|
| 146 | |
|---|
| 147 | |
|---|
| 148 | (defun get_cflags (ver platform) |
|---|
| 149 | (if (equal platform 'WATCOM) |
|---|
| 150 | (concatenate 'string |
|---|
| 151 | (if (equal ver "debug") |
|---|
| 152 | "/zq /d2" |
|---|
| 153 | "/omaxne /zp1 /zq -DNO_CHECK") |
|---|
| 154 | " -DMANAGE_MEM") |
|---|
| 155 | (if (equal ver "debug") |
|---|
| 156 | "-g -DMEM_CHECK -DMANAGE_MEM" |
|---|
| 157 | (if (equal ver "profile") |
|---|
| 158 | (if (eq platform 'SGI) |
|---|
| 159 | "-O2 -g -p -DMEM_CHECK -DMANAGE_MEM" ; libcrt0 not supported on IRIX 5.3 |
|---|
| 160 | "-O2 -g -pg -DMEM_CHECK -DMANAGE_MEM") |
|---|
| 161 | "-O2 -DMANAGE_MEM -DNO_CHECK")))) |
|---|
| 162 | |
|---|
| 163 | |
|---|
| 164 | (defun get_compiler (file) |
|---|
| 165 | (if (equal platform 'WATCOM) |
|---|
| 166 | "wpp386" |
|---|
| 167 | CC)) |
|---|
| 168 | |
|---|
| 169 | (defun line_delimiter () |
|---|
| 170 | (if (equal platform 'WATCOM) |
|---|
| 171 | "&" |
|---|
| 172 | "\\")) |
|---|
| 173 | |
|---|
| 174 | (defun append_c (filename) |
|---|
| 175 | (concatenate 'string filename ".c")) |
|---|
| 176 | |
|---|
| 177 | (defun get_objs (list ver plat) |
|---|
| 178 | (if (null list) nil |
|---|
| 179 | (let ((x (split_filename (car list) (concatenate 'string outdir (slash)) ))) |
|---|
| 180 | (cons (make_obj_name (car x) (cdr x) ver plat) (get_objs (cdr list) ver plat))))) |
|---|
| 181 | |
|---|
| 182 | |
|---|
| 183 | |
|---|
| 184 | (defun list_files (list) |
|---|
| 185 | (print "\t" (convert_slashes (car list) (slash))) |
|---|
| 186 | (if (cdr list) |
|---|
| 187 | (progn |
|---|
| 188 | (print " " (line_delimiter) "\n") |
|---|
| 189 | (list_files (cdr list))) |
|---|
| 190 | nil)) |
|---|
| 191 | |
|---|
| 192 | |
|---|
| 193 | (defun isa_target2 (list platform) |
|---|
| 194 | (if list |
|---|
| 195 | (if (eq platform (car list)) |
|---|
| 196 | T |
|---|
| 197 | (isa_target2 (cdr list) platform)) |
|---|
| 198 | nil)) |
|---|
| 199 | |
|---|
| 200 | |
|---|
| 201 | (defun isa_target (list platform) |
|---|
| 202 | (if list (isa_target2 list platform) |
|---|
| 203 | T)) |
|---|
| 204 | |
|---|
| 205 | (defun add_out_dir (name) |
|---|
| 206 | (if (equal outdir ".") |
|---|
| 207 | name |
|---|
| 208 | (concatenate 'string outdir (slash) name))) |
|---|
| 209 | |
|---|
| 210 | (defun extend_name (name letter version do_it platform) |
|---|
| 211 | (if do_it |
|---|
| 212 | (concatenate 'string name letter (get_version_extension version platform)) |
|---|
| 213 | name)) |
|---|
| 214 | |
|---|
| 215 | (defun expand_targets (targets version) |
|---|
| 216 | |
|---|
| 217 | (if targets |
|---|
| 218 | (let ((plats (car (cdr (cdr (cdr (cdr (cdr (car targets)))))))) |
|---|
| 219 | (extend (if (eq (car (cdr (cdr (car targets)))) 'self) nil T)) |
|---|
| 220 | (target_name (car (car targets))) |
|---|
| 221 | (rest (cdr (car targets)))) |
|---|
| 222 | |
|---|
| 223 | ; (open_file "/dev/tty" "wb" (print (concatenate 'string outdir target_name) "\n")) |
|---|
| 224 | ; (print targets)) |
|---|
| 225 | |
|---|
| 226 | (if (eq platform 'LINUX) |
|---|
| 227 | (if (isa_target plats 'LINUX_X11) |
|---|
| 228 | (cons (cons 'LINUX_X11 (cons (extend_name target_name "x" version extend platform) rest)) |
|---|
| 229 | (if (isa_target plats 'LINUX_SVGA) |
|---|
| 230 | (cons (cons 'LINUX_SVGA (cons (extend_name target_name "" version extend platform) |
|---|
| 231 | rest)) |
|---|
| 232 | (expand_targets (cdr targets) version)) |
|---|
| 233 | (expand_targets (cdr targets) version))) |
|---|
| 234 | (if (isa_target plats 'LINUX_SVGA) |
|---|
| 235 | (cons (cons 'LINUX_SVGA (cons (extend_name target_name "" version extend platform) |
|---|
| 236 | rest)) |
|---|
| 237 | (expand_targets (cdr targets) version)) |
|---|
| 238 | (expand_targets (cdr targets) version))) |
|---|
| 239 | (if (isa_target plats platform) |
|---|
| 240 | (cons |
|---|
| 241 | (cons platform (cons (extend_name target_name "" version extend platform) rest)) |
|---|
| 242 | (expand_targets (cdr targets) version) |
|---|
| 243 | ) |
|---|
| 244 | (expand_targets (cdr targets) version)))))) |
|---|
| 245 | |
|---|
| 246 | |
|---|
| 247 | |
|---|
| 248 | |
|---|
| 249 | (defun make_lib_name (target platform version) |
|---|
| 250 | (let ((x (split_filename target (concatenate 'string "." (slash))))) |
|---|
| 251 | (replace.. (convert_slashes (concatenate 'string |
|---|
| 252 | (version_dir (car x) version platform) |
|---|
| 253 | (slash) (cdr x) (lib_ext)) (slash))))) |
|---|
| 254 | |
|---|
| 255 | |
|---|
| 256 | (defun get_lib_list (target_list) |
|---|
| 257 | (nth 3 (car target_list))) |
|---|
| 258 | |
|---|
| 259 | (defun list_targets (targets version) |
|---|
| 260 | (if targets |
|---|
| 261 | (let ((platform (car (car targets))) |
|---|
| 262 | (target (nth 1 (car targets))) |
|---|
| 263 | (ofiles (nth 2 (car targets))) |
|---|
| 264 | (libs (nth 3 (car targets))) |
|---|
| 265 | (inc (get_includes (nth 4 (car targets)))) |
|---|
| 266 | (cflags (nth 5 (car targets)))) |
|---|
| 267 | (print " ") |
|---|
| 268 | (if (eq libs 'self) |
|---|
| 269 | (print (make_lib_name target platform version)) |
|---|
| 270 | (if (eq platform 'WATCOM) |
|---|
| 271 | (print target ".exe") |
|---|
| 272 | (print target))) |
|---|
| 273 | (list_targets (cdr targets) version)))) |
|---|
| 274 | |
|---|
| 275 | (defun list_depends (file version plat includes cflags libs type) |
|---|
| 276 | (let ((x (split_filename file (concatenate 'string outdir (slash))))) |
|---|
| 277 | (add_dir_to_make dirs_to_make |
|---|
| 278 | (concatenate 'string (version_dir (car x) version plat) (slash))) |
|---|
| 279 | |
|---|
| 280 | (let ((ofile (make_obj_name (car x) (cdr x) version plat))) |
|---|
| 281 | (print ofile " : ") |
|---|
| 282 | (print file ".c\n") |
|---|
| 283 | (compile_to_object file version plat includes cflags type) |
|---|
| 284 | (for i in (get_depends (concatenate 'string file ".c") (slash) includes) do |
|---|
| 285 | (print ofile " : " i "\n"))) |
|---|
| 286 | )) |
|---|
| 287 | |
|---|
| 288 | |
|---|
| 289 | (defun link_files (outname files version plat) |
|---|
| 290 | (print "\t") |
|---|
| 291 | (if (eq platform 'WATCOM) |
|---|
| 292 | (progn |
|---|
| 293 | (print "wlink @" outname ".lnk\n\n") |
|---|
| 294 | (open_file (concatenate 'string outname ".lnk") "wb" |
|---|
| 295 | (if (eq version "debug") |
|---|
| 296 | (print "debug line\n")) |
|---|
| 297 | (print "system dos4gw\n") |
|---|
| 298 | (print "option caseexact\n") |
|---|
| 299 | (print "option map=" outname ".map\n") |
|---|
| 300 | (print "debug all\n") |
|---|
| 301 | (print "name " outname ".exe\n") |
|---|
| 302 | (print "option stack=120k\n") |
|---|
| 303 | (for i in files do (print "file " i "\n")) |
|---|
| 304 | ) |
|---|
| 305 | ) |
|---|
| 306 | (progn |
|---|
| 307 | (print CC " -o " outname " " (line_delimiter) "\n") |
|---|
| 308 | (list_files files) |
|---|
| 309 | (print " " (link_flags version plat)) |
|---|
| 310 | (print "\n\n") |
|---|
| 311 | ))) |
|---|
| 312 | |
|---|
| 313 | (defun get_include_string (list) |
|---|
| 314 | (if list |
|---|
| 315 | (concatenate 'string (car list) (get_include_string (cdr list))) |
|---|
| 316 | "")) |
|---|
| 317 | |
|---|
| 318 | (defun compile_to_object (file version plat includes cflags type) |
|---|
| 319 | (let ((x (split_filename file (concatenate 'string outdir (slash))))) |
|---|
| 320 | (let ((ofile (make_obj_name (car x) (cdr x) version plat))) |
|---|
| 321 | (if (eq platform 'WATCOM) |
|---|
| 322 | (progn |
|---|
| 323 | (make_compile_header includes) |
|---|
| 324 | (if (eq 'C type) |
|---|
| 325 | (print "\twcc386 ") |
|---|
| 326 | (print "\twpp386 ")) |
|---|
| 327 | (print file ".c -fo=" ofile " " (get_cflags version plat) " " cflags "\n\n")) |
|---|
| 328 | (progn |
|---|
| 329 | (if (eq 'C type) |
|---|
| 330 | (print "\tgcc") |
|---|
| 331 | (print "\t" CC)) |
|---|
| 332 | (progn |
|---|
| 333 | (print " -c -o " ofile " " file ".c") |
|---|
| 334 | (for i in includes do (print " -I" i)) |
|---|
| 335 | (print " " (get_cflags version plat) " " cflags "\n\n" ) |
|---|
| 336 | )))))) |
|---|
| 337 | |
|---|
| 338 | (defun lib_ext () |
|---|
| 339 | (if (eq platform 'WATCOM) ".lib" |
|---|
| 340 | ".a")) |
|---|
| 341 | |
|---|
| 342 | (defun create_archive (target platform version objs) |
|---|
| 343 | (let ((x (split_filename target (concatenate 'string "." (slash))))) |
|---|
| 344 | (let ((outname (make_lib_name target platform version))) |
|---|
| 345 | (if (eq platform 'WATCOM) |
|---|
| 346 | (let ((link_bat (concatenate 'string (version_dir (car x) version platform) |
|---|
| 347 | (slash) (cdr x) ".lnk"))) |
|---|
| 348 | (make_dir (concatenate 'string (car x) (platform_name platform) |
|---|
| 349 | (slash) version (slash))) |
|---|
| 350 | (open_file link_bat "wb" |
|---|
| 351 | (print outname "\n") |
|---|
| 352 | (for i in objs do |
|---|
| 353 | (print "+ " (convert_slashes i (slash)) "\n"))) |
|---|
| 354 | (print "\twlib /n @" link_bat "\n\n")) |
|---|
| 355 | (progn |
|---|
| 356 | (print "\tar ruvs " outname " " (line_delimiter) "\n") |
|---|
| 357 | (list_files objs) |
|---|
| 358 | (print "\n\n")))))) |
|---|
| 359 | |
|---|
| 360 | |
|---|
| 361 | |
|---|
| 362 | |
|---|
| 363 | |
|---|
| 364 | |
|---|
| 365 | (defun make_target (list version) |
|---|
| 366 | (if list |
|---|
| 367 | (let ((platform (car (car list))) |
|---|
| 368 | (target (nth 1 (car list))) |
|---|
| 369 | (ofiles (nth 2 (car list))) |
|---|
| 370 | (libs (nth 3 (car list))) |
|---|
| 371 | (inc (get_includes (nth 4 (car list)))) |
|---|
| 372 | (cflags (nth 5 (car list))) |
|---|
| 373 | (type (nth 7 (car list))) ) |
|---|
| 374 | (let ((obj_list (get_objs ofiles version platform))) |
|---|
| 375 | |
|---|
| 376 | (print platform "_" target "_" version "_o_files = " (line_delimiter) "\n") |
|---|
| 377 | (list_files obj_list) |
|---|
| 378 | (print "\n\n") |
|---|
| 379 | |
|---|
| 380 | (make_target (cdr list) version) |
|---|
| 381 | |
|---|
| 382 | (if (eq libs 'self) |
|---|
| 383 | (progn |
|---|
| 384 | (print (make_lib_name target platform version) " : $(" |
|---|
| 385 | platform "_" target "_" version "_o_files)\n") |
|---|
| 386 | (create_archive target platform version obj_list)) |
|---|
| 387 | (progn |
|---|
| 388 | (if (not (equal "." outdir)) |
|---|
| 389 | (print outdir (slash))) |
|---|
| 390 | (print target) |
|---|
| 391 | |
|---|
| 392 | (if (and (not (eq libs 'self)) |
|---|
| 393 | (eq platform 'WATCOM)) |
|---|
| 394 | (print ".exe")) |
|---|
| 395 | |
|---|
| 396 | (print " : $(" platform "_" target "_" version "_o_files)\n") |
|---|
| 397 | (link_files target (app obj_list (get_lib_files libs platform version)) |
|---|
| 398 | version platform))) |
|---|
| 399 | |
|---|
| 400 | |
|---|
| 401 | (for i in ofiles do |
|---|
| 402 | (list_depends (convert_slashes i (slash)) version platform inc |
|---|
| 403 | (if cflags cflags "") libs type )) |
|---|
| 404 | (print "\n") |
|---|
| 405 | )))) |
|---|
| 406 | |
|---|
| 407 | |
|---|
| 408 | |
|---|
| 409 | (defun get_ex_libs (libname plat version) |
|---|
| 410 | (if (eq plat 'WATCOM) |
|---|
| 411 | (if (equal libname "sound") "c:\\sos\\lib\\sosw1cr.lib" nil) |
|---|
| 412 | (if (eq plat 'LINUX_X11) (if (eq libname "winman") "-lX11 -lXext" nil) |
|---|
| 413 | (if (eq plat 'LINUX_SVGA) (if (eq libname "winman") "-lvga" nil) |
|---|
| 414 | nil)))) |
|---|
| 415 | |
|---|
| 416 | |
|---|
| 417 | (defun get_lib_files (libs plat version) |
|---|
| 418 | (if libs |
|---|
| 419 | (let ((x (get_ex_libs (cdr (split_filename (car libs) "./")) plat version)) |
|---|
| 420 | (rest (get_lib_files (cdr libs) plat version)) |
|---|
| 421 | (this (make_lib_name (car libs) plat version))) |
|---|
| 422 | (if x |
|---|
| 423 | (cons x (cons this rest)) |
|---|
| 424 | (cons this rest))) |
|---|
| 425 | nil)) |
|---|
| 426 | |
|---|
| 427 | |
|---|
| 428 | (defun make_include_string (list) |
|---|
| 429 | (if list |
|---|
| 430 | (concatenate 'string (car list) |
|---|
| 431 | (if (cdr list) |
|---|
| 432 | (concatenate 'string ";" (make_include_string (cdr list))) |
|---|
| 433 | "")) |
|---|
| 434 | "")) |
|---|
| 435 | |
|---|
| 436 | (defun make_compile_header (include) |
|---|
| 437 | (if (eq platform 'WATCOM) |
|---|
| 438 | (progn |
|---|
| 439 | (print "\tset include=" (make_include_string include) "\n")) nil)) |
|---|
| 440 | |
|---|
| 441 | |
|---|
| 442 | |
|---|
| 443 | (progn |
|---|
| 444 | |
|---|
| 445 | ;open_file (concatenate 'string (make_file_name) "." (platform_name platform)) "wb" |
|---|
| 446 | (print "all : " (default_version) "\n\n") |
|---|
| 447 | (for i in (make_versions) do |
|---|
| 448 | (print i " :") |
|---|
| 449 | (list_targets (expand_targets targets i) i) |
|---|
| 450 | (print "\n\techo Made " i "\n\n") |
|---|
| 451 | ) |
|---|
| 452 | (for i in (make_versions) do |
|---|
| 453 | (make_target (expand_targets targets i) i)) |
|---|
| 454 | |
|---|
| 455 | |
|---|
| 456 | ) |
|---|
| 457 | |
|---|
| 458 | (print dirs_to_make) |
|---|
| 459 | (for i in dirs_to_make do (make_dir i)) |
|---|
| 460 | |
|---|
| 461 | |
|---|
| 462 | |
|---|
| 463 | |
|---|
| 464 | |
|---|
| 465 | |
|---|
| 466 | |
|---|
| 467 | |
|---|
