source: asp3_wo_tecs/trunk/kernel/pridataq.trb@ 305

Last change on this file since 305 was 305, checked in by ertl-honda, 7 years ago

3.0.0のリリース版に追従

File size: 4.1 KB
Line 
1# -*- coding: utf-8 -*-
2#
3# TOPPERS/ASP Kernel
4# Toyohashi Open Platform for Embedded Real-Time Systems/
5# Advanced Standard Profile Kernel
6#
7# Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
8# Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
9# Graduate School of Information Science, Nagoya Univ., JAPAN
10#
11# 上記著作権者
12は,以下の(1)〜(4)の条件を満たす場合に限り,本ソフトウェ
13# ア(本ソフトウェアを改変したものを含む.以下同じ)を使用・複製・改
14# 変・再é…
15å¸ƒï¼ˆä»¥ä¸‹ï¼Œåˆ©ç”¨ã¨å‘¼ã¶ï¼‰ã™ã‚‹ã“とを無償で許諾する.
16# (1) 本ソフトウェアをソースコードの形で利用する場合には,上記の著作
17# 権表示,この利用条件および下記の無保証規定が,そのままの形でソー
18# スコード中に含まれていること.
19# (2) 本ソフトウェアを,ライブラリ形式など,他のソフトウェア開発に使
20# 用できる形で再é…
21å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
22å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
23# 者
24マニュアルなど)に,上記の著作権表示,この利用条件および下記
25# の無保証規定を掲載すること.
26# (3) 本ソフトウェアを,機器に組み込むなど,他のソフトウェア開発に使
27# 用できない形で再é…
28å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
29# と.
30# (a) 再é…
31å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
32マニュアルなど)に,上記の著
33# 作権表示,この利用条件および下記の無保証規定を掲載すること.
34# (b) 再é…
35å¸ƒã®å½¢æ…
36‹ã‚’,別に定める方法によって,TOPPERSプロジェクトに
37# 報告すること.
38# (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
39# 害からも,上記著作権者
40およびTOPPERSプロジェクトをå…
41è²¬ã™ã‚‹ã“と.
42# また,本ソフトウェアのユーザまたはエンドユーザからのいかなる理
43# 由に基づく請求からも,上記著作権者
44およびTOPPERSプロジェクトを
45# å…
46è²¬ã™ã‚‹ã“と.
47#
48# 本ソフトウェアは,無保証で提供されているものである.上記著作権者
49お
50# よびTOPPERSプロジェクトは,本ソフトウェアに関して,特定の使用目的
51# に対する適合性も含めて,いかなる保証も行わない.また,本ソフトウェ
52# アの利用により直接的または間接的に生じたいかなる損害に関しても,そ
53# の責任を負わない.
54#
55# $Id: pridataq.trb 588 2016-02-05 12:54:58Z ertl-hiro $
56#
57
58#
59# 優å…
60ˆåº¦ãƒ‡ãƒ¼ã‚¿ã‚­ãƒ¥ãƒ¼æ©Ÿèƒ½ã®ç”Ÿæˆã‚¹ã‚¯ãƒªãƒ—ト
61#
62
63class PridataqObject < KernelObject
64 def initialize()
65 super("pdq", "pridataq")
66 end
67
68 def prepare(key, params)
69 # pdqatrが無効の場合(E_RSATR)[NGKI1804]
70 #(TA_TPRI以外のビットがセットされている場合)
71 if (params[:pdqatr] & ~($TA_TPRI)) != 0
72 error_illegal_id("E_RSATR", params, :pdqatr, :pdqid)
73 end
74
75 # (TMIN_DPRI <= maxdpri && maxdpri <= TMAX_DPRI)でない場合(E_PAR)
76 # ï¼»NGKI1819ï¼½
77 if !($TMIN_DPRI <= params[:maxdpri] && params[:maxdpri] <= $TMAX_DPRI)
78 error_illegal_id("E_PAR", params, :maxdpri, :pdqid)
79 end
80
81 # pdqmbがNULLでない場合(E_NOSPT)[ASPS0142]
82 if params[:pdqmb] != "NULL"
83 error_illegal_id("E_PAR", params, :pdqmb, :pdqid)
84 end
85
86 # 優å…
87ˆåº¦ãƒ‡ãƒ¼ã‚¿ã‚­ãƒ¥ãƒ¼ç®¡ç†é ˜åŸŸ
88 if params[:pdqcnt] > 0
89 $kernelCfgC.add("static PDQMB _kernel_pdqmb_#{params[:pdqid]}" \
90 "[#{params[:pdqcnt]}];")
91 end
92 end
93
94 def generateInib(key, params)
95 if params[:pdqcnt] > 0
96 pdqmb = "_kernel_pdqmb_#{params[:pdqid]}"
97 else
98 pdqmb = "NULL"
99 end
100 return("(#{params[:pdqatr]}), (#{params[:pdqcnt]}), " \
101 "(#{params[:maxdpri]}), #{pdqmb}")
102 end
103end
104
105#
106# 優å…
107ˆåº¦ãƒ‡ãƒ¼ã‚¿ã‚­ãƒ¥ãƒ¼ã«é–¢ã™ã‚‹æƒ…
108報の生成
109#
110$kernelCfgC.comment_header("Priority Dataqueue Functions")
111PridataqObject.new.generate()
Note: See TracBrowser for help on using the repository browser.