tecscde 0.6.0

data/samples/SimpleSample/SimpleSample/Makefile

@@ -0,0 +1,86 @@
+CYGPATH=../../cygwin
+TARGET_BASE = SimpleSample
+BASE_DIR = .
+GEN_DIR = $(BASE_DIR)/gen
+INCLUDES = -I $(BASE_DIR)/. -I $(BASE_DIR)/src -I $(BASE_DIR)/gen -I $(CYGPATH) -I $(TECSPATH) -I $(TECSPATH)/mruby -I $(TECSPATH)/posix -I $(TECSPATH)/rpc -I $(GEN_DIR)
+DEFINES =
+
+# end of fixed variable (unchangeable by config or plugin)
+#default C Compiler
+CC = gcc
+
+#default C Compiler options
+CFLAGS = $(INCLUDES) $(DEFINES) -D  "Inline=static inline"
+
+#default Liknker
+LD = gcc
+
+#default Liknker Options
+LDFLAGS = -lpthread
+
+#default srource directory
+SRC_DIR = $(BASE_DIR)/src
+
+#default target name
+TARGET = $(TARGET_BASE).exe
+
+#default TECS generator
+TECSGEN_EXE = tecsgen
+
+#Time Stamp
+TIMESTAMP = tecsgen.timestamp
+
+#default relocatable object (.o) directory
+_TECS_OBJ_DIR = $(GEN_DIR)/
+
+
+
+# Pre-tecsgen target
+PRE_TECSGEN_TARGET =
+
+# Post-tecsgen target
+POST_TECSGEN_TARGET =
+
+# vpath for C sources and headers
+vpath %.c $(SRC_DIR) $(GEN_DIR)  src gen $(CYGPATH) $(TECSPATH) $(TECSPATH)/mruby $(TECSPATH)/posix $(TECSPATH)/rpc
+vpath %.h $(SRC_DIR) $(GEN_DIR)  src gen $(CYGPATH) $(TECSPATH) $(TECSPATH)/mruby $(TECSPATH)/posix $(TECSPATH)/rpc
+
+# Other objects (out of tecsgen)
+OTHER_OBJS =                      # Add objects out of tecs care.
+# OTHER_OBJS = $(_TECS_OBJ_DIR)vasyslog.o
+# ¥ë¡¼¥ë #_MRUL_#
+allall: tecs
+	make all     # in order to include generated Makefile.tecsgen & Makefile.depend
+
+all : $(TARGET)
+
+
+# depend ¤ò include #_MDEP_#
+-include $(GEN_DIR)/Makefile.tecsgen
+-include $(GEN_DIR)/Makefile.depend
+
+$(TARGET) : $(TIMESTAMP) $(CELLTYPE_COBJS) $(TECSGEN_COBJS) $(PLUGIN_COBJS) $(OTHER_OBJS)
+	$(LD) -o $(TARGET) $(TECSGEN_COBJS) $(CELLTYPE_COBJS) $(PLUGIN_COBJS) $(OTHER_OBJS) $(LDFLAGS)
+clean :
+	rm -f $(CELLTYPE_COBJS) $(TECSGEN_COBJS) $(PLUGIN_COBJS) $(OTHER_OBJS) $(TARGET)  $(TIMESTAMP)
+	rm -rf $(GEN_DIR)
+
+tecs : $(PRE_TECSGEN_TARGET) $(TIMESTAMP) $(POST_TECSGEN_TARGET)
+
+$(TIMESTAMP) : $(TECS_IMPORTS)
+	$(TECSGEN_EXE)  -k euc -I src -I gen -I $(CYGPATH) -I $(TECSPATH) SimpleSample.cdl
+	touch $(TIMESTAMP)
+
+# generic target for objs
+$(_TECS_OBJ_DIR)%.o : %.c
+	$(CC) -c $(CFLAGS) -o $@ $<
+
+$(_TECS_OBJ_DIR)tTask.o : tTask.c
+	$(CC) -c $(CFLAGS) -o $@ $<
+ 
+$(_TECS_OBJ_DIR)tSample.o : tSample.c
+	$(CC) -c $(CFLAGS) -o $@ $<
+ 
+$(_TECS_OBJ_DIR)tSimple.o : tSimple.c
+	$(CC) -c $(CFLAGS) -o $@ $<
+ 

data/samples/SimpleSample/SimpleSample/Makefile-trace

