开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多国语言处理 > 信息检索与抽取 > 查看源码
archive.c
资源名称：swarm-2.2.tar.gz　[点击查看]
上传用户：shenzhenrh
上传日期：2013-05-12
资源大小：2904k
文件大小：39k
源码类别：

信息检索与抽取

开发平台：

Unix_Linux

archive.c：源码内容
  1. /* GNU Objective C Runtime archiving
  2.    Copyright (C) 1993, 1995, 1996, 1997 Free Software Foundation, Inc.
  3.    Contributed by Kresten Krab Thorup
  5. This file is part of GNU CC.
  7. GNU CC is free software; you can redistribute it and/or modify it under the
  8. terms of the GNU General Public License as published by the Free Software
  9. Foundation; either version 2, or (at your option) any later version.
  11. GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY
  12. WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  13. FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  14. details.
  16. You should have received a copy of the GNU General Public License along with
  17. GNU CC; see the file COPYING.  If not, write to the Free Software
  18. Foundation, 59 Temple Place - Suite 330,
  19. Boston, MA 02111-1307, USA.  */
  21. /* As a special exception, if you link this library with files compiled with
  22.    GCC to produce an executable, this does not cause the resulting executable
  23.    to be covered by the GNU General Public License. This exception does not
  24.    however invalidate any other reasons why the executable file might be
  25.    covered by the GNU General Public License.  */
  27. #include "runtime.h"
  28. #include "typedstream.h"
  29. #include "encoding.h"
  31. #ifdef HAVE_STDLIB_H
  32. #include <stdlib.h>
  33. #endif
  35. #include <string.h> /* strcpy, strlen */ 
  37. extern int fflush(FILE*);
  39. #define ROUND(V, A) 
  40.   ({ typeof(V) __v=(V); typeof(A) __a=(A);  
  41.      __a*((__v+__a-1)/__a); })
  43. #define PTR2LONG(P) (((char*)(P))-(char*)0)
  44. #define LONG2PTR(L) (((char*)0)+(L))
  46. /* Declare some functions... */
  48. static int
  49. objc_read_class (struct objc_typed_stream* stream, Class* class);
  51. int objc_sizeof_type(const char* type);
  53. static int
  54. objc_write_use_common (struct objc_typed_stream* stream, unsigned long key);
  56. static int
  57. objc_write_register_common (struct objc_typed_stream* stream,
  58.     unsigned long key);
  60. static int 
  61. objc_write_class (struct objc_typed_stream* stream,
  62.  struct objc_class* class);
  64. const char* objc_skip_type (const char* type);
  66. static void __objc_finish_write_root_object(struct objc_typed_stream*);
  67. static void __objc_finish_read_root_object(struct objc_typed_stream*);
  69. static __inline__ int
  70. __objc_code_unsigned_char (unsigned char* buf, unsigned char val)
  71. {
  72.   if ((val&_B_VALUE) == val)
  73.     {
  74.       buf[0] = val|_B_SINT;
  75.       return 1;
  76.     }
  77.   else
  78.     {
  79.       buf[0] = _B_NINT|0x01;
  80.       buf[1] = val;
  81.       return 2;
  82.     }
  83. }
  85. int
  86. objc_write_unsigned_char (struct objc_typed_stream* stream,
  87.   unsigned char value)
  88. {
  89.   unsigned char buf[sizeof (unsigned char)+1];
  90.   int len = __objc_code_unsigned_char (buf, value);
  91.   return (*stream->write)(stream->physical, buf, len);
  92. }
  94. static __inline__ int
  95. __objc_code_char (unsigned char* buf, char val)
  96. {
  97.   if (val >= 0)
  98.     return __objc_code_unsigned_char (buf, val);
  99.   else
  100.     {
  101.       buf[0] = _B_NINT|_B_SIGN|0x01;
  102.       buf[1] = -val;
  103.       return 2;
  104.     }
  105. }
  107. int
  108. objc_write_char (struct objc_typed_stream* stream, char value)
  109. {
  110.   unsigned char buf[sizeof (char)+1];
  111.   int len = __objc_code_char (buf, value);
  112.   return (*stream->write)(stream->physical, buf, len);
  113. }
  115. static __inline__ int
  116. __objc_code_unsigned_short (unsigned char* buf, unsigned short val)
  117. {
  118.   if ((val&_B_VALUE) == val)
  119.     {
  120.       buf[0] = val|_B_SINT;
  121.       return 1;
  122.     }
  123.   else 
  124.     {
  125.       int c, b;
  127.       buf[0] = _B_NINT;
  129.       for (c= sizeof(short); c != 0; c -= 1)
  130. if (((val>>(8*(c-1)))%0x100) != 0)
  131.   break;
  133.       buf[0] |= c;
  135.       for (b = 1; c != 0; c--, b++)
  136. {
  137.   buf[b] = (val >> (8*(c-1)))%0x100;
  138. }
  140.       return b;
  141.     }
  142. }
  144. int
  145. objc_write_unsigned_short (struct objc_typed_stream* stream, 
  146.    unsigned short value)
  147. {
  148.   unsigned char buf[sizeof (unsigned short)+1];
  149.   int len = __objc_code_unsigned_short (buf, value);
  150.   return (*stream->write)(stream->physical, buf, len);
  151. }
  152.       
  153. static __inline__ int
  154. __objc_code_short (unsigned char* buf, short val)
  155. {
  156.   int sign = (val < 0);
  157.   int size = __objc_code_unsigned_short (buf, sign ? -val : val);
  158.   if (sign)
  159.     buf[0] |= _B_SIGN;
  160.   return size;
  161. }
  163. int
  164. objc_write_short (struct objc_typed_stream* stream, short value)
  165. {
  166.   unsigned char buf[sizeof (short)+1];
  167.   int len = __objc_code_short (buf, value);
  168.   return (*stream->write)(stream->physical, buf, len);
  169. }
  170.       
  172. static __inline__ int
  173. __objc_code_unsigned_int (unsigned char* buf, unsigned int val)
  174. {
  175.   if ((val&_B_VALUE) == val)
  176.     {
  177.       buf[0] = val|_B_SINT;
  178.       return 1;
  179.     }
  180.   else 
  181.     {
  182.       int c, b;
  184.       buf[0] = _B_NINT;
  186.       for (c= sizeof(int); c != 0; c -= 1)
  187. if (((val>>(8*(c-1)))%0x100) != 0)
  188.   break;
  190.       buf[0] |= c;
  192.       for (b = 1; c != 0; c--, b++)
  193. {
  194.   buf[b] = (val >> (8*(c-1)))%0x100;
  195. }
  197.       return b;
  198.     }
  199. }
  201. int
  202. objc_write_unsigned_int (struct objc_typed_stream* stream, unsigned int value)
  203. {
  204.   unsigned char buf[sizeof(unsigned int)+1];
  205.   int len = __objc_code_unsigned_int (buf, value);
  206.   return (*stream->write)(stream->physical, buf, len);
  207. }
  209. static __inline__ int
  210. __objc_code_int (unsigned char* buf, int val)
  211. {
  212.   int sign = (val < 0);
  213.   int size = __objc_code_unsigned_int (buf, sign ? -val : val);
  214.   if (sign)
  215.     buf[0] |= _B_SIGN;
  216.   return size;
  217. }
  219. int
  220. objc_write_int (struct objc_typed_stream* stream, int value)
  221. {
  222.   unsigned char buf[sizeof(int)+1];
  223.   int len = __objc_code_int (buf, value);
  224.   return (*stream->write)(stream->physical, buf, len);
  225. }
  227. static __inline__ int
  228. __objc_code_unsigned_long (unsigned char* buf, unsigned long val)
  229. {
  230.   if ((val&_B_VALUE) == val)
  231.     {
  232.       buf[0] = val|_B_SINT;
  233.       return 1;
  234.     }
  235.   else 
  236.     {
  237.       int c, b;
  239.       buf[0] = _B_NINT;
  241.       for (c= sizeof(long); c != 0; c -= 1)
  242. if (((val>>(8*(c-1)))%0x100) != 0)
  243.   break;
  245.       buf[0] |= c;
  247.       for (b = 1; c != 0; c--, b++)
  248. {
  249.   buf[b] = (val >> (8*(c-1)))%0x100;
  250. }
  252.       return b;
  253.     }
  254. }
  256. int
  257. objc_write_unsigned_long (struct objc_typed_stream* stream, 
  258.   unsigned long value)
  259. {
  260.   unsigned char buf[sizeof(unsigned long)+1];
  261.   int len = __objc_code_unsigned_long (buf, value);
  262.   return (*stream->write)(stream->physical, buf, len);
  263. }
  265. static __inline__ int
  266. __objc_code_long (unsigned char* buf, long val)
  267. {
  268.   int sign = (val < 0);
  269.   int size = __objc_code_unsigned_long (buf, sign ? -val : val);
  270.   if (sign)
  271.     buf[0] |= _B_SIGN;
  272.   return size;
  273. }
  275. int
  276. objc_write_long (struct objc_typed_stream* stream, long value)
  277. {
  278.   unsigned char buf[sizeof(long)+1];
  279.   int len = __objc_code_long (buf, value);
  280.   return (*stream->write)(stream->physical, buf, len);
  281. }
  284. int
  285. objc_write_string (struct objc_typed_stream* stream,
  286.    const unsigned char* string, unsigned int nbytes)
  287. {
  288.   unsigned char buf[sizeof(unsigned int)+1];
  289.   int len = __objc_code_unsigned_int (buf, nbytes);
  290.   
  291.   if ((buf[0]&_B_CODE) == _B_SINT)
  292.     buf[0] = (buf[0]&_B_VALUE)|_B_SSTR;
  294.   else /* _B_NINT */
  295.     buf[0] = (buf[0]&_B_VALUE)|_B_NSTR;
  297.   if ((*stream->write)(stream->physical, buf, len) != 0)
  298.     return (*stream->write)(stream->physical, string, nbytes);
  299.   else
  300.     return 0;
  301. }
  303. int
  304. objc_write_string_atomic (struct objc_typed_stream* stream,
  305.   unsigned char* string, unsigned int nbytes)
  306. {
  307.   unsigned long key;
  308.   if ((key = PTR2LONG(hash_value_for_key (stream->stream_table, string))))
  309.     return objc_write_use_common (stream, key);
  310.   else
  311.     {
  312.       int length;
  313.       hash_add (&stream->stream_table, LONG2PTR(key=PTR2LONG(string)), string);
  314.       if ((length = objc_write_register_common (stream, key)))
  315. return objc_write_string (stream, string, nbytes);
  316.       return length;
  317.     }
  318. }
  320. static int
  321. objc_write_register_common (struct objc_typed_stream* stream, 
  322.     unsigned long key)
  323. {
  324.   unsigned char buf[sizeof (unsigned long)+2];
  325.   int len = __objc_code_unsigned_long (buf+1, key);
  326.   if (len == 1)
  327.     {
  328.       buf[0] = _B_RCOMM|0x01;
  329.       buf[1] &= _B_VALUE;
  330.       return (*stream->write)(stream->physical, buf, len+1);
  331.     }
  332.   else
  333.     {
  334.       buf[1] = (buf[1]&_B_VALUE)|_B_RCOMM;
  335.       return (*stream->write)(stream->physical, buf+1, len);
  336.     }
  337. }
  339. static int
  340. objc_write_use_common (struct objc_typed_stream* stream, unsigned long key)
  341. {
  342.   unsigned char buf[sizeof (unsigned long)+2];
  343.   int len = __objc_code_unsigned_long (buf+1, key);
  344.   if (len == 1)
  345.     {
  346.       buf[0] = _B_UCOMM|0x01;
  347.       buf[1] &= _B_VALUE;
  348.       return (*stream->write)(stream->physical, buf, 2);
  349.     }
  350.   else
  351.     {
  352.       buf[1] = (buf[1]&_B_VALUE)|_B_UCOMM;
  353.       return (*stream->write)(stream->physical, buf+1, len);
  354.     }
  355. }
  357. static __inline__ int
  358. __objc_write_extension (struct objc_typed_stream* stream, unsigned char code)
  359. {
  360.   if (code <= _B_VALUE)
  361.     {
  362.       unsigned char buf = code|_B_EXT;
  363.       return (*stream->write)(stream->physical, &buf, 1);
  364.     }
  365.   else 
  366.     {
  367.       objc_error(nil, OBJC_ERR_BAD_OPCODE,
  368.  "__objc_write_extension: bad opcode %cn", code);
  369.       return -1;
  370.     }
  371. }
  373. __inline__ int
  374. __objc_write_object (struct objc_typed_stream* stream, id object)
  375. {
  376.   unsigned char buf = '';
  377.   SEL write_sel = sel_get_any_uid ("write:");
  378.   if (object)
  379.     {
  380.       __objc_write_extension (stream, _BX_OBJECT);
  381.       objc_write_class (stream, object->class_pointer);
  382.       (*objc_msg_lookup(object, write_sel))(object, write_sel, stream);
  383.       return (*stream->write)(stream->physical, &buf, 1);
  384.     }
  385.   else
  386.     return objc_write_use_common(stream, 0);
  387. }
  389. int 
  390. objc_write_object_reference (struct objc_typed_stream* stream, id object)
  391. {
  392.   unsigned long key;
  393.   if ((key = PTR2LONG(hash_value_for_key (stream->object_table, object))))
  394.     return objc_write_use_common (stream, key);
  396.   __objc_write_extension (stream, _BX_OBJREF);
  397.   return objc_write_unsigned_long (stream, PTR2LONG (object));
  398. }
  400. int 
  401. objc_write_root_object (struct objc_typed_stream* stream, id object)
  402. {
  403.   int len = 0;
  404.   if (stream->writing_root_p)
  405.     objc_error (nil, OBJC_ERR_RECURSE_ROOT, 
  406. "objc_write_root_object called recursively");
  407.   else
  408.     {
  409.       stream->writing_root_p = 1;
  410.       __objc_write_extension (stream, _BX_OBJROOT);
  411.       if((len = objc_write_object (stream, object)))
  412. __objc_finish_write_root_object(stream);
  413.       stream->writing_root_p = 0;
  414.     }
  415.   return len;
  416. }
  418. int 
  419. objc_write_object (struct objc_typed_stream* stream, id object)
  420. {
  421.   unsigned long key;
  422.   if ((key = PTR2LONG(hash_value_for_key (stream->object_table, object))))
  423.     return objc_write_use_common (stream, key);
  425.   else if (object == nil)
  426.     return objc_write_use_common(stream, 0);
  428.   else
  429.     {
  430.       int length;
  431.       hash_add (&stream->object_table, LONG2PTR(key=PTR2LONG(object)), object);
  432.       if ((length = objc_write_register_common (stream, key)))
  433. return __objc_write_object (stream, object);
  434.       return length;
  435.     }
  436. }
  438. __inline__ int
  439. __objc_write_class (struct objc_typed_stream* stream, struct objc_class* class)
  440. {
  441.   __objc_write_extension (stream, _BX_CLASS);
  442.   objc_write_string_atomic(stream, (char*)class->name,
  443.    strlen((char*)class->name));
  444.   return objc_write_unsigned_long (stream, class->version);
  445. }
  448. static int 
  449. objc_write_class (struct objc_typed_stream* stream,
  450.  struct objc_class* class)
  451. {
  452.   unsigned long key;
  453.   if ((key = PTR2LONG(hash_value_for_key (stream->stream_table, class))))
  454.     return objc_write_use_common (stream, key);
  455.   else
  456.     {
  457.       int length;
  458.       hash_add (&stream->stream_table, LONG2PTR(key=PTR2LONG(class)), class);
  459.       if ((length = objc_write_register_common (stream, key)))
  460. return __objc_write_class (stream, class);
  461.       return length;
  462.     }
  463. }
  466. __inline__ int 
  467. __objc_write_selector (struct objc_typed_stream* stream, SEL selector)
  468. {
  469.   const char* sel_name;
  470.   __objc_write_extension (stream, _BX_SEL);
  471.   /* to handle NULL selectors */
  472.   if ((SEL)0 == selector)
  473.     return objc_write_string (stream, "", 0);
  474.   sel_name = sel_get_name (selector);
  475.   return objc_write_string (stream, sel_name, strlen ((char*)sel_name));
  476. }
  478. int 
  479. objc_write_selector (struct objc_typed_stream* stream, SEL selector)
  480. {
  481.   const char* sel_name;
  482.   unsigned long key;
  484.   /* to handle NULL selectors */
  485.   if ((SEL)0 == selector)
  486.     return __objc_write_selector (stream, selector);
  488.   sel_name = sel_get_name (selector);
  489.   if ((key = PTR2LONG(hash_value_for_key (stream->stream_table, sel_name))))
  490.     return objc_write_use_common (stream, key);
  491.   else
  492.     {
  493.       int length;
  494.       hash_add (&stream->stream_table, 
  495. LONG2PTR(key=PTR2LONG(sel_name)), (char*)sel_name);
  496.       if ((length = objc_write_register_common (stream, key)))
  497. return __objc_write_selector (stream, selector);
  498.       return length;
  499.     }
  500. }
  504. /*
  505. ** Read operations 
  506. */
  508. __inline__ int
  509. objc_read_char (struct objc_typed_stream* stream, char* val)
  510. {
  511.   unsigned char buf;
  512.   int len;
  513.   len = (*stream->read)(stream->physical, &buf, 1);
  514.   if (len != 0)
  515.     {
  516.       if ((buf & _B_CODE) == _B_SINT)
  517. (*val) = (buf & _B_VALUE);
  519.       else if ((buf & _B_NUMBER) == 1)
  520. {
  521.   len = (*stream->read)(stream->physical, val, 1);
  522.   if (buf&_B_SIGN)
  523.     (*val) = -1*(*val);
  524. }
  526.       else
  527. objc_error(nil, OBJC_ERR_BAD_DATA,
  528.    "expected 8bit signed int, got %dbit int",
  529.    (int)(buf&_B_NUMBER)*8);
  530.     }
  531.   return len;
  532. }
  535. __inline__ int
  536. objc_read_unsigned_char (struct objc_typed_stream* stream, unsigned char* val)
  537. {
  538.   unsigned char buf;
  539.   int len;
  540.   if ((len = (*stream->read)(stream->physical, &buf, 1)))
  541.     {
  542.       if ((buf & _B_CODE) == _B_SINT)
  543. (*val) = (buf & _B_VALUE);
  545.       else if ((buf & _B_NUMBER) == 1)
  546. len = (*stream->read)(stream->physical, val, 1);
  548.       else
  549. objc_error(nil, OBJC_ERR_BAD_DATA,
  550.    "expected 8bit unsigned int, got %dbit int",
  551.    (int)(buf&_B_NUMBER)*8);
  552.     }
  553.   return len;
  554. }
  556. __inline__ int
  557. objc_read_short (struct objc_typed_stream* stream, short* value)
  558. {
  559.   unsigned char buf[sizeof(short)+1];
  560.   int len;
  561.   if ((len = (*stream->read)(stream->physical, buf, 1)))
  562.     {
  563.       if ((buf[0] & _B_CODE) == _B_SINT)
  564. (*value) = (buf[0] & _B_VALUE);
  566.       else
  567. {
  568.   int pos = 1;
  569.   int nbytes = buf[0] & _B_NUMBER;
  570.   if (nbytes > sizeof (short))
  571.     objc_error(nil, OBJC_ERR_BAD_DATA,
  572.        "expected short, got bigger (%dbits)", nbytes*8);
  573.   len = (*stream->read)(stream->physical, buf+1, nbytes);
  574.   (*value) = 0;
  575.   while (pos <= nbytes)
  576.     (*value) = ((*value)*0x100) + buf[pos++];
  577.   if (buf[0] & _B_SIGN)
  578.     (*value) = -(*value);
  579. }
  580.     }
  581.   return len;
  582. }
  584. __inline__ int
  585. objc_read_unsigned_short (struct objc_typed_stream* stream,
  586.   unsigned short* value)
  587. {
  588.   unsigned char buf[sizeof(unsigned short)+1];
  589.   int len;
  590.   if ((len = (*stream->read)(stream->physical, buf, 1)))
  591.     {
  592.       if ((buf[0] & _B_CODE) == _B_SINT)
  593. (*value) = (buf[0] & _B_VALUE);
  595.       else
  596. {
  597.   int pos = 1;
  598.   int nbytes = buf[0] & _B_NUMBER;
  599.   if (nbytes > sizeof (short))
  600.     objc_error(nil, OBJC_ERR_BAD_DATA,
  601.        "expected short, got int or bigger");
  602.   len = (*stream->read)(stream->physical, buf+1, nbytes);
  603.   (*value) = 0;
  604.   while (pos <= nbytes)
  605.     (*value) = ((*value)*0x100) + buf[pos++];
  606. }
  607.     }
  608.   return len;
  609. }
  612. __inline__ int
  613. objc_read_int (struct objc_typed_stream* stream, int* value)
  614. {
  615.   unsigned char buf[sizeof(int)+1];
  616.   int len;
  617.   if ((len = (*stream->read)(stream->physical, buf, 1)))
  618.     {
  619.       if ((buf[0] & _B_CODE) == _B_SINT)
  620. (*value) = (buf[0] & _B_VALUE);
  622.       else
  623. {
  624.   int pos = 1;
  625.   int nbytes = buf[0] & _B_NUMBER;
  626.   if (nbytes > sizeof (int))
  627.     objc_error(nil, OBJC_ERR_BAD_DATA, "expected int, got bigger");
  628.   len = (*stream->read)(stream->physical, buf+1, nbytes);
  629.   (*value) = 0;
  630.   while (pos <= nbytes)
  631.     (*value) = ((*value)*0x100) + buf[pos++];
  632.   if (buf[0] & _B_SIGN)
  633.     (*value) = -(*value);
  634. }
  635.     }
  636.   return len;
  637. }
  639. __inline__ int
  640. objc_read_long (struct objc_typed_stream* stream, long* value)
  641. {
  642.   unsigned char buf[sizeof(long)+1];
  643.   int len;
  644.   if ((len = (*stream->read)(stream->physical, buf, 1)))
  645.     {
  646.       if ((buf[0] & _B_CODE) == _B_SINT)
  647. (*value) = (buf[0] & _B_VALUE);
  649.       else
  650. {
  651.   int pos = 1;
  652.   int nbytes = buf[0] & _B_NUMBER;
  653.   if (nbytes > sizeof (long))
  654.     objc_error(nil, OBJC_ERR_BAD_DATA, "expected long, got bigger");
  655.   len = (*stream->read)(stream->physical, buf+1, nbytes);
  656.   (*value) = 0;
  657.   while (pos <= nbytes)
  658.     (*value) = ((*value)*0x100) + buf[pos++];
  659.   if (buf[0] & _B_SIGN)
  660.     (*value) = -(*value);
  661. }
  662.     }
  663.   return len;
  664. }
  666. __inline__ int
  667. __objc_read_nbyte_uint (struct objc_typed_stream* stream,
  668.        unsigned int nbytes, unsigned int* val)
  669. {
  670.   int len, pos = 0;
  671.   unsigned char buf[sizeof(unsigned int)+1];
  673.   if (nbytes > sizeof (int))
  674.     objc_error(nil, OBJC_ERR_BAD_DATA, "expected int, got bigger");
  676.   len = (*stream->read)(stream->physical, buf, nbytes);
  677.   (*val) = 0;
  678.   while (pos < nbytes)
  679.     (*val) = ((*val)*0x100) + buf[pos++];
  680.   return len;
  681. }
  682.   
  684. __inline__ int
  685. objc_read_unsigned_int (struct objc_typed_stream* stream,
  686. unsigned int* value)
  687. {
  688.   unsigned char buf[sizeof(unsigned int)+1];
  689.   int len;
  690.   if ((len = (*stream->read)(stream->physical, buf, 1)))
  691.     {
  692.       if ((buf[0] & _B_CODE) == _B_SINT)
  693. (*value) = (buf[0] & _B_VALUE);
  695.       else
  696. len = __objc_read_nbyte_uint (stream, (buf[0] & _B_VALUE), value);
  698.     }
  699.   return len;
  700. }
  702. int
  703. __objc_read_nbyte_ulong (struct objc_typed_stream* stream,
  704.        unsigned int nbytes, unsigned long* val)
  705. {
  706.   int len, pos = 0;
  707.   unsigned char buf[sizeof(unsigned long)+1];
  709.   if (nbytes > sizeof (long))
  710.     objc_error(nil, OBJC_ERR_BAD_DATA, "expected long, got bigger");
  712.   len = (*stream->read)(stream->physical, buf, nbytes);
  713.   (*val) = 0;
  714.   while (pos < nbytes)
  715.     (*val) = ((*val)*0x100) + buf[pos++];
  716.   return len;
  717. }
  718.   
  720. __inline__ int
  721. objc_read_unsigned_long (struct objc_typed_stream* stream,
  722. unsigned long* value)
  723. {
  724.   unsigned char buf[sizeof(unsigned long)+1];
  725.   int len;
  726.   if ((len = (*stream->read)(stream->physical, buf, 1)))
  727.     {
  728.       if ((buf[0] & _B_CODE) == _B_SINT)
  729. (*value) = (buf[0] & _B_VALUE);
  731.       else
  732. len = __objc_read_nbyte_ulong (stream, (buf[0] & _B_VALUE), value);
  734.     }
  735.   return len;
  736. }
  738. __inline__ int
  739. objc_read_string (struct objc_typed_stream* stream,
  740.   char** string)
  741. {
  742.   unsigned char buf[sizeof(unsigned int)+1];
  743.   int len;
  744.   if ((len = (*stream->read)(stream->physical, buf, 1)))
  745.     {
  746.       unsigned long key = 0;
  748.       if ((buf[0]&_B_CODE) == _B_RCOMM) /* register following */
  749. {
  750.   len = __objc_read_nbyte_ulong(stream, (buf[0] & _B_VALUE), &key);
  751.   len = (*stream->read)(stream->physical, buf, 1);
  752. }
  754.       switch (buf[0]&_B_CODE) {
  755.       case _B_SSTR:
  756. {
  757.   int length = buf[0]&_B_VALUE;
  758.   (*string) = (char*)objc_malloc(length+1);
  759.   if (key)
  760.     hash_add (&stream->stream_table, LONG2PTR(key), *string);
  761.   len = (*stream->read)(stream->physical, *string, length);
  762.   (*string)[length] = '';
  763. }
  764. break;
  766.       case _B_UCOMM:
  767. {
  768.   char *tmp;
  769.   len = __objc_read_nbyte_ulong(stream, (buf[0] & _B_VALUE), &key);
  770.   tmp = hash_value_for_key (stream->stream_table, LONG2PTR (key));
  771.   *string = objc_malloc (strlen(tmp) + 1);
  772.   strcpy (*string, tmp);
  773. }
  774. break;
  776.       case _B_NSTR:
  777. {
  778.   unsigned int nbytes = buf[0]&_B_VALUE;
  779.   len = __objc_read_nbyte_uint(stream, nbytes, &nbytes);
  780.   if (len) {
  781.     (*string) = (char*)objc_malloc(nbytes+1);
  782.     if (key)
  783.       hash_add (&stream->stream_table, LONG2PTR(key), *string);
  784.     len = (*stream->read)(stream->physical, *string, nbytes);
  785.     (*string)[nbytes] = '';
  786.   }
  787. }
  788. break;
  790.       default:
  791. objc_error(nil, OBJC_ERR_BAD_DATA,
  792.    "expected string, got opcode %cn", (buf[0]&_B_CODE));
  793.       }
  794.     }
  796.   return len;
  797. }
  800. int
  801. objc_read_object (struct objc_typed_stream* stream, id* object)
  802. {
  803.   unsigned char buf[sizeof (unsigned int)];
  804.   int len;
  805.   if ((len = (*stream->read)(stream->physical, buf, 1)))
  806.     {
  807.       SEL read_sel = sel_get_any_uid ("read:");
  808.       unsigned long key = 0;
  810.       if ((buf[0]&_B_CODE) == _B_RCOMM) /* register common */
  811. {
  812.   len = __objc_read_nbyte_ulong(stream, (buf[0] & _B_VALUE), &key);
  813.   len = (*stream->read)(stream->physical, buf, 1);
  814. }
  816.       if (buf[0] == (_B_EXT | _BX_OBJECT))
  817. {
  818.   Class class;
  820.   /* get class */
  821.   len = objc_read_class (stream, &class);
  823.   /* create instance */
  824.   (*object) = class_create_instance(class);
  826.   /* register? */
  827.   if (key)
  828.     hash_add (&stream->object_table, LONG2PTR(key), *object);
  830.   /* send -read: */
  831.   if (__objc_responds_to (*object, read_sel))
  832.     (*get_imp(class, read_sel))(*object, read_sel, stream);
  834.   /* check null-byte */
  835.   len = (*stream->read)(stream->physical, buf, 1);
  836.   if (buf[0] != '')
  837.     objc_error(nil, OBJC_ERR_BAD_DATA,
  838.        "expected null-byte, got opcode %c", buf[0]);
  839. }
  841.       else if ((buf[0]&_B_CODE) == _B_UCOMM)
  842. {
  843.   if (key)
  844.     objc_error(nil, OBJC_ERR_BAD_KEY, "cannot register use upcode...");
  845.   len = __objc_read_nbyte_ulong(stream, (buf[0] & _B_VALUE), &key);
  846.   (*object) = hash_value_for_key (stream->object_table, LONG2PTR(key));
  847. }
  849.       else if (buf[0] == (_B_EXT | _BX_OBJREF)) /* a forward reference */
  850. {
  851.   struct objc_list* other;
  852.   len = objc_read_unsigned_long (stream, &key);
  853.   other = (struct objc_list*)hash_value_for_key (stream->object_refs, 
  854.  LONG2PTR(key));
  855.   hash_add (&stream->object_refs, LONG2PTR(key), 
  856.     (void*)list_cons(object, other));
  857. }
  859.       else if (buf[0] == (_B_EXT | _BX_OBJROOT)) /* a root object */
  860. {
  861.   if (key)
  862.     objc_error(nil, OBJC_ERR_BAD_KEY,
  863.        "cannot register root object...");
  864.   len = objc_read_object (stream, object);
  865.   __objc_finish_read_root_object (stream);
  866. }
  868.       else
  869. objc_error(nil, OBJC_ERR_BAD_DATA,
  870.    "expected object, got opcode %c", buf[0]);
  871.     }
  872.   return len;
  873. }
  875. static int
  876. objc_read_class (struct objc_typed_stream* stream, Class* class)
  877. {
  878.   unsigned char buf[sizeof (unsigned int)];
  879.   int len;
  880.   if ((len = (*stream->read)(stream->physical, buf, 1)))
  881.     {
  882.       unsigned long key = 0;
  884.       if ((buf[0]&_B_CODE) == _B_RCOMM) /* register following */
  885. {
  886.   len = __objc_read_nbyte_ulong(stream, (buf[0] & _B_VALUE), &key);
  887.   len = (*stream->read)(stream->physical, buf, 1);
  888. }
  890.       if (buf[0] == (_B_EXT | _BX_CLASS))
  891. {
  892.   char* class_name;
  893.   unsigned long version;
  895.   /* get class */
  896.   len = objc_read_string (stream, &class_name);
  897.   (*class) = objc_get_class(class_name);
  898.   objc_free(class_name);
  900.   /* register */
  901.   if (key)
  902.     hash_add (&stream->stream_table, LONG2PTR(key), *class);
  904.   objc_read_unsigned_long(stream, &version);
  905.   hash_add (&stream->class_table, (*class)->name, (void*)version);
  906. }
  908.       else if ((buf[0]&_B_CODE) == _B_UCOMM)
  909. {
  910.   if (key)
  911.     objc_error(nil, OBJC_ERR_BAD_KEY, "cannot register use upcode...");
  912.   len = __objc_read_nbyte_ulong(stream, (buf[0] & _B_VALUE), &key);
  913.   (*class) = hash_value_for_key (stream->stream_table, LONG2PTR(key));
  914.   if (!*class)
  915.     objc_error(nil, OBJC_ERR_BAD_CLASS,
  916.        "cannot find class for key %lu", key);
  917. }
  919.       else
  920. objc_error(nil, OBJC_ERR_BAD_DATA,
  921.    "expected class, got opcode %c", buf[0]);
  922.     }
  923.   return len;
  924. }
  926. int
  927. objc_read_selector (struct objc_typed_stream* stream, SEL* selector)
  928. {
  929.   unsigned char buf[sizeof (unsigned int)];
  930.   int len;
  931.   if ((len = (*stream->read)(stream->physical, buf, 1)))
  932.     {
  933.       unsigned long key = 0;
  935.       if ((buf[0]&_B_CODE) == _B_RCOMM) /* register following */
  936. {
  937.   len = __objc_read_nbyte_ulong(stream, (buf[0] & _B_VALUE), &key);
  938.   len = (*stream->read)(stream->physical, buf, 1);
  939. }
  941.       if (buf[0] == (_B_EXT|_BX_SEL)) /* selector! */
  942. {
  943.   char* selector_name;
  945.   /* get selector */
  946.   len = objc_read_string (stream, &selector_name);
  947.   /* To handle NULL selectors */
  948.   if (0 == strlen(selector_name))
  949.     {
  950.       (*selector) = (SEL)0;
  951.       return 0;
  952.     }
  953.   else 
  954.     (*selector) = sel_get_any_uid(selector_name);
  955.   objc_free(selector_name);
  957.   /* register */
  958.   if (key)
  959.     hash_add (&stream->stream_table, LONG2PTR(key), (void*)*selector);
  960. }
  962.       else if ((buf[0]&_B_CODE) == _B_UCOMM)
  963. {
  964.   if (key)
  965.     objc_error(nil, OBJC_ERR_BAD_KEY, "cannot register use upcode...");
  966.   len = __objc_read_nbyte_ulong(stream, (buf[0] & _B_VALUE), &key);
  967.   (*selector) = hash_value_for_key (stream->stream_table, 
  968.     LONG2PTR(key));
  969. }
  971.       else
  972. objc_error(nil, OBJC_ERR_BAD_DATA,
  973.    "expected selector, got opcode %c", buf[0]);
  974.     }
  975.   return len;
  976. }
  978. /*
  979. ** USER LEVEL FUNCTIONS
  980. */
  982. /*
  983. ** Write one object, encoded in TYPE and pointed to by DATA to the
  984. ** typed stream STREAM.  
  985. */
  987. int
  988. objc_write_type(TypedStream* stream, const char* type, const void* data)
  989. {
  990.   switch(*type) {
  991.   case _C_ID:
  992.     return objc_write_object (stream, *(id*)data);
  993.     break;
  995.   case _C_CLASS:
  996.     return objc_write_class (stream, *(Class*)data);
  997.     break;
  999.   case _C_SEL:
  1000.     return objc_write_selector (stream, *(SEL*)data);
  1001.     break;
  1003.   case _C_CHR:
  1004.     return objc_write_char(stream, *(char*)data);
  1005.     break;
  1006.     
  1007.   case _C_UCHR:
  1008.     return objc_write_unsigned_char(stream, *(unsigned char*)data);
  1009.     break;
  1011.   case _C_SHT:
  1012.     return objc_write_short(stream, *(short*)data);
  1013.     break;
  1015.   case _C_USHT:
  1016.     return objc_write_unsigned_short(stream, *(unsigned short*)data);
  1017.     break;
  1019.   case _C_INT:
  1020.     return objc_write_int(stream, *(int*)data);
  1021.     break;
  1023.   case _C_UINT:
  1024.     return objc_write_unsigned_int(stream, *(unsigned int*)data);
  1025.     break;
  1027.   case _C_LNG:
  1028.     return objc_write_long(stream, *(long*)data);
  1029.     break;
  1031.   case _C_ULNG:
  1032.     return objc_write_unsigned_long(stream, *(unsigned long*)data);
  1033.     break;
  1035.   case _C_CHARPTR:
  1036.     return objc_write_string (stream, *(char**)data, strlen(*(char**)data));
  1037.     break;
  1039.   case _C_ATOM:
  1040.     return objc_write_string_atomic (stream, *(char**)data, 
  1041.      strlen(*(char**)data));
  1042.     break;
  1044.   case _C_ARY_B:
  1045.     {
  1046.       int len = atoi (type+1);
  1047.       while (isDigit (*++type))
  1048. ;
  1049.       return objc_write_array (stream, type, len, data);
  1050.     }
  1051.     break; 
  1053.   case _C_STRUCT_B:
  1054.     {
  1055.       int acc_size = 0;
  1056.       int align;
  1057.       while (*type != _C_STRUCT_E && *type++ != '=')
  1058. ; /* skip "<name>=" */
  1059.       while (*type != _C_STRUCT_E)
  1060. {
  1061.   align = objc_alignof_type (type);       /* padd to alignment */
  1062.   acc_size += ROUND (acc_size, align);
  1063.   objc_write_type (stream, type, ((char*)data)+acc_size);
  1064.   acc_size += objc_sizeof_type (type);   /* add component size */
  1065.   type = objc_skip_typespec (type);  /* skip component */
  1066. }
  1067.       return 1;
  1068.     }
  1070.   default:
  1071.     {
  1072.       objc_error(nil, OBJC_ERR_BAD_TYPE,
  1073.  "objc_write_type: cannot parse typespec: %sn", type);
  1074.       return 0;
  1075.     }
  1076.   }
  1077. }
  1079. /*
  1080. ** Read one object, encoded in TYPE and pointed to by DATA to the
  1081. ** typed stream STREAM.  DATA specifies the address of the types to
  1082. ** read.  Expected type is checked against the type actually present
  1083. ** on the stream. 
  1084. */
  1086. int
  1087. objc_read_type(TypedStream* stream, const char* type, void* data)
  1088. {
  1089.   char c;
  1090.   switch(c = *type) {
  1091.   case _C_ID:
  1092.     return objc_read_object (stream, (id*)data);
  1093.     break;
  1095.   case _C_CLASS:
  1096.     return objc_read_class (stream, (Class*)data);
  1097.     break;
  1099.   case _C_SEL:
  1100.     return objc_read_selector (stream, (SEL*)data);
  1101.     break;
  1103.   case _C_CHR:
  1104.     return objc_read_char (stream, (char*)data);
  1105.     break;
  1106.     
  1107.   case _C_UCHR:
  1108.     return objc_read_unsigned_char (stream, (unsigned char*)data);
  1109.     break;
  1111.   case _C_SHT:
  1112.     return objc_read_short (stream, (short*)data);
  1113.     break;
  1115.   case _C_USHT:
  1116.     return objc_read_unsigned_short (stream, (unsigned short*)data);
  1117.     break;
  1119.   case _C_INT:
  1120.     return objc_read_int (stream, (int*)data);
  1121.     break;
  1123.   case _C_UINT:
  1124.     return objc_read_unsigned_int (stream, (unsigned int*)data);
  1125.     break;
  1127.   case _C_LNG:
  1128.     return objc_read_long (stream, (long*)data);
  1129.     break;
  1131.   case _C_ULNG:
  1132.     return objc_read_unsigned_long (stream, (unsigned long*)data);
  1133.     break;
  1135.   case _C_CHARPTR:
  1136.   case _C_ATOM:
  1137.     return objc_read_string (stream, (char**)data);
  1138.     break;
  1140.   case _C_ARY_B:
  1141.     {
  1142.       int len = atoi(type+1);
  1143.       while (isDigit (*++type))
  1144. ;
  1145.       return objc_read_array (stream, type, len, data);
  1146.     }
  1147.     break; 
  1149.   case _C_STRUCT_B:
  1150.     {
  1151.       int acc_size = 0;
  1152.       int align;
  1153.       while (*type != _C_STRUCT_E && *type++ != '=')
  1154. ; /* skip "<name>=" */
  1155.       while (*type != _C_STRUCT_E)
  1156. {
  1157.   align = objc_alignof_type (type);       /* padd to alignment */
  1158.   acc_size += ROUND (acc_size, align);
  1159.   objc_read_type (stream, type, ((char*)data)+acc_size);
  1160.   acc_size += objc_sizeof_type (type);   /* add component size */
  1161.   type = objc_skip_typespec (type);  /* skip component */
  1162. }
  1163.       return 1;
  1164.     }
  1166.   default:
  1167.     {
  1168.       objc_error(nil, OBJC_ERR_BAD_TYPE,
  1169.  "objc_read_type: cannot parse typespec: %sn", type);
  1170.       return 0;
  1171.     }
  1172.   }
  1173. }
  1175. /*
  1176. ** Write the object specified by the template TYPE to STREAM.  Last
  1177. ** arguments specify addresses of values to be written.  It might 
  1178. ** seem surprising to specify values by address, but this is extremely
  1179. ** convenient for copy-paste with objc_read_types calls.  A more
  1180. ** down-to-the-earth cause for this passing of addresses is that values
  1181. ** of arbitrary size is not well supported in ANSI C for functions with
  1182. ** variable number of arguments.
  1183. */
  1185. int 
  1186. objc_write_types (TypedStream* stream, const char* type, ...)
  1187. {
  1188.   va_list args;
  1189.   const char *c;
  1190.   int res = 0;
  1192.   va_start(args, type);
  1194.   for (c = type; *c; c = objc_skip_typespec (c))
  1195.     {
  1196.       switch(*c) {
  1197.       case _C_ID:
  1198. res = objc_write_object (stream, *va_arg (args, id*));
  1199. break;
  1201.       case _C_CLASS:
  1202. res = objc_write_class (stream, *va_arg(args, Class*));
  1203. break;
  1205.       case _C_SEL:
  1206. res = objc_write_selector (stream, *va_arg(args, SEL*));
  1207. break;
  1209.       case _C_CHR:
  1210. res = objc_write_char (stream, *va_arg (args, char*));
  1211. break;
  1213.       case _C_UCHR:
  1214. res = objc_write_unsigned_char (stream,
  1215. *va_arg (args, unsigned char*));
  1216. break;
  1218.       case _C_SHT:
  1219. res = objc_write_short (stream, *va_arg(args, short*));
  1220. break;
  1222.       case _C_USHT:
  1223. res = objc_write_unsigned_short (stream,
  1224.  *va_arg(args, unsigned short*));
  1225. break;
  1227.       case _C_INT:
  1228. res = objc_write_int(stream, *va_arg(args, int*));
  1229. break;
  1231.       case _C_UINT:
  1232. res = objc_write_unsigned_int(stream, *va_arg(args, unsigned int*));
  1233. break;
  1235.       case _C_LNG:
  1236. res = objc_write_long(stream, *va_arg(args, long*));
  1237. break;
  1239.       case _C_ULNG:
  1240. res = objc_write_unsigned_long(stream, *va_arg(args, unsigned long*));
  1241. break;
  1243.       case _C_CHARPTR:
  1244. {
  1245.   char** str = va_arg(args, char**);
  1246.   res = objc_write_string (stream, *str, strlen(*str));
  1247. }
  1248. break;
  1250.       case _C_ATOM:
  1251. {
  1252.   char** str = va_arg(args, char**);
  1253.   res = objc_write_string_atomic (stream, *str, strlen(*str));
  1254. }
  1255. break;
  1257.       case _C_ARY_B:
  1258. {
  1259.   int len = atoi(c+1);
  1260.   const char* t = c;
  1261.   while (isDigit (*++t))
  1262.     ;
  1263.   res = objc_write_array (stream, t, len, va_arg(args, void*));
  1264.   t = objc_skip_typespec (t);
  1265.   if (*t != _C_ARY_E)
  1266.     objc_error(nil, OBJC_ERR_BAD_TYPE, "expected `]', got: %s", t);
  1267. }
  1268. break; 
  1270.       default:
  1271. objc_error(nil, OBJC_ERR_BAD_TYPE, 
  1272.    "objc_write_types: cannot parse typespec: %sn", type);
  1273.       }
  1274.     }
  1275.   va_end(args);
  1276.   return res;
  1277. }
  1280. /* 
  1281. ** Last arguments specify addresses of values to be read.  Expected
  1282. ** type is checked against the type actually present on the stream. 
  1283. */
  1285. int 
  1286. objc_read_types(TypedStream* stream, const char* type, ...)
  1287. {
  1288.   va_list args;
  1289.   const char *c;
  1290.   int res = 0;
  1292.   va_start(args, type);
  1294.   for (c = type; *c; c = objc_skip_typespec(c))
  1295.     {
  1296.       switch(*c) {
  1297.       case _C_ID:
  1298. res = objc_read_object(stream, va_arg(args, id*));
  1299. break;
  1301.       case _C_CLASS:
  1302. res = objc_read_class(stream, va_arg(args, Class*));
  1303. break;
  1305.       case _C_SEL:
  1306. res = objc_read_selector(stream, va_arg(args, SEL*));
  1307. break;
  1309.       case _C_CHR:
  1310. res = objc_read_char(stream, va_arg(args, char*));
  1311. break;
  1313.       case _C_UCHR:
  1314. res = objc_read_unsigned_char(stream, va_arg(args, unsigned char*));
  1315. break;
  1317.       case _C_SHT:
  1318. res = objc_read_short(stream, va_arg(args, short*));
  1319. break;
  1321.       case _C_USHT:
  1322. res = objc_read_unsigned_short(stream, va_arg(args, unsigned short*));
  1323. break;
  1325.       case _C_INT:
  1326. res = objc_read_int(stream, va_arg(args, int*));
  1327. break;
  1329.       case _C_UINT:
  1330. res = objc_read_unsigned_int(stream, va_arg(args, unsigned int*));
  1331. break;
  1333.       case _C_LNG:
  1334. res = objc_read_long(stream, va_arg(args, long*));
  1335. break;
  1337.       case _C_ULNG:
  1338. res = objc_read_unsigned_long(stream, va_arg(args, unsigned long*));
  1339. break;
  1341.       case _C_CHARPTR:
  1342.       case _C_ATOM:
  1343. {
  1344.   char** str = va_arg(args, char**);
  1345.   res = objc_read_string (stream, str);
  1346. }
  1347. break;
  1349.       case _C_ARY_B:
  1350. {
  1351.   int len = atoi(c+1);
  1352.   const char* t = c;
  1353.   while (isDigit (*++t))
  1354.     ;
  1355.   res = objc_read_array (stream, t, len, va_arg(args, void*));
  1356.   t = objc_skip_typespec (t);
  1357.   if (*t != _C_ARY_E)
  1358.     objc_error(nil, OBJC_ERR_BAD_TYPE, "expected `]', got: %s", t);
  1359. }
  1360. break; 
  1362.       default:
  1363. objc_error(nil, OBJC_ERR_BAD_TYPE, 
  1364.    "objc_read_types: cannot parse typespec: %sn", type);
  1365.       }
  1366.     }
  1367.   va_end(args);
  1368.   return res;
  1369. }
  1371. /*
  1372. ** Write an array of COUNT elements of TYPE from the memory address DATA.
  1373. ** This is equivalent of objc_write_type (stream, "[N<type>]", data)
  1374. */
  1376. int
  1377. objc_write_array (TypedStream* stream, const char* type,
  1378.   int count, const void* data)
  1379. {
  1380.   int off = objc_sizeof_type(type);
  1381.   const char* where = data;
  1383.   while (count-- > 0)
  1384.     {
  1385.       objc_write_type(stream, type, where);
  1386.       where += off;
  1387.     }
  1388.   return 1;
  1389. }
  1391. /*
  1392. ** Read an array of COUNT elements of TYPE into the memory address
  1393. ** DATA.  The memory pointed to by data is supposed to be allocated
  1394. ** by the callee.  This is equivalent of 
  1395. **   objc_read_type (stream, "[N<type>]", data)
  1396. */
  1398. int
  1399. objc_read_array (TypedStream* stream, const char* type,
  1400.  int count, void* data)
  1401. {
  1402.   int off = objc_sizeof_type(type);
  1403.   char* where = (char*)data;
  1405.   while (count-- > 0)
  1406.     {
  1407.       objc_read_type(stream, type, where);
  1408.       where += off;
  1409.     }
  1410.   return 1;
  1411. }
  1413. static int 
  1414. __objc_fread(FILE* file, char* data, int len)
  1415. {
  1416.   return fread(data, len, 1, file);
  1417. }
  1419. static int 
  1420. __objc_fwrite(FILE* file, char* data, int len)
  1421. {
  1422.   return fwrite(data, len, 1, file);
  1423. }
  1425. static int
  1426. __objc_feof(FILE* file)
  1427. {
  1428.   return feof(file);
  1429. }
  1431. static int 
  1432. __objc_no_write(FILE* file, char* data, int len)
  1433. {
  1434.   objc_error (nil, OBJC_ERR_NO_WRITE, "TypedStream not open for writing");
  1435.   return 0;
  1436. }
  1438. static int 
  1439. __objc_no_read(FILE* file, char* data, int len)
  1440. {
  1441.   objc_error (nil, OBJC_ERR_NO_READ, "TypedStream not open for reading");
  1442.   return 0;
  1443. }
  1445. static int
  1446. __objc_read_typed_stream_signature (TypedStream* stream)
  1447. {
  1448.   char buffer[80];
  1449.   int pos = 0;
  1450.   do
  1451.     (*stream->read)(stream->physical, buffer+pos, 1);
  1452.   while (buffer[pos++] != '')
  1453.     ;
  1454.   sscanf (buffer, "GNU TypedStream %d", &stream->version);
  1455.   if (stream->version != OBJC_TYPED_STREAM_VERSION)
  1456.     objc_error (nil, OBJC_ERR_STREAM_VERSION,
  1457. "cannot handle TypedStream version %d", stream->version);
  1458.   return 1;
  1459. }
  1461. static int
  1462. __objc_write_typed_stream_signature (TypedStream* stream)
  1463. {
  1464.   char buffer[80];
  1465.   sprintf(buffer, "GNU TypedStream %d", OBJC_TYPED_STREAM_VERSION);
  1466.   stream->version = OBJC_TYPED_STREAM_VERSION;
  1467.   (*stream->write)(stream->physical, buffer, strlen(buffer)+1);
  1468.   return 1;
  1469. }
  1471. static void __objc_finish_write_root_object(struct objc_typed_stream* stream)
  1472. {
  1473.   hash_delete (stream->object_table);
  1474.   stream->object_table = hash_new(64,
  1475.   (hash_func_type)hash_ptr,
  1476.   (compare_func_type)compare_ptrs);
  1477. }
  1479. static void __objc_finish_read_root_object(struct objc_typed_stream* stream)
  1480. {
  1481.   node_ptr node;
  1482.   SEL awake_sel = sel_get_any_uid ("awake");
  1483.   cache_ptr free_list = hash_new (64,
  1484.   (hash_func_type) hash_ptr,
  1485.   (compare_func_type) compare_ptrs);
  1487.   /* resolve object forward references */
  1488.   for (node = hash_next (stream->object_refs, NULL); node;
  1489.        node = hash_next (stream->object_refs, node))
  1490.     {
  1491.       struct objc_list* reflist = node->value;
  1492.       const void* key = node->key;
  1493.       id object = hash_value_for_key (stream->object_table, key);
  1494.       while(reflist)
  1495. {
  1496.   *((id*)reflist->head) = object;
  1497.   if (hash_value_for_key (free_list,reflist) == NULL)
  1498.     hash_add (&free_list,reflist,reflist);
  1500.   reflist = reflist->tail;
  1501. }
  1502.     }
  1503.     
  1504.   /* apply __objc_free to all objects stored in free_list */
  1505.   for (node = hash_next (free_list, NULL); node;
  1506.        node = hash_next (free_list, node))
  1507.     objc_free ((void *) node->key);
  1509.   hash_delete (free_list);
  1511.   /* empty object reference table */
  1512.   hash_delete (stream->object_refs);
  1513.   stream->object_refs = hash_new(8, (hash_func_type)hash_ptr,
  1514.  (compare_func_type)compare_ptrs);
  1515.   
  1516.   /* call -awake for all objects read  */
  1517.   if (awake_sel)
  1518.     {
  1519.       for (node = hash_next (stream->object_table, NULL); node;
  1520.    node = hash_next (stream->object_table, node))
  1521. {
  1522.   id object = node->value;
  1523.   if (__objc_responds_to (object, awake_sel))
  1524.     (*objc_msg_lookup(object, awake_sel))(object, awake_sel);
  1525. }
  1526.     }
  1528.   /* empty object table */
  1529.   hash_delete (stream->object_table);
  1530.   stream->object_table = hash_new(64,
  1531.   (hash_func_type)hash_ptr,
  1532.   (compare_func_type)compare_ptrs);
  1533. }
  1535. /*
  1536. ** Open the stream PHYSICAL in MODE
  1537. */
  1539. TypedStream* 
  1540. objc_open_typed_stream (FILE* physical, int mode)
  1541. {
  1542.   TypedStream* s = (TypedStream*)objc_malloc(sizeof(TypedStream));
  1544.   s->mode = mode;
  1545.   s->physical = physical;
  1546.   s->stream_table = hash_new(64,
  1547.      (hash_func_type)hash_ptr,
  1548.      (compare_func_type)compare_ptrs);
  1549.   s->object_table = hash_new(64,
  1550.      (hash_func_type)hash_ptr,
  1551.      (compare_func_type)compare_ptrs);
  1552.   s->eof = (objc_typed_eof_func)__objc_feof;
  1553.   s->flush = (objc_typed_flush_func)fflush;
  1554.   s->writing_root_p = 0;
  1555.   if (mode == OBJC_READONLY)
  1556.     {
  1557.       s->class_table = hash_new(8, (hash_func_type)hash_string,
  1558. (compare_func_type)compare_strings);
  1559.       s->object_refs = hash_new(8, (hash_func_type)hash_ptr,
  1560. (compare_func_type)compare_ptrs);
  1561.       s->read = (objc_typed_read_func)__objc_fread;
  1562.       s->write = (objc_typed_write_func)__objc_no_write;
  1563.       __objc_read_typed_stream_signature (s);
  1564.     }
  1565.   else if (mode == OBJC_WRITEONLY)
  1566.     {
  1567.       s->class_table = 0;
  1568.       s->object_refs = 0;
  1569.       s->read = (objc_typed_read_func)__objc_no_read;
  1570.       s->write = (objc_typed_write_func)__objc_fwrite;
  1571.       __objc_write_typed_stream_signature (s);
  1572.     }      
  1573.   else
  1574.     {
  1575.       objc_close_typed_stream (s);
  1576.       return NULL;
  1577.     }
  1578.   s->type = OBJC_FILE_STREAM;
  1579.   return s;
  1580. }
  1582. /*
  1583. ** Open the file named by FILE_NAME in MODE
  1584. */
  1586. TypedStream*
  1587. objc_open_typed_stream_for_file (const char* file_name, int mode)
  1588. {
  1589.   FILE* file = NULL;
  1590.   TypedStream* s;
  1592.   if (mode == OBJC_READONLY)
  1593.     file = fopen (file_name, "r");
  1594.   else
  1595.     file = fopen (file_name, "w");
  1597.   if (file)
  1598.     {
  1599.       s = objc_open_typed_stream (file, mode);
  1600.       if (s)
  1601. s->type |= OBJC_MANAGED_STREAM;
  1602.       return s;
  1603.     }
  1604.   else
  1605.     return NULL;
  1606. }
  1608. /*
  1609. ** Close STREAM freeing the structure it self.  If it was opened with 
  1610. ** objc_open_typed_stream_for_file, the file will also be closed.
  1611. */
  1613. void
  1614. objc_close_typed_stream (TypedStream* stream)
  1615. {
  1616.   if (stream->mode == OBJC_READONLY)
  1617.     {
  1618.       __objc_finish_read_root_object (stream); /* Just in case... */
  1619.       hash_delete (stream->class_table);
  1620.       hash_delete (stream->object_refs);
  1621.     }
  1623.   hash_delete (stream->stream_table);
  1624.   hash_delete (stream->object_table);
  1626.   if (stream->type == (OBJC_MANAGED_STREAM | OBJC_FILE_STREAM))
  1627.     fclose ((FILE*)stream->physical);
  1629.   objc_free(stream);
  1630. }
  1632. BOOL
  1633. objc_end_of_typed_stream (TypedStream* stream)
  1634. {
  1635.   return (*stream->eof)(stream->physical);
  1636. }
  1638. void
  1639. objc_flush_typed_stream (TypedStream* stream)
  1640. {
  1641.   (*stream->flush)(stream->physical);
  1642. }
  1644. long
  1645. objc_get_stream_class_version (TypedStream* stream, Class class)
  1646. {
  1647.   if (stream->class_table)
  1648.     return PTR2LONG(hash_value_for_key (stream->class_table, class->name));
  1649.   else
  1650.     return class_get_version (class);
  1651. }