ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/EV/schmorp.h
(Generate patch)

Comparing EV/schmorp.h (file contents):
Revision 1.9 by root, Thu Jul 8 00:45:03 2010 UTC vs.
Revision 1.13 by root, Tue Oct 22 10:43:05 2013 UTC

1#ifndef SCHMORP_PERL_H_ 1#ifndef SCHMORP_PERL_H_
2#define SCHMORP_PERL_H_ 2#define SCHMORP_PERL_H_
3 3
4/* WARNING 4/* WARNING
5 * This header file is a shared resource between many modules. 5 * This header file is a shared resource between many modules.
6 * perl header files MUST already be included.
6 */ 7 */
7 8
8#include <signal.h> 9#include <signal.h>
9#include <errno.h> 10#include <errno.h>
10 11
… …
49# ifndef IS_PADCONST 50# ifndef IS_PADCONST
50# define IS_PADCONST(v) 0 51# define IS_PADCONST(v) 0
51# endif 52# endif
52#endif 53#endif
53 54
55/* use NV for 32 bit perls as it allows larger offsets */
56#if IVSIZE >= 8
57typedef IV VAL64;
58# define SvVAL64(sv) SvIV (sv)
59# define newSVval64(i64) newSViv (i64)
60#else
61typedef NV VAL64;
62# define SvVAL64(sv) SvNV (sv)
63# define newSVval64(i64) newSVnv (i64)
64#endif
65
66/* typemap for the above */
67/*
68VAL64 T_VAL64
69
70INPUT
71
72T_VAL64
73 $var = ($type)SvVAL64 ($arg);
74
75OUTPUT
76
77T_VAL64
78 $arg = newSVval64 ($var);
79*/
80
54/* 5.11 */ 81/* 5.11 */
55#ifndef CxHASARGS 82#ifndef CxHASARGS
56# define CxHASARGS(cx) (cx)->blk_sub.hasargs 83# define CxHASARGS(cx) (cx)->blk_sub.hasargs
57#endif 84#endif
58 85
… …
161s_get_cv (SV *cb_sv) 188s_get_cv (SV *cb_sv)
162{ 189{
163 dTHX; 190 dTHX;
164 HV *st; 191 HV *st;
165 GV *gvp; 192 GV *gvp;
166 193
167 return (SV *)sv_2cv (cb_sv, &st, &gvp, 0); 194 return (SV *)sv_2cv (cb_sv, &st, &gvp, 0);
168} 195}
169 196
170static SV * 197static SV *
171s_get_cv_croak (SV *cb_sv) 198s_get_cv_croak (SV *cb_sv)
… …
226 struct sockaddr_in adr2; 253 struct sockaddr_in adr2;
227 int adr2_size = sizeof (adr2); 254 int adr2_size = sizeof (adr2);
228 SOCKET listener; 255 SOCKET listener;
229 SOCKET sock [2] = { -1, -1 }; 256 SOCKET sock [2] = { -1, -1 };
230 257
231 if ((listener = socket (AF_INET, SOCK_STREAM, 0)) == INVALID_SOCKET) 258 if ((listener = socket (AF_INET, SOCK_STREAM, 0)) == INVALID_SOCKET)
232 return -1; 259 return -1;
233 260
234 addr.sin_family = AF_INET; 261 addr.sin_family = AF_INET;
235 addr.sin_addr.s_addr = htonl (INADDR_LOOPBACK); 262 addr.sin_addr.s_addr = htonl (INADDR_LOOPBACK);
236 addr.sin_port = 0; 263 addr.sin_port = 0;
… …
242 goto fail; 269 goto fail;
243 270
244 if (listen (listener, 1)) 271 if (listen (listener, 1))
245 goto fail; 272 goto fail;
246 273
247 if ((sock [0] = socket (AF_INET, SOCK_STREAM, 0)) == INVALID_SOCKET) 274 if ((sock [0] = socket (AF_INET, SOCK_STREAM, 0)) == INVALID_SOCKET)
248 goto fail; 275 goto fail;
249 276
250 if (connect (sock [0], (struct sockaddr *)&addr, addr_size)) 277 if (connect (sock [0], (struct sockaddr *)&addr, addr_size))
251 goto fail; 278 goto fail;
252 279

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines