source: syssvc/serial.c

/*
 *  TOPPERS/ASP Kernel
 *      Toyohashi Open Platform for Embedded Real-Time Systems/
 *      Advanced Standard Profile Kernel
 * 
 *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
 *                              Toyohashi Univ. of Technology, JAPAN
 *  Copyright (C) 2006-2013 by Embedded and Real-Time Systems Laboratory
 *              Graduate School of Information Science, Nagoya Univ., JAPAN
 * 
 *  Ÿåµ­Ãøºîž¢ŒÔ€Ï¡€°Ê²Œ€Î(1)¡Á(4)€ÎŸò·ï€òËþ€¿€¹Ÿì¹ç€ËžÂ€ê¡€ËÜ¥œ¥Õ¥È¥Š¥§
 *  ¥¢¡ÊËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò²þÊÑ€·€¿€â€Î€òŽÞ€à¡¥°Ê²ŒÆ±€ž¡Ë€ò»ÈÍÑ¡ŠÊ£Àœ¡Š²þ
 *  ÊÑ¡ŠºÆÇÛÉۡʰʲŒ¡€ÍøÍрȞƀ֡ˀ¹€ë€³€È€ò̵œþ€ÇµöÂú€¹€ë¡¥
 *  (1) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò¥œ¡Œ¥¹¥³¡Œ¥É€Î·Á€ÇÍøÍÑ€¹€ëŸì¹ç€Ë€Ï¡€Ÿåµ­€ÎÃøºî
 *      ž¢ÉœŒš¡€€³€ÎÍøÍÑŸò·ï€ª€è€Ó²Œµ­€Î̵ÊÝŸÚµ¬Äꀬ¡€€œ€Î€Þ€Þ€Î·Á€Ç¥œ¡Œ
 *      ¥¹¥³¡Œ¥ÉÃæ€ËŽÞ€Þ€ì€Æ€€€ë€³€È¡¥
 *  (2) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò¡€¥é¥€¥Ö¥é¥ê·ÁŒ°€Ê€É¡€ÂŸ€Î¥œ¥Õ¥È¥Š¥§¥¢³«È¯€Ë»È
 *      Íрǀ­€ë·Á€ÇºÆÇÛÉÛ€¹€ëŸì¹ç€Ë€Ï¡€ºÆÇÛÉÛ€ËÈŒ€Š¥É¥­¥å¥á¥ó¥È¡ÊÍøÍÑ
 *      ŒÔ¥Þ¥Ë¥å¥¢¥ë€Ê€É¡Ë€Ë¡€Ÿåµ­€ÎÃøºîž¢ÉœŒš¡€€³€ÎÍøÍÑŸò·ï€ª€è€Ó²Œµ­
 *      €Î̵ÊÝŸÚµ¬Äê€ò·ÇºÜ€¹€ë€³€È¡¥
 *  (3) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ò¡€µ¡Žï€ËÁȀ߹þ€à€Ê€É¡€ÂŸ€Î¥œ¥Õ¥È¥Š¥§¥¢³«È¯€Ë»È
 *      Íрǀ­€Ê€€·Á€ÇºÆÇÛÉÛ€¹€ëŸì¹ç€Ë€Ï¡€Œ¡€Î€€€º€ì€«€ÎŸò·ï€òËþ€¿€¹€³
 *      €È¡¥
 *    (a) ºÆÇÛÉÛ€ËÈŒ€Š¥É¥­¥å¥á¥ó¥È¡ÊÍøÍьԥޥ˥奢¥ë€Ê€É¡Ë€Ë¡€Ÿåµ­€ÎÃø
 *        ºîž¢ÉœŒš¡€€³€ÎÍøÍÑŸò·ï€ª€è€Ó²Œµ­€Î̵ÊÝŸÚµ¬Äê€ò·ÇºÜ€¹€ë€³€È¡¥
 *    (b) ºÆÇÛÉۀηÁÂÖ€ò¡€ÊÌ€ËÄê€á€ëÊýË¡€Ë€è€Ã€Æ¡€TOPPERS¥×¥í¥ž¥§¥¯¥È€Ë
 *        Êó¹ð€¹€ë€³€È¡¥
 *  (4) ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ÎÍøÍрˀè€êÄŸÀÜŪ€Þ€¿€ÏŽÖÀÜŪ€ËÀž€ž€ë€€€«€Ê€ë»
 *      ³²€«€é€â¡€Ÿåµ­Ãøºîž¢ŒÔ€ª€è€ÓTOPPERS¥×¥í¥ž¥§¥¯¥È€òÌÈÀÕ€¹€ë€³€È¡¥
 *      €Þ€¿¡€ËÜ¥œ¥Õ¥È¥Š¥§¥¢€Î¥æ¡Œ¥¶€Þ€¿€Ï¥š¥ó¥É¥æ¡Œ¥¶€«€é€Î€€€«€Ê€ëÍý
 *      ͳ€ËŽð€Å€¯ÀÁµá€«€é€â¡€Ÿåµ­Ãøºîž¢ŒÔ€ª€è€ÓTOPPERS¥×¥í¥ž¥§¥¯¥È€ò
 *      ÌÈÀÕ€¹€ë€³€È¡¥
 * 
 *  ËÜ¥œ¥Õ¥È¥Š¥§¥¢€Ï¡€ÌµÊÝŸÚ€ÇÄ󶡀µ€ì€Æ€€€ë€â€Î€Ç€¢€ë¡¥Ÿåµ­Ãøºîž¢ŒÔ€ª
 *  €è€ÓTOPPERS¥×¥í¥ž¥§¥¯¥È€Ï¡€ËÜ¥œ¥Õ¥È¥Š¥§¥¢€ËŽØ€·€Æ¡€ÆÃÄê€Î»ÈÍÑÌÜŪ
 *  €ËÂЀ¹€ëŬ¹çÀ­€âŽÞ€á€Æ¡€€€€«€Ê€ëÊÝŸÚ€â¹Ô€ï€Ê€€¡¥€Þ€¿¡€ËÜ¥œ¥Õ¥È¥Š¥§
 *  ¥¢€ÎÍøÍрˀè€êÄŸÀÜŪ€Þ€¿€ÏŽÖÀÜŪ€ËÀž€ž€¿€€€«€Ê€ë»³²€ËŽØ€·€Æ€â¡€€œ
 *  €ÎÀÕÇ€€òÉé€ï€Ê€€¡¥
 * 
 *  @(#) $Id$
 */

