/[emacs]/emacs/src/process.c
ViewVC logotype

Diff of /emacs/src/process.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.411 by kfstorm, Tue Sep 16 23:05:24 2003 UTC revision 1.412 by kfstorm, Wed Sep 17 21:31:53 2003 UTC
# Line 3336  usage: (make-network-process &rest ARGS) Line 3336  usage: (make-network-process &rest ARGS)
3336  #endif  /* HAVE_SOCKETS */  #endif  /* HAVE_SOCKETS */
3337    
3338    
3339  #ifdef HAVE_SOCKETS  #if defined(HAVE_SOCKETS) && defined(HAVE_NET_IF_H) && defined(HAVE_SYS_IOCTL_H)
3340    
3341  #ifdef SIOCGIFCONF  #ifdef SIOCGIFCONF
3342  DEFUN ("network-interface-list", Fnetwork_interface_list, Snetwork_interface_list, 0, 0, 0,  DEFUN ("network-interface-list", Fnetwork_interface_list, Snetwork_interface_list, 0, 0, 0,
# Line 3397  format; see the description of ADDRESS i Line 3397  format; see the description of ADDRESS i
3397    
3398    return res;    return res;
3399  }  }
3400  #endif  #endif /* SIOCGIFCONF */
3401    
3402  #if defined(SIOCGIFADDR) || defined(SIOCGIFHWADDR) || defined(SIOCGIFFLAGS)  #if defined(SIOCGIFADDR) || defined(SIOCGIFHWADDR) || defined(SIOCGIFFLAGS)
3403    
# Line 3483  FLAGS is the current flags of the interf Line 3483  FLAGS is the current flags of the interf
3483      return Qnil;      return Qnil;
3484    
3485    elt = Qnil;    elt = Qnil;
3486  #ifdef SIOCGIFFLAGS  #if defined(SIOCGIFFLAGS) && defined(ifr_flags)
3487    if (ioctl (s, SIOCGIFFLAGS, &rq) == 0)    if (ioctl (s, SIOCGIFFLAGS, &rq) == 0)
3488      {      {
3489        int flags = rq.ifr_flags;        int flags = rq.ifr_flags;
# Line 3511  FLAGS is the current flags of the interf Line 3511  FLAGS is the current flags of the interf
3511    res = Fcons (elt, res);    res = Fcons (elt, res);
3512    
3513    elt = Qnil;    elt = Qnil;
3514  #ifdef SIOCGIFHWADDR  #if defined(SIOCGIFHWADDR) && defined(ifr_hwaddr)
3515    if (ioctl (s, SIOCGIFHWADDR, &rq) == 0)    if (ioctl (s, SIOCGIFHWADDR, &rq) == 0)
3516      {      {
3517        Lisp_Object hwaddr = Fmake_vector (6, Qnil);        Lisp_Object hwaddr = Fmake_vector (make_number (6), Qnil);
3518        register struct Lisp_Vector *p = XVECTOR (hwaddr);        register struct Lisp_Vector *p = XVECTOR (hwaddr);
3519        int n;        int n;
3520    
# Line 3527  FLAGS is the current flags of the interf Line 3527  FLAGS is the current flags of the interf
3527    res = Fcons (elt, res);    res = Fcons (elt, res);
3528    
3529    elt = Qnil;    elt = Qnil;
3530  #ifdef SIOCGIFNETMASK  #if defined(SIOCGIFNETMASK) && defined(ifr_netmask)
3531    if (ioctl (s, SIOCGIFNETMASK, &rq) == 0)    if (ioctl (s, SIOCGIFNETMASK, &rq) == 0)
3532      {      {
3533        any++;        any++;
# Line 3537  FLAGS is the current flags of the interf Line 3537  FLAGS is the current flags of the interf
3537    res = Fcons (elt, res);    res = Fcons (elt, res);
3538    
3539    elt = Qnil;    elt = Qnil;
3540  #ifdef SIOCGIFBRDADDR  #if defined(SIOCGIFBRDADDR) && defined(ifr_broadaddr)
3541    if (ioctl (s, SIOCGIFBRDADDR, &rq) == 0)    if (ioctl (s, SIOCGIFBRDADDR, &rq) == 0)
3542      {      {
3543        any++;        any++;
# Line 3547  FLAGS is the current flags of the interf Line 3547  FLAGS is the current flags of the interf
3547    res = Fcons (elt, res);    res = Fcons (elt, res);
3548    
3549    elt = Qnil;    elt = Qnil;
3550  #ifdef SIOCGIFADDR  #if defined(SIOCGIFADDR) && defined(ifr_addr)
3551    if (ioctl (s, SIOCGIFADDR, &rq) == 0)    if (ioctl (s, SIOCGIFADDR, &rq) == 0)
3552      {      {
3553        any++;        any++;
# Line 6656  The value takes effect when `start-proce Line 6656  The value takes effect when `start-proce
6656    defsubr (&Sset_network_process_option);    defsubr (&Sset_network_process_option);
6657    defsubr (&Smake_network_process);    defsubr (&Smake_network_process);
6658    defsubr (&Sformat_network_address);    defsubr (&Sformat_network_address);
6659    #endif /* HAVE_SOCKETS */
6660    #if defined(HAVE_SOCKETS) && defined(HAVE_NET_IF_H) && defined(HAVE_SYS_IOCTL_H)
6661  #ifdef SIOCGIFCONF  #ifdef SIOCGIFCONF
6662    defsubr (&Snetwork_interface_list);    defsubr (&Snetwork_interface_list);
6663  #endif  #endif
6664  #if defined(SIOCGIFADDR) || defined(SIOCGIFHWADDR) || defined(SIOCGIFFLAGS)  #if defined(SIOCGIFADDR) || defined(SIOCGIFHWADDR) || defined(SIOCGIFFLAGS)
6665    defsubr (&Snetwork_interface_info);    defsubr (&Snetwork_interface_info);
6666  #endif  #endif
6667  #endif /* HAVE_SOCKETS */  #endif /* HAVE_SOCKETS ... */
6668  #ifdef DATAGRAM_SOCKETS  #ifdef DATAGRAM_SOCKETS
6669    defsubr (&Sprocess_datagram_address);    defsubr (&Sprocess_datagram_address);
6670    defsubr (&Sset_process_datagram_address);    defsubr (&Sset_process_datagram_address);

Legend:
Removed from v.1.411  
changed lines
  Added in v.1.412

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26