field.go

// Copyright 2017-2018 Dale Farnsworth. All rights reserved.

// Dale Farnsworth
// 1007 W Mendoza Ave
// Mesa, AZ  85210
// USA
//
// dale@farnsworth.org

// This file is part of Codeplug.
//
// Codeplug is free software: you can redistribute it and/or modify
// it under the terms of version 3 of the GNU Lesser General Public
// License as published by the Free Software Foundation.
//
// Codeplug is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with Codeplug.  If not, see <http://www.gnu.org/licenses/>.

// Package codeplug implements access to MD380-style codeplug files.
// It can read/update/write both .rdt files and .bin files.
package codeplug

import (
	"bytes"
	"encoding/hex"
	"errors"
	"fmt"
	"sort"
	"strconv"
	"strings"
	"time"
	"unicode/utf8"

	l "github.com/dalefarnsworth/codeplug/debug"
)

const invalidValueString = "=INVALID="
const deferredValueString = "=DEFERRED="

// A Field represents a field within a Record.
type Field struct {
	*fDesc
	fIndex int
	value
	noStore bool
}

// A value represents the value a Field Contains.
type value interface {
	getString(*Field) string
	setString(*Field, string, bool) error
	valid(*Field) error
	load(*Field)
	store(*Field)
}

// An fDesc contains a field type's dynamic information.
type fDesc struct {
	*fieldInfo
	record *Record
	fields []*Field
}

// A fieldInfo contains a field type's static information.
type fieldInfo struct {
	fType          FieldType
	typeName       string
	max            int
	bitOffset      int
	bitSize        int
	valueType      ValueType
	defaultValue   string
	span           *Span
	strings        *[]string
	indexedStrings *[]IndexedString
	enablerType    FieldType
	enables        []enable
	listRecordType RecordType
	recordInfo     *recordInfo
	extOffset      int
	extSize        int
	extIndex       int
	extBitOffset   int
	index          int
}

type enable struct {
	value   string
	enables bool
}

// A FieldType represents a field's type
type FieldType string

// A ValueType represents the type of a field's value
type ValueType string

// A Span represents a range of values.
type Span struct {
	min       int
	max       int
	scale     int
	interval  int
	minString string
}

// An IndexedString represents a string corresponding to a field's
// integer value.
type IndexedString struct {
	Index  uint16
	String string
}

// Minimum returns the minimum value of a Span.
func (span *Span) Minimum() int {
	return int(span.min) * int(span.scale)
}

// Maximum returns the maximum value of a Span.
func (span *Span) Maximum() int {
	return int(span.max) * int(span.scale)
}

func (span *Span) Scale() int {
	return int(span.scale)
}

func (span *Span) Interval() int {
	return int(span.interval)
}

// Step returns the step (minimal increment) for a Span.
func (span *Span) Step() int {
	return int(span.interval) * int(span.scale)
}

// MinString return a special string represented by the span's minimum
// value.  If the span doesn't have such a special value, the empty string
// is returned.
func (span *Span) MinString() string {
	return span.minString
}

// String returns the fields value as a string.
func (f Field) String() string {
	if f.IsInvalidValue() {
		return invalidValueString
	}

	return f.value.getString(&f)
}

// SetString set the string's value from the given string, recording a change.
func (f *Field) SetString(str string) error {
	previousString := f.String()
	if str == previousString {
		return nil
	}

	err := f.setString(str)
	if err == nil {
		change := f.Change(previousString)
		change.Complete()
	}

	return err
}

// setString set the strings value from the given string.
func (f *Field) setString(s string) error {
	if s == invalidValueString {
		f.value = invalidValue{value: f.value}
		return nil
	}

	err := f.value.setString(f, s, false)
	if err != nil {
		return err
	}

	if invalidValue, invalid := f.value.(invalidValue); invalid {
		f.value = invalidValue.value
	}

	r := f.record
	if f.fType == r.nameFieldType {
		r.rDesc.cachedListNames = nil
		r.makeNameUnique()
	}

	// Some fields may be dependent on this field's value
	// Set them based on valid
	for _, sf := range f.record.AllFields() {
		if sf.enablerType != f.fType {
			continue
		}
		if sf.isDeferredValue() {
			continue
		}
		sf.valid()
	}

	return err
}

func (f *Field) TestSetString(str string) error {
	previousString := f.String()
	err := f.setString(str)
	if err != nil {
		return err
	}

	f.setString(previousString)
	return nil
}

// listNames returns a slice of the names of all the records in the
// field's record's rDesc.
func (f *Field) listNames() []string {
	pListNames := f.record.codeplug.rDesc[f.listRecordType].ListNames()
	if pListNames == nil {
		return nil
	}

	if _, deref := f.value.(*derefListIndex); !deref {
		return *pListNames
	}

	derefValues := make([]string, len(*pListNames))
	for i, name := range *pListNames {
		r := f.record.codeplug.FindRecordByName(f.listRecordType, name)
		fields := r.AllFields()
		if len(fields) != 1 {
			l.Fatal("deref: more than one field")
		}
		derefValues[i] = fields[0].String()
	}

	return derefValues
}

// memberListNames returns a slice of the names of the field's member records.
func (f *Field) memberListNames() []string {
	r := f.record
	fieldInfos := r.fieldInfos
	fieldInfo := fieldInfos[len(fieldInfos)-1]
	fDesc := (*r.fDesc)[fieldInfo.fType]
	var fields []*Field
	if fDesc != nil {
		fields = fDesc.fields
	}
	memberNames := make([]string, len(fields))
	for i, f := range fields {
		name := f.String()
		memberNames[i] = name
	}
	return memberNames
}

// Span returns the fields Span struct, if any
func (f *Field) Span() *Span {
	return f.span
}

// Strings returns a slice of valid string values for the field.
func (f *Field) Strings() []string {
	var strs []string
	switch f.valueType {
	case VtListIndex, VtGpsListIndex, VtDerefListIndex, VtContactListIndex:
		strs = []string{}
		if f.indexedStrings != nil {
			strs = append(strs, (*f.indexedStrings)[0].String)
		}

		strs = append(strs, f.listNames()...)

		if f.indexedStrings != nil && len(*f.indexedStrings) > 1 {
			strs = append(strs, (*f.indexedStrings)[1].String)
		}

	case VtMemberListIndex:
		strs = []string{}
		if f.indexedStrings != nil {
			strs = append(strs, (*f.indexedStrings)[0].String)
		}

		strs = append(strs, f.memberListNames()...)

		if f.indexedStrings != nil && len(*f.indexedStrings) > 1 {
			strs = append(strs, (*f.indexedStrings)[1].String)
		}

	case VtCtcssDcs:
		strs = ctcssDcsStrings()

	case VtIStrings, VtCallType, VtBandwidth:
		strs = *f.strings

	case VtPrivacyNumber:
		ss := f.sibling(FtCiPrivacy).String()
		strs = *f.strings
		if ss == "Enhanced" {
			strs = strs[:8]
		}

	case VtIndexedStrings, VtRadioButton:
		strs = []string{}

		if f.indexedStrings != nil {
			for _, is := range f.IndexedStrings() {
				strs = append(strs, is.String)
			}
		}

	case VtSpanList:
		strs = f.SpanStrings()

	default:
		l.Fatalf("f.Strings: unexpected f.valueType: %s", f.valueType)
	}

	return strs
}

func (f *Field) SpanStrings() []string {
	span := f.span

	strs := make([]string, 0)
	for i := span.min; i <= span.max; i += span.interval {
		str := fmt.Sprintf("%d", i*span.scale)
		if i == span.min && span.minString != "" {
			str = span.minString
		}
		strs = append(strs, str)
	}

	return strs
}

