tecscde 0.6.0

data/samples/SimpleSample/SimpleSample/src/tSimple.c

@@ -0,0 +1,48 @@
+
+/* #[<PREAMBLE>]#
+ * #[<...>]# ���� #[</...>]# �ǰϤޤ줿�����Ȥ��Խ����ʤ��Ǥ�������
+ * tecsmerge �ˤ��ޡ����˻��Ѥ���ޤ�
+ *
+ * �ƤӸ��ؿ� #_TCPF_#
+ * call port: cCall signature: sSample context:task
+ *   ER             cCall_sayHello( int32_t times );
+ *   ER             cCall_howAreYou( char_t* buf, int32_t len );
+ *
+ * #[</PREAMBLE>]# */
+
+#include <stdio.h>
+#include "tSimple_tecsgen.h"
+
+#ifndef E_OK
+#define	E_OK	0		/* 正常終了 */
+#define	E_ID	(-18)	/* 不正ID番号 */
+#endif
+
+/* #[<ENTRY_PORT>]# eBody
+ * entry port: eBody
+ * signature:  sTaskBody
+ * context:    task
+ * #[</ENTRY_PORT>]# */
+
+/* #[<ENTRY_FUNC>]# eBody_main
+ * name:         eBody_main
+ * global_name:  tSimple_eBody_main
+ * oneway:       false
+ * #[</ENTRY_FUNC>]# */
+void
+eBody_main()
+{
+	char   buf[256];
+
+#define N_HELLO 3
+	printf( "Simple: Say hello %d times.\n", N_HELLO );
+	cCall_sayHello( N_HELLO );            /* 呼び口 cCall の sayHello を呼び出す */
+
+	printf( "Simple: How are you?\n" );
+	cCall_howAreYou( buf, sizeof buf );   /* 呼び口 cCall の howAreYou を呼び出す */
+	puts( buf );
+}
+
+/* #[<POSTAMBLE>]#
+ *   �����겼����������ؿ���񤭤ޤ�
+ * #[</POSTAMBLE>]#*/

data/samples/SimpleSample/SimpleSample/src/tecs-types.h

@@ -0,0 +1,27 @@
+#include	<stdint.h>
+typedef long            ER;
+typedef long            ER_INT;
+
+/* typedef long		intptr_t; */
+typedef int		int_t;
+typedef unsigned char   char_t;
+
+typedef unsigned char   bool_t;
+
+typedef double          double64_t;
+typedef float           float32_t;
+
+/*
+typedef signed long   int32_t;
+typedef signed short  int16_t;
+typedef signed char   int8_t;
+
+typedef unsigned long   uint32_t;
+typedef unsigned short  uint16_t;
+typedef unsigned char   uint8_t;
+
+
+  int64_t, uint64_t, int128_t, uint128_t ga
+*/
+
+

data/samples/SimpleSample/SimpleSampleOpaqueRPC/Makefile

@@ -0,0 +1,51 @@
+TARGET = SimpleSample.exe
+TIMESTAMP = tecsgen.timestamp
+TECSGEN_EXE = tecsgen
+CYGPATH = ../../cygwin
+BASE_DIR = .
+CC = gcc
+INCLUDE = -I $(BASE_DIR)/. -I $(TECSPATH) -I $(CYGPATH) -I $(TECSPATH)/rpc -I $(GEN_DIR)
+CFLAGS = $(INCLUDE) -I $(BASE_DIR)/src -I $(GEN_DIR) -D "Inline=static inline"
+LD = gcc
+LDFLAGS = 
+GEN_DIR = $(BASE_DIR)/gen
+SRC_DIR = $(BASE_DIR)/src
+_TECS_OBJ_DIR = $(GEN_DIR)/
+#   _TECS_OBJ_DIR   # should be end with '/'
+
+vpath %.c $(SRC_DIR) $(GEN_DIR) $(TECSPATH) $(TECSPATH)/rpc $(CYGPATH)
+vpath %.h $(SRC_DIR) $(GEN_DIR) $(TECSPATH) $(TECSPATH)/rpc $(CYGPATH)
+
+# 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 :  sub_regions
+
+
+# depend を include #_MDEP_#
+-include $(GEN_DIR)/Makefile.tecsgen
+
+sub_regions:$(TIMESTAMP)
+	cd rSample; make all
+	cd rSimple; make all
+
+clean :
+	cd rSample; make clean
+	cd rSimple; make clean
+	rm -f $(CELLTYPE_COBJS) $(TECSGEN_COBJS) $(PLUGIN_COBJS) $(OTHER_OBJS) $(TARGET)  $(TIMESTAMP)
+	rm -rf $(GEN_DIR)
+
+tecs : $(TIMESTAMP)
+
+$(TIMESTAMP) : $(TECS_IMPORTS)
+	$(TECSGEN_EXE) $(INCLUDE) -k euc -I src SimpleSample.cdl
+	touch $(TIMESTAMP)
+
+# generic target for objs
+$(_TECS_OBJ_DIR)%.o : %.c
+	$(CC) -c $(CFLAGS) -o $@ $<
+

