mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2026-06-07 08:24:53 -04:00
Improve the way messages with compound calls are automatically generated.
Routine packmsg now tries the shortlist (Type 1 prefix or suffix) first. Then it tries to to make a valid message using a Type 2 prefix or suffix. If both fail, it packs the first 13 characters as a free-text message. The GUI now generates the most useful messages with compound callsigns of all valid types. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4533 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
+2
-3
@@ -2,11 +2,10 @@ logical*1 function stdmsg(msg0)
|
||||
|
||||
character*22 msg0,msg
|
||||
integer dat(12)
|
||||
logical text
|
||||
|
||||
call packmsg(msg0,dat,text)
|
||||
call packmsg(msg0,dat,itype)
|
||||
call unpackmsg(dat,msg)
|
||||
stdmsg=msg.eq.msg0 .and. (.not.text)
|
||||
stdmsg=(msg.eq.msg0) .and. (itype.ge.0)
|
||||
|
||||
return
|
||||
end function stdmsg
|
||||
|
||||
Reference in New Issue
Block a user