From 896be50c0a919e025f41ebcfa30828a45721c177 Mon Sep 17 00:00:00 2001 From: w6vvn Date: Tue, 9 Sep 2025 15:14:26 -0700 Subject: [PATCH] procedure for the validation of callsigns --- palps.rkt | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/palps.rkt b/palps.rkt index 811e862..d14fa70 100755 --- a/palps.rkt +++ b/palps.rkt @@ -1,6 +1,13 @@ #! /usr/bin/env /usr/local/bin/racket #lang racket +(define (call-valid? call) + (and + (<= (string-length call) 9) + (andmap + (or/c char-numeric? char-alphabetic? (curry char=? #\-)) + (string->list call)))) + ;; get callsign, first thing passed by BPQ (define call (read-line (current-input-port) 'any))