home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / nihcl-3.0 / vectest / bytevec.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-05-16  |  6.8 KB  |  204 lines
  1. /* Test Vector ByteVec class
  2.  
  3.     THIS SOFTWARE FITS THE DESCRIPTION IN THE U.S. COPYRIGHT ACT OF A
  4.     "UNITED STATES GOVERNMENT WORK".  IT WAS WRITTEN AS A PART OF THE
  5.     AUTHOR'S OFFICIAL DUTIES AS A GOVERNMENT EMPLOYEE.  THIS MEANS IT
  6.     CANNOT BE COPYRIGHTED.  THIS SOFTWARE IS FREELY AVAILABLE TO THE
  7.     PUBLIC FOR USE WITHOUT A COPYRIGHT NOTICE, AND THERE ARE NO
  8.     RESTRICTIONS ON ITS USE, NOW OR SUBSEQUENTLY.
  9.  
  10. Author:
  11.         Ted Persky
  12.     Bg. 12A, Rm. 2031
  13.     Computer Systems Laboratory
  14.     Division of Computer Research and Technology
  15.     National Institutes of Health
  16.     Bethesda, Maryland 20892
  17.     Phone: (301) 496-2963
  18.     uucp: uunet!nih-csl!tpersky
  19.     Internet:tpersky@alw.nih.gov
  20.  
  21. Function:
  22.     
  23. Modification History:
  24.     
  25. $Log:    bytevec.c,v $
  26.  * Revision 3.0  90/05/16  23:06:33  kgorlen
  27.  * Release for 1st edition.
  28.  * 
  29. */
  30. #include "IntVec.h"
  31. #include "ByteVec.h"
  32. static char rcsid[] = "$Header: /afs/alw.nih.gov/unix/sun4_40c/usr/local/src/nihcl-3.0/share/vectest/RCS/bytevec.c,v 3.0 90/05/16 23:06:33 kgorlen Rel $";
  33.  
  34. static int initI[] = { 1,3,5 };
  35. static const IntVec I(initI,3);        // I = { 1 3 5 }
  36.  
  37. #ifndef BUG_OPTYPECONST
  38. static ByteVec A(10,1);                // A = { 1 2 3 4 5 6 7 8 9 10 }
  39. static ByteVec B = reverse(ByteVec(10,1,1));    // B = { 10 9 8 7 6 5 4 3 2 1 }
  40. #else
  41. static const ByteVec A(10,1);                // A = { 1 2 3 4 5 6 7 8 9 10 }
  42. static const ByteVec B = reverse(ByteVec(10,1,1));    // B = { 10 9 8 7 6 5 4 3 2 1 }
  43. #endif
  44.  
  45. void test1()
  46. {
  47.     BitVec L;
  48. // TYPEVec_CTOR_I
  49.     ByteVec C;            // C = {}
  50. // TYPEVec_CTOR_I_TYPE_TYPE
  51.         ByteVec D(10,3,1);    // D = { 3 4 5 6 7 8 9 10 11 12 }
  52.     cerr << "ByteVec D(10,3,1): " << D << endl;
  53. // FRIEND_reverse_TYPESlice
  54.     D = reverse(D);       // D = { 12 11 10 9 8 7 6 5 4 3 }
  55.     cerr << "reverse(D): " << D << endl;
  56. // TYPEVec_CTOR_TYPEVec    
  57.     ByteVec T(A);            // T = A
  58.     cerr << "ByteVec T(A): " << T << endl;
  59. // TYPEVec_CTOR_TYPESlice
  60.     ByteVec U(A(0,5,2));        // U = { 1 3 5 7 9 }
  61.     cerr << "ByteVec U(A(0,5,2)): " << U << endl;
  62. // TYPEVec_ASN_TYPEVec
  63.     C = U;
  64.     cerr << "C = U: " << C << endl;
  65. // TYPEVec_ASN_TYPEVec
  66.     C = C;
  67.     cerr << "C = C: " << C << endl;
  68. // TYPEVec_ASN_TYPESlice
  69.     C = A(0,5,2);            // C = { 1 3 5 7 9 }
  70.     cerr << "C = A(0,5,2): " << C << endl;
  71. // TYPEVec_ASN_TYPESlice
  72.     C = A;  C = C(0,5,2);        // C = { 1 3 5 7 9 }
  73.     cerr << "C = A; C = C(0,5,2): " << C << endl;
  74. // TYPEVec_ASN_TYPESlct
  75.     C = A[A>B];            // C = { 6 7 8 9 10 }
  76.     cerr << "C = A[A>B]: " << C << endl;
  77. // TYPEVec_ASN_TYPESlct
  78.     C = A;  C = C[C>B];        // C = { 6 7 8 9 10 }
  79.     cerr << "C = A;  C = C[C>B]: " << C << endl;
  80. // TYPEVec_ASN_TYPEPick
  81.     C = A[I];            // C = { 2 4 6 }
  82.     cerr << "C = A[I]: " << C << endl;
  83. // TYPEVec_ASN_TYPEPick
  84.     C = A;  C = C[I];        // C = { 2 4 6 }
  85.     cerr << "C = A;  C = C[I]: " << C << endl;
  86. // TYPEVec_ASN_TYPE
  87.     C = 0;
  88.     cerr << "C = 0: " << C << endl;
  89. // TYPESlice_ASN_TYPEVec
  90.     C = A;  C(0,5,2) = ByteVec(5,50,0);    // C = { 50 2 50 4 50 6 50 8 50 10 }
  91.     cerr << "C = A;  C(0,5,2) = ByteVec(5,50,0): " << C << endl;
  92. // TYPESlice_ASN_TYPESlice
  93.     C(1,5,2) = C(0,5,2);        // C = { 50 50 50 50 50 50 50 50 50 50 }
  94.     cerr << "C(1,5,2) = C(0,5,2): " << C << endl;
  95. // TYPESlice_ASN_TYPEPick
  96.     C(0,3,1) = A[I];        // C = { 2 4 6 50 50 50 50 50 50 50 }
  97.     cerr << "C(0,3,1) = A[I]: " << C << endl;
  98. // TYPESlice_ASN_TYPESlct
  99.     C(3,3,1) = A[A<=3];        // C = { 2 4 6 1 2 3 50 50 50 50 }
  100.     cerr << "C(3,3,1) = A[A<=3]: " << C << endl;
  101. // TYPESlice_ASN_TYPE
  102.     C(0,6,1) = 0;            // C = { 0 0 0 0 0 0 50 50 50 50 }
  103.     cerr << "C(0,6,1) = 0:" << C << endl;
  104. // FRIEND_INCDECOP_TYPESlice__TYPEVec
  105. //    C++;                // C = { 1 1 1 1 1 1 51 51 51 51 }
  106.     cerr << "C++: "; (C++).printOn(cerr); cerr << endl;
  107. // FRIEND_TYPESlice_OP_TYPESlice__TYPEvec
  108.     C = D-B;            // C = { 2 2 2 2 2 2 2 2 2 2 }
  109.     cerr << "C = D-B: " << C << endl;
  110. // FRIEND_TYPESlice_OP_TYPE__TYPEVec
  111.     C = A-1;            // C = { 0 1 2 3 4 5 6 7 8 9 }
  112.     cerr << "C = A-1: " << C << endl;
  113. // FRIEND_TYPE_OP_TYPESlice__TYPEVec
  114.     C = 1 + A;            // C = { 2 3 4 5 6 7 8 9 10 11 }
  115.     cerr << "C = 1+A: " << C << endl;
  116. // FRIEND_TYPESlice_OP_TYPESlice__BitVec
  117.     L = A>B;
  118.     cerr << "A>B: " << L << endl;    // { 0 0 0 0 0 1 1 1 1 1 }
  119. // FRIEND_TYPESlice_OP_TYPE__BitVec
  120.     L = A<=5;            // { 1 1 1 1 1 0 0 0 0 0 }
  121.     cerr << "A<=5: " << L << endl;
  122. // FRIEND_TYPE_OP_TYPESlice__BitVec
  123.     L = 5<A;            // { 0 0 0 0 0 1 1 1 1 1 }
  124.     cerr << "5<A: " << L << endl;
  125. // FRIEND_TYPESlice_ASNOP_TYPESlice
  126.     C = A;  C += A;            // { 2 4 6 8 10 12 14 16 18 20 }
  127.     cerr << "C = A;  C += A: " << C << endl;
  128. // FRIEND_TYPESlice_ASNOP_TYPE
  129.     C -= 1;                    // { 1 3 5 7 9 11 13 15 17 19 }
  130.     cerr << "C -= 1: " << C << endl;
  131. // TYPEPick_ASN_TYPEVec
  132.     C = A;  C[I] = ByteVec(3,50,0);    // { 1 50 3 50 5 50 7 8 9 10 }
  133.     cerr << "C = A; C[I] =  ByteVec(3,50,0): " << C << endl;
  134. // TYPEPick_ASN_TYPEPick
  135.     C[I] = A[I];            // { 1 2 3 4 5 6 7 8 9 10 }
  136.     cerr << "C[I] = A[I]: " << C << endl;
  137. // TYPEPick_ASN_TYPESlct
  138.     C[I] = A[A<=3];        // C = { 1 1 3 2 5 3 7 8 9 10 }
  139.     cerr << "C[I] = A[A<=3]: " << C << endl;
  140. // TYPEPick_ASN_TYPESlice
  141.     C[I] = A(0,3,2);        // C = { 1 1 3 3 5 5 7 8 9 10 }
  142.     cerr << "C[I] = A(0,3,2): " << C << endl;
  143. // TYPEPick_ASN_TYPE
  144.     C[I] = 50;            // C = { 1 50 3 50 5 50 7 8 9 10 }
  145.     cerr << "C[I] = 50: " << C << endl;
  146. }
  147.  
  148. void test2()
  149. {
  150.     BitVec L;
  151. // TYPEVec_CTOR_I
  152.     ByteVec C;            // C = {}
  153. // TYPESlct_ASN_TYPEVec
  154.     C = A;  C[A<=5] = ByteVec(5,50,0);    // C = { 50 50 50 50 50 6 7 8 9 10 }
  155.     cerr << "C = A; C[A<=5] = ByteVec(5,50,0): " << C << endl;
  156. // TYPESlct_ASN_TYPEPick
  157.     C = A;  C[A<=3] = A[I];    // C = { 2 4 6 4 5 6 7 8 9 10 }
  158.     cerr << "C = A; C[A<=3] = A[I]: " << C << endl;
  159. // TYPESlct_ASN_TYPESlct
  160.     C = A;  C[A<=5] = B[A<=5];    // C = { 10 9 8 7 6 6 7 8 9 10 }
  161.     cerr << "C = A; C[A<=5] = B[A<=5]: " << C << endl;
  162. // TYPESlct_ASN_TYPESlice
  163.     C[A<=5] = A(0,5,1);        // C = { 1 2 3 4 5 6 7 8 9 10 }
  164.     cerr << "C = A; C[A<=5] = A(0,5,1): " << C << endl;
  165. // TYPESlct_ASN_TYPE
  166.     C[A<=5] = 0;            // C = { 0 0 0 0 0 6 7 8 9 10 }
  167.     cerr << "C = A; C[A<=5] = 0: " << C << endl;
  168. // TYPESlice_CTOR_TYPESlct
  169.     C = A[A<=5] + B[B<=5];    // C = { 6 6 6 6 6 }
  170.     cerr << "C = A[A<=5] + B[B<=5]: " << C << endl;
  171. // FRIEND_cumsum_TYPESlice
  172.     C = cumsum(ByteVec(10,1));
  173.     cerr << "cumsum(ByteVec(10,1)): " << C << endl;
  174. // FRIEND_delta_TYPESlice
  175.     C = delta(C);
  176.     cerr << "delta(cumsum(ByteVec(10,1))): " << C << endl;
  177. // FRIEND_dot_TYPESlice_TYPESlice
  178.     cerr << "dot(A,B): " << int(dot(A,B)) << endl;
  179. // FRIEND_max_TYPESlice
  180.     cerr << "max(A): " << max(A) << endl;
  181. // FRIEND_min_TYPESlice
  182.     cerr << "min(A): " << min(A) << endl;
  183. // FRIEND_prod_TYPESlice
  184.     cerr << "prod(A(0,5,1)): " << int(prod(A(0,5,1))) << endl;
  185. // FRIEND_sum_TYPESlice
  186.     cerr << "sum(A): " << int(sum(A)) << endl;
  187. //TYPESlice_CTOR_TYPEPick
  188.         C = A[I] + B[I];             // C = { 11 11 11 }
  189.     cerr << "C = A[I] + B[I]: " << C << endl;
  190. }
  191.  
  192. main()
  193. {
  194.     cerr << "Test Vector ByteVec class\n";
  195. // TYPEVec_CTOR_TYPEPTR_I
  196.     cerr << "IntVec I(3,1,2): " << I << endl;
  197. // TYPEVec_CTOR_I_TYPE_TYPE
  198.     cerr << "ByteVec A(10,1): " << A << endl;
  199. // TYPEVec_CTOR_I_TYPE_TYPE
  200.     cerr << "ByteVec B = reverse(ByteVec(10,1,1)): " << B << endl;
  201.     test1();
  202.     test2();
  203. }
  204.