/*
 *              ¥·¥ê¥¢¥ë¥€¥ó¥¿¥Õ¥§¡Œ¥¹¥É¥é¥€¥Ð
 */

#include <kernel.h>
#include <t_syslog.h>
#include "target_syssvc.h"
#include "target_serial.h"
#include "serial.h"
#include "kernel_cfg.h"

/*
 *  ¥Ð¥Ã¥Õ¥¡¥µ¥€¥º€Î¥Ç¥Õ¥©¥ë¥ÈÃ̀ȥХåե¡€ÎÄêµÁ
 */
#ifndef SERIAL_RCV_BUFSZ1
#define SERIAL_RCV_BUFSZ1       256                     /* ¥Ý¡Œ¥È1€ÎŒõ¿®¥Ð¥Ã¥Õ¥¡¥µ¥€¥º */
#endif /* SERIAL_RCV_BUFSZ1 */

#ifndef SERIAL_SND_BUFSZ1
#define SERIAL_SND_BUFSZ1       256                     /* ¥Ý¡Œ¥È1€ÎÁ÷¿®¥Ð¥Ã¥Õ¥¡¥µ¥€¥º */
#endif /* SERIAL_SND_BUFSZ1 */

static char     rcv_buffer1[SERIAL_RCV_BUFSZ1];
static char     snd_buffer1[SERIAL_SND_BUFSZ1];

#if TNUM_PORT >= 2                                              /* ¥Ý¡Œ¥È2€ËŽØ€¹€ëÄêµÁ */

#ifndef SERIAL_RCV_BUFSZ2
#define SERIAL_RCV_BUFSZ2       256                     /* ¥Ý¡Œ¥È2€ÎŒõ¿®¥Ð¥Ã¥Õ¥¡¥µ¥€¥º */
#endif /* SERIAL_RCV_BUFSZ2 */

#ifndef SERIAL_SND_BUFSZ2
#define SERIAL_SND_BUFSZ2       256                     /* ¥Ý¡Œ¥È2€ÎÁ÷¿®¥Ð¥Ã¥Õ¥¡¥µ¥€¥º */
#endif /* SERIAL_SND_BUFSZ2 */

static char     rcv_buffer2[SERIAL_RCV_BUFSZ2];
static char     snd_buffer2[SERIAL_SND_BUFSZ2];

#endif /* TNUM_PORT >= 2 */

#if TNUM_PORT >= 3                                              /* ¥Ý¡Œ¥È3€ËŽØ€¹€ëÄêµÁ */

#ifndef SERIAL_RCV_BUFSZ3
#define SERIAL_RCV_BUFSZ3       256                     /* ¥Ý¡Œ¥È3€ÎŒõ¿®¥Ð¥Ã¥Õ¥¡¥µ¥€¥º */
#endif /* SERIAL_RCV_BUFSZ3 */

#ifndef SERIAL_SND_BUFSZ3
#define SERIAL_SND_BUFSZ3       256                     /* ¥Ý¡Œ¥È3€ÎÁ÷¿®¥Ð¥Ã¥Õ¥¡¥µ¥€¥º */
#endif /* SERIAL_SND_BUFSZ3 */

static char     rcv_buffer3[SERIAL_RCV_BUFSZ3];
static char     snd_buffer3[SERIAL_SND_BUFSZ3];

#endif /* TNUM_PORT >= 3 */

#if TNUM_PORT >= 4                                              /* ¥Ý¡Œ¥È4€ËŽØ€¹€ëÄêµÁ */

#ifndef SERIAL_RCV_BUFSZ4
#define SERIAL_RCV_BUFSZ4       256                     /* ¥Ý¡Œ¥È4€ÎŒõ¿®¥Ð¥Ã¥Õ¥¡¥µ¥€¥º */
#endif /* SERIAL_RCV_BUFSZ4 */

#ifndef SERIAL_SND_BUFSZ4
#define SERIAL_SND_BUFSZ4       256                     /* ¥Ý¡Œ¥È4€ÎÁ÷¿®¥Ð¥Ã¥Õ¥¡¥µ¥€¥º */
#endif /* SERIAL_SND_BUFSZ4 */

static char     rcv_buffer4[SERIAL_RCV_BUFSZ4];
static char     snd_buffer4[SERIAL_SND_BUFSZ4];

#endif /* TNUM_PORT >= 4 */

#if TNUM_PORT >= 5
#error Serial interface driver supports up to 4 ports.
#endif /* TNUM_PORT >= 5 */

/*
 *  ¥Õ¥í¡ŒÀ©žæ€ËŽØÏ¢€¹€ëÄê¿ô€È¥Þ¥¯¥í
 */
