~ubuntu-branches/ubuntu/intrepid/ecl/intrepid

« back to all changes in this revision

Viewing changes to src/c/tcp.d

Committer: Bazaar Package Importer
Author(s): Peter Van Eynde
Date: 2006-06-21 09:21:21 UTC
mfrom: (1.1.1 upstream)
Revision ID: james.westby@ubuntu.com-20060621092121-txz1f21lj0wh0f67

Tags: 0.9h-20060617-1

* New upstream version
* Updated standards version without real changes.

files added:
ecl.log

src/cmp/cmpstack.lsp

tailor.state

tailor.state.old

files removed:
src/gc/aix_irix_threads.c

files modified:
ChangeLog

contrib/sockets/sockets.lisp

debian/changelog

debian/control

msvc/ecl-threads.def

msvc/ecl.def

src/CHANGELOG

src/aclocal.m4

src/c/all_symbols.d

src/c/alloc.d

src/c/alloc_2.d

src/c/array.d

src/c/character.d

src/c/compiler.d

src/c/disassembler.d

src/c/dpp.c

src/c/error.d

src/c/eval.d

src/c/ffi.d

src/c/file.d

src/c/format.d

src/c/gbc-new.d

src/c/gbc.d

src/c/gfun.d

src/c/hash.d

src/c/instance.d

src/c/interpreter.d

src/c/load.d

src/c/macros.d

src/c/main.d

src/c/number.d

src/c/package.d

src/c/pathname.d

src/c/predicate.d

src/c/print.d

src/c/read.d

src/c/reference.d

src/c/sequence.d

src/c/string.d

src/c/structure.d

src/c/symbol.d

src/c/symbols_list.h

src/c/symbols_list2.h

src/c/tcp.d

src/c/time.d

src/c/typespec.d

src/c/unixfsys.d

src/c/unixsys.d

src/clos/builtin.lsp

src/clos/generic.lsp

src/clos/kernel.lsp

src/clos/print.lsp

src/clx/cmudep.lisp

src/cmp/cmpblock.lsp

src/cmp/cmpcall.lsp

src/cmp/cmpcatch.lsp

src/cmp/cmpct.lsp

src/cmp/cmpdefs.lsp

src/cmp/cmpenv.lsp

src/cmp/cmpeval.lsp

src/cmp/cmpexit.lsp

src/cmp/cmpffi.lsp

src/cmp/cmpflet.lsp

src/cmp/cmplam.lsp

src/cmp/cmplet.lsp

src/cmp/cmploc.lsp

src/cmp/cmpmain.lsp

src/cmp/cmpmulti.lsp

src/cmp/cmpspecial.lsp

src/cmp/cmptag.lsp

src/cmp/cmptop.lsp

src/cmp/cmptype.lsp

src/cmp/cmputil.lsp

src/cmp/cmpvar.lsp

src/cmp/cmpwt.lsp

src/cmp/load.lsp.in

src/cmp/sysfun.lsp

src/configure

src/configure.in

src/doc/Makefile.in

src/doc/devel.txi

src/doc/ecl-config.man.in

src/doc/user.txi

src/gc/Makefile

src/gc/Makefile.am

src/gc/Makefile.direct

src/gc/Makefile.in

src/gc/allchblk.c

src/gc/alloc.c

src/gc/alpha_mach_dep.S

src/gc/configure

src/gc/configure.in

src/gc/darwin_stop_world.c

src/gc/dbg_mlc.c

src/gc/doc/Makefile.in

src/gc/doc/README

src/gc/doc/README.changes

src/gc/doc/README.linux

src/gc/doc/gcinterface.html

src/gc/dyn_load.c

src/gc/headers.c

src/gc/include/Makefile.in

src/gc/include/gc.h

src/gc/include/gc_config_macros.h

src/gc/include/gc_cpp.h

src/gc/include/gc_pthread_redirects.h

src/gc/include/leak_detector.h

src/gc/include/private/gc_locks.h

src/gc/include/private/gc_pmark.h