@@ -0,0 +1,91 @@
+TARGET_BASE = SimpleSample-trace
+BASE_DIR = .
+GEN_DIR = $(BASE_DIR)/gen
+INCLUDES = -I $(BASE_DIR)/. -I $(BASE_DIR)/../../cygwin -I $(TECSPATH) -I $(TECSPATH)/mruby -I $(TECSPATH)/posix -I $(TECSPATH)/rpc -I $(GEN_DIR)
+DEFINES =
+
+# end of fixed variable (unchangeable by config or plugin)
+#default C Compiler
+CC = gcc
+
+#default C Compiler options
+CFLAGS = $(INCLUDES) $(DEFINES) -D  "Inline=static inline"
+
+#default Liknker
+LD = gcc
+
+#default Liknker Options
+LDFLAGS = -lpthread
+
+#default srource directory
+SRC_DIR = $(BASE_DIR)/src
+
+#default target name
+TARGET = $(TARGET_BASE).exe
+
+#default TECS generator
+TECSGEN_EXE = tecsgen
+
+#Time Stamp
+TIMESTAMP = tecsgen.timestamp
+
+#default relocatable object (.o) directory
+_TECS_OBJ_DIR = $(GEN_DIR)/
+
+
+
+# Pre-tecsgen target
+PRE_TECSGEN_TARGET =
+
+# Post-tecsgen target
+POST_TECSGEN_TARGET =
+
+# vpath for C sources and headers
+vpath %.c $(SRC_DIR) $(GEN_DIR)  ../../cygwin $(TECSPATH) $(TECSPATH)/mruby $(TECSPATH)/posix $(TECSPATH)/rpc
+vpath %.h $(SRC_DIR) $(GEN_DIR)  ../../cygwin $(TECSPATH) $(TECSPATH)/mruby $(TECSPATH)/posix $(TECSPATH)/rpc
+
+# Other objects (out of tecsgen)
+# OTHER_OBJS =                      # Add objects out of tecs care.
+OTHER_OBJS = $(_TECS_OBJ_DIR)vasyslog.o
+# ¥ë¡¼¥ë #_MRUL_#
+allall: tecs
+	make -f Makefile-trace all     # in order to include generated Makefile.tecsgen & Makefile.depend
+
+all : $(TARGET)
+
+
+# depend ¤ò include #_MDEP_#
+-include $(GEN_DIR)/Makefile.tecsgen
+-include $(GEN_DIR)/Makefile.depend
+
+$(TARGET) : $(TIMESTAMP) $(CELLTYPE_COBJS) $(TECSGEN_COBJS) $(PLUGIN_COBJS) $(OTHER_OBJS)
+	$(LD) -o $(TARGET) $(TECSGEN_COBJS) $(CELLTYPE_COBJS) $(PLUGIN_COBJS) $(OTHER_OBJS) $(LDFLAGS)
+clean :
+	rm -f $(CELLTYPE_COBJS) $(TECSGEN_COBJS) $(PLUGIN_COBJS) $(OTHER_OBJS) $(TARGET)  $(TIMESTAMP)
+	rm -rf $(GEN_DIR)
+
+tecs : $(PRE_TECSGEN_TARGET) $(TIMESTAMP) $(POST_TECSGEN_TARGET)
+
+$(TIMESTAMP) : $(TECS_IMPORTS)
+	$(TECSGEN_EXE)  -k euc -I ../../cygwin SimpleSample-trace.cdl
+	touch $(TIMESTAMP)
+
+# generic target for objs
+$(_TECS_OBJ_DIR)%.o : %.c
+	$(CC) -c $(CFLAGS) -o $@ $<
+
+$(_TECS_OBJ_DIR)tKernel.o : tKernel.c
+	$(CC) -c $(CFLAGS) -o $@ $<
+ 
+$(_TECS_OBJ_DIR)tSysLog.o : tSysLog.c
+	$(CC) -c $(CFLAGS) -o $@ $<
+ 
+$(_TECS_OBJ_DIR)tSample.o : tSample.c
+	$(CC) -c $(CFLAGS) -o $@ $<
+ 
+$(_TECS_OBJ_DIR)tSimple.o : tSimple.c
+	$(CC) -c $(CFLAGS) -o $@ $<
+ 
+$(_TECS_OBJ_DIR)tTracePlugin_sSample.o : tTracePlugin_sSample.c
+	$(CC) -c $(CFLAGS) -o $@ $<
+ 

data/samples/SimpleSample/SimpleSample/README.txt

