clisp-cvs digest, Vol 1 #1246 - 1 msg

[<cli...@li...>]

Send clisp-cvs mailing list submissions to
	cli...@li...

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sourceforge.net/lists/listinfo/clisp-cvs
or, via email, send a message with subject or body 'help' to
	cli...@li...

You can reach the person managing the list at
	cli...@li...

When replying, please edit your Subject line so it is more specific
than "Re: Contents of clisp-cvs digest..."


CLISP CVS commits for today

Today's Topics:

   1. clisp/modules/rawsock rawsock.c,1.41,1.42 (Sam Steingold)

--__--__--

Message: 1
From: Sam Steingold <sd...@us...>
To: cli...@li...
Subject: clisp/modules/rawsock rawsock.c,1.41,1.42
Date: Wed, 21 Sep 2005 00:15:51 +0000
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/modules/rawsock
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2255/modules/rawsock

Modified Files:
	rawsock.c 
Log Message:
instead of DEFCHECKER creating a bunch of undebuggable identical functions,
it now creates a data structure that is passed to a few standard built-ins


Index: rawsock.c
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/rawsock/rawsock.c,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- rawsock.c	19 Sep 2005 18:51:09 -0000	1.41
+++ rawsock.c	21 Sep 2005 00:15:49 -0000	1.42
@@ -674,28 +674,30 @@
   stream_handles(popSTACK(),true,NULL,&sock,NULL);
   if (level == -1) {                      /* :ALL */
     int pos1;
-    for (pos1=1; pos1 < sockopt_level_table_size; pos1++) {
-      pushSTACK(*sockopt_level_table[pos1].l_const);
+    for (pos1=1; pos1 < sockopt_level_map.size; pos1++) {
+      const c_lisp_pair_t *level_clp = &(sockopt_level_map.table[pos1]);
+      pushSTACK(*(level_clp->l_const));
       if (name == -1) {
         int pos2;
-        for (pos2=0; pos2 < sockopt_name_table_size; pos2++) {
-          pushSTACK(*sockopt_name_table[pos2].l_const);
-          pushSTACK(get_sock_opt(sock,sockopt_level_table[pos1].c_const,
-                                 sockopt_name_table[pos2].c_const,0));
+        for (pos2=0; pos2 < sockopt_name_map.size; pos2++) {
+          const c_lisp_pair_t *name_clp = &(sockopt_name_map.table[pos2]);
+          pushSTACK(*name_clp->l_const);
+          pushSTACK(get_sock_opt(sock,level_clp->c_const,name_clp->c_const,0));
         }
-        { object tmp = listof(2*sockopt_name_table_size); pushSTACK(tmp); }
+        { object tmp = listof(2*sockopt_name_map.size); pushSTACK(tmp); }
       } else
-        pushSTACK(get_sock_opt(sock,sockopt_level_table[pos1].c_const,name,0));
+        pushSTACK(get_sock_opt(sock,level_clp->c_const,name,0));
     }
-    VALUES1(listof(2*(sockopt_level_table_size-1))); /* skip :ALL */
+    VALUES1(listof(2*(sockopt_level_map.size-1))); /* skip :ALL */
   } else {
     if (name == -1) {
       int pos2;
-      for (pos2=0; pos2 < sockopt_name_table_size; pos2++) {
-        pushSTACK(*sockopt_name_table[pos2].l_const);
-        pushSTACK(get_sock_opt(sock,level,sockopt_name_table[pos2].c_const,0));
+      for (pos2=0; pos2 < sockopt_name_map.size; pos2++) {
+        const c_lisp_pair_t *name_clp = &(sockopt_name_map.table[pos2]);
+        pushSTACK(*(name_clp->l_const));
+        pushSTACK(get_sock_opt(sock,level,name_clp->c_const,0));
       }
-      VALUES1(listof(2*sockopt_name_table_size));
+      VALUES1(listof(2*sockopt_name_map.size));
     } else
       VALUES1(get_sock_opt(sock,level,name,1));
   }




--__--__--

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest