source: buchla-68k/orig/DOC/SCOREFNS.TXT@ 6099cac

Last change on this file since 6099cac was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago

Imported original source code.

  • Property mode set to 100755
File size: 1.5 KB
RevLine 
[3ae31e9]1scinit.c -- score list functions
2Version 3 -- 1987-04-24
3
4Score storage variables:
5
6BOOL se_chg; /* Score free list changed flag */
7
8long spcount; /* Score storage pool free entry count */
9long frags; /* Score storage pool fragment count */
10
11long se1_cnt; /* Score free list E_SIZE1 entry count */
12long se2_cnt; /* Score free list E_SIZE2 entry count */
13long se3_cnt; /* Score free list E_SIZE3 entry count */
14
15long *pspool; /* Score storage pool pointer */
16
17struct s_entry *size1; /* Score E_SIZE1 entry free list pointer */
18struct s_entry *size2; /* Score E_SIZE2 entry free list pointer */
19struct s_entry *size3; /* Score E_SIZE3 entry free list pointer */
20
21long spool[MAX_SE]; /* Score storage pool */
22
23
24
25
26Functions:
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.