Changeset 315 for rubycfg_asp/trunk/csp/sample1n/sample1.c

Timestamp:

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

Author:

coas-nagasima

Message:

SVNプロパティを設定

File:

• rubycfg_asp/trunk/csp/sample1n/sample1.c (modified) (13 diffs, 1 prop)

rubycfg_asp/trunk/csp/sample1n/sample1.c

@@ -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$
@@ -57 +42 @@
 
 /* 
- *  サンプルプログラム(1)の本体
- *
- *  ASPカーネルの基本的な動作を確認するためのサンプルプログラム．
- *
- *  プログラムの概要:
- *
- *  ユーザインタフェースを受け持つメインタスク（タスクID: MAIN_TASK，優
- *  å
-ˆåº¦: MAIN_PRIORITY）と，3つの並行実行されるタスク（タスクID:
- *  TASK1～TASK3，初期優å
-ˆåº¦: MID_PRIORITY）で構成される．また，起動周
- *  期が2秒の周期ハンドラ（周期ハンドラID: CYCHDR1）を用いる．
- *
- *  並行実行されるタスクは，task_loop回空ループを実行する度に，タスクが
- *  実行中であることをあらわすメッセージを表示する．空ループを実行する
- *  のは，空ループなしでメッセージを出力すると，多量のメッセージが出力
- *  され，プログラムの動作が確認しずらくなるためである．また，低速なシ
- *  ãƒªã‚¢ãƒ«ãƒãƒ¼ãƒˆã‚’ç”¨ã„ã¦ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã‚’å‡ºåŠ›ã™ã‚‹å ´åˆã«ï¼Œã™ã¹ã¦ã®ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸
- *  が出力できるように，メッセージの量を制限するという理由もある．
- *
- *  周期ハンドラは，三つの優å
-ˆåº¦ï¼ˆHIGH_PRIORITY，MID_PRIORITY，
- *  LOW_PRIORITY）のレディキューを回転させる．プログラムの起動直後は，
- *  周期ハンドラは停止状æ
-‹ã«ãªã£ã¦ã„る．
- *
- *  メインタスクは，シリアルI/Oポートからの文字å
-¥åŠ›ã‚’行い（文字å
-¥åŠ›ã‚’
- *  å¾
-っている間は，並行実行されるタスクが実行されている），å
-¥åŠ›ã•ã‚ŒãŸ
- *  文字に対応した処理を実行する．å
-¥åŠ›ã•ã‚ŒãŸæ–‡å­—と処理の関係は次の通り．
- *  Control-Cまたは'Q'がå
-¥åŠ›ã•ã‚Œã‚‹ã¨ï¼Œãƒ—ログラムを終了する．
- *
- *  '1' : 対象タスクをTASK1に切り換える（初期設定）．
- *  '2' : 対象タスクをTASK2に切り換える．
- *  '3' : 対象タスクをTASK3に切り換える．
- *  'a' : 対象タスクをact_tskにより起動する．
- *  'A' : 対象タスクに対する起動要求をcan_actによりキャンセルする．
- *  'e' : 対象タスクにext_tskを呼び出させ，終了させる．
- *  't' : 対象タスクをter_tskにより強制終了する．
- *  '>' : 対象タスクの優å
-ˆåº¦ã‚’HIGH_PRIORITYにする．
- *  '=' : 対象タスクの優å
-ˆåº¦ã‚’MID_PRIORITYにする．
- *  '<' : 対象タスクの優å
-ˆåº¦ã‚’LOW_PRIORITYにする．
- *  'G' : 対象タスクの優å
-ˆåº¦ã‚’get_priで読み出す．
- *  's' : 対象タスクにslp_tskを呼び出させ，起床å¾
-ちにさせる．
- *  'S' : 対象タスクにtslp_tsk(10秒)を呼び出させ，起床å¾
-ちにさせる．
- *  'w' : 対象タスクをwup_tskにより起床する．
- *  'W' : 対象タスクに対する起床要求をcan_wupによりキャンセルする．
- *  'l' : 対象タスクをrel_waiにより強制的にå¾
-ち解除にする．
- *  'u' : 対象タスクをsus_tskにより強制å¾
-ち状æ
-‹ã«ã™ã‚‹ï¼Ž
- *  'm' : 対象タスクの強制å¾
-ち状æ
-‹ã‚’rsm_tskにより解除する．
- *  'd' : 対象タスクにdly_tsk(10秒)を呼び出させ，時間経過å¾
-ちにさせる．
- *  'x' : 対象タスクに例外パターン0x0001の例外処理を要求する．
- *  'X' : 対象タスクに例外パターン0x0002の例外処理を要求する．
- *  'y' : 対象タスクにdis_texを呼び出させ，タスク例外を禁止する．
- *  'Y' : 対象タスクにena_texを呼び出させ，タスク例外を許可する．
- *  'r' : 3つの優å
-ˆåº¦ï¼ˆHIGH_PRIORITY，MID_PRIORITY，LOW_PRIORITY）のレ
- *        ディキューを回転させる．
- *  'c' : 周期ハンドラを動作開始させる．
- *  'C' : 周期ハンドラを動作停止させる．
- *  'b' : アラームハンドラを5秒後に起動するよう動作開始させる．
- *  'B' : アラームハンドラを動作停止させる．
- *  'z' : 対象タスクにCPU例外を発生させる（タスクを終了させる）．
- *  'Z' : 対象タスクにCPUロック状æ
-‹ã§CPU例外を発生させる（プログラムを
- *        終了する）．
- *  '@' : タスク3をacre_tskにより生成し，def_texによりタスク例外処理
- *        ルーチンを設定する．
- *  '!' : 対象タスクをdel_tskにより削除する．
- *  'V' : get_utmで性能評価用システム時刻を2回読む．
- *  'v' : 発行したシステムコールを表示する（デフォルト）．
- *  'q' : 発行したシステムコールを表示しない．
+ *  サンプルプログラム(1)の本体
+ *
+ *  ASPカーネルの基本的な動作を確認するためのサンプルプログラム．
+ *
+ *  プログラムの概要:
+ *
+ *  ユーザインタフェースを受け持つメインタスク（タスクID: MAIN_TASK，優
+ *  先度: MAIN_PRIORITY）と，3つの並行実行されるタスク（タスクID:
+ *  TASK1～TASK3，初期優先度: MID_PRIORITY）で構成される．また，起動周
+ *  期が2秒の周期ハンドラ（周期ハンドラID: CYCHDR1）を用いる．
+ *
+ *  並行実行されるタスクは，task_loop回空ループを実行する度に，タスクが
+ *  実行中であることをあらわすメッセージを表示する．空ループを実行する
+ *  のは，空ループなしでメッセージを出力すると，多量のメッセージが出力
+ *  され，プログラムの動作が確認しずらくなるためである．また，低速なシ
+ *  リアルポートを用いてメッセージを出力する場合に，すべてのメッセージ
+ *  が出力できるように，メッセージの量を制限するという理由もある．
+ *
+ *  周期ハンドラは，三つの優先度（HIGH_PRIORITY，MID_PRIORITY，
+ *  LOW_PRIORITY）のレディキューを回転させる．プログラムの起動直後は，
+ *  周期ハンドラは停止状態になっている．
+ *
+ *  メインタスクは，シリアルI/Oポートからの文字入力を行い（文字入力を
+ *  待っている間は，並行実行されるタスクが実行されている），入力された
+ *  文字に対応した処理を実行する．入力された文字と処理の関係は次の通り．
+ *  Control-Cまたは'Q'が入力されると，プログラムを終了する．
+ *
+ *  '1' : 対象タスクをTASK1に切り換える（初期設定）．
+ *  '2' : 対象タスクをTASK2に切り換える．
+ *  '3' : 対象タスクをTASK3に切り換える．
+ *  'a' : 対象タスクをact_tskにより起動する．
+ *  'A' : 対象タスクに対する起動要求をcan_actによりキャンセルする．
+ *  'e' : 対象タスクにext_tskを呼び出させ，終了させる．
+ *  't' : 対象タスクをter_tskにより強制終了する．
+ *  '>' : 対象タスクの優先度をHIGH_PRIORITYにする．
+ *  '=' : 対象タスクの優先度をMID_PRIORITYにする．
+ *  '<' : 対象タスクの優先度をLOW_PRIORITYにする．
+ *  'G' : 対象タスクの優先度をget_priで読み出す．
+ *  's' : 対象タスクにslp_tskを呼び出させ，起床待ちにさせる．
+ *  'S' : 対象タスクにtslp_tsk(10秒)を呼び出させ，起床待ちにさせる．
+ *  'w' : 対象タスクをwup_tskにより起床する．
+ *  'W' : 対象タスクに対する起床要求をcan_wupによりキャンセルする．
+ *  'l' : 対象タスクをrel_waiにより強制的に待ち解除にする．
+ *  'u' : 対象タスクをsus_tskにより強制待ち状態にする．
+ *  'm' : 対象タスクの強制待ち状態をrsm_tskにより解除する．
+ *  'd' : 対象タスクにdly_tsk(10秒)を呼び出させ，時間経過待ちにさせる．
+ *  'x' : 対象タスクに例外パターン0x0001の例外処理を要求する．
+ *  'X' : 対象タスクに例外パターン0x0002の例外処理を要求する．
+ *  'y' : 対象タスクにdis_texを呼び出させ，タスク例外を禁止する．
+ *  'Y' : 対象タスクにena_texを呼び出させ，タスク例外を許可する．
+ *  'r' : 3つの優先度（HIGH_PRIORITY，MID_PRIORITY，LOW_PRIORITY）のレ
+ *        ディキューを回転させる．
+ *  'c' : 周期ハンドラを動作開始させる．
+ *  'C' : 周期ハンドラを動作停止させる．
+ *  'b' : アラームハンドラを5秒後に起動するよう動作開始させる．
+ *  'B' : アラームハンドラを動作停止させる．
+ *  'z' : 対象タスクにCPU例外を発生させる（タスクを終了させる）．
+ *  'Z' : 対象タスクにCPUロック状態でCPU例外を発生させる（プログラムを
+ *        終了する）．
+ *  '@' : タスク3をacre_tskにより生成し，def_texによりタスク例外処理
+ *        ルーチンを設定する．
+ *  '!' : 対象タスクをdel_tskにより削除する．
+ *  'V' : get_utmで性能評価用システム時刻を2回読む．
+ *  'v' : 発行したシステムコールを表示する（デフォルト）．
+ *  'q' : 発行したシステムコールを表示しない．
  */
 
