diff options
| author | Case Duckworth | 2023-04-04 15:08:49 -0500 |
|---|---|---|
| committer | Case Duckworth | 2023-04-04 15:08:49 -0500 |
| commit | 9a2924110a32776373c6b090c60d5299a388f7fe (patch) | |
| tree | dc03d3cf8169f35c7e3637ccf3615f795c8cfa18 /postcard.scm | |
| download | postcard-9a2924110a32776373c6b090c60d5299a388f7fe.tar.gz postcard-9a2924110a32776373c6b090c60d5299a388f7fe.zip | |
Initial commit
Proof of concept. Works on localhost
Diffstat (limited to 'postcard.scm')
| -rw-r--r-- | postcard.scm | 13 |
1 files changed, 13 insertions, 0 deletions
| diff --git a/postcard.scm b/postcard.scm new file mode 100644 index 0000000..5e54178 --- /dev/null +++ b/postcard.scm | |||
| @@ -0,0 +1,13 @@ | |||
| 1 | ;; client bit | ||
| 2 | |||
| 3 | (import udp | ||
| 4 | (chicken process-context)) | ||
| 5 | |||
| 6 | (define host "localhost") | ||
| 7 | (define port 42069) | ||
| 8 | |||
| 9 | (define (main args) | ||
| 10 | (define s (udp-open-socket)) | ||
| 11 | (udp-sendto s host port (apply string-append args))) | ||
| 12 | |||
| 13 | (main (command-line-arguments)) | ||