Changeset 285 for rubycfg_ssp/trunk/task.trb

Timestamp:

May 2, 2017, 5:55:20 PM (7 years ago)

Author:

nmir-saito

Message:

Tracのソース閲覧時に文字化けするためmimetypewo

File:

• rubycfg_ssp/trunk/task.trb (modified) (23 diffs, 1 prop)

rubycfg_ssp/trunk/task.trb

@@ -11 +11 @@
 #              Nagoya Municipal Industrial Research Institute, JAPAN
 # 
-#   上記著作権è€
-は，以下の(1)〜(4)ã®æ¡ä»¶ã‚’æº€ãŸã™å ´åˆã«é™ã‚Šï¼Œæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§
-#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
-#   変・再é
-å¸ƒï¼ˆä»¥ä¸‹ï¼Œåˆ©ç”¨ã¨å‘¼ã¶ï¼‰ã™ã‚‹ã“とを無償で許諾する．
-#   (1) æœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã‚’ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®å½¢ã§åˆ©ç”¨ã™ã‚‹å ´åˆã«ã¯ï¼Œä¸Šè¨˜ã®è‘—ä½œ
-#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
-#       スコード中に含まれていること．
-#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
-#       用できる形で再é
-å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é
-å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
-#       è€
-マニュアルなど）に，上記の著作権表示，この利用条件および下記
-#       の無保証規定を掲載すること．
-#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
-#       用できない形で再é
-å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
-#       と．
-#     (a) 再é
-å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€
-マニュアルなど）に，上記の著
-#         作権表示，この利用条件および下記の無保証規定を掲載すること．
-#     (b) 再é
-å¸ƒã®å½¢æ
-‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
-#         å ±å‘Šã™ã‚‹ã“ã¨ï¼Ž
-#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
-#       害からも，上記著作権è€
-およびTOPPERSプロジェクトをå
-è²¬ã™ã‚‹ã“と．
-#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
-#       由に基づく請求からも，上記著作権è€
-およびTOPPERSプロジェクトを
-#       å
-è²¬ã™ã‚‹ã“と．
-# 
-#   本ソフトウェアは，無保証で提供されているものである．上記著作権è€
-お
-#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
-#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
-#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
-#   ã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
+#   上記著作権者は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
+#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+#   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+#   (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+#       スコード中に含まれていること．
+#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+#       用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+#       者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+#       の無保証規定を掲載すること．
+#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+#       用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+#       と．
+#     (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+#         作権表示，この利用条件および下記の無保証規定を掲載すること．
+#     (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+#         報告すること．
+#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+#       害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+#       由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+#       免責すること．
+# 
+#   本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+#   の責任を負わない．
 # 
 #   $Id: task.trb 668 2016-03-03 13:57:53Z ertl-hiro $
@@ -59 +44 @@
 
 #
-#               タスク管理モジュールの生成スクリプト
+#               タスク管理モジュールの生成スクリプト
 #
 
@@ -73 +58 @@
   end
 
-  # オブジェクトのID番号のマクロ定義の生成
+  # オブジェクトのID番号のマクロ定義の生成
   def generateIdMacro()
-    # タスクIDを起動優å
-ˆåº¦(atskpri)ã®é«˜ã„é †ã« reallocate_atskpri へ割り当てて定義を kernel_cfg.h へ出力
+    # タスクIDを起動優先度(atskpri)の高い順に reallocate_atskpri へ割り当てて定義を kernel_cfg.h へ出力
 
     ($cfgData[:CRE_TSK].sort_by {|e| e[1][:atskpri].val}).each.with_index(1) do |e, index|
@@ -83 +67 @@
       $kernelCfgH.add("#define #{e[1][:tskid].str} #{index}")
 
