File: bwb_par.c

package info (click to toggle)
bwbasic 2.20pl2-11
  • links: PTS
  • area: main
  • in suites: buster, jessie, jessie-kfreebsd, stretch, wheezy
  • size: 1,236 kB
  • sloc: ansic: 21,001; makefile: 80
file content (115 lines) | stat: -rw-r--r-- 3,557 bytes parent folder | download | duplicates (10)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
/***************************************************************

        bwb_par.c       Parallel Action (Multitasking) Routines
                        for Bywater BASIC Interpreter

			Currently UNDER CONSTRUCTION

                        Copyright (c) 1993, Ted A. Campbell
                        Bywater Software

                        email: tcamp@delphi.com

        Copyright and Permissions Information:

        All U.S. and international rights are claimed by the author,
        Ted A. Campbell.

	This software is released under the terms of the GNU General
	Public License (GPL), which is distributed with this software
	in the file "COPYING".  The GPL specifies the terms under
	which users may copy and use the software in this distribution.

	A separate license is available for commercial distribution,
	for information on which you should contact the author.

***************************************************************/

/*---------------------------------------------------------------*/
/* NOTE: Modifications marked "JBV" were made by Jon B. Volkoff, */
/* 11/1995 (eidetics@cerf.net).                                  */
/*---------------------------------------------------------------*/

#include <stdio.h>

#include "bwbasic.h"
#include "bwb_mes.h"

#if PARACT			/* this whole file ignored if FALSE */

/***************************************************************

        FUNCTION:       bwb_newtask()

        DESCRIPTION:    This C function allocates and initializes
        		memory for a new task.

***************************************************************/

#if ANSI_C
int
bwb_newtask( int task_requested )
#else
int
bwb_newtask( task_requested )
   int task_requested;
#endif
   {
   static char start_buf[] = "\0";
   static char end_buf[] = "\0";
   register int c;

   /* find if requested task slot is available */ 

   if ( bwb_tasks[ task_requested ] != NULL )
      {
#if PROG_ERRORS
      sprintf( bwb_ebuf, "in bwb_newtask(): Slot requested is already in use" );
      bwb_error( bwb_ebuf );
#else
      bwb_error( err_overflow );
      return -1;
#endif
      }

   /* get memory for task structure */

   /* Revised to CALLOC pass-thru call by JBV */
   if ( ( bwb_tasks[ task_requested ] = CALLOC( 1, sizeof( struct bwb_task ), "bwb_newtask" ) )
      == NULL )
      {
#if PROG_ERRORS
      bwb_error( "in bwb_newtask(): failed to find memory for task structure" );
#else
      bwb_error( err_getmem );
#endif
      }

   /* set some initial variables */

   bwb_tasks[ task_requested ]->bwb_start.number = 0;
   bwb_tasks[ task_requested ]->bwb_start.next = &bwb_tasks[ task_requested ]->bwb_end;
   bwb_tasks[ task_requested ]->bwb_end.number = MAXLINENO + 1;
   bwb_tasks[ task_requested ]->bwb_end.next = &bwb_tasks[ task_requested ]->bwb_end;
   bwb_tasks[ task_requested ]->bwb_start.buffer = start_buf;
   bwb_tasks[ task_requested ]->bwb_end.buffer = end_buf;
   bwb_tasks[ task_requested ]->data_line = &bwb_tasks[ task_requested ]->bwb_start;
   bwb_tasks[ task_requested ]->data_pos = 0;
   bwb_tasks[ task_requested ]->rescan = TRUE;
   bwb_tasks[ task_requested ]->exsc = -1;
   bwb_tasks[ task_requested ]->expsc = 0;
   bwb_tasks[ task_requested ]->xtxtsc = 0;

   /* Variable and function table initializations */

   var_init( task_requested );             /* initialize variable chain */
   fnc_init( task_requested );             /* initialize function chain */
   fslt_init( task_requested );		/* initialize funtion-sub  chain */

   return task_requested;

   }

#endif