// IndexedStrings returns the IndexedString struct for the field, if any.
func (f *Field) IndexedStrings() []IndexedString {
	if f.indexedStrings == nil {
		return nil
	}
	return *f.indexedStrings
}

// Type returns the field's type.
func (f *Field) Type() FieldType {
	return f.fType
}

// Record returns the record that the field is part of.
func (f *Field) Record() *Record {
	return f.record
}

func (f *Field) Codeplug() *Codeplug {
	return f.record.Codeplug()
}

// Index returns the field's slice index.
func (f *Field) Index() int {
	return f.fIndex
}

// SetIndex sets the field's slice index.
func (f *Field) SetIndex(index int) {
	f.fIndex = index
}

// FullTypeName returns a string containing the field's record's type name
// and index as well as the field's type name and index. The index is omitted
// if the MaxRecords or MaxFields is 1.
func (f *Field) FullTypeName() string {
	s := f.record.FullTypeName() + "." + f.typeName

	if f.max > 1 {
		str := f.String()
		if str == "" {
			str = fmt.Sprintf("%d", f.fIndex)
		}
		s += fmt.Sprintf("[%s]", str)
	}

	return s
}

func (f *Field) SetDefault() {
	fi := f.fDesc.fieldInfo
	if fi.max > 1 {
		return
	}

	dv := fi.defaultValue
	if dv != "" {
		f.setString(dv)
	}
}

// valid returns nil if the field's value is valid.
func (f *Field) valid() error {
	err := f.value.valid(f)
	if err != nil {
		f.value = invalidValue{value: f.value}
	} else if f.IsInvalidValue() {
		err = errors.New("invalid value")
	}

	if !f.IsEnabled() {
		return nil
	}
	return err
}

// IsInvalidValue returns true if the field has previously been determined
// to be invalid. The field can only be invalid if the value read from
// the codeplug file was invalid.
func (f *Field) IsInvalidValue() bool {
	_, invalid := f.value.(invalidValue)
	return invalid
}

// load sets the field's value from the field's part of cp.bytes.
func (f *Field) load() {
	f.value.load(f)
}

// store inserts the field's value into the field's part of cp.bytes.
func (f *Field) store() {
	if f.noStore {
		// some fields may overlap with other fields
		return
	}

	if !f.IsEnabled() {
		if f.IsInvalidValue() {
			// Leave invalid value in the codeplug as we loaded it.
			return
		}
	}

	f.value.store(f)
}

func (f *Field) SetStore(store bool) {
	f.noStore = !store
}

// bytes returns the field's part of cp.bytes.
func (f *Field) bytes() []byte {
	return f.fDesc.bytes(f.record, f.fIndex)
}

// storeBytes stores the field's value into the field's part of cp.bytes.
func (f *Field) storeBytes(bytes []byte) {
	f.fDesc.storeBytes(bytes, f.record, f.fIndex)
}

// TypeName returns the field's type's name.
func (f *Field) TypeName() string {
	return f.typeName
}

// ValueType returns the field's value's type.
func (f *Field) ValueType() ValueType {
	return f.valueType
}

// MaxFields returns the maximum number of fields of the fields type
func (f *Field) MaxFields() int {
	return f.fDesc.fieldInfo.max
}

// ListRecordType returns the field's list's record type.
func (f *Field) ListRecordType() RecordType {
	return f.listRecordType
}

// sibling returns the field's sibling field of the given type.
func (f *Field) sibling(fType FieldType) *Field {
	r := (*f.record.fDesc)[fType]
	if r == nil {
		return nil
	}
	fields := r.fields
	if len(fields) == 0 {
		return nil
	}
	return fields[0]
}

// IsEnabled returns true if the field is enabled
func (f *Field) IsEnabled() bool {
	enabled := true

	if f.enablerType == "" {
		return enabled
	}

	enabler := f.sibling(f.enablerType)
	if enabler == nil {
		return true
	}

	if !enabler.IsEnabled() {
		return false
	}

	enablerValue := enabler.String()
	if enablerValue == invalidValueString {
		return false
	}

	for i, enable := range f.enables {
		if i == 0 {
			enabled = !enable.enables
		}
		if enable.value == enablerValue {
			enabled = enable.enables
			return enabled
		}
	}

	return enabled
}

// EnablerType returns the type of the field's enabling field.
func (f *Field) EnablerType() FieldType {
	return f.enablerType
}

// fieldDeleted returns true if the field at fIndex is deleted.
func (fd *fDesc) fieldDeleted(r *Record, fIndex int) bool {
	if fd.max == 1 {
		return false
	}

	bytes := fd.bytes(r, fIndex)
	for i := range bytes {
		if bytes[i] != 0 {
			return false
		}
	}

	return true
}

// deleteField marks the field at fIndex as deleted.
func (fd *fDesc) deleteField(r *Record, fIndex int) {
	bytes := fd.bytes(r, fIndex)
	for i := range bytes {
		bytes[i] = 0
	}
	fd.storeBytes(bytes, r, fIndex)
}

func (fd *fDesc) fieldOffset(r *Record, fIndex int) int {
	var offset int
	if fd.extSize == 0 || fIndex < fd.extIndex {
		offset = r.offset + r.rIndex*r.size + fd.offset(fIndex)
	} else {
		fExtOffset := fd.extBitOffset/8 + (fIndex-fd.extIndex)*fd.size()
		offset = fd.extOffset + r.rIndex*fd.extSize + fExtOffset
	}

	return offset
}

// bytes returns the bytes of the field from cp.bytes.
func (fd *fDesc) bytes(r *Record, fIndex int) []byte {
	cp := r.codeplug
	offset := fd.fieldOffset(r, fIndex)
	fieldBytes := cp.bytes[offset : offset+fd.size()]

	bytes := make([]byte, len(fieldBytes))
	copy(bytes, fieldBytes)

	if fd.bitSize >= 8 {
		return bytes
	}

	rightOffset := (fd.bitOffset + fd.bitSize) % 8
	if rightOffset != 0 {
		bytes[0] >>= 8 - byte(rightOffset)
	}
	bytes[0] &= (1 << uint(fd.bitSize)) - 1

	return bytes
}

// storeBytes inserts bytes value into the field's bits in cp.bytes.
func (fd *fDesc) storeBytes(bytes []byte, r *Record, fIndex int) {
	if fd.size() != len(bytes) {
		panic(fmt.Sprintf("%s: storeBytes(%v) size mismatch: %d vs %d",
			fd.typeName, bytes, fd.size(), len(bytes)))
	}

	cp := r.codeplug
	offset := fd.fieldOffset(r, fIndex)
	if fd.bitSize >= 8 {
		copy(cp.bytes[offset:offset+fd.size()], bytes)
		return
	}

	value := int(bytes[0])
	mask := (1 << uint(fd.bitSize)) - 1

	rightOffset := uint((fd.bitOffset + fd.bitSize) % 8)
	if rightOffset != 0 {
		mask <<= 8 - rightOffset
		value <<= 8 - rightOffset
	}
	mask = ^mask
	if (value & mask) != 0 {
		panic("value wider than bitSize")
	}

	cp.bytes[offset] &= byte(mask)
	cp.bytes[offset] |= byte(value)
}

// offset returns the byte offset of the field at fIndex within the field's
// record bytes.
func (fi *fieldInfo) offset(fIndex int) int {
	return (fi.bitOffset + fIndex*fi.bitSize) / 8
}

