Context Navigation

SCOREFNS.TXT@ f40a309

Last change on this file since f40a309 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Imported original source code.
Property mode set to `100755`
File size: 1.5 KB

Line
1	scinit.c -- score list functions
2	Version 3 -- 1987-04-24
3
4	Score storage variables:
5
6	BOOL se_chg; /* Score free list changed flag */
7
8	long spcount; /* Score storage pool free entry count */
9	long frags; /* Score storage pool fragment count */
10
11	long se1_cnt; /* Score free list E_SIZE1 entry count */
12	long se2_cnt; /* Score free list E_SIZE2 entry count */
13	long se3_cnt; /* Score free list E_SIZE3 entry count */
14
15	long pspool; / Score storage pool pointer */
16
17	struct s_entry size1; / Score E_SIZE1 entry free list pointer */
18	struct s_entry size2; / Score E_SIZE2 entry free list pointer */
19	struct s_entry size3; / Score E_SIZE3 entry free list pointer */
20
21	long spool[MAX_SE]; /* Score storage pool */
22
23
24
25
26	Functions:
27
28	struct s_entry *
29	e_clr(e1)
30	struct s_entry *e1;
31
32	Clear the event pointed to by 'e1'. Returns 'e1'.
33
34	struct s_entry *
35	e_ins(e1, e2)
36	struct s_entry e1, e2;
37
38	Insert the event pointed to by 'e1' after the event
39	pointed to by 'e2'. Returns 'e1'.
40
41	struct s_entry *
42	e_rmv(e1)
43	struct s_entry *e1;
44
45	Remove the event pointed to by 'e1' from the list it's in.
46	Returns 'e1'.
47
48	struct s_entry *
49	e_alc(w)
50	int w;
51	Allocate a new event entry. Returns the event entry address,
52	or E_NULL if none can be allocated.
53
54	int
55	e_del(e1)
56	struct s_entry *e1;
57
58	Deallocate the event entry pointed to by 'e1'.
59	Returns 0 if successful, 1 if not.
60
61	long
62	scinit()
63
64	Initialize the score data structures.
65	Returns the number of free storage units.

Note: See TracBrowser for help on using the repository browser.