source: rubycfg_ssp/trunk/dataqueue.trb@ 284

# -*- coding: utf-8 -*-
#
#   TOPPERS/SSP 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
#   Copyright (C) 2017 by Naoki Saito
#              Nagoya Municipal Industrial Research Institute, JAPAN
# 
#   上記著作権者
は，以下の(1)〜(4)ã®æ¡ä»¶ã‚’æº€ãŸã™å ´åˆã«é™ã‚Šï¼Œæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§
#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
#   変・再é…
å¸ƒï¼ˆä»¥ä¸‹ï¼Œåˆ©ç”¨ã¨å‘¼ã¶ï¼‰ã™ã‚‹ã“とを無償で許諾する．
#   (1) æœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã‚’ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®å½¢ã§åˆ©ç”¨ã™ã‚‹å ´åˆã«ã¯ï¼Œä¸Šè¨˜ã®è‘—ä½œ
#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
#       スコード中に含まれていること．
#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
#       用できる形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
#       者
マニュアルなど）に，上記の著作権表示，この利用条件および下記
#       の無保証規定を掲載すること．
#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
#       用できない形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
#       と．
#     (a) 再é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
マニュアルなど）に，上記の著
#         作権表示，この利用条件および下記の無保証規定を掲載すること．
#     (b) 再é…
å¸ƒã®å½¢æ…
‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
#         å ±å‘Šã™ã‚‹ã“ã¨ï¼Ž
#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
#       害からも，上記著作権者
およびTOPPERSプロジェクトをå…
è²¬ã™ã‚‹ã“と．
#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
#       由に基づく請求からも，上記著作権者
およびTOPPERSプロジェクトを
#       å…
è²¬ã™ã‚‹ã“と．
# 
#   本ソフトウェアは，無保証で提供されているものである．上記著作権者
お
#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
#   ã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
# 
#   $Id: dataqueue.trb 668 2016-03-03 13:57:53Z ertl-hiro $
# 

#
#               データキュー機能の生成スクリプト
#

class DataqueueObject < KernelObject
  def initialize()
    super("dtq", "dataqueue")
  end

  def prepare()
    $cfgData[@api].sort.each do |key, params|
      # dtqatrãŒç„¡åŠ¹ã®å ´åˆï¼ˆE_RSATR）
      #（TA_NULLä»¥å¤–ã®å ´åˆï¼‰
      if params[:dtqatr] != $TA_NULL
        error_illegal_id("E_RSATR", params, :dtqatr, :dtqid)
      end

      # dtqmbがNULLã§ãªã„å ´åˆï¼ˆE_NOSPT）
      if params[:dtqmb] != "NULL"
        error_illegal_id("E_NOSPT", params, :dtqmb, :dtqid)
      end

      # データキューサイズdtqcntが0ã®å ´åˆ(E_PAR)
      if params[:dtqcnt] == 0
        error_illegal_id("E_PAR", params, :dtqcnt, :dtqid)
      end
    end
  end

  def generateData()
    if $cfgData[:CRE_DTQ].size() > 0
      # äº‹å‰æº–å‚™ï¼ˆã‚¨ãƒ©ãƒ¼ãƒã‚§ãƒƒã‚¯ï¼Œãƒ¡ãƒ¢ãƒªé ˜åŸŸã®ç”Ÿæˆï¼‰
      prepare()

      # ãƒ‡ãƒ¼ã‚¿ã‚­ãƒ¥ãƒ¼é ˜åŸŸ
      $cfgData[@api].each.with_index do |id, index|
        $kernelCfgC.add("static intptr_t _kernel_dtqmb_#{id[1][:dtqid].str}[#{id[1][:dtqcnt]}];")
      end

      #
      # データキュー初期化ブロック
      #

      # データキュー属性(dtqatr)
      $kernelCfgC.append("const ATR\t_kernel_dtqinib_atr[TNUM_DTQID] = {")
      $cfgData[@api].each.with_index do |id, index|
        dtqatr = id[1][:dtqatr]
        $kernelCfgC.append(",") if index > 0
        $kernelCfgC.append("(#{dtqatr.str})")
      end
      $kernelCfgC.add("};")

      # データキューサイズ(dtqcnt)
      $kernelCfgC.append("const uint8_t\t_kernel_dtqinib_size[TNUM_DTQID] = {")
      $cfgData[@api].each.with_index do |id, index|
        $kernelCfgC.append(",") if index > 0 
        $kernelCfgC.append("(#{id[1][:dtqcnt].str})")
      end 
      $kernelCfgC.add("};")

      # ãƒ‡ãƒ¼ã‚¿ã‚­ãƒ¥ãƒ¼ç®¡ç†é ˜åŸŸ(data)
      $kernelCfgC.append("intptr_t * const\t_kernel_dtqinib_data[TNUM_DTQID] = {")
      $cfgData[@api].each.with_index do |id, index|
        $kernelCfgC.append(",") if index > 0
        $kernelCfgC.append("(_kernel_dtqmb_#{id[1][:dtqid].str})")
      end
      $kernelCfgC.add2("};")

      #
      #  データキューコントロールブロック
      #
      $kernelCfgC.add(<<EOS)
uint8_t _kernel_dtqcb_count[TNUM_DTQID];
uint8_t _kernel_dtqcb_head[TNUM_DTQID];
uint8_t _kernel_dtqcb_tail[TNUM_DTQID];
EOS

    else
      # オブジェクトが1ã¤ã‚‚ãªã„å ´åˆ
      $kernelCfgC.add("TOPPERS_EMPTY_LABEL(const ATR, _kernel_dtqinib_atr);") 
      $kernelCfgC.add("TOPPERS_EMPTY_LABEL(intptr_t * const, _kernel_dtqinib_data);") 
      $kernelCfgC.add("TOPPERS_EMPTY_LABEL(const uint8_t, _kernel_dtqinib_size);") 
      $kernelCfgC.add("TOPPERS_EMPTY_LABEL(uint8_t, _kernel_dtqcb_count);") 
      $kernelCfgC.add("TOPPERS_EMPTY_LABEL(uint8_t, _kernel_dtqcb_head);") 
      $kernelCfgC.add2("TOPPERS_EMPTY_LABEL(uint8_t, _kernel_dtqcb_tail);") 
    end
  end
end

#
#  データキューに関する情
å ±ã®ç”Ÿæˆ
#
$kernelCfgC.comment_header("Dataqueue Functions")
DataqueueObject.new.generate()