Overview
Comment: | common:send-dboard-main-changed works |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.60 |
Files: | files | file ages | folders |
SHA1: |
cf6c83c1d7ec928c7b1f154990041f5f |
User & Date: | matt on 2015-06-24 23:17:33 |
Other Links: | branch diff | manifest | tags |
Context
2015-06-25
| ||
00:15 | Added reading of test data check-in: eaf10c5502 user: matt tags: v1.60 | |
2015-06-24
| ||
23:17 | common:send-dboard-main-changed works check-in: cf6c83c1d7 user: matt tags: v1.60 | |
2015-06-23
| ||
23:14 | Areas reprocess only when main.db updated - well, almost check-in: cb104e663d user: matt tags: v1.60 | |
Changes
Modified common.scm from [16abff04a4] to [ec352267c4].
︙ | |||
156 157 158 159 160 161 162 | 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 | - + | (if (> (- currtime lasttime) waitval) (begin (hash-table-set! *common:denoise* key currtime) #t) #f))) (define (common:get-megatest-exe) |
︙ | |||
766 767 768 769 770 771 772 773 774 | 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 | + + + + + + + + + + + + + - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (set! res adr))) ;; NOTE: This can fail when there is no mention of the host in /etc/hosts. FIXME (vector->list (hostinfo-addresses (hostname->hostinfo hostname)))) (string-intersperse (map number->string (u8vector->list (if res res (hostname->ip hostname)))) "."))) (define (common:open-nm-req addr) (let* ((req (nn-socket 'req)) (res (nn-connect req addr))) req)) ;; (with-output-to-string (lambda ()(serialize obj))) (define (common:nm-send-receive soc msg) (nn-send soc msg) (nn-recv soc)) (define (common:close-nm-req soc) (nn-close soc)) (define (common:send-dboard-main-changed) |
︙ |
Modified multi-dboard.scm from [0673e56b7f] to [b9da0d0861].
︙ | |||
467 468 469 470 471 472 473 474 475 476 477 478 479 480 | 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 | + + + + + + + + + + + + + + + + + - - - - - - - - + + + + | (define (dboard:server-service soc port) (print "server starting") (let loop ((msg-in (nn-recv soc)) (count 0)) (if (eq? 0 (modulo count 1000)) (print "server received: " msg-in ", count=" count)) (cond ;; ;; quit ;; ((equal? msg-in "quit") (nn-send soc "Ok, quitting")) ;; ;; ping ;; ((and (>= (string-length msg-in) 4) (equal? (substring msg-in 0 4) "ping")) (nn-send soc (conc (current-process-id))) (loop (nn-recv soc)(+ count 1))) ;; ;; main changed ;; ((and (>= (string-length msg-in) 4) (equal? (substring msg-in 0 4) "main")) (let ((parts (string-split msg-in " "))) (hash-table-set! *changed-main* (cadr parts) #t) (nn-send soc "got it!"))) ;; ;; ?? ;; (else |
︙ |