#define FC_STOP                 '\023'          /* ¥³¥ó¥È¥í¡Œ¥ë-S */
#define FC_START                '\021'          /* ¥³¥ó¥È¥í¡Œ¥ë-Q */

#define BUFCNT_STOP(bufsz)              ((bufsz) * 3 / 4)       /* STOP€òÁ÷€ëŽðœàÊž»ú¿ô */
#define BUFCNT_START(bufsz)             ((bufsz) / 2)           /* START€òÁ÷€ëŽðœàÊž»ú¿ô */

/*
 *  ¥·¥ê¥¢¥ë¥Ý¡Œ¥ÈœéŽü²œ¥Ö¥í¥Ã¥¯
 */
typedef struct serial_port_initialization_block {
        ID              rcv_semid;              /* Œõ¿®¥Ð¥Ã¥Õ¥¡ŽÉÍýÍÑ¥»¥Þ¥Õ¥©€ÎID */
        ID              snd_semid;              /* Á÷¿®¥Ð¥Ã¥Õ¥¡ŽÉÍýÍÑ¥»¥Þ¥Õ¥©€ÎID */
        uint_t  rcv_bufsz;              /* Œõ¿®¥Ð¥Ã¥Õ¥¡¥µ¥€¥º */
        char    *rcv_buffer;    /* Œõ¿®¥Ð¥Ã¥Õ¥¡ */
        uint_t  snd_bufsz;              /* Á÷¿®¥Ð¥Ã¥Õ¥¡¥µ¥€¥º */
        char    *snd_buffer;    /* Á÷¿®¥Ð¥Ã¥Õ¥¡ */
} SPINIB;

static const SPINIB spinib_table[TNUM_PORT] = {
        { SERIAL_RCV_SEM1, SERIAL_SND_SEM1,
          SERIAL_RCV_BUFSZ1, rcv_buffer1,
          SERIAL_SND_BUFSZ1, snd_buffer1 },
#if TNUM_PORT >= 2
        { SERIAL_RCV_SEM2, SERIAL_SND_SEM2,
          SERIAL_RCV_BUFSZ2, rcv_buffer2,
          SERIAL_SND_BUFSZ2, snd_buffer2 },
#endif /* TNUM_PORT >= 2 */
#if TNUM_PORT >= 3
        { SERIAL_RCV_SEM3, SERIAL_SND_SEM3,
          SERIAL_RCV_BUFSZ3, rcv_buffer3,
          SERIAL_SND_BUFSZ3, snd_buffer3 },
#endif /* TNUM_PORT >= 3 */
#if TNUM_PORT >= 4
        { SERIAL_RCV_SEM4, SERIAL_SND_SEM4,
          SERIAL_RCV_BUFSZ4, rcv_buffer4,
          SERIAL_SND_BUFSZ4, snd_buffer4 },
#endif /* TNUM_PORT >= 4 */
};

/*
 *  ¥·¥ê¥¢¥ë¥Ý¡Œ¥ÈŽÉÍý¥Ö¥í¥Ã¥¯
 */
typedef struct serial_port_control_block {
        const SPINIB *p_spinib;         /* ¥·¥ê¥¢¥ë¥Ý¡Œ¥ÈœéŽü²œ¥Ö¥í¥Ã¥¯ */
        SIOPCB  *p_siopcb;                      /* ¥·¥ê¥¢¥ëI/O¥Ý¡Œ¥ÈŽÉÍý¥Ö¥í¥Ã¥¯ */
        bool_t  openflag;                       /* ¥ª¡Œ¥×¥óºÑ€ß¥Õ¥é¥° */
        bool_t  errorflag;                      /* ¥š¥é¡Œ¥Õ¥é¥° */
        uint_t  ioctl;                          /* Æ°ºîÀ©žæ€ÎÀßÄêÃÍ */

        uint_t  rcv_read_ptr;           /* Œõ¿®¥Ð¥Ã¥Õ¥¡ÆɜЀ·¥Ý¥€¥ó¥¿ */
        uint_t  rcv_write_ptr;          /* Œõ¿®¥Ð¥Ã¥Õ¥¡œñ¹þ€ß¥Ý¥€¥ó¥¿ */
        uint_t  rcv_count;                      /* Œõ¿®¥Ð¥Ã¥Õ¥¡Ãæ€ÎÊž»ú¿ô */
        char    rcv_fc_chr;                     /* Á÷€ë€Ù€­START/STOP */
        bool_t  rcv_stopped;            /* STOP€òÁ÷€Ã€¿ŸõÂÖ€«¡© */

        uint_t  snd_read_ptr;           /* Á÷¿®¥Ð¥Ã¥Õ¥¡ÆɜЀ·¥Ý¥€¥ó¥¿ */
        uint_t  snd_write_ptr;          /* Á÷¿®¥Ð¥Ã¥Õ¥¡œñ¹þ€ß¥Ý¥€¥ó¥¿ */
        uint_t  snd_count;                      /* Á÷¿®¥Ð¥Ã¥Õ¥¡Ãæ€ÎÊž»ú¿ô */
        bool_t  snd_stopped;            /* STOP€òŒõ€±Œè€Ã€¿ŸõÂÖ€«¡© */
} SPCB;

static SPCB     spcb_table[TNUM_PORT];

/*
 *  ¥·¥ê¥¢¥ë¥Ý¡Œ¥ÈID€«€é¥·¥ê¥¢¥ë¥Ý¡Œ¥ÈŽÉÍý¥Ö¥í¥Ã¥¯€òŒè€êœÐ€¹€¿€á€Î¥Þ¥¯¥í
 */
#define INDEX_PORT(portid)      ((uint_t)((portid) - 1))
#define get_spcb(portid)        (&(spcb_table[INDEX_PORT(portid)]))

