source: rtos_arduino/trunk/asp_1.9.2/syssvc/serial.c@ 136

/*
 *  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: serial.c 2524 2013-09-15 17:40:06Z ertl-hiro $
 */

/*
 *              シリアルインタフェースドライバ
 */

#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);
}