// size returns the field's size in bytes
func (fi *fieldInfo) size() (fSize int) {
	return (fi.bitSize + 7) / 8
}

// frequency is a field value representing a frequency in Hertz.
type frequency float64

// getString returns the frequency's value as a string.
func (v *frequency) getString(f *Field) string {
	return frequencyToString(float64(*v))
}

// setString sets the frequency's value from a string.
func (v *frequency) setString(f *Field, s string, force bool) error {
	freq, err := stringToFrequency(s)
	if err != nil {
		return err
	}

	save := *v
	*v = frequency(freq)

	err = v.valid(f)
	if err != nil {
		*v = save
		return err
	}

	return nil
}

// valid returns nil if the frequency's value is valid.
func (v *frequency) valid(f *Field) error {
	return f.record.codeplug.frequencyValid(float64(*v))
}

// load sets the frequency's value from its bits in cp.bytes.
func (v *frequency) load(f *Field) {
	*v = frequency(bytesToFrequency(f.bytes()))

}

// store stores the frequency's value into its bits in cp.bytes.
func (v *frequency) store(f *Field) {
	f.storeBytes(frequencyToBytes(float64(*v)))
}

type frequencyOffset float64

// getString returns the frequencyOffset's value as a string.
func (v *frequencyOffset) getString(f *Field) string {
	return frequencyToSignedString(float64(*v))
}

// setString sets the frequencyOffset's value from a string.
func (v *frequencyOffset) setString(f *Field, s string, force bool) error {
	freq, err := stringToFrequency(s)
	if err != nil {
		return err
	}

	save := *v
	*v = frequencyOffset(freq)

	err = v.valid(f)
	if err != nil {
		*v = save
		return err
	}

	return nil
}

// valid returns nil if the frequencyOffset's value is valid.
func (v *frequencyOffset) valid(f *Field) error {
	freq := float64(*v)

	rxFreq, err := rxFrequency(f)
	if err != nil {
		return err
	}

	if f.record.codeplug.frequencyValid(freq) == nil {
		*v = frequencyOffset(freq - rxFreq)
		return nil
	}

	return f.record.codeplug.frequencyValid(rxFreq + freq)
}

// load sets the frequencyOffset's value from its bits in cp.bytes.
func (v *frequencyOffset) load(f *Field) {
	// The call to v.valid(f) will convert it to an offset
	*v = frequencyOffset(bytesToFrequency(f.bytes()))
}

// store stores the frequencyOffset's value into its bits in cp.bytes.
func (v *frequencyOffset) store(f *Field) {
	rxFreq, err := rxFrequency(f)
	if err == nil {
		f.storeBytes(frequencyToBytes(float64(*v) + rxFreq))
	}
}

func rxFrequency(f *Field) (float64, error) {
	rxFrequency, _ := f.sibling(FtCiRxFrequency).value.(*frequency)
	if rxFrequency == nil {
		return 0.0, errors.New("rxFrequency is invalid")
	}
	return float64(*rxFrequency), nil
}

// onOff is a field value representing a boolean value.
// It is used when a 1 bit in the codeplug represents false
type onOff bool

// getString returns the onOff's value as a string.
func (v *onOff) getString(f *Field) string {
	s := "Off"
	if *v {
		s = "On"
	}

	return s
}

// setString sets the onOff's value from a string.
func (v *onOff) setString(f *Field, s string, force bool) error {
	switch s {
	case "Off":
		*v = false

	case "On":
		*v = true

	default:
		return fmt.Errorf("must be 'Off' or 'On'")
	}

	return nil
}

// valid returns nil if the onOff's value is valid.
func (v *onOff) valid(f *Field) error {
	return nil
}

// load sets the onOff's value from its bits in cp.bytes.
func (v *onOff) load(f *Field) {
	*v = false
	if f.bytes()[0] == 0 {
		*v = true
	}
}

// store stores the onOff's value into its bits in cp.bytes.
func (v *onOff) store(f *Field) {
	b := 1
	if *v {
		b = 0
	}
	f.storeBytes([]byte{byte(b)})
}

// offOn is a field value representing a boolean value.
// It is used when a 1 bit in the codeplug represents true
type offOn struct {
	onOff
}

// load sets the offOn's value from its bits in cp.bytes.
func (v *offOn) load(f *Field) {
	v.onOff = false
	if f.bytes()[0] != 0 {
		v.onOff = true
	}
}

// store stores the offOn's value into its bits in cp.bytes.
func (v *offOn) store(f *Field) {
	b := 0
	if v.onOff {
		b = 1
	}
	f.storeBytes([]byte{byte(b)})
}

// iStrings is a field value where an integer value is used to index
// into a slice of strings.
type iStrings int

// getString returns the iStrings' value as a string.
func (v *iStrings) getString(f *Field) string {
	i := int(*v)
	strings := *f.strings
	if i >= len(strings) {
		return invalidValueString
	}

	return strings[i]
}

// setString sets the iStrings' value from a string.
func (v *iStrings) setString(f *Field, s string, force bool) error {
	fd := f.fDesc
	strings := *fd.strings
	for i, str := range strings {
		if s == str && str != "" {
			*v = iStrings(i)
			return nil
		}
	}

	strs := make([]string, 0, len(strings))

	for _, str := range strings {
		if str != "" {
			strs = append(strs, fmt.Sprintf(`"%s"`, str))
		}
	}

	return fmt.Errorf("must be one of %+v", strs)
}

// valid returns nil if the iStrings' value is valid.
func (v *iStrings) valid(f *Field) error {
	fd := f.fDesc
	strings := *fd.strings

	i := int(*v)
	if i >= len(strings) || (i == 0 && strings[0] == "") {
		return fmt.Errorf("%d: bad string index", i)
	}

	return nil
}

// load sets the iString's value from its bits in cp.bytes.
func (v *iStrings) load(f *Field) {
	*v = iStrings(f.bytes()[0])
}

// store stores the iStrings' value into its bits in cp.bytes.
func (v *iStrings) store(f *Field) {
	f.storeBytes([]byte{byte(*v)})
}

type bandwidth struct {
	iStrings
}

// valid returns nil if the iStrings' value is valid.
func (v *bandwidth) valid(f *Field) error {
	ss := f.sibling(FtCiChannelMode).String()
	if ss == "Digital" {
		return v.iStrings.setString(f, "12.5", false)
	}

	return v.iStrings.valid(f)
}

// span is a field value representing a range of integer values
type span int

// getString returns the span's value as a string.
func (v *span) getString(f *Field) string {
	sp := *f.span
	i := int(*v)
	if sp.minString != "" && i == sp.min {
		return sp.minString
	}
	return fmt.Sprintf("%d", int(*v)*int(sp.scale))
}

// setString sets the span's value from a string.
func (v *span) setString(f *Field, s string, force bool) error {
	sp := *f.span

	if s == sp.minString && s != "" {
		*v = span(sp.min)
		return nil
	}

	value64, err := strconv.ParseUint(s, 10, 32)
	if err != nil {
		return err
	}
	value := int(value64)

	if err := v.validValue(f, value); err != nil {
		return err
	}

	value = value / int(sp.scale)

	*v = span(value)

	return nil
}

// valid returns nil if the span's value is valid.
func (v *span) valid(f *Field) error {
	sp := *f.span
	value := int(*v)
	return v.validValue(f, value*int(sp.scale))
}