@@ -158 +119 @@
 
 /*
- *  サービスコールのエラーのログ出力
+ *  サービスコールのエラーのログ出力
  */
 Inline void
@@ -171 +132 @@
 
 /*
- *  ä¸¦è¡Œå®Ÿè¡Œã•ã‚Œã‚‹ã‚¿ã‚¹ã‚¯ã¸ã®ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸é ˜åŸŸ
+ *  並行実行されるタスクへのメッセージ領域
  */
 char    message[3];
 
 /*
- *  ループ回数
- */
-ulong_t task_loop;              /* タスクå†
-でのループ回数 */
-ulong_t tex_loop;               /* 例外処理ルーチンå†
-でのループ回数 */
-
-/*
- *  並行実行されるタスク
+ *  ループ回数
+ */
+ulong_t task_loop;              /* タスク内でのループ回数 */
+ulong_t tex_loop;               /* 例外処理ルーチン内でのループ回数 */
+
+/*
+ *  並行実行されるタスク
  */
 void task(intptr_t exinf)
@@ -245 +204 @@
 
 /*
- *  並行して実行されるタスク用のタスク例外処理ルーチン
+ *  並行して実行されるタスク用のタスク例外処理ルーチン
  */
 void tex_routine(TEXPTN texptn, intptr_t exinf)
