Mercurial > hg > octave-nkf

annotate src/OPERATORS/op-i64-i64.cc @ 4953:7a3a480e8645

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-09-01 21:10:28 by jwe]
author jwe
date Wed, 01 Sep 2004 21:10:28 +0000
parents f7a337f3fd9e
children 573d23f9c9cf
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4901
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
1 /*
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
2
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
3 Copyright (C) 1996, 1997 John W. Eaton
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
4
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
5 This file is part of Octave.
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
6
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
7 Octave is free software; you can redistribute it and/or modify it
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
8 under the terms of the GNU General Public License as published by the
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
9 Free Software Foundation; either version 2, or (at your option) any
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
10 later version.
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
11
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
12 Octave is distributed in the hope that it will be useful, but WITHOUT
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
15 for more details.
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
16
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
18 along with Octave; see the file COPYING. If not, write to the Free
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
20
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
21 */
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
22
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
23 #if defined (__GNUG__) && defined (USE_PRAGMA_INTERFACE_IMPLEMENTATION)
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
24 #pragma implementation
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
25 #endif
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
26
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
27 #ifdef HAVE_CONFIG_H
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
28 #include <config.h>
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
29 #endif
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
30
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
31 #include "gripes.h"
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
32 #include "oct-obj.h"
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
33 #include "ov.h"
4953
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
34 #include "ov-int16.h"
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
35 #include "ov-int32.h"
4901
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
36 #include "ov-int64.h"
4953
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
37 #include "ov-int8.h"
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
38 #include "ov-uint16.h"
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
39 #include "ov-uint32.h"
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
40 #include "ov-uint64.h"
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
41 #include "ov-uint8.h"
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
42 #include "ov-scalar.h"
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
43 #include "ov-complex.h"
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
44 #include "ov-re-mat.h"
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
45 #include "ov-cx-mat.h"
4901
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
46 #include "ov-typeinfo.h"
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
47 #include "ops.h"
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
48 #include "xdiv.h"
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
49 #include "xpow.h"
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
50
4905
f7a337f3fd9e [project @ 2004-06-17 04:11:50 by jwe]
jwe
parents: 4901
diff changeset
51 #include "op-int.h"
4901
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
52
4905
f7a337f3fd9e [project @ 2004-06-17 04:11:50 by jwe]
jwe
parents: 4901
diff changeset
53 OCTAVE_S_INT_UNOPS (int64)
4953
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
54 OCTAVE_SS_INT_CMP_OPS (ss, int64_, int64_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
55 OCTAVE_SS_INT_BOOL_OPS (ss, int64_, int64_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
56
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
57 OCTAVE_SM_INT_CMP_OPS (sm, int64_, int64_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
58 OCTAVE_SM_INT_BOOL_OPS (sm, int64_, int64_)
4901
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
59
4953
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
60 OCTAVE_MS_INT_CMP_OPS (ms, int64_, int64_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
61 OCTAVE_MS_INT_BOOL_OPS (ms, int64_, int64_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
62 OCTAVE_MS_INT_ASSIGN_OPS (ms, int64_, int64_, int64_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
63 OCTAVE_MS_INT_ASSIGN_OPS (mx, int64_, , )
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
64 OCTAVE_MS_INT_ASSIGN_OPS (mc, int64_, complex_, )
4901
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
65
4905
f7a337f3fd9e [project @ 2004-06-17 04:11:50 by jwe]
jwe
parents: 4901
diff changeset
66 OCTAVE_M_INT_UNOPS (int64)
f7a337f3fd9e [project @ 2004-06-17 04:11:50 by jwe]
jwe
parents: 4901
diff changeset
67 OCTAVE_MM_INT_CMP_OPS (int64, int64)
f7a337f3fd9e [project @ 2004-06-17 04:11:50 by jwe]
jwe
parents: 4901
diff changeset
68 OCTAVE_MM_INT_BOOL_OPS (int64, int64)
4953
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
69 OCTAVE_MM_INT_ASSIGN_OPS (mm, int64_, int64_, int64_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
70 OCTAVE_MM_INT_ASSIGN_OPS (mmx, int64_, , )
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
71 OCTAVE_MM_INT_ASSIGN_OPS (mmc, int64_, complex_, )
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
72
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
73 OCTAVE_MS_INT_ASSIGN_OPS (mi8, int64_, int8_, int8_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
74 OCTAVE_MS_INT_ASSIGN_OPS (mui8, int64_, uint8_, uint8_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
75 OCTAVE_MS_INT_ASSIGN_OPS (mi16, int64_, int16_, int16_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
76 OCTAVE_MS_INT_ASSIGN_OPS (mui16, int64_, uint16_, uint16_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
77 OCTAVE_MS_INT_ASSIGN_OPS (mi32, int64_, int32_, int32_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
78 OCTAVE_MS_INT_ASSIGN_OPS (mui32, int64_, uint32_, uint32_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
79 OCTAVE_MS_INT_ASSIGN_OPS (mui64, int64_, uint64_, uint64_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
80
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
81 OCTAVE_MM_INT_ASSIGN_OPS (mmi8, int64_, int8_, int8_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
82 OCTAVE_MM_INT_ASSIGN_OPS (mmui8, int64_, uint8_, uint8_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
83 OCTAVE_MM_INT_ASSIGN_OPS (mmi16, int64_, int16_, int16_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
84 OCTAVE_MM_INT_ASSIGN_OPS (mmui16, int64_, uint16_, uint16_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
85 OCTAVE_MM_INT_ASSIGN_OPS (mmi32, int64_, int32_, int32_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
86 OCTAVE_MM_INT_ASSIGN_OPS (mmui32, int64_, uint32_, uint32_)
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
87 OCTAVE_MM_INT_ASSIGN_OPS (mmui64, int64_, uint64_, uint64_)
4901
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
88
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
89 void
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
90 install_i64_i64_ops (void)
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
91 {
4905
f7a337f3fd9e [project @ 2004-06-17 04:11:50 by jwe]
jwe
parents: 4901
diff changeset
92 OCTAVE_INSTALL_S_INT_UNOPS (int64);
4953
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
93 OCTAVE_INSTALL_SS_INT_CMP_OPS (ss, int64_, int64_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
94 OCTAVE_INSTALL_SS_INT_BOOL_OPS (ss, int64_, int64_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
95
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
96 OCTAVE_INSTALL_SM_INT_CMP_OPS (sm, int64_, int64_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
97 OCTAVE_INSTALL_SM_INT_BOOL_OPS (sm, int64_, int64_);
4901
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
98
4953
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
99 OCTAVE_INSTALL_MS_INT_CMP_OPS (ms, int64_, int64_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
100 OCTAVE_INSTALL_MS_INT_BOOL_OPS (ms, int64_, int64_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
101 OCTAVE_INSTALL_MS_INT_ASSIGN_OPS (ms, int64_, int64_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
102 OCTAVE_INSTALL_MS_INT_ASSIGN_OPS (mx, int64_, );
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
103 OCTAVE_INSTALL_MS_INT_ASSIGN_OPS (mc, int64_, complex_);
4901
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
104
4905
f7a337f3fd9e [project @ 2004-06-17 04:11:50 by jwe]
jwe
parents: 4901
diff changeset
105 OCTAVE_INSTALL_M_INT_UNOPS (int64);
f7a337f3fd9e [project @ 2004-06-17 04:11:50 by jwe]
jwe
parents: 4901
diff changeset
106 OCTAVE_INSTALL_MM_INT_CMP_OPS (int64, int64);
f7a337f3fd9e [project @ 2004-06-17 04:11:50 by jwe]
jwe
parents: 4901
diff changeset
107 OCTAVE_INSTALL_MM_INT_BOOL_OPS (int64, int64);
4953
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
108 OCTAVE_INSTALL_MM_INT_ASSIGN_OPS (mm, int64_, int64_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
109 OCTAVE_INSTALL_MM_INT_ASSIGN_OPS (mmx, int64_, );
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
110 OCTAVE_INSTALL_MM_INT_ASSIGN_OPS (mmc, int64_, complex_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
111
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
112 OCTAVE_INSTALL_MS_INT_ASSIGN_OPS (mi8, int64_, int8_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
113 OCTAVE_INSTALL_MS_INT_ASSIGN_OPS (mui8, int64_, uint8_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
114 OCTAVE_INSTALL_MS_INT_ASSIGN_OPS (mi16, int64_, int16_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
115 OCTAVE_INSTALL_MS_INT_ASSIGN_OPS (mui16, int64_, uint16_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
116 OCTAVE_INSTALL_MS_INT_ASSIGN_OPS (mi32, int64_, int32_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
117 OCTAVE_INSTALL_MS_INT_ASSIGN_OPS (mui32, int64_, uint32_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
118 OCTAVE_INSTALL_MS_INT_ASSIGN_OPS (mui64, int64_, uint64_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
119
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
120 OCTAVE_INSTALL_MM_INT_ASSIGN_OPS (mmi8, int64_, int8_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
121 OCTAVE_INSTALL_MM_INT_ASSIGN_OPS (mmui8, int64_, uint8_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
122 OCTAVE_INSTALL_MM_INT_ASSIGN_OPS (mmi16, int64_, int16_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
123 OCTAVE_INSTALL_MM_INT_ASSIGN_OPS (mmui16, int64_, uint16_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
124 OCTAVE_INSTALL_MM_INT_ASSIGN_OPS (mmi32, int64_, int32_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
125 OCTAVE_INSTALL_MM_INT_ASSIGN_OPS (mmui32, int64_, uint32_);
7a3a480e8645 [project @ 2004-09-01 21:10:28 by jwe]
jwe
parents: 4905
diff changeset
126 OCTAVE_INSTALL_MM_INT_ASSIGN_OPS (mmui64, int64_, uint64_);
4901
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
127 }
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
128
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
129 /*
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
130 ;;; Local Variables: ***
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
131 ;;; mode: C++ ***
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
132 ;;; End: ***
35bfb4e0b96b [project @ 2004-06-14 18:33:02 by jwe]
jwe
parents:
diff changeset
133 */