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