// validValue returns nil if the specified value is valid for a span.
func (v *span) validValue(f *Field, value int) error {
	sp := *f.span

	min := int(sp.min) * int(sp.scale)
	max := int(sp.max) * int(sp.scale)
	multiple := int(sp.interval) * int(sp.scale)

	if value == min && sp.minString != "" {
		return nil
	}

	if value%multiple != 0 {
		return fmt.Errorf("[%d] must be a multiple of %d", value, multiple)
	}

	if value < min || value > max {
		return fmt.Errorf("[%d] must be between %d and %d", value, min, max)
	}

	return nil
}

// load sets the span's value from its bits in cp.bytes.
func (v *span) load(f *Field) {
	*v = span(f.bytes()[0])
}

// store stores the span's value into its bits in cp.bytes.
func (v *span) store(f *Field) {
	f.storeBytes([]byte{byte(*v)})
}

type spanList struct {
	span
}

type gpsReportInterval struct {
	spanList
}

func (v *gpsReportInterval) valid(f *Field) error {
	if v.span.valid(f) != nil {
		(*v).span = span(f.span.min)
	}

	return nil
}

// findexedStrings is a field value where specific integer values
// represent specific strings.
type indexedStrings uint16

// getString returns the indexedStrings's value as a string.
func (v *indexedStrings) getString(f *Field) string {
	for _, is := range *(*f.fDesc).indexedStrings {
		if is.Index == uint16(*v) {
			return is.String
		}
	}
	return ""
}

// setString sets the indexedStrings's value from a string.
func (v *indexedStrings) setString(f *Field, s string, force bool) error {
	fd := f.fDesc

	for _, is := range *fd.indexedStrings {
		if is.String == s {
			*v = indexedStrings(is.Index)
			return nil
		}
	}

	strs := make([]string, 0, len(*fd.indexedStrings))

	for _, is := range *fd.indexedStrings {
		strs = append(strs, is.String)
	}

	return fmt.Errorf("must be one of %#v", strs)
}

// valid returns nil if the indexedStrings's value is valid.
func (v *indexedStrings) valid(f *Field) error {
	fd := f.fDesc

	for _, is := range *fd.indexedStrings {
		if is.Index == uint16(*v) {
			return nil
		}
	}

	return fmt.Errorf("%d: invalid index", uint16(*v))
}

// load sets the indexedStrings's value from its bits in cp.bytes.
func (v *indexedStrings) load(f *Field) {
	*v = indexedStrings(f.bytes()[0])
}

// store stores the indexedStrings's value into its bits in cp.bytes.
func (v *indexedStrings) store(f *Field) {
	f.storeBytes([]byte{byte(*v)})
}

type radioButton struct {
	indexedStrings
}

// getString returns the radioButton's value as a string.
func (v *radioButton) getString(f *Field) string {
	index := uint16(v.indexedStrings)
	if index == 255 {
		index = 0
	}

	for _, is := range *(*f.fDesc).indexedStrings {
		if is.Index == index {
			return is.String
		}
	}
	return ""
}

// valid returns nil if the radioButton's value is valid.
func (v *radioButton) valid(f *Field) error {
	index := uint16(v.indexedStrings)
	if index == 255 {
		index = 0
	}

	fd := f.fDesc
	for _, is := range *fd.indexedStrings {
		if is.Index == index {
			return nil
		}
	}

	return fmt.Errorf("%d: invalid index", index)
}

// biFrequency is a field value representing a frequency in Hertz.
type biFrequency float64

// getString returns the biFrequency's value as a string.
func (v *biFrequency) getString(f *Field) string {
	return frequencyToString(float64(*v))
}

// setString sets the biFrequency's value from a string.
func (v *biFrequency) setString(f *Field, s string, force bool) error {
	freq, err := stringToFrequency(s)
	if err != nil {
		return err
	}

	*v = biFrequency(freq)
	return nil
}

// valid returns nil if the biFrequency's value is valid.
func (v *biFrequency) valid(f *Field) error {
	return nil
}

// load sets the biFrequency's value from its bits in cp.bytes.
func (v *biFrequency) load(f *Field) {
	*v = biFrequency(bcdToInt64(bytesToInt64(f.bytes()))) / 10
}

// store stores the biFrequency's value into its bits in cp.bytes.
func (v *biFrequency) store(f *Field) {
	i := int64ToBcd(int64(*v) * int64(10))
	f.storeBytes(int64ToBytes(i, f.size()))
}

// introLine is a field value representing a introductory line of text
type introLine string

// getString returns the introLine's value as a string.
func (v *introLine) getString(f *Field) string {
	return string(*v)
}

// setString sets the introLine's value from a string.
func (v *introLine) setString(f *Field, s string, force bool) error {
	if utf8.RuneCountInString(s) > f.size()/2 {
		return fmt.Errorf("is too long")
	}

	if err := v.validValue(f, s); err != nil {
		return err
	}

	*v = introLine(s)

	return nil
}

// valid returns nil if the introLine's value is valid.
func (v *introLine) valid(f *Field) error {
	return v.validValue(f, string(*v))
}

// validValue returns nil if the specified value is valid for a introLine.
func (v *introLine) validValue(f *Field, value string) error {
	_, err := stringToUcs2Bytes(value, f.size())

	return err
}

// load sets the introLine's value from its bits in cp.bytes.
func (v *introLine) load(f *Field) {
	*v = introLine(ucs2BytesToString(f.bytes()))
}

// store stores the introLine's value into its bits in cp.bytes.
func (v *introLine) store(f *Field) {
	ucs2, _ := stringToUcs2Bytes(string(*v), f.size())
	f.storeBytes(ucs2)
}

type callType struct {
	iStrings
}

func (v *callType) setString(f *Field, s string, force bool) error {
	if s != "All" {
		return v.iStrings.setString(f, s, force)
	}

	for _, r := range f.record.records {
		field := r.Field(f.fType)
		if field.String() != "All" {
			continue
		}
		return fmt.Errorf("An \"All\" record already exists: %s", r.Name())
	}

	err := v.iStrings.setString(f, s, force)
	if err != nil {
		return err
	}

	callIDField := f.record.Field(FtDcCallID)
	if callIDField != nil {
		callIDField.SetString("16777215")
	}

	return nil
}

// callID is a field value representing a DMR Call ID
type callID int32

// getString returns the callID's value as a string.
func (v *callID) getString(f *Field) string {
	return fmt.Sprintf("%d", int(*v))
}

// setString sets the callID's value from a string.
func (v *callID) setString(f *Field, s string, force bool) error {
	callTypeField := f.record.Field(FtDcCallType)
	if callTypeField != nil && callTypeField.String() == "All" {
		if s != "16777215" {
			return fmt.Errorf("call type All requires call ID 16777215")
		}
	}
	val, err := strconv.ParseUint(s, 10, 64)
	if err != nil {
		return fmt.Errorf("must be a positive integer")
	}

	if val >= 16777216 {
		return fmt.Errorf("must be less than 16777216")
	}

	*v = callID(val)

	return nil
}

// valid returns nil if the callID's value is valid.
func (v *callID) valid(f *Field) error {
	return nil
}

// load sets the callID's value from its bits in cp.bytes.
func (v *callID) load(f *Field) {
	*v = callID(bytesToInt64(f.bytes()))
}

// store stores the callID's value into its bits in cp.bytes.
func (v *callID) store(f *Field) {
	f.storeBytes(int64ToBytes(int64(*v), f.size()))
}

// radioPassword is a field value representing password for the radio.
type radioPassword string

// getString returns the radioPassword's value as a string.
func (v *radioPassword) getString(f *Field) string {
	return string(*v)
}