src/gc/include/private/gc_priv.h

src/gc/include/private/gcconfig.h

src/gc/include/private/pthread_stop_world.h

src/gc/mach_dep.c

src/gc/malloc.c

src/gc/mark.c

src/gc/misc.c

src/gc/mkinstalldirs

src/gc/os_dep.c

src/gc/powerpc_darwin_mach_dep.s

src/gc/pthread_stop_world.c

src/gc/pthread_support.c

src/gc/threadlibs.c

src/gc/version.h

src/gc/win32_threads.c

src/gmp/demos/calc/calclex.c

src/h/config.h.in

src/h/ecl-inl.h

src/h/external.h

src/h/internal.h

src/h/object.h

src/lsp/autoload.lsp

src/lsp/defmacro.lsp

src/lsp/defpackage.lsp

src/lsp/defstruct.lsp

src/lsp/describe.lsp

src/lsp/evalmacros.lsp

src/lsp/ffi.lsp

src/lsp/load.lsp.in

src/lsp/loop2.lsp

src/lsp/packlib.lsp

src/lsp/pprint.lsp

src/lsp/predlib.lsp

src/lsp/seq.lsp

src/lsp/seqlib.lsp

src/util/ecl-config

Show diffs side-by-side

added added

removed removed

src/c/tcp.d

268

cl_object stream;

269

270

/* Ensure "host" is a string that we can pass to a C function */

271

host = coerce_to_simple_string(host);

271

host = si_copy_to_simple_base_string(host);

272

273

/* The port number is not negative */

274

p = fixnnint(port);

275

276

if (host->string.fillp > BUFSIZ - 1)

276

if (host->base_string.fillp > BUFSIZ - 1)

277

FEerror("~S is a too long file name.", 1, host);

278

279

start_critical_section();

280

fd = connect_to_server(host->string.self, fix(port));

280

fd = connect_to_server(host->base_string.self, fix(port));

281

end_critical_section();

282

283

if (fd == 0)

324

cl_object stream;

325

struct sockaddr_un addr;

326

327

if (type_of(path) != t_string)

327

if (type_of(path) != t_base_string)

328

FEwrong_type_argument(@'string', path);

329

if (path->string.fillp > UNIX_MAX_PATH-1)

329

if (path->base_string.fillp > UNIX_MAX_PATH-1)

330

FEerror("~S is a too long file name.", 1, path);

331

332

fd = socket(PF_UNIX, SOCK_STREAM, 0);

335

@(return Cnil)

336

}

337

338

memcpy(addr.sun_path, path->string.self, path->string.fillp);

339

addr.sun_path[path->string.fillp] = 0;

338

memcpy(addr.sun_path, path->base_string.self, path->base_string.fillp);

339

addr.sun_path[path->base_string.fillp] = 0;

340

addr.sun_family = AF_UNIX;

341

342

if (connect(fd, (struct sockaddr *)&addr, sizeof(addr)) < 0) {

364

INIT_TCP

365

366

switch (type_of(host_or_address)) {

367

case t_string:

368

host_or_address = coerce_to_simple_string(host_or_address);

369

he = gethostbyname(host_or_address->string.self);

367

case t_base_string:

368

host_or_address = si_copy_to_simple_base_string(host_or_address);

369

he = gethostbyname(host_or_address->base_string.self);

370

break;

371

case t_fixnum:

372

l = fix(host_or_address);

385

}

386

if (he == NULL)

387

@(return Cnil Cnil Cnil)

388

name = make_string_copy(he->h_name);

388

name = make_base_string_copy(he->h_name);

389

aliases = Cnil;

390

for (i = 0; he->h_aliases[i] != 0; i++)

391

aliases = CONS(make_string_copy(he->h_aliases[i]), aliases);

391

aliases = CONS(make_base_string_copy(he->h_aliases[i]), aliases);

392

addresses = Cnil;

393

for (i = 0; he->h_addr_list[i]; i++) {

394

unsigned long *s = (unsigned long*)(he->h_addr_list[i]);

Older »