Commit f272cc3ac97f0dfb4d092659ba3c789a4d13af6d
1 parent
c5269dde
*** empty log message ***
Showing
6 changed files
with
318 additions
and
310 deletions
Show diff stats
anubis_dev/compiler/src/predef.aux
| @@ -7,7 +7,7 @@ nil), | @@ -7,7 +7,7 @@ nil), | ||
| 7 | nil), | 7 | nil), |
| 8 | nil),0,1); | 8 | nil),0,1); |
| 9 | 9 | ||
| 10 | -new_op_scheme(16885788,1, | 10 | +new_op_scheme(16885276,1, |
| 11 | new_string("One"), | 11 | new_string("One"), |
| 12 | cons(new_string("forget"), | 12 | cons(new_string("forget"), |
| 13 | nil), | 13 | nil), |
| @@ -147,35 +147,35 @@ new_string("alpha")), | @@ -147,35 +147,35 @@ new_string("alpha")), | ||
| 147 | nil))))), | 147 | nil))))), |
| 148 | nil),0,1); | 148 | nil),0,1); |
| 149 | 149 | ||
| 150 | -new_op_scheme(16973340,1, | 150 | +new_op_scheme(16972828,1, |
| 151 | type_Int32, | 151 | type_Int32, |
| 152 | cons(new_string("major_version_number"), | 152 | cons(new_string("major_version_number"), |
| 153 | nil), | 153 | nil), |
| 154 | nil, | 154 | nil, |
| 155 | no_term); | 155 | no_term); |
| 156 | 156 | ||
| 157 | -new_op_scheme(16973852,1, | 157 | +new_op_scheme(16973340,1, |
| 158 | type_Int32, | 158 | type_Int32, |
| 159 | cons(new_string("minor_version_number"), | 159 | cons(new_string("minor_version_number"), |
| 160 | nil), | 160 | nil), |
| 161 | nil, | 161 | nil, |
| 162 | no_term); | 162 | no_term); |
| 163 | 163 | ||
| 164 | -new_op_scheme(16978972,1, | 164 | +new_op_scheme(16978460,1, |
| 165 | type_String, | 165 | type_String, |
| 166 | cons(new_string("anubis_directory"), | 166 | cons(new_string("anubis_directory"), |
| 167 | nil), | 167 | nil), |
| 168 | nil, | 168 | nil, |
| 169 | no_term); | 169 | no_term); |
| 170 | 170 | ||
| 171 | -new_op_scheme(16979484,1, | 171 | +new_op_scheme(16978972,1, |
| 172 | type_String, | 172 | type_String, |
| 173 | cons(new_string("my_anubis_directory"), | 173 | cons(new_string("my_anubis_directory"), |
| 174 | nil), | 174 | nil), |
| 175 | nil, | 175 | nil, |
| 176 | no_term); | 176 | no_term); |
| 177 | 177 | ||
| 178 | -new_op_scheme(16991260,1, | 178 | +new_op_scheme(16990748,1, |
| 179 | cons(app_ts, | 179 | cons(app_ts, |
| 180 | cons(new_string("Maybe"), | 180 | cons(new_string("Maybe"), |
| 181 | cons(type_String, | 181 | cons(type_String, |
| @@ -187,7 +187,7 @@ new_string("name")), | @@ -187,7 +187,7 @@ new_string("name")), | ||
| 187 | nil), | 187 | nil), |
| 188 | no_term); | 188 | no_term); |
| 189 | 189 | ||
| 190 | -new_op_scheme(16991772,1, | 190 | +new_op_scheme(16991260,1, |
| 191 | cons(app_ts, | 191 | cons(app_ts, |
| 192 | cons(new_string("Maybe"), | 192 | cons(new_string("Maybe"), |
| 193 | cons(new_string("One"), | 193 | cons(new_string("One"), |
| @@ -201,7 +201,7 @@ new_string("value")), | @@ -201,7 +201,7 @@ new_string("value")), | ||
| 201 | nil)), | 201 | nil)), |
| 202 | no_term); | 202 | no_term); |
| 203 | 203 | ||
| 204 | -new_op_scheme(17002524,1, | 204 | +new_op_scheme(17002012,1, |
| 205 | new_utvar("T"), | 205 | new_utvar("T"), |
| 206 | cons(new_string("£alert_handler"), | 206 | cons(new_string("£alert_handler"), |
| 207 | nil), | 207 | nil), |
| @@ -214,7 +214,7 @@ new_string("column")), | @@ -214,7 +214,7 @@ new_string("column")), | ||
| 214 | nil))), | 214 | nil))), |
| 215 | no_term); | 215 | no_term); |
| 216 | 216 | ||
| 217 | -new_op_scheme(17017372,1, | 217 | +new_op_scheme(17016860,1, |
| 218 | type_Int32, | 218 | type_Int32, |
| 219 | cons(new_string("virtual_machine_id"), | 219 | cons(new_string("virtual_machine_id"), |
| 220 | nil), | 220 | nil), |
| @@ -314,14 +314,14 @@ new_string("machines_info")), | @@ -314,14 +314,14 @@ new_string("machines_info")), | ||
| 314 | nil))), | 314 | nil))), |
| 315 | nil),0,1); | 315 | nil),0,1); |
| 316 | 316 | ||
| 317 | -new_op_scheme(17044494,0, | 317 | +new_op_scheme(17043982,0, |
| 318 | type_Int32, | 318 | type_Int32, |
| 319 | cons(new_string("£max_machine"), | 319 | cons(new_string("£max_machine"), |
| 320 | nil), | 320 | nil), |
| 321 | nil, | 321 | nil, |
| 322 | no_term); | 322 | no_term); |
| 323 | 323 | ||
| 324 | -new_op_scheme(17045518,0, | 324 | +new_op_scheme(17045006,0, |
| 325 | cons(app_ts, | 325 | cons(app_ts, |
| 326 | cons(new_string("Maybe"), | 326 | cons(new_string("Maybe"), |
| 327 | cons(new_string("VirtualMachineInfo"), | 327 | cons(new_string("VirtualMachineInfo"), |
| @@ -333,7 +333,7 @@ new_string("mid")), | @@ -333,7 +333,7 @@ new_string("mid")), | ||
| 333 | nil), | 333 | nil), |
| 334 | no_term); | 334 | no_term); |
| 335 | 335 | ||
| 336 | -new_op_scheme(17048604,1, | 336 | +new_op_scheme(17048092,1, |
| 337 | new_string("Bool"), | 337 | new_string("Bool"), |
| 338 | cons(new_string("=<"), | 338 | cons(new_string("=<"), |
| 339 | nil), | 339 | nil), |
| @@ -344,7 +344,7 @@ new_string("y")), | @@ -344,7 +344,7 @@ new_string("y")), | ||
| 344 | nil)), | 344 | nil)), |
| 345 | no_term); | 345 | no_term); |
| 346 | 346 | ||
| 347 | -new_op_scheme(17049116,1, | 347 | +new_op_scheme(17048604,1, |
| 348 | type_Int32, | 348 | type_Int32, |
| 349 | cons(new_string("-"), | 349 | cons(new_string("-"), |
| 350 | nil), | 350 | nil), |
| @@ -355,7 +355,7 @@ new_string("y")), | @@ -355,7 +355,7 @@ new_string("y")), | ||
| 355 | nil)), | 355 | nil)), |
| 356 | no_term); | 356 | no_term); |
| 357 | 357 | ||
| 358 | -new_op_scheme(17050126,0, | 358 | +new_op_scheme(17049614,0, |
| 359 | cons(app_ts, | 359 | cons(app_ts, |
| 360 | cons(new_string("List"), | 360 | cons(new_string("List"), |
| 361 | cons(new_string("VirtualMachineInfo"), | 361 | cons(new_string("VirtualMachineInfo"), |
| @@ -367,21 +367,21 @@ new_string("n")), | @@ -367,21 +367,21 @@ new_string("n")), | ||
| 367 | nil), | 367 | nil), |
| 368 | no_term); | 368 | no_term); |
| 369 | 369 | ||
| 370 | -new_op_scheme(17057308,1, | 370 | +new_op_scheme(17056796,1, |
| 371 | new_string("SystemInfo"), | 371 | new_string("SystemInfo"), |
| 372 | cons(new_string("system_info"), | 372 | cons(new_string("system_info"), |
| 373 | nil), | 373 | nil), |
| 374 | nil, | 374 | nil, |
| 375 | no_term); | 375 | no_term); |
| 376 | 376 | ||
| 377 | -new_op_scheme(17061404,1, | 377 | +new_op_scheme(17060892,1, |
| 378 | new_string("VirtualMachineInfo"), | 378 | new_string("VirtualMachineInfo"), |
| 379 | cons(new_string("virtual_machine_info"), | 379 | cons(new_string("virtual_machine_info"), |
| 380 | nil), | 380 | nil), |
| 381 | nil, | 381 | nil, |
| 382 | no_term); | 382 | no_term); |
| 383 | 383 | ||
| 384 | -new_op_scheme(17071644,1, | 384 | +new_op_scheme(17071132,1, |
| 385 | new_string("One"), | 385 | new_string("One"), |
| 386 | cons(new_string("wait_for_event"), | 386 | cons(new_string("wait_for_event"), |
| 387 | nil), | 387 | nil), |
| @@ -412,14 +412,14 @@ new_string("number_of_allocated_segments")), | @@ -412,14 +412,14 @@ new_string("number_of_allocated_segments")), | ||
| 412 | nil))))))))), | 412 | nil))))))))), |
| 413 | nil),0,1); | 413 | nil),0,1); |
| 414 | 414 | ||
| 415 | -new_op_scheme(17096220,1, | 415 | +new_op_scheme(17095708,1, |
| 416 | new_string("AllocatorInfo"), | 416 | new_string("AllocatorInfo"), |
| 417 | cons(new_string("allocator_info"), | 417 | cons(new_string("allocator_info"), |
| 418 | nil), | 418 | nil), |
| 419 | nil, | 419 | nil, |
| 420 | no_term); | 420 | no_term); |
| 421 | 421 | ||
| 422 | -new_op_scheme(17103388,1, | 422 | +new_op_scheme(17102876,1, |
| 423 | new_string("One"), | 423 | new_string("One"), |
| 424 | cons(new_string("restart"), | 424 | cons(new_string("restart"), |
| 425 | nil), | 425 | nil), |
| @@ -428,14 +428,14 @@ new_string("b")), | @@ -428,14 +428,14 @@ new_string("b")), | ||
| 428 | nil), | 428 | nil), |
| 429 | no_term); | 429 | no_term); |
| 430 | 430 | ||
| 431 | -new_op_scheme(17107484,1, | 431 | +new_op_scheme(17106972,1, |
| 432 | new_string("Bool"), | 432 | new_string("Bool"), |
| 433 | cons(new_string("will_restart"), | 433 | cons(new_string("will_restart"), |
| 434 | nil), | 434 | nil), |
| 435 | nil, | 435 | nil, |
| 436 | no_term); | 436 | no_term); |
| 437 | 437 | ||
| 438 | -new_op_scheme(17112604,1, | 438 | +new_op_scheme(17112092,1, |
| 439 | new_string("Bool"), | 439 | new_string("Bool"), |
| 440 | cons(new_string("print_string"), | 440 | cons(new_string("print_string"), |
| 441 | nil), | 441 | nil), |
| @@ -444,7 +444,7 @@ new_string("x")), | @@ -444,7 +444,7 @@ new_string("x")), | ||
| 444 | nil), | 444 | nil), |
| 445 | no_term); | 445 | no_term); |
| 446 | 446 | ||
| 447 | -new_op_scheme(17114652,1, | 447 | +new_op_scheme(17114140,1, |
| 448 | new_string("Bool"), | 448 | new_string("Bool"), |
| 449 | cons(new_string("string_less"), | 449 | cons(new_string("string_less"), |
| 450 | nil), | 450 | nil), |
| @@ -455,7 +455,7 @@ new_string("y")), | @@ -455,7 +455,7 @@ new_string("y")), | ||
| 455 | nil)), | 455 | nil)), |
| 456 | no_term); | 456 | no_term); |
| 457 | 457 | ||
| 458 | -new_op_scheme(17118236,1, | 458 | +new_op_scheme(17117724,1, |
| 459 | type_Int32, | 459 | type_Int32, |
| 460 | cons(new_string("length"), | 460 | cons(new_string("length"), |
| 461 | nil), | 461 | nil), |
| @@ -464,7 +464,7 @@ new_string("s")), | @@ -464,7 +464,7 @@ new_string("s")), | ||
| 464 | nil), | 464 | nil), |
| 465 | no_term); | 465 | no_term); |
| 466 | 466 | ||
| 467 | -new_op_scheme(17120284,1, | 467 | +new_op_scheme(17119772,1, |
| 468 | cons(app_ts, | 468 | cons(app_ts, |
| 469 | cons(new_string("Maybe"), | 469 | cons(new_string("Maybe"), |
| 470 | cons(new_string("Int8"), | 470 | cons(new_string("Int8"), |
| @@ -478,7 +478,7 @@ new_string("s")), | @@ -478,7 +478,7 @@ new_string("s")), | ||
| 478 | nil)), | 478 | nil)), |
| 479 | no_term); | 479 | no_term); |
| 480 | 480 | ||
| 481 | -new_op_scheme(17136668,1, | 481 | +new_op_scheme(17136156,1, |
| 482 | cons(app_ts, | 482 | cons(app_ts, |
| 483 | cons(new_string("Maybe"), | 483 | cons(new_string("Maybe"), |
| 484 | cons(type_Int32, | 484 | cons(type_Int32, |
| @@ -490,7 +490,7 @@ new_string("s")), | @@ -490,7 +490,7 @@ new_string("s")), | ||
| 490 | nil), | 490 | nil), |
| 491 | no_term); | 491 | no_term); |
| 492 | 492 | ||
| 493 | -new_op_scheme(17137180,1, | 493 | +new_op_scheme(17136668,1, |
| 494 | cons(app_ts, | 494 | cons(app_ts, |
| 495 | cons(new_string("Maybe"), | 495 | cons(new_string("Maybe"), |
| 496 | cons(type_Float, | 496 | cons(type_Float, |
| @@ -502,7 +502,7 @@ new_string("s")), | @@ -502,7 +502,7 @@ new_string("s")), | ||
| 502 | nil), | 502 | nil), |
| 503 | no_term); | 503 | no_term); |
| 504 | 504 | ||
| 505 | -new_op_scheme(17140764,1, | 505 | +new_op_scheme(17140252,1, |
| 506 | cons(app_ts, | 506 | cons(app_ts, |
| 507 | cons(new_string("Maybe"), | 507 | cons(new_string("Maybe"), |
| 508 | cons(type_String, | 508 | cons(type_String, |
| @@ -518,7 +518,7 @@ new_string("length")), | @@ -518,7 +518,7 @@ new_string("length")), | ||
| 518 | nil))), | 518 | nil))), |
| 519 | no_term); | 519 | no_term); |
| 520 | 520 | ||
| 521 | -new_op_scheme(17144348,1, | 521 | +new_op_scheme(17143836,1, |
| 522 | type_String, | 522 | type_String, |
| 523 | cons(new_string("+"), | 523 | cons(new_string("+"), |
| 524 | nil), | 524 | nil), |
| @@ -529,7 +529,7 @@ new_string("y")), | @@ -529,7 +529,7 @@ new_string("y")), | ||
| 529 | nil)), | 529 | nil)), |
| 530 | no_term); | 530 | no_term); |
| 531 | 531 | ||
| 532 | -new_op_scheme(17146396,1, | 532 | +new_op_scheme(17145884,1, |
| 533 | type_String, | 533 | type_String, |
| 534 | cons(new_string("implode"), | 534 | cons(new_string("implode"), |
| 535 | nil), | 535 | nil), |
| @@ -541,7 +541,7 @@ new_string("l")), | @@ -541,7 +541,7 @@ new_string("l")), | ||
| 541 | nil), | 541 | nil), |
| 542 | no_term); | 542 | no_term); |
| 543 | 543 | ||
| 544 | -new_op_scheme(17146908,1, | 544 | +new_op_scheme(17146396,1, |
| 545 | cons(app_ts, | 545 | cons(app_ts, |
| 546 | cons(new_string("List"), | 546 | cons(new_string("List"), |
| 547 | cons(new_string("Int8"), | 547 | cons(new_string("Int8"), |
| @@ -553,7 +553,7 @@ new_string("s")), | @@ -553,7 +553,7 @@ new_string("s")), | ||
| 553 | nil), | 553 | nil), |
| 554 | no_term); | 554 | no_term); |
| 555 | 555 | ||
| 556 | -new_op_scheme(17156636,1, | 556 | +new_op_scheme(17156124,1, |
| 557 | type_Int32, | 557 | type_Int32, |
| 558 | cons(new_string("length"), | 558 | cons(new_string("length"), |
| 559 | nil), | 559 | nil), |
| @@ -562,7 +562,7 @@ new_string("s")), | @@ -562,7 +562,7 @@ new_string("s")), | ||
| 562 | nil), | 562 | nil), |
| 563 | no_term); | 563 | no_term); |
| 564 | 564 | ||
| 565 | -new_op_scheme(17157148,1, | 565 | +new_op_scheme(17156636,1, |
| 566 | cons(app_ts, | 566 | cons(app_ts, |
| 567 | cons(new_string("Maybe"), | 567 | cons(new_string("Maybe"), |
| 568 | cons(new_string("Int8"), | 568 | cons(new_string("Int8"), |
| @@ -576,7 +576,7 @@ new_string("s")), | @@ -576,7 +576,7 @@ new_string("s")), | ||
| 576 | nil)), | 576 | nil)), |
| 577 | no_term); | 577 | no_term); |
| 578 | 578 | ||
| 579 | -new_op_scheme(17159196,1, | 579 | +new_op_scheme(17158684,1, |
| 580 | new_string("Int8"), | 580 | new_string("Int8"), |
| 581 | cons(new_string("force_nth"), | 581 | cons(new_string("force_nth"), |
| 582 | nil), | 582 | nil), |
| @@ -587,7 +587,7 @@ new_string("b")), | @@ -587,7 +587,7 @@ new_string("b")), | ||
| 587 | nil)), | 587 | nil)), |
| 588 | no_term); | 588 | no_term); |
| 589 | 589 | ||
| 590 | -new_op_scheme(17165852,1, | 590 | +new_op_scheme(17165340,1, |
| 591 | cons(app_ts, | 591 | cons(app_ts, |
| 592 | cons(new_string("Maybe"), | 592 | cons(new_string("Maybe"), |
| 593 | cons(new_string("One"), | 593 | cons(new_string("One"), |
| @@ -603,7 +603,7 @@ new_string("c")), | @@ -603,7 +603,7 @@ new_string("c")), | ||
| 603 | nil))), | 603 | nil))), |
| 604 | no_term); | 604 | no_term); |
| 605 | 605 | ||
| 606 | -new_op_scheme(17171484,1, | 606 | +new_op_scheme(17170972,1, |
| 607 | type_ByteArray, | 607 | type_ByteArray, |
| 608 | cons(new_string("constant_byte_array"), | 608 | cons(new_string("constant_byte_array"), |
| 609 | nil), | 609 | nil), |
| @@ -614,7 +614,7 @@ new_string("c")), | @@ -614,7 +614,7 @@ new_string("c")), | ||
| 614 | nil)), | 614 | nil)), |
| 615 | no_term); | 615 | no_term); |
| 616 | 616 | ||
| 617 | -new_op_scheme(17173020,1, | 617 | +new_op_scheme(17172508,1, |
| 618 | new_string("One"), | 618 | new_string("One"), |
| 619 | cons(new_string("truncate"), | 619 | cons(new_string("truncate"), |
| 620 | nil), | 620 | nil), |
| @@ -625,7 +625,7 @@ new_string("size")), | @@ -625,7 +625,7 @@ new_string("size")), | ||
| 625 | nil)), | 625 | nil)), |
| 626 | no_term); | 626 | no_term); |
| 627 | 627 | ||
| 628 | -new_op_scheme(17176604,1, | 628 | +new_op_scheme(17176092,1, |
| 629 | type_ByteArray, | 629 | type_ByteArray, |
| 630 | cons(new_string("extract"), | 630 | cons(new_string("extract"), |
| 631 | nil), | 631 | nil), |
| @@ -638,7 +638,7 @@ new_string("end")), | @@ -638,7 +638,7 @@ new_string("end")), | ||
| 638 | nil))), | 638 | nil))), |
| 639 | no_term); | 639 | no_term); |
| 640 | 640 | ||
| 641 | -new_op_scheme(17181724,1, | 641 | +new_op_scheme(17181212,1, |
| 642 | type_ByteArray, | 642 | type_ByteArray, |
| 643 | cons(new_string("+"), | 643 | cons(new_string("+"), |
| 644 | nil), | 644 | nil), |
| @@ -649,7 +649,7 @@ new_string("t")), | @@ -649,7 +649,7 @@ new_string("t")), | ||
| 649 | nil)), | 649 | nil)), |
| 650 | no_term); | 650 | no_term); |
| 651 | 651 | ||
| 652 | -new_op_scheme(17184284,1, | 652 | +new_op_scheme(17183772,1, |
| 653 | type_ByteArray, | 653 | type_ByteArray, |
| 654 | cons(new_string("enlarge"), | 654 | cons(new_string("enlarge"), |
| 655 | nil), | 655 | nil), |
| @@ -662,7 +662,7 @@ new_string("c")), | @@ -662,7 +662,7 @@ new_string("c")), | ||
| 662 | nil))), | 662 | nil))), |
| 663 | no_term); | 663 | no_term); |
| 664 | 664 | ||
| 665 | -new_op_scheme(17196572,1, | 665 | +new_op_scheme(17196060,1, |
| 666 | type_String, | 666 | type_String, |
| 667 | cons(new_string("to_ascii"), | 667 | cons(new_string("to_ascii"), |
| 668 | nil), | 668 | nil), |
| @@ -671,7 +671,7 @@ new_string("s")), | @@ -671,7 +671,7 @@ new_string("s")), | ||
| 671 | nil), | 671 | nil), |
| 672 | no_term); | 672 | no_term); |
| 673 | 673 | ||
| 674 | -new_op_scheme(17197084,1, | 674 | +new_op_scheme(17196572,1, |
| 675 | type_String, | 675 | type_String, |
| 676 | cons(new_string("to_string"), | 676 | cons(new_string("to_string"), |
| 677 | nil), | 677 | nil), |
| @@ -680,7 +680,7 @@ new_string("s")), | @@ -680,7 +680,7 @@ new_string("s")), | ||
| 680 | nil), | 680 | nil), |
| 681 | no_term); | 681 | no_term); |
| 682 | 682 | ||
| 683 | -new_op_scheme(17199132,1, | 683 | +new_op_scheme(17198620,1, |
| 684 | type_ByteArray, | 684 | type_ByteArray, |
| 685 | cons(new_string("to_byte_array"), | 685 | cons(new_string("to_byte_array"), |
| 686 | nil), | 686 | nil), |
| @@ -689,7 +689,7 @@ new_string("s")), | @@ -689,7 +689,7 @@ new_string("s")), | ||
| 689 | nil), | 689 | nil), |
| 690 | no_term); | 690 | no_term); |
| 691 | 691 | ||
| 692 | -new_op_scheme(17206812,1, | 692 | +new_op_scheme(17206300,1, |
| 693 | new_string("Bool"), | 693 | new_string("Bool"), |
| 694 | cons(new_string("print_int32"), | 694 | cons(new_string("print_int32"), |
| 695 | nil), | 695 | nil), |
| @@ -698,7 +698,7 @@ new_string("n")), | @@ -698,7 +698,7 @@ new_string("n")), | ||
| 698 | nil), | 698 | nil), |
| 699 | no_term); | 699 | no_term); |
| 700 | 700 | ||
| 701 | -new_op_scheme(17208860,1, | 701 | +new_op_scheme(17208348,1, |
| 702 | type_Int32, | 702 | type_Int32, |
| 703 | cons(new_string("int8_to_int32"), | 703 | cons(new_string("int8_to_int32"), |
| 704 | nil), | 704 | nil), |
| @@ -707,7 +707,7 @@ new_string("x")), | @@ -707,7 +707,7 @@ new_string("x")), | ||
| 707 | nil), | 707 | nil), |
| 708 | no_term); | 708 | no_term); |
| 709 | 709 | ||
| 710 | -new_op_scheme(17210908,1, | 710 | +new_op_scheme(17210396,1, |
| 711 | new_string("Int8"), | 711 | new_string("Int8"), |
| 712 | cons(new_string("truncate_to_int8"), | 712 | cons(new_string("truncate_to_int8"), |
| 713 | nil), | 713 | nil), |
| @@ -716,7 +716,7 @@ new_string("n")), | @@ -716,7 +716,7 @@ new_string("n")), | ||
| 716 | nil), | 716 | nil), |
| 717 | no_term); | 717 | no_term); |
| 718 | 718 | ||
| 719 | -new_op_scheme(17212956,1, | 719 | +new_op_scheme(17212444,1, |
| 720 | type_Int32, | 720 | type_Int32, |
| 721 | cons(new_string("-"), | 721 | cons(new_string("-"), |
| 722 | nil), | 722 | nil), |
| @@ -725,7 +725,7 @@ new_string("n")), | @@ -725,7 +725,7 @@ new_string("n")), | ||
| 725 | nil), | 725 | nil), |
| 726 | no_term); | 726 | no_term); |
| 727 | 727 | ||
| 728 | -new_op_scheme(17213468,1, | 728 | +new_op_scheme(17212956,1, |
| 729 | type_Int32, | 729 | type_Int32, |
| 730 | cons(new_string("+"), | 730 | cons(new_string("+"), |
| 731 | nil), | 731 | nil), |
| @@ -736,7 +736,7 @@ new_string("y")), | @@ -736,7 +736,7 @@ new_string("y")), | ||
| 736 | nil)), | 736 | nil)), |
| 737 | no_term); | 737 | no_term); |
| 738 | 738 | ||
| 739 | -new_op_scheme(17213980,1, | 739 | +new_op_scheme(17213468,1, |
| 740 | type_Int32, | 740 | type_Int32, |
| 741 | cons(new_string("-"), | 741 | cons(new_string("-"), |
| 742 | nil), | 742 | nil), |
| @@ -747,7 +747,7 @@ new_string("y")), | @@ -747,7 +747,7 @@ new_string("y")), | ||
| 747 | nil)), | 747 | nil)), |
| 748 | no_term); | 748 | no_term); |
| 749 | 749 | ||
| 750 | -new_op_scheme(17214492,1, | 750 | +new_op_scheme(17213980,1, |
| 751 | type_Int32, | 751 | type_Int32, |
| 752 | cons(new_string("*"), | 752 | cons(new_string("*"), |
| 753 | nil), | 753 | nil), |
| @@ -758,7 +758,7 @@ new_string("y")), | @@ -758,7 +758,7 @@ new_string("y")), | ||
| 758 | nil)), | 758 | nil)), |
| 759 | no_term); | 759 | no_term); |
| 760 | 760 | ||
| 761 | -new_op_scheme(17215004,1, | 761 | +new_op_scheme(17214492,1, |
| 762 | cons(app_ts, | 762 | cons(app_ts, |
| 763 | cons(new_string("Maybe"), | 763 | cons(new_string("Maybe"), |
| 764 | cons(type_Int32, | 764 | cons(type_Int32, |
| @@ -772,7 +772,7 @@ new_string("y")), | @@ -772,7 +772,7 @@ new_string("y")), | ||
| 772 | nil)), | 772 | nil)), |
| 773 | no_term); | 773 | no_term); |
| 774 | 774 | ||
| 775 | -new_op_scheme(17230364,1, | 775 | +new_op_scheme(17229852,1, |
| 776 | type_Int32, | 776 | type_Int32, |
| 777 | cons(new_string("mod"), | 777 | cons(new_string("mod"), |
| 778 | nil), | 778 | nil), |
| @@ -783,7 +783,7 @@ new_string("y")), | @@ -783,7 +783,7 @@ new_string("y")), | ||
| 783 | nil)), | 783 | nil)), |
| 784 | no_term); | 784 | no_term); |
| 785 | 785 | ||
| 786 | -new_op_scheme(17232412,1, | 786 | +new_op_scheme(17231900,1, |
| 787 | new_string("Bool"), | 787 | new_string("Bool"), |
| 788 | cons(new_string("<"), | 788 | cons(new_string("<"), |
| 789 | nil), | 789 | nil), |
| @@ -794,7 +794,7 @@ new_string("y")), | @@ -794,7 +794,7 @@ new_string("y")), | ||
| 794 | nil)), | 794 | nil)), |
| 795 | no_term); | 795 | no_term); |
| 796 | 796 | ||
| 797 | -new_op_scheme(17232924,1, | 797 | +new_op_scheme(17232412,1, |
| 798 | new_string("Bool"), | 798 | new_string("Bool"), |
| 799 | cons(new_string("=<"), | 799 | cons(new_string("=<"), |
| 800 | nil), | 800 | nil), |
| @@ -805,7 +805,7 @@ new_string("y")), | @@ -805,7 +805,7 @@ new_string("y")), | ||
| 805 | nil)), | 805 | nil)), |
| 806 | no_term); | 806 | no_term); |
| 807 | 807 | ||
| 808 | -new_op_scheme(17235996,1, | 808 | +new_op_scheme(17235484,1, |
| 809 | type_Int32, | 809 | type_Int32, |
| 810 | cons(new_string("&"), | 810 | cons(new_string("&"), |
| 811 | nil), | 811 | nil), |
| @@ -816,7 +816,7 @@ new_string("y")), | @@ -816,7 +816,7 @@ new_string("y")), | ||
| 816 | nil)), | 816 | nil)), |
| 817 | no_term); | 817 | no_term); |
| 818 | 818 | ||
| 819 | -new_op_scheme(17236508,1, | 819 | +new_op_scheme(17235996,1, |
| 820 | type_Int32, | 820 | type_Int32, |
| 821 | cons(new_string("|"), | 821 | cons(new_string("|"), |
| 822 | nil), | 822 | nil), |
| @@ -827,7 +827,7 @@ new_string("y")), | @@ -827,7 +827,7 @@ new_string("y")), | ||
| 827 | nil)), | 827 | nil)), |
| 828 | no_term); | 828 | no_term); |
| 829 | 829 | ||
| 830 | -new_op_scheme(17241116,1, | 830 | +new_op_scheme(17240604,1, |
| 831 | type_Int32, | 831 | type_Int32, |
| 832 | cons(new_string("<<"), | 832 | cons(new_string("<<"), |
| 833 | nil), | 833 | nil), |
| @@ -838,7 +838,7 @@ new_string("y")), | @@ -838,7 +838,7 @@ new_string("y")), | ||
| 838 | nil)), | 838 | nil)), |
| 839 | no_term); | 839 | no_term); |
| 840 | 840 | ||
| 841 | -new_op_scheme(17241628,1, | 841 | +new_op_scheme(17241116,1, |
| 842 | type_Int32, | 842 | type_Int32, |
| 843 | cons(new_string(">>"), | 843 | cons(new_string(">>"), |
| 844 | nil), | 844 | nil), |
| @@ -849,7 +849,7 @@ new_string("y")), | @@ -849,7 +849,7 @@ new_string("y")), | ||
| 849 | nil)), | 849 | nil)), |
| 850 | no_term); | 850 | no_term); |
| 851 | 851 | ||
| 852 | -new_op_scheme(17243676,1, | 852 | +new_op_scheme(17243164,1, |
| 853 | type_String, | 853 | type_String, |
| 854 | cons(new_string("hexadecimal"), | 854 | cons(new_string("hexadecimal"), |
| 855 | nil), | 855 | nil), |
| @@ -860,7 +860,7 @@ new_string("precision")), | @@ -860,7 +860,7 @@ new_string("precision")), | ||
| 860 | nil)), | 860 | nil)), |
| 861 | no_term); | 861 | no_term); |
| 862 | 862 | ||
| 863 | -new_op_scheme(17246236,1, | 863 | +new_op_scheme(17245724,1, |
| 864 | type_String, | 864 | type_String, |
| 865 | cons(new_string("integer_to_string"), | 865 | cons(new_string("integer_to_string"), |
| 866 | nil), | 866 | nil), |
| @@ -869,7 +869,7 @@ new_string("n")), | @@ -869,7 +869,7 @@ new_string("n")), | ||
| 869 | nil), | 869 | nil), |
| 870 | no_term); | 870 | no_term); |
| 871 | 871 | ||
| 872 | -new_op_scheme(17248284,1, | 872 | +new_op_scheme(17247772,1, |
| 873 | type_Float, | 873 | type_Float, |
| 874 | cons(new_string("integer_to_float"), | 874 | cons(new_string("integer_to_float"), |
| 875 | nil), | 875 | nil), |
| @@ -878,7 +878,7 @@ new_string("n")), | @@ -878,7 +878,7 @@ new_string("n")), | ||
| 878 | nil), | 878 | nil), |
| 879 | no_term); | 879 | no_term); |
| 880 | 880 | ||
| 881 | -new_op_scheme(17250332,1, | 881 | +new_op_scheme(17249820,1, |
| 882 | type_String, | 882 | type_String, |
| 883 | cons(new_string("constant_string"), | 883 | cons(new_string("constant_string"), |
| 884 | nil), | 884 | nil), |
| @@ -889,7 +889,7 @@ new_string("c")), | @@ -889,7 +889,7 @@ new_string("c")), | ||
| 889 | nil)), | 889 | nil)), |
| 890 | no_term); | 890 | no_term); |
| 891 | 891 | ||
| 892 | -new_op_scheme(17261084,1, | 892 | +new_op_scheme(17260572,1, |
| 893 | cons(app_ts, | 893 | cons(app_ts, |
| 894 | cons(new_string("Maybe"), | 894 | cons(new_string("Maybe"), |
| 895 | cons(type_Float, | 895 | cons(type_Float, |
| @@ -903,7 +903,7 @@ new_string("y")), | @@ -903,7 +903,7 @@ new_string("y")), | ||
| 903 | nil)), | 903 | nil)), |
| 904 | no_term); | 904 | no_term); |
| 905 | 905 | ||
| 906 | -new_op_scheme(17261596,1, | 906 | +new_op_scheme(17261084,1, |
| 907 | cons(app_ts, | 907 | cons(app_ts, |
| 908 | cons(new_string("Maybe"), | 908 | cons(new_string("Maybe"), |
| 909 | cons(type_Float, | 909 | cons(type_Float, |
| @@ -917,7 +917,7 @@ new_string("y")), | @@ -917,7 +917,7 @@ new_string("y")), | ||
| 917 | nil)), | 917 | nil)), |
| 918 | no_term); | 918 | no_term); |
| 919 | 919 | ||
| 920 | -new_op_scheme(17262108,1, | 920 | +new_op_scheme(17261596,1, |
| 921 | cons(app_ts, | 921 | cons(app_ts, |
| 922 | cons(new_string("Maybe"), | 922 | cons(new_string("Maybe"), |
| 923 | cons(type_Float, | 923 | cons(type_Float, |
| @@ -931,7 +931,7 @@ new_string("y")), | @@ -931,7 +931,7 @@ new_string("y")), | ||
| 931 | nil)), | 931 | nil)), |
| 932 | no_term); | 932 | no_term); |
| 933 | 933 | ||
| 934 | -new_op_scheme(17262620,1, | 934 | +new_op_scheme(17262108,1, |
| 935 | cons(app_ts, | 935 | cons(app_ts, |
| 936 | cons(new_string("Maybe"), | 936 | cons(new_string("Maybe"), |
| 937 | cons(type_Float, | 937 | cons(type_Float, |
| @@ -945,7 +945,7 @@ new_string("y")), | @@ -945,7 +945,7 @@ new_string("y")), | ||
| 945 | nil)), | 945 | nil)), |
| 946 | no_term); | 946 | no_term); |
| 947 | 947 | ||
| 948 | -new_op_scheme(17263132,1, | 948 | +new_op_scheme(17262620,1, |
| 949 | cons(app_ts, | 949 | cons(app_ts, |
| 950 | cons(new_string("Maybe"), | 950 | cons(new_string("Maybe"), |
| 951 | cons(type_Float, | 951 | cons(type_Float, |
| @@ -959,7 +959,7 @@ new_string("y")), | @@ -959,7 +959,7 @@ new_string("y")), | ||
| 959 | nil)), | 959 | nil)), |
| 960 | no_term); | 960 | no_term); |
| 961 | 961 | ||
| 962 | -new_op_scheme(17263644,1, | 962 | +new_op_scheme(17263132,1, |
| 963 | type_Float, | 963 | type_Float, |
| 964 | cons(new_string("sin"), | 964 | cons(new_string("sin"), |
| 965 | nil), | 965 | nil), |
| @@ -968,7 +968,7 @@ new_string("x")), | @@ -968,7 +968,7 @@ new_string("x")), | ||
| 968 | nil), | 968 | nil), |
| 969 | no_term); | 969 | no_term); |
| 970 | 970 | ||
| 971 | -new_op_scheme(17264156,1, | 971 | +new_op_scheme(17263644,1, |
| 972 | type_Float, | 972 | type_Float, |
| 973 | cons(new_string("cos"), | 973 | cons(new_string("cos"), |
| 974 | nil), | 974 | nil), |
| @@ -977,7 +977,7 @@ new_string("x")), | @@ -977,7 +977,7 @@ new_string("x")), | ||
| 977 | nil), | 977 | nil), |
| 978 | no_term); | 978 | no_term); |
| 979 | 979 | ||
| 980 | -new_op_scheme(17264668,1, | 980 | +new_op_scheme(17264156,1, |
| 981 | cons(app_ts, | 981 | cons(app_ts, |
| 982 | cons(new_string("Maybe"), | 982 | cons(new_string("Maybe"), |
| 983 | cons(type_Float, | 983 | cons(type_Float, |
| @@ -989,7 +989,7 @@ new_string("x")), | @@ -989,7 +989,7 @@ new_string("x")), | ||
| 989 | nil), | 989 | nil), |
| 990 | no_term); | 990 | no_term); |
| 991 | 991 | ||
| 992 | -new_op_scheme(17265180,1, | 992 | +new_op_scheme(17264668,1, |
| 993 | cons(app_ts, | 993 | cons(app_ts, |
| 994 | cons(new_string("Maybe"), | 994 | cons(new_string("Maybe"), |
| 995 | cons(type_Float, | 995 | cons(type_Float, |
| @@ -1001,7 +1001,7 @@ new_string("x")), | @@ -1001,7 +1001,7 @@ new_string("x")), | ||
| 1001 | nil), | 1001 | nil), |
| 1002 | no_term); | 1002 | no_term); |
| 1003 | 1003 | ||
| 1004 | -new_op_scheme(17265692,1, | 1004 | +new_op_scheme(17265180,1, |
| 1005 | cons(app_ts, | 1005 | cons(app_ts, |
| 1006 | cons(new_string("Maybe"), | 1006 | cons(new_string("Maybe"), |
| 1007 | cons(type_Float, | 1007 | cons(type_Float, |
| @@ -1013,7 +1013,7 @@ new_string("x")), | @@ -1013,7 +1013,7 @@ new_string("x")), | ||
| 1013 | nil), | 1013 | nil), |
| 1014 | no_term); | 1014 | no_term); |
| 1015 | 1015 | ||
| 1016 | -new_op_scheme(17266204,1, | 1016 | +new_op_scheme(17265692,1, |
| 1017 | type_Float, | 1017 | type_Float, |
| 1018 | cons(new_string("atan"), | 1018 | cons(new_string("atan"), |
| 1019 | nil), | 1019 | nil), |
| @@ -1022,7 +1022,7 @@ new_string("x")), | @@ -1022,7 +1022,7 @@ new_string("x")), | ||
| 1022 | nil), | 1022 | nil), |
| 1023 | no_term); | 1023 | no_term); |
| 1024 | 1024 | ||
| 1025 | -new_op_scheme(17266716,1, | 1025 | +new_op_scheme(17266204,1, |
| 1026 | cons(app_ts, | 1026 | cons(app_ts, |
| 1027 | cons(new_string("Maybe"), | 1027 | cons(new_string("Maybe"), |
| 1028 | cons(type_Float, | 1028 | cons(type_Float, |
| @@ -1034,7 +1034,7 @@ new_string("x")), | @@ -1034,7 +1034,7 @@ new_string("x")), | ||
| 1034 | nil), | 1034 | nil), |
| 1035 | no_term); | 1035 | no_term); |
| 1036 | 1036 | ||
| 1037 | -new_op_scheme(17267228,1, | 1037 | +new_op_scheme(17266716,1, |
| 1038 | cons(app_ts, | 1038 | cons(app_ts, |
| 1039 | cons(new_string("Maybe"), | 1039 | cons(new_string("Maybe"), |
| 1040 | cons(type_Float, | 1040 | cons(type_Float, |
| @@ -1046,7 +1046,7 @@ new_string("x")), | @@ -1046,7 +1046,7 @@ new_string("x")), | ||
| 1046 | nil), | 1046 | nil), |
| 1047 | no_term); | 1047 | no_term); |
| 1048 | 1048 | ||
| 1049 | -new_op_scheme(17267740,1, | 1049 | +new_op_scheme(17267228,1, |
| 1050 | cons(app_ts, | 1050 | cons(app_ts, |
| 1051 | cons(new_string("Maybe"), | 1051 | cons(new_string("Maybe"), |
| 1052 | cons(type_Float, | 1052 | cons(type_Float, |
| @@ -1058,7 +1058,7 @@ new_string("x")), | @@ -1058,7 +1058,7 @@ new_string("x")), | ||
| 1058 | nil), | 1058 | nil), |
| 1059 | no_term); | 1059 | no_term); |
| 1060 | 1060 | ||
| 1061 | -new_op_scheme(17268252,1, | 1061 | +new_op_scheme(17267740,1, |
| 1062 | new_string("Bool"), | 1062 | new_string("Bool"), |
| 1063 | cons(new_string("<"), | 1063 | cons(new_string("<"), |
| 1064 | nil), | 1064 | nil), |
| @@ -1069,7 +1069,7 @@ new_string("y")), | @@ -1069,7 +1069,7 @@ new_string("y")), | ||
| 1069 | nil)), | 1069 | nil)), |
| 1070 | no_term); | 1070 | no_term); |
| 1071 | 1071 | ||
| 1072 | -new_op_scheme(17268764,1, | 1072 | +new_op_scheme(17268252,1, |
| 1073 | new_string("Bool"), | 1073 | new_string("Bool"), |
| 1074 | cons(new_string("=<"), | 1074 | cons(new_string("=<"), |
| 1075 | nil), | 1075 | nil), |
| @@ -1080,7 +1080,7 @@ new_string("y")), | @@ -1080,7 +1080,7 @@ new_string("y")), | ||
| 1080 | nil)), | 1080 | nil)), |
| 1081 | no_term); | 1081 | no_term); |
| 1082 | 1082 | ||
| 1083 | -new_op_scheme(17270300,1, | 1083 | +new_op_scheme(17269788,1, |
| 1084 | type_String, | 1084 | type_String, |
| 1085 | cons(new_string("float_to_string"), | 1085 | cons(new_string("float_to_string"), |
| 1086 | nil), | 1086 | nil), |
| @@ -1091,7 +1091,7 @@ new_string("prec")), | @@ -1091,7 +1091,7 @@ new_string("prec")), | ||
| 1091 | nil)), | 1091 | nil)), |
| 1092 | no_term); | 1092 | no_term); |
| 1093 | 1093 | ||
| 1094 | -new_op_scheme(17272860,1, | 1094 | +new_op_scheme(17272348,1, |
| 1095 | type_Int32, | 1095 | type_Int32, |
| 1096 | cons(new_string("integral_part"), | 1096 | cons(new_string("integral_part"), |
| 1097 | nil), | 1097 | nil), |
| @@ -1119,7 +1119,7 @@ nil), | @@ -1119,7 +1119,7 @@ nil), | ||
| 1119 | nil), | 1119 | nil), |
| 1120 | nil)),0,1); | 1120 | nil)),0,1); |
| 1121 | 1121 | ||
| 1122 | -new_op_scheme(17284124,1, | 1122 | +new_op_scheme(17283612,1, |
| 1123 | cons(app_ts, | 1123 | cons(app_ts, |
| 1124 | cons(new_string("Maybe"), | 1124 | cons(new_string("Maybe"), |
| 1125 | cons(cons(type_RAddr, | 1125 | cons(cons(type_RAddr, |
| @@ -1134,7 +1134,7 @@ new_string("mode")), | @@ -1134,7 +1134,7 @@ new_string("mode")), | ||
| 1134 | nil)), | 1134 | nil)), |
| 1135 | no_term); | 1135 | no_term); |
| 1136 | 1136 | ||
| 1137 | -new_op_scheme(17285148,1, | 1137 | +new_op_scheme(17284636,1, |
| 1138 | cons(app_ts, | 1138 | cons(app_ts, |
| 1139 | cons(new_string("Maybe"), | 1139 | cons(new_string("Maybe"), |
| 1140 | cons(cons(type_RWAddr, | 1140 | cons(cons(type_RWAddr, |
| @@ -1225,7 +1225,7 @@ new_string("others_executable")), | @@ -1225,7 +1225,7 @@ new_string("others_executable")), | ||
| 1225 | nil)))))))))), | 1225 | nil)))))))))), |
| 1226 | nil),0,1); | 1226 | nil),0,1); |
| 1227 | 1227 | ||
| 1228 | -new_op_scheme(17303580,1, | 1228 | +new_op_scheme(17303068,1, |
| 1229 | cons(app_ts, | 1229 | cons(app_ts, |
| 1230 | cons(new_string("Maybe"), | 1230 | cons(new_string("Maybe"), |
| 1231 | cons(new_string("FileMode"), | 1231 | cons(new_string("FileMode"), |
| @@ -1237,7 +1237,7 @@ new_string("file_name")), | @@ -1237,7 +1237,7 @@ new_string("file_name")), | ||
| 1237 | nil), | 1237 | nil), |
| 1238 | no_term); | 1238 | no_term); |
| 1239 | 1239 | ||
| 1240 | -new_op_scheme(17304092,1, | 1240 | +new_op_scheme(17303580,1, |
| 1241 | cons(app_ts, | 1241 | cons(app_ts, |
| 1242 | cons(new_string("Maybe"), | 1242 | cons(new_string("Maybe"), |
| 1243 | cons(new_string("One"), | 1243 | cons(new_string("One"), |
| @@ -1251,7 +1251,7 @@ new_string("mode")), | @@ -1251,7 +1251,7 @@ new_string("mode")), | ||
| 1251 | nil)), | 1251 | nil)), |
| 1252 | no_term); | 1252 | no_term); |
| 1253 | 1253 | ||
| 1254 | -new_op_scheme(17310236,1, | 1254 | +new_op_scheme(17309724,1, |
| 1255 | cons(type_RAddr, | 1255 | cons(type_RAddr, |
| 1256 | new_string("Int8")), | 1256 | new_string("Int8")), |
| 1257 | cons(new_string("stdin"), | 1257 | cons(new_string("stdin"), |
| @@ -1259,7 +1259,7 @@ nil), | @@ -1259,7 +1259,7 @@ nil), | ||
| 1259 | nil, | 1259 | nil, |
| 1260 | no_term); | 1260 | no_term); |
| 1261 | 1261 | ||
| 1262 | -new_op_scheme(17310748,1, | 1262 | +new_op_scheme(17310236,1, |
| 1263 | cons(type_WAddr, | 1263 | cons(type_WAddr, |
| 1264 | new_string("Int8")), | 1264 | new_string("Int8")), |
| 1265 | cons(new_string("stdout"), | 1265 | cons(new_string("stdout"), |
| @@ -1267,7 +1267,7 @@ nil), | @@ -1267,7 +1267,7 @@ nil), | ||
| 1267 | nil, | 1267 | nil, |
| 1268 | no_term); | 1268 | no_term); |
| 1269 | 1269 | ||
| 1270 | -new_op_scheme(17311260,1, | 1270 | +new_op_scheme(17310748,1, |
| 1271 | cons(type_WAddr, | 1271 | cons(type_WAddr, |
| 1272 | new_string("Int8")), | 1272 | new_string("Int8")), |
| 1273 | cons(new_string("stderr"), | 1273 | cons(new_string("stderr"), |
| @@ -1275,7 +1275,7 @@ nil), | @@ -1275,7 +1275,7 @@ nil), | ||
| 1275 | nil, | 1275 | nil, |
| 1276 | no_term); | 1276 | no_term); |
| 1277 | 1277 | ||
| 1278 | -new_op_scheme(17315356,1, | 1278 | +new_op_scheme(17314844,1, |
| 1279 | type_Int32, | 1279 | type_Int32, |
| 1280 | cons(new_string("file_size"), | 1280 | cons(new_string("file_size"), |
| 1281 | nil), | 1281 | nil), |
| @@ -1285,7 +1285,7 @@ new_string("file")), | @@ -1285,7 +1285,7 @@ new_string("file")), | ||
| 1285 | nil), | 1285 | nil), |
| 1286 | no_term); | 1286 | no_term); |
| 1287 | 1287 | ||
| 1288 | -new_op_scheme(17315868,1, | 1288 | +new_op_scheme(17315356,1, |
| 1289 | type_Int32, | 1289 | type_Int32, |
| 1290 | cons(new_string("file_size"), | 1290 | cons(new_string("file_size"), |
| 1291 | nil), | 1291 | nil), |
| @@ -1295,7 +1295,7 @@ new_string("file")), | @@ -1295,7 +1295,7 @@ new_string("file")), | ||
| 1295 | nil), | 1295 | nil), |
| 1296 | no_term); | 1296 | no_term); |
| 1297 | 1297 | ||
| 1298 | -new_op_scheme(17316380,1, | 1298 | +new_op_scheme(17315868,1, |
| 1299 | type_Int32, | 1299 | type_Int32, |
| 1300 | cons(new_string("file_size"), | 1300 | cons(new_string("file_size"), |
| 1301 | nil), | 1301 | nil), |
| @@ -1305,7 +1305,7 @@ new_string("file")), | @@ -1305,7 +1305,7 @@ new_string("file")), | ||
| 1305 | nil), | 1305 | nil), |
| 1306 | no_term); | 1306 | no_term); |
| 1307 | 1307 | ||
| 1308 | -new_op_scheme(17324572,1, | 1308 | +new_op_scheme(17324060,1, |
| 1309 | cons(type_RAddr, | 1309 | cons(type_RAddr, |
| 1310 | new_utvar("T")), | 1310 | new_utvar("T")), |
| 1311 | cons(new_string("weaken"), | 1311 | cons(new_string("weaken"), |
| @@ -1316,7 +1316,7 @@ new_string("f")), | @@ -1316,7 +1316,7 @@ new_string("f")), | ||
| 1316 | nil), | 1316 | nil), |
| 1317 | no_term); | 1317 | no_term); |
| 1318 | 1318 | ||
| 1319 | -new_op_scheme(17325084,1, | 1319 | +new_op_scheme(17324572,1, |
| 1320 | cons(type_WAddr, | 1320 | cons(type_WAddr, |
| 1321 | new_utvar("T")), | 1321 | new_utvar("T")), |
| 1322 | cons(new_string("weaken"), | 1322 | cons(new_string("weaken"), |
| @@ -1327,14 +1327,14 @@ new_string("f")), | @@ -1327,14 +1327,14 @@ new_string("f")), | ||
| 1327 | nil), | 1327 | nil), |
| 1328 | no_term); | 1328 | no_term); |
| 1329 | 1329 | ||
| 1330 | -new_op_scheme(17334812,1, | 1330 | +new_op_scheme(17334300,1, |
| 1331 | type_String, | 1331 | type_String, |
| 1332 | cons(new_string("get_current_directory"), | 1332 | cons(new_string("get_current_directory"), |
| 1333 | nil), | 1333 | nil), |
| 1334 | nil, | 1334 | nil, |
| 1335 | no_term); | 1335 | no_term); |
| 1336 | 1336 | ||
| 1337 | -new_op_scheme(17337372,1, | 1337 | +new_op_scheme(17336860,1, |
| 1338 | new_string("Bool"), | 1338 | new_string("Bool"), |
| 1339 | cons(new_string("set_current_directory"), | 1339 | cons(new_string("set_current_directory"), |
| 1340 | nil), | 1340 | nil), |
| @@ -1403,7 +1403,7 @@ new_string("others_searchable")), | @@ -1403,7 +1403,7 @@ new_string("others_searchable")), | ||
| 1403 | nil)))))))))), | 1403 | nil)))))))))), |
| 1404 | nil),0,1); | 1404 | nil),0,1); |
| 1405 | 1405 | ||
| 1406 | -new_op_scheme(17354268,1, | 1406 | +new_op_scheme(17353756,1, |
| 1407 | new_string("MakeDirectoryResult"), | 1407 | new_string("MakeDirectoryResult"), |
| 1408 | cons(new_string("make_directory"), | 1408 | cons(new_string("make_directory"), |
| 1409 | nil), | 1409 | nil), |
| @@ -1434,7 +1434,7 @@ nil), | @@ -1434,7 +1434,7 @@ nil), | ||
| 1434 | nil), | 1434 | nil), |
| 1435 | nil))))),0,1); | 1435 | nil))))),0,1); |
| 1436 | 1436 | ||
| 1437 | -new_op_scheme(17361436,1, | 1437 | +new_op_scheme(17360924,1, |
| 1438 | new_string("RemoveDirectoryResult"), | 1438 | new_string("RemoveDirectoryResult"), |
| 1439 | cons(new_string("remove_directory"), | 1439 | cons(new_string("remove_directory"), |
| 1440 | nil), | 1440 | nil), |
| @@ -1484,7 +1484,7 @@ new_string("last_modified")), | @@ -1484,7 +1484,7 @@ new_string("last_modified")), | ||
| 1484 | nil)))), | 1484 | nil)))), |
| 1485 | nil)))),0,1); | 1485 | nil)))),0,1); |
| 1486 | 1486 | ||
| 1487 | -new_op_scheme(17377820,1, | 1487 | +new_op_scheme(17377308,1, |
| 1488 | cons(app_ts, | 1488 | cons(app_ts, |
| 1489 | cons(new_string("List"), | 1489 | cons(new_string("List"), |
| 1490 | cons(type_String, | 1490 | cons(type_String, |
| @@ -1498,7 +1498,7 @@ new_string("file_name_mask")), | @@ -1498,7 +1498,7 @@ new_string("file_name_mask")), | ||
| 1498 | nil)), | 1498 | nil)), |
| 1499 | no_term); | 1499 | no_term); |
| 1500 | 1500 | ||
| 1501 | -new_op_scheme(17383452,1, | 1501 | +new_op_scheme(17382940,1, |
| 1502 | cons(app_ts, | 1502 | cons(app_ts, |
| 1503 | cons(new_string("List"), | 1503 | cons(new_string("List"), |
| 1504 | cons(new_string("FileDescription"), | 1504 | cons(new_string("FileDescription"), |
| @@ -1516,7 +1516,7 @@ new_string("directory_name_mask")), | @@ -1516,7 +1516,7 @@ new_string("directory_name_mask")), | ||
| 1516 | nil)))), | 1516 | nil)))), |
| 1517 | no_term); | 1517 | no_term); |
| 1518 | 1518 | ||
| 1519 | -new_op_scheme(17395740,1, | 1519 | +new_op_scheme(17395228,1, |
| 1520 | new_string("Bool"), | 1520 | new_string("Bool"), |
| 1521 | cons(new_string("create_symbolic_link"), | 1521 | cons(new_string("create_symbolic_link"), |
| 1522 | nil), | 1522 | nil), |
| @@ -1527,7 +1527,7 @@ new_string("link_name")), | @@ -1527,7 +1527,7 @@ new_string("link_name")), | ||
| 1527 | nil)), | 1527 | nil)), |
| 1528 | no_term); | 1528 | no_term); |
| 1529 | 1529 | ||
| 1530 | -new_op_scheme(17405980,1, | 1530 | +new_op_scheme(17405468,1, |
| 1531 | cons(app_ts, | 1531 | cons(app_ts, |
| 1532 | cons(new_string("Maybe"), | 1532 | cons(new_string("Maybe"), |
| 1533 | cons(type_ByteArray, | 1533 | cons(type_ByteArray, |
| @@ -1544,7 +1544,7 @@ new_string("timeout")), | @@ -1544,7 +1544,7 @@ new_string("timeout")), | ||
| 1544 | nil))), | 1544 | nil))), |
| 1545 | no_term); | 1545 | no_term); |
| 1546 | 1546 | ||
| 1547 | -new_op_scheme(17412636,1, | 1547 | +new_op_scheme(17412124,1, |
| 1548 | cons(app_ts, | 1548 | cons(app_ts, |
| 1549 | cons(new_string("Maybe"), | 1549 | cons(new_string("Maybe"), |
| 1550 | cons(type_Int32, | 1550 | cons(type_Int32, |
| @@ -1577,7 +1577,7 @@ noname), | @@ -1577,7 +1577,7 @@ noname), | ||
| 1577 | nil)), | 1577 | nil)), |
| 1578 | nil))),0,1); | 1578 | nil))),0,1); |
| 1579 | 1579 | ||
| 1580 | -new_op_scheme(17421326,0, | 1580 | +new_op_scheme(17420814,0, |
| 1581 | new_string("ReadFileResult"), | 1581 | new_string("ReadFileResult"), |
| 1582 | cons(new_string("£read_from_file"), | 1582 | cons(new_string("£read_from_file"), |
| 1583 | nil), | 1583 | nil), |
| @@ -1591,7 +1591,7 @@ new_string("so_far")), | @@ -1591,7 +1591,7 @@ new_string("so_far")), | ||
| 1591 | nil))), | 1591 | nil))), |
| 1592 | no_term); | 1592 | no_term); |
| 1593 | 1593 | ||
| 1594 | -new_op_scheme(17429020,1, | 1594 | +new_op_scheme(17428508,1, |
| 1595 | new_string("ReadFileResult"), | 1595 | new_string("ReadFileResult"), |
| 1596 | cons(new_string("read_from_file"), | 1596 | cons(new_string("read_from_file"), |
| 1597 | nil), | 1597 | nil), |
| @@ -1616,7 +1616,7 @@ nil), | @@ -1616,7 +1616,7 @@ nil), | ||
| 1616 | nil), | 1616 | nil), |
| 1617 | nil))),0,1); | 1617 | nil))),0,1); |
| 1618 | 1618 | ||
| 1619 | -new_op_scheme(17439758,0, | 1619 | +new_op_scheme(17439246,0, |
| 1620 | new_string("WriteFileResult"), | 1620 | new_string("WriteFileResult"), |
| 1621 | cons(new_string("£write_to_file"), | 1621 | cons(new_string("£write_to_file"), |
| 1622 | nil), | 1622 | nil), |
| @@ -1630,7 +1630,7 @@ new_string("written")), | @@ -1630,7 +1630,7 @@ new_string("written")), | ||
| 1630 | nil))), | 1630 | nil))), |
| 1631 | no_term); | 1631 | no_term); |
| 1632 | 1632 | ||
| 1633 | -new_op_scheme(17447964,1, | 1633 | +new_op_scheme(17447452,1, |
| 1634 | new_string("WriteFileResult"), | 1634 | new_string("WriteFileResult"), |
| 1635 | cons(new_string("write_to_file"), | 1635 | cons(new_string("write_to_file"), |
| 1636 | nil), | 1636 | nil), |
| @@ -1641,7 +1641,7 @@ new_string("data")), | @@ -1641,7 +1641,7 @@ new_string("data")), | ||
| 1641 | nil)), | 1641 | nil)), |
| 1642 | no_term); | 1642 | no_term); |
| 1643 | 1643 | ||
| 1644 | -new_op_scheme(17456668,1, | 1644 | +new_op_scheme(17456156,1, |
| 1645 | new_string("Bool"), | 1645 | new_string("Bool"), |
| 1646 | cons(new_string("seek"), | 1646 | cons(new_string("seek"), |
| 1647 | nil), | 1647 | nil), |
| @@ -1653,7 +1653,7 @@ new_string("where")), | @@ -1653,7 +1653,7 @@ new_string("where")), | ||
| 1653 | nil)), | 1653 | nil)), |
| 1654 | no_term); | 1654 | no_term); |
| 1655 | 1655 | ||
| 1656 | -new_op_scheme(17457180,1, | 1656 | +new_op_scheme(17456668,1, |
| 1657 | new_string("Bool"), | 1657 | new_string("Bool"), |
| 1658 | cons(new_string("seek"), | 1658 | cons(new_string("seek"), |
| 1659 | nil), | 1659 | nil), |
| @@ -1665,7 +1665,7 @@ new_string("where")), | @@ -1665,7 +1665,7 @@ new_string("where")), | ||
| 1665 | nil)), | 1665 | nil)), |
| 1666 | no_term); | 1666 | no_term); |
| 1667 | 1667 | ||
| 1668 | -new_op_scheme(17457692,1, | 1668 | +new_op_scheme(17457180,1, |
| 1669 | type_Int32, | 1669 | type_Int32, |
| 1670 | cons(new_string("tell"), | 1670 | cons(new_string("tell"), |
| 1671 | nil), | 1671 | nil), |
| @@ -1675,7 +1675,7 @@ new_string("file")), | @@ -1675,7 +1675,7 @@ new_string("file")), | ||
| 1675 | nil), | 1675 | nil), |
| 1676 | no_term); | 1676 | no_term); |
| 1677 | 1677 | ||
| 1678 | -new_op_scheme(17458204,1, | 1678 | +new_op_scheme(17457692,1, |
| 1679 | type_Int32, | 1679 | type_Int32, |
| 1680 | cons(new_string("tell"), | 1680 | cons(new_string("tell"), |
| 1681 | nil), | 1681 | nil), |
| @@ -1685,7 +1685,7 @@ new_string("file")), | @@ -1685,7 +1685,7 @@ new_string("file")), | ||
| 1685 | nil), | 1685 | nil), |
| 1686 | no_term); | 1686 | no_term); |
| 1687 | 1687 | ||
| 1688 | -new_op_scheme(17465372,1, | 1688 | +new_op_scheme(17464860,1, |
| 1689 | new_string("Bool"), | 1689 | new_string("Bool"), |
| 1690 | cons(new_string("remove"), | 1690 | cons(new_string("remove"), |
| 1691 | nil), | 1691 | nil), |
| @@ -1694,7 +1694,7 @@ new_string("file_name")), | @@ -1694,7 +1694,7 @@ new_string("file_name")), | ||
| 1694 | nil), | 1694 | nil), |
| 1695 | no_term); | 1695 | no_term); |
| 1696 | 1696 | ||
| 1697 | -new_op_scheme(17467932,1, | 1697 | +new_op_scheme(17467420,1, |
| 1698 | new_string("Bool"), | 1698 | new_string("Bool"), |
| 1699 | cons(new_string("rename"), | 1699 | cons(new_string("rename"), |
| 1700 | nil), | 1700 | nil), |
| @@ -1705,12 +1705,36 @@ new_string("new_name")), | @@ -1705,12 +1705,36 @@ new_string("new_name")), | ||
| 1705 | nil)), | 1705 | nil)), |
| 1706 | no_term); | 1706 | no_term); |
| 1707 | 1707 | ||
| 1708 | -new_op_scheme(17479708,1, | 1708 | +new_type_scheme(new_integer(0),0, |
| 1709 | +new_string("NetworkConnectError"), | ||
| 1710 | +nil, | ||
| 1711 | +cons(cons(cons(new_string("cannot_create_the_socket"), | ||
| 1712 | +nil), | ||
| 1713 | +nil), | ||
| 1714 | +cons(cons(cons(new_string("address_port_not_available"), | ||
| 1715 | +nil), | ||
| 1716 | +nil), | ||
| 1717 | +cons(cons(cons(new_string("connection_refused"), | ||
| 1718 | +nil), | ||
| 1719 | +nil), | ||
| 1720 | +cons(cons(cons(new_string("network_unreachable"), | ||
| 1721 | +nil), | ||
| 1722 | +nil), | ||
| 1723 | +cons(cons(cons(new_string("address_port_already_in_use"), | ||
| 1724 | +nil), | ||
| 1725 | +nil), | ||
| 1726 | +cons(cons(cons(new_string("out_of_time"), | ||
| 1727 | +nil), | ||
| 1728 | +nil), | ||
| 1729 | +nil)))))),0,1); | ||
| 1730 | + | ||
| 1731 | +new_op_scheme(17484828,1, | ||
| 1709 | cons(app_ts, | 1732 | cons(app_ts, |
| 1710 | -cons(new_string("Maybe"), | 1733 | +cons(new_string("Result"), |
| 1734 | +cons(new_string("NetworkConnectError"), | ||
| 1711 | cons(cons(type_RWAddr, | 1735 | cons(cons(type_RWAddr, |
| 1712 | new_utvar("T")), | 1736 | new_utvar("T")), |
| 1713 | -nil))), | 1737 | +nil)))), |
| 1714 | cons(new_string("connect"), | 1738 | cons(new_string("connect"), |
| 1715 | nil), | 1739 | nil), |
| 1716 | cons(cons(type_Int32, | 1740 | cons(cons(type_Int32, |
| @@ -1734,7 +1758,7 @@ noname), | @@ -1734,7 +1758,7 @@ noname), | ||
| 1734 | nil))), | 1758 | nil))), |
| 1735 | nil),0,1); | 1759 | nil),0,1); |
| 1736 | 1760 | ||
| 1737 | -new_op_scheme(17485852,1, | 1761 | +new_op_scheme(17502748,1, |
| 1738 | cons(app_ts, | 1762 | cons(app_ts, |
| 1739 | cons(new_string("£Tuple2"), | 1763 | cons(new_string("£Tuple2"), |
| 1740 | cons(type_Int32, | 1764 | cons(type_Int32, |
| @@ -1748,7 +1772,7 @@ new_string("connection")), | @@ -1748,7 +1772,7 @@ new_string("connection")), | ||
| 1748 | nil), | 1772 | nil), |
| 1749 | no_term); | 1773 | no_term); |
| 1750 | 1774 | ||
| 1751 | -new_op_scheme(17486876,1, | 1775 | +new_op_scheme(17503772,1, |
| 1752 | cons(app_ts, | 1776 | cons(app_ts, |
| 1753 | cons(new_string("£Tuple2"), | 1777 | cons(new_string("£Tuple2"), |
| 1754 | cons(type_Int32, | 1778 | cons(type_Int32, |
| @@ -1784,7 +1808,7 @@ new_string("address")), | @@ -1784,7 +1808,7 @@ new_string("address")), | ||
| 1784 | nil)), | 1808 | nil)), |
| 1785 | nil))))),0,1); | 1809 | nil))))),0,1); |
| 1786 | 1810 | ||
| 1787 | -new_op_scheme(17496604,1, | 1811 | +new_op_scheme(17513500,1, |
| 1788 | new_string("DNS_Result"), | 1812 | new_string("DNS_Result"), |
| 1789 | cons(new_string("dns"), | 1813 | cons(new_string("dns"), |
| 1790 | nil), | 1814 | nil), |
| @@ -1812,7 +1836,7 @@ noname), | @@ -1812,7 +1836,7 @@ noname), | ||
| 1812 | nil)), | 1836 | nil)), |
| 1813 | nil)))),0,1); | 1837 | nil)))),0,1); |
| 1814 | 1838 | ||
| 1815 | -new_op_scheme(17507342,0, | 1839 | +new_op_scheme(17524238,0, |
| 1816 | new_string("£ListenerResult"), | 1840 | new_string("£ListenerResult"), |
| 1817 | cons(new_string("£listener"), | 1841 | cons(new_string("£listener"), |
| 1818 | nil), | 1842 | nil), |
| @@ -1840,7 +1864,7 @@ noname), | @@ -1840,7 +1864,7 @@ noname), | ||
| 1840 | nil)), | 1864 | nil)), |
| 1841 | nil))),0,1); | 1865 | nil))),0,1); |
| 1842 | 1866 | ||
| 1843 | -new_op_scheme(17517070,0, | 1867 | +new_op_scheme(17533966,0, |
| 1844 | new_string("£AcceptConnectionResult"), | 1868 | new_string("£AcceptConnectionResult"), |
| 1845 | cons(new_string("£accept_connection"), | 1869 | cons(new_string("£accept_connection"), |
| 1846 | nil), | 1870 | nil), |
| @@ -1849,7 +1873,7 @@ new_string("l")), | @@ -1849,7 +1873,7 @@ new_string("l")), | ||
| 1849 | nil), | 1873 | nil), |
| 1850 | no_term); | 1874 | no_term); |
| 1851 | 1875 | ||
| 1852 | -new_op_scheme(17522190,0, | 1876 | +new_op_scheme(17539086,0, |
| 1853 | new_string("One"), | 1877 | new_string("One"), |
| 1854 | cons(new_string("£run_server"), | 1878 | cons(new_string("£run_server"), |
| 1855 | nil), | 1879 | nil), |
| @@ -1898,7 +1922,7 @@ noname), | @@ -1898,7 +1922,7 @@ noname), | ||
| 1898 | nil)), | 1922 | nil)), |
| 1899 | nil)))),0,1); | 1923 | nil)))),0,1); |
| 1900 | 1924 | ||
| 1901 | -new_op_scheme(17544220,1, | 1925 | +new_op_scheme(17561116,1, |
| 1902 | new_string("StartServerResult"), | 1926 | new_string("StartServerResult"), |
| 1903 | cons(new_string("start_server"), | 1927 | cons(new_string("start_server"), |
| 1904 | nil), | 1928 | nil), |
| @@ -1923,7 +1947,7 @@ new_string("notify")), | @@ -1923,7 +1947,7 @@ new_string("notify")), | ||
| 1923 | nil)))), | 1947 | nil)))), |
| 1924 | no_term); | 1948 | no_term); |
| 1925 | 1949 | ||
| 1926 | -new_op_scheme(17558542,0, | 1950 | +new_op_scheme(17575438,0, |
| 1927 | new_string("One"), | 1951 | new_string("One"), |
| 1928 | cons(new_string("£shutdown"), | 1952 | cons(new_string("£shutdown"), |
| 1929 | nil), | 1953 | nil), |
| @@ -1932,7 +1956,7 @@ new_string("l")), | @@ -1932,7 +1956,7 @@ new_string("l")), | ||
| 1932 | nil), | 1956 | nil), |
| 1933 | no_term); | 1957 | no_term); |
| 1934 | 1958 | ||
| 1935 | -new_op_scheme(17559068,1, | 1959 | +new_op_scheme(17575964,1, |
| 1936 | new_string("One"), | 1960 | new_string("One"), |
| 1937 | cons(new_string("shutdown"), | 1961 | cons(new_string("shutdown"), |
| 1938 | nil), | 1962 | nil), |
| @@ -1941,7 +1965,7 @@ new_string("s")), | @@ -1941,7 +1965,7 @@ new_string("s")), | ||
| 1941 | nil), | 1965 | nil), |
| 1942 | no_term); | 1966 | no_term); |
| 1943 | 1967 | ||
| 1944 | -new_op_scheme(17559566,0, | 1968 | +new_op_scheme(17576462,0, |
| 1945 | new_string("Bool"), | 1969 | new_string("Bool"), |
| 1946 | cons(new_string("£is_down"), | 1970 | cons(new_string("£is_down"), |
| 1947 | nil), | 1971 | nil), |
| @@ -1950,7 +1974,7 @@ new_string("l")), | @@ -1950,7 +1974,7 @@ new_string("l")), | ||
| 1950 | nil), | 1974 | nil), |
| 1951 | no_term); | 1975 | no_term); |
| 1952 | 1976 | ||
| 1953 | -new_op_scheme(17560092,1, | 1977 | +new_op_scheme(17576988,1, |
| 1954 | new_string("Bool"), | 1978 | new_string("Bool"), |
| 1955 | cons(new_string("is_down"), | 1979 | cons(new_string("is_down"), |
| 1956 | nil), | 1980 | nil), |
| @@ -1959,30 +1983,7 @@ new_string("s")), | @@ -1959,30 +1983,7 @@ new_string("s")), | ||
| 1959 | nil), | 1983 | nil), |
| 1960 | no_term); | 1984 | no_term); |
| 1961 | 1985 | ||
| 1962 | -new_type_scheme(new_integer(0),0, | ||
| 1963 | -new_string("NetworkConnectError"), | ||
| 1964 | -nil, | ||
| 1965 | -cons(cons(cons(new_string("cannot_create_the_socket"), | ||
| 1966 | -nil), | ||
| 1967 | -nil), | ||
| 1968 | -cons(cons(cons(new_string("address_port_not_available"), | ||
| 1969 | -nil), | ||
| 1970 | -nil), | ||
| 1971 | -cons(cons(cons(new_string("connection_refused"), | ||
| 1972 | -nil), | ||
| 1973 | -nil), | ||
| 1974 | -cons(cons(cons(new_string("network_unreachable"), | ||
| 1975 | -nil), | ||
| 1976 | -nil), | ||
| 1977 | -cons(cons(cons(new_string("address_port_already_in_use"), | ||
| 1978 | -nil), | ||
| 1979 | -nil), | ||
| 1980 | -cons(cons(cons(new_string("out_of_time"), | ||
| 1981 | -nil), | ||
| 1982 | -nil), | ||
| 1983 | -nil)))))),0,1); | ||
| 1984 | - | ||
| 1985 | -new_op_scheme(17589788,1, | 1986 | +new_op_scheme(17589276,1, |
| 1986 | cons(app_ts, | 1987 | cons(app_ts, |
| 1987 | cons(new_string("Maybe"), | 1988 | cons(new_string("Maybe"), |
| 1988 | cons(new_string("Int8"), | 1989 | cons(new_string("Int8"), |
| @@ -2004,7 +2005,7 @@ new_string("operands")), | @@ -2004,7 +2005,7 @@ new_string("operands")), | ||
| 2004 | nil))), | 2005 | nil))), |
| 2005 | no_term); | 2006 | no_term); |
| 2006 | 2007 | ||
| 2007 | -new_op_scheme(17601564,1, | 2008 | +new_op_scheme(17601052,1, |
| 2008 | cons(app_ts, | 2009 | cons(app_ts, |
| 2009 | cons(new_string("Maybe"), | 2010 | cons(new_string("Maybe"), |
| 2010 | cons(new_string("Int8"), | 2011 | cons(new_string("Int8"), |
| @@ -2021,7 +2022,7 @@ new_string("operands")), | @@ -2021,7 +2022,7 @@ new_string("operands")), | ||
| 2021 | nil)), | 2022 | nil)), |
| 2022 | no_term); | 2023 | no_term); |
| 2023 | 2024 | ||
| 2024 | -new_op_scheme(17605660,1, | 2025 | +new_op_scheme(17605148,1, |
| 2025 | cons(app_ts, | 2026 | cons(app_ts, |
| 2026 | cons(new_string("Maybe"), | 2027 | cons(new_string("Maybe"), |
| 2027 | cons(new_string("Int8"), | 2028 | cons(new_string("Int8"), |
| @@ -2040,7 +2041,7 @@ new_string("operands")), | @@ -2040,7 +2041,7 @@ new_string("operands")), | ||
| 2040 | nil))), | 2041 | nil))), |
| 2041 | no_term); | 2042 | no_term); |
| 2042 | 2043 | ||
| 2043 | -new_op_scheme(17627676,1, | 2044 | +new_op_scheme(17627164,1, |
| 2044 | type_Int32, | 2045 | type_Int32, |
| 2045 | cons(new_string("random"), | 2046 | cons(new_string("random"), |
| 2046 | nil), | 2047 | nil), |
| @@ -2049,7 +2050,7 @@ new_string("n")), | @@ -2049,7 +2050,7 @@ new_string("n")), | ||
| 2049 | nil), | 2050 | nil), |
| 2050 | no_term); | 2051 | no_term); |
| 2051 | 2052 | ||
| 2052 | -new_op_scheme(17639964,1, | 2053 | +new_op_scheme(17639452,1, |
| 2053 | cons(type_Var, | 2054 | cons(type_Var, |
| 2054 | new_utvar("T")), | 2055 | new_utvar("T")), |
| 2055 | cons(new_string("var"), | 2056 | cons(new_string("var"), |
| @@ -2059,7 +2060,7 @@ new_string("init")), | @@ -2059,7 +2060,7 @@ new_string("init")), | ||
| 2059 | nil), | 2060 | nil), |
| 2060 | no_term); | 2061 | no_term); |
| 2061 | 2062 | ||
| 2062 | -new_op_scheme(17688604,1, | 2063 | +new_op_scheme(17688092,1, |
| 2063 | type_Int32, | 2064 | type_Int32, |
| 2064 | cons(new_string("var_id"), | 2065 | cons(new_string("var_id"), |
| 2065 | nil), | 2066 | nil), |
| @@ -2069,7 +2070,7 @@ new_string("v")), | @@ -2069,7 +2070,7 @@ new_string("v")), | ||
| 2069 | nil), | 2070 | nil), |
| 2070 | no_term); | 2071 | no_term); |
| 2071 | 2072 | ||
| 2072 | -new_op_scheme(17696270,0, | 2073 | +new_op_scheme(17695758,0, |
| 2073 | cons(type_MVar, | 2074 | cons(type_MVar, |
| 2074 | new_utvar("T")), | 2075 | new_utvar("T")), |
| 2075 | cons(new_string("£mvar"), | 2076 | cons(new_string("£mvar"), |
| @@ -2083,7 +2084,7 @@ new_string("bw")), | @@ -2083,7 +2084,7 @@ new_string("bw")), | ||
| 2083 | nil))), | 2084 | nil))), |
| 2084 | no_term); | 2085 | no_term); |
| 2085 | 2086 | ||
| 2086 | -new_op_scheme(17699356,1, | 2087 | +new_op_scheme(17698844,1, |
| 2087 | cons(type_MVar, | 2088 | cons(type_MVar, |
| 2088 | new_utvar("T")), | 2089 | new_utvar("T")), |
| 2089 | cons(new_string("mvar"), | 2090 | cons(new_string("mvar"), |
| @@ -2095,7 +2096,7 @@ new_string("init")), | @@ -2095,7 +2096,7 @@ new_string("init")), | ||
| 2095 | nil)), | 2096 | nil)), |
| 2096 | no_term); | 2097 | no_term); |
| 2097 | 2098 | ||
| 2098 | -new_op_scheme(17720860,1, | 2099 | +new_op_scheme(17720348,1, |
| 2099 | type_Int32, | 2100 | type_Int32, |
| 2100 | cons(new_string("length"), | 2101 | cons(new_string("length"), |
| 2101 | nil), | 2102 | nil), |
| @@ -2105,7 +2106,7 @@ new_string("mv")), | @@ -2105,7 +2106,7 @@ new_string("mv")), | ||
| 2105 | nil), | 2106 | nil), |
| 2106 | no_term); | 2107 | no_term); |
| 2107 | 2108 | ||
| 2108 | -new_op_scheme(17724444,1, | 2109 | +new_op_scheme(17723932,1, |
| 2109 | cons(type_MVar, | 2110 | cons(type_MVar, |
| 2110 | new_utvar("T")), | 2111 | new_utvar("T")), |
| 2111 | cons(new_string("+"), | 2112 | cons(new_string("+"), |
| @@ -2119,7 +2120,7 @@ new_string("mv2")), | @@ -2119,7 +2120,7 @@ new_string("mv2")), | ||
| 2119 | nil)), | 2120 | nil)), |
| 2120 | no_term); | 2121 | no_term); |
| 2121 | 2122 | ||
| 2122 | -new_op_scheme(17728540,1, | 2123 | +new_op_scheme(17728028,1, |
| 2123 | type_Int32, | 2124 | type_Int32, |
| 2124 | cons(new_string("mvar_id"), | 2125 | cons(new_string("mvar_id"), |
| 2125 | nil), | 2126 | nil), |
| @@ -2148,7 +2149,7 @@ new_string("£index")), | @@ -2148,7 +2149,7 @@ new_string("£index")), | ||
| 2148 | nil)))), | 2149 | nil)))), |
| 2149 | nil),0,1); | 2150 | nil),0,1); |
| 2150 | 2151 | ||
| 2151 | -new_op_scheme(17741852,1, | 2152 | +new_op_scheme(17741340,1, |
| 2152 | cons(app_ts, | 2153 | cons(app_ts, |
| 2153 | cons(new_string("MonitoringTicket"), | 2154 | cons(new_string("MonitoringTicket"), |
| 2154 | cons(new_utvar("T"), | 2155 | cons(new_utvar("T"), |
| @@ -2166,7 +2167,7 @@ new_string("monitor")), | @@ -2166,7 +2167,7 @@ new_string("monitor")), | ||
| 2166 | nil)), | 2167 | nil)), |
| 2167 | no_term); | 2168 | no_term); |
| 2168 | 2169 | ||
| 2169 | -new_op_scheme(17780764,1, | 2170 | +new_op_scheme(17780252,1, |
| 2170 | type_Int32, | 2171 | type_Int32, |
| 2171 | cons(new_string("now"), | 2172 | cons(new_string("now"), |
| 2172 | nil), | 2173 | nil), |
| @@ -2197,7 +2198,7 @@ new_string("year_day")), | @@ -2197,7 +2198,7 @@ new_string("year_day")), | ||
| 2197 | nil))))))))), | 2198 | nil))))))))), |
| 2198 | nil),0,1); | 2199 | nil),0,1); |
| 2199 | 2200 | ||
| 2200 | -new_op_scheme(17789980,1, | 2201 | +new_op_scheme(17789468,1, |
| 2201 | new_string("Date_and_Time"), | 2202 | new_string("Date_and_Time"), |
| 2202 | cons(new_string("convert_time"), | 2203 | cons(new_string("convert_time"), |
| 2203 | nil), | 2204 | nil), |
| @@ -2206,7 +2207,7 @@ new_string("t")), | @@ -2206,7 +2207,7 @@ new_string("t")), | ||
| 2206 | nil), | 2207 | nil), |
| 2207 | no_term); | 2208 | no_term); |
| 2208 | 2209 | ||
| 2209 | -new_op_scheme(17790492,1, | 2210 | +new_op_scheme(17789980,1, |
| 2210 | type_Int32, | 2211 | type_Int32, |
| 2211 | cons(new_string("convert_time"), | 2212 | cons(new_string("convert_time"), |
| 2212 | nil), | 2213 | nil), |
| @@ -2215,7 +2216,7 @@ new_string("d")), | @@ -2215,7 +2216,7 @@ new_string("d")), | ||
| 2215 | nil), | 2216 | nil), |
| 2216 | no_term); | 2217 | no_term); |
| 2217 | 2218 | ||
| 2218 | -new_op_scheme(17799196,1, | 2219 | +new_op_scheme(17798684,1, |
| 2219 | new_string("One"), | 2220 | new_string("One"), |
| 2220 | cons(new_string("print"), | 2221 | cons(new_string("print"), |
| 2221 | nil), | 2222 | nil), |
| @@ -2224,7 +2225,7 @@ new_string("s")), | @@ -2224,7 +2225,7 @@ new_string("s")), | ||
| 2224 | nil), | 2225 | nil), |
| 2225 | no_term); | 2226 | no_term); |
| 2226 | 2227 | ||
| 2227 | -new_op_scheme(17802766,0, | 2228 | +new_op_scheme(17802254,0, |
| 2228 | new_string("One"), | 2229 | new_string("One"), |
| 2229 | cons(new_string("print"), | 2230 | cons(new_string("print"), |
| 2230 | nil), | 2231 | nil), |
| @@ -2238,7 +2239,7 @@ new_string("from")), | @@ -2238,7 +2239,7 @@ new_string("from")), | ||
| 2238 | nil))), | 2239 | nil))), |
| 2239 | no_term); | 2240 | no_term); |
| 2240 | 2241 | ||
| 2241 | -new_op_scheme(17811996,1, | 2242 | +new_op_scheme(17811484,1, |
| 2242 | new_string("One"), | 2243 | new_string("One"), |
| 2243 | cons(new_string("print"), | 2244 | cons(new_string("print"), |
| 2244 | nil), | 2245 | nil), |
| @@ -2250,7 +2251,7 @@ new_string("s")), | @@ -2250,7 +2251,7 @@ new_string("s")), | ||
| 2250 | nil)), | 2251 | nil)), |
| 2251 | no_term); | 2252 | no_term); |
| 2252 | 2253 | ||
| 2253 | -new_op_scheme(17816092,1, | 2254 | +new_op_scheme(17815580,1, |
| 2254 | new_string("One"), | 2255 | new_string("One"), |
| 2255 | cons(new_string("print"), | 2256 | cons(new_string("print"), |
| 2256 | nil), | 2257 | nil), |
| @@ -2259,7 +2260,7 @@ new_string("n")), | @@ -2259,7 +2260,7 @@ new_string("n")), | ||
| 2259 | nil), | 2260 | nil), |
| 2260 | no_term); | 2261 | no_term); |
| 2261 | 2262 | ||
| 2262 | -new_op_scheme(17819676,1, | 2263 | +new_op_scheme(17819164,1, |
| 2263 | new_string("Bool"), | 2264 | new_string("Bool"), |
| 2264 | cons(new_string("&"), | 2265 | cons(new_string("&"), |
| 2265 | nil), | 2266 | nil), |
| @@ -2270,7 +2271,7 @@ new_string("y")), | @@ -2270,7 +2271,7 @@ new_string("y")), | ||
| 2270 | nil)), | 2271 | nil)), |
| 2271 | no_term); | 2272 | no_term); |
| 2272 | 2273 | ||
| 2273 | -new_op_scheme(17821724,1, | 2274 | +new_op_scheme(17821212,1, |
| 2274 | cons(app_ts, | 2275 | cons(app_ts, |
| 2275 | cons(new_string("List"), | 2276 | cons(new_string("List"), |
| 2276 | cons(new_utvar("T"), | 2277 | cons(new_utvar("T"), |
| @@ -2290,7 +2291,7 @@ new_string("l2")), | @@ -2290,7 +2291,7 @@ new_string("l2")), | ||
| 2290 | nil)), | 2291 | nil)), |
| 2291 | no_term); | 2292 | no_term); |
| 2292 | 2293 | ||
| 2293 | -new_op_scheme(17828380,1, | 2294 | +new_op_scheme(17827868,1, |
| 2294 | cons(app_ts, | 2295 | cons(app_ts, |
| 2295 | cons(new_string("List"), | 2296 | cons(new_string("List"), |
| 2296 | cons(new_utvar("T"), | 2297 | cons(new_utvar("T"), |
| @@ -2305,7 +2306,7 @@ new_string("l")), | @@ -2305,7 +2306,7 @@ new_string("l")), | ||
| 2305 | nil), | 2306 | nil), |
| 2306 | no_term); | 2307 | no_term); |
| 2307 | 2308 | ||
| 2308 | -new_op_scheme(17831964,1, | 2309 | +new_op_scheme(17831452,1, |
| 2309 | cons(app_ts, | 2310 | cons(app_ts, |
| 2310 | cons(new_string("List"), | 2311 | cons(new_string("List"), |
| 2311 | cons(new_utvar("T"), | 2312 | cons(new_utvar("T"), |
| @@ -2325,7 +2326,7 @@ new_string("l2")), | @@ -2325,7 +2326,7 @@ new_string("l2")), | ||
| 2325 | nil)), | 2326 | nil)), |
| 2326 | no_term); | 2327 | no_term); |
| 2327 | 2328 | ||
| 2328 | -new_op_scheme(17838108,1, | 2329 | +new_op_scheme(17837596,1, |
| 2329 | new_string("Bool"), | 2330 | new_string("Bool"), |
| 2330 | cons(new_string("member"), | 2331 | cons(new_string("member"), |
| 2331 | nil), | 2332 | nil), |
| @@ -2339,7 +2340,7 @@ new_string("x")), | @@ -2339,7 +2340,7 @@ new_string("x")), | ||
| 2339 | nil)), | 2340 | nil)), |
| 2340 | no_term); | 2341 | no_term); |
| 2341 | 2342 | ||
| 2342 | -new_op_scheme(17851932,1, | 2343 | +new_op_scheme(17851420,1, |
| 2343 | cons(app_ts, | 2344 | cons(app_ts, |
| 2344 | cons(new_string("List"), | 2345 | cons(new_string("List"), |
| 2345 | cons(new_utvar("B"), | 2346 | cons(new_utvar("B"), |
| @@ -2359,7 +2360,7 @@ new_string("l")), | @@ -2359,7 +2360,7 @@ new_string("l")), | ||
| 2359 | nil)), | 2360 | nil)), |
| 2360 | no_term); | 2361 | no_term); |
| 2361 | 2362 | ||
| 2362 | -new_op_scheme(17864220,1, | 2363 | +new_op_scheme(17863708,1, |
| 2363 | type_String, | 2364 | type_String, |
| 2364 | cons(new_string("get_password"), | 2365 | cons(new_string("get_password"), |
| 2365 | nil), | 2366 | nil), |
| @@ -2397,7 +2398,7 @@ new_string("datum")), | @@ -2397,7 +2398,7 @@ new_string("datum")), | ||
| 2397 | nil)), | 2398 | nil)), |
| 2398 | nil))))),0,1); | 2399 | nil))))),0,1); |
| 2399 | 2400 | ||
| 2400 | -new_op_scheme(17881116,1, | 2401 | +new_op_scheme(17880604,1, |
| 2401 | cons(app_ts, | 2402 | cons(app_ts, |
| 2402 | cons(new_string("LoadModuleResult"), | 2403 | cons(new_string("LoadModuleResult"), |
| 2403 | cons(new_utvar("T"), | 2404 | cons(new_utvar("T"), |
| @@ -2409,7 +2410,7 @@ new_string("module_name")), | @@ -2409,7 +2410,7 @@ new_string("module_name")), | ||
| 2409 | nil), | 2410 | nil), |
| 2410 | no_term); | 2411 | no_term); |
| 2411 | 2412 | ||
| 2412 | -new_op_scheme(17922076,1, | 2413 | +new_op_scheme(17921564,1, |
| 2413 | type_ByteArray, | 2414 | type_ByteArray, |
| 2414 | cons(new_string("serialize"), | 2415 | cons(new_string("serialize"), |
| 2415 | nil), | 2416 | nil), |
| @@ -2418,7 +2419,7 @@ new_string("d")), | @@ -2418,7 +2419,7 @@ new_string("d")), | ||
| 2418 | nil), | 2419 | nil), |
| 2419 | no_term); | 2420 | no_term); |
| 2420 | 2421 | ||
| 2421 | -new_op_scheme(17924636,1, | 2422 | +new_op_scheme(17924124,1, |
| 2422 | cons(app_ts, | 2423 | cons(app_ts, |
| 2423 | cons(new_string("Maybe"), | 2424 | cons(new_string("Maybe"), |
| 2424 | cons(new_utvar("T"), | 2425 | cons(new_utvar("T"), |
| @@ -2464,7 +2465,7 @@ noname), | @@ -2464,7 +2465,7 @@ noname), | ||
| 2464 | nil)), | 2465 | nil)), |
| 2465 | nil)))),0,1); | 2466 | nil)))),0,1); |
| 2466 | 2467 | ||
| 2467 | -new_op_scheme(17957916,1, | 2468 | +new_op_scheme(17957404,1, |
| 2468 | new_string("SaveResult"), | 2469 | new_string("SaveResult"), |
| 2469 | cons(new_string("save"), | 2470 | cons(new_string("save"), |
| 2470 | nil), | 2471 | nil), |
| @@ -2475,7 +2476,7 @@ new_string("file_name")), | @@ -2475,7 +2476,7 @@ new_string("file_name")), | ||
| 2475 | nil)), | 2476 | nil)), |
| 2476 | no_term); | 2477 | no_term); |
| 2477 | 2478 | ||
| 2478 | -new_op_scheme(17964572,1, | 2479 | +new_op_scheme(17964060,1, |
| 2479 | cons(app_ts, | 2480 | cons(app_ts, |
| 2480 | cons(new_string("RetrieveResult"), | 2481 | cons(new_string("RetrieveResult"), |
| 2481 | cons(new_utvar("T"), | 2482 | cons(new_utvar("T"), |
| @@ -2487,7 +2488,7 @@ new_string("file_name")), | @@ -2487,7 +2488,7 @@ new_string("file_name")), | ||
| 2487 | nil), | 2488 | nil), |
| 2488 | no_term); | 2489 | no_term); |
| 2489 | 2490 | ||
| 2490 | -new_op_scheme(17999374,0, | 2491 | +new_op_scheme(17998862,0, |
| 2491 | type_ByteArray, | 2492 | type_ByteArray, |
| 2492 | cons(new_string("£md5"), | 2493 | cons(new_string("£md5"), |
| 2493 | nil), | 2494 | nil), |
| @@ -2496,7 +2497,7 @@ new_string("s")), | @@ -2496,7 +2497,7 @@ new_string("s")), | ||
| 2496 | nil), | 2497 | nil), |
| 2497 | no_term); | 2498 | no_term); |
| 2498 | 2499 | ||
| 2499 | -new_op_scheme(17999886,0, | 2500 | +new_op_scheme(17999374,0, |
| 2500 | type_ByteArray, | 2501 | type_ByteArray, |
| 2501 | cons(new_string("£sha1"), | 2502 | cons(new_string("£sha1"), |
| 2502 | nil), | 2503 | nil), |
| @@ -2505,7 +2506,7 @@ new_string("s")), | @@ -2505,7 +2506,7 @@ new_string("s")), | ||
| 2505 | nil), | 2506 | nil), |
| 2506 | no_term); | 2507 | no_term); |
| 2507 | 2508 | ||
| 2508 | -new_op_scheme(18001948,1, | 2509 | +new_op_scheme(18001436,1, |
| 2509 | type_ByteArray, | 2510 | type_ByteArray, |
| 2510 | cons(new_string("md5"), | 2511 | cons(new_string("md5"), |
| 2511 | nil), | 2512 | nil), |
| @@ -2514,7 +2515,7 @@ new_string("d")), | @@ -2514,7 +2515,7 @@ new_string("d")), | ||
| 2514 | nil), | 2515 | nil), |
| 2515 | no_term); | 2516 | no_term); |
| 2516 | 2517 | ||
| 2517 | -new_op_scheme(18002460,1, | 2518 | +new_op_scheme(18001948,1, |
| 2518 | type_ByteArray, | 2519 | type_ByteArray, |
| 2519 | cons(new_string("sha1"), | 2520 | cons(new_string("sha1"), |
| 2520 | nil), | 2521 | nil), |
| @@ -2533,7 +2534,7 @@ noname), | @@ -2533,7 +2534,7 @@ noname), | ||
| 2533 | nil)), | 2534 | nil)), |
| 2534 | nil),0,1); | 2535 | nil),0,1); |
| 2535 | 2536 | ||
| 2536 | -new_op_scheme(18015246,0, | 2537 | +new_op_scheme(18014734,0, |
| 2537 | new_string("£BlowfishKey"), | 2538 | new_string("£BlowfishKey"), |
| 2538 | cons(new_string("£create_blowfish_key"), | 2539 | cons(new_string("£create_blowfish_key"), |
| 2539 | nil), | 2540 | nil), |
| @@ -2542,7 +2543,7 @@ new_string("key")), | @@ -2542,7 +2543,7 @@ new_string("key")), | ||
| 2542 | nil), | 2543 | nil), |
| 2543 | no_term); | 2544 | no_term); |
| 2544 | 2545 | ||
| 2545 | -new_op_scheme(18019854,0, | 2546 | +new_op_scheme(18019342,0, |
| 2546 | new_string("One"), | 2547 | new_string("One"), |
| 2547 | cons(new_string("£blowfish_encrypt_block"), | 2548 | cons(new_string("£blowfish_encrypt_block"), |
| 2548 | nil), | 2549 | nil), |
| @@ -2557,7 +2558,7 @@ new_string("offset")), | @@ -2557,7 +2558,7 @@ new_string("offset")), | ||
| 2557 | nil)))), | 2558 | nil)))), |
| 2558 | no_term); | 2559 | no_term); |
| 2559 | 2560 | ||
| 2560 | -new_op_scheme(18023950,0, | 2561 | +new_op_scheme(18023438,0, |
| 2561 | new_string("One"), | 2562 | new_string("One"), |
| 2562 | cons(new_string("£blowfish_decrypt_block"), | 2563 | cons(new_string("£blowfish_decrypt_block"), |
| 2563 | nil), | 2564 | nil), |
| @@ -2572,7 +2573,7 @@ new_string("offset")), | @@ -2572,7 +2573,7 @@ new_string("offset")), | ||
| 2572 | nil)))), | 2573 | nil)))), |
| 2573 | no_term); | 2574 | no_term); |
| 2574 | 2575 | ||
| 2575 | -new_op_scheme(18028046,0, | 2576 | +new_op_scheme(18027534,0, |
| 2576 | type_ByteArray, | 2577 | type_ByteArray, |
| 2577 | cons(new_string("£make_blowfish_dest_for_encryption"), | 2578 | cons(new_string("£make_blowfish_dest_for_encryption"), |
| 2578 | nil), | 2579 | nil), |
| @@ -2581,7 +2582,7 @@ new_string("size")), | @@ -2581,7 +2582,7 @@ new_string("size")), | ||
| 2581 | nil), | 2582 | nil), |
| 2582 | no_term); | 2583 | no_term); |
| 2583 | 2584 | ||
| 2584 | -new_op_scheme(18035726,0, | 2585 | +new_op_scheme(18035214,0, |
| 2585 | new_string("Int8"), | 2586 | new_string("Int8"), |
| 2586 | cons(new_string("£bytes_in_last_block"), | 2587 | cons(new_string("£bytes_in_last_block"), |
| 2587 | nil), | 2588 | nil), |
| @@ -2590,7 +2591,7 @@ new_string("s")), | @@ -2590,7 +2591,7 @@ new_string("s")), | ||
| 2590 | nil), | 2591 | nil), |
| 2591 | no_term); | 2592 | no_term); |
| 2592 | 2593 | ||
| 2593 | -new_op_scheme(18040334,0, | 2594 | +new_op_scheme(18039822,0, |
| 2594 | type_ByteArray, | 2595 | type_ByteArray, |
| 2595 | cons(new_string("£blowfish_encrypt"), | 2596 | cons(new_string("£blowfish_encrypt"), |
| 2596 | nil), | 2597 | nil), |
| @@ -2605,7 +2606,7 @@ new_string("i")), | @@ -2605,7 +2606,7 @@ new_string("i")), | ||
| 2605 | nil)))), | 2606 | nil)))), |
| 2606 | no_term); | 2607 | no_term); |
| 2607 | 2608 | ||
| 2608 | -new_op_scheme(18048014,0, | 2609 | +new_op_scheme(18047502,0, |
| 2609 | type_ByteArray, | 2610 | type_ByteArray, |
| 2610 | cons(new_string("£blowfish_decrypt"), | 2611 | cons(new_string("£blowfish_decrypt"), |
| 2611 | nil), | 2612 | nil), |
| @@ -2620,7 +2621,7 @@ new_string("i")), | @@ -2620,7 +2621,7 @@ new_string("i")), | ||
| 2620 | nil)))), | 2621 | nil)))), |
| 2621 | no_term); | 2622 | no_term); |
| 2622 | 2623 | ||
| 2623 | -new_op_scheme(18057244,1, | 2624 | +new_op_scheme(18056732,1, |
| 2624 | type_ByteArray, | 2625 | type_ByteArray, |
| 2625 | cons(new_string("blowfish_encrypt"), | 2626 | cons(new_string("blowfish_encrypt"), |
| 2626 | nil), | 2627 | nil), |
| @@ -2631,7 +2632,7 @@ new_string("datum")), | @@ -2631,7 +2632,7 @@ new_string("datum")), | ||
| 2631 | nil)), | 2632 | nil)), |
| 2632 | no_term); | 2633 | no_term); |
| 2633 | 2634 | ||
| 2634 | -new_op_scheme(18062364,1, | 2635 | +new_op_scheme(18061852,1, |
| 2635 | cons(app_ts, | 2636 | cons(app_ts, |
| 2636 | cons(new_string("Maybe"), | 2637 | cons(new_string("Maybe"), |
| 2637 | cons(new_utvar("T"), | 2638 | cons(new_utvar("T"), |
| @@ -2691,7 +2692,7 @@ noname), | @@ -2691,7 +2692,7 @@ noname), | ||
| 2691 | nil)), | 2692 | nil)), |
| 2692 | nil),0,1); | 2693 | nil),0,1); |
| 2693 | 2694 | ||
| 2694 | -new_op_scheme(18113038,0, | 2695 | +new_op_scheme(18112526,0, |
| 2695 | type_String, | 2696 | type_String, |
| 2696 | cons(new_string("£to_string"), | 2697 | cons(new_string("£to_string"), |
| 2697 | nil), | 2698 | nil), |
| @@ -2701,7 +2702,7 @@ new_string("ptr")), | @@ -2701,7 +2702,7 @@ new_string("ptr")), | ||
| 2701 | nil), | 2702 | nil), |
| 2702 | no_term); | 2703 | no_term); |
| 2703 | 2704 | ||
| 2704 | -new_op_scheme(18116124,1, | 2705 | +new_op_scheme(18115612,1, |
| 2705 | type_String, | 2706 | type_String, |
| 2706 | cons(new_string("to_string"), | 2707 | cons(new_string("to_string"), |
| 2707 | nil), | 2708 | nil), |
| @@ -2730,7 +2731,7 @@ nil), | @@ -2730,7 +2731,7 @@ nil), | ||
| 2730 | nil), | 2731 | nil), |
| 2731 | nil))))),0,1); | 2732 | nil))))),0,1); |
| 2732 | 2733 | ||
| 2733 | -new_op_scheme(18126862,0, | 2734 | +new_op_scheme(18126350,0, |
| 2734 | new_string("Result_trust_X509_for_ever"), | 2735 | new_string("Result_trust_X509_for_ever"), |
| 2735 | cons(new_string("£trust_for_ever"), | 2736 | cons(new_string("£trust_for_ever"), |
| 2736 | nil), | 2737 | nil), |
| @@ -2740,7 +2741,7 @@ new_string("ptr")), | @@ -2740,7 +2741,7 @@ new_string("ptr")), | ||
| 2740 | nil), | 2741 | nil), |
| 2741 | no_term); | 2742 | no_term); |
| 2742 | 2743 | ||
| 2743 | -new_op_scheme(18129948,1, | 2744 | +new_op_scheme(18129436,1, |
| 2744 | new_string("Result_trust_X509_for_ever"), | 2745 | new_string("Result_trust_X509_for_ever"), |
| 2745 | cons(new_string("trust_for_ever"), | 2746 | cons(new_string("trust_for_ever"), |
| 2746 | nil), | 2747 | nil), |
| @@ -2766,7 +2767,7 @@ noname), | @@ -2766,7 +2767,7 @@ noname), | ||
| 2766 | nil)), | 2767 | nil)), |
| 2767 | nil))),0,1); | 2768 | nil))),0,1); |
| 2768 | 2769 | ||
| 2769 | -new_op_scheme(18143758,0, | 2770 | +new_op_scheme(18143246,0, |
| 2770 | new_string("£SSL_client_wrap_Result"), | 2771 | new_string("£SSL_client_wrap_Result"), |
| 2771 | cons(new_string("£ssl_client_wrap"), | 2772 | cons(new_string("£ssl_client_wrap"), |
| 2772 | nil), | 2773 | nil), |
| @@ -2776,7 +2777,7 @@ new_string("tcp_conn")), | @@ -2776,7 +2777,7 @@ new_string("tcp_conn")), | ||
| 2776 | nil), | 2777 | nil), |
| 2777 | no_term); | 2778 | no_term); |
| 2778 | 2779 | ||
| 2779 | -new_op_scheme(18147854,0, | 2780 | +new_op_scheme(18147342,0, |
| 2780 | new_string("Bool"), | 2781 | new_string("Bool"), |
| 2781 | cons(new_string("£check_certificate_chain"), | 2782 | cons(new_string("£check_certificate_chain"), |
| 2782 | nil), | 2783 | nil), |
| @@ -2788,7 +2789,7 @@ new_string("server_name")), | @@ -2788,7 +2789,7 @@ new_string("server_name")), | ||
| 2788 | nil)), | 2789 | nil)), |
| 2789 | no_term); | 2790 | no_term); |
| 2790 | 2791 | ||
| 2791 | -new_op_scheme(18151438,0, | 2792 | +new_op_scheme(18150926,0, |
| 2792 | cons(app_ts, | 2793 | cons(app_ts, |
| 2793 | cons(new_string("Maybe"), | 2794 | cons(new_string("Maybe"), |
| 2794 | cons(new_string("X509"), | 2795 | cons(new_string("X509"), |
| @@ -2801,7 +2802,7 @@ new_string("ssl_obj")), | @@ -2801,7 +2802,7 @@ new_string("ssl_obj")), | ||
| 2801 | nil), | 2802 | nil), |
| 2802 | no_term); | 2803 | no_term); |
| 2803 | 2804 | ||
| 2804 | -new_op_scheme(18155548,1, | 2805 | +new_op_scheme(18155036,1, |
| 2805 | cons(app_ts, | 2806 | cons(app_ts, |
| 2806 | cons(new_string("Result"), | 2807 | cons(new_string("Result"), |
| 2807 | cons(new_string("SSLConnectError"), | 2808 | cons(new_string("SSLConnectError"), |
| @@ -2826,7 +2827,7 @@ new_string("accept_policy")), | @@ -2826,7 +2827,7 @@ new_string("accept_policy")), | ||
| 2826 | nil)))), | 2827 | nil)))), |
| 2827 | no_term); | 2828 | no_term); |
| 2828 | 2829 | ||
| 2829 | -new_op_scheme(18176028,1, | 2830 | +new_op_scheme(18175516,1, |
| 2830 | cons(app_ts, | 2831 | cons(app_ts, |
| 2831 | cons(new_string("Maybe"), | 2832 | cons(new_string("Maybe"), |
| 2832 | cons(type_ByteArray, | 2833 | cons(type_ByteArray, |
| @@ -2842,7 +2843,7 @@ new_string("timeout")), | @@ -2842,7 +2843,7 @@ new_string("timeout")), | ||
| 2842 | nil))), | 2843 | nil))), |
| 2843 | no_term); | 2844 | no_term); |
| 2844 | 2845 | ||
| 2845 | -new_op_scheme(18180124,1, | 2846 | +new_op_scheme(18179612,1, |
| 2846 | cons(app_ts, | 2847 | cons(app_ts, |
| 2847 | cons(new_string("Maybe"), | 2848 | cons(new_string("Maybe"), |
| 2848 | cons(type_String, | 2849 | cons(type_String, |
| @@ -2858,7 +2859,7 @@ new_string("timeout")), | @@ -2858,7 +2859,7 @@ new_string("timeout")), | ||
| 2858 | nil))), | 2859 | nil))), |
| 2859 | no_term); | 2860 | no_term); |
| 2860 | 2861 | ||
| 2861 | -new_op_scheme(18186268,1, | 2862 | +new_op_scheme(18185756,1, |
| 2862 | cons(app_ts, | 2863 | cons(app_ts, |
| 2863 | cons(new_string("Maybe"), | 2864 | cons(new_string("Maybe"), |
| 2864 | cons(type_Int32, | 2865 | cons(type_Int32, |
| @@ -2872,7 +2873,7 @@ new_string("data")), | @@ -2872,7 +2873,7 @@ new_string("data")), | ||
| 2872 | nil)), | 2873 | nil)), |
| 2873 | no_term); | 2874 | no_term); |
| 2874 | 2875 | ||
| 2875 | -new_op_scheme(18189852,1, | 2876 | +new_op_scheme(18189340,1, |
| 2876 | cons(app_ts, | 2877 | cons(app_ts, |
| 2877 | cons(new_string("Maybe"), | 2878 | cons(new_string("Maybe"), |
| 2878 | cons(type_Int32, | 2879 | cons(type_Int32, |
| @@ -2886,7 +2887,7 @@ new_string("data")), | @@ -2886,7 +2887,7 @@ new_string("data")), | ||
| 2886 | nil)), | 2887 | nil)), |
| 2887 | no_term); | 2888 | no_term); |
| 2888 | 2889 | ||
| 2889 | -new_op_scheme(18204686,0, | 2890 | +new_op_scheme(18204174,0, |
| 2890 | cons(app_ts, | 2891 | cons(app_ts, |
| 2891 | cons(new_string("Maybe"), | 2892 | cons(new_string("Maybe"), |
| 2892 | cons(cons(type_struct_ptr, | 2893 | cons(cons(type_struct_ptr, |
| @@ -2900,7 +2901,7 @@ new_string("tcp_conn")), | @@ -2900,7 +2901,7 @@ new_string("tcp_conn")), | ||
| 2900 | nil), | 2901 | nil), |
| 2901 | no_term); | 2902 | no_term); |
| 2902 | 2903 | ||
| 2903 | -new_op_scheme(18208270,0, | 2904 | +new_op_scheme(18207758,0, |
| 2904 | new_string("One"), | 2905 | new_string("One"), |
| 2905 | cons(new_string("£handle_ssl_request"), | 2906 | cons(new_string("£handle_ssl_request"), |
| 2906 | nil), | 2907 | nil), |
| @@ -2917,7 +2918,7 @@ new_string("handler")), | @@ -2917,7 +2918,7 @@ new_string("handler")), | ||
| 2917 | nil))), | 2918 | nil))), |
| 2918 | no_term); | 2919 | no_term); |
| 2919 | 2920 | ||
| 2920 | -new_op_scheme(18215438,0, | 2921 | +new_op_scheme(18214926,0, |
| 2921 | new_string("One"), | 2922 | new_string("One"), |
| 2922 | cons(new_string("£run_ssl_server"), | 2923 | cons(new_string("£run_ssl_server"), |
| 2923 | nil), | 2924 | nil), |
| @@ -2938,7 +2939,7 @@ new_string("notify")), | @@ -2938,7 +2939,7 @@ new_string("notify")), | ||
| 2938 | nil)))), | 2939 | nil)))), |
| 2939 | no_term); | 2940 | no_term); |
| 2940 | 2941 | ||
| 2941 | -new_op_scheme(18227740,1, | 2942 | +new_op_scheme(18227228,1, |
| 2942 | new_string("StartServerResult"), | 2943 | new_string("StartServerResult"), |
| 2943 | cons(new_string("start_ssl_server"), | 2944 | cons(new_string("start_ssl_server"), |
| 2944 | nil), | 2945 | nil), |
| @@ -2964,7 +2965,7 @@ new_string("notify")), | @@ -2964,7 +2965,7 @@ new_string("notify")), | ||
| 2964 | nil))))), | 2965 | nil))))), |
| 2965 | no_term); | 2966 | no_term); |
| 2966 | 2967 | ||
| 2967 | -new_op_scheme(18242076,1, | 2968 | +new_op_scheme(18241564,1, |
| 2968 | cons(app_ts, | 2969 | cons(app_ts, |
| 2969 | cons(new_string("£Tuple2"), | 2970 | cons(new_string("£Tuple2"), |
| 2970 | cons(type_Int32, | 2971 | cons(type_Int32, |
| @@ -2977,7 +2978,7 @@ new_string("connection")), | @@ -2977,7 +2978,7 @@ new_string("connection")), | ||
| 2977 | nil), | 2978 | nil), |
| 2978 | no_term); | 2979 | no_term); |
| 2979 | 2980 | ||
| 2980 | -new_op_scheme(18243100,1, | 2981 | +new_op_scheme(18242588,1, |
| 2981 | cons(app_ts, | 2982 | cons(app_ts, |
| 2982 | cons(new_string("£Tuple2"), | 2983 | cons(new_string("£Tuple2"), |
| 2983 | cons(type_Int32, | 2984 | cons(type_Int32, |
| @@ -2990,7 +2991,7 @@ new_string("connection")), | @@ -2990,7 +2991,7 @@ new_string("connection")), | ||
| 2990 | nil), | 2991 | nil), |
| 2991 | no_term); | 2992 | no_term); |
| 2992 | 2993 | ||
| 2993 | -new_op_scheme(18251278,0, | 2994 | +new_op_scheme(18250766,0, |
| 2994 | type_Int32, | 2995 | type_Int32, |
| 2995 | cons(new_string("£simple_hash"), | 2996 | cons(new_string("£simple_hash"), |
| 2996 | nil), | 2997 | nil), |
| @@ -3001,7 +3002,7 @@ new_string("b")), | @@ -3001,7 +3002,7 @@ new_string("b")), | ||
| 3001 | nil)), | 3002 | nil)), |
| 3002 | no_term); | 3003 | no_term); |
| 3003 | 3004 | ||
| 3004 | -new_op_scheme(18253340,1, | 3005 | +new_op_scheme(18252828,1, |
| 3005 | type_Int32, | 3006 | type_Int32, |
| 3006 | cons(new_string("simple_hash"), | 3007 | cons(new_string("simple_hash"), |
| 3007 | nil), | 3008 | nil), |
| @@ -3040,7 +3041,7 @@ noname), | @@ -3040,7 +3041,7 @@ noname), | ||
| 3040 | nil)))), | 3041 | nil)))), |
| 3041 | nil),0,1); | 3042 | nil),0,1); |
| 3042 | 3043 | ||
| 3043 | -new_op_scheme(18285596,1, | 3044 | +new_op_scheme(18285084,1, |
| 3044 | new_string("RGBAImage"), | 3045 | new_string("RGBAImage"), |
| 3045 | cons(new_string("create_rgba_image"), | 3046 | cons(new_string("create_rgba_image"), |
| 3046 | nil), | 3047 | nil), |
| @@ -3053,7 +3054,7 @@ new_string("background")), | @@ -3053,7 +3054,7 @@ new_string("background")), | ||
| 3053 | nil))), | 3054 | nil))), |
| 3054 | no_term); | 3055 | no_term); |
| 3055 | 3056 | ||
| 3056 | -new_op_scheme(18287644,1, | 3057 | +new_op_scheme(18287132,1, |
| 3057 | new_string("BitMapImage"), | 3058 | new_string("BitMapImage"), |
| 3058 | cons(new_string("create_bitmap_image"), | 3059 | cons(new_string("create_bitmap_image"), |
| 3059 | nil), | 3060 | nil), |
| @@ -3066,7 +3067,7 @@ new_string("background")), | @@ -3066,7 +3067,7 @@ new_string("background")), | ||
| 3066 | nil))), | 3067 | nil))), |
| 3067 | no_term); | 3068 | no_term); |
| 3068 | 3069 | ||
| 3069 | -new_op_scheme(18297372,1, | 3070 | +new_op_scheme(18296860,1, |
| 3070 | new_string("One"), | 3071 | new_string("One"), |
| 3071 | cons(new_string("draw_pixel"), | 3072 | cons(new_string("draw_pixel"), |
| 3072 | nil), | 3073 | nil), |
| @@ -3095,7 +3096,7 @@ nil), | @@ -3095,7 +3096,7 @@ nil), | ||
| 3095 | nil), | 3096 | nil), |
| 3096 | nil))),0,1); | 3097 | nil))),0,1); |
| 3097 | 3098 | ||
| 3098 | -new_op_scheme(18320412,1, | 3099 | +new_op_scheme(18319900,1, |
| 3099 | new_string("One"), | 3100 | new_string("One"), |
| 3100 | cons(new_string("draw_pixel"), | 3101 | cons(new_string("draw_pixel"), |
| 3101 | nil), | 3102 | nil), |
| @@ -3110,7 +3111,7 @@ new_string("how")), | @@ -3110,7 +3111,7 @@ new_string("how")), | ||
| 3110 | nil)))), | 3111 | nil)))), |
| 3111 | no_term); | 3112 | no_term); |
| 3112 | 3113 | ||
| 3113 | -new_op_scheme(18333212,1, | 3114 | +new_op_scheme(18332700,1, |
| 3114 | new_string("RGBA"), | 3115 | new_string("RGBA"), |
| 3115 | cons(new_string("get_pixel"), | 3116 | cons(new_string("get_pixel"), |
| 3116 | nil), | 3117 | nil), |
| @@ -3123,7 +3124,7 @@ new_string("y")), | @@ -3123,7 +3124,7 @@ new_string("y")), | ||
| 3123 | nil))), | 3124 | nil))), |
| 3124 | no_term); | 3125 | no_term); |
| 3125 | 3126 | ||
| 3126 | -new_op_scheme(18338844,1, | 3127 | +new_op_scheme(18338332,1, |
| 3127 | new_string("Bit"), | 3128 | new_string("Bit"), |
| 3128 | cons(new_string("get_pixel"), | 3129 | cons(new_string("get_pixel"), |
| 3129 | nil), | 3130 | nil), |
| @@ -3152,7 +3153,7 @@ new_string("v")), | @@ -3152,7 +3153,7 @@ new_string("v")), | ||
| 3152 | nil))))), | 3153 | nil))))), |
| 3153 | nil),0,1); | 3154 | nil),0,1); |
| 3154 | 3155 | ||
| 3155 | -new_op_scheme(18366492,1, | 3156 | +new_op_scheme(18365980,1, |
| 3156 | new_string("One"), | 3157 | new_string("One"), |
| 3157 | cons(new_string("draw_rectangle"), | 3158 | cons(new_string("draw_rectangle"), |
| 3158 | nil), | 3159 | nil), |
| @@ -3165,7 +3166,7 @@ new_string("color_of_rectangle")), | @@ -3165,7 +3166,7 @@ new_string("color_of_rectangle")), | ||
| 3165 | nil))), | 3166 | nil))), |
| 3166 | no_term); | 3167 | no_term); |
| 3167 | 3168 | ||
| 3168 | -new_op_scheme(18372636,1, | 3169 | +new_op_scheme(18372124,1, |
| 3169 | new_string("One"), | 3170 | new_string("One"), |
| 3170 | cons(new_string("draw_rectangle"), | 3171 | cons(new_string("draw_rectangle"), |
| 3171 | nil), | 3172 | nil), |
| @@ -3207,7 +3208,7 @@ nil), | @@ -3207,7 +3208,7 @@ nil), | ||
| 3207 | nil), | 3208 | nil), |
| 3208 | nil)))))))),0,1); | 3209 | nil)))))))),0,1); |
| 3209 | 3210 | ||
| 3210 | -new_op_scheme(18429980,1, | 3211 | +new_op_scheme(18429468,1, |
| 3211 | new_string("One"), | 3212 | new_string("One"), |
| 3212 | cons(new_string("crop_and_encrust"), | 3213 | cons(new_string("crop_and_encrust"), |
| 3213 | nil), | 3214 | nil), |
| @@ -3226,7 +3227,7 @@ new_string("t")), | @@ -3226,7 +3227,7 @@ new_string("t")), | ||
| 3226 | nil)))))), | 3227 | nil)))))), |
| 3227 | no_term); | 3228 | no_term); |
| 3228 | 3229 | ||
| 3229 | -new_op_scheme(18436124,1, | 3230 | +new_op_scheme(18435612,1, |
| 3230 | new_string("One"), | 3231 | new_string("One"), |
| 3231 | cons(new_string("crop_and_encrust"), | 3232 | cons(new_string("crop_and_encrust"), |
| 3232 | nil), | 3233 | nil), |
| @@ -3247,7 +3248,7 @@ new_string("t")), | @@ -3247,7 +3248,7 @@ new_string("t")), | ||
| 3247 | nil))))))), | 3248 | nil))))))), |
| 3248 | no_term); | 3249 | no_term); |
| 3249 | 3250 | ||
| 3250 | -new_op_scheme(18444828,1, | 3251 | +new_op_scheme(18444316,1, |
| 3251 | new_string("One"), | 3252 | new_string("One"), |
| 3252 | cons(new_string("crop_and_encrust"), | 3253 | cons(new_string("crop_and_encrust"), |
| 3253 | nil), | 3254 | nil), |
| @@ -3279,7 +3280,7 @@ noname), | @@ -3279,7 +3280,7 @@ noname), | ||
| 3279 | nil)), | 3280 | nil)), |
| 3280 | nil),0,1); | 3281 | nil),0,1); |
| 3281 | 3282 | ||
| 3282 | -new_op_scheme(18493468,1, | 3283 | +new_op_scheme(18492956,1, |
| 3283 | cons(app_ts, | 3284 | cons(app_ts, |
| 3284 | cons(new_string("Maybe"), | 3285 | cons(new_string("Maybe"), |
| 3285 | cons(new_string("SystemFont"), | 3286 | cons(new_string("SystemFont"), |
| @@ -3291,7 +3292,7 @@ new_string("font_name")), | @@ -3291,7 +3292,7 @@ new_string("font_name")), | ||
| 3291 | nil), | 3292 | nil), |
| 3292 | no_term); | 3293 | no_term); |
| 3293 | 3294 | ||
| 3294 | -new_op_scheme(18513436,1, | 3295 | +new_op_scheme(18512924,1, |
| 3295 | type_Int32, | 3296 | type_Int32, |
| 3296 | cons(new_string("draw_system_character"), | 3297 | cons(new_string("draw_system_character"), |
| 3297 | nil), | 3298 | nil), |
| @@ -3312,7 +3313,7 @@ new_string("character_color")), | @@ -3312,7 +3313,7 @@ new_string("character_color")), | ||
| 3312 | nil))))))), | 3313 | nil))))))), |
| 3313 | no_term); | 3314 | no_term); |
| 3314 | 3315 | ||
| 3315 | -new_op_scheme(18519580,1, | 3316 | +new_op_scheme(18519068,1, |
| 3316 | type_Int32, | 3317 | type_Int32, |
| 3317 | cons(new_string("draw_system_character"), | 3318 | cons(new_string("draw_system_character"), |
| 3318 | nil), | 3319 | nil), |
| @@ -3349,7 +3350,7 @@ new_string("depth")), | @@ -3349,7 +3350,7 @@ new_string("depth")), | ||
| 3349 | nil))))), | 3350 | nil))))), |
| 3350 | nil),0,1); | 3351 | nil),0,1); |
| 3351 | 3352 | ||
| 3352 | -new_op_scheme(18536476,1, | 3353 | +new_op_scheme(18535964,1, |
| 3353 | new_string("SystemFontInfo"), | 3354 | new_string("SystemFontInfo"), |
| 3354 | cons(new_string("get_font_info"), | 3355 | cons(new_string("get_font_info"), |
| 3355 | nil), | 3356 | nil), |
| @@ -3372,7 +3373,7 @@ new_string("width")), | @@ -3372,7 +3373,7 @@ new_string("width")), | ||
| 3372 | nil)))), | 3373 | nil)))), |
| 3373 | nil),0,1); | 3374 | nil),0,1); |
| 3374 | 3375 | ||
| 3375 | -new_op_scheme(18541596,1, | 3376 | +new_op_scheme(18541084,1, |
| 3376 | new_string("SystemCharacterInfo"), | 3377 | new_string("SystemCharacterInfo"), |
| 3377 | cons(new_string("get_char_info"), | 3378 | cons(new_string("get_char_info"), |
| 3378 | nil), | 3379 | nil), |
| @@ -3394,7 +3395,7 @@ noname), | @@ -3394,7 +3395,7 @@ noname), | ||
| 3394 | nil)), | 3395 | nil)), |
| 3395 | nil),0,1); | 3396 | nil),0,1); |
| 3396 | 3397 | ||
| 3397 | -new_op_scheme(18552860,1, | 3398 | +new_op_scheme(18552348,1, |
| 3398 | cons(app_ts, | 3399 | cons(app_ts, |
| 3399 | cons(new_string("£Tuple2"), | 3400 | cons(new_string("£Tuple2"), |
| 3400 | cons(type_Int32, | 3401 | cons(type_Int32, |
| @@ -3407,7 +3408,7 @@ new_string("im")), | @@ -3407,7 +3408,7 @@ new_string("im")), | ||
| 3407 | nil), | 3408 | nil), |
| 3408 | no_term); | 3409 | no_term); |
| 3409 | 3410 | ||
| 3410 | -new_op_scheme(18557468,1, | 3411 | +new_op_scheme(18556956,1, |
| 3411 | new_string("HostImage"), | 3412 | new_string("HostImage"), |
| 3412 | cons(new_string("to_host_image"), | 3413 | cons(new_string("to_host_image"), |
| 3413 | nil), | 3414 | nil), |
| @@ -3418,7 +3419,7 @@ new_string("reduction_factor")), | @@ -3418,7 +3419,7 @@ new_string("reduction_factor")), | ||
| 3418 | nil)), | 3419 | nil)), |
| 3419 | no_term); | 3420 | no_term); |
| 3420 | 3421 | ||
| 3421 | -new_op_scheme(18561564,1, | 3422 | +new_op_scheme(18561052,1, |
| 3422 | new_string("One"), | 3423 | new_string("One"), |
| 3423 | cons(new_string("draw_pixel"), | 3424 | cons(new_string("draw_pixel"), |
| 3424 | nil), | 3425 | nil), |
| @@ -3433,7 +3434,7 @@ new_string("color")), | @@ -3433,7 +3434,7 @@ new_string("color")), | ||
| 3433 | nil)))), | 3434 | nil)))), |
| 3434 | no_term); | 3435 | no_term); |
| 3435 | 3436 | ||
| 3436 | -new_op_scheme(18566684,1, | 3437 | +new_op_scheme(18566172,1, |
| 3437 | new_string("One"), | 3438 | new_string("One"), |
| 3438 | cons(new_string("draw_rectangle"), | 3439 | cons(new_string("draw_rectangle"), |
| 3439 | nil), | 3440 | nil), |
| @@ -3446,7 +3447,7 @@ new_string("color_of_rectangle")), | @@ -3446,7 +3447,7 @@ new_string("color_of_rectangle")), | ||
| 3446 | nil))), | 3447 | nil))), |
| 3447 | no_term); | 3448 | no_term); |
| 3448 | 3449 | ||
| 3449 | -new_op_scheme(18571292,1, | 3450 | +new_op_scheme(18570780,1, |
| 3450 | type_Int32, | 3451 | type_Int32, |
| 3451 | cons(new_string("draw_system_character"), | 3452 | cons(new_string("draw_system_character"), |
| 3452 | nil), | 3453 | nil), |
| @@ -3494,7 +3495,7 @@ new_string("samples")), | @@ -3494,7 +3495,7 @@ new_string("samples")), | ||
| 3494 | nil))))), | 3495 | nil))))), |
| 3495 | nil),0,1); | 3496 | nil),0,1); |
| 3496 | 3497 | ||
| 3497 | -new_op_scheme(18597916,1, | 3498 | +new_op_scheme(18597404,1, |
| 3498 | new_string("HostImage"), | 3499 | new_string("HostImage"), |
| 3499 | cons(new_string("to_host_image"), | 3500 | cons(new_string("to_host_image"), |
| 3500 | nil), | 3501 | nil), |
| @@ -3505,7 +3506,7 @@ new_string("reducing_factor")), | @@ -3505,7 +3506,7 @@ new_string("reducing_factor")), | ||
| 3505 | nil)), | 3506 | nil)), |
| 3506 | no_term); | 3507 | no_term); |
| 3507 | 3508 | ||
| 3508 | -new_op_scheme(18610204,1, | 3509 | +new_op_scheme(18609692,1, |
| 3509 | new_string("RGBAImage"), | 3510 | new_string("RGBAImage"), |
| 3510 | cons(new_string("to_RGBA"), | 3511 | cons(new_string("to_RGBA"), |
| 3511 | nil), | 3512 | nil), |
| @@ -3516,7 +3517,7 @@ new_string("reducing_factor")), | @@ -3516,7 +3517,7 @@ new_string("reducing_factor")), | ||
| 3516 | nil)), | 3517 | nil)), |
| 3517 | no_term); | 3518 | no_term); |
| 3518 | 3519 | ||
| 3519 | -new_op_scheme(18614812,1, | 3520 | +new_op_scheme(18614300,1, |
| 3520 | new_string("JPEG_BitMapImage"), | 3521 | new_string("JPEG_BitMapImage"), |
| 3521 | cons(new_string("to_JPEG"), | 3522 | cons(new_string("to_JPEG"), |
| 3522 | nil), | 3523 | nil), |
| @@ -3537,7 +3538,7 @@ new_string("jpeg_error_mgr")), | @@ -3537,7 +3538,7 @@ new_string("jpeg_error_mgr")), | ||
| 3537 | nil))), | 3538 | nil))), |
| 3538 | nil),0,1); | 3539 | nil),0,1); |
| 3539 | 3540 | ||
| 3540 | -new_op_scheme(18624526,0, | 3541 | +new_op_scheme(18624014,0, |
| 3541 | cons(app_ts, | 3542 | cons(app_ts, |
| 3542 | cons(new_string("Maybe"), | 3543 | cons(new_string("Maybe"), |
| 3543 | cons(new_string("£JPEG_compress_info"), | 3544 | cons(new_string("£JPEG_compress_info"), |
| @@ -3558,7 +3559,7 @@ new_string("output_file")), | @@ -3558,7 +3559,7 @@ new_string("output_file")), | ||
| 3558 | nil))))), | 3559 | nil))))), |
| 3559 | no_term); | 3560 | no_term); |
| 3560 | 3561 | ||
| 3561 | -new_op_scheme(18631182,0, | 3562 | +new_op_scheme(18630670,0, |
| 3562 | new_string("One"), | 3563 | new_string("One"), |
| 3563 | cons(new_string("£jpeg_write_scanline"), | 3564 | cons(new_string("£jpeg_write_scanline"), |
| 3564 | nil), | 3565 | nil), |
| @@ -3571,7 +3572,7 @@ new_string("start")), | @@ -3571,7 +3572,7 @@ new_string("start")), | ||
| 3571 | nil))), | 3572 | nil))), |
| 3572 | no_term); | 3573 | no_term); |
| 3573 | 3574 | ||
| 3574 | -new_op_scheme(18636814,0, | 3575 | +new_op_scheme(18636302,0, |
| 3575 | new_string("One"), | 3576 | new_string("One"), |
| 3576 | cons(new_string("£jpeg_write_scanlines"), | 3577 | cons(new_string("£jpeg_write_scanlines"), |
| 3577 | nil), | 3578 | nil), |
| @@ -3588,7 +3589,7 @@ new_string("i")), | @@ -3588,7 +3589,7 @@ new_string("i")), | ||
| 3588 | nil))))), | 3589 | nil))))), |
| 3589 | no_term); | 3590 | no_term); |
| 3590 | 3591 | ||
| 3591 | -new_op_scheme(18644494,0, | 3592 | +new_op_scheme(18643982,0, |
| 3592 | new_string("One"), | 3593 | new_string("One"), |
| 3593 | cons(new_string("£jpeg_finish_compress"), | 3594 | cons(new_string("£jpeg_finish_compress"), |
| 3594 | nil), | 3595 | nil), |
| @@ -3611,7 +3612,7 @@ nil), | @@ -3611,7 +3612,7 @@ nil), | ||
| 3611 | nil), | 3612 | nil), |
| 3612 | nil))),0,1); | 3613 | nil))),0,1); |
| 3613 | 3614 | ||
| 3614 | -new_op_scheme(18652188,1, | 3615 | +new_op_scheme(18651676,1, |
| 3615 | new_string("Result_JPEG_write"), | 3616 | new_string("Result_JPEG_write"), |
| 3616 | cons(new_string("write_image_to_JPEG_file"), | 3617 | cons(new_string("write_image_to_JPEG_file"), |
| 3617 | nil), | 3618 | nil), |
| @@ -3636,7 +3637,7 @@ new_string("jpeg_error_mgr")), | @@ -3636,7 +3637,7 @@ new_string("jpeg_error_mgr")), | ||
| 3636 | nil))), | 3637 | nil))), |
| 3637 | nil),0,1); | 3638 | nil),0,1); |
| 3638 | 3639 | ||
| 3639 | -new_op_scheme(18669582,0, | 3640 | +new_op_scheme(18669070,0, |
| 3640 | cons(app_ts, | 3641 | cons(app_ts, |
| 3641 | cons(new_string("Maybe"), | 3642 | cons(new_string("Maybe"), |
| 3642 | cons(new_string("£JPEG_decompress_info"), | 3643 | cons(new_string("£JPEG_decompress_info"), |
| @@ -3666,7 +3667,7 @@ noname), | @@ -3666,7 +3667,7 @@ noname), | ||
| 3666 | nil)))), | 3667 | nil)))), |
| 3667 | nil),0,1); | 3668 | nil),0,1); |
| 3668 | 3669 | ||
| 3669 | -new_op_scheme(18674190,0, | 3670 | +new_op_scheme(18673678,0, |
| 3670 | cons(app_ts, | 3671 | cons(app_ts, |
| 3671 | cons(new_string("£Tuple3"), | 3672 | cons(new_string("£Tuple3"), |
| 3672 | cons(type_Int32, | 3673 | cons(type_Int32, |
| @@ -3680,7 +3681,7 @@ new_string("cinfo")), | @@ -3680,7 +3681,7 @@ new_string("cinfo")), | ||
| 3680 | nil), | 3681 | nil), |
| 3681 | no_term); | 3682 | no_term); |
| 3682 | 3683 | ||
| 3683 | -new_op_scheme(18679822,0, | 3684 | +new_op_scheme(18679310,0, |
| 3684 | cons(app_ts, | 3685 | cons(app_ts, |
| 3685 | cons(new_string("Maybe"), | 3686 | cons(new_string("Maybe"), |
| 3686 | cons(new_string("One"), | 3687 | cons(new_string("One"), |
| @@ -3696,7 +3697,7 @@ new_string("offset")), | @@ -3696,7 +3697,7 @@ new_string("offset")), | ||
| 3696 | nil))), | 3697 | nil))), |
| 3697 | no_term); | 3698 | no_term); |
| 3698 | 3699 | ||
| 3699 | -new_op_scheme(18685454,0, | 3700 | +new_op_scheme(18684942,0, |
| 3700 | new_string("One"), | 3701 | new_string("One"), |
| 3701 | cons(new_string("£jpeg_read_scanlines"), | 3702 | cons(new_string("£jpeg_read_scanlines"), |
| 3702 | nil), | 3703 | nil), |
| @@ -3713,7 +3714,7 @@ new_string("offset")), | @@ -3713,7 +3714,7 @@ new_string("offset")), | ||
| 3713 | nil))))), | 3714 | nil))))), |
| 3714 | no_term); | 3715 | no_term); |
| 3715 | 3716 | ||
| 3716 | -new_op_scheme(18695182,0, | 3717 | +new_op_scheme(18694670,0, |
| 3717 | new_string("One"), | 3718 | new_string("One"), |
| 3718 | cons(new_string("£jpeg_finish_decompress"), | 3719 | cons(new_string("£jpeg_finish_decompress"), |
| 3719 | nil), | 3720 | nil), |
| @@ -3738,7 +3739,7 @@ noname), | @@ -3738,7 +3739,7 @@ noname), | ||
| 3738 | nil)), | 3739 | nil)), |
| 3739 | nil))),0,1); | 3740 | nil))),0,1); |
| 3740 | 3741 | ||
| 3741 | -new_op_scheme(18702876,1, | 3742 | +new_op_scheme(18702364,1, |
| 3742 | new_string("Result_JPEG_read"), | 3743 | new_string("Result_JPEG_read"), |
| 3743 | cons(new_string("read_image_from_JPEG_file"), | 3744 | cons(new_string("read_image_from_JPEG_file"), |
| 3744 | nil), | 3745 | nil), |
| @@ -3976,7 +3977,7 @@ new_string("£gc")), | @@ -3976,7 +3977,7 @@ new_string("£gc")), | ||
| 3976 | nil))), | 3977 | nil))), |
| 3977 | nil),0,1); | 3978 | nil),0,1); |
| 3978 | 3979 | ||
| 3979 | -new_op_scheme(18765852,1, | 3980 | +new_op_scheme(18765340,1, |
| 3980 | cons(app_ts, | 3981 | cons(app_ts, |
| 3981 | cons(new_string("£Tuple2"), | 3982 | cons(new_string("£Tuple2"), |
| 3982 | cons(type_Int32, | 3983 | cons(type_Int32, |
| @@ -3989,7 +3990,7 @@ new_string("hw")), | @@ -3989,7 +3990,7 @@ new_string("hw")), | ||
| 3989 | nil), | 3990 | nil), |
| 3990 | no_term); | 3991 | no_term); |
| 3991 | 3992 | ||
| 3992 | -new_op_scheme(18770460,1, | 3993 | +new_op_scheme(18769948,1, |
| 3993 | cons(app_ts, | 3994 | cons(app_ts, |
| 3994 | cons(new_string("£Tuple2"), | 3995 | cons(new_string("£Tuple2"), |
| 3995 | cons(type_Int32, | 3996 | cons(type_Int32, |
| @@ -4000,7 +4001,7 @@ nil), | @@ -4000,7 +4001,7 @@ nil), | ||
| 4000 | nil, | 4001 | nil, |
| 4001 | no_term); | 4002 | no_term); |
| 4002 | 4003 | ||
| 4003 | -new_op_scheme(18774556,1, | 4004 | +new_op_scheme(18774044,1, |
| 4004 | new_string("One"), | 4005 | new_string("One"), |
| 4005 | cons(new_string("change_title"), | 4006 | cons(new_string("change_title"), |
| 4006 | nil), | 4007 | nil), |
| @@ -4011,7 +4012,7 @@ new_string("new_title")), | @@ -4011,7 +4012,7 @@ new_string("new_title")), | ||
| 4011 | nil)), | 4012 | nil)), |
| 4012 | no_term); | 4013 | no_term); |
| 4013 | 4014 | ||
| 4014 | -new_op_scheme(18783758,0, | 4015 | +new_op_scheme(18783246,0, |
| 4015 | new_string("Bool"), | 4016 | new_string("Bool"), |
| 4016 | cons(new_string("£window_event_pending"), | 4017 | cons(new_string("£window_event_pending"), |
| 4017 | nil), | 4018 | nil), |
| @@ -4021,7 +4022,7 @@ new_string("handle")), | @@ -4021,7 +4022,7 @@ new_string("handle")), | ||
| 4021 | nil), | 4022 | nil), |
| 4022 | no_term); | 4023 | no_term); |
| 4023 | 4024 | ||
| 4024 | -new_op_scheme(18789390,0, | 4025 | +new_op_scheme(18788878,0, |
| 4025 | cons(app_ts, | 4026 | cons(app_ts, |
| 4026 | cons(new_string("HostWindowEvent"), | 4027 | cons(new_string("HostWindowEvent"), |
| 4027 | cons(new_utvar("E"), | 4028 | cons(new_utvar("E"), |
| @@ -4034,7 +4035,7 @@ new_string("handle")), | @@ -4034,7 +4035,7 @@ new_string("handle")), | ||
| 4034 | nil), | 4035 | nil), |
| 4035 | no_term); | 4036 | no_term); |
| 4036 | 4037 | ||
| 4037 | -new_op_scheme(18797070,0, | 4038 | +new_op_scheme(18796558,0, |
| 4038 | cons(app_ts, | 4039 | cons(app_ts, |
| 4039 | cons(new_string("List"), | 4040 | cons(new_string("List"), |
| 4040 | cons(cons(app_ts, | 4041 | cons(cons(app_ts, |
| @@ -4050,7 +4051,7 @@ new_string("handle")), | @@ -4050,7 +4051,7 @@ new_string("handle")), | ||
| 4050 | nil), | 4051 | nil), |
| 4051 | no_term); | 4052 | no_term); |
| 4052 | 4053 | ||
| 4053 | -new_op_scheme(18804750,0, | 4054 | +new_op_scheme(18804238,0, |
| 4054 | new_string("Bool"), | 4055 | new_string("Bool"), |
| 4055 | cons(new_string("£default_host_window_handling"), | 4056 | cons(new_string("£default_host_window_handling"), |
| 4056 | nil), | 4057 | nil), |
| @@ -4090,7 +4091,7 @@ new_string("event_handler")), | @@ -4090,7 +4091,7 @@ new_string("event_handler")), | ||
| 4090 | nil))))), | 4091 | nil))))), |
| 4091 | no_term); | 4092 | no_term); |
| 4092 | 4093 | ||
| 4093 | -new_op_scheme(18811406,0, | 4094 | +new_op_scheme(18810894,0, |
| 4094 | new_string("One"), | 4095 | new_string("One"), |
| 4095 | cons(new_string("£begin_paint"), | 4096 | cons(new_string("£begin_paint"), |
| 4096 | nil), | 4097 | nil), |
| @@ -4099,7 +4100,7 @@ new_string("window")), | @@ -4099,7 +4100,7 @@ new_string("window")), | ||
| 4099 | nil), | 4100 | nil), |
| 4100 | no_term); | 4101 | no_term); |
| 4101 | 4102 | ||
| 4102 | -new_op_scheme(18814990,0, | 4103 | +new_op_scheme(18814478,0, |
| 4103 | new_string("One"), | 4104 | new_string("One"), |
| 4104 | cons(new_string("£end_paint"), | 4105 | cons(new_string("£end_paint"), |
| 4105 | nil), | 4106 | nil), |
| @@ -4108,7 +4109,7 @@ new_string("window")), | @@ -4108,7 +4109,7 @@ new_string("window")), | ||
| 4108 | nil), | 4109 | nil), |
| 4109 | no_term); | 4110 | no_term); |
| 4110 | 4111 | ||
| 4111 | -new_op_scheme(18819086,0, | 4112 | +new_op_scheme(18818574,0, |
| 4112 | new_string("Bool"), | 4113 | new_string("Bool"), |
| 4113 | cons(new_string("£handle_host_window_events"), | 4114 | cons(new_string("£handle_host_window_events"), |
| 4114 | nil), | 4115 | nil), |
| @@ -4143,7 +4144,7 @@ new_string("eh")), | @@ -4143,7 +4144,7 @@ new_string("eh")), | ||
| 4143 | nil)))), | 4144 | nil)))), |
| 4144 | no_term); | 4145 | no_term); |
| 4145 | 4146 | ||
| 4146 | -new_op_scheme(18835982,0, | 4147 | +new_op_scheme(18835470,0, |
| 4147 | new_string("Bool"), | 4148 | new_string("Bool"), |
| 4148 | cons(new_string("£default_host_window_handling"), | 4149 | cons(new_string("£default_host_window_handling"), |
| 4149 | nil), | 4150 | nil), |
| @@ -4183,7 +4184,7 @@ new_string("event_handler")), | @@ -4183,7 +4184,7 @@ new_string("event_handler")), | ||
| 4183 | nil))))), | 4184 | nil))))), |
| 4184 | no_term); | 4185 | no_term); |
| 4185 | 4186 | ||
| 4186 | -new_op_scheme(18845212,1, | 4187 | +new_op_scheme(18844700,1, |
| 4187 | new_string("One"), | 4188 | new_string("One"), |
| 4188 | cons(new_string("generic_host_window_handler"), | 4189 | cons(new_string("generic_host_window_handler"), |
| 4189 | nil), | 4190 | nil), |
| @@ -4238,7 +4239,7 @@ nil), | @@ -4238,7 +4239,7 @@ nil), | ||
| 4238 | nil), | 4239 | nil), |
| 4239 | nil)),0,1); | 4240 | nil)),0,1); |
| 4240 | 4241 | ||
| 4241 | -new_op_scheme(18860558,0, | 4242 | +new_op_scheme(18860046,0, |
| 4242 | cons(app_ts, | 4243 | cons(app_ts, |
| 4243 | cons(new_string("Maybe"), | 4244 | cons(new_string("Maybe"), |
| 4244 | cons(cons(app_ts, | 4245 | cons(cons(app_ts, |
| @@ -4266,7 +4267,7 @@ new_string("sort")), | @@ -4266,7 +4267,7 @@ new_string("sort")), | ||
| 4266 | nil)))))), | 4267 | nil)))))), |
| 4267 | no_term); | 4268 | no_term); |
| 4268 | 4269 | ||
| 4269 | -new_op_scheme(18868764,1, | 4270 | +new_op_scheme(18868252,1, |
| 4270 | cons(app_ts, | 4271 | cons(app_ts, |
| 4271 | cons(new_string("Maybe"), | 4272 | cons(new_string("Maybe"), |
| 4272 | cons(new_string("HostWindow"), | 4273 | cons(new_string("HostWindow"), |
| @@ -4317,7 +4318,7 @@ new_string("compress")), | @@ -4317,7 +4318,7 @@ new_string("compress")), | ||
| 4317 | nil)))))), | 4318 | nil)))))), |
| 4318 | no_term); | 4319 | no_term); |
| 4319 | 4320 | ||
| 4320 | -new_op_scheme(18885148,1, | 4321 | +new_op_scheme(18884636,1, |
| 4321 | new_string("One"), | 4322 | new_string("One"), |
| 4322 | cons(new_string("show"), | 4323 | cons(new_string("show"), |
| 4323 | nil), | 4324 | nil), |
| @@ -4326,7 +4327,7 @@ new_string("win")), | @@ -4326,7 +4327,7 @@ new_string("win")), | ||
| 4326 | nil), | 4327 | nil), |
| 4327 | no_term); | 4328 | no_term); |
| 4328 | 4329 | ||
| 4329 | -new_op_scheme(18889244,1, | 4330 | +new_op_scheme(18888732,1, |
| 4330 | new_string("One"), | 4331 | new_string("One"), |
| 4331 | cons(new_string("hide"), | 4332 | cons(new_string("hide"), |
| 4332 | nil), | 4333 | nil), |
| @@ -4335,7 +4336,7 @@ new_string("win")), | @@ -4335,7 +4336,7 @@ new_string("win")), | ||
| 4335 | nil), | 4336 | nil), |
| 4336 | no_term); | 4337 | no_term); |
| 4337 | 4338 | ||
| 4338 | -new_op_scheme(18898972,1, | 4339 | +new_op_scheme(18898460,1, |
| 4339 | new_string("Bool"), | 4340 | new_string("Bool"), |
| 4340 | cons(new_string("queue_event"), | 4341 | cons(new_string("queue_event"), |
| 4341 | nil), | 4342 | nil), |
| @@ -4349,7 +4350,7 @@ new_string("e")), | @@ -4349,7 +4350,7 @@ new_string("e")), | ||
| 4349 | nil)), | 4350 | nil)), |
| 4350 | no_term); | 4351 | no_term); |
| 4351 | 4352 | ||
| 4352 | -new_op_scheme(18909212,1, | 4353 | +new_op_scheme(18908700,1, |
| 4353 | new_string("One"), | 4354 | new_string("One"), |
| 4354 | cons(new_string("paint_rectangle"), | 4355 | cons(new_string("paint_rectangle"), |
| 4355 | nil), | 4356 | nil), |
| @@ -4362,7 +4363,7 @@ new_string("color")), | @@ -4362,7 +4363,7 @@ new_string("color")), | ||
| 4362 | nil))), | 4363 | nil))), |
| 4363 | no_term); | 4364 | no_term); |
| 4364 | 4365 | ||
| 4365 | -new_op_scheme(18914844,1, | 4366 | +new_op_scheme(18914332,1, |
| 4366 | new_string("One"), | 4367 | new_string("One"), |
| 4367 | cons(new_string("paint_rectangle"), | 4368 | cons(new_string("paint_rectangle"), |
| 4368 | nil), | 4369 | nil), |
| @@ -4375,7 +4376,7 @@ new_string("color")), | @@ -4375,7 +4376,7 @@ new_string("color")), | ||
| 4375 | nil))), | 4376 | nil))), |
| 4376 | no_term); | 4377 | no_term); |
| 4377 | 4378 | ||
| 4378 | -new_op_scheme(18932252,1, | 4379 | +new_op_scheme(18931740,1, |
| 4379 | new_string("One"), | 4380 | new_string("One"), |
| 4380 | cons(new_string("paint_image"), | 4381 | cons(new_string("paint_image"), |
| 4381 | nil), | 4382 | nil), |
| @@ -4392,7 +4393,7 @@ new_string("image")), | @@ -4392,7 +4393,7 @@ new_string("image")), | ||
| 4392 | nil))))), | 4393 | nil))))), |
| 4393 | no_term); | 4394 | no_term); |
| 4394 | 4395 | ||
| 4395 | -new_op_scheme(18938908,1, | 4396 | +new_op_scheme(18938396,1, |
| 4396 | new_string("One"), | 4397 | new_string("One"), |
| 4397 | cons(new_string("paint_image"), | 4398 | cons(new_string("paint_image"), |
| 4398 | nil), | 4399 | nil), |
| @@ -4409,7 +4410,7 @@ new_string("image")), | @@ -4409,7 +4410,7 @@ new_string("image")), | ||
| 4409 | nil))))), | 4410 | nil))))), |
| 4410 | no_term); | 4411 | no_term); |
| 4411 | 4412 | ||
| 4412 | -new_op_scheme(18945052,1, | 4413 | +new_op_scheme(18944540,1, |
| 4413 | new_string("One"), | 4414 | new_string("One"), |
| 4414 | cons(new_string("map_to_host_window"), | 4415 | cons(new_string("map_to_host_window"), |
| 4415 | nil), | 4416 | nil), |
anubis_dev/compiler/src/predef.dat
No preview for this file type
anubis_dev/distrib_tools/anubis_language_com/translate.anubis
| @@ -92,7 +92,7 @@ define (List(TextName),List(HTML_Cell(HTML_Off_Form))) | @@ -92,7 +92,7 @@ define (List(TextName),List(HTML_Cell(HTML_Off_Form))) | ||
| 92 | [h . t] then if h is tname(name,comment,_) then | 92 | [h . t] then if h is tname(name,comment,_) then |
| 93 | if row_of_translation_items(n-1,t,it,tdb) is (rest,result) then | 93 | if row_of_translation_items(n-1,t,it,tdb) is (rest,result) then |
| 94 | (rest, [ | 94 | (rest, [ |
| 95 | - cell([width(10),left,top],text([size(12),bold,color( | 95 | + cell([width(10),left,top],text([size(12),bold,font("helvetica"),color( |
| 96 | if needs_update(name,it,tdb) is | 96 | if needs_update(name,it,tdb) is |
| 97 | { | 97 | { |
| 98 | no then green, | 98 | no then green, |
| @@ -213,9 +213,9 @@ public define HTML_Page | @@ -213,9 +213,9 @@ public define HTML_Page | ||
| 213 | 213 | ||
| 214 | row(cell([height(1),columns(5),background_color(rgb(0,0,0))],text([],""))), | 214 | row(cell([height(1),columns(5),background_color(rgb(0,0,0))],text([],""))), |
| 215 | 215 | ||
| 216 | - row(cell([h_center,columns(5)],fixed_size(700,200, | 216 | + row(cell([h_center,columns(5)],fixed_size(700,200,center( |
| 217 | table([nude],translation_items(cols,qsort(all_text_names,compare),it,tdb) | 217 | table([nude],translation_items(cols,qsort(all_text_names,compare),it,tdb) |
| 218 | - )))) | 218 | + ))))) |
| 219 | 219 | ||
| 220 | ]), | 220 | ]), |
| 221 | get_text, | 221 | get_text, |
anubis_dev/library/predefined.anubis
| @@ -77,7 +77,6 @@ | @@ -77,7 +77,6 @@ | ||
| 77 | *** (6.2) Querying IP addresses. | 77 | *** (6.2) Querying IP addresses. |
| 78 | *** (6.3) Querying a name server ('dns'). | 78 | *** (6.3) Querying a name server ('dns'). |
| 79 | *** (6.4) Creating a network server ('start_server'). | 79 | *** (6.4) Creating a network server ('start_server'). |
| 80 | - *** (6.5) The client side. | ||
| 81 | 80 | ||
| 82 | *** (7) Miscellaneous tools. | 81 | *** (7) Miscellaneous tools. |
| 83 | *** (7.1) Executing an operating system command ('execute'). | 82 | *** (7.1) Executing an operating system command ('execute'). |
| @@ -1364,17 +1363,51 @@ public define Bool rename(String old_name, | @@ -1364,17 +1363,51 @@ public define Bool rename(String old_name, | ||
| 1364 | 1363 | ||
| 1365 | *** (6.1) Connecting ('connect'). | 1364 | *** (6.1) Connecting ('connect'). |
| 1366 | 1365 | ||
| 1366 | + We need a type which encapsulates all network connection errors. It participates to | ||
| 1367 | + the type of thing returned by 'connect'. | ||
| 1368 | + | ||
| 1369 | +public type NetworkConnectError: | ||
| 1370 | + cannot_create_the_socket, | ||
| 1371 | + address_port_not_available, | ||
| 1372 | + connection_refused, | ||
| 1373 | + network_unreachable, | ||
| 1374 | + address_port_already_in_use, | ||
| 1375 | + out_of_time. | ||
| 1376 | + | ||
| 1367 | You can open a connection to a local or remote TCP/IP server, with the following | 1377 | You can open a connection to a local or remote TCP/IP server, with the following |
| 1368 | command. Of course, there is a 'Maybe' because connecting is not guaranteed. You | 1378 | command. Of course, there is a 'Maybe' because connecting is not guaranteed. You |
| 1369 | don't have to worry about closing the connection. It is automatically closed by the | 1379 | don't have to worry about closing the connection. It is automatically closed by the |
| 1370 | garbage-collector when needed. | 1380 | garbage-collector when needed. |
| 1371 | 1381 | ||
| 1372 | -public define Maybe(RWAddr($T)) connect(Int32 ip_address, | ||
| 1373 | - Int32 port) = £avm{ open_tcp_ip_connection }. | 1382 | +public define Result(NetworkConnectError,RWAddr($T)) |
| 1383 | + connect(Int32 ip_address, | ||
| 1384 | + Int32 port) = £avm{ open_tcp_ip_connection }. | ||
| 1374 | 1385 | ||
| 1375 | Actually, this works only with $T = Int8. | 1386 | Actually, this works only with $T = Int8. |
| 1376 | 1387 | ||
| 1377 | 1388 | ||
| 1389 | + Note: To read data on a client connection 'c', just use '*c'. This blocks the virtual | ||
| 1390 | + machine until a datum is available for reading. Of course, this does not block other | ||
| 1391 | + virtual machines, and the scheduler switches immediatly to another machine if no datum | ||
| 1392 | + is available on the connection. Hence the virtual machine is dedicated to the client | ||
| 1393 | + connection. This is the reason why, you should not forget to use 'delegate' if you want | ||
| 1394 | + to do some other task while waiting for input on a client connection. | ||
| 1395 | + | ||
| 1396 | + When the client connection is closed (and only in this case), '*c' returns 'failure'. | ||
| 1397 | + Notice that a connection is also closed automatically when it is no more needed (i.e. | ||
| 1398 | + when there is no more reference to it). | ||
| 1399 | + | ||
| 1400 | + Subsequent note: Actually, 'connect to network', *c and c <- ? are obsolete. Use | ||
| 1401 | + 'connect' (defined above), 'read' and 'write'. | ||
| 1402 | + | ||
| 1403 | + Have a look at 'tools/basis.anubis' where two functions 'send_datum' and | ||
| 1404 | + 'receive_datum' are defined for transmitting serializable data over a TCP/IP | ||
| 1405 | + connection. | ||
| 1406 | + | ||
| 1407 | + | ||
| 1408 | + | ||
| 1409 | + | ||
| 1410 | + | ||
| 1378 | 1411 | ||
| 1379 | 1412 | ||
| 1380 | 1413 | ||
| @@ -1534,40 +1567,6 @@ public define Bool is_down(Server s) = if s is £server(l) then £is_down( | @@ -1534,40 +1567,6 @@ public define Bool is_down(Server s) = if s is £server(l) then £is_down( | ||
| 1534 | 1567 | ||
| 1535 | 1568 | ||
| 1536 | 1569 | ||
| 1537 | - *** (6.5) The client side. | ||
| 1538 | - | ||
| 1539 | - We just need a type which encapsulates all network connection errors. It participates | ||
| 1540 | - to the type of thing returned by 'connect to network'. | ||
| 1541 | - | ||
| 1542 | -public type NetworkConnectError: | ||
| 1543 | - cannot_create_the_socket, | ||
| 1544 | - address_port_not_available, | ||
| 1545 | - connection_refused, | ||
| 1546 | - network_unreachable, | ||
| 1547 | - address_port_already_in_use, | ||
| 1548 | - out_of_time. | ||
| 1549 | - | ||
| 1550 | - | ||
| 1551 | - | ||
| 1552 | - Note: To read data on a client connection 'c', just use '*c'. This blocks the virtual | ||
| 1553 | - machine until a datum is available for reading. Of course, this does not block other | ||
| 1554 | - virtual machines, and the scheduler switches immediatly to another machine if no datum | ||
| 1555 | - is available on the connection. Hence the virtual machine is dedicated to the client | ||
| 1556 | - connection. This is the reason why, you should not forget to use 'delegate' if you want | ||
| 1557 | - to do some other task while waiting for input on a client connection. | ||
| 1558 | - | ||
| 1559 | - When the client connection is closed (and only in this case), '*c' returns 'failure'. | ||
| 1560 | - Notice that a connection is also closed automatically when it is no more needed (i.e. | ||
| 1561 | - when there is no more reference to it). | ||
| 1562 | - | ||
| 1563 | - Subsequent note: Actually, 'connect to network', *c and c <- ? are obsolete. use | ||
| 1564 | - 'connect' (defined above), 'read' and 'write'. | ||
| 1565 | - | ||
| 1566 | - Have a look at 'tools/basis.anubis' where two functions 'send_datum' and | ||
| 1567 | - 'receive_datum' are defined for transmitting serializable data over a TCP/IP | ||
| 1568 | - connection. | ||
| 1569 | - | ||
| 1570 | - | ||
| 1571 | 1570 | ||
| 1572 | 1571 | ||
| 1573 | 1572 |
anubis_dev/library/vm_test.anubis
| @@ -311,8 +311,16 @@ define TestItem | @@ -311,8 +311,16 @@ define TestItem | ||
| 311 | print("\nClient: Opening a connection to the server."); | 311 | print("\nClient: Opening a connection to the server."); |
| 312 | if connect(local_host,port) is | 312 | if connect(local_host,port) is |
| 313 | { | 313 | { |
| 314 | - failure then print("\nClient: Cannot connect to server."), | ||
| 315 | - success(conn) then | 314 | + error(msg) then print(if msg is |
| 315 | + { | ||
| 316 | + cannot_create_the_socket then "Cannot create the socket.\n" | ||
| 317 | + address_port_not_available then "Address:port not available.\n" | ||
| 318 | + connection_refused then "Connection refused.\n" | ||
| 319 | + network_unreachable then "Network unreachable.\n" | ||
| 320 | + address_port_already_in_use then "Address:port already in use.\n" | ||
| 321 | + out_of_time then "Out of time.\n" | ||
| 322 | + }), | ||
| 323 | + ok(conn) then | ||
| 316 | client_handler(conn,server); | 324 | client_handler(conn,server); |
| 317 | print("\nShutting the server down."); | 325 | print("\nShutting the server down."); |
| 318 | shutdown(server) | 326 | shutdown(server) |
anubis_dev/predef.dat
No preview for this file type