Changeset 315 for rubycfg_asp/trunk/asp_dcre/kernel/kernel.trb

Timestamp:

Jul 23, 2017, 2:29:40 PM (7 years ago)

Author:

coas-nagasima

Message:

SVNプロパティを設定

File:

• rubycfg_asp/trunk/asp_dcre/kernel/kernel.trb (modified) (27 diffs, 1 prop)

rubycfg_asp/trunk/asp_dcre/kernel/kernel.trb

@@ -9 +9 @@
 #               Graduate School of Information Science, Nagoya Univ., JAPAN
 # 
-#   上記著作権è€
-は，以下の(1)～(4)ã®æ¡ä»¶ã‚’æº€ãŸã™å ´åˆã«é™ã‚Šï¼Œæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§
-#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
-#   変・再é
-å¸ƒï¼ˆä»¥ä¸‹ï¼Œåˆ©ç”¨ã¨å‘¼ã¶ï¼‰ã™ã‚‹ã“とを無償で許諾する．
-#   (1) æœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã‚’ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®å½¢ã§åˆ©ç”¨ã™ã‚‹å ´åˆã«ã¯ï¼Œä¸Šè¨˜ã®è‘—ä½œ
-#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
-#       スコード中に含まれていること．
-#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
-#       用できる形で再é
-å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é
-å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
-#       è€
-マニュアルなど）に，上記の著作権表示，この利用条件および下記
-#       の無保証規定を掲載すること．
-#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
-#       用できない形で再é
-å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
-#       と．
-#     (a) 再é
-å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€
-マニュアルなど）に，上記の著
-#         作権表示，この利用条件および下記の無保証規定を掲載すること．
-#     (b) 再é
-å¸ƒã®å½¢æ
-‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
-#         å ±å‘Šã™ã‚‹ã“ã¨ï¼Ž
-#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
-#       害からも，上記著作権è€
-およびTOPPERSプロジェクトをå
-è²¬ã™ã‚‹ã“と．
-#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
-#       由に基づく請求からも，上記著作権è€
-およびTOPPERSプロジェクトを
-#       å
-è²¬ã™ã‚‹ã“と．
+#   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+#   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+#   (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+#       スコード中に含まれていること．
+#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+#       用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+#       者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+#       の無保証規定を掲載すること．
+#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+#       用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+#       と．
+#     (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+#         作権表示，この利用条件および下記の無保証規定を掲載すること．
+#     (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+#         報告すること．
+#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+#       害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+#       由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+#       免責すること．
 # 
-#   本ソフトウェアは，無保証で提供されているものである．上記著作権è€
-お
-#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
-#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
-#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
-#   ã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
+#   本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+#   の責任を負わない．
 # 
 #   $Id: kernel.trb 716 2016-03-31 06:16:23Z ertl-hiro $
@@ -57 +42 @@
 
 #
-#               コンフィギュレータのパス2の生成スクリプト
-#
-
-#
-#  タイムスタンプファイルの指定
+#               コンフィギュレータのパス2の生成スクリプト
+#
+
+#
+#  タイムスタンプファイルの指定
 #
 $timeStampFileName = "kernel_cfg.timestamp"
 
 #
-#  kernel_cfg.hのå
-ˆé ­éƒ¨åˆ†ã®ç”Ÿæˆ
+#  kernel_cfg.hの先頭部分の生成
 #
 $kernelCfgH = GenFile.new("kernel_cfg.h")
@@ -77 +61 @@
 
 #
-#  kernel_cfg.cのå
-ˆé ­éƒ¨åˆ†ã®ç”Ÿæˆ
+#  kernel_cfg.cの先頭部分の生成
 #
 $kernelCfgC = GenFile.new("kernel_cfg.c")
@@ -92 +75 @@
 
 #
-#  インクルードディレクティブ（#include）
+#  インクルードディレクティブ（#include）
 #
 $kernelCfgC.comment_header("Include Directives (#include)")
@@ -101 +84 @@
 
 #
-#  ã‚¹ã‚¿ãƒƒã‚¯é ˜åŸŸã®ç¢ºä¿é–¢æ•°
-#
-#  ã‚¹ã‚¿ãƒƒã‚¯é ˜åŸŸã®å®šç¾©åˆ†ã¨ï¼Œã‚¹ã‚¿ãƒƒã‚¯é ˜åŸŸã®ã‚µã‚¤ã‚ºè¨˜è¿°ã‚’é
-åˆ—で返す．
+#  スタック領域の確保関数
+#
+#  スタック領域の定義分と，スタック領域のサイズ記述を配列で返す．
 #
 unless defined? AllocStack()
   def AllocStack(stack, size)
-    # 大きい方に丸めたサイズで確保する［NGKI1050］［NGKI3220］
+    # 大きい方に丸めたサイズで確保する［NGKI1050］［NGKI3220］
     $kernelCfgC.add("/*static*/ STK_T #{stack}[COUNT_STK_T(#{size})];")
     return("ROUND_STK_T(#{size})")
@@ -115 +97 @@
 
 #
-#  カーネルオブジェクトに関するæƒ
-å ±ã®ç”Ÿæˆï¼ˆä»®æƒ³ã‚¯ãƒ©ã‚¹ï¼‰
+#  カーネルオブジェクトに関する情報の生成（仮想クラス）
 #
 class KernelObject
@@ -131 +112 @@
 
   def generate()
-    # AID_@OBJの処理
+    # AID_@OBJの処理
     numAutoObjid = 0
     $cfgData["AID_#{@OBJ}".to_sym].each do |key, params|
@@ -138 +119 @@
     numObjid = $cfgData[@api].size + numAutoObjid
 
-    # kernel_cfg.hの生成
+    # kernel_cfg.hの生成
     $kernelCfgH.add("#define TNUM_#{@OBJ}ID\t#{numObjid}")
 
-    # オブジェクトのID番号のマクロ定義の生成
+    # オブジェクトのID番号のマクロ定義の生成
     $cfgData[@api].sort.each do |key, params|
       if params[@objid]
@@ -149 +130 @@
     $kernelCfgH.add()
 
-    # オブジェクトのID番号を保持する変数
+    # オブジェクトのID番号を保持する変数
     if $USE_EXTERNAL_ID
       $cfgData[@api].sort.each do |key, params|
@@ -160 +141 @@
     end
 
-    # 静的に生成されたオブジェクトの数
+    # 静的に生成されたオブジェクトの数
     $kernelCfgC.add("#define TNUM_S#{@OBJ}ID\t#{$cfgData[@api].size}")
 
-    # オブジェクトID番号の最大値
+    # オブジェクトID番号の最大値
     $kernelCfgC.add("const ID _kernel_tmax_#{@obj}id" \
                                                         " = (TMIN_#{@OBJ}ID + TNUM_#{@OBJ}ID - 1);")
@@ -169 +150 @@
                                                         " = (TMIN_#{@OBJ}ID + TNUM_S#{@OBJ}ID - 1);")
 
-    # ãƒ‡ãƒ¼ã‚¿æ§‹é€ 
+    # データ構造
     if $cfgData[@api].size > 0
-      # äº‹å‰æº–å‚™ï¼ˆã‚¨ãƒ©ãƒ¼ãƒã‚§ãƒƒã‚¯ï¼Œãƒ¡ãƒ¢ãƒªé ˜åŸŸã®ç”Ÿæˆï¼‰
+      # 事前準備（エラーチェック，メモリ領域の生成）
       $cfgData[@api].sort.each do |key, params|
         prepare(key, params)
       end
 
-      # オブジェクトå
-¨ä½“に対してå¿
-è¦ãªãƒ¡ãƒ¢ãƒªé ˜åŸŸã®ç”Ÿæˆï¼ˆã‚ªãƒ—ã‚·ãƒ§ãƒ³ï¼‰
+      # オブジェクト全体に対して必要なメモリ領域の生成（オプション）
       if respond_to?(:generateData)
         generateData()
       end
 
-      # オブジェクト初期化ブロックの生成
+      # オブジェクト初期化ブロックの生成
       $kernelCfgC.add("const #{@OBJ_S}INIB _kernel_#{@obj_s}inib_table" \
                                                                                                         "[TNUM_S#{@OBJ}ID] = {")
@@ -197 +176 @@
     end
 
-    # 動的生成オブジェクト用のオブジェクト初期化ブロック
+    # 動的生成オブジェクト用のオブジェクト初期化ブロック
     @inibList.each do |type, array|
       if numAutoObjid > 0
@@ -207 +186 @@
 
     if numObjid > 0
-      # オブジェクト管理ブロックの生成
+      # オブジェクト管理ブロックの生成
       $kernelCfgC.add2("#{@OBJ_S}CB _kernel_#{@obj_s}cb_table" \
                                                                                                         "[TNUM_#{@OBJ}ID];")
 
-      # ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆåˆæœŸåŒ–é–¢æ•°ã®è¿½åŠ 
+      # オブジェクト初期化関数の追加
       $initializeFunctions.push("_kernel_initialize_#{@object}();")
     else
@@ -221 +200 @@
 
 #
-#  各機能モジュールのコンフィギュレーション
+#  各機能モジュールのコンフィギュレーション
 #
 $initializeFunctions = []
@@ -237 +216 @@
 
 #
-#  éžã‚¿ã‚¹ã‚¯ã‚³ãƒ³ãƒ†ã‚­ã‚¹ãƒˆç”¨ã®ã‚¹ã‚¿ãƒƒã‚¯é ˜åŸŸ
+#  非タスクコンテキスト用のスタック領域
 #
 $kernelCfgC.comment_header("Stack Area for Non-task Context")
 
 if $cfgData[:DEF_ICS].size == 0
-  # DEF_ICSãŒãªã„å ´åˆã®ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆå€¤ã®è¨­å®š
+  # DEF_ICSがない場合のデフォルト値の設定
   if $DEFAULT_ISTK.nil?
-    # ã‚¹ã‚¿ãƒƒã‚¯é ˜åŸŸã®è‡ªå‹•å‰²ä»˜ã‘
+    # スタック領域の自動割付け
     istksz = AllocStack("_kernel_istack", "DEFAULT_ISTKSZ")
     istk = "_kernel_istack"
@@ -252 +231 @@
   end
 else
-  # 静的API「DEF_ICS」が複数ある（E_OBJ）［NGKI3216］
+  # 静的API「DEF_ICS」が複数ある（E_OBJ）［NGKI3216］
   if $cfgData[:DEF_ICS].size > 1
     error("E_OBJ: too many DEF_ICS")
   end
 
-  # DEF_ICSãŒã‚ã‚‹å ´åˆã®å‡¦ç†
+  # DEF_ICSがある場合の処理
   params = $cfgData[:DEF_ICS][1]
 
-  # パラメータが省略された時のデフォルト値の設定
+  # パラメータが省略された時のデフォルト値の設定
   params[:istk] ||= "NULL"
 
-  # istkszがターゲット定義の最小値（TARGET_MIN_ISTKSZï¼Œæœªå®šç¾©ã®å ´åˆã¯1）
-  # ã‚ˆã‚Šã‚‚å°ã•ã„å ´åˆï¼ˆE_PAR）［NGKI3254ï¼½
+  # istkszがターゲット定義の最小値（TARGET_MIN_ISTKSZ，未定義の場合は1）
+  # よりも小さい場合（E_PAR）［NGKI3254］
   if params[:istksz] < $TARGET_MIN_ISTKSZ
     error_wrong("E_PAR", params, :istksz, "too small")
@@ -270 +249 @@
 
   if params[:istk] == "NULL"
-    # ã‚¹ã‚¿ãƒƒã‚¯é ˜åŸŸã®è‡ªå‹•å‰²ä»˜ã‘
+    # スタック領域の自動割付け
     istksz = AllocStack("_kernel_istack", params[:istksz])
     istk = "_kernel_istack"
   else
-    # istkszãŒã‚¹ã‚¿ãƒƒã‚¯é ˜åŸŸã®ã‚µã‚¤ã‚ºã¨ã—ã¦æ­£ã—ããªã„å ´åˆï¼ˆE_PAR）［NGKI3222ï¼½
+    # istkszがスタック領域のサイズとして正しくない場合（E_PAR）［NGKI3222］
     if (params[:istksz] & ($CHECK_STKSZ_ALIGN - 1)) != 0
       error_wrong("E_PAR", params, :istksz, "not aligned")
@@ -294 +273 @@
 
 #
-#  ã‚«ãƒ¼ãƒãƒ«ãŒå‰²ã‚Šä»˜ã‘ã‚‹ãƒ¡ãƒ¢ãƒªé ˜åŸŸ
+#  カーネルが割り付けるメモリ領域
 #
 $kernelCfgC.comment_header("Memory Area Allocated by Kernel")
 
 if $cfgData[:DEF_KMM].size == 0
-  # DEF_KMMãŒãªã„å ´åˆã®ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆå€¤ã®è¨­å®š
+  # DEF_KMMがない場合のデフォルト値の設定
   kmmsz = "0"
   kmm = "NULL"
 else
-  # 静的API「DEF_KMM」が複数ある（E_OBJ）
+  # 静的API「DEF_KMM」が複数ある（E_OBJ）
   if ($cfgData[:DEF_KMM].size > 1)
     error("E_OBJ: too many DEF_KMM")
   end
 
-  # DEF_KMMãŒã‚ã‚‹å ´åˆã®å‡¦ç†
+  # DEF_KMMがある場合の処理
   params = $cfgData[:DEF_KMM][1]
 
-  # パラメータが省略された時のデフォルト値の設定
+  # パラメータが省略された時のデフォルト値の設定
   params[:kmm] ||= "NULL"
 
-  # kmmszが0ã®å ´åˆï¼ˆE_PAR）
+  # kmmszが0の場合（E_PAR）
   if params[:kmmsz] == 0
     error_wrong("E_PAR", params, :kmmsz, "zero")
@@ -320 +299 @@
 
   if params[:kmm] == "NULL"
-    # ã‚«ãƒ¼ãƒãƒ«ãŒå‰²ã‚Šä»˜ã‘ã‚‹ãƒ¡ãƒ¢ãƒªé ˜åŸŸã®è‡ªå‹•å‰²ä»˜ã‘
+    # カーネルが割り付けるメモリ領域の自動割付け
     $kernelCfgC.add("static MB_T _kernel_memory" \
                                         "[TOPPERS_COUNT_SZ(#{params[:kmmsz]}, sizeof(MB_T))];")
@@ -326 +305 @@
     kmm = "_kernel_memory"
   else
-    # kmmszãŒã‚«ãƒ¼ãƒãƒ«ãŒå‰²ã‚Šä»˜ã‘ã‚‹ãƒ¡ãƒ¢ãƒªé ˜åŸŸã®ã‚µã‚¤ã‚ºã¨ã—ã¦æ­£ã—ããªã„å ´åˆ
-    # （E_PAR）
+    # kmmszがカーネルが割り付けるメモリ領域のサイズとして正しくない場合
+    # （E_PAR）
     if (params[:kmmsz] & ($CHECK_MB_ALIGN - 1)) != 0
       error_wrong("E_PAR", params, :kmmsz, "not aligned")
@@ -343 +322 @@
 
 #
-#  タイムイベント管理
+#  タイムイベント管理
 #
 $kernelCfgC.comment_header("Time Event Management")
@@ -351 +330 @@
 
 #
-#  各モジュールの初期化関数
+#  各モジュールの初期化関数
 #
 $kernelCfgC.comment_header("Module Initialization Function")
@@ -365 +344 @@
 
 #
-#  初期化ルーチン機能
+#  初期化ルーチン機能
 #
 $kernelCfgC.comment_header("Initialization Routine")
 
-# エラーチェック
+# エラーチェック
 $cfgData[:ATT_INI].each do |key, params|
-  # iniatrãŒç„¡åŠ¹ã®å ´åˆï¼ˆE_RSATR）［NGKI3241ï¼½
-  #（TA_NULLã§ãªã„å ´åˆï¼‰
+  # iniatrが無効の場合（E_RSATR）［NGKI3241］
+  #（TA_NULLでない場合）
   if (params[:iniatr] != $TA_NULL)
     error_illegal_sym("E_RSATR", params, :iniatr, :inirtn)
@@ -378 +357 @@
 end
 
-# 初期化ルーチンの実行関数の生成
+# 初期化ルーチンの実行関数の生成
 $kernelCfgC.append(<<EOS)
 void
@@ -391 +370 @@
 
 #
-#  終了処理ルーチン機能
+#  終了処理ルーチン機能
 #
 $kernelCfgC.comment_header("Termination Routine")
 
-# エラーチェック
+# エラーチェック
 $cfgData[:ATT_TER].each do |key, params|
-  # teratrãŒç„¡åŠ¹ã®å ´åˆï¼ˆE_RSATR）［NGKI3248ï¼½
-  #（TA_NULLã§ãªã„å ´åˆï¼‰
+  # teratrが無効の場合（E_RSATR）［NGKI3248］
+  #（TA_NULLでない場合）
   if (params[:teratr] != $TA_NULL)
     error_illegal_sym("E_RSATR", params, :teratr, :terrtn)
@@ -404 +383 @@
 end
 
-# 終了処理ルーチンの実行関数の生成
+# 終了処理ルーチンの実行関数の生成
 $kernelCfgC.append(<<EOS)
 void
@@ -417 +396 @@
 
 #
-#  kernel_cfg.hの末尾部分の生成
+#  kernel_cfg.hの末尾部分の生成
 #
 $kernelCfgH.append(<<EOS)