/*
 *  ¥Ý¥€¥ó¥¿€Î¥€¥ó¥¯¥ê¥á¥ó¥È
 */
#define INC_PTR(ptr, bufsz) do {        \
        if (++(ptr) == (bufsz)) {               \
                (ptr) = 0;                                      \
         }                                                              \
} while (false)

/*
 *  ¥µ¡Œ¥Ó¥¹¥³¡Œ¥ëžÆœÐ€·¥Þ¥¯¥í
 *
 *  ¥µ¡Œ¥Ó¥¹¥³¡Œ¥ëžÆœÐ€·€òŽÞ€àŒ°exp€òÉŸ²Á€·¡€ÊÖÃÍ€¬¥š¥é¡Œ¡ÊÉé€ÎÃ͡ˀΟì
 *  ¹ç€Ë€Ï¡€erc€Ëercd_exp€òÉŸ²Á€·€¿ÃÍ€òÂåÆþ€·¡€error_exit€Ëgoto€¹€ë¡¥
 */
#define SVC(exp, ercd_exp) do {         \
        if ((exp) < 0) {                                \
                ercd = (ercd_exp);                      \
                goto error_exit;                        \
        }                                                               \
} while (false)

/*
 *  E_SYS¥š¥é¡Œ€ÎÀžÀ®
 */
static ER
gen_ercd_sys(SPCB *p_spcb)
{
        p_spcb->errorflag = true;
        return(E_SYS);
}

/*
 *  ÂÔ€Á€ËÆþ€ë¥µ¡Œ¥Ó¥¹¥³¡Œ¥ë€«€é€Î¥š¥é¡Œ€ÎÊÑŽ¹
 */
static ER
gen_ercd_wait(ER rercd, SPCB *p_spcb)
{
        switch (MERCD(rercd)) {
        case E_RLWAI:
        case E_DLT:
                return(rercd);
        default:
                p_spcb->errorflag = true;
                return(E_SYS);
        }
}

/*
 *  ¥·¥ê¥¢¥ë¥€¥ó¥¿¥Õ¥§¡Œ¥¹¥É¥é¥€¥Ð€ÎœéŽü²œ¥ë¡Œ¥Á¥ó
 */
void
serial_initialize(intptr_t exinf)
{
        uint_t  i;
        SPCB    *p_spcb;

        for (i = 0; i < TNUM_PORT; i++) {
                p_spcb = &(spcb_table[i]);
                p_spcb->p_spinib = &(spinib_table[i]);
                p_spcb->openflag = false;
        }
}

/*
 *  ¥·¥ê¥¢¥ë¥Ý¡Œ¥È€Î¥ª¡Œ¥×¥ó¡Ê¥µ¡Œ¥Ó¥¹¥³¡Œ¥ë¡Ë
 */
ER
serial_opn_por(ID portid)
{
        SPCB    *p_spcb;
        ER              ercd;

        if (sns_dpn()) {                                /* ¥³¥ó¥Æ¥­¥¹¥È€Î¥Á¥§¥Ã¥¯ */
                return(E_CTX);
        }
        if (!(1 <= portid && portid <= TNUM_PORT)) {
                return(E_ID);                           /* ¥Ý¡Œ¥ÈÈÖ¹æ€Î¥Á¥§¥Ã¥¯ */
        }
        p_spcb = get_spcb(portid);

        SVC(dis_dsp(), gen_ercd_sys(p_spcb));
        if (p_spcb->openflag) {                 /* ¥ª¡Œ¥×¥óºÑ€ß€«€Î¥Á¥§¥Ã¥¯ */
                ercd = E_OBJ;
        }
        else {
                /*
                 *  ÊÑ¿ô€ÎœéŽü²œ
                 */
                p_spcb->ioctl = (IOCTL_ECHO | IOCTL_CRLF | IOCTL_FCSND | IOCTL_FCRCV);

                p_spcb->rcv_read_ptr = 0U;
                p_spcb->rcv_write_ptr = 0U;
                p_spcb->rcv_count = 0U;
                p_spcb->rcv_fc_chr = '\0';
                p_spcb->rcv_stopped = false;

                p_spcb->snd_read_ptr = 0U;
                p_spcb->snd_write_ptr = 0U;
                p_spcb->snd_count = 0U;
                p_spcb->snd_stopped = false;

                /*
                 *  €³€ì°Ê¹ß¡€³ä¹þ€ß€ò¶Ø»ß€¹€ë¡¥
                 */
                if (loc_cpu() < 0) {
                        ercd = E_SYS;
                        goto error_exit_enadsp;
                }

                /*
                 *  ¥Ï¡Œ¥É¥Š¥§¥¢°Íž€Î¥ª¡Œ¥×¥óœèÍý
                 */
                p_spcb->p_siopcb = sio_opn_por(portid, (intptr_t) p_spcb);

                /*
                 *  Œõ¿®ÄÌÃÎ¥³¡Œ¥ë¥Ð¥Ã¥¯€òµö²Ä€¹€ë¡¥
                 */
                sio_ena_cbr(p_spcb->p_siopcb, SIO_RDY_RCV);
                p_spcb->openflag = true;
                p_spcb->errorflag = false;

                if (unl_cpu() < 0) {
                        p_spcb->errorflag = true;
                        ercd = E_SYS;
                        goto error_exit_enadsp;
                }
                ercd = E_OK;
        }

  error_exit_enadsp:
        SVC(ena_dsp(), gen_ercd_sys(p_spcb));

  error_exit:
        return(ercd);
}