-      # DEF_EPR で定義されていないタスクの実行時優å
-ˆåº¦ã‚’起動優å
-ˆåº¦ã«è¨­å®šã™ã‚‹
+      # DEF_EPR で定義されていないタスクの実行時優先度を起動優先度に設定する
       epri = $cfgData[:DEF_EPR].find {|i| i[1][:tskid].val == e[1][:tskid].val}
       if epri
@@ -98 +80 @@
 
   #
-  #  指定したタスクに対するスタック使用量の最大を計算
-  #    引数：tskid：タスクID(å†
-部表現．起動時優å
-ˆåº¦ã®å†
-部表現に等しい)
-  #    返値：当該タスクに足しするスタック使用量の最大値．
-  #          この値は，当該タスクの実行開始から終了までの間に
-  #          そのタスクに対するプリエンプトを考æ
-®ã—てスタック使用量を
-  #          è¨ˆç®—ã—ãŸå ´åˆã«ï¼Œå¯èƒ½æ€§ã®ã‚ã‚‹çµ„ã¿åˆã‚ã›ã®ä¸­ã§æœ€å¤§ã¨ãªã‚‹å€¤ã‚’è¿”ã™ï¼Ž
+  #  指定したタスクに対するスタック使用量の最大を計算
+  #    引数：tskid：タスクID(内部表現．起動時優先度の内部表現に等しい)
+  #    返値：当該タスクに足しするスタック使用量の最大値．
+  #          この値は，当該タスクの実行開始から終了までの間に
+  #          そのタスクに対するプリエンプトを考慮してスタック使用量を
+  #          計算した場合に，可能性のある組み合わせの中で最大となる値を返す．
   #
   def calc_stksz(tskid, nest_level=1)
@@ -118 +96 @@
 
     if @stacksize_of_tasks[tskid]
-      # è¨ˆç®—ãŒæ—¢ã«å®Œäº†ã—ã¦ã„ã‚‹å ´åˆï¼Œè¨ˆç®—ã‚’ã‚¹ã‚­ãƒƒãƒ—ã™ã‚‹
+      # 計算が既に完了している場合，計算をスキップする
       $kernelCfgC.add(" * " + ("\t" * nest_level) + "SKIP(max_stksz[#{taskEntry[:tskid].str}] = #{@stacksize_of_tasks[tskid]})")
       stksz = @stacksize_of_tasks[tskid]
     else
-      # å®Œäº†ã—ã¦ã„ãªã„å ´åˆ
+      # 完了していない場合
       $kernelCfgC.append(" * " + ("\t" * nest_level) + "Task list with higher priority than #{taskEntry[:tskid].str} = ")
       @higher_pri_tsklist[tskid].each.with_index do |id, index|
@@ -130 +108 @@
       $kernelCfgC.add()
 
-      # 変数の初期化
+      # 変数の初期化
       higher_pri_maxstksz = 0
 
-      # 当該タスクID の実行時優å
-ˆåº¦ã‚ˆã‚Šé«˜ã„起動優å
-ˆåº¦ã‚’æŒã¤ã‚¿ã‚¹ã‚¯ãŒå­˜åœ¨ã™ã‚‹å ´åˆ
+      # 当該タスクID の実行時優先度より高い起動優先度を持つタスクが存在する場合
       if @higher_pri_tsklist[tskid].size > 0
-        # それぞれの高優å
-ˆåº¦ã‚¿ã‚¹ã‚¯ã«å¯¾ã—，スタック計算を実行する
+        # それぞれの高優先度タスクに対し，スタック計算を実行する
         @higher_pri_tsklist[tskid].each do |id|
           calculated_stack_size = calc_stksz(id, nest_level+1)
-          # 最もサイズが大きいものだけを覚えておく
+          # 最もサイズが大きいものだけを覚えておく
           if higher_pri_maxstksz < calculated_stack_size
             higher_pri_maxstksz = calculated_stack_size
@@ -150 +125 @@
       $kernelCfgC.add(" * " + ("\t" * nest_level) + "higher_pri_maxstksz[#{taskEntry[:tskid].str}] = #{higher_pri_maxstksz}")
 
