Mercurial > hg > freeDiameter

annotate extensions/dbg_interactive/posix.i @ 641:69d3579f6c6c 1.0.3-rc3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First version of dbg_interactive is complete
author Sebastien Decugis <sdecugis@nict.go.jp>
date Tue, 21 Dec 2010 10:29:46 +0900
parents
children 4a9f08d6b6ba
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
641
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
1 /*********************************************************************************************************
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
2 * Software License Agreement (BSD License) *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
3 * Author: Sebastien Decugis <sdecugis@nict.go.jp> *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
4 * *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
5 * Copyright (c) 2010, WIDE Project and NICT *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
6 * All rights reserved. *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
7 * *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
8 * Redistribution and use of this software in source and binary forms, with or without modification, are *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
9 * permitted provided that the following conditions are met: *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
10 * *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
11 * * Redistributions of source code must retain the above *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
12 * copyright notice, this list of conditions and the *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
13 * following disclaimer. *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
14 * *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
15 * * Redistributions in binary form must reproduce the above *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
16 * copyright notice, this list of conditions and the *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
17 * following disclaimer in the documentation and/or other *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
18 * materials provided with the distribution. *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
19 * *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
20 * * Neither the name of the WIDE Project or NICT nor the *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
21 * names of its contributors may be used to endorse or *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
22 * promote products derived from this software without *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
23 * specific prior written permission of WIDE Project and *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
24 * NICT. *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
25 * *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
26 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
27 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
28 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
29 * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
30 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
31 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
32 * TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
33 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
34 *********************************************************************************************************/
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
35
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
36 /* Do not include this directly, use dbg_interactive.i instead */
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
37
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
38 /****** POSIX wrappers around useful functions for fD *********/
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
39
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
40 /**** MUTEX ****/
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
41 typedef struct pthread_mutex_swig {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
42 } pthread_mutex_t;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
43
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
44 %extend pthread_mutex_t {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
45 pthread_mutex_t() {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
46 int ret = 0;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
47 pthread_mutex_t * r = calloc(1, sizeof(pthread_mutex_t));
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
48 if (!r) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
49 DI_ERROR_MALLOC;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
50 return NULL;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
51 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
52 ret = pthread_mutex_init(r, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
53 if (ret) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
54 DI_ERROR(ret, NULL, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
55 free(r);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
56 return NULL;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
57 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
58 return r;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
59 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
60 ~pthread_mutex_t() {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
61 int ret = 0;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
62 ret = pthread_mutex_destroy($self);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
63 if (ret) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
64 DI_ERROR(ret, NULL, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
65 return;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
66 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
67 free($self);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
68 return;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
69 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
70 void lock() {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
71 int ret = pthread_mutex_lock($self);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
72 if (ret) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
73 DI_ERROR(ret, NULL, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
74 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
75 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
76 void unlock() {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
77 int ret = pthread_mutex_unlock($self);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
78 if (ret) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
79 DI_ERROR(ret, NULL, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
80 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
81 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
82 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
83
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
84 /**** CONDVAR ****/
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
85 typedef struct pthread_cond_swig {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
86 } pthread_cond_t;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
87
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
88 %extend pthread_cond_t {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
89 pthread_cond_t() {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
90 int ret = 0;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
91 pthread_cond_t * r = calloc(1, sizeof(pthread_cond_t));
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
92 if (!r) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
93 DI_ERROR_MALLOC;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
94 return NULL;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
95 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
96 ret = pthread_cond_init(r, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
97 if (ret) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
98 DI_ERROR(ret, NULL, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
99 free(r);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
100 return NULL;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
101 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
102 return r;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
103 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
104 ~pthread_cond_t() {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
105 int ret = 0;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
106 ret = pthread_cond_destroy($self);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
107 if (ret) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
108 DI_ERROR(ret, NULL, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
109 return;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
110 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
111 free($self);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
112 return;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
113 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
114 void signal() {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
115 int ret = pthread_cond_signal($self);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
116 if (ret) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
117 DI_ERROR(ret, NULL, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
118 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
119 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
120 void broadcast() {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
121 int ret = pthread_cond_broadcast($self);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
122 if (ret) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
123 DI_ERROR(ret, NULL, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
124 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
125 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
126 void wait(pthread_mutex_t * mutex) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
127 int ret = pthread_cond_wait($self, mutex);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
128 if (ret) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
129 DI_ERROR(ret, NULL, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
130 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
131 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
132 void timedwait(pthread_mutex_t * mutex, long seconds) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
133 struct timespec ts;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
134 int ret;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
135
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
136 clock_gettime(CLOCK_REALTIME, &ts);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
137 ts.tv_sec += seconds;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
138
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
139 ret = pthread_cond_timedwait($self, mutex, &ts);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
140 if (ret && (ret != ETIMEDOUT)) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
141 DI_ERROR(ret, NULL, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
142 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
143 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
144 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
145
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
146 /**** RWLOCK ****/
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
147 typedef struct pthread_rwlock_swig {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
148 } pthread_rwlock_t;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
149
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
150 %extend pthread_rwlock_t {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
151 pthread_rwlock_t() {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
152 int ret = 0;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
153 pthread_rwlock_t * r = calloc(1, sizeof(pthread_rwlock_t));
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
154 if (!r) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
155 DI_ERROR_MALLOC;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
156 return NULL;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
157 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
158 ret = pthread_rwlock_init(r, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
159 if (ret) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
160 DI_ERROR(ret, NULL, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
161 free(r);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
162 return NULL;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
163 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
164 return r;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
165 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
166 ~pthread_rwlock_t() {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
167 int ret = 0;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
168 ret = pthread_rwlock_destroy($self);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
169 if (ret) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
170 DI_ERROR(ret, NULL, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
171 return;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
172 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
173 free($self);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
174 return;
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
175 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
176 void rdlock() {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
177 int ret = pthread_rwlock_rdlock($self);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
178 if (ret) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
179 DI_ERROR(ret, NULL, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
180 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
181 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
182 void wrlock() {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
183 int ret = pthread_rwlock_wrlock($self);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
184 if (ret) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
185 DI_ERROR(ret, NULL, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
186 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
187 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
188 void unlock() {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
189 int ret = pthread_rwlock_unlock($self);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
190 if (ret) {
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
191 DI_ERROR(ret, NULL, NULL);
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
192 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
193 }
69d3579f6c6c First version of dbg_interactive is complete
Sebastien Decugis <sdecugis@nict.go.jp>
parents:
diff changeset
194 }
"Welcome to our mercurial repository"