@@ -263 +222 @@
 
 /*
- *  CPU例外ハンドラ
+ *  CPU例外ハンドラ
  */
 #ifdef CPUEXC1
@@ -299 +258 @@
 
 /*
- *  周期ハンドラ
- *
- *  HIGH_PRIORITY，MID_PRIORITY，LOW_PRIORITY の各優å
-ˆåº¦ã®ãƒ¬ãƒ‡ã‚£ã‚­ãƒ¥ãƒ¼
- *  を回転させる．
+ *  周期ハンドラ
+ *
+ *  HIGH_PRIORITY，MID_PRIORITY，LOW_PRIORITY の各優先度のレディキュー
+ *  を回転させる．
  */
 void cyclic_handler(intptr_t exinf)
@@ -313 +271 @@
 
 /*
- *  アラームハンドラ
- *
- *  HIGH_PRIORITY，MID_PRIORITY，LOW_PRIORITY の各優å
-ˆåº¦ã®ãƒ¬ãƒ‡ã‚£ã‚­ãƒ¥ãƒ¼
- *  を回転させる．
+ *  アラームハンドラ
+ *
+ *  HIGH_PRIORITY，MID_PRIORITY，LOW_PRIORITY の各優先度のレディキュー
+ *  を回転させる．
  */
 void alarm_handler(intptr_t exinf)
@@ -327 +284 @@
 
 /*
- *  メインタスク
+ *  メインタスク
  */
 void main_task(intptr_t exinf)
@@ -351 +308 @@
 
         /*
-         *  シリアルポートの初期化
-         *
-         *  ã‚·ã‚¹ãƒ†ãƒ ãƒ­ã‚°ã‚¿ã‚¹ã‚¯ã¨åŒã˜ã‚·ãƒªã‚¢ãƒ«ãƒãƒ¼ãƒˆã‚’ä½¿ã†å ´åˆãªã©ï¼Œã‚·ãƒªã‚¢ãƒ«
-         *  ãƒãƒ¼ãƒˆãŒã‚ªãƒ¼ãƒ—ãƒ³æ¸ˆã¿ã®å ´åˆã«ã¯ã“ã“ã§E_OBJエラーになるが，支障は
-         *  ない．
+         *  シリアルポートの初期化
+         *
+         *  システムログタスクと同じシリアルポートを使う場合など，シリアル
+         *  ポートがオープン済みの場合にはここでE_OBJエラーになるが，支障は
+         *  ない．
          */
         ercd = serial_opn_por(TASK_PORTID);