-      # 高優å
-ˆåº¦ã‚¿ã‚¹ã‚¯ã®ã‚¹ã‚¿ãƒƒã‚¯ä½¿ç”¨é‡ã«ï¼Œå½“è©²ã‚¿ã‚¹ã‚¯ã®ä½¿ç”¨é‡ã‚’åŠ 算する
+      # 高優先度タスクのスタック使用量に，当該タスクの使用量を加算する
       stksz = higher_pri_maxstksz + taskEntry[:stksz]
 
-      # 当該タスクIDに対して計算済みであることを記録
+      # 当該タスクIDに対して計算済みであることを記録
       @stacksize_of_tasks[tskid] = stksz
       $kernelCfgC.add(" * " + ("\t" * nest_level) + "DONE(stksz[#{taskEntry[:tskid].str}] = #{stksz})")
     end
 
-    # 見積もりの最大を返す
+    # 見積もりの最大を返す
     return stksz
   end
 
-  # 事前のチェック
+  # 事前のチェック
   def prepare()
 
     $cfgData[@api].sort.each do |key, params|
 
-      # tskatrが無効（E_RSATR）
-      #（TA_ACT，TA_RSTR，TA_NULL，TARGET_TSKATRä»¥å¤–ã®ãƒ“ãƒƒãƒˆãŒã‚»ãƒƒãƒˆã•ã‚Œã¦ã„ã‚‹å ´åˆï¼‰
+      # tskatrが無効（E_RSATR）
+      #（TA_ACT，TA_RSTR，TA_NULL，TARGET_TSKATR以外のビットがセットされている場合）
       if (params[:tskatr] & ~($TA_ACT|$TA_RSTR|$TARGET_TSKATR)) != 0
         error_illegal_id("E_RSATR", params, :tskatr, :tskid)
       end
 
-      # (TMIN_TPRI <= atskpri && atskpri <= TMAX_TPRI)ã§ãªã„å ´åˆ
+      # (TMIN_TPRI <= atskpri && atskpri <= TMAX_TPRI)でない場合
       if !($TMIN_TPRI <= params[:atskpri] && params[:atskpri] <= $TMAX_TPRI)
         error_illegal_id("E_PAR", params, :atskpri, :tskid)
       end
 
-      # atskpri ãŒé‡è¤‡ã™ã‚‹å ´åˆ (E_PAR)
+      # atskpri が重複する場合 (E_PAR)
       @tsk_apri_list.each do |id|
         if (params[:tskid].val != id) && (params[:atskpri] == $cfgData[@api][id][:atskpri])
@@ -186 +160 @@
       end
 
-      # 実行時優å
-ˆåº¦
+      # 実行時優先度
       if $cfgData[:DEF_EPR][params[:tskid].val]
-        # exepri は TMIN_TPRI 以上 かつ TMAX_TPRI 以下(E_PAR)
+        # exepri は TMIN_TPRI 以上 かつ TMAX_TPRI 以下(E_PAR)
         exepri = $cfgData[:DEF_EPR][params[:tskid].val][:exepri]
         if $TMIN_TPRI > exepri || $TMAX_TPRI < exepri
@@ -196 +169 @@
         end
 
-        # exepri は atskpri 以下の値をもつ(優å
-ˆåº¦ãŒé«˜ã„) (E_ILUSE)
+        # exepri は atskpri 以下の値をもつ(優先度が高い) (E_ILUSE)
         if exepri > params[:atskpri]
           $defepr_success = false
@@ -204 +176 @@
       end
 
-      # stkszがターゲット定義の最小値（TARGET_MIN_STKSZï¼Œæœªå®šç¾©ã®å ´åˆã¯1）
-      # ã‚ˆã‚Šã‚‚å°ã•ã„å ´åˆ
+      # stkszがターゲット定義の最小値（TARGET_MIN_STKSZ，未定義の場合は1）
+      # よりも小さい場合
       if params[:stksz] < $TARGET_MIN_STKSZ
         error_ercd("E_PAR", params, "stksz is too small.")
       end
 