data/samples/SimpleSample/SimpleSampleOpaqueRPC/Makefile-trace

@@ -0,0 +1,91 @@
+# このファイルは tecsgen により自動生成されました
+# Makefile.temp は gen の一つ上のディレクトリに移して使用します
+#  % mv Makefile.temp Makefile
+# 
+# clean のデフォルト動作は $(GEN_DIR)/Makefile.* を削除します
+#
+# このファイルは GNU make で gcc を用い POSIX 環境で動作するモジュールをビルドするのに適切なように生成されています
+# vpath, CFLAGS, OTHER_OBJS などを調整する必要があるかもしれません
+# 他の環境やターゲットの場合、このファイルを元に変更する必要があります
+
+# 変数 #_MVAR_#
+# fixed variable (unchangeable by config or plugin)
+TARGET_BASE = SimpleSample-trace
+BASE_DIR = .
+GEN_DIR = $(BASE_DIR)/gen
+INCLUDES = -I $(TECSPATH) -I $(TECSPATH)/../test/cygwin -I $(TECSPATH)/rpc -I $(BASE_DIR)/./gen -I $(BASE_DIR)/src -I $(TECSPATH)/mruby -I $(TECSPATH)/posix -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 = 
+
+#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)  $(TECSPATH) $(TECSPATH)/../test/cygwin $(TECSPATH)/rpc ./gen src $(TECSPATH)/mruby $(TECSPATH)/posix
+vpath %.h $(SRC_DIR) $(GEN_DIR)  $(TECSPATH) $(TECSPATH)/../test/cygwin $(TECSPATH)/rpc ./gen src $(TECSPATH)/mruby $(TECSPATH)/posix
+
+# 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 :  sub_regions
+
+
+# depend を include #_MDEP_#
+-include $(GEN_DIR)/Makefile.tecsgen
+
+sub_regions:$(TIMESTAMP)
+	cd rSample; make all
+	cd rSimple; make all
+
+clean :
+	cd rSample; make clean
+	cd rSimple; make 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)  -I $(TECSPATH) -I $(TECSPATH)/../test/cygwin -I $(TECSPATH)/rpc -I ./gen -k euc -I src SimpleSample-trace.cdl
+	touch $(TIMESTAMP)
+
+# generic target for objs
+$(_TECS_OBJ_DIR)%.o : %.c
+	$(CC) -c $(CFLAGS) -o $@ $<
+

data/samples/SimpleSample/SimpleSampleOpaqueRPC/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/SimpleSampleOpaqueRPC/SimpleSample-trace.cdl

