1module 'lfe_andor_SUITE' ['$handle_undefined_function'/2, 2 'LFE-EXPAND-EXPORTED-MACRO'/3, 3 'all'/0, 4 'before_and_inside_if'/1, 5 'combined'/1, 6 'end_per_group'/2, 7 'end_per_suite'/1, 8 'groups'/0, 9 'in_case'/1, 10 'init_per_group'/2, 11 'init_per_suite'/1, 12 'inside'/1, 13 'module_info'/0, 14 'module_info'/1, 15 'overlap'/1, 16 'suite'/0, 17 't_and_or'/1, 18 't_andalso'/1, 19 't_case'/1, 20 't_orelse'/1] 21 attributes [] 22'all'/0 = 23 %% Line 38 24 fun () -> 25 ['t_case'|['t_and_or'|['t_andalso'|['t_orelse'|['inside'|['overlap'|['combined'|['in_case'|['before_and_inside_if']]]]]]]]] 26'suite'/0 = 27 %% Line 44 28 fun () -> 29 [] 30'groups'/0 = 31 %% Line 46 32 fun () -> 33 [] 34'init_per_suite'/1 = 35 %% Line 48 36 fun (_config) -> 37 do 38 call 'test_lib':'recompile_core'('lfe_andor_SUITE') 39 _config 40'end_per_suite'/1 = 41 %% Line 50 42 fun (_config) -> 43 'ok' 44'init_per_group'/2 = 45 %% Line 52 46 fun (_name,_config) -> 47 _config 48'end_per_group'/2 = 49 %% Line 54 50 fun (_name,_config) -> 51 _config 52't_case'/1 = 53 %% Line 56 54 fun (_0) -> 55 case <_0> of 56 <'suite'> when 'true' -> 57 [] 58 <'doc'> when 'true' -> 59 [84|[101|[115|[116|[32|[105|[110|[32|[99|[97|[115|[101|[46]]]]]]]]]]]]] 60 <_config> 61 when try 62 let <_1> = 63 call 'erlang':'is_list' 64 (_config) 65 in _1 66 of <Try> -> 67 Try 68 catch <T,R> -> 69 'false' -> 70 do call 'erlang':'put' 71 ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['less']]|[['t-case-a'|[1|[2]]]]]]}) 72 let <_val> = 73 <apply 't-case-a'/2 74 (1, 2)> 75 in case <_val> of 76 <'less'> when 'true' -> 77 _val 78 ( <_2> when 'true' -> 79 primop 'match_fail' 80 ({'badmatch',{_2}}) 81 -| ['compiler_generated'] ) 82 end 83 ( <_25> when 'true' -> 84 ( primop 'match_fail' 85 ({'function_clause',_25}) 86 -| [{'function_name',{'t_case',1}}] ) 87 -| ['compiler_generated'] ) 88 end 89't-case-a'/2 = 90 %% Line 94 91 fun (_a,_b) -> 92 case call 'erlang':'<' 93 (_a, _b) of 94 <[_0|_1]> when 'true' -> 95 'ok' 96 <'true'> when 'true' -> 97 'less' 98 <'false'> when 'true' -> 99 'not_less' 100 <{'a','b','c'}> when 'true' -> 101 'ok' 102 <_2> when 'true' -> 103 'ok' 104 ( <_omega> when 'true' -> 105 primop 'match_fail' 106 ({'case_clause',_omega}) 107 -| ['compiler_generated'] ) 108 end 109't-case-b'/2 = 110 %% Line 102 111 fun (_a,_b) -> 112 case call 'erlang':'=:=' 113 (_a, _b) of 114 <'blurf'> when 'true' -> 115 'ok' 116 ( <_omega> when 'true' -> 117 primop 'match_fail' 118 ({'case_clause',_omega}) 119 -| ['compiler_generated'] ) 120 end 121't-case-c'/2 = 122 %% Line 106 123 fun (_a,_b) -> 124 case let <_0> = 125 call 'erlang':'=:=' 126 (_a, _b) 127 in call 'erlang':'not' 128 (_0) of 129 <'true'> when 'true' -> 130 'ne' 131 <'false'> when 'true' -> 132 'eq' 133 ( <_omega> when 'true' -> 134 primop 'match_fail' 135 ({'case_clause',_omega}) 136 -| ['compiler_generated'] ) 137 end 138't-case-d'/3 = 139 %% Line 111 140 fun (_a,_b,_x) -> 141 case let <_0> = 142 call 'erlang':'=:=' 143 (_a, _b) 144 in call 'erlang':'and' 145 (_0, _x) of 146 <'true'> when 'true' -> 147 't' 148 <'false'> when 'true' -> 149 'f' 150 ( <_omega> when 'true' -> 151 primop 'match_fail' 152 ({'case_clause',_omega}) 153 -| ['compiler_generated'] ) 154 end 155't-case-e'/2 = 156 %% Line 116 157 fun (_a,_b) -> 158 case call 'erlang':'=:=' 159 (_a, _b) of 160 <_bool> 161 when try 162 let <_0> = 163 call 'erlang':'is_tuple' 164 (_a) 165 in _0 166 of <Try> -> 167 Try 168 catch <T,R> -> 169 'false' -> 170 apply 'id'/1 171 (_bool) 172 ( <_omega> when 'true' -> 173 primop 'match_fail' 174 ({'case_clause',_omega}) 175 -| ['compiler_generated'] ) 176 end 177't-case-xy'/3 = 178 %% Line 120 179 fun (_x,_y,_z) -> 180 let <_r0> = 181 <apply 't-case-x'/3 182 (_x, _y, _z)> 183 in case <apply 't-case-y'/3 184 (_x, _y, _z)> of 185 <_res> 186 when try 187 let <_0> = 188 call 'erlang':'=:=' 189 (_res, _r0) 190 in _0 191 of <Try> -> 192 Try 193 catch <T,R> -> 194 'false' -> 195 _res 196 ( <_1> when 'true' -> 197 primop 'match_fail' 198 ({'badmatch',{_1}}) 199 -| ['compiler_generated'] ) 200 end 201't-case-x'/3 = 202 %% Line 125 203 fun (_x,_y,_z) -> 204 case let <_0> = 205 call 'erlang':'abs' 206 (_x) 207 in call 'erlang':'=:=' 208 (_0, 42) of 209 <'true'> when 'true' -> 210 call 'erlang':'=:=' 211 (_y, 100) 212 <'false'> when 'true' -> 213 call 'erlang':'=:=' 214 (_z, 700) 215 ( <_omega> when 'true' -> 216 primop 'match_fail' 217 ({'case_clause',_omega}) 218 -| ['compiler_generated'] ) 219 end 220't-case-y'/3 = 221 %% Line 130 222 fun (_x,_y,_z) -> 223 case let <_0> = 224 call 'erlang':'abs' 225 (_x) 226 in call 'erlang':'=:=' 227 (_0, 42) of 228 <'false'> when 'true' -> 229 call 'erlang':'=:=' 230 (_z, 700) 231 <'true'> when 'true' -> 232 call 'erlang':'=:=' 233 (_y, 100) 234 ( <_omega> when 'true' -> 235 primop 'match_fail' 236 ({'case_clause',_omega}) 237 -| ['compiler_generated'] ) 238 end 239't_and_or'/1 = 240 %% Line 135 241 fun (_0) -> 242 case <_0> of 243 <_config> 244 when try 245 let <_1> = 246 call 'erlang':'is_list' 247 (_config) 248 in _1 249 of <Try> -> 250 Try 251 catch <T,R> -> 252 'false' -> 253 do call 'erlang':'put' 254 ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['true']]|[['and'|[['quote'|['true']]|[['quote'|['true']]]]]]]]}) 255 let <_val> = 256 <call 'erlang':'and' 257 ('true', 'true')> 258 in case <_val> of 259 <'true'> when 'true' -> 260 _val 261 ( <_2> when 'true' -> 262 primop 'match_fail' 263 ({'badmatch',{_2}}) 264 -| ['compiler_generated'] ) 265 end 266 ( <_42> when 'true' -> 267 ( primop 'match_fail' 268 ({'function_clause',_42}) 269 -| [{'function_name',{'t_and_or',1}}] ) 270 -| ['compiler_generated'] ) 271 end 272't_andalso'/1 = 273 %% Line 172 274 fun (_0) -> 275 case <_0> of 276 <_config> 277 when try 278 let <_1> = 279 call 'erlang':'is_list' 280 (_config) 281 in _1 282 of <Try> -> 283 Try 284 catch <T,R> -> 285 'false' -> 286 do let <_bs> = 287 <['true'|['false']]> 288 in let <_ps> = 289 <letrec 290 'lc$^0'/1 = 291 fun (_2) -> 292 case <_2> of 293 <[_x|_lfe0]> when 'true' -> 294 letrec 295 'lc$^1'/1 = 296 fun (_3) -> 297 case <_3> of 298 <[_y|_lfe1]> when 'true' -> 299 let <_4> = 300 apply 'lc$^1'/1 301 (_lfe1) 302 in [{_x,_y}|_4] 303 <[]> when 'true' -> 304 apply 'lc$^0'/1 305 (_lfe0) 306 ( <_5> when 'true' -> 307 ( primop 'match_fail' 308 ({'function_clause',_5}) 309 -| [{'function_name',{'t_andalso',1}}] ) 310 -| ['compiler_generated'] ) 311 end 312 in apply 'lc$^1'/1 313 (_bs) 314 <[]> when 'true' -> 315 [] 316 ( <_6> when 'true' -> 317 ( primop 'match_fail' 318 ({'function_clause',_6}) 319 -| [{'function_name',{'t_andalso',1}}] ) 320 -| ['compiler_generated'] ) 321 end 322 in apply 'lc$^0'/1 323 (_bs)> 324 in let <_7> = 325 fun (_p) -> 326 apply 't-andalso-1'/1 327 (_p) 328 in call 'lists':'foreach' 329 (_7, _ps) 330 do call 'erlang':'put' 331 ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['true']]|[['andalso'|[['quote'|['true']]|[['quote'|['true']]]]]]]]}) 332 let <_val> = 333 <case 'true' of 334 <'true'> when 'true' -> 335 'true' 336 <'false'> when 'true' -> 337 'false' 338 ( <_omega> when 'true' -> 339 primop 'match_fail' 340 ('if_clause') 341 -| ['compiler_generated'] ) 342 end> 343 in case <_val> of 344 <'true'> when 'true' -> 345 _val 346 ( <_8> when 'true' -> 347 primop 'match_fail' 348 ({'badmatch',{_8}}) 349 -| ['compiler_generated'] ) 350 end 351 ( <_57> when 'true' -> 352 ( primop 'match_fail' 353 ({'function_clause',_57}) 354 -| [{'function_name',{'t_andalso',1}}] ) 355 -| ['compiler_generated'] ) 356 end 357't-andalso-1'/1 = 358 %% Line 207 359 fun (_0) -> 360 case <_0> of 361 <{_x,_y}> when 'true' -> 362 do call 'io':'format' 363 ([40|[97|[110|[100|[97|[108|[115|[111|[32|[126|[119|[32|[126|[119|[41|[58|[32]]]]]]]]]]]]]]]]], [_x,_y]) 364 let <_v0> = 365 <case apply 'echo'/1 366 (_x) of 367 <'true'> when 'true' -> 368 apply 'echo'/1 369 (_y) 370 <'false'> when 'true' -> 371 'false' 372 ( <_omega> when 'true' -> 373 primop 'match_fail' 374 ('if_clause') 375 -| ['compiler_generated'] ) 376 end> 377 in case <case 1 of 378 <_1> 379 when try 380 let <_3> = 381 let <_2> = 382 case _x of 383 <'true'> when 'true' -> 384 _y 385 <'false'> when 'true' -> 386 'false' 387 ( <_omega> when 'true' -> 388 _omega 389 -| ['compiler_generated'] ) 390 end 391 in ( call 'erlang':'=:=' 392 (_2, 'true') 393 -| ['compiler_generated'] ) 394 in _3 395 of <Try> -> 396 Try 397 catch <T,R> -> 398 'false' -> 399 'true' 400 <_4> 401 when try 402 'true' 403 of <Try> -> 404 Try 405 catch <T,R> -> 406 'false' -> 407 'false' 408 ( <_omega> when 'true' -> 409 primop 'match_fail' 410 ({'case_clause',_omega}) 411 -| ['compiler_generated'] ) 412 end> of 413 <_v1> 414 when try 415 let <_5> = 416 call 'erlang':'=:=' 417 (_v0, _v1) 418 in _5 419 of <Try> -> 420 Try 421 catch <T,R> -> 422 'false' -> 423 let <_6> = 424 call 'erlang':'and' 425 (_x, _y) 426 in apply 'check'/2 427 (_v1, _6) 428 ( <_7> when 'true' -> 429 primop 'match_fail' 430 ({'badmatch',{_7}}) 431 -| ['compiler_generated'] ) 432 end 433 ( <_8> when 'true' -> 434 ( primop 'match_fail' 435 ({'function_clause',_8}) 436 -| [{'function_name',{'t-andalso-1',1}}] ) 437 -| ['compiler_generated'] ) 438 end 439't_orelse'/1 = 440 %% Line 215 441 fun (_0) -> 442 case <_0> of 443 <_config> 444 when try 445 let <_1> = 446 call 'erlang':'is_list' 447 (_config) 448 in _1 449 of <Try> -> 450 Try 451 catch <T,R> -> 452 'false' -> 453 do let <_bs> = 454 <['true'|['false']]> 455 in let <_ps> = 456 <letrec 457 'lc$^2'/1 = 458 fun (_2) -> 459 case <_2> of 460 <[_x|_lfe2]> when 'true' -> 461 letrec 462 'lc$^3'/1 = 463 fun (_3) -> 464 case <_3> of 465 <[_y|_lfe3]> when 'true' -> 466 let <_4> = 467 apply 'lc$^3'/1 468 (_lfe3) 469 in [{_x,_y}|_4] 470 <[]> when 'true' -> 471 apply 'lc$^2'/1 472 (_lfe2) 473 ( <_5> when 'true' -> 474 ( primop 'match_fail' 475 ({'function_clause',_5}) 476 -| [{'function_name',{'t_orelse',1}}] ) 477 -| ['compiler_generated'] ) 478 end 479 in apply 'lc$^3'/1 480 (_bs) 481 <[]> when 'true' -> 482 [] 483 ( <_6> when 'true' -> 484 ( primop 'match_fail' 485 ({'function_clause',_6}) 486 -| [{'function_name',{'t_orelse',1}}] ) 487 -| ['compiler_generated'] ) 488 end 489 in apply 'lc$^2'/1 490 (_bs)> 491 in let <_7> = 492 fun (_p) -> 493 apply 't-orelse-1'/1 494 (_p) 495 in call 'lists':'foreach' 496 (_7, _ps) 497 do call 'erlang':'put' 498 ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['true']]|[['orelse'|[['quote'|['true']]|[['quote'|['true']]]]]]]]}) 499 let <_val> = 500 <case 'true' of 501 <'true'> when 'true' -> 502 'true' 503 <'false'> when 'true' -> 504 'true' 505 ( <_omega> when 'true' -> 506 primop 'match_fail' 507 ('if_clause') 508 -| ['compiler_generated'] ) 509 end> 510 in case <_val> of 511 <'true'> when 'true' -> 512 _val 513 ( <_8> when 'true' -> 514 primop 'match_fail' 515 ({'badmatch',{_8}}) 516 -| ['compiler_generated'] ) 517 end 518 ( <_57> when 'true' -> 519 ( primop 'match_fail' 520 ({'function_clause',_57}) 521 -| [{'function_name',{'t_orelse',1}}] ) 522 -| ['compiler_generated'] ) 523 end 524't-orelse-1'/1 = 525 %% Line 249 526 fun (_0) -> 527 case <_0> of 528 <{_x,_y}> when 'true' -> 529 do call 'io':'format' 530 ([40|[111|[114|[101|[108|[115|[101|[32|[126|[119|[32|[126|[119|[41|[58|[32]]]]]]]]]]]]]]]], [_x,_y]) 531 let <_v0> = 532 <case apply 'echo'/1 533 (_x) of 534 <'true'> when 'true' -> 535 'true' 536 <'false'> when 'true' -> 537 apply 'echo'/1 538 (_y) 539 ( <_omega> when 'true' -> 540 primop 'match_fail' 541 ('if_clause') 542 -| ['compiler_generated'] ) 543 end> 544 in case <case 1 of 545 <_1> 546 when try 547 let <_3> = 548 let <_2> = 549 case _x of 550 <'true'> when 'true' -> 551 'true' 552 <'false'> when 'true' -> 553 _y 554 ( <_omega> when 'true' -> 555 _omega 556 -| ['compiler_generated'] ) 557 end 558 in ( call 'erlang':'=:=' 559 (_2, 'true') 560 -| ['compiler_generated'] ) 561 in _3 562 of <Try> -> 563 Try 564 catch <T,R> -> 565 'false' -> 566 'true' 567 <_4> 568 when try 569 'true' 570 of <Try> -> 571 Try 572 catch <T,R> -> 573 'false' -> 574 'false' 575 ( <_omega> when 'true' -> 576 primop 'match_fail' 577 ({'case_clause',_omega}) 578 -| ['compiler_generated'] ) 579 end> of 580 <_v1> 581 when try 582 let <_5> = 583 call 'erlang':'=:=' 584 (_v0, _v1) 585 in _5 586 of <Try> -> 587 Try 588 catch <T,R> -> 589 'false' -> 590 let <_6> = 591 call 'erlang':'or' 592 (_x, _y) 593 in apply 'check'/2 594 (_v1, _6) 595 ( <_7> when 'true' -> 596 primop 'match_fail' 597 ({'badmatch',{_7}}) 598 -| ['compiler_generated'] ) 599 end 600 ( <_8> when 'true' -> 601 ( primop 'match_fail' 602 ({'function_clause',_8}) 603 -| [{'function_name',{'t-orelse-1',1}}] ) 604 -| ['compiler_generated'] ) 605 end 606'inside'/1 = 607 %% Line 257 608 fun (_0) -> 609 case <_0> of 610 <_config> 611 when try 612 let <_1> = 613 call 'erlang':'is_list' 614 (_config) 615 in _1 616 of <Try> -> 617 Try 618 catch <T,R> -> 619 'false' -> 620 do call 'erlang':'put' 621 ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['true']]|[['inside'|[-8|[1]]]]]]}) 622 let <_val> = 623 <apply 'inside'/2 624 (-8, 1)> 625 in case <_val> of 626 <'true'> when 'true' -> 627 _val 628 ( <_2> when 'true' -> 629 primop 'match_fail' 630 ({'badmatch',{_2}}) 631 -| ['compiler_generated'] ) 632 end 633 ( <_12> when 'true' -> 634 ( primop 'match_fail' 635 ({'function_clause',_12}) 636 -| [{'function_name',{'inside',1}}] ) 637 -| ['compiler_generated'] ) 638 end 639'inside'/2 = 640 %% Line 272 641 fun (_xm,_ym) -> 642 let <_x> = 643 <-1.00000000000000000000e+01> 644 in let <_y> = 645 <-2.00000000000000000000e+00> 646 in let <_w> = 647 <2.00000000000000000000e+01> 648 in let <_h> = 649 <4.00000000000000000000e+00> 650 in let <_r0> = 651 <apply 'inside'/6 652 (_xm, _ym, _x, _y, _w, _h)> 653 in case <case 1 of 654 <_0> 655 when try 656 let <_4> = 657 let <_3> = 658 case call 'erlang':'=<' 659 (_x, _xm) of 660 <'true'> when 'true' -> 661 case let <_1> = 662 call 'erlang':'+' 663 (_x, _w) 664 in call 'erlang':'<' 665 (_xm, _1) of 666 <'true'> when 'true' -> 667 case call 'erlang':'=<' 668 (_y, _ym) of 669 <'true'> when 'true' -> 670 let <_2> = 671 call 'erlang':'+' 672 (_y, _h) 673 in call 'erlang':'<' 674 (_ym, _2) 675 <'false'> when 'true' -> 676 'false' 677 ( <_omega> when 'true' -> 678 _omega 679 -| ['compiler_generated'] ) 680 end 681 <'false'> when 'true' -> 682 'false' 683 ( <_omega> when 'true' -> 684 _omega 685 -| ['compiler_generated'] ) 686 end 687 <'false'> when 'true' -> 688 'false' 689 ( <_omega> when 'true' -> 690 _omega 691 -| ['compiler_generated'] ) 692 end 693 in ( call 'erlang':'=:=' 694 (_3, 'true') 695 -| ['compiler_generated'] ) 696 in _4 697 of <Try> -> 698 Try 699 catch <T,R> -> 700 'false' -> 701 'true' 702 <_5> 703 when try 704 'true' 705 of <Try> -> 706 Try 707 catch <T,R> -> 708 'false' -> 709 'false' 710 ( <_omega> when 'true' -> 711 primop 'match_fail' 712 ({'case_clause',_omega}) 713 -| ['compiler_generated'] ) 714 end> of 715 <_r1> 716 when try 717 let <_6> = 718 call 'erlang':'=:=' 719 (_r0, _r1) 720 in _6 721 of <Try> -> 722 Try 723 catch <T,R> -> 724 'false' -> 725 do case let <_7> = 726 apply 'id'/1 727 (_r1) 728 in call 'erlang':'not' 729 (_7) of 730 <_o0> when 'true' -> 731 case <case 1 of 732 <_8> 733 when try 734 let <_12> = 735 let <_11> = 736 case call 'erlang':'=<' 737 (_x, _xm) of 738 <'true'> when 'true' -> 739 case let <_9> = 740 call 'erlang':'+' 741 (_x, _w) 742 in call 'erlang':'<' 743 (_xm, _9) of 744 <'true'> when 'true' -> 745 case call 'erlang':'=<' 746 (_y, _ym) of 747 <'true'> when 'true' -> 748 let <_10> = 749 call 'erlang':'+' 750 (_y, _h) 751 in call 'erlang':'<' 752 (_ym, _10) 753 <'false'> when 'true' -> 754 'false' 755 ( <_omega> when 'true' -> 756 _omega 757 -| ['compiler_generated'] ) 758 end 759 <'false'> when 'true' -> 760 'false' 761 ( <_omega> when 'true' -> 762 _omega 763 -| ['compiler_generated'] ) 764 end 765 <'false'> when 'true' -> 766 'false' 767 ( <_omega> when 'true' -> 768 _omega 769 -| ['compiler_generated'] ) 770 end 771 in call 'erlang':'not' 772 (_11) 773 in _12 774 of <Try> -> 775 Try 776 catch <T,R> -> 777 'false' -> 778 'true' 779 <_13> 780 when try 781 'true' 782 of <Try> -> 783 Try 784 catch <T,R> -> 785 'false' -> 786 'false' 787 ( <_omega> when 'true' -> 788 primop 'match_fail' 789 ({'case_clause',_omega}) 790 -| ['compiler_generated'] ) 791 end> of 792 <_o1> 793 when try 794 let <_14> = 795 call 'erlang':'=:=' 796 (_o0, _o1) 797 in _14 798 of <Try> -> 799 Try 800 catch <T,R> -> 801 'false' -> 802 _o1 803 ( <_15> when 'true' -> 804 primop 'match_fail' 805 ({'badmatch',{_15}}) 806 -| ['compiler_generated'] ) 807 end 808 ( <_omega> when 'true' -> 809 primop 'match_fail' 810 ({'case_clause',_omega}) 811 -| ['compiler_generated'] ) 812 end 813 do case <apply 'inside-guard'/6 814 (_xm, _ym, _x, _y, _w, _h)> of 815 <{_r2,_xm2,_ym2,_x2,_y2,_w2,_h2}> 816 when try 817 let <_16> = 818 call 'erlang':'=:=' 819 (_r1, _r2) 820 in let <_17> = 821 call 'erlang':'=:=' 822 (_xm, _xm2) 823 in let <_18> = 824 call 'erlang':'=:=' 825 (_ym, _ym2) 826 in let <_19> = 827 call 'erlang':'=:=' 828 (_x, _x2) 829 in let <_20> = 830 call 'erlang':'=:=' 831 (_y, _y2) 832 in let <_21> = 833 call 'erlang':'=:=' 834 (_w, _w2) 835 in let <_22> = 836 call 'erlang':'=:=' 837 (_h, _h2) 838 in let <_23> = 839 call 'erlang':'and' 840 (_16, _17) 841 in let <_24> = 842 call 'erlang':'and' 843 (_23, _18) 844 in let <_25> = 845 call 'erlang':'and' 846 (_24, _19) 847 in let <_26> = 848 call 'erlang':'and' 849 (_25, _20) 850 in let <_27> = 851 call 'erlang':'and' 852 (_26, _21) 853 in call 'erlang':'and' 854 (_27, _22) 855 of <Try> -> 856 Try 857 catch <T,R> -> 858 'false' -> 859 let <_30> = 860 let <_28> = 861 call 'erlang':'+' 862 (_x, _w) 863 in let <_29> = 864 call 'erlang':'+' 865 (_y, _h) 866 in [_x,_xm,_xm,_28,_y,_ym,_ym,_29,_r1] 867 in call 'io':'fwrite' 868 ([40|[97|[110|[100|[97|[108|[115|[111|[32|[40|[61|[60|[32|[126|[112|[32|[126|[112|[41|[32|[40|[60|[32|[126|[112|[32|[126|[112|[41|[32|[40|[61|[60|[32|[126|[112|[32|[126|[112|[41|[32|[40|[60|[32|[126|[112|[32|[126|[112|[41|[41|[32|[61|[61|[62|[32|[126|[112|[10]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]], _30) 869 ( <_31> when 'true' -> 870 primop 'match_fail' 871 ({'badmatch',{_31}}) 872 -| ['compiler_generated'] ) 873 end 874 _r1 875 ( <_32> when 'true' -> 876 primop 'match_fail' 877 ({'badmatch',{_32}}) 878 -| ['compiler_generated'] ) 879 end 880'inside'/6 = 881 %% Line 297 882 fun (_xm,_ym,_x,_y,_w,_h) -> 883 case call 'erlang':'=<' 884 (_x, _xm) of 885 <'true'> when 'true' -> 886 case let <_0> = 887 call 'erlang':'+' 888 (_x, _w) 889 in call 'erlang':'<' 890 (_xm, _0) of 891 <'true'> when 'true' -> 892 case call 'erlang':'=<' 893 (_y, _ym) of 894 <'true'> when 'true' -> 895 let <_1> = 896 call 'erlang':'+' 897 (_y, _h) 898 in call 'erlang':'<' 899 (_ym, _1) 900 <'false'> when 'true' -> 901 'false' 902 ( <_omega> when 'true' -> 903 primop 'match_fail' 904 ('if_clause') 905 -| ['compiler_generated'] ) 906 end 907 <'false'> when 'true' -> 908 'false' 909 ( <_omega> when 'true' -> 910 primop 'match_fail' 911 ('if_clause') 912 -| ['compiler_generated'] ) 913 end 914 <'false'> when 'true' -> 915 'false' 916 ( <_omega> when 'true' -> 917 primop 'match_fail' 918 ('if_clause') 919 -| ['compiler_generated'] ) 920 end 921'inside-guard'/6 = 922 %% Line 300 923 fun (_5,_4,_3,_2,_1,_0) -> 924 case <_5,_4,_3,_2,_1,_0> of 925 <_xm,_ym,_x,_y,_w,_h> 926 when try 927 let <_9> = 928 let <_8> = 929 case call 'erlang':'=<' 930 (_x, _xm) of 931 <'true'> when 'true' -> 932 case let <_6> = 933 call 'erlang':'+' 934 (_x, _w) 935 in call 'erlang':'<' 936 (_xm, _6) of 937 <'true'> when 'true' -> 938 case call 'erlang':'=<' 939 (_y, _ym) of 940 <'true'> when 'true' -> 941 let <_7> = 942 call 'erlang':'+' 943 (_y, _h) 944 in call 'erlang':'<' 945 (_ym, _7) 946 <'false'> when 'true' -> 947 'false' 948 ( <_omega> when 'true' -> 949 _omega 950 -| ['compiler_generated'] ) 951 end 952 <'false'> when 'true' -> 953 'false' 954 ( <_omega> when 'true' -> 955 _omega 956 -| ['compiler_generated'] ) 957 end 958 <'false'> when 'true' -> 959 'false' 960 ( <_omega> when 'true' -> 961 _omega 962 -| ['compiler_generated'] ) 963 end 964 in ( call 'erlang':'=:=' 965 (_8, 'true') 966 -| ['compiler_generated'] ) 967 in _9 968 of <Try> -> 969 Try 970 catch <T,R> -> 971 'false' -> 972 {'true',_xm,_ym,_x,_y,_w,_h} 973 <_xm,_ym,_x,_y,_w,_h> when 'true' -> 974 {'false',_xm,_ym,_x,_y,_w,_h} 975 ( <_15,_14,_13,_12,_11,_10> when 'true' -> 976 ( primop 'match_fail' 977 ({'function_clause',_15,_14,_13,_12,_11,_10}) 978 -| [{'function_name',{'inside-guard',6}}] ) 979 -| ['compiler_generated'] ) 980 end 981'overlap'/1 = 982 %% Line 307 983 fun (_0) -> 984 case <_0> of 985 <_config> 986 when try 987 let <_1> = 988 call 'erlang':'is_list' 989 (_config) 990 in _1 991 of <Try> -> 992 Try 993 catch <T,R> -> 994 'false' -> 995 do call 'erlang':'put' 996 ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['true']]|[['overlap'|[7.00000000000000000000e+00|[2.00000000000000000000e+00|[8.00000000000000000000e+00|[5.00000000000000000000e-01]]]]]]]]}) 997 let <_val> = 998 <apply 'overlap'/4 999 (7.00000000000000000000e+00, 2.00000000000000000000e+00, 8.00000000000000000000e+00, 5.00000000000000000000e-01)> 1000 in case <_val> of 1001 <'true'> when 'true' -> 1002 _val 1003 ( <_2> when 'true' -> 1004 primop 'match_fail' 1005 ({'badmatch',{_2}}) 1006 -| ['compiler_generated'] ) 1007 end 1008 ( <_10> when 'true' -> 1009 ( primop 'match_fail' 1010 ({'function_clause',_10}) 1011 -| [{'function_name',{'overlap',1}}] ) 1012 -| ['compiler_generated'] ) 1013 end 1014'overlap'/4 = 1015 %% Line 321 1016 fun (_pos1,_len1,_pos2,_len2) -> 1017 let <_r0> = 1018 <case _pos1 of 1019 <_pos1> 1020 when try 1021 let <_3> = 1022 let <_2> = 1023 case case call 'erlang':'=<' 1024 (_pos2, _pos1) of 1025 <'true'> when 'true' -> 1026 let <_0> = 1027 call 'erlang':'+' 1028 (_pos2, _len2) 1029 in call 'erlang':'<' 1030 (_pos1, _0) 1031 <'false'> when 'true' -> 1032 'false' 1033 ( <_omega> when 'true' -> 1034 _omega 1035 -| ['compiler_generated'] ) 1036 end of 1037 <'true'> when 'true' -> 1038 'true' 1039 <'false'> when 'true' -> 1040 case call 'erlang':'=<' 1041 (_pos1, _pos2) of 1042 <'true'> when 'true' -> 1043 let <_1> = 1044 call 'erlang':'+' 1045 (_pos1, _len1) 1046 in call 'erlang':'<' 1047 (_pos2, _1) 1048 <'false'> when 'true' -> 1049 'false' 1050 ( <_omega> when 'true' -> 1051 _omega 1052 -| ['compiler_generated'] ) 1053 end 1054 ( <_omega> when 'true' -> 1055 _omega 1056 -| ['compiler_generated'] ) 1057 end 1058 in ( call 'erlang':'=:=' 1059 (_2, 'true') 1060 -| ['compiler_generated'] ) 1061 in _3 1062 of <Try> -> 1063 Try 1064 catch <T,R> -> 1065 'false' -> 1066 'true' 1067 <_pos1> when 'true' -> 1068 'false' 1069 ( <_omega> when 'true' -> 1070 primop 'match_fail' 1071 ({'case_clause',_omega}) 1072 -| ['compiler_generated'] ) 1073 end> 1074 in case <case case call 'erlang':'=<' 1075 (_pos2, _pos1) of 1076 <'true'> when 'true' -> 1077 let <_4> = 1078 call 'erlang':'+' 1079 (_pos2, _len2) 1080 in call 'erlang':'<' 1081 (_pos1, _4) 1082 <'false'> when 'true' -> 1083 'false' 1084 ( <_omega> when 'true' -> 1085 primop 'match_fail' 1086 ('if_clause') 1087 -| ['compiler_generated'] ) 1088 end of 1089 <'true'> when 'true' -> 1090 'true' 1091 <'false'> when 'true' -> 1092 case call 'erlang':'=<' 1093 (_pos1, _pos2) of 1094 <'true'> when 'true' -> 1095 let <_5> = 1096 call 'erlang':'+' 1097 (_pos1, _len1) 1098 in call 'erlang':'<' 1099 (_pos2, _5) 1100 <'false'> when 'true' -> 1101 'false' 1102 ( <_omega> when 'true' -> 1103 primop 'match_fail' 1104 ('if_clause') 1105 -| ['compiler_generated'] ) 1106 end 1107 ( <_omega> when 'true' -> 1108 primop 'match_fail' 1109 ('if_clause') 1110 -| ['compiler_generated'] ) 1111 end> of 1112 <_r1> 1113 when try 1114 let <_6> = 1115 call 'erlang':'=:=' 1116 (_r0, _r1) 1117 in _6 1118 of <Try> -> 1119 Try 1120 catch <T,R> -> 1121 'false' -> 1122 case <case _pos1 of 1123 <_pos1> 1124 when try 1125 let <_10> = 1126 let <_9> = 1127 case case call 'erlang':'=<' 1128 (_pos2, _pos1) of 1129 <'true'> when 'true' -> 1130 let <_7> = 1131 call 'erlang':'+' 1132 (_pos2, _len2) 1133 in call 'erlang':'<' 1134 (_pos1, _7) 1135 <'false'> when 'true' -> 1136 'false' 1137 ( <_omega> when 'true' -> 1138 _omega 1139 -| ['compiler_generated'] ) 1140 end of 1141 <'true'> when 'true' -> 1142 'true' 1143 <'false'> when 'true' -> 1144 case call 'erlang':'=<' 1145 (_pos1, _pos2) of 1146 <'true'> when 'true' -> 1147 let <_8> = 1148 call 'erlang':'+' 1149 (_pos1, _len1) 1150 in call 'erlang':'<' 1151 (_pos2, _8) 1152 <'false'> when 'true' -> 1153 'false' 1154 ( <_omega> when 'true' -> 1155 _omega 1156 -| ['compiler_generated'] ) 1157 end 1158 ( <_omega> when 'true' -> 1159 _omega 1160 -| ['compiler_generated'] ) 1161 end 1162 in ( call 'erlang':'=:=' 1163 (_9, 'true') 1164 -| ['compiler_generated'] ) 1165 in _10 1166 of <Try> -> 1167 Try 1168 catch <T,R> -> 1169 'false' -> 1170 'true' 1171 <_pos1> when 'true' -> 1172 'false' 1173 ( <_omega> when 'true' -> 1174 primop 'match_fail' 1175 ({'case_clause',_omega}) 1176 -| ['compiler_generated'] ) 1177 end> of 1178 <_r2> 1179 when try 1180 let <_11> = 1181 call 'erlang':'=:=' 1182 (_r2, _r1) 1183 in _11 1184 of <Try> -> 1185 Try 1186 catch <T,R> -> 1187 'false' -> 1188 apply 'id'/1 1189 (_r2) 1190 ( <_12> when 'true' -> 1191 primop 'match_fail' 1192 ({'badmatch',{_12}}) 1193 -| ['compiler_generated'] ) 1194 end 1195 ( <_13> when 'true' -> 1196 primop 'match_fail' 1197 ({'badmatch',{_13}}) 1198 -| ['compiler_generated'] ) 1199 end 1200'combined'/1 = 1201 %% Line 348 1202 fun (_0) -> 1203 case <_0> of 1204 <_config> 1205 when try 1206 let <_1> = 1207 call 'erlang':'is_list' 1208 (_config) 1209 in _1 1210 of <Try> -> 1211 Try 1212 catch <T,R> -> 1213 'false' -> 1214 do call 'erlang':'put' 1215 ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['false']]|[['comb'|[['quote'|['false']]|[['quote'|['false']]|[['quote'|['false']]]]]]]]]}) 1216 let <_val> = 1217 <apply 'comb'/3 1218 ('false', 'false', 'false')> 1219 in case <_val> of 1220 <'false'> when 'true' -> 1221 _val 1222 ( <_2> when 'true' -> 1223 primop 'match_fail' 1224 ({'badmatch',{_2}}) 1225 -| ['compiler_generated'] ) 1226 end 1227 ( <_26> when 'true' -> 1228 ( primop 'match_fail' 1229 ({'function_clause',_26}) 1230 -| [{'function_name',{'combined',1}}] ) 1231 -| ['compiler_generated'] ) 1232 end 1233'comb'/3 = 1234 %% Line 383 1235 fun (_a,_b,_c) -> 1236 let <_r0> = 1237 <case case _a of 1238 <'true'> when 'true' -> 1239 _b 1240 <'false'> when 'true' -> 1241 'false' 1242 ( <_omega> when 'true' -> 1243 primop 'match_fail' 1244 ('if_clause') 1245 -| ['compiler_generated'] ) 1246 end of 1247 <'true'> when 'true' -> 1248 'true' 1249 <'false'> when 'true' -> 1250 _c 1251 ( <_omega> when 'true' -> 1252 primop 'match_fail' 1253 ('if_clause') 1254 -| ['compiler_generated'] ) 1255 end> 1256 in case <case 1 of 1257 <_0> 1258 when try 1259 let <_2> = 1260 let <_1> = 1261 case case _a of 1262 <'true'> when 'true' -> 1263 _b 1264 <'false'> when 'true' -> 1265 'false' 1266 ( <_omega> when 'true' -> 1267 _omega 1268 -| ['compiler_generated'] ) 1269 end of 1270 <'true'> when 'true' -> 1271 'true' 1272 <'false'> when 'true' -> 1273 _c 1274 ( <_omega> when 'true' -> 1275 _omega 1276 -| ['compiler_generated'] ) 1277 end 1278 in ( call 'erlang':'=:=' 1279 (_1, 'true') 1280 -| ['compiler_generated'] ) 1281 in _2 1282 of <Try> -> 1283 Try 1284 catch <T,R> -> 1285 'false' -> 1286 'true' 1287 <_3> 1288 when try 1289 'true' 1290 of <Try> -> 1291 Try 1292 catch <T,R> -> 1293 'false' -> 1294 'false' 1295 ( <_omega> when 'true' -> 1296 primop 'match_fail' 1297 ({'case_clause',_omega}) 1298 -| ['compiler_generated'] ) 1299 end> of 1300 <_r1> 1301 when try 1302 let <_4> = 1303 call 'erlang':'=:=' 1304 (_r0, _r1) 1305 in _4 1306 of <Try> -> 1307 Try 1308 catch <T,R> -> 1309 'false' -> 1310 let <_n0> = 1311 <case 1 of 1312 <_5> 1313 when try 1314 let <_7> = 1315 let <_6> = 1316 case case _a of 1317 <'true'> when 'true' -> 1318 _b 1319 <'false'> when 'true' -> 1320 'false' 1321 ( <_omega> when 'true' -> 1322 _omega 1323 -| ['compiler_generated'] ) 1324 end of 1325 <'true'> when 'true' -> 1326 'true' 1327 <'false'> when 'true' -> 1328 _c 1329 ( <_omega> when 'true' -> 1330 _omega 1331 -| ['compiler_generated'] ) 1332 end 1333 in call 'erlang':'not' 1334 (_6) 1335 in _7 1336 of <Try> -> 1337 Try 1338 catch <T,R> -> 1339 'false' -> 1340 'true' 1341 <_8> 1342 when try 1343 'true' 1344 of <Try> -> 1345 Try 1346 catch <T,R> -> 1347 'false' -> 1348 'false' 1349 ( <_omega> when 'true' -> 1350 primop 'match_fail' 1351 ({'case_clause',_omega}) 1352 -| ['compiler_generated'] ) 1353 end> 1354 in case <let <_9> = 1355 call 'erlang':'not' 1356 (_r1) 1357 in apply 'id'/1 1358 (_9)> of 1359 <_n1> 1360 when try 1361 let <_10> = 1362 call 'erlang':'=:=' 1363 (_n0, _n1) 1364 in _10 1365 of <Try> -> 1366 Try 1367 catch <T,R> -> 1368 'false' -> 1369 case <case case _a of 1370 <'true'> when 'true' -> 1371 _b 1372 <'false'> when 'true' -> 1373 'false' 1374 ( <_omega> when 'true' -> 1375 primop 'match_fail' 1376 ('if_clause') 1377 -| ['compiler_generated'] ) 1378 end of 1379 <'true'> when 'true' -> 1380 'true' 1381 <'false'> when 'true' -> 1382 _c 1383 ( <_omega> when 'true' -> 1384 primop 'match_fail' 1385 ('if_clause') 1386 -| ['compiler_generated'] ) 1387 end> of 1388 <_r2> 1389 when try 1390 let <_11> = 1391 call 'erlang':'=:=' 1392 (_r1, _r2) 1393 in _11 1394 of <Try> -> 1395 Try 1396 catch <T,R> -> 1397 'false' -> 1398 case <case 1 of 1399 <_12> 1400 when try 1401 let <_14> = 1402 let <_13> = 1403 case case _a of 1404 <'true'> when 'true' -> 1405 _b 1406 <'false'> when 'true' -> 1407 'false' 1408 ( <_omega> when 'true' -> 1409 _omega 1410 -| ['compiler_generated'] ) 1411 end of 1412 <'true'> when 'true' -> 1413 'true' 1414 <'false'> when 'true' -> 1415 _c 1416 ( <_omega> when 'true' -> 1417 _omega 1418 -| ['compiler_generated'] ) 1419 end 1420 in ( call 'erlang':'=:=' 1421 (_13, 'true') 1422 -| ['compiler_generated'] ) 1423 in _14 1424 of <Try> -> 1425 Try 1426 catch <T,R> -> 1427 'false' -> 1428 'true' 1429 <_15> 1430 when try 1431 'true' 1432 of <Try> -> 1433 Try 1434 catch <T,R> -> 1435 'false' -> 1436 'false' 1437 ( <_omega> when 'true' -> 1438 primop 'match_fail' 1439 ({'case_clause',_omega}) 1440 -| ['compiler_generated'] ) 1441 end> of 1442 <_r3> 1443 when try 1444 let <_16> = 1445 call 'erlang':'=:=' 1446 (_r2, _r3) 1447 in _16 1448 of <Try> -> 1449 Try 1450 catch <T,R> -> 1451 'false' -> 1452 case <let <_17> = 1453 call 'erlang':'not' 1454 (_r3) 1455 in apply 'id'/1 1456 (_17)> of 1457 <_n2> 1458 when try 1459 let <_18> = 1460 call 'erlang':'=:=' 1461 (_n1, _n2) 1462 in _18 1463 of <Try> -> 1464 Try 1465 catch <T,R> -> 1466 'false' -> 1467 case <case 1 of 1468 <_19> 1469 when try 1470 let <_21> = 1471 let <_20> = 1472 case case _a of 1473 <'true'> when 'true' -> 1474 _b 1475 <'false'> when 'true' -> 1476 'false' 1477 ( <_omega> when 'true' -> 1478 _omega 1479 -| ['compiler_generated'] ) 1480 end of 1481 <'true'> when 'true' -> 1482 'true' 1483 <'false'> when 'true' -> 1484 _c 1485 ( <_omega> when 'true' -> 1486 _omega 1487 -| ['compiler_generated'] ) 1488 end 1489 in ( call 'erlang':'=:=' 1490 (_20, 'true') 1491 -| ['compiler_generated'] ) 1492 in _21 1493 of <Try> -> 1494 Try 1495 catch <T,R> -> 1496 'false' -> 1497 'true' 1498 <_22> 1499 when try 1500 'true' 1501 of <Try> -> 1502 Try 1503 catch <T,R> -> 1504 'false' -> 1505 'false' 1506 ( <_omega> when 'true' -> 1507 primop 'match_fail' 1508 ({'case_clause',_omega}) 1509 -| ['compiler_generated'] ) 1510 end> of 1511 <_r4> 1512 when try 1513 let <_23> = 1514 call 'erlang':'=:=' 1515 (_r3, _r4) 1516 in _23 1517 of <Try> -> 1518 Try 1519 catch <T,R> -> 1520 'false' -> 1521 apply 'id'/1 1522 (_r4) 1523 ( <_24> when 'true' -> 1524 primop 'match_fail' 1525 ({'badmatch',{_24}}) 1526 -| ['compiler_generated'] ) 1527 end 1528 ( <_25> when 'true' -> 1529 primop 'match_fail' 1530 ({'badmatch',{_25}}) 1531 -| ['compiler_generated'] ) 1532 end 1533 ( <_26> when 'true' -> 1534 primop 'match_fail' 1535 ({'badmatch',{_26}}) 1536 -| ['compiler_generated'] ) 1537 end 1538 ( <_27> when 'true' -> 1539 primop 'match_fail' 1540 ({'badmatch',{_27}}) 1541 -| ['compiler_generated'] ) 1542 end 1543 ( <_28> when 'true' -> 1544 primop 'match_fail' 1545 ({'badmatch',{_28}}) 1546 -| ['compiler_generated'] ) 1547 end 1548 ( <_29> when 'true' -> 1549 primop 'match_fail' 1550 ({'badmatch',{_29}}) 1551 -| ['compiler_generated'] ) 1552 end 1553'in_case'/1 = 1554 %% Line 402 1555 fun (_0) -> 1556 case <_0> of 1557 <_config> 1558 when try 1559 let <_1> = 1560 call 'erlang':'is_list' 1561 (_config) 1562 in _1 1563 of <Try> -> 1564 Try 1565 catch <T,R> -> 1566 'false' -> 1567 do call 'erlang':'put' 1568 ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['edge_rings']]|[['in-case-1'|[1|[1|[1|[1|[1]]]]]]]]]}) 1569 let <_val> = 1570 <apply 'in-case-1'/5 1571 (1, 1, 1, 1, 1)> 1572 in case <_val> of 1573 <'edge_rings'> when 'true' -> 1574 _val 1575 ( <_2> when 'true' -> 1576 primop 'match_fail' 1577 ({'badmatch',{_2}}) 1578 -| ['compiler_generated'] ) 1579 end 1580 ( <_13> when 'true' -> 1581 ( primop 'match_fail' 1582 ({'function_clause',_13}) 1583 -| [{'function_name',{'in_case',1}}] ) 1584 -| ['compiler_generated'] ) 1585 end 1586'in-case-1'/5 = 1587 %% Line 419 1588 fun (_lenup,_lendw,_lenn,_rot,_count) -> 1589 let <_r0> = 1590 <apply 'in-case-1-body'/5 1591 (_lenup, _lendw, _lenn, _rot, _count)> 1592 in case <apply 'in-case-1-guard'/5 1593 (_lenup, _lendw, _lenn, _rot, _count)> of 1594 <_res> 1595 when try 1596 let <_0> = 1597 call 'erlang':'=:=' 1598 (_r0, _res) 1599 in _0 1600 of <Try> -> 1601 Try 1602 catch <T,R> -> 1603 'false' -> 1604 _res 1605 ( <_1> when 'true' -> 1606 primop 'match_fail' 1607 ({'badmatch',{_1}}) 1608 -| ['compiler_generated'] ) 1609 end 1610'in-case-1-body'/5 = 1611 %% Line 425 1612 fun (_lenup,_lendw,_lenn,_rot,_count) -> 1613 case let <_5> = 1614 let <_2> = 1615 let <_0> = 1616 call 'erlang':'/' 1617 (_lenup, _count) 1618 in call 'erlang':'>' 1619 (_0, 7.06999999999999961808e-01) 1620 in let <_3> = 1621 let <_1> = 1622 call 'erlang':'/' 1623 (_lenn, _count) 1624 in call 'erlang':'>' 1625 (_1, 7.06999999999999961808e-01) 1626 in call 'erlang':'and' 1627 (_2, _3) 1628 in let <_6> = 1629 let <_4> = 1630 call 'erlang':'abs' 1631 (_rot) 1632 in call 'erlang':'>' 1633 (_4, 7.06999999999999961808e-01) 1634 in call 'erlang':'and' 1635 (_5, _6) of 1636 <'true'> when 'true' -> 1637 'edge_rings' 1638 <'false'> when 'true' -> 1639 case let <_11> = 1640 let <_9> = 1641 let <_7> = 1642 call 'erlang':'>=' 1643 (_lenup, 1) 1644 in let <_8> = 1645 call 'erlang':'>=' 1646 (_lendw, 1) 1647 in call 'erlang':'or' 1648 (_7, _8) 1649 in let <_10> = 1650 call 'erlang':'=<' 1651 (_lenn, 1) 1652 in call 'erlang':'or' 1653 (_9, _10) 1654 in let <_12> = 1655 call 'erlang':'>' 1656 (_count, 4) 1657 in call 'erlang':'or' 1658 (_11, _12) of 1659 <'true'> when 'true' -> 1660 'not_loop' 1661 <'false'> when 'true' -> 1662 'loop' 1663 ( <_omega> when 'true' -> 1664 primop 'match_fail' 1665 ({'case_clause',_omega}) 1666 -| ['compiler_generated'] ) 1667 end 1668 ( <_omega> when 'true' -> 1669 primop 'match_fail' 1670 ({'case_clause',_omega}) 1671 -| ['compiler_generated'] ) 1672 end 1673'in-case-1-guard'/5 = 1674 %% Line 435 1675 fun (_lenup,_lendw,_lenn,_rot,_count) -> 1676 case case let <_0> = 1677 call 'erlang':'/' 1678 (_lenup, _count) 1679 in call 'erlang':'>' 1680 (_0, 7.06999999999999961808e-01) of 1681 <'true'> when 'true' -> 1682 case let <_1> = 1683 call 'erlang':'/' 1684 (_lenn, _count) 1685 in call 'erlang':'>' 1686 (_1, 7.06999999999999961808e-01) of 1687 <'true'> when 'true' -> 1688 let <_2> = 1689 call 'erlang':'abs' 1690 (_rot) 1691 in call 'erlang':'>' 1692 (_2, 7.06999999999999961808e-01) 1693 <'false'> when 'true' -> 1694 'false' 1695 ( <_omega> when 'true' -> 1696 primop 'match_fail' 1697 ('if_clause') 1698 -| ['compiler_generated'] ) 1699 end 1700 <'false'> when 'true' -> 1701 'false' 1702 ( <_omega> when 'true' -> 1703 primop 'match_fail' 1704 ('if_clause') 1705 -| ['compiler_generated'] ) 1706 end of 1707 <'true'> when 'true' -> 1708 'edge_rings' 1709 <'false'> 1710 when try 1711 let <_4> = 1712 let <_3> = 1713 case call 'erlang':'>=' 1714 (_lenup, 1) of 1715 <'true'> when 'true' -> 1716 'true' 1717 <'false'> when 'true' -> 1718 case call 'erlang':'>=' 1719 (_lendw, 1) of 1720 <'true'> when 'true' -> 1721 'true' 1722 <'false'> when 'true' -> 1723 case call 'erlang':'=<' 1724 (_lenn, 1) of 1725 <'true'> when 'true' -> 1726 'true' 1727 <'false'> when 'true' -> 1728 call 'erlang':'<' 1729 (_count, 4) 1730 ( <_omega> when 'true' -> 1731 _omega 1732 -| ['compiler_generated'] ) 1733 end 1734 ( <_omega> when 'true' -> 1735 _omega 1736 -| ['compiler_generated'] ) 1737 end 1738 ( <_omega> when 'true' -> 1739 _omega 1740 -| ['compiler_generated'] ) 1741 end 1742 in ( call 'erlang':'=:=' 1743 (_3, 'true') 1744 -| ['compiler_generated'] ) 1745 in _4 1746 of <Try> -> 1747 Try 1748 catch <T,R> -> 1749 'false' -> 1750 'not_loop' 1751 <'false'> when 'true' -> 1752 'loop' 1753 ( <_omega> when 'true' -> 1754 primop 'match_fail' 1755 ({'case_clause',_omega}) 1756 -| ['compiler_generated'] ) 1757 end 1758'before_and_inside_if'/1 = 1759 %% Line 443 1760 fun (_0) -> 1761 case <_0> of 1762 <_config> 1763 when try 1764 let <_1> = 1765 call 'erlang':'is_list' 1766 (_config) 1767 in _1 1768 of <Try> -> 1769 Try 1770 catch <T,R> -> 1771 'false' -> 1772 do call 'erlang':'put' 1773 ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['no']]|[['before-and-inside-if'|[['quote'|[['a']]]|[['quote'|[['b']]]|[['quote'|['delete']]]]]]]]]}) 1774 let <_val> = 1775 <apply 'before-and-inside-if'/3 1776 (['a'], ['b'], 'delete')> 1777 in case <_val> of 1778 <'no'> when 'true' -> 1779 _val 1780 ( <_2> when 'true' -> 1781 primop 'match_fail' 1782 ({'badmatch',{_2}}) 1783 -| ['compiler_generated'] ) 1784 end 1785 ( <_18> when 'true' -> 1786 ( primop 'match_fail' 1787 ({'function_clause',_18}) 1788 -| [{'function_name',{'before_and_inside_if',1}}] ) 1789 -| ['compiler_generated'] ) 1790 end 1791'before-and-inside-if'/3 = 1792 %% Line 468 1793 fun (XDo1,XDo2,Do3) -> 1794 let <Do1> = 1795 <call 'erlang':'=/=' 1796 (XDo1, [])> 1797 in let <Do2> = 1798 <call 'erlang':'=/=' 1799 (XDo2, [])> 1800 in case 1 of 1801 <_0> 1802 when try 1803 let <_7> = 1804 let <_5> = 1805 call 'erlang':'=:=' 1806 (Do1, 'true') 1807 in let <_6> = 1808 let <_3> = 1809 let <_1> = 1810 call 'erlang':'=:=' 1811 (Do1, 'false') 1812 in let <_2> = 1813 call 'erlang':'=:=' 1814 (Do2, 'false') 1815 in call 'erlang':'and' 1816 (_1, _2) 1817 in let <_4> = 1818 call 'erlang':'=:=' 1819 (Do3, 'delete') 1820 in call 'erlang':'and' 1821 (_3, _4) 1822 in call 'erlang':'or' 1823 (_5, _6) 1824 in _7 1825 of <Try> -> 1826 Try 1827 catch <T,R> -> 1828 'false' -> 1829 'no' 1830 <_8> 1831 when try 1832 'true' 1833 of <Try> -> 1834 Try 1835 catch <T,R> -> 1836 'false' -> 1837 'yes' 1838 ( <_omega> when 'true' -> 1839 primop 'match_fail' 1840 ({'case_clause',_omega}) 1841 -| ['compiler_generated'] ) 1842 end 1843'before-and-inside-if-2'/3 = 1844 %% Line 484 1845 fun (XDo1,XDo2,Do3) -> 1846 let <Do1> = 1847 <call 'erlang':'=/=' 1848 (XDo1, [])> 1849 in let <Do2> = 1850 <call 'erlang':'=/=' 1851 (XDo2, [])> 1852 in let <CH1> = 1853 <case 1 of 1854 <_0> 1855 when try 1856 let <_7> = 1857 let <_5> = 1858 call 'erlang':'==' 1859 (Do1, 'true') 1860 in let <_6> = 1861 let <_3> = 1862 let <_1> = 1863 call 'erlang':'==' 1864 (Do1, 'false') 1865 in let <_2> = 1866 call 'erlang':'==' 1867 (Do2, 'false') 1868 in call 'erlang':'and' 1869 (_1, _2) 1870 in let <_4> = 1871 call 'erlang':'==' 1872 (Do3, 'blah') 1873 in call 'erlang':'and' 1874 (_3, _4) 1875 in call 'erlang':'or' 1876 (_5, _6) 1877 in _7 1878 of <Try> -> 1879 Try 1880 catch <T,R> -> 1881 'false' -> 1882 'ch1' 1883 <_8> 1884 when try 1885 'true' 1886 of <Try> -> 1887 Try 1888 catch <T,R> -> 1889 'false' -> 1890 'no' 1891 ( <_omega> when 'true' -> 1892 primop 'match_fail' 1893 ({'case_clause',_omega}) 1894 -| ['compiler_generated'] ) 1895 end> 1896 in let <CH2> = 1897 <case 1 of 1898 <_9> 1899 when try 1900 let <_16> = 1901 let <_14> = 1902 call 'erlang':'==' 1903 (Do1, 'true') 1904 in let <_15> = 1905 let <_12> = 1906 let <_10> = 1907 call 'erlang':'==' 1908 (Do1, 'false') 1909 in let <_11> = 1910 call 'erlang':'==' 1911 (Do2, 'false') 1912 in call 'erlang':'and' 1913 (_10, _11) 1914 in let <_13> = 1915 call 'erlang':'==' 1916 (Do3, 'xx') 1917 in call 'erlang':'and' 1918 (_12, _13) 1919 in call 'erlang':'or' 1920 (_14, _15) 1921 in _16 1922 of <Try> -> 1923 Try 1924 catch <T,R> -> 1925 'false' -> 1926 'ch2' 1927 <_17> 1928 when try 1929 'true' 1930 of <Try> -> 1931 Try 1932 catch <T,R> -> 1933 'false' -> 1934 'no' 1935 ( <_omega> when 'true' -> 1936 primop 'match_fail' 1937 ({'case_clause',_omega}) 1938 -| ['compiler_generated'] ) 1939 end> 1940 in {CH1,CH2} 1941'check'/2 = 1942 %% Line 501 1943 fun (_v1,_v0) -> 1944 case 1 of 1945 <_0> 1946 when try 1947 let <_1> = 1948 call 'erlang':'/=' 1949 (_v1, _v0) 1950 in _1 1951 of <Try> -> 1952 Try 1953 catch <T,R> -> 1954 'false' -> 1955 do call 'io':'fwrite' 1956 ([101|[114|[114|[111|[114|[58|[32|[126|[119|[46|[10]]]]]]]]]]], [_v1]) 1957 call 'erlang':'exit' 1958 ('suite_failed') 1959 <_2> 1960 when try 1961 'true' 1962 of <Try> -> 1963 Try 1964 catch <T,R> -> 1965 'false' -> 1966 call 'io':'fwrite' 1967 ([111|[107|[58|[32|[126|[119|[46|[10]]]]]]]], [_v1]) 1968 ( <_omega> when 'true' -> 1969 primop 'match_fail' 1970 ({'case_clause',_omega}) 1971 -| ['compiler_generated'] ) 1972 end 1973'echo'/1 = 1974 %% Line 506 1975 fun (_x) -> 1976 do call 'io':'fwrite' 1977 ([40|[101|[118|[97|[108|[32|[126|[119|[41|[59|[32]]]]]]]]]]], [_x]) 1978 _x 1979'id'/1 = 1980 %% Line 511 1981 fun (_i) -> 1982 _i 1983'$handle_undefined_function'/2 = 1984 %% Line 29 1985 fun (_f,_as) -> 1986 case let <_0> = 1987 call 'lfe_env':'new' 1988 () 1989 in apply 'LFE-EXPAND-EXPORTED-MACRO'/3 1990 (_f, _as, _0) of 1991 <{'yes',_exp}> when 'true' -> 1992 call 'lfe_eval':'expr' 1993 (_exp) 1994 <'no'> when 'true' -> 1995 let <_a,_b> = 1996 <_f,_as> 1997 in call 'error_handler':'raise_undef_exception' 1998 ('lfe_andor_SUITE', _a, _b) 1999 ( <_omega> when 'true' -> 2000 primop 'match_fail' 2001 ({'case_clause',_omega}) 2002 -| ['compiler_generated'] ) 2003 end 2004'LFE-EXPAND-EXPORTED-MACRO'/3 = 2005 %% Line 29 2006 fun (_2,_1,_0) -> 2007 'no' 2008'module_info'/0 = 2009 fun () -> 2010 call 'erlang':'get_module_info' 2011 ('lfe_andor_SUITE') 2012'module_info'/1 = 2013 fun (_x) -> 2014 call 'erlang':'get_module_info' 2015 ('lfe_andor_SUITE', _x) 2016end 2017