// setString sets the radioPassword's value from a string.
func (v *radioPassword) setString(f *Field, s string, force bool) error {
	length := f.size() * 2
	if len(s) != length {
		return fmt.Errorf("password must be %d characters long", length)
	}
	if err := mustBeNumericAscii(s); err != nil {
		return err
	}

	*v = radioPassword(s)

	return nil
}

// valid returns nil if the radioPassword's value is valid.
func (v *radioPassword) valid(f *Field) error {
	return mustBeNumericAscii(string(*v))
}

// load sets the radioPassword's value from its bits in cp.bytes.
func (v *radioPassword) load(f *Field) {
	intValue := bytesToInt64(f.bytes())
	if uint(intValue) == 0xffffffff {
		*v = radioPassword("00000000")
		return
	}
	*v = radioPassword(fmt.Sprintf("%08d", uint(revBcdToInt64(intValue))))
}

// store stores the radioPassword's value into its bits in cp.bytes.
func (v *radioPassword) store(f *Field) {
	val, _ := strconv.ParseUint(string(*v), 10, 32)
	bytes := int64ToBytes(int64ToRevBcd(int64(val)), f.size())
	if val == 0 {
		bytes = []byte{0xff, 0xff, 0xff, 0xff}
	}
	f.storeBytes(bytes)
}

// radioPassword is a field value representing password for the radio.
type radioProgPassword string

// getString returns the radioProgPassword's value as a string.
func (v *radioProgPassword) getString(f *Field) string {
	return string(*v)
}

// setString sets the radioProgPassword's value from a string.
func (v *radioProgPassword) setString(f *Field, s string, force bool) error {
	length := f.size() * 2
	if len(s) != length && len(s) != 0 {
		return fmt.Errorf("password must be %d characters long", length)
	}
	if err := mustBeNumericAscii(s); err != nil {
		return err
	}

	*v = radioProgPassword(s)

	return nil
}

// valid returns nil if the radioProgPassword's value is valid.
func (v *radioProgPassword) valid(f *Field) error {
	return mustBeNumericAscii(string(*v))
}

// load sets the radioProgPassword's value from its bits in cp.bytes.
func (v *radioProgPassword) load(f *Field) {
	intValue := bytesToInt64(f.bytes())
	if uint(intValue) == 0xffffffff {
		*v = radioProgPassword("")
		return
	}
	*v = radioProgPassword(fmt.Sprintf("%08d", revBcdToInt64(intValue)))
}

// store stores the radioProgPassword's value into its bits in cp.bytes.
func (v *radioProgPassword) store(f *Field) {
	val, _ := strconv.ParseUint(string(*v), 10, 32)
	bytes := int64ToBytes(int64ToRevBcd(int64(val)), f.size())
	if *v == "" {
		bytes = []byte{0xff, 0xff, 0xff, 0xff}
	}
	f.storeBytes(bytes)
}

// pcPassword is a field value representing a password for the computer.
type pcPassword string

// getString returns the pcPassword's value as a string.
func (v *pcPassword) getString(f *Field) string {
	if string(*v) == "\xff\xff\xff\xff\xff\xff\xff\xff" {
		return ""
	}

	return strings.ToLower(string(*v))
}

// setString sets the pcPassword's value from a string.
func (v *pcPassword) setString(f *Field, s string, force bool) error {
	if s == "" {
		*v = pcPassword(s)
		return nil
	}

	length := f.size()
	if len(s) != length {
		return fmt.Errorf("password must be %d characters long", length)
	}

	if err := mustBePrintableAscii(s); err != nil {
		return err
	}

	*v = pcPassword(strings.ToLower(s))

	return nil
}

// valid returns nil if the pcPassword's value is valid.
func (v *pcPassword) valid(f *Field) error {
	if string(*v) == "\xff\xff\xff\xff\xff\xff\xff\xff" {
		return nil
	}

	return mustBePrintableAscii(string(*v))
}

// load sets the pcPassword's value from its bits in cp.bytes.
func (v *pcPassword) load(f *Field) {
	*v = pcPassword(f.bytes())
}

// store stores the pcPassword's value into its bits in cp.bytes.
func (v *pcPassword) store(f *Field) {
	if string(*v) == "" {
		bytes := []byte("\xff\xff\xff\xff\xff\xff\xff\xff")
		f.storeBytes(bytes)
		return
	}

	f.storeBytes([]byte(*v))
}

// radioName is a field value representing the name of the radio.
type radioName string

// getString returns the radioName's value as a string.
func (v *radioName) getString(f *Field) string {
	return string(*v)
}

// setString sets the radioName's value from a string.
func (v *radioName) setString(f *Field, s string, force bool) error {
	if utf8.RuneCountInString(s) > f.size()/2 {
		return fmt.Errorf("name too long")
	}

	if err := v.validValue(f, s); err != nil {
		return err
	}

	*v = radioName(s)

	return nil
}

// valid returns nil if the radioName's value is valid.
func (v *radioName) valid(f *Field) error {
	return v.validValue(f, string(*v))
}

// validValue returns nil if the specified value is valid for a radioName.
func (v *radioName) validValue(f *Field, s string) error {
	_, err := stringToUcs2Bytes(s, f.size())
	if err != nil {
		return err
	}

	return mustBePrintableAscii(string(*v))
}

// load sets the radioName's value from its bits in cp.bytes.
func (v *radioName) load(f *Field) {
	*v = radioName(ucs2BytesToString(f.bytes()))
}

// store stores the radioName's value into its bits in cp.bytes.
func (v *radioName) store(f *Field) {
	ucs2, _ := stringToUcs2Bytes(string(*v), f.size())
	f.storeBytes(ucs2)
}

// textMessage is a field value representing a text message
type textMessage string

// getString returns the textMessage's value as a string.
func (v *textMessage) getString(f *Field) string {
	return string(*v)
}

// setString sets the textMessages value from a string
func (v *textMessage) setString(f *Field, s string, force bool) error {
	if utf8.RuneCountInString(s) >= f.size()/2 {
		return fmt.Errorf("line too long")
	}

	_, err := stringToUcs2Bytes(s, f.size())
	if err != nil {
		return err
	}

	*v = textMessage(s)

	return nil
}

// valid returns nil if the textMessage's value is valid.
func (v *textMessage) valid(f *Field) error {
	_, err := stringToUcs2Bytes(string(*v), f.size())
	return err
}

// load sets the textMessage's value from its bits in cp.bytes.
func (v *textMessage) load(f *Field) {
	*v = textMessage(ucs2BytesToString(f.bytes()))
}

// store stores the textMessage's value into its bits in cp.bytes.
func (v *textMessage) store(f *Field) {
	ucs2, _ := stringToUcs2Bytes(string(*v), f.size())
	f.storeBytes(ucs2)
}

type contactName struct {
	name
}

// setString sets the name's value from a string.
func (v *contactName) setString(f *Field, s string, force bool) error {
	if utf8.RuneCountInString(removeSuffix(f, s)) > f.size()/2 {
		return fmt.Errorf("name too long")
	}

	_, err := stringToUcs2Bytes(removeSuffix(f, string(v.name)), f.size())
	if err != nil {
		return err
	}

	v.name = name(s)

	return nil
}

// load sets the name's value from its bits in cp.bytes.
func (v *contactName) load(f *Field) {
	v.name = name(AddSuffix(f, ucs2BytesToString(f.bytes())))
}

// store stores the name's value into its bits in cp.bytes.
func (v *contactName) store(f *Field) {
	name := removeSuffix(f, string(v.name))
	ucs2, _ := stringToUcs2Bytes(name, f.size())
	f.storeBytes(ucs2)
}

// name is a field value representing a utf8 name.
type name string