@@ -0,0 +1,106 @@
+SimpleSample
+						2009.6.7 初版
+						2009.6.9 再アップ
+
+《超簡易パッケージの概要》
+
+「3 分でわかる TECS」ということで、cygwin だけで動作する SimpleSample 
+を作ってみました。TECS コンポーネントの要素を理解することができます。
+
+  公式リリースのパッケージに入っているものは TOPPERS/ASP カーネル上で
+  動かすサンプルで、skyeye のシミュレーション環境により PC 上で動作さ
+  せることができる本格的なものです。ちょっと動かしてみるには、ややハー
+  ドルが高いかもしれません。
+
+この超簡易パッケージは cygwin のネイティブな gcc でビルドするようにし
+ていますので、cygwin がインストールされていれば、他には特に必要ありま
+せん。ruby, racc もインストールの必要ありません。
+
+ビルドの仕方：
+
+  % make tecs
+  % make all
+
+  場合によっては、make tecs の前に、以下のようにパスを入れる必要がある
+  かもしれません。
+
+  % PATH=.:$PATH
+
+実行の仕方：
+
+  % ./SimpleSample.exe
+
+《SimpleSample の概要》
+
+hello の表示など、ごく簡単な例です。
+TECS の本来機能を理解しやすいように、cygwin だけで動作します。
+この例では、簡単のために printf を呼び出しますが、実際の RTOS 環境であ
+れば、出力用コンポーネントを用いた方がよいです。
+
+コンポーネント図：
+
+  SimpleSample.png
+
+コンポーネント記述：
+
+SimpleSmaple.cdl に TECS CDL で記述。文字コードには EUC を使用していま
+す。
+
+・シグニチャ記述
+
+  sSample … 関数インタフェースの定義
+             慣習として接頭文字 s を付加する
+
+シグニチャ sSampleには 2 つの関数 sayHello と howAreYou がある。
+セルタイプ tSample の提供する機能となるので、sSample という名前にした。
+
+・セルタイプ記述
+
+  tSimple … 呼び元のセルタイプ
+  tSample … 呼び先のセルタイプ
+             慣習として接頭文字 t を付加する
+
+・組上げ記述
+
+  Simple … 呼び元のセル
+  Sample … 呼び先のセル
+
+セルタイプコード：
+
+  src/tSimple.c  … 呼び元のセルタイプコード
+  src/tSample.c  … 呼び先のセルタイプコード
+
+【作成環境】
+
+ OS: Windows XP SP3
+ Ruby: V1.8.7p72 (mswin32)
+ Racc: 1.4.5
+ exerb: 4.8.0
+
+《ライセンス》
+
+【TECSジェネレータ】
+
+TECS ジェネレータ tecsgen.exe の内部に含まれるコードについては TOPPERS 
+ライセンスに従います。TOPPERS ライセンスについては以下のホームページで
+確認できます。
+
+  http://www.toppers.jp/license.html
+
+【Ruby関係】
+
+tecsgen.exe は Ruby, Racc, Exerb を使用して構築されています。
+それらについては、それらのライセンスに従います。
+
+Ruby のインタプリタのソースは、以下の URL のホームページからダウンロー
+ドできます。
+
+  http://www.ruby-lang.org/
+
+Racc のソースは、以下の URL のホームページからダウンロードできます。
+
+  http://i.loveruby.net/ja/projects/racc/
+
+Exerb のソースは以下の URL のホームページからダウンロードできます。
+
+  http://exerb.sourceforge.jp/

data/samples/SimpleSample/SimpleSample/SimpleSample-trace.cdl

@@ -0,0 +1,50 @@
+/*
+ * Simple な Sample
+ *
+ *  +-------------+           +-------------+          +-------------+
+ *  |             |           |             |          |             |
+ *  |   tTask     | sTaskBody |   tSimple   |  sSample |   tSample   |
+ *  |   Task      |-----------|>  Simple    |----------|>  Sample    |
+ *  |             |cTask eBody|             |cCall eEnt|             |
+ *  |             |Body       |             |          |             |
+ *  +-------------+           +-------------+          +-------------+
+ */
+
+
+// cygwin 用の簡易な型定義
+import( <cygwin_kernel.cdl> );
+  // TECS 対応 TOPPERS/ASP ならば import( <kernel.cdl> ); でよい
+import( <tSysLog.cdl> );
+
+cell tSysLog SysLog {};
+cell tKernel Kernel {};
+
+signature sSample {
+	ER  sayHello( [in]int32_t times );
+	ER  howAreYou( [out,string(len)]char_t *buf, [in]int32_t len );
+};
+
+celltype tSample {
+	entry sSample eEnt;
+};
+
+[singleton,active]
+celltype tSimple {
+	call sSample cCall;
+	entry sTaskBody eBody;
+};
+
+cell tSample Sample {
+};
+
+cell tSimple Simple {
+	[through(TracePlugin,"")]
+		cCall = Sample.eEnt;
+};
+
+cell tTask Task {
+	cBody = Simple.eBody;
+	priority = 11;
+	stackSize = 1024;
+	taskAttribute = C_EXP( "TA_ACT" );
+};