-      # スタックのå
-ˆé ­ç•ªåœ°(stk)
-      # å
-¨ã¦ã®å‡¦ç†å˜ä½ã®ã‚¹ã‚¿ãƒƒã‚¯ã¯å
-±æœ‰ã•ã‚Œã‚‹ï¼Ž
-      # そのため，スタックサイズに関するチェックは
-      # å
-±æœ‰ã‚¹ã‚¿ãƒƒã‚¯è¨­å®šã®ã¨ã“ろでまとめて行う．
+      # スタックの先頭番地(stk)
+      # 全ての処理単位のスタックは共有される．
+      # そのため，スタックサイズに関するチェックは
+      # 共有スタック設定のところでまとめて行う．
       if params[:stk] != "NULL"
         error_ercd("E_PAR", params, "stk must be NULL.")
@@ -224 +192 @@
   end
 
-  # ãƒ‡ãƒ¼ã‚¿æ§‹é€ ã®ç”Ÿæˆ
+  # データ構造の生成
   def generateData()
 
-    # äº‹å‰æº–å‚™ï¼ˆã‚¨ãƒ©ãƒ¼ãƒã‚§ãƒƒã‚¯ï¼Œãƒ¡ãƒ¢ãƒªé ˜åŸŸã®ç”Ÿæˆï¼‰
+    # 事前準備（エラーチェック，メモリ領域の生成）
     prepare()
 
     #
-    # オブジェクト初期化ブロックの生成
+    # オブジェクト初期化ブロックの生成
     #
     init_rdypmap = 0
 
-    # タスク属性(tskatr)
+    # タスク属性(tskatr)
     $kernelCfgC.append("const ATR\t_kernel_tinib_tskatr[TNUM_TSKID] = {")
     @tsk_apri_list.each.with_index do |id, index|
@@ -249 +217 @@
     $kernelCfgC.add("const uint_t\t_kernel_init_rdypmap = #{init_rdypmap}U;")
 
-    # 拡張æƒ
-å ±(exinf)
+    # 拡張情報(exinf)
     $kernelCfgC.append("const intptr_t\t_kernel_tinib_exinf[TNUM_TSKID] = {")
     @tsk_apri_list.each.with_index do |id, index|
@@ -259 +226 @@
     $kernelCfgC.add("};")
 
-    # 起動番地(task)
+    # 起動番地(task)
     $kernelCfgC.append("const TASK\t_kernel_tinib_task[TNUM_TSKID] = {")
     @tsk_apri_list.each.with_index do |id, index|
@@ -268 +235 @@
     $kernelCfgC.add("};")
 
-    # 実行時優å
-ˆåº¦(etskpri)
+    # 実行時優先度(etskpri)
     $kernelCfgC.append("const uint_t\t_kernel_tinib_epriority[TNUM_TSKID] = {")
     @tsk_apri_list.each.with_index do |id, index|
@@ -290 +256 @@
 
     #
-    # 優å
-ˆåº¦å‰²ã‚Šå½“て結果を出力
+    # 優先度割り当て結果を出力
     #
     $kernelCfgC.add("/*")
@@ -302 +267 @@
 
     #
-    #  タスクの最大スタック使用量の計算
+    #  タスクの最大スタック使用量の計算
     #
     
-    # æœ¨æ§‹é€ ã®ãƒ‡ãƒ¼ã‚¿ä½œæˆ
+    # 木構造のデータ作成
     $root_apri = []
     (@reallocate_atskpri.sort_by {|id| id[1]}).reverse_each do |id|