// getString returns the name's value as a string.
func (v *name) getString(f *Field) string {
	return string(*v)
}

// setString sets the name's value from a string.
func (v *name) setString(f *Field, s string, force bool) error {
	length := utf8.RuneCountInString(s)
	if length > f.size()/2 {
		return fmt.Errorf("name too long")
	} else if length == 0 {
		return fmt.Errorf("name cannot be empth")
	}

	_, err := stringToUcs2Bytes(string(*v), f.size())
	if err != nil {
		return err
	}

	*v = name(s)

	return nil
}

// valid returns nil if the name's value is valid.
func (v *name) valid(f *Field) error {
	return nil
}

// load sets the name's value from its bits in cp.bytes.
func (v *name) load(f *Field) {
	*v = name(ucs2BytesToString(f.bytes()))
}

// store stores the name's value into its bits in cp.bytes.
func (v *name) store(f *Field) {
	ucs2, _ := stringToUcs2Bytes(string(*v), f.size())
	f.storeBytes(ucs2)
}

// privacyNumber is a field value representing a privacy number.
type privacyNumber struct {
	iStrings
}

// getString returns the privacyNumber's value as a string.
func (v *privacyNumber) getString(f *Field) string {
	ss := f.sibling(FtCiPrivacy).String()

	value := int(v.iStrings)
	if ss == "Enhanced" && value >= 8 {
		value = 7
	}

	s := v.iStrings.getString(f)
	v.iStrings = iStrings(value)

	return s
}

// setString sets the privacyNumber's value from a string.
func (v *privacyNumber) setString(f *Field, s string, force bool) error {
	sibling := f.sibling(FtCiPrivacy)
	if sibling != nil {
		ss := sibling.String()

		if ss == "Enhanced" && int(v.iStrings) >= 8 {
			return fmt.Errorf("must be less than 8 for enhanced privacy")
		}
	}

	return v.iStrings.setString(f, s, force)
}

// valid returns nil if the privacyNumber's value is valid.
func (v *privacyNumber) valid(f *Field) error {
	sibling := f.sibling(FtCiPrivacy)
	if sibling == nil {
		f.deferValue(deferredValueString)
		return nil
	}
	ss := sibling.String()

	if ss == "Enhanced" && int(v.iStrings) >= 8 {
		return fmt.Errorf("must be less than 8 for enhanced privacy")
	}

	return v.iStrings.valid(f)
}

// ctcssDcs is a field value representing a CTCSS or DCS tone.
type ctcssDcs int

// getString returns the ctcssDcs's value as a string.
func (v *ctcssDcs) getString(f *Field) string {
	s, _ := ctcssDcsCode(int(*v))

	return s
}

// setString sets the ctcssDcs's value from a string.
func (v *ctcssDcs) setString(f *Field, s string, force bool) error {
	value := ctcssDcsStringToBinary(s)
	if value >= 0 {
		*v = ctcssDcs(value)
		return nil
	}

	return fmt.Errorf("bad tone designator")
}

// valid returns nil if the ctcssDcs's value is valid.
func (v *ctcssDcs) valid(f *Field) error {
	if _, err := ctcssDcsCode(int(*v)); err != nil {
		return err
	}

	return nil
}

// load sets the ctcssDcs's value from its bits in cp.bytes.
func (v *ctcssDcs) load(f *Field) {
	*v = ctcssDcs(bytesToInt64(f.bytes()))
}

// store stores the ctcssDcs's value into its bits in cp.bytes.
func (v *ctcssDcs) store(f *Field) {
	f.storeBytes(int64ToBytes(int64(*v), f.size()))
}

// memberListIndex is a field value representing an index into a slice
// of member records.
type memberListIndex struct {
	listIndex
}

/*
// getString returns the memberListIndex's value as a string.
func (v *memberListIndex) getString(f *Field) string {
	name := string(v.listIndex)
	for _, is := range *f.fDesc.indexedStrings {
		if is.String == name {
			return name
		}
	}
	for _, str := range f.memberListNames() {
		if str == name {
			return name
		}
	}

	return invalidValueString
}
*/

/*
// setString sets the memberListIndex's value from a string.
func (v *memberListIndex) setString(f *Field, s string, force bool) error {
	fd := f.fDesc

	if fd.indexedStrings != nil {
		for _, is := range *fd.indexedStrings {
			if is.String == s {
				v.listIndex = listIndex(s)
				return nil
			}
		}
	}

	for _, name := range f.memberListNames() {
		if name == s {
			v.listIndex = listIndex(s)
		}
	}

	return fmt.Errorf("bad memberList record name '%s'", s)
}
*/

// valid returns nil if the listIndex's value is valid.
func (v *memberListIndex) valid(f *Field) error {
	err := v.listIndex.valid(f)
	if err != nil {
		return fmt.Errorf("memberListIndex: invalid Value: %s", v.listIndex)
	}

	value := string(v.listIndex)
	fd := f.fDesc

	if fd.indexedStrings != nil {
		for _, is := range *fd.indexedStrings {
			if is.String == value {
				return nil
			}
		}
	}

	for _, mName := range f.memberListNames() {
		if mName == value {
			return nil
		}
	}
	return fmt.Errorf("memberListIndex: invalid Value: %s", v.listIndex)
}

type gpsListIndex struct {
	listIndex
}

func (v *gpsListIndex) setString(f *Field, s string, force bool) error {
	if s == "" || s == "\00065535" || s == "\00065534" {
		s = f.IndexedStrings()[0].String
	}

	return v.listIndex.setString(f, s, force)
}

type contactListIndex struct {
	listIndex
}

func (v *contactListIndex) setString(f *Field, s string, force bool) error {
	if s == "" {
		s = f.IndexedStrings()[0].String
	}

	return v.listIndex.setString(f, s, force)
}

// listIndex is a field value representing an index into a slice of records
type listIndex string

// getString returns the listIndex's value as a string.
func (v *listIndex) getString(f *Field) string {
	return string(*v)
}

// setString sets the listIndex's value from a string.
func (v *listIndex) setString(f *Field, s string, force bool) error {
	if len(s) > 1 && s[0:1] == "\000" {
		v.init(f, s)
		s = string(*v)
	}

	if force {
		*v = listIndex(s)
		return nil
	}

	for _, str := range f.Strings() {
		if str == s {
			*v = listIndex(s)
			return nil
		}
	}
	return fmt.Errorf("bad %s name: '%s'", f.listRecordType, s)
}

// valid returns nil if the listIndex's value is valid.
func (v *listIndex) valid(f *Field) error {
	value := string(*v)

	for _, str := range f.Strings() {
		if str == value {
			return nil
		}
	}

	return fmt.Errorf("bad %s name: '%s'", f.listRecordType, *v)
}

func (v *listIndex) init(f *Field, str string) {
	if len(str) < 1 || str[0:1] != "\000" {
		l.Fatal("listIndex.init() invalid value")
	}
	str = removeSuffix(f, str[1:])

	index64, err := strconv.ParseUint(str, 10, 16)
	if err != nil {
		l.Fatalf("listIndex ParseInt failure: %s", err.Error())
	}
	index := int(index64)

	fd := f.fDesc

	if fd.indexedStrings != nil {
		for _, is := range *fd.indexedStrings {
			if is.Index == uint16(index) {
				*v = listIndex(is.String)
				return
			}
		}
	}

	index--
	listNames := f.listNames()
	if index < len(listNames) {
		*v = listIndex(listNames[index])
		return
	}

	*v = listIndex(invalidValueString)
}

