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

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

信息检索与抽取

开发平台：

Unix_Linux

archiver.m：源码内容
  1. #import <simtools.h>
  2. #import <defobj.h>
  3. #import <defobj/Create.h>
  4. #include <swarmconfig.h>
  6. #define OBJNAME "myObj"
  8. #define STRVAL "Hello World"
  9. #define INTVAL -100
  10. #define UNSIGNEDVAL 100
  11. #define SHORTVAL -10
  12. #define USHORTVAL 10
  13. #define LONGVAL -10000
  14. #define LONGLONGVAL 1000000000000000LL
  15. #define ULONGLONGVAL 1000000000000ULL
  16. #define ULONGVAL 10000
  17. #define FLOATVAL 500.0
  18. #define DOUBLEVAL 500000.0
  19. #ifdef HAVE_LONGDOUBLE_ENCODING
  20. #define LONGDOUBLEVAL 5000000.0
  21. #endif
  23. #define COMPONENT_STRVAL "Foo Bar"
  25. @interface MyObj: CreateDrop
  26. {
  27.   const char *name;
  28. }
  29. + createBegin: aZone;
  30. - (const char *)getName;
  31. @end
  33. @implementation MyObj
  34. + createBegin: aZone
  35. {
  36.   MyObj *obj = [super createBegin: aZone];
  38.   obj->name = COMPONENT_STRVAL;
  39.   return obj;
  40. }
  42. - (const char *)getName
  43. {
  44.   return name;
  45. }
  46. @end
  48. @interface MyClass: CreateDrop
  49. {
  50.   const char *strVal;
  51.   int intVal;
  52.   unsigned unsignedVal;
  53.   short shortVal;
  54.   unsigned short ushortVal;
  55.   long longVal;
  56.   unsigned long ulongVal;
  57.   long long longLongVal;
  58.   unsigned long long unsignedLongLongVal;
  59.   float floatVal;
  60.   double doubleVal;
  61. #ifdef HAVE_LONGDOUBLE_ENCODING
  62.   long double longDoubleVal;
  63. #endif
  64.   BOOL deepFlag;
  65.   BOOL updateFlag;
  66. }
  67. - setDeepFlag: (BOOL)deepFlag;
  68. - setUpdateFlag: (BOOL)updateFlag;
  69. - updateArchiver: archiver;
  70. - (BOOL)checkObject;
  71. @end
  73. @implementation MyClass
  74. + createBegin: aZone
  75. {
  76.   MyClass *obj = [super createBegin: aZone];
  78.   obj->strVal = STRVAL;
  79.   obj->intVal = INTVAL;
  80.   obj->unsignedVal = UNSIGNEDVAL;
  81.   obj->shortVal = SHORTVAL;
  82.   obj->ushortVal = USHORTVAL;
  83.   obj->longVal = LONGVAL;
  84.   obj->ulongVal = ULONGVAL;
  85.   obj->longLongVal = LONGLONGVAL;
  86.   obj->unsignedLongLongVal = ULONGLONGVAL;
  87.   obj->floatVal = FLOATVAL;
  88.   obj->doubleVal = DOUBLEVAL;
  89. #ifdef HAVE_LONGDOUBLE_ENCODING
  90.   obj->longDoubleVal = LONGDOUBLEVAL;
  91. #endif
  92.   
  93.   obj->updateFlag = YES;
  94.   return obj;
  95. }
  97. - setDeepFlag: (BOOL)theDeepFlag
  98. {
  99.   deepFlag = theDeepFlag;
  100.   return self;
  101. }
  103. - setUpdateFlag: (BOOL)theUpdateFlag
  104. {
  105.   updateFlag = theUpdateFlag;
  106.   return self;
  107. }
  109. - updateArchiver: archiver
  110. {
  111.   if (updateFlag)
  112.     {
  113.       if (deepFlag)
  114.         [archiver putDeep: OBJNAME object: self];
  115.       else
  116.         [archiver putShallow: OBJNAME object: self];
  117.     }
  118.   return self;
  119. }
  121. - (BOOL)checkObject
  122. {
  123.   if (strcmp (strVal, STRVAL) != 0)
  124.     return NO;
  125.   if (intVal != INTVAL)
  126.     return NO;
  127.   if (unsignedVal != UNSIGNEDVAL)
  128.     return NO;
  129.   if (shortVal != SHORTVAL)
  130.     return NO;
  131.   if (ushortVal != USHORTVAL)
  132.     return NO;
  133.   if (longVal != LONGVAL)
  134.     return NO;
  135.   if (ulongVal != ULONGVAL)
  136.     return NO;
  137.   if (floatVal != FLOATVAL)
  138.     return NO;
  139.   if (doubleVal != DOUBLEVAL)
  140.     return NO;
  141. #ifdef HAVE_LONGDOUBLE_ENCODING
  142.   if (longDoubleVal != LONGDOUBLEVAL)
  143.     return NO;
  144. #endif
  145.   return YES;
  146. }
  147. @end
  149. @interface MyClassDeep: MyClass
  150. {
  151.   id objVal;
  152. }
  153. + createBegin: aZone;
  154. - (BOOL)checkObject;
  155. @end
  157. @implementation MyClassDeep
  158. + createBegin: aZone
  159. {
  160.   MyClassDeep *obj = [super createBegin: aZone];
  162.   obj->objVal = [MyObj create: aZone];
  163.   return obj;
  164. }
  166. - (BOOL)checkObject
  167. {
  168.   if (![super checkObject])
  169.     return NO;
  170.   
  171.   return strcmp ([objVal getName], COMPONENT_STRVAL) == 0;
  172. }
  173. @end
  175. #define DIM1COUNT 3
  176. #define DIM2COUNT 2
  178. @interface MyClassDeeper: MyClassDeep
  179. {
  180.   long longAryVal[DIM1COUNT][DIM2COUNT];
  181.   double doubleAryVal[DIM1COUNT][DIM2COUNT];
  182. }
  183. + createBegin: aZone;
  184. @end
  186. @implementation MyClassDeeper: MyClassDeep
  187. + createBegin: aZone
  188. {
  189.   unsigned i, j;
  190.   MyClassDeeper *obj = [super createBegin: aZone];
  191.   
  192.   for (i = 0; i < DIM1COUNT; i++)
  193.     for (j = 0; j < DIM2COUNT; j++)
  194.       {
  195.         obj->longAryVal[i][j] = (i + 1) * (j + 1);
  196.         obj->doubleAryVal[i][j] = (i + 1) * (j + 1);
  197.       }
  198.   return obj;
  199. }
  201. - (BOOL)checkObject
  202. {
  203.   unsigned i, j;
  205.   if (![super checkObject])
  206.     return NO;
  208.   for (i = 0; i < DIM1COUNT; i++)
  209.     for (j = 0; j < DIM2COUNT; j++)
  210.       {
  211.         if (longAryVal[i][j] != (i + 1) * (j + 1))
  212.           return NO;
  213.         if (doubleAryVal[i][j] != (i + 1) * (j + 1))
  214.           return NO;
  215.       }
  216.   return YES;
  217. }
  219. @end
  221. static id
  222. createArchiver (id aZone, BOOL hdf5Flag, BOOL inhibitLoadFlag, BOOL deepFlag)
  223. {
  224.   if (hdf5Flag)
  225.     {
  226.       return [[[[HDF5Archiver createBegin: aZone]
  227.                  setPath: (deepFlag ? "deep.hdf" : "shallow.hdf")]
  228.                 setInhibitLoadFlag: inhibitLoadFlag]
  229.                createEnd];             
  230.     }
  231.   else
  232.     {
  233.       return [[[[LispArchiver createBegin: aZone]
  234.                  setPath: (deepFlag ? "deep.scm" : "shallow.scm")]
  235.                 setInhibitLoadFlag: inhibitLoadFlag]
  236.                createEnd];
  237.     }
  238. }
  240. static BOOL
  241. checkArchiver (id aZone, BOOL hdf5Flag, BOOL deepFlag, BOOL updateFlag)
  242. {
  243.   id obj;
  244.   id archiver;
  245.   BOOL ret;
  247.   archiver = createArchiver (aZone, hdf5Flag, (updateFlag ? YES : NO), 
  248.                              deepFlag);
  249.   if (deepFlag)
  250.     obj = [[[[MyClassDeeper createBegin: aZone]
  251.               setUpdateFlag: updateFlag]
  252.              setDeepFlag: YES]
  253.             createEnd];
  254.   else
  255.     obj = [[[[MyClass createBegin: aZone]
  256.               setUpdateFlag: updateFlag]
  257.              setDeepFlag: NO]
  258.             createEnd];
  260.   [archiver registerClient: obj];
  261.   [archiver sync];
  262.   [obj drop];
  263.   
  264.   [archiver drop];
  265.   archiver = createArchiver (aZone, hdf5Flag, NO, deepFlag);
  266.   obj = [archiver getObject: OBJNAME];
  267.   if (!obj)
  268.     abort ();
  269.   ret = [obj checkObject];
  270.   [obj drop];
  271.   [archiver drop];
  272.   return ret;
  273. }
  275. int
  276. main (int argc, const char **argv)
  277. {
  278.   initSwarmBatch (argc, argv);
  280.   if (checkArchiver (globalZone, NO, NO, YES) == NO)
  281.     raiseEvent (InternalError, 
  282.                 "Shallow Lisp serialization with update failed");
  283.   if (checkArchiver (globalZone, NO, NO, NO) == NO)
  284.     raiseEvent (InternalError, 
  285.                 "Shallow Lisp serialization with no update failed");
  286.   if (checkArchiver (globalZone, NO, YES, YES) == NO)
  287.     raiseEvent (InternalError, 
  288.                 "Deep Lisp serialization with update failed");
  289.   if (checkArchiver (globalZone, NO, YES, NO) == NO)
  290.     raiseEvent (InternalError, 
  291.                 "Deep Lisp serialization with no update failed");
  292. #ifdef HAVE_HDF5
  293.   if (checkArchiver (globalZone, YES, NO, YES) == NO)
  294.     raiseEvent (InternalError, "Shallow HDF5 serialization failed");
  295.   if (checkArchiver (globalZone, YES, YES, YES) == NO)
  296.     raiseEvent (InternalError, "Deep HDF5 serialization failed");
  297. #endif
  298.   return 0;
  299. }