R/cqi_command_list.R

In PolMine/cqi: R implementation of the client-server protocol for the CWB (CQI)

hexToRaw <- function(x){
  xHexs <- format(as.hexmode(unlist(x)), width=4)
  xAsRaw <- lapply(
    xHexs,
    function(xHex){
      c(
        as.raw(as.hexmode(substr(xHex, start=1, stop=2))),
        as.raw(as.hexmode(substr(xHex, start=3, stop=4)))
      )
    })
  names(xAsRaw) <- names(x)
  xAsRaw
}


#' @include utils.R
cqiCmdSpec <- list(
  "CQI_STATUS_OK" = 0x0101,
  "CQI_STATUS_CONNECT_OK" = 0x0102,
  "CQI_STATUS_BYE_OK" = 0x0103,
  "CQI_STATUS_PING_OK" = 0x0104,
  "CQI_ERROR_GENERAL_ERROR" = 0x0201,
  "CQI_ERROR_CONNECT_REFUSED" = 0x0202,
  "CQI_ERROR_USER_ABORT" = 0x0203,
  "CQI_ERROR_SYNTAX_ERROR" = 0x0204,
  "CQI_DATA_BYTE" = 0x0301,
  "CQI_DATA_BOOL" = 0x0302,
  "CQI_DATA_INT" = 0x0303,
  "CQI_DATA_STRING" = 0x0304,
  "CQI_DATA_BYTE_LIST" = 0x0305,
  "CQI_DATA_BOOL_LIST" = 0x0306,
  "CQI_DATA_INT_LIST" = 0x0307,
  "CQI_DATA_STRING_LIST" = 0x0308,
  "CQI_DATA_INT_INT" = 0x0309,
  "CQI_DATA_INT_INT_INT_INT" = 0x030A,
  "CQI_DATA_INT_TABLE" = 0x030B,
  "CQI_CL_ERROR_NO_SUCH_ATTRIBUTE" = 0x0401,
  "CQI_CL_ERROR_WRONG_ATTRIBUTE_TYPE" = 0x0402,
  "CQI_CL_ERROR_OUT_OF_RANGE" = 0x0403,
  "CQI_CL_ERROR_REGEX" = 0x0404,
  "CQI_CL_ERROR_CORPUS_ACCESS" = 0x0405,
  "CQI_CL_ERROR_OUT_OF_MEMORY" = 0x0406,
  "CQI_CL_ERROR_INTERNAL" = 0x0407,
  "CQI_CQP_ERROR_GENERAL" = 0x0501,
  "CQI_CQP_ERROR_NO_SUCH_CORPUS" = 0x0502,
  "CQI_CQP_ERROR_INVALID_FIELD" = 0x0503,
  "CQI_CQP_ERROR_OUT_OF_RANGE" = 0x0504,
  "CQI_CTRL_CONNECT" = 0x1101,
  "CQI_CTRL_BYE" = 0x1102,
  "CQI_CTRL_USER_ABORT" = 0x1103,
  "CQI_CTRL_PING" = 0x1104,
  "CQI_CTRL_LAST_GENERAL_ERROR" = 0x1105,
  "CQI_ASK_FEATURE_CQI_1_0" = 0x1201,
  "CQI_ASK_FEATURE_CL_2_3" = 0x1202,
  "CQI_ASK_FEATURE_CQP_2_3" = 0x1203,
  "CQI_CORPUS_LIST_CORPORA" = 0x1301,
  "CQI_CORPUS_CHARSET" = 0x1303,
  "CQI_CORPUS_PROPERTIES" = 0x1304,
  "CQI_CORPUS_POSITIONAL_ATTRIBUTES" = 0x1305,
  "CQI_CORPUS_STRUCTURAL_ATTRIBUTES" = 0x1306,
  "CQI_CORPUS_STRUCTURAL_ATTRIBUTE_HAS_VALUES" = 0x1307,
  "CQI_CORPUS_ALIGNMENT_ATTRIBUTES" = 0x1308,
  "CQI_CORPUS_FULL_NAME" = 0x1309,
  "CQI_CORPUS_INFO" = 0x130A,
  "CQI_CORPUS_DROP_CORPUS" = 0x130B,
  "CQI_CL_ATTRIBUTE_SIZE" = 0x1401,
  "CQI_CL_LEXICON_SIZE" = 0x1402,
  "CQI_CL_DROP_ATTRIBUTE" = 0x1403,
  "CQI_CL_STR2ID" = 0x1404,
  "CQI_CL_ID2STR" = 0x1405,
  "CQI_CL_ID2FREQ" = 0x1406,
  "CQI_CL_CPOS2ID" = 0x1407,
  "CQI_CL_CPOS2STR" = 0x1408,
  "CQI_CL_CPOS2STRUC" = 0x1409,
  "CQI_CL_CPOS2LBOUND" = 0x1420,
  "CQI_CL_CPOS2RBOUND" = 0x1421,
  "CQI_CL_CPOS2ALG" = 0x140A,
  "CQI_CL_STRUC2STR" = 0x140B,
  "CQI_CL_ID2CPOS" = 0x140C,
  "CQI_CL_IDLIST2CPOS" = 0x140D,
  "CQI_CL_REGEX2ID" = 0x140E,
  "CQI_CL_STRUC2CPOS" = 0x140F,
  "CQI_CL_ALG2CPOS" = 0x1410,
  "CQI_CQP_QUERY" = 0x1501,
  "CQI_CQP_LIST_SUBCORPORA" = 0x1502,
  "CQI_CQP_SUBCORPUS_SIZE" = 0x1503,
  "CQI_CQP_SUBCORPUS_HAS_FIELD" = 0x1504,
  "CQI_CQP_DUMP_SUBCORPUS" = 0x1505,
  "CQI_CQP_DROP_SUBCORPUS" = 0x1509,
  "CQI_CQP_FDIST_1" = 0x1510,
  "CQI_CQP_FDIST_2" = 0x1511
)


cqiCmd <- hexToRaw(cqiCmdSpec)
cqiMsg <- setNames(names(cqiCmdSpec), unlist(cqiCmdSpec))