// load sets the listIndex's value from its bits in cp.bytes.
func (v *listIndex) load(f *Field) {
	f.deferValue(fmt.Sprintf("\000%d", bytesToInt64(f.bytes())))
}

// store stores the listIndex's value into its bits in cp.bytes.
func (v *listIndex) store(f *Field) {
	value := string(*v)
	fd := f.fDesc

	index := -1

	if fd.indexedStrings != nil {
		for _, is := range *fd.indexedStrings {
			if is.String == value {
				index = int(is.Index)
				break
			}
		}
	}

	if index == -1 {
		for i, name := range f.listNames() {
			if name == value {
				index = i + 1
				break
			}
		}
	}

	if index == -1 {
		return
	}

	f.storeBytes(int64ToBytes(int64(index), f.size()))
}

// listIndex is a field value representing an index into a slice of records
type derefListIndex struct {
	listIndex
}

// ascii is a field value representing a ASCII string.
type ascii string

// getString returns the ascii's value as a string.
func (v *ascii) getString(f *Field) string {
	return string(*v)
}

// setString sets the ascii's value from a string.
func (v *ascii) setString(f *Field, s string, force bool) error {
	if len(s) > f.size() {
		return fmt.Errorf("string too long")
	}

	*v = ascii(s)

	return nil
}

// valid returns nil if the ascii's value is valid.
func (v *ascii) valid(f *Field) error {
	return nil
}

// load sets the ascii's value from its bits in cp.bytes.
func (v *ascii) load(f *Field) {
	fBytes := f.bytes()
	nullIndex := bytes.IndexByte(fBytes, 0)
	if nullIndex >= 0 {
		fBytes = fBytes[:nullIndex]
	}
	*v = ascii(string(fBytes))
}

// store stores the ascii's value into its bits in cp.bytes.
func (v *ascii) store(f *Field) {
	bytes := bytes.Repeat([]byte{0xff}, f.size())
	str := string(*v) + "\000"
	copy(bytes, []byte(str))
	f.storeBytes(bytes)
}

// timeStamp is a field value representing a BCD-encoded time string
type timeStamp string

// getString returns the timeStamp's value as a string.
func (v *timeStamp) getString(f *Field) string {
	t, _ := time.Parse("20060102150405", string(*v))
	return t.Format("02-Jan-2006 15:04:05")
}

// SetString sets the timeStamp's value from a string.
func (v *timeStamp) setString(f *Field, s string, force bool) error {
	t, err := time.Parse("02-Jan-2006 15:04:05", s)
	if err != nil {
		return err
	}

	*v = timeStamp(t.Format("20060102150405"))

	return nil
}

// valid returns nil if the timeStamp's value is valid.
func (v *timeStamp) valid(f *Field) error {
	for _, r := range string(*v) {
		if r < '0' && r > '9' {
			return fmt.Errorf("timeStamp is not a decimal value")
		}
	}
	return nil
}

// load sets the timeStamp's value from its bits in cp.bytes.
func (v *timeStamp) load(f *Field) {
	*v = timeStamp(bcdBytesToString(f.bytes()))
}

// store stores the timeStamp's value into its bits in cp.bytes.
func (v *timeStamp) store(f *Field) {
	f.storeBytes(stringToBcdBytes(string(*v)))
}

// timeStamp is a field value representing a BCD-encoded time string
type cpsVersion string

// getString returns the cpsVersion's value as a string.
func (v *cpsVersion) getString(f *Field) string {
	return string(*v)
}

// SetString sets the cpsVersion's value from a string.
func (v *cpsVersion) setString(f *Field, s string, force bool) error {
	if len(s) != f.size() {
		return fmt.Errorf("bad string length")
	}

	*v = cpsVersion(s[0:4])

	return nil
}

// valid returns nil if the cpsVersion's value is valid.
func (v *cpsVersion) valid(f *Field) error {
	for _, r := range string(*v) {
		if r < '0' && r > '9' {
			return fmt.Errorf("cpsVersion is not a decimal value")
		}
	}
	return nil
}

// load sets the cpsVersion's value from its bits in cp.bytes.
func (v *cpsVersion) load(f *Field) {
	s := ""
	for _, b := range f.bytes() {
		if b > 9 {
			b = 0
		}
		s += string(int('0') + int(b))
	}
	*v = cpsVersion(s)
}

// store stores the cpsVersion's value into its bits in cp.bytes.
func (v *cpsVersion) store(f *Field) {
	bytes := make([]byte, len(*v))
	for i, r := range *v {
		if r < '0' || r > '9' {
			r = '0'
		}
		bytes[i] = byte(int(r) - int('0'))
	}
	f.storeBytes(bytes)
}

func reverseBytes(bytes []byte) []byte {
	length := len(bytes)
	result := make([]byte, length)
	for i, b := range bytes {
		result[length-1-i] = b
	}

	return result
}

// hexadecimal is a field containing an arbitrary value displayed as hexadecimal
type hexadecimal4 [2]byte

// getString returns the hexadecimal4 value as a string.
func (v *hexadecimal4) getString(f *Field) string {
	return strings.ToUpper(hex.EncodeToString(reverseBytes((*v)[:])))
}

// setString sets the hexadecimal4 value from a string.
func (v *hexadecimal4) setString(f *Field, s string, force bool) error {
	fullLength := len(*v) * 2
	if len(s) != fullLength {
		return fmt.Errorf("must contain %d hex characters", fullLength)
	}

	reversedBytes, err := hex.DecodeString(s)
	if err != nil {
		return errors.New("contains non-hexadecimal characters")
	}

	copy((*v)[:], reverseBytes(reversedBytes))

	return nil
}

// valid returns nil if the hexadecimal4 value is valid.
func (v *hexadecimal4) valid(f *Field) error {
	return nil
}

// load sets the hexadecimal4 value from its bits in cp.bytes.
func (v *hexadecimal4) load(f *Field) {
	copy((*v)[:], f.bytes())
}

// store stores the hexadecimal4 value into its bits in cp.bytes.
func (v *hexadecimal4) store(f *Field) {
	f.storeBytes((*v)[:])
}

// hexadecimal is a field containing an arbitrary value displayed as hexadecimal
type hexadecimal32 [16]byte

// getString returns the hexadecimal32 value as a string.
func (v *hexadecimal32) getString(f *Field) string {
	return strings.ToUpper(hex.EncodeToString(reverseBytes((*v)[:])))
}

// setString sets the hexadecimal32 value from a string.
func (v *hexadecimal32) setString(f *Field, s string, force bool) error {
	fullLength := len(*v) * 2
	if len(s) != fullLength {
		return fmt.Errorf("must contain %d hex characters", fullLength)
	}

	reversedBytes, err := hex.DecodeString(s)
	if err != nil {
		return errors.New("contains non-hexadecimal characters")
	}

	copy((*v)[:], reverseBytes(reversedBytes))

	return nil
}

// valid returns nil if the hexadecimal32 value is valid.
func (v *hexadecimal32) valid(f *Field) error {
	return nil
}

// load sets the hexadecimal32 value from its bits in cp.bytes.
func (v *hexadecimal32) load(f *Field) {
	copy((*v)[:], f.bytes())
}

// store stores the hexadecimal32 value into its bits in cp.bytes.
func (v *hexadecimal32) store(f *Field) {
	f.storeBytes((*v)[:])
}

type biFilename struct {
	iStrings
}

func (v *biFilename) setString(f *Field, s string, force bool) error {
	return nil
}

type deferredValue struct {
	value
	str string
	pos *position
}

type invalidValue struct {
	value
}

var cachedCtcssDcsStrings []string

