mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-11 07:20:29 -07:00
Code Issues Projects Releases Packages Wiki Activity

sockets: put the package in the same file as the implementation

Browse source 
build-module on rebuild reloads only files that have changes, so if we had
updated only sockets.lisp, then the package is not defined when the file is
recompiled and loaded.
This commit is contained in:
Daniel Kochmański 2026-03-09 12:31:52 +01:00
parent b58eb33283
commit e39d6574ce
3 changed files with 15 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

25
contrib/sockets/package.lisp
View file

@ -1,25 +0,0 @@
;; -*- Mode: Lisp; Syntax: Common-Lisp -*-
;; $Id$
;; This file is based on SBCL's SB-BSD-SOCKET module and has been
;; heavily modified to work with ECL by Julian Stecklina.
;; Port to Windows Sockets contributed by M. Goffioul.
;; You may do whatever you want with this file. (PUBLIC DOMAIN)
;; Trivial stuff is copied from SBCL's SB-BSD-SOCKETS, which is also
;; in the public domain.
(defpackage "SB-BSD-SOCKETS"
(:use "CL" "FFI" "SI")
(:export "GET-HOST-BY-NAME" "GET-HOST-BY-ADDRESS"
"SOCKET-BIND" "SOCKET-ACCEPT" "SOCKET-CONNECT"
"SOCKET-PEERNAME" "SOCKET-NAME" "SOCKET-LISTEN"
"SOCKET-RECEIVE" "SOCKET-CLOSE" "SOCKET-MAKE-STREAM"
"GET-PROTOCOL-BY-NAME" "MAKE-INET-ADDRESS" "LOCAL-SOCKET"
"UNKNOWN-PROTOCOL" "UNKNOWN-PROTOCOL-NAME"
"SOCKET" "INET-SOCKET" "SOCKET-FILE-DESCRIPTOR" #+:win32 "NAMED-PIPE-SOCKET"
"SOCKET-FAMILY" "SOCKET-PROTOCOL" "SOCKET-TYPE"
"SOCKET-ERROR" "NAME-SERVICE-ERROR" "NON-BLOCKING-MODE"
"HOST-ENT-NAME" "HOST-ENT-ALIASES" "HOST-ENT-ADDRESS-TYPE"
"HOST-ENT-ADDRESSES" "HOST-ENT" "HOST-ENT-ADDRESS" "SOCKET-SEND"))

14
contrib/sockets/sockets.lisp
View file

@ -10,6 +10,20 @@
;; Trivial stuff is copied from SBCL's SB-BSD-SOCKETS, which is also
;; in the public domain.
(defpackage "SB-BSD-SOCKETS"
(:use "CL" "FFI" "SI")
(:export "GET-HOST-BY-NAME" "GET-HOST-BY-ADDRESS"
"SOCKET-BIND" "SOCKET-ACCEPT" "SOCKET-CONNECT"
"SOCKET-PEERNAME" "SOCKET-NAME" "SOCKET-LISTEN"
"SOCKET-RECEIVE" "SOCKET-CLOSE" "SOCKET-MAKE-STREAM"
"GET-PROTOCOL-BY-NAME" "MAKE-INET-ADDRESS" "LOCAL-SOCKET"
"UNKNOWN-PROTOCOL" "UNKNOWN-PROTOCOL-NAME"
"SOCKET" "INET-SOCKET" "SOCKET-FILE-DESCRIPTOR" #+:win32 "NAMED-PIPE-SOCKET"
"SOCKET-FAMILY" "SOCKET-PROTOCOL" "SOCKET-TYPE"
"SOCKET-ERROR" "NAME-SERVICE-ERROR" "NON-BLOCKING-MODE"
"HOST-ENT-NAME" "HOST-ENT-ALIASES" "HOST-ENT-ADDRESS-TYPE"
"HOST-ENT-ADDRESSES" "HOST-ENT" "HOST-ENT-ADDRESS" "SOCKET-SEND"))
(in-package "SB-BSD-SOCKETS")
;; Obviously this requires the one or other form of BSD compatible

3
src/compile.lsp.in
View file

@ -297,8 +297,7 @@
#+WANTS-SOCKETS
(build-module "sockets"
'("ext:sockets;package.lisp"
"ext:sockets;sockets.lisp")
'("ext:sockets;sockets.lisp")
:dir "build:ext;"
:prefix "EXT"
:builtin