/*
 *  ¥·¥ê¥¢¥ë¥Ý¡Œ¥È€Î¥¯¥í¡Œ¥º¡Ê¥µ¡Œ¥Ó¥¹¥³¡Œ¥ë¡Ë
 */
ER
serial_cls_por(ID portid)
{
        SPCB    *p_spcb;
        ER              ercd;
        bool_t  eflag = false;

        if (sns_dpn()) {                                /* ¥³¥ó¥Æ¥­¥¹¥È€Î¥Á¥§¥Ã¥¯ */
                return(E_CTX);
        }
        if (!(1 <= portid && portid <= TNUM_PORT)) {
                return(E_ID);                           /* ¥Ý¡Œ¥ÈÈÖ¹æ€Î¥Á¥§¥Ã¥¯ */
        }
        p_spcb = get_spcb(portid);

        SVC(dis_dsp(), gen_ercd_sys(p_spcb));
        if (!(p_spcb->openflag)) {              /* ¥ª¡Œ¥×¥óºÑ€ß€«€Î¥Á¥§¥Ã¥¯ */
                ercd = E_OBJ;
        }
        else {
                /*
                 *  ¥Ï¡Œ¥É¥Š¥§¥¢°Íž€Î¥¯¥í¡Œ¥ºœèÍý
                 */
                if (loc_cpu() < 0) {
                        eflag = true;
                }
                sio_cls_por(p_spcb->p_siopcb);
                p_spcb->openflag = false;
                if (unl_cpu() < 0) {
                        eflag = true;
                }

                /*
                 *  ¥»¥Þ¥Õ¥©€ÎœéŽü²œ
                 */
                if (ini_sem(p_spcb->p_spinib->snd_semid) < 0) {
                        eflag = true;
                }
                if (ini_sem(p_spcb->p_spinib->rcv_semid) < 0) {
                        eflag = true;
                }

                /*
                 *  ¥š¥é¡Œ¥³¡Œ¥É€ÎÀßÄê
                 */
                if (eflag) {
                        ercd = gen_ercd_sys(p_spcb);
                }
                else {
                        ercd = E_OK;
                }
        }
        SVC(ena_dsp(), gen_ercd_sys(p_spcb));

  error_exit:
        return(ercd);
}

/*
 *  ¥·¥ê¥¢¥ë¥Ý¡Œ¥È€Ø€ÎÊž»úÁ÷¿®
 *
 *  p_spcb€Ç»ØÄꀵ€ì€ë¥·¥ê¥¢¥ëI/O¥Ý¡Œ¥È€ËÂЀ·€Æ¡€Êž»úc€òÁ÷¿®€¹€ë¡¥Êž»ú
 *  €òÁ÷¿®¥ì¥ž¥¹¥¿€Ë€€€ì€¿Ÿì¹ç€Ë€Ïtrue€òÊÖ€¹¡¥€œ€Š€Ç€Ê€€Ÿì¹ç€Ë€Ï¡€Á÷¿®
 *  ¥ì¥ž¥¹¥¿€¬¶õ€€€¿€³€È€òÄÌÃ΀¹€ë¥³¡Œ¥ë¥Ð¥Ã¥¯ŽØ¿ô€òµö²Ä€·¡€false€òÊÖ€¹¡¥
 *  €³€ÎŽØ¿ô€Ï¡€CPU¥í¥Ã¥¯ŸõÂրǞƀӜЀµ€ì€ë¡¥
 */
Inline bool_t
serial_snd_chr(SPCB *p_spcb, char c)
{
        if (sio_snd_chr(p_spcb->p_siopcb, c)) {
                return(true);
        }
        else {
                sio_ena_cbr(p_spcb->p_siopcb, SIO_RDY_SND);
                return(false);
        }
}

/*
 *  ¥·¥ê¥¢¥ë¥Ý¡Œ¥È€Ø€Î1Êž»úÁ÷¿®
 */
static ER_BOOL
serial_wri_chr(SPCB *p_spcb, char c)
{
        bool_t  buffer_full;
        ER              ercd, rercd;

        /*
         *  LF€ÎÁ°€ËCR€òÁ÷¿®€¹€ë¡¥
         */
        if (c == '\n' && (p_spcb->ioctl & IOCTL_CRLF) != 0U) {
                /*
                 *  °Ê²Œ€Î¥³¡Œ¥É€ÏºÆµ¢žÆœÐ€·€Ë€Ê€Ã€Æ€€€ë€¬¡€°ú¿ôc€¬'\n'€ÎŸì¹ç€Ë
                 *  °ú¿ôc€ò'\r'€È€·€ÆžÆ€ÓœÐ€¹€³€È€«€é¡€€³€ÎºÆµ¢žÆœÐ€·€Ï2²óÌÜ€Î
                 *  žÆ€ÓœÐ€·€Çɬ€º»ß€Þ€ë¡¥
                 */
                SVC(rercd = serial_wri_chr(p_spcb, '\r'), rercd);
                if ((bool_t) rercd) {
                        SVC(rercd = wai_sem(p_spcb->p_spinib->snd_semid),
                                                                                gen_ercd_wait(rercd, p_spcb));
                }
        }

        SVC(loc_cpu(), gen_ercd_sys(p_spcb));
        if (p_spcb->snd_count == 0U && !(p_spcb->snd_stopped)
                                                                && serial_snd_chr(p_spcb, c)) {
                /*
                 *  ¥·¥ê¥¢¥ëI/O¥Ç¥Ð¥€¥¹€ÎÁ÷¿®¥ì¥ž¥¹¥¿€ËÊž»ú€òÆþ€ì€ë€³€È€ËÀ®žù€·
                 *  €¿Ÿì¹ç¡¥
                 */
                buffer_full = false;
        }
        else {
                /*
                 *  Á÷¿®¥Ð¥Ã¥Õ¥¡€ËÊž»ú€òÆþ€ì€ë¡¥
                 */
                p_spcb->p_spinib->snd_buffer[p_spcb->snd_write_ptr] = c;
                INC_PTR(p_spcb->snd_write_ptr, p_spcb->p_spinib->snd_bufsz);
                p_spcb->snd_count++;
                buffer_full = (p_spcb->snd_count == p_spcb->p_spinib->snd_bufsz);
        }

        SVC(unl_cpu(), gen_ercd_sys(p_spcb));
        ercd = (ER_BOOL) buffer_full;

  error_exit:
        return(ercd);
}