@@ -0,0 +1,80 @@
+/*
+ * Simple な Sample (OpaqueRPC 版)
+ *                                               sSocketClientOpener
+ *                                  +---------------------------------------+
+ *                                  |cOpener                                |eOpener
+ *  +-------------+           +-------------+           +-------------+     |    +-------------+
+ *  |             |           |             |           |             |     V    |             |
+ *  |   tTask     | sTaskBody |   tTaskMain | sTaskBody |   tSimple   |  sSample |   tSample   |
+ *  |   Task      |-----------|   TaskMain  |-----------|>  Simple    |==========|>  Sample    |
+ *  |             |cTask eBody|             |cBody eBody|             |cCall eEnt|             |
+ *  |             |Body       |             |           |             |          |             |
+ *  +-------------+           +-------------+           +-------------+          +-------------+
+ */
+
+
+// cygwin 用の簡易な型定義
+import( <cygwin_kernel.cdl> );
+  // TECS 対応 TOPPERS/ASP ならば import( <kernel.cdl> ); でよい
+
+import( <tSysLog.cdl> );
+import( <rpc.cdl> );
+import( <tSocketChannel.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,active]
+celltype tSimple {
+	call sSample cCall;
+	entry sTaskBody eBody;
+};
+
+celltype tTaskMain {
+	entry sTaskBody eBody;
+	call  sTaskBody cBody;
+	call  sSocketClientOpener cOpener;
+};
+
+[linkunit]
+region rSample {
+	cell tSysLog SysLog {
+	};
+	cell tKernel Kernel {
+	};
+	cell tSample Sample {
+	};
+};
+
+[linkunit,
+ to_through( rSample, OpaqueRPCPlugin,
+			 "PPAllocatorSize=1024,"
+			 "clientChannelCell= 'ClientChannel', "	// クライアント側チャンネルセル名
+)]
+region rSimple {
+	cell tSysLog SysLog {
+	};
+	cell tKernel Kernel {
+	};
+	cell tSimple Simple {
+		[through(TracePlugin,"")]
+		cCall = rSample::Sample.eEnt;
+	};
+	cell tTaskMain TaskMain {
+		cBody = Simple.eBody;
+		cOpener = ClientChannel.eOpener;
+	};
+
+	cell tTask Task {
+		cBody = TaskMain.eBody;
+		priority = 11;
+		stackSize = 1024;
+		taskAttribute = C_EXP( "TA_ACT" );
+	};
+};

data/samples/SimpleSample/SimpleSampleOpaqueRPC/SimpleSample.cdl

@@ -0,0 +1,77 @@
+/*
+ * Simple な Sample (OpaqueRPC 版)
+ *                                               sSocketClientOpener
+ *                                  +---------------------------------------+
+ *                                  |cOpener                                |eOpener
+ *  +-------------+           +-------------+           +-------------+     |    +-------------+
+ *  |             |           |             |           |             |     V    |             |
+ *  |   tTask     | sTaskBody |   tTaskMain | sTaskBody |   tSimple   |  sSample |   tSample   |
+ *  |   Task      |-----------|   TaskMain  |-----------|>  Simple    |==========|>  Sample    |
+ *  |             |cTask eBody|             |cBody eBody|             |cCall eEnt|             |
+ *  |             |Body       |             |           |             |          |             |
+ *  +-------------+           +-------------+           +-------------+          +-------------+
+ */
+
+
+// cygwin 用の簡易な型定義
+import( <cygwin_kernel.cdl> );
+  // TECS 対応 TOPPERS/ASP ならば import( <kernel.cdl> ); でよい
+
+import( <tSysLog.cdl> );
+import( <rpc.cdl> );
+import( <tSocketChannel.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;
+};
+
+celltype tTaskMain {
+	entry sTaskBody eBody;
+	call  sTaskBody cBody;
+	call  sSocketClientOpener cOpener;
+};
+
+[linkunit]
+region rSample {
+	cell tSysLog SysLog {
+	};
+	cell tKernel Kernel {
+	};
+	cell tSample Sample {
+	};
+};
+
+[linkunit,
+ to_through( rSample, OpaqueRPCPlugin,
+			 "PPAllocatorSize=1024,"
+			 "clientChannelCell= 'ClientChannel', "	// クライアント側チャンネルセル名
+)]
+region rSimple {
+	cell tSysLog SysLog {
+	};
+	cell tSimple Simple {
+		cCall = rSample::Sample.eEnt;
+	};
+	cell tTaskMain TaskMain {
+		cBody = Simple.eBody;
+		cOpener = ClientChannel.eOpener;
+	};
+
+	cell tTask Task {
+		cBody = TaskMain.eBody;
+		priority = 11;
+		stackSize = 1024;
+		taskAttribute = C_EXP( "TA_ACT" );
+	};
+};