From 352c9b2035e32e56f10f261d94955d97f4ab0f1c Mon Sep 17 00:00:00 2001
From: Joel Sherrill <joel.sherrill@OARcorp.com>
Date: Tue, 9 Nov 1999 22:07:23 +0000
Subject: This patch adds the basic framework for the ITRON 3.0 API
 implementation for RTEMS.

---
 c/src/exec/itron/src/cre_tsk.c | 127 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 127 insertions(+)
 create mode 100644 c/src/exec/itron/src/cre_tsk.c

(limited to 'c/src/exec/itron/src/cre_tsk.c')

diff --git a/c/src/exec/itron/src/cre_tsk.c b/c/src/exec/itron/src/cre_tsk.c
new file mode 100644
index 0000000000..76bcd75eda
--- /dev/null
+++ b/c/src/exec/itron/src/cre_tsk.c
@@ -0,0 +1,127 @@
+/*
+ *  The license and distribution terms for this file may be
+ *  found in the file LICENSE in this distribution or at
+ *  http://www.OARcorp.com/rtems/license.html.
+ *
+ *  $Id$
+ */
+
+#include <itron.h>
+
+#include <rtems/score/thread.h>
+#include <rtems/score/userext.h>
+#include <rtems/score/wkspace.h>
+#include <rtems/score/apiext.h>
+#include <rtems/score/sysstate.h>
+
+#include <rtems/itron/task.h>
+
+
+/*
+ *  cre_tsk - Create Task
+ */
+
+/*
+ * XXX - How do I return these errors ???  Do I have to validate the ID
+         prior to calling the ID routine ??
+  E_NOMEM   Insufficient memory (Memory for control block and/or user stack
+            cannot be allocated)
+  E_ID      Invalid ID Number (tskid was invalid or could not be used)
+  E_RSATR   Reserved attribute (tskatr was invalid or could not be used)
+  E_OBJ     Invalid object state (a task of the same ID already exists)
+  E_OACV    Object access violation (A tskid less than -4 was specified from
+            a user task.  This is implementation dependent.)
+  E_PAR     Parameter error (pk_ctsk, task, itskpri and/or stksz is invalid)
+  EN_OBJNO  An object number which could not be accessed on the target node
+            is specified.
+  EN_CTXID  Specified an object on another node when the system call was
+            issued from a task in dispatch disabled state or from a task-
+            independent portion
+  EN_PAR    A value outside the range supported by the target node and/or
+            transmission packet format was specified as a parameter (a value
+            outside supported range was specified for exinf, tskatr, task,
+            itskpri and/or stksz)
+ */
+
+ER cre_tsk(
+  ID      tskid,
+  T_CTSK *pk_ctsk
+)
+{
+  register Thread_Control     *the_thread;
+  char                        *name = "trn";
+  boolean                      status;
+  Priority_Control             core_priority;  
+
+  /*
+   * Disable dispatching.
+   */
+  
+  _Thread_Disable_dispatch();
+
+  /*
+   * allocate the thread.
+   */
+
+  the_thread = _ITRON_Task_Allocate( tskid );
+  if ( !the_thread ) {
+    ena_dsp();
+    return _ITRON_Task_Clarify_allocation_id_error( tskid ); 
+  }
+
+  /*
+   * XXX - FIX THE VARIABLES TO THE CORRECT VALUES!!!
+   */
+
+  /*
+   *  Initialize the core thread for this task.
+   */
+
+  core_priority = _ITRON_Task_Priority_to_Core( pk_ctsk->itskpri );
+  status = _Thread_Initialize(
+    &_ITRON_Task_Information,
+    the_thread, 
+    NULL,
+    pk_ctsk->stksz,
+    TRUE,          /* XXX - All tasks FP ??? */
+    core_priority,
+    TRUE,
+    THREAD_CPU_BUDGET_ALGORITHM_EXHAUST_TIMESLICE,
+    NULL,        /* no budget algorithm callout */
+    0,
+    &name
+  );
+
+  if ( !status ) {
+    _ITRON_Task_Free( the_thread );
+    _Thread_Enable_dispatch();
+    return -1;
+#if (0)
+/* XXX */
+#endif
+  }
+
+#if (0)  /* XXX We have any thing else to set per API structure? */
+  api = the_thread->API_Extensions[ THREAD_API_ITRON ];
+  asr = &api->Signal;
+ 
+  asr->is_enabled = FALSE;
+
+  *id = the_thread->Object.id;
+#endif
+
+  /*
+   *  This insures we evaluate the process-wide signals pending when we
+   *  first run.
+   *
+   *  NOTE:  Since the thread starts with all unblocked, this is necessary.
+   */
+
+  the_thread->do_post_task_switch_extension = TRUE;
+
+  the_thread->Start.entry_point = (Thread_Entry) pk_ctsk->task;
+
+  _Thread_Enable_dispatch();
+  return E_OK;
+}
+
-- 
cgit v1.2.3