/*
 *  ¥·¥ê¥¢¥ë¥Ý¡Œ¥È€Ø€ÎÊž»úÎóÁ÷¿®¡Ê¥µ¡Œ¥Ó¥¹¥³¡Œ¥ë¡Ë
 */
ER_UINT
serial_wri_dat(ID portid, const char *buf, uint_t len)
{
        SPCB    *p_spcb;
        bool_t  buffer_full;
        uint_t  wricnt = 0U;
        ER              ercd, rercd;

        if (sns_dpn()) {                                /* ¥³¥ó¥Æ¥­¥¹¥È€Î¥Á¥§¥Ã¥¯ */
                return(E_CTX);
        }
        if (!(1 <= portid && portid <= TNUM_PORT)) {
                return(E_ID);                           /* ¥Ý¡Œ¥ÈÈÖ¹æ€Î¥Á¥§¥Ã¥¯ */
        }

        p_spcb = get_spcb(portid);
        if (!(p_spcb->openflag)) {              /* ¥ª¡Œ¥×¥óºÑ€ß€«€Î¥Á¥§¥Ã¥¯ */
                return(E_OBJ);
        }
        if (p_spcb->errorflag) {                /* ¥š¥é¡ŒŸõÂÖ€«€Î¥Á¥§¥Ã¥¯ */
                return(E_SYS);
        }

        buffer_full = true;                             /* ¥ë¡Œ¥×€Î1²ó€á€Ïwai_sem€¹€ë */
        while (wricnt < len) {
                if (buffer_full) {
                        SVC(rercd = wai_sem(p_spcb->p_spinib->snd_semid),
                                                                                gen_ercd_wait(rercd, p_spcb));
                }
                SVC(rercd = serial_wri_chr(p_spcb, *buf++), rercd);
                wricnt++;
                buffer_full = (bool_t) rercd;
        }
        if (!buffer_full) {
                SVC(sig_sem(p_spcb->p_spinib->snd_semid), gen_ercd_sys(p_spcb));
        }
        ercd = E_OK;

  error_exit:
        return(wricnt > 0U ? (ER_UINT) wricnt : ercd);
}

/*
 *  ¥·¥ê¥¢¥ë¥Ý¡Œ¥È€«€é€Î1Êž»úŒõ¿®
 */
static bool_t
serial_rea_chr(SPCB *p_spcb, char *p_c)
{
        bool_t  buffer_empty;
        ER              ercd;

        SVC(loc_cpu(), gen_ercd_sys(p_spcb));

        /*
         *  Œõ¿®¥Ð¥Ã¥Õ¥¡€«€éÊž»ú€òŒè€êœÐ€¹¡¥
         */
        *p_c = p_spcb->p_spinib->rcv_buffer[p_spcb->rcv_read_ptr];
        INC_PTR(p_spcb->rcv_read_ptr, p_spcb->p_spinib->rcv_bufsz);
        p_spcb->rcv_count--;
        buffer_empty = (p_spcb->rcv_count == 0U);

        /*
         *  START€òÁ÷¿®€¹€ë¡¥
         */
        if (p_spcb->rcv_stopped && p_spcb->rcv_count
                                                                <= BUFCNT_START(p_spcb->p_spinib->rcv_bufsz)) {
                if (!serial_snd_chr(p_spcb, FC_START)) {
                        p_spcb->rcv_fc_chr = FC_START;
                }
                p_spcb->rcv_stopped = false;
        }

        SVC(unl_cpu(), gen_ercd_sys(p_spcb));
        ercd = (ER_BOOL) buffer_empty;

  error_exit:
        return(ercd);
}

/*
 *  ¥·¥ê¥¢¥ë¥Ý¡Œ¥È€«€é€ÎÊž»úÎóŒõ¿®¡Ê¥µ¡Œ¥Ó¥¹¥³¡Œ¥ë¡Ë
 */
