| Christopher Piro | 2f5afce | 2007-06-29 07:17:33 +0000 | [diff] [blame] | 1 | -define(CLASS(Obj), element(1,Obj)). |
| 2 | |
| 3 | -define(M0(Obj, Method), ((?CLASS(Obj)):Method(Obj))). |
| 4 | -define(M1(Obj, Method, Arg1), ((?CLASS(Obj)):Method(Obj, Arg1))). |
| 5 | -define(M2(Obj, Method, Arg1, Arg2), ((?CLASS(Obj)):Method(Obj, Arg1, Arg2))). |
| 6 | -define(M3(Obj, Method, Arg1, Arg2, Arg3), ((?CLASS(Obj)):Method(Obj, Arg1, Arg2, Arg3))). |
| 7 | -define(M4(Obj, Method, Arg1, Arg2, Arg3, Arg4), ((?CLASS(Obj)):Method(Obj, Arg1, Arg2, Arg3, Arg4))). |
| 8 | -define(M5(Obj, Method, Arg1, Arg2, Arg3, Arg4, Arg5), ((?CLASS(Obj)):Method(Obj, Arg1, Arg2, Arg3, Arg4, Arg5))). |
| 9 | -define(M6(Obj, Method, Arg1, Arg2, Arg3, Arg4, Arg5, Arg6), ((?CLASS(Obj)):Method(Obj, Arg1, Arg2, Arg3, Arg4, Arg5, Arg6))). |
| 10 | |
| 11 | -define(ATTR(X), This#?MODULE.X). |
| 12 | |
| 13 | %% TType |
| 14 | -define(tType_STOP, 0). |
| 15 | -define(tType_VOID, 1). |
| 16 | -define(tType_BOOL, 2). |
| 17 | -define(tType_BYTE, 3). |
| 18 | -define(tType_DOUBLE, 4). |
| 19 | -define(tType_I16, 6). |
| 20 | -define(tType_I32, 8). |
| 21 | -define(tType_I64, 10). |
| 22 | -define(tType_STRING, 11). |
| 23 | -define(tType_STRUCT, 12). |
| 24 | -define(tType_MAP, 13). |
| 25 | -define(tType_SET, 14). |
| 26 | -define(tType_LIST, 15). |
| 27 | |
| 28 | % tmessagetype |
| 29 | -define(tMessageType_CALL, 1). |
| 30 | -define(tMessageType_REPLY, 2). |
| 31 | -define(tMessageType_EXCEPTION, 3). |
| 32 | |
| 33 | % TProcessor |
| 34 | % ? |
| 35 | |
| 36 | -include("thrift/tApplicationException.hrl"). |