Person: Steffen Sledz
Mail: sledz@dresearch.de
Machines: oxnas
+Recipes: forte
Person: Stelios Koroneos
Mail: skoroneos@digital-opsis.com
md5=a8cf945d09c6458cb27228218e9a2f45
sha256=8416e162d6fc921f14a61c8905e9f9a28dc25e67e1c71b75574360a13f0c28c7
+[http://downloads.sourceforge.net/fordiac/FORTE-0.3.5.zip]
+md5=d207d3b389ee9f2702df095681459f99
+sha256=2b87b331e931db2db07408c1b07bdb557227e0c16f8fe37f72e40b08fca0a09c
+
[http://downloads.sourceforge.net/fnorb/Fnorb-1.3.tar.gz]
md5=7de1500c7ef6592a603890b45e23261b
sha256=d4380ab7fa8b8a9f564592b4e07c96117abd2d3f677b8a73c824cf4f904aa294
md5=89b65e010acaa3c5d370e1cc0ea9fce9
sha256=77fb4d23dfa8c12d69ccfda71f482af9804132fab800610970cd5fe9944a3016
+[http://kent.dl.sourceforge.net/sourceforge/fordiac/forte-0.3.zip]
+md5=2d01a3d3b9b16bf646e6bb89cb9b0faf
+sha256=c3a61174f6a69252983a9b26ea87005bcab6a72b0bd34ea693e3de89e70eaea6
+
[ftp://ftp.debian.org/debian/pool/main/f/fortune-mod/fortune-mod_1.99.1-2.diff.gz]
md5=5f059f7c997adbc0a260f27947605be1
sha256=d68c7c8ff6fe94341a3a73d22ab976da42921e3bec9bed628a428518c2c5f67a
--- /dev/null
+diff -Naur FORTE-0.3.5.orig/src/arch/pc/pcsochan.cpp FORTE-0.3.5/src/arch/pc/pcsochan.cpp
+--- FORTE-0.3.5.orig/src/arch/pc/pcsochan.cpp 2009-01-13 16:17:18.000000000 +0000
++++ FORTE-0.3.5/src/arch/pc/pcsochan.cpp 2009-02-16 10:08:53.000000000 +0000
+@@ -128,6 +128,16 @@
+ }\r
+ // switch between client/server:\r
+ if (pa_stConnectionInformation.m_enServiceType == e_Server) {\r
++ unsigned int opt = 1;\r
++\r
++ if (setsockopt(sock_id, SOL_SOCKET, SO_REUSEADDR, &opt, sizeof(opt)) != 0)\r
++ {\r
++ char acError[80] = { "TCP-Socket setsockopt() failed: " };\r
++ strcat(acError, strerror(errno));\r
++ DEVLOG_ERROR(cg_nID_CSocketHandler, 0x10, acError);\r
++ return -1;\r
++ }\r
++\r
+ sock_addr.sin_addr.s_addr = htonl(INADDR_ANY);\r
+ if (bind(sock_id, (struct sockaddr *)&sock_addr, sizeof(struct sockaddr)) != 0) {\r
+ DEVLOG_ERROR_2(cg_nID_CSocketHandler, 0x02, "TCP-Socket bind() failed: %s", strerror(errno) );\r
--- /dev/null
+diff -Naur FORTE-0.3.5.orig/src/core/datatypes/forte_lreal.cpp FORTE-0.3.5/src/core/datatypes/forte_lreal.cpp
+--- FORTE-0.3.5.orig/src/core/datatypes/forte_lreal.cpp 2008-12-11 16:05:26.000000000 +0000
++++ FORTE-0.3.5/src/core/datatypes/forte_lreal.cpp 2009-02-16 11:01:44.000000000 +0000
+@@ -8,6 +8,7 @@
+ * Contributors:\r
+ * <date>: <author>, <author email> - changes\r
+ *******************************************************************************/\r
++#include <stdlib.h>\r
+ #include <math.h>\r
+ #include "forte_lreal.h"\r
+ \r
+diff -Naur FORTE-0.3.5.orig/src/core/datatypes/forte_real.cpp FORTE-0.3.5/src/core/datatypes/forte_real.cpp
+--- FORTE-0.3.5.orig/src/core/datatypes/forte_real.cpp 2008-12-11 16:05:40.000000000 +0000
++++ FORTE-0.3.5/src/core/datatypes/forte_real.cpp 2009-02-16 11:12:16.000000000 +0000
+@@ -8,6 +8,7 @@
+ * Contributors:\r
+ * <date>: <author>, <author email> - changes\r
+ *******************************************************************************/\r
++#include <stdlib.h>\r
+ #include <math.h>\r
+ #include "forte_real.h"\r
+ \r
--- /dev/null
+diff -Naur FORTE-0.3.5.orig/src/arch/pc/pctimeha.cpp FORTE-0.3.5/src/arch/pc/pctimeha.cpp
+--- FORTE-0.3.5.orig/src/arch/pc/pctimeha.cpp 2009-01-13 16:17:18.000000000 +0000
++++ FORTE-0.3.5/src/arch/pc/pctimeha.cpp 2009-02-16 10:16:37.000000000 +0000
+@@ -11,6 +11,7 @@
+ #include "pctimeha.h"\r
+ #include "../../core/devexec.h"\r
+ #include <time.h>\r
++#include <sys/time.h>\r
+ \r
+ const TINT32 CPCTimerHandler::csm_nTicksPerSecond = 1000;\r
+ \r
+@@ -28,14 +29,34 @@
+ disableHandler();\r
+ }\r
+ \r
++static inline unsigned long long GetTicks(struct timeval* stTmVal, TINT32 ticksPerSecond)\r
++{\r
++ unsigned long long ret = stTmVal->tv_sec * 1000LL;// sec -> ms\r
++ ret += stTmVal->tv_usec/1000;// + us -> ms\r
++ ret /= 1000/ticksPerSecond; // ms -> ticks\r
++ return ret;\r
++}\r
++\r
+ bool CPCTimerHandler::run(){\r
+ struct timespec stReq;\r
++ struct timeval stTmNow;\r
++ unsigned long long tickStart;\r
++ unsigned long long tickNow;\r
++ unsigned long long tickCalled = 0;\r
+ stReq.tv_sec = 0;\r
+- stReq.tv_nsec = 1000000 / (csm_nTicksPerSecond / 1000);\r
++ stReq.tv_nsec = 1000000000 / (csm_nTicksPerSecond);\r
++\r
++ gettimeofday(&stTmNow, NULL);\r
++ tickNow = tickStart = GetTicks(&stTmNow, csm_nTicksPerSecond);\r
+ \r
+ while(m_bAlive){\r
+- nanosleep(&stReq, NULL);\r
++ if( (tickNow-tickStart) <= (tickCalled+1) ) {\r
++ nanosleep(&stReq, NULL);\r
++ }\r
+ nextTick(); \r
++ ++tickCalled;\r
++ gettimeofday(&stTmNow, NULL);\r
++ tickNow = GetTicks(&stTmNow, csm_nTicksPerSecond);\r
+ } \r
+ return true;\r
+ }\r
--- /dev/null
+diff -Naur forte-0.3.orig/src/arch/netos/txsocha.cpp forte-0.3/src/arch/netos/txsocha.cpp
+--- forte-0.3.orig/src/arch/netos/txsocha.cpp 2008-07-10 07:33:44.000000000 +0000
++++ forte-0.3/src/arch/netos/txsocha.cpp 2008-09-24 13:29:32.000000000 +0000
+@@ -167,7 +167,7 @@
+ strcpy(ip, pa_stConnectionInformation.m_pcConnectionID);\r
+ sock_addr.sin_family = AF_INET;\r
+ sock_addr.sin_port = htons(atoi(splitString(ip)));\r
+- memset(&(sock_addr.sin_zero), '\0', 8);\r
++ memset(&(sock_addr.sin_zero), '\0', sizeof(sock_addr.sin_zero));\r
+ fprintf(stderr,"CTXSocketHandler:: Opening TCP-Connection at IP: %s\n",pa_stConnectionInformation.m_pcConnectionID);\r
+ \r
+ if ((sock_id = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)) == -1) {\r
+diff -Naur forte-0.3.orig/src/arch/pc/pcsochan.cpp forte-0.3/src/arch/pc/pcsochan.cpp
+--- forte-0.3.orig/src/arch/pc/pcsochan.cpp 2008-07-10 07:33:44.000000000 +0000
++++ forte-0.3/src/arch/pc/pcsochan.cpp 2008-09-30 10:23:36.000000000 +0000
+@@ -116,9 +116,9 @@
+ strcpy(ip, pa_stConnectionInformation.m_pcConnectionID);\r
+ sock_addr.sin_family = AF_INET;\r
+ sock_addr.sin_port = htons(atoi(splitString(ip)));\r
+- memset(&(sock_addr.sin_zero), '\0', 8);\r
++ memset(&(sock_addr.sin_zero), '\0', sizeof(sock_addr.sin_zero));\r
+ \r
+- char acInfo[64] = { "CPCSocketHandler:: Opening TCP-Connection at IP: " };\r
++ char acInfo[128] = { "CPCSocketHandler:: Opening TCP-Connection at IP: " };\r
+ strcat(acInfo, pa_stConnectionInformation.m_pcConnectionID);\r
+ DEVLOG_INFO(cg_nID_CSocketHandler, 0x10, acInfo);\r
+ \r
+@@ -130,6 +130,16 @@
+ }\r
+ // switch between client/server:\r
+ if (pa_stConnectionInformation.m_enServiceType == e_Server) {\r
++ unsigned int opt = 1;\r
++\r
++ if (setsockopt(sock_id, SOL_SOCKET, SO_REUSEADDR, &opt, sizeof(opt)) != 0)\r
++ {\r
++ char acError[80] = { "TCP-Socket setsockopt() failed: " };\r
++ strcat(acError, strerror(errno));\r
++ DEVLOG_ERROR(cg_nID_CSocketHandler, 0x10, acError);\r
++ return -1;\r
++ }\r
++\r
+ sock_addr.sin_addr.s_addr = htonl(INADDR_ANY);\r
+ if (bind(sock_id, (struct sockaddr *)&sock_addr, sizeof(struct sockaddr))\r
+ != 0) {\r
+@@ -191,8 +201,15 @@
+ int CPCSocketHandler::receiveDataOnTCP(SSocketHandlerListEntry &pa_stData) {\r
+ DEVLOG_INFO(cg_nID_CSocketHandler, 0x10, "CPCSocketHandler:: Entering ReceiveDataOnTCP\n");\r
+ \r
++ int sock_id;\r
++\r
++ if (pa_stData.m_bAcceptedConnection)\r
++ sock_id = pa_stData.m_nAcceptID;\r
++ else\r
++ sock_id = pa_stData.m_nSocketID;\r
++\r
+ receveagain: pa_stData.m_stConnectionInformation.m_pstRecvBuffer->m_nFilledSize\r
+- =recv(pa_stData.m_nAcceptID, pa_stData.m_stConnectionInformation.m_pstRecvBuffer->m_pcData, pa_stData.m_stConnectionInformation.m_pstRecvBuffer->m_nMaxSize, 0);\r
++ =recv(sock_id, pa_stData.m_stConnectionInformation.m_pstRecvBuffer->m_pcData, pa_stData.m_stConnectionInformation.m_pstRecvBuffer->m_nMaxSize, 0);\r
+ \r
+ if (pa_stData.m_stConnectionInformation.m_pstRecvBuffer->m_nFilledSize == -1) {\r
+ if (errno == EINTR) {\r
+diff -Naur forte-0.3.orig/src/arch/pc/pctimeha.cpp forte-0.3/src/arch/pc/pctimeha.cpp
+--- forte-0.3.orig/src/arch/pc/pctimeha.cpp 2008-04-22 13:31:52.000000000 +0000
++++ forte-0.3/src/arch/pc/pctimeha.cpp 2008-10-08 12:27:09.000000000 +0000
+@@ -11,6 +11,7 @@
+ #include "pctimeha.h"\r
+ #include "../../core/devexec.h"\r
+ #include <time.h>\r
++#include <sys/time.h>\r
+ \r
+ const TINT32 CPCTimerHandler::csm_nTicksPerSecond = 1000;\r
+ \r
+@@ -28,14 +29,34 @@
+ disableHandler();\r
+ }\r
+ \r
++static inline unsigned long long GetTicks(struct timeval* stTmVal, TINT32 ticksPerSecond)\r
++{\r
++ unsigned long long ret = stTmVal->tv_sec * 1000LL;// sec -> ms\r
++ ret += stTmVal->tv_usec/1000;// + us -> ms\r
++ ret /= 1000/ticksPerSecond; // ms -> ticks\r
++ return ret;\r
++}\r
++\r
+ bool CPCTimerHandler::run(){\r
+ struct timespec stReq;\r
++ struct timeval stTmNow;\r
++ unsigned long long tickStart;\r
++ unsigned long long tickNow;\r
++ unsigned long long tickCalled = 0;\r
+ stReq.tv_sec = 0;\r
+- stReq.tv_nsec = 1000000 / (csm_nTicksPerSecond / 1000);\r
++ stReq.tv_nsec = 1000000000 / (csm_nTicksPerSecond);\r
++\r
++ gettimeofday(&stTmNow, NULL);\r
++ tickNow = tickStart = GetTicks(&stTmNow, csm_nTicksPerSecond);\r
+ \r
+ while(m_bAlive){\r
+- nanosleep(&stReq, NULL);\r
++ if( (tickNow-tickStart) <= (tickCalled+1) ) {\r
++ nanosleep(&stReq, NULL);\r
++ }\r
+ nextTick(); \r
++ ++tickCalled;\r
++ gettimeofday(&stTmNow, NULL);\r
++ tickNow = GetTicks(&stTmNow, csm_nTicksPerSecond);\r
+ } \r
+ return true;\r
+ }\r
--- /dev/null
+DESCRIPTION = "4DIAC-RTE (FORTE) is a small portable implementation of an IEC 61499 runtime environment"
+HOMEPAGE = "http://www.fordiac.org/8.0.html"
+SECTION = "console/network"
+DEPENDS = ""
+RDEPENDS = ""
+LICENSE = "EPL"
+
+inherit autotools
+
+EXTRA_OEMAKE = 'LIBS+="-lpthread" CXXFLAGS+="-O0 -g" CPPFLAGS+="-DLOGDEBUG -I${S}/src/core -I${S}/src/core/datatypes -I${S}/src/fblib/events -I${S}/src/fblib/ita -I${S}/src/fblib/math -I${S}/src/fblib/net"'
+
+do_configure_prepend() {
+ chmod +x ${S}/configure
+ ln -s -f ${S}/src/arch/pc ${S}/src/arch/active_arch
+}
--- /dev/null
+require forte.inc
+
+PR = "r0"
+
+SRC_URI = "http://downloads.sourceforge.net/fordiac/FORTE-0.3.5.zip \
+ file://forte-0.3.5_socket_reuse.patch;patch=1 \
+ file://forte-0.3.5_timer.patch;patch=1 \
+ file://forte-0.3.5_stdlib_inc_fix.patch;patch=1"
+
+S="${WORKDIR}/FORTE-${PV}"
--- /dev/null
+require forte.inc
+
+PR = "r0"
+
+DEFAULT_PREFERENCE_oxnas = "1"
+
+SRC_URI = "http://kent.dl.sourceforge.net/sourceforge/fordiac/forte-0.3.zip \
+ file://forte-0.3-patch_20081008.diff;patch=1"
+
+S="${WORKDIR}/forte-${PV}"