data/samples/SimpleSample/SimpleSample/SimpleSample.cdl

@@ -0,0 +1,45 @@
+/*
+ * Simple な Sample
+ *
+ *  +-------------+           +-------------+          +-------------+
+ *  |             |           |             |          |             |
+ *  |   tTask     | sTaskBody |   tSimple   |  sSample |   tSample   |
+ *  |   Task      |-----------|>  Simple    |----------|>  Sample    |
+ *  |             |cTask eBody|             |cCall eEnt|             |
+ *  |             |Body       |             |          |             |
+ *  +-------------+           +-------------+          +-------------+
+ */
+
+
+// cygwin 用の簡易な型定義
+import( <cygwin_kernel.cdl> );
+  // TECS 対応 TOPPERS/ASP ならば import( <kernel.cdl> ); でよい
+
+signature sSample {
+	ER  sayHello( [in]int32_t times );
+	ER  howAreYou( [out,string(len)]char_t *buf, [in]int32_t len );
+};
+
+celltype tSample {
+	entry sSample eEnt;
+};
+
+[singleton]
+celltype tSimple {
+	call sSample cCall;
+	entry sTaskBody eBody;
+};
+
+cell tSample Sample {
+};
+
+cell tSimple Simple {
+	cCall = Sample.eEnt;
+};
+
+cell tTask Task {
+	cBody = Simple.eBody;
+	priority = 11;
+	stackSize = 1024;
+	taskAttribute = C_EXP( "TA_ACT" );
+};

data/samples/SimpleSample/SimpleSample/src/tSample.c

@@ -0,0 +1,77 @@
+
+/* #[<PREAMBLE>]#
+ * #[<...>]# ���� #[</...>]# �ǰϤޤ줿�����Ȥ��Խ����ʤ��Ǥ�������
+ * tecsmerge �ˤ��ޡ����˻��Ѥ���ޤ�
+ *
+ * #[</PREAMBLE>]# */
+
+#include <stdio.h>
+#include <string.h>
+#include "tSample_tecsgen.h"
+
+#ifndef E_OK
+#define	E_OK	0		/* 正常終了 */
+#define	E_ID	(-18)	/* 不正ID番号 */
+#endif
+
+
+/* 受け口関数 #_TEPF_# */
+/* #[<ENTRY_PORT>]# eEnt
+ * entry port: eEnt
+ * signature:  sSample
+ * context:    task
+ * #[</ENTRY_PORT>]# */
+
+/* #[<ENTRY_FUNC>]# eEnt_sayHello
+ * name:         eEnt_sayHello
+ * global_name:  tSample_eEnt_sayHello
+ * oneway:       false
+ * #[</ENTRY_FUNC>]# */
+ER
+eEnt_sayHello(CELLIDX idx, int32_t times)
+{
+	ER		ercd = E_OK;
+	CELLCB	*p_cellcb;
+	if (VALID_IDX(idx)) {
+		p_cellcb = GET_CELLCB(idx);
+	}
+	else {
+		return(E_ID);
+	}
+
+	/* ここに処理本体を記述します */
+	printf( "Sample: " );
+	while( times-- > 0 )
+		printf( "hello " );
+	printf( "\n" );
+
+	return(ercd);
+}
+
+/* #[<ENTRY_FUNC>]# eEnt_howAreYou
+ * name:         eEnt_howAreYou
+ * global_name:  tSample_eEnt_howAreYou
+ * oneway:       false
+ * #[</ENTRY_FUNC>]# */
+ER
+eEnt_howAreYou(CELLIDX idx, char_t* buf, int32_t len)
+{
+	ER		ercd = E_OK;
+	CELLCB	*p_cellcb;
+	if (VALID_IDX(idx)) {
+		p_cellcb = GET_CELLCB(idx);
+	}
+	else {
+		return(E_ID);
+	}
+
+	/* ここに処理本体を記述します */
+	strncpy( buf, "Sample: I'm fine!", len );
+
+	return(ercd);
+}
+
+
+/* #[<POSTAMBLE>]#
+ *   �����겼����������ؿ���񤭤ޤ�
+ * #[</POSTAMBLE>]#*/