#ifndef _MKBYPROG_H
#define _MKBYPROG_H
/* Current biggest tuple size is 15 */
struct ForeignTuple {
void *pos1;
void *pos2;
void *pos3;
void *pos4;
void *pos5;
void *pos6;
void *pos7;
void *pos8;
void *pos9;
void *pos10;
void *pos11;
void *pos12;
void *pos13;
void *pos14;
void *pos15;
};
extern NodePtr nhc_mkTuple2(NodePtr a1,NodePtr a2);
#define nhc_sizeTuple2 (1+EXTRA+2)
#define Tuple2 0
extern NodePtr nhc_mkTuple3(NodePtr a1,NodePtr a2,NodePtr a3);
#define nhc_sizeTuple3 (1+EXTRA+3)
#define Tuple3 0
extern NodePtr nhc_mkTuple4(NodePtr a1,NodePtr a2,NodePtr a3,NodePtr a4);
#define nhc_sizeTuple4 (1+EXTRA+4)
#define Tuple4 0
extern NodePtr nhc_mkTuple5(NodePtr a1,NodePtr a2,NodePtr a3,NodePtr a4,NodePtr a5);
#define nhc_sizeTuple5 (1+EXTRA+5)
#define Tuple5 0
extern NodePtr nhc_mkTuple6(NodePtr a1,NodePtr a2,NodePtr a3,NodePtr a4,NodePtr a5,NodePtr a6);
#define nhc_sizeTuple6 (1+EXTRA+6)
#define Tuple6 0
extern NodePtr nhc_mkTuple7(NodePtr a1,NodePtr a2,NodePtr a3,NodePtr a4,NodePtr a5,NodePtr a6,NodePtr a7);
#define nhc_sizeTuple7 (1+EXTRA+7)
#define Tuple7 0
extern NodePtr nhc_mkTuple8(NodePtr a1,NodePtr a2,NodePtr a3,NodePtr a4,NodePtr a5,NodePtr a6,NodePtr a7,NodePtr a8);
#define nhc_sizeTuple8 (1+EXTRA+8)
#define Tuple8 0
extern NodePtr nhc_mkTuple9(NodePtr a1,NodePtr a2,NodePtr a3,NodePtr a4,NodePtr a5,NodePtr a6,NodePtr a7,NodePtr a8,NodePtr a9);
#define nhc_sizeTuple9 (1+EXTRA+9)
#define Tuple9 0
extern NodePtr nhc_mkTuple10(NodePtr a1,NodePtr a2,NodePtr a3,NodePtr a4,NodePtr a5,NodePtr a6,NodePtr a7,NodePtr a8,NodePtr a9,NodePtr a10);
#define nhc_sizeTuple10 (1+EXTRA+10)
#define Tuple10 0
extern NodePtr nhc_mkTuple11(NodePtr a1,NodePtr a2,NodePtr a3,NodePtr a4,NodePtr a5,NodePtr a6,NodePtr a7,NodePtr a8,NodePtr a9,NodePtr a10,NodePtr a11);
#define nhc_sizeTuple11 (1+EXTRA+11)
#define Tuple11 0
extern NodePtr nhc_mkTuple12(NodePtr a1,NodePtr a2,NodePtr a3,NodePtr a4,NodePtr a5,NodePtr a6,NodePtr a7,NodePtr a8,NodePtr a9,NodePtr a10,NodePtr a11,NodePtr a12);
#define nhc_sizeTuple12 (1+EXTRA+12)
#define Tuple12 0
extern NodePtr nhc_mkTuple13(NodePtr a1,NodePtr a2,NodePtr a3,NodePtr a4,NodePtr a5,NodePtr a6,NodePtr a7,NodePtr a8,NodePtr a9,NodePtr a10,NodePtr a11,NodePtr a12,NodePtr a13);
#define nhc_sizeTuple13 (1+EXTRA+13)
#define Tuple13 0
extern NodePtr nhc_mkTuple14(NodePtr a1,NodePtr a2,NodePtr a3,NodePtr a4,NodePtr a5,NodePtr a6,NodePtr a7,NodePtr a8,NodePtr a9,NodePtr a10,NodePtr a11,NodePtr a12,NodePtr a13,NodePtr a14);
#define nhc_sizeTuple14 (1+EXTRA+14)
#define Tuple14 0
extern NodePtr nhc_mkTuple15(NodePtr a1,NodePtr a2,NodePtr a3,NodePtr a4,NodePtr a5,NodePtr a6,NodePtr a7,NodePtr a8,NodePtr a9,NodePtr a10,NodePtr a11,NodePtr a12,NodePtr a13,NodePtr a14,NodePtr a15);
#define nhc_sizeTuple15 (1+EXTRA+15)
#define Tuple15 0
extern Node C0_Prelude_46False[];
#define nhc_mkFalse() ((NodePtr)C0_Prelude_46False)
#define nhc_sizeFalse 0
#define False 0
extern Node C0_Prelude_46True[];
#define nhc_mkTrue() ((NodePtr)C0_Prelude_46True)
#define nhc_sizeTrue 0
#define True 1
extern NodePtr nhc_mkLeft(NodePtr a1);
#define nhc_sizeLeft (1+EXTRA+1)
#define Left 0
extern NodePtr nhc_mkRight(NodePtr a1);
#define nhc_sizeRight (1+EXTRA+1)
#define Right 1
extern Node C0_Prelude_46_91_93[];
#define nhc_mkNil() ((NodePtr)C0_Prelude_46_91_93)
#define nhc_sizeNil 0
#define Nil 0
extern NodePtr nhc_mkCons(NodePtr a1,NodePtr a2);
#define nhc_sizeCons (1+EXTRA+2)
#define Cons 1
extern Node C0_Prelude_46Nothing[];
#define nhc_mkNothing() ((NodePtr)C0_Prelude_46Nothing)
#define nhc_sizeNothing 0
#define Nothing 0
extern NodePtr nhc_mkJust(NodePtr a1);
#define nhc_sizeJust (1+EXTRA+1)
#define Just 1
extern Node C0_Prelude_46LT[];
#define nhc_mkLT() ((NodePtr)C0_Prelude_46LT)
#define nhc_sizeLT 0
#define LT 0
extern Node C0_Prelude_46EQ[];
#define nhc_mkEQ() ((NodePtr)C0_Prelude_46EQ)
#define nhc_sizeEQ 0
#define EQ 1
extern Node C0_Prelude_46GT[];
#define nhc_mkGT() ((NodePtr)C0_Prelude_46GT)
#define nhc_sizeGT 0
#define GT 2
extern NodePtr nhc_mkRatio(NodePtr a1,NodePtr a2);
#define nhc_sizeRatio (1+EXTRA+2)
#define Ratio 0
extern Node C0__40_41[];
#define nhc_mkUnit() ((NodePtr)C0__40_41)
#define nhc_sizeUnit 0
#define Unit 0
extern Node C0_Prelude_46_95Void[];
#define nhc_mk_Void() ((NodePtr)C0_Prelude_46_95Void)
#define nhc_size_Void 0
#define _Void 0
extern NodePtr nhc_mkIO(NodePtr a1);
#define nhc_sizeIO (1+EXTRA+1)
#define IO 0
extern NodePtr nhc_mkIOErrorUser(NodePtr a1);
#define nhc_sizeIOErrorUser (1+EXTRA+1)
#define IOErrorUser 0
extern NodePtr nhc_mkIOErrorSystem(NodePtr a1,NodePtr a2);
#define nhc_sizeIOErrorSystem (1+EXTRA+2)
#define IOErrorSystem 1
extern NodePtr nhc_mkIOErrorOpen(NodePtr a1,NodePtr a2,NodePtr a3);
#define nhc_sizeIOErrorOpen (1+EXTRA+3)
#define IOErrorOpen 2
extern NodePtr nhc_mkIOErrorEOF(NodePtr a1,NodePtr a2);
#define nhc_sizeIOErrorEOF (1+EXTRA+2)
#define IOErrorEOF 3
extern NodePtr nhc_mkIOErrorHIsEOF(NodePtr a1,NodePtr a2);
#define nhc_sizeIOErrorHIsEOF (1+EXTRA+2)
#define IOErrorHIsEOF 4
extern NodePtr nhc_mkIOErrorHFileSize(NodePtr a1,NodePtr a2);
#define nhc_sizeIOErrorHFileSize (1+EXTRA+2)
#define IOErrorHFileSize 5
extern NodePtr nhc_mkIOErrorHFlush(NodePtr a1,NodePtr a2);
#define nhc_sizeIOErrorHFlush (1+EXTRA+2)
#define IOErrorHFlush 6
extern NodePtr nhc_mkIOErrorHSeek(NodePtr a1,NodePtr a2);
#define nhc_sizeIOErrorHSeek (1+EXTRA+2)
#define IOErrorHSeek 7
extern NodePtr nhc_mkIOErrorHGetPosn(NodePtr a1,NodePtr a2);
#define nhc_sizeIOErrorHGetPosn (1+EXTRA+2)
#define IOErrorHGetPosn 8
extern NodePtr nhc_mkIOErrorHSetPosn(NodePtr a1,NodePtr a2);
#define nhc_sizeIOErrorHSetPosn (1+EXTRA+2)
#define IOErrorHSetPosn 9
extern NodePtr nhc_mkIOErrorHGetBuffering(NodePtr a1,NodePtr a2);
#define nhc_sizeIOErrorHGetBuffering (1+EXTRA+2)
#define IOErrorHGetBuffering 10
extern NodePtr nhc_mkIOErrorHSetBuffering(NodePtr a1,NodePtr a2);
#define nhc_sizeIOErrorHSetBuffering (1+EXTRA+2)
#define IOErrorHSetBuffering 11
extern NodePtr nhc_mkMkArray(NodePtr a1,NodePtr a2);
#define nhc_sizeMkArray (1+EXTRA+2)
#define MkArray 0
extern NodePtr nhc_mkComplex(NodePtr a1,NodePtr a2);
#define nhc_sizeComplex (1+EXTRA+2)
#define Complex 0
extern Node C0_IO_46NoBuffering[];
#define nhc_mkNoBuffering() ((NodePtr)C0_IO_46NoBuffering)
#define nhc_sizeNoBuffering 0
#define NoBuffering 0
extern Node C0_IO_46LineBuffering[];
#define nhc_mkLineBuffering() ((NodePtr)C0_IO_46LineBuffering)
#define nhc_sizeLineBuffering 0
#define LineBuffering 1
extern NodePtr nhc_mkBlockBuffering(NodePtr a1);
#define nhc_sizeBlockBuffering (1+EXTRA+1)
#define BlockBuffering 2
extern Node C0_IO_46ReadMode[];
#define nhc_mkReadMode() ((NodePtr)C0_IO_46ReadMode)
#define nhc_sizeReadMode 0
#define ReadMode 0
extern Node C0_IO_46WriteMode[];
#define nhc_mkWriteMode() ((NodePtr)C0_IO_46WriteMode)
#define nhc_sizeWriteMode 0
#define WriteMode 1
extern Node C0_IO_46AppendMode[];
#define nhc_mkAppendMode() ((NodePtr)C0_IO_46AppendMode)
#define nhc_sizeAppendMode 0
#define AppendMode 2
extern Node C0_IO_46ReadWriteMode[];
#define nhc_mkReadWriteMode() ((NodePtr)C0_IO_46ReadWriteMode)
#define nhc_sizeReadWriteMode 0
#define ReadWriteMode 3
extern Node C0_IO_46AbsoluteSeek[];
#define nhc_mkAbsoluteSeek() ((NodePtr)C0_IO_46AbsoluteSeek)
#define nhc_sizeAbsoluteSeek 0
#define AbsoluteSeek 0
extern Node C0_IO_46RelativeSeek[];
#define nhc_mkRelativeSeek() ((NodePtr)C0_IO_46RelativeSeek)
#define nhc_sizeRelativeSeek 0
#define RelativeSeek 1
extern Node C0_IO_46SeekFromEnd[];
#define nhc_mkSeekFromEnd() ((NodePtr)C0_IO_46SeekFromEnd)
#define nhc_sizeSeekFromEnd 0
#define SeekFromEnd 2
extern Node C0_IO_46SocketStream[];
#define nhc_mkSocketStream() ((NodePtr)C0_IO_46SocketStream)
#define nhc_sizeSocketStream 0
#define SocketStream 0
extern Node C0_IO_46SocketDatagram[];
#define nhc_mkSocketDatagram() ((NodePtr)C0_IO_46SocketDatagram)
#define nhc_sizeSocketDatagram 0
#define SocketDatagram 1
extern Node C0_IO_46SocketRaw[];
#define nhc_mkSocketRaw() ((NodePtr)C0_IO_46SocketRaw)
#define nhc_sizeSocketRaw 0
#define SocketRaw 2
extern NodePtr nhc_mkSocket(NodePtr a1);
#define nhc_sizeSocket (1+EXTRA+1)
#define Socket 0
extern Node C0_System_46ExitSuccess[];
#define nhc_mkExitSuccess() ((NodePtr)C0_System_46ExitSuccess)
#define nhc_sizeExitSuccess 0
#define ExitSuccess 0
extern NodePtr nhc_mkExitFailure(NodePtr a1);
#define nhc_sizeExitFailure (1+EXTRA+1)
#define ExitFailure 1
#endif
|