ER_UINT
serial_rea_dat(ID portid, char *buf, uint_t len)
{
        SPCB    *p_spcb;
        bool_t  buffer_empty;
        uint_t  reacnt = 0U;
        char    c = '\0';               /* ¥³¥ó¥Ñ¥€¥é€Î·Ù¹ð€òÍ޻߀¹€ë€¿€á€ËœéŽü²œ€¹€ë */
        ER              ercd, rercd;

        if (sns_dpn()) {                                /* ¥³¥ó¥Æ¥­¥¹¥È€Î¥Á¥§¥Ã¥¯ */
                return(E_CTX);
        }
        if (!(1 <= portid && portid <= TNUM_PORT)) {
                return(E_ID);                           /* ¥Ý¡Œ¥ÈÈÖ¹æ€Î¥Á¥§¥Ã¥¯ */
        }

        p_spcb = get_spcb(portid);
        if (!(p_spcb->openflag)) {              /* ¥ª¡Œ¥×¥óºÑ€ß€«€Î¥Á¥§¥Ã¥¯ */
                return(E_OBJ);
        }
        if (p_spcb->errorflag) {                /* ¥š¥é¡ŒŸõÂÖ€«€Î¥Á¥§¥Ã¥¯ */
                return(E_SYS);
        }

        buffer_empty = true;                    /* ¥ë¡Œ¥×€Î1²ó€á€Ïwai_sem€¹€ë */
        while (reacnt < len) {
                if (buffer_empty) {
                        SVC(rercd = wai_sem(p_spcb->p_spinib->rcv_semid),
                                                                                gen_ercd_wait(rercd, p_spcb));
                }
                SVC(rercd = serial_rea_chr(p_spcb, &c), rercd);
                *buf++ = c;
                reacnt++;
                buffer_empty = (bool_t) rercd;

                /*
                 *  ¥š¥³¡Œ¥Ð¥Ã¥¯œèÍý¡¥
                 */
                if ((p_spcb->ioctl & IOCTL_ECHO) != 0U) {
                        SVC(rercd = wai_sem(p_spcb->p_spinib->snd_semid),
                                                                                gen_ercd_wait(rercd, p_spcb));
                        SVC(rercd = serial_wri_chr(p_spcb, c), rercd);
                        if (!((bool_t) rercd)) {
                                SVC(sig_sem(p_spcb->p_spinib->snd_semid),
                                                                                gen_ercd_sys(p_spcb));
                        }
                }
        }
        if (!buffer_empty) {
                SVC(sig_sem(p_spcb->p_spinib->rcv_semid), gen_ercd_sys(p_spcb));
        }
        ercd = E_OK;

  error_exit:
        return(reacnt > 0U ? (ER_UINT) reacnt : ercd);
}

/*
 *  ¥·¥ê¥¢¥ë¥Ý¡Œ¥È€ÎÀ©žæ¡Ê¥µ¡Œ¥Ó¥¹¥³¡Œ¥ë¡Ë
 */
ER
serial_ctl_por(ID portid, uint_t ioctl)
{
        SPCB    *p_spcb;

        if (sns_dpn()) {                                /* ¥³¥ó¥Æ¥­¥¹¥È€Î¥Á¥§¥Ã¥¯ */
                return(E_CTX);
        }
        if (!(1 <= portid && portid <= TNUM_PORT)) {
                return(E_ID);                           /* ¥Ý¡Œ¥ÈÈÖ¹æ€Î¥Á¥§¥Ã¥¯ */
        }

        p_spcb = get_spcb(portid);
        if (!(p_spcb->openflag)) {              /* ¥ª¡Œ¥×¥óºÑ€ß€«€Î¥Á¥§¥Ã¥¯ */
                return(E_OBJ);
        }
        if (p_spcb->errorflag) {                /* ¥š¥é¡ŒŸõÂÖ€«€Î¥Á¥§¥Ã¥¯ */
                return(E_SYS);
        }

        p_spcb->ioctl = ioctl;
        return(E_OK);
}

/*
 *  ¥·¥ê¥¢¥ë¥Ý¡Œ¥ÈŸõÂրλ²ŸÈ¡Ê¥µ¡Œ¥Ó¥¹¥³¡Œ¥ë¡Ë
 */
ER
serial_ref_por(ID portid, T_SERIAL_RPOR *pk_rpor)
{
        SPCB    *p_spcb;

        if (sns_dpn()) {                                /* ¥³¥ó¥Æ¥­¥¹¥È€Î¥Á¥§¥Ã¥¯ */
                return(E_CTX);
        }
        if (!(1 <= portid && portid <= TNUM_PORT)) {
                return(E_ID);                           /* ¥Ý¡Œ¥ÈÈÖ¹æ€Î¥Á¥§¥Ã¥¯ */
        }

        p_spcb = get_spcb(portid);
        if (!(p_spcb->openflag)) {              /* ¥ª¡Œ¥×¥óºÑ€ß€«€Î¥Á¥§¥Ã¥¯ */
                return(E_OBJ);
        }
        if (p_spcb->errorflag) {                /* ¥š¥é¡ŒŸõÂÖ€«€Î¥Á¥§¥Ã¥¯ */
                return(E_SYS);
        }

        pk_rpor->reacnt = p_spcb->rcv_count;
        pk_rpor->wricnt = p_spcb->snd_count;
        return(E_OK);
}

/*
 *  ¥·¥ê¥¢¥ë¥Ý¡Œ¥È€«€é€ÎÁ÷¿®²ÄÇœ¥³¡Œ¥ë¥Ð¥Ã¥¯
 */
void
sio_irdy_snd(intptr_t exinf)
{
        SPCB    *p_spcb;

        p_spcb = (SPCB *) exinf;
        if (p_spcb->rcv_fc_chr != '\0') {
                /*
                 *  START/STOP €òÁ÷¿®€¹€ë¡¥
                 */
                (void) sio_snd_chr(p_spcb->p_siopcb, p_spcb->rcv_fc_chr);
                p_spcb->rcv_fc_chr = '\0';
        }
        else if (!(p_spcb->snd_stopped) && p_spcb->snd_count > 0U) {
                /*
                 *  Á÷¿®¥Ð¥Ã¥Õ¥¡Ã怫€éÊž»ú€òŒè€êœÐ€·€ÆÁ÷¿®€¹€ë¡¥
                 */
                (void) sio_snd_chr(p_spcb->p_siopcb,
                                        p_spcb->p_spinib->snd_buffer[p_spcb->snd_read_ptr]);
                INC_PTR(p_spcb->snd_read_ptr, p_spcb->p_spinib->snd_bufsz);
                if (p_spcb->snd_count == p_spcb->p_spinib->snd_bufsz) {
                        if (isig_sem(p_spcb->p_spinib->snd_semid) < 0) {
                                p_spcb->errorflag = true;
                        }
                }
                p_spcb->snd_count--;
        }
        else {
                /*
                 *  Á÷¿®€¹€Ù€­Êž»ú€¬€Ê€€Ÿì¹ç€Ï¡€Á÷¿®²ÄÇœ¥³¡Œ¥ë¥Ð¥Ã¥¯€ò¶Ø»ß€¹€ë¡¥
                 */
                sio_dis_cbr(p_spcb->p_siopcb, SIO_RDY_SND);
        }
}

