Anubis / Anubis

Commit f272cc3ac97f0dfb4d092659ba3c789a4d13af6d

Authored by Alain Prouté
1 parent c5269dde

*** empty log message ***

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