func ctcssDcsStrings() []string {
	if cachedCtcssDcsStrings != nil {
		return cachedCtcssDcsStrings
	}

	count := len(ctcssFrequencies) + 2*len(dcsCodes) + 1
	cachedCtcssDcsStrings = make([]string, count)

	i := 0

	cachedCtcssDcsStrings[i] = "None"
	i++

	for _, f := range ctcssFrequencies {
		cachedCtcssDcsStrings[i] = fmt.Sprintf("%d.%d", f/10, f%10)
		i++
	}

	for _, c := range dcsCodes {
		cachedCtcssDcsStrings[i] = fmt.Sprintf("D%03dN", c)
		i++
	}

	for _, c := range dcsCodes {
		cachedCtcssDcsStrings[i] = fmt.Sprintf("D%03dI", c)
		i++
	}

	return cachedCtcssDcsStrings
}

var dcsCodes = [...]int{
	23, 25, 26, 31, 32, 36, 43, 47, 51, 53, 54, 65, 71, 72,
	73, 74, 114, 115, 116, 122, 125, 131, 132, 134, 143, 145, 152, 155,
	156, 162, 165, 172, 174, 205, 212, 223, 225, 226, 243, 244, 245, 246,
	251, 252, 255, 261, 263, 265, 266, 271, 274, 306, 311, 315, 325, 331,
	332, 343, 346, 351, 356, 364, 365, 371, 411, 412, 413, 423, 431, 432,
	445, 446, 452, 454, 455, 462, 464, 465, 466, 503, 506, 516, 523, 526,
	532, 546, 565, 606, 612, 624, 627, 631, 632, 654, 662, 664, 703, 712,
	723, 731, 732, 734, 743, 754,
}

var ctcssFrequencies = [...]int{
	670, 693, 719, 744, 770, 797, 825, 854, 885, 915, 948, 974,
	1000, 1035, 1072, 1109, 1148, 1188, 1230, 1273, 1318, 1365, 1413, 1462,
	1514, 1567, 1598, 1622, 1655, 1679, 1713, 1738, 1773, 1799, 1835, 1862,
	1899, 1928, 1966, 1995, 2035, 2065, 2107, 2181, 2257, 2291, 2336, 2418,
	2503, 2541,
}

func goodDcsCode(code int) bool {
	i := sort.SearchInts(dcsCodes[:], code)
	if i < len(dcsCodes) && dcsCodes[i] == code {
		return true
	}

	return false
}

func goodCtcssFrequency(frequency int) bool {
	i := sort.SearchInts(ctcssFrequencies[:], frequency)
	if i < len(ctcssFrequencies) && ctcssFrequencies[i] == frequency {
		return true
	}

	return false
}

func ctcssDcsCode(v int) (string, error) {
	if v == 0 || v == 0xffff {
		return "None", nil
	}

	vType := v >> 14

	v = int(bcdToInt64(int64(v & 0x03fff)))
	if v < 0 {
		return "", fmt.Errorf("only decimal digits are permitted")
	}

	switch vType {
	case 0:
		if !goodCtcssFrequency(v) {
			return "", fmt.Errorf("bad ctcss frequency: %3d.%1d",
				v/10, v%10)
		}

		return fmt.Sprintf("%d.%1d", v/10, v%10), nil

	case 1:
		return "", fmt.Errorf("bad CtcssDcs type 0x%04x", v)

	case 2:
		if !goodDcsCode(v) {
			return "", fmt.Errorf("bad dcs code: %03d", v)
		}

		return fmt.Sprintf("D%03dN", v), nil

	case 3:
		if !goodDcsCode(v) {
			return "", fmt.Errorf("bad dcs code: %03d", v)
		}

		return fmt.Sprintf("D%03dI", v), nil
	}

	return "", fmt.Errorf("bad ctcssDcs value")

}

func ctcssDcsStringToBinary(s string) int {
	if s == "None" {
		return 0xffff
	}

	value := int64(0)
	sType := 0

	if s[0] == 'D' {
		if len(s) != 5 {
			return -1
		}

		switch s[4] {
		case 'N':
			sType = 2

		case 'I':
			sType = 3

		default:
			return -1
		}

		v, err := strconv.ParseInt(s[1:4], 10, 16)
		value = int64(v)
		if err != nil || !goodDcsCode(int(value)) {
			return -1
		}
	} else {
		flt, err := strconv.ParseFloat(s, 16)
		value = int64(flt * 10)
		if err != nil || !goodCtcssFrequency(int(value)) {
			return -1
		}
	}

	value = int64ToBcd(value) | int64(sType<<14)

	return int(value)
}

func deleteField(fields *[]*Field, i int) {
	copy((*fields)[i:], (*fields)[i+1:])
	(*fields)[len(*fields)-1] = nil
	*fields = (*fields)[:len(*fields)-1]
}

func fieldNames(fields []*Field) []string {
	names := make([]string, len(fields))
	for i, f := range fields {
		names[i] = f.String()
	}

	return names
}

func fieldsToStrings(fields []*Field) []string {
	strings := make([]string, len(fields))
	for i, f := range fields {
		strings[i] = f.String()
	}

	return strings
}

func (f *Field) resolveDeferredValue() error {
	dValue, deferred := f.value.(deferredValue)
	if !deferred {
		return nil
	}

	f.value = dValue.value

	if dValue.str == invalidValueString {
		f.value = invalidValue{value: f.value}
		f.valid()
		return nil
	}

	if dValue.str != deferredValueString {
		err := f.setString(dValue.str)
		if err != nil {
			f.deferValue(dValue.str)
			return err
		}
	}

	f.record.makeNameUnique()
	f.valid()

	return nil
}

func (f *Field) isDeferredValue() bool {
	_, deferred := f.value.(deferredValue)
	return deferred
}

func (f *Field) mustDeferValue(str string) bool {
	if f.IsInvalidValue() {
		return false
	}
	if f.isDeferredValue() {
		l.Fatal("already deferred: ", f.FullTypeName())
	}

	switch f.valueType {
	case VtMemberListIndex:
		if str == "None" || str == "Selected" {
			return false
		}
		if !f.record.InCodeplug() {
			return true
		}
		listNames := f.memberListNames()
		return len(listNames) <= 0 || listNames[0] == ""

	case VtListIndex, VtGpsListIndex, VtDerefListIndex, VtContactListIndex:
		if !f.record.InCodeplug() {
			return true
		}
		listNames := f.listNames()
		return len(listNames) <= 0
	}

	return false
}

func (f *Field) deferValue(str string) {
	if f.isDeferredValue() {
		l.Fatal("already deferred: ", f.FullTypeName())
	}

	f.value = deferredValue{value: f.value, str: str}
}

func (f *Field) undeferValue() {
	dValue, deferred := f.value.(deferredValue)
	if !deferred {
		l.Fatal("undeferValue: not deferred: ", f.FullTypeName())
	}

	f.value = dValue.value
}

func (f *Field) DeferredString() string {
	dValue, def := f.value.(deferredValue)
	if !def {
		return "=not deferred="
	}
	return dValue.str
}

func NameFieldChanged(change *Change) {
	f := change.Field()
	r := f.record
	cp := r.codeplug

	previousValue := change.previousValue()
	newValue := f.String()

	fieldRefs := rTypeFieldRefs[r.rType]
	for _, fRef := range fieldRefs {
		rType := fRef.rType
		fType := fRef.fType
		for _, r := range cp.Records(rType) {
			for _, f := range r.Fields(fType) {
				if f.String() != previousValue {
					continue
				}

				f.value.setString(f, newValue, true)
			}
		}

	}
}