source: rubycfg_asp/trunk/asp_dcre/kernel/mailbox.trb@ 315

# -*- coding: utf-8 -*-
#
#   TOPPERS/ASP Kernel
#       Toyohashi Open Platform for Embedded Real-Time Systems/
#       Advanced Standard Profile Kernel
# 
#   Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
#   Copyright (C) 2015,2016 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: mailbox.trb 630 2016-02-14 11:30:17Z ertl-hiro $
# 

#
#               メールボックス機能の生成スクリプト
#

class MailboxObject < KernelObject
  def initialize()
    super("mbx", "mailbox")
  end

  def prepare(key, params)
    # mbxatrが無効の場合（E_RSATR）
    # （TA_NULL，TA_TPRI，TA_MPRIのいずれでもない場合）
    if !(params[:mbxatr] == $TA_NULL || params[:mbxatr] == $TA_TPRI \
                                                                                || params[:mbxatr] == $TA_MPRI)
      error_illegal_id("E_RSATR", params, :mbxatr, :mbxid)
    end

    if params[:mbxatr] == $TA_MPRI
      # 優先度上限メールボックスの場合
      # maxmpriが未指定の場合はエラーとする
      if params[:maxmpri].nil?
        error_api(params, "maxmpri must be specified in %apiname of %mbxid")

      # (TMIN_MPRI <= maxmpri && maxmpri <= TMAX_MPRI)でない場合（E_PAR）
      elsif !($TMIN_MPRI <= params[:maxmpri] && params[:maxmpri] <= $TMAX_MPRI)
        error_illegal_id("E_PAR", params, :maxmpri, :mbxid)
      end
    else
      # 優先度上限メールボックスでない場合
      # maxmpriが指定されている場合は警告メッセージを出す
      if !params[:maxmpri].nil?
        warning_api(params, "%%maxmpri is ignored in %apiname of %mbxid")
      end
      params[:maxmpri] = 0
    end

    # mprihdがNULLでない場合（E_NOSPT）
    if !params[:mprihd].nil? && params[:mprihd] != "NULL"
      error_illegal_id("E_NOSPT", params, :mprihd, :mbxid)
    end
  end

  def generateInib(key, params)
    return("(#{params[:mbxatr]}), (#{params[:maxmpri]})")
  end
end

#
#  メールボックスに関する情報の生成
#
$kernelCfgC.comment_header("Mailbox Functions")
MailboxObject.new.generate()