changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/lib/net/obj.lisp

changeset 698: 96958d3eb5b0
parent: 9e1854ff6f6c
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; net/tcp.lisp --- Network Objects
     2 
     3 ;;
     4 
     5 ;;; Code:
     6 (in-package :net/core)
     7 
     8 (deftype port () "Port number" '(integer 0 65535))
     9 (deftype unprivileged-port () "Unprivileged port number" '(or (port 1024 65535) (port 0)))
    10 (deftype privileged-port () "Privileged port number" '(port 1 1023))
    11 (deftype ip-address () "IP Address specifier" '(or string (vector unsigned-byte) list))
    12 (deftype socket-address () "A complete internet socket address specifier." '(cons ip-address port))
    13 
    14 (defclass transport ()
    15   ())
    16 
    17 ;; (defclass connection ()
    18 ;;   ())
    19 
    20 (defclass codec ()
    21   ())
    22 
    23 (defclass protocol ()
    24   ())
    25 
    26 (defclass client ()
    27   ())
    28 
    29 (defclass server ()
    30   ())
    31 
    32 (defclass peer ()
    33   ())
    34 
    35 (defclass proxy ()
    36   ())
    37 
    38 (defclass tunnel ()
    39   ())
    40 
    41 (defgeneric connect (self &key &allow-other-keys))
    42 
    43 (defgeneric disconnect (self &key &allow-other-keys))