← Back to branch summary

~ubuntu-branches/ubuntu/quantal/gclcvs/quantal

« back to all changes in this revision

Viewing changes to gcl-tk/socketsl.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-06-24 15:13:46 UTC
  • Revision ID: james.westby@ubuntu.com-20040624151346-xh0xaaktyyp7aorc
Tags: 2.7.0-26
C_GC_OFFSET is 2 on m68k-linux

Show diffs side-by-side

added added

removed removed

Lines of Context:
gcl-tk/socketsl.lisp
 
1
(in-package "SI")
 
2
 
 
3
 
 
4
 
 
5
;     (clines "#define our_read_with_offset(fd,buffer,offset,nbytes,timeout) our_read(fd,&((buffer)->ust.ust_self[offset]),nbytes,timeout)")
 
6
;;(defun our-read-with-offset (fd buffer offset bytes-to-read timeout)
 
7
;;    (return bytes read)
 
8
;(defentry our-read-with-offset (int object int int int) (int "our_read_with_offset"))
 
9
(clines "#define our_write_object(fd,buffer,nbytes) our_write(fd,buffer->ust.ust_self,nbytes)")
 
10
;; (defun our-write (fd buffer nbytes) (return bytes-written))
 
11
 
 
12
(defentry our-write (int object int ) (int "our_write_object"))
 
13
(defentry print-to-string1 (object object object) (object print_to_string1))
 
14
 
 
15
(clines "#define reset_string_input_stream1(strm,string,start,end) reset_string_input_stream(strm,string,fix(start),fix(end))")
 
16
(defentry reset-string-input-stream (object object object object)  (object  "reset_string_input_stream1"))
 
17
 
 
18
 
 
19
;(clines "#define symbol_value_any(x) ((x)->s.s_dbind)")
 
20
;(defentry symbol-value-any (object) (object symbol_value_any))
 
21
 
 
22
;(clines "#define get_signals_allowed() signals_allowed")
 
23
;(defentry signals-allowed () (int "get_signals_allowed"))
 
24
;(defentry install_default_signals ()(int "install_default_signals"))
 
25
 
 
26
;(defentry unblock-signal (int) (int "unblock_signal"))
 
27
 
 
28
 
 
29
(defentry getpid () (int "getpid"))
 
30
 
 
31