ExternalStream.st
changeset 16373 9b9827530bf4
parent 16368 1efe4d36fd3f
child 16463 2b3728727f5e
equal deleted inserted replaced
16372:246ccdafca3c 16373:9b9827530bf4
    83 # undef __BEGIN_INTERRUPTABLE__
    83 # undef __BEGIN_INTERRUPTABLE__
    84 # define __BEGIN_INTERRUPTABLE__  /* nothing */
    84 # define __BEGIN_INTERRUPTABLE__  /* nothing */
    85 
    85 
    86 # undef __END_INTERRUPTABLE__
    86 # undef __END_INTERRUPTABLE__
    87 # define __END_INTERRUPTABLE__    /* nothing */
    87 # define __END_INTERRUPTABLE__    /* nothing */
    88 
       
    89 #endif
    88 #endif
    90 
    89 
    91 # ifdef __i386__
    90 # ifdef __i386__
    92 #  define _X86_
    91 #  define _X86_
    93 # endif
    92 # endif
   681     }                                                   \
   680     }                                                   \
   682   }
   681   }
   683 
   682 
   684 #else /* ! WIN32 */
   683 #else /* ! WIN32 */
   685 /* ========================   UNIX / LINUX ====================================================== */
   684 /* ========================   UNIX / LINUX ====================================================== */
       
   685 typedef int SOCKET;
       
   686 
   686 # define __READING__(f)                          \
   687 # define __READING__(f)                          \
   687     if ((__INST(didWrite) != false)              \
   688     if ((__INST(didWrite) != false)              \
   688      && (__INST(mode) == @symbol(readwrite))) {  \
   689      && (__INST(mode) == @symbol(readwrite))) {  \
   689         __INST(didWrite) = false;                \
   690         __INST(didWrite) = false;                \
   690         OPT_FSEEK(f, 0L, SEEK_CUR); /* needed in stdio */  \
   691         OPT_FSEEK(f, 0L, SEEK_CUR); /* needed in stdio */  \
  5888 ! !
  5889 ! !
  5889 
  5890 
  5890 !ExternalStream class methodsFor:'documentation'!
  5891 !ExternalStream class methodsFor:'documentation'!
  5891 
  5892 
  5892 version
  5893 version
  5893     ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.385 2014-04-18 13:06:29 stefan Exp $'
  5894     ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.386 2014-04-18 13:51:32 stefan Exp $'
  5894 !
  5895 !
  5895 
  5896 
  5896 version_CVS
  5897 version_CVS
  5897     ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.385 2014-04-18 13:06:29 stefan Exp $'
  5898     ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.386 2014-04-18 13:51:32 stefan Exp $'
  5898 ! !
  5899 ! !
  5899 
  5900 
  5900 
  5901 
  5901 ExternalStream initialize!
  5902 ExternalStream initialize!