parser-6502/parsers/parameters.js

const mona = require('mona')

function quotedChar () {
  return mona.or(mona.noneOf('"'),
                 mona.and(mona.string('""'),
                          mona.value('"')))
}

function alphanum () {
  return mona.join(
    mona.value('alphanum'),
    mona.string('background3')
  )
}

function bit () {
  return mona.join(
    mona.value('digit'),
    mona.digit(2)
  )
}

function string () {
  return mona.join(
    mona.value('string'),
    mona.between(
      mona.string('"'),
      mona.string('"'),
      mona.text(quotedChar())
    )
  )
}

function hex () {
  return mona.join(
    mona.and(
      mona.string('#$'),
      mona.value('hex')
    ),
    mona.text(
      mona.digit(16)
    )
  )
}

function binary () {
  return mona.join(
    mona.and(
      mona.maybe(mona.string('#')),
      mona.string('%'),
      mona.value('binary')
    ),
    mona.text(
      mona.digit(2)
    )
  )
}

function address () {
  return mona.join(
    mona.and(
      mona.string('$'),
      mona.value('address')
    ),
    mona.text(
      mona.alphanum()
    )
  )
}

function parameter () {
  return mona.collect(
    mona.or(
      address(),
      binary(),
      hex(),
      string(),
      bit(),
      alphanum()
    )
  )
}

function parameters () {
  return mona.map(a => a.map(b => b[0]),
    mona.split(
      parameter(),
      mona.or(
        mona.and(mona.string(','), mona.spaces()),
        mona.string(','),
        mona.spaces()
      )
    )
  )
}

module.exports = {
  parameter,
  parameters,
  address,
  binary,
  hex,
  string,
  bit,
  alphanum
}