/*
 *  ¥·¥ê¥¢¥ë¥Ý¡Œ¥È€«€é€ÎŒõ¿®ÄÌÃÎ¥³¡Œ¥ë¥Ð¥Ã¥¯
 */
void
sio_irdy_rcv(intptr_t exinf)
{
        SPCB    *p_spcb;
        char    c;

        p_spcb = (SPCB *) exinf;
        c = (char) sio_rcv_chr(p_spcb->p_siopcb);
        if ((p_spcb->ioctl & IOCTL_FCSND) != 0U && c == FC_STOP) {
                /*
                 *  Á÷¿®€ò°ì»þÄä»ß€¹€ë¡¥Á÷¿®Ãæ€ÎÊž»ú€Ï€œ€Î€Þ€ÞÁ÷¿®€¹€ë¡¥
                 */
                p_spcb->snd_stopped = true;
        }
        else if (p_spcb->snd_stopped && (c == FC_START
                                || (p_spcb->ioctl & IOCTL_FCANY) != 0U)) {
                /*
                 *  Á÷¿®€òºÆ³«€¹€ë¡¥
                 */
                p_spcb->snd_stopped = false;
                if (p_spcb->snd_count > 0U) {
                        c = p_spcb->p_spinib->snd_buffer[p_spcb->snd_read_ptr];
                        if (serial_snd_chr(p_spcb, c)) {
                                INC_PTR(p_spcb->snd_read_ptr, p_spcb->p_spinib->snd_bufsz);
                                if (p_spcb->snd_count == p_spcb->p_spinib->snd_bufsz) {
                                        if (isig_sem(p_spcb->p_spinib->snd_semid) < 0) {
                                                p_spcb->errorflag = true;
                                        }
                                }
                                p_spcb->snd_count--;
                        }
                }
        }
        else if ((p_spcb->ioctl & IOCTL_FCSND) != 0U && c == FC_START) {
                /*
                 *  Á÷¿®€ËÂЀ·€Æ¥Õ¥í¡ŒÀ©žæ€·€Æ€€€ëŸì¹ç¡€START €ÏŒÎ€Æ€ë¡¥
                 */
        }
        else if (p_spcb->rcv_count == p_spcb->p_spinib->rcv_bufsz) {
                /*
                 *  ¥Ð¥Ã¥Õ¥¡¥Õ¥ë€ÎŸì¹ç¡€Œõ¿®€·€¿Êž»ú€òŒÎ€Æ€ë¡¥
                 */
        }
        else {
                /*
                 *  Œõ¿®€·€¿Êž»ú€òŒõ¿®¥Ð¥Ã¥Õ¥¡€ËÆþ€ì€ë¡¥
                 */
                p_spcb->p_spinib->rcv_buffer[p_spcb->rcv_write_ptr] = c;
                INC_PTR(p_spcb->rcv_write_ptr, p_spcb->p_spinib->rcv_bufsz);
                if (p_spcb->rcv_count == 0U) {
                        if (isig_sem(p_spcb->p_spinib->rcv_semid) < 0) {
                                p_spcb->errorflag = true;
                        }
                }
                p_spcb->rcv_count++;

                /*
                 *  STOP€òÁ÷¿®€¹€ë¡¥
                 */
                if ((p_spcb->ioctl & IOCTL_FCRCV) != 0U && !(p_spcb->rcv_stopped)
                                                && p_spcb->rcv_count
                                                        >= BUFCNT_STOP(p_spcb->p_spinib->rcv_bufsz)) {
                        if (!serial_snd_chr(p_spcb, FC_STOP)) {
                                p_spcb->rcv_fc_chr = FC_STOP;
                        }
                        p_spcb->rcv_stopped = true;
                }
        }
}

/*
 *  ¥·¥ê¥¢¥ë¥€¥ó¥¿¥Õ¥§¡Œ¥¹¥É¥é¥€¥Ð€«€é€ÎÌ€Á÷¿®Êž»ú€ÎŒèœÐ€·
 */
bool_t
serial_get_chr(ID portid, char *p_c)
{
        SPCB    *p_spcb;

        if (1 <= portid && portid <= TNUM_PORT) {       /* ¥Ý¡Œ¥ÈÈÖ¹æ€Î¥Á¥§¥Ã¥¯ */
                p_spcb = get_spcb(portid);
                if (p_spcb->openflag) {                                 /* ¥ª¡Œ¥×¥óºÑ€ß€«€Î¥Á¥§¥Ã¥¯ */
                        if (p_spcb->snd_count > 0U) {
                                *p_c = p_spcb->p_spinib->snd_buffer[p_spcb->snd_read_ptr];
                                INC_PTR(p_spcb->snd_read_ptr, p_spcb->p_spinib->snd_bufsz);
                                p_spcb->snd_count--;
                                return(true);
                        }
                }
        }
        return(false);
}