66 lines
1.3 KiB
Plaintext
Executable File
66 lines
1.3 KiB
Plaintext
Executable File
#!/usr/bin/newlisp
|
|
|
|
(println)
|
|
(println "Testing UDP communicatiobs with spawned processes")
|
|
|
|
; benchmark net work functions with spawned processes
|
|
|
|
; non-blocking simole UDP communications
|
|
|
|
(set 'N
|
|
(case ostype
|
|
("Linux" 1000)
|
|
("Cygwin" 1000)
|
|
("BSD" 1000)
|
|
("OSX" 10000)
|
|
("Tru64Unix" 1000)
|
|
("Solaris" 1000)
|
|
("SunOS" 1000)
|
|
(true (println ">>>>> UDP Not supported on this OS - will exit")
|
|
(exit))
|
|
)
|
|
)
|
|
|
|
(set 'cpid (spawn 'r
|
|
(begin
|
|
(sleep 300)
|
|
(for (i 1 N)
|
|
(sleep 0.2) ; increase if losing to much
|
|
(net-send-udp "localhost" 12345 (string i))
|
|
)
|
|
(exit)
|
|
)
|
|
))
|
|
|
|
(println (sync))
|
|
|
|
(set 'start (time-of-day))
|
|
(set 'counter 0)
|
|
(set 'timeout '2000000)
|
|
(until finished
|
|
(set 'buff (net-receive-udp 12345 100 timeout))
|
|
(if buff
|
|
(begin
|
|
(inc counter)
|
|
(print "-> " (first buff) "\r")
|
|
(if (= (int (first buff)) N) (set 'finished true)))
|
|
(begin
|
|
(println "finished ->" (net-error))
|
|
(if (= (first (net-error)) 17)
|
|
(inc start (/ timeout 1000))) ; account for timeout
|
|
(set 'finished true))
|
|
)
|
|
)
|
|
|
|
(set 'duration (- (time-of-day) start))
|
|
(println "received " counter " (" (mul (div counter N) 100)
|
|
"%) of " N " messages in " duration " ms")
|
|
(println (div duration counter) " ms per message")
|
|
|
|
(abort)
|
|
|
|
(println ">>>>> Benchmarked UDP API")
|
|
|
|
(exit)
|
|
|