@@ -366 +323 @@
 
         /*
-         *  ループ回数の設定
-         *
-         *  並行実行されるタスクå†
-での空ループの回数（task_loop）は，空ルー
-         *  プの実行時間が約0.4秒になるように設定する．この設定のために，
-         *  LOOP_REF回の空ループの実行時間を，その前後でget_timを呼ぶことで
-         *  測定し，その測定結果から空ループの実行時間が0.4秒になるループ回
-         *  数を求め，task_loopに設定する．
-         *
-         *  LOOP_REFは，デフォルトでは1,000,000に設定しているが，想定したよ
-         *  りé
-いプロセッサでは，サンプルプログラムの実行開始に時間がかか
-         *  りすぎるという問題を生じる．逆に想定したより速いプロセッサでは，
-         *  LOOP_REF回の空ループの実行時間が短くなり，task_loopに設定する値
-         *  の誤差が大きくなるという問題がある．
-         *
-         *  そこで，そのようなターゲットでは，target_test.hで，LOOP_REFを適
-         *  切な値に定義するのが望ましい．
-         *
-         *  また，task_loopã®å€¤ã‚’å›ºå®šã—ãŸã„å ´åˆã«ã¯ï¼Œãã®å€¤ã‚’TASK_LOOPにマ
-         *  クロ定義する．TASK_LOOPãŒãƒžã‚¯ãƒ­å®šç¾©ã•ã‚Œã¦ã„ã‚‹å ´åˆï¼Œä¸Šè¨˜ã®æ¸¬å®šã‚’
-         *  行わずに，TASK_LOOPに定義された値を空ループの回数とする．
-         *
-         * ターゲットによっては，空ループの実行時間の1回目の測定で，本来よ
-         * りも長めになるものがある．このようなターゲットでは，MEASURE_TWICE
-         * をマクロ定義することで，1回目の測定結果を捨てて，2回目の測定結果
-         * を使う．
-         *
-         *  タスク例外処理ルーチンå†
-での空ループの回数（tex_loop）は，
-         *  task_loopの4分の1の値（空ループの実行時間が0.1秒になるループ回
-         *  数）に設定する．
+         *  ループ回数の設定
+         *
+         *  並行実行されるタスク内での空ループの回数（task_loop）は，空ルー
+         *  プの実行時間が約0.4秒になるように設定する．この設定のために，
+         *  LOOP_REF回の空ループの実行時間を，その前後でget_timを呼ぶことで
+         *  測定し，その測定結果から空ループの実行時間が0.4秒になるループ回
+         *  数を求め，task_loopに設定する．
+         *
+         *  LOOP_REFは，デフォルトでは1,000,000に設定しているが，想定したよ
+         *  り遅いプロセッサでは，サンプルプログラムの実行開始に時間がかか
+         *  りすぎるという問題を生じる．逆に想定したより速いプロセッサでは，
+         *  LOOP_REF回の空ループの実行時間が短くなり，task_loopに設定する値
+         *  の誤差が大きくなるという問題がある．
+         *
+         *  そこで，そのようなターゲットでは，target_test.hで，LOOP_REFを適
+         *  切な値に定義するのが望ましい．
+         *
+         *  また，task_loopの値を固定したい場合には，その値をTASK_LOOPにマ
+         *  クロ定義する．TASK_LOOPがマクロ定義されている場合，上記の測定を
+         *  行わずに，TASK_LOOPに定義された値を空ループの回数とする．
+         *
+         * ターゲットによっては，空ループの実行時間の1回目の測定で，本来よ
+         * りも長めになるものがある．このようなターゲットでは，MEASURE_TWICE
+         * をマクロ定義することで，1回目の測定結果を捨てて，2回目の測定結果
+         * を使う．
+         *
+         *  タスク例外処理ルーチン内での空ループの回数（tex_loop）は，
+         *  task_loopの4分の1の値（空ループの実行時間が0.1秒になるループ回
+         *  数）に設定する．
          */
 #ifdef TASK_LOOP
@@ -420 +374 @@
 
         /*
-         *  タスクの起動
+         *  タスクの起動
          */
         SVC_PERROR(act_tsk(TASK1));
@@ -426 +380 @@
 
         /*
-         *  メインループ
+         *  メインループ
          */
         do {