examples/file-socket.cl

   1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          file-socket.cl
   6 ;;;; Purpose:       UFFI Example file to get a socket on a file
   7 ;;;; Programmer:    Kevin M. Rosenberg
   8 ;;;; Date Started:  Jul 2002
   9 ;;;;
  10 ;;;; $Id: file-socket.cl,v 1.1 2002/07/31 20:59:06 kevin Exp $
  11 ;;;;
  12 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
  13 ;;;;
  14 ;;;; UFFI users are granted the rights to distribute and use this software
  15 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
  16 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
  17 ;;;; *************************************************************************
  18
  19 (in-package :cl-user)
  20
  21 (uffi:def-function ("socket" c-socket)
  22     ((family :int)
  23      (type :int)
  24      (protocol :int))
  25     :returning :int)
  26
  27 (uffi:def-function ("connect" c-connect)
  28     ((sockfd :int)
  29      (serv-addr :void-pointer)
  30      (addr-len :int))
  31     :returning :int)
  32