Mercurial > ecos

annotate packages/io/serial/current/misc/timeout.inl @ 64:c38311975d4f ecos-sw-2000-01-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
author jlarmour
date Fri, 28 Jan 2000 04:59:39 +0000
parents 1d7f19c9e4d1
children bf00f99aec69
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
1 #ifndef CYGONCE_IO_SERIAL_MISC_TIMEOUT_INL
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
2 #define CYGONCE_IO_SERIAL_MISC_TIMEOUT_INL
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
3 //==========================================================================
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
4 //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
5 // timeout.inl
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
6 //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
7 // Simple timeout support for serial I/O testing.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
8 //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
9 //==========================================================================
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
10 //####COPYRIGHTBEGIN####
64
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
11 //
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
12 // -------------------------------------------
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
13 // The contents of this file are subject to the Red Hat eCos Public License
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
14 // Version 1.0 (the "License"); you may not use this file except in
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
15 // compliance with the License. You may obtain a copy of the License at
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
16 // http://sourceware.cygnus.com/ecos
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
17 //
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
18 // Software distributed under the License is distributed on an
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
19 // basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
20 // License for the specific language governing rights and limitations under
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
21 // the License.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
22 //
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
23 // The Original Code is eCos - Embedded Configurable Operating System,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
24 // released September 30, 1998.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
25 //
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
26 // The Initial Developer of the Original Code is Red Hat.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
27 // Portions created by Red Hat are
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
28 // Copyright (C) 1998, 1999, 2000 Red Hat, Inc.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
29 // All Rights Reserved.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
30 // -------------------------------------------
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 4
diff changeset
31 //
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
32 //####COPYRIGHTEND####
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
33 //==========================================================================
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
34 //#####DESCRIPTIONBEGIN####
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
35 //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
36 // Author(s): gthomas
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
37 // Contributors: gthomas
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
38 // Date: 1999-02-05
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
39 // Description: Simple timeout functions
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
40 //####DESCRIPTIONEND####
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
41
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
42 // Timeout support
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
43
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
44 typedef void (timeout_fun)(void *);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
45 #ifndef NTIMEOUTS
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
46 #define NTIMEOUTS 8
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
47 #endif
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
48 typedef struct {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
49 cyg_int32 delta; // Number of "ticks" in the future for this timeout
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
50 timeout_fun *fun; // Function to execute when it expires
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
51 void *arg; // Argument to pass when it does
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
52 } timeout_entry;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
53 static timeout_entry timeouts[NTIMEOUTS];
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
54 static cyg_handle_t timeout_alarm_handle;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
55 static cyg_alarm timeout_alarm;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
56 static cyg_int32 last_delta;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
57
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
58 static void
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
59 do_timeout(cyg_handle_t alarm, cyg_addrword_t data)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
60 {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
61 int i;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
62 cyg_int32 min_delta;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
63 timeout_entry *e = timeouts;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
64 min_delta = 0x7FFFFFFF; // Maxint
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
65 for (i = 0; i < NTIMEOUTS; i++, e++) {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
66 if (e->delta) {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
67 e->delta -= last_delta;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
68 if (e->delta == 0) {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
69 // Time for this item to 'fire'
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
70 (e->fun)(e->arg);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
71 } else {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
72 if (e->delta < min_delta) min_delta = e->delta;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
73 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
74 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
75 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
76 if (min_delta != 0x7FFFFFFF) {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
77 // Still something to do, schedule it
4
1d7f19c9e4d1 Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents: 2
diff changeset
78 cyg_alarm_initialize(timeout_alarm_handle, cyg_current_time()+min_delta, 0);
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
79 last_delta = min_delta;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
80 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
81 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
82
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
83 static cyg_uint32
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
84 timeout(cyg_int32 delta, timeout_fun *fun, void *arg)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
85 {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
86 int i;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
87 cyg_int32 min_delta;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
88 static bool init = false;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
89 timeout_entry *e = timeouts;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
90 cyg_uint32 stamp;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
91 if (!init) {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
92 cyg_handle_t h;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
93 cyg_clock_to_counter(cyg_real_time_clock(), &h);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
94 cyg_alarm_create(h, do_timeout, 0, &timeout_alarm_handle, &timeout_alarm);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
95 init = true;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
96 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
97 stamp = 0; // Assume no slots available
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
98 for (i = 0; i < NTIMEOUTS; i++, e++) {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
99 if ((e->delta == 0) && (e->fun == 0)) {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
100 // Free entry
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
101 e->delta = delta;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
102 e->fun = fun;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
103 e->arg = arg;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
104 stamp = (cyg_uint32)e;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
105 break;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
106 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
107 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
108 e = timeouts;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
109 min_delta = 0x7FFFFFFF;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
110 for (i = 0; i < NTIMEOUTS; i++, e++) {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
111 if (e->delta && (e->delta < min_delta)) min_delta = e->delta;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
112 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
113 if (min_delta != 0x7FFFFFFF) {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
114 // Still something to do, schedule it
4
1d7f19c9e4d1 Merge from eCos master repository on 1999-05-11-21:11:10-BST
jlarmour
parents: 2
diff changeset
115 cyg_alarm_initialize(timeout_alarm_handle, cyg_current_time()+min_delta, 0);
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
116 last_delta = min_delta;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
117 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
118 return stamp;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
119 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
120
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
121 static void
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
122 untimeout(cyg_uint32 stamp)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
123 {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
124 if (stamp != 0) {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
125 timeout_entry *e = (timeout_entry *)stamp;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
126 if (e->fun != 0) {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
127 e->delta = 0;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
128 e->fun = 0;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
129 e->arg = 0;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
130 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
131 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
132 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
133
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
134 #endif // CYGONCE_IO_SERIAL_MISC_TIMEOUT_INL