-      # 各タスク毎に，その実行時優å
-ˆåº¦ã‚ˆã‚Šã‚‚高い起動時優å
-ˆåº¦ã‚’もつタスクのリストを作る
-      # それはプリエンプトされる可能性のあるタスクのリストとなる．
+      # 各タスク毎に，その実行時優先度よりも高い起動時優先度をもつタスクのリストを作る
+      # それはプリエンプトされる可能性のあるタスクのリストとなる．
       @higher_pri_tsklist[id[0]] = []
       (@reallocate_atskpri.sort_by {|id| id[1]}).reverse_each do |id2|
@@ -320 +283 @@
     end
 
-    # ãƒ—ãƒªã‚¨ãƒ³ãƒ—ãƒˆã™ã‚‹ãƒ»ã•ã‚Œã‚‹é–¢ä¿‚ã‚’ç¤ºã™æœ¨æ§‹é€ ã®æ ¹(root)となるタスクの探索
-    #   対象タスク(id)の起動時優å
-ˆåº¦(reallocate_atskpri[id]より低い
-    #   (値としては大きい)起動時優å
-ˆåº¦ã‚’もつタスクの higher_pri_tsklist に
-    #   対象タスク(id)ãŒå«ã¾ã‚Œãªã‘ã‚Œã°ï¼Œæ ¹ã¨ãªã‚‹
+    # プリエンプトする・される関係を示す木構造の根(root)となるタスクの探索
+    #   対象タスク(id)の起動時優先度(reallocate_atskpri[id]より低い
+    #   (値としては大きい)起動時優先度をもつタスクの higher_pri_tsklist に
+    #   対象タスク(id)が含まれなければ，根となる
     (@reallocate_atskpri.sort_by {|id| id[1]}).reverse_each do |id|
       $is_root = true
@@ -341 +302 @@
 
     #
-    #  出力開始 
+    #  出力開始 
     #
     $kernelCfgC.add("/* \n * Task Stack Size Estimation:")
 
-    # æ ¹ã¨ãªã‚‹ã‚¿ã‚¹ã‚¯ã«å¯¾ã—ï¼Œãã®æœ€å¤§ã‚¿ã‚¹ã‚¯ä½¿ç”¨é‡ã‚’è¨ˆç®—ã—ï¼Œãƒªã‚¹ãƒˆã¸è¿½åŠ ã™ã‚‹
+    # 根となるタスクに対し，その最大タスク使用量を計算し，リストへ追加する
     $tstksz = 0
     $stksz_estimated = []
@@ -352 +313 @@
     end
 
-    # タスクのスタック使用量の最大値を決定
-    # ãƒªã‚¹ãƒˆä¸­ã®è¦ç´ ã®æœ€å¤§å€¤ãŒã‚¿ã‚¹ã‚¯ã®æœ€å¤§ã‚¹ã‚¿ãƒƒã‚¯ä½¿ç”¨é‡ã¨ãªã‚‹ï¼Ž
+    # タスクのスタック使用量の最大値を決定
+    # リスト中の要素の最大値がタスクの最大スタック使用量となる．
     $tstksz = 0
     $stksz_estimated.each do |size|
@@ -361 +322 @@
     end
 
-    # 確認
+    # 確認
     $kernelCfgC.add2(<<EOS)
  * List of Estimated Total Stack Sizes of Tasks = #{$stksz_estimated}
@@ -370 +331 @@
 
     #
-    #  優å
-ˆåº¦å‰²ã‚Šå½“て結果を標準出力へ表示
+    #  優先度割り当て結果を標準出力へ表示
     #
     puts <<~EOS
@@ -387 +347 @@
 
 #
-#  タスク管理に関するæƒ
-å ±ã®ç”Ÿæˆ
-#
-
-# 実行時優å
-ˆåº¦ã®ã‚³ãƒ³ãƒ•ã‚£ã‚®ãƒ¥ãƒ¬ãƒ¼ã‚·ãƒ§ãƒ³ã«æˆåŠŸã—たかどうか
+#  タスク管理に関する情報の生成
+#
+
+# 実行時優先度のコンフィギュレーションに成功したかどうか
 $defepr_success = true