Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Monad/CMonadPlus.p.c

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


#include "newmacros.h"
#include "runtime.h"

#define CT_v201	((void*)startLabel+96)
#define FN_LAMBDA194	((void*)startLabel+140)
#define CT_v205	((void*)startLabel+184)
#define CF_LAMBDA194	((void*)startLabel+192)
#define CT_v210	((void*)startLabel+296)
#define FN_LAMBDA195	((void*)startLabel+340)
#define CT_v214	((void*)startLabel+384)
#define CF_LAMBDA195	((void*)startLabel+392)
#define CT_v217	((void*)startLabel+440)
#define CT_v220	((void*)startLabel+496)
#define CT_v223	((void*)startLabel+552)
#define ST_v216	((void*)startLabel+580)
#define ST_v198	((void*)startLabel+612)
#define PP_LAMBDA194	((void*)startLabel+626)
#define PC_LAMBDA194	((void*)startLabel+626)
#define ST_v203	((void*)startLabel+626)
#define ST_v207	((void*)startLabel+648)
#define PP_LAMBDA195	((void*)startLabel+662)
#define PC_LAMBDA195	((void*)startLabel+662)
#define ST_v212	((void*)startLabel+662)
#define ST_v222	((void*)startLabel+684)
#define ST_v219	((void*)startLabel+696)
#define ST_v204	((void*)startLabel+708)
#define ST_v213	((void*)startLabel+753)
#define PS_v218	((void*)startLabel+800)
#define PS_v221	((void*)startLabel+812)
#define PS_v209	((void*)startLabel+824)
#define PS_v206	((void*)startLabel+836)
#define PS_v208	((void*)startLabel+848)
#define PS_v200	((void*)startLabel+860)
#define PS_v197	((void*)startLabel+872)
#define PS_v199	((void*)startLabel+884)
#define PS_v215	((void*)startLabel+896)
#define PS_v202	((void*)startLabel+908)
#define PS_v211	((void*)startLabel+920)
extern Node FN_NHC_46Internal_46_95noMethodError[];
extern Node PM_Monad[];
extern Node PC_NHC_46Internal_46_95noMethodError[];

static Node startLabel[] = {
  bytes2word(3,0,2,1)
, bytes2word(1,2,0,3)
, useLabel(CT_v201)
,};
Node FN_Monad_46_95_46mplus[] = {
  bytes2word(ZAP_ARG_I1,NEEDHEAP_I32,PUSH_ARG_I3,PUSH_ARG_I2)
, bytes2word(HEAP_CVAL_P1,7,HEAP_CVAL_N1,7)
, bytes2word(HEAP_CREATE,HEAP_SPACE,HEAP_SPACE,PUSH_HEAP)
, bytes2word(HEAP_CVAL_P1,8,HEAP_CVAL_N1,12)
, bytes2word(HEAP_CREATE,HEAP_SPACE,HEAP_SPACE,HEAP_OFF_N1)
, bytes2word(10,ZAP_ARG_I2,ZAP_ARG_I3,EVAL)
, bytes2word(NEEDHEAP_I32,APPLY,2,RETURN_EVAL)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
, useLabel(PS_v200)
, 0
, 0
, 0
, 0
, useLabel(PS_v199)
, 0
, 0
, 0
, 0
, 0
, useLabel(ST_v198)
,	/* CT_v201: (byte 0) */
  HW(2,3)
, 0
,};
Node F0_Monad_46_95_46mplus[] = {
  CAPTAG(useLabel(FN_Monad_46_95_46mplus),3)
, useLabel(PS_v197)
, 0
, 0
, 0
, VAPTAG(useLabel(FN_LAMBDA194))
, VAPTAG(useLabel(FN_NHC_46Internal_46_95noMethodError))
, bytes2word(0,0,0,0)
, useLabel(CT_v205)
,	/* FN_LAMBDA194: (byte 0) */
  bytes2word(NEEDHEAP_I32,PUSH_CADR_N1,8,STRING)
, bytes2word(RETURN,ENDCODE,0,0)
, bytes2word(0,0,0,0)
, CONSTRW(1,0)
, 0
, 0
, 0
, 0
, useLabel(ST_v204)
, 0
, useLabel(ST_v203)
,	/* CT_v205: (byte 0) */
  HW(0,0)
, 0
,	/* CF_LAMBDA194: (byte 0) */
  VAPTAG(useLabel(FN_LAMBDA194))
, useLabel(PS_v202)
, 0
, 0
, 0
, bytes2word(1,0,0,1)
, useLabel(CT_v210)
,};
Node FN_Monad_46_95_46mzero[] = {
  bytes2word(ZAP_ARG_I1,NEEDHEAP_I32,HEAP_CVAL_P1,7)
, bytes2word(HEAP_CVAL_N1,7,HEAP_CREATE,HEAP_SPACE)
, bytes2word(HEAP_SPACE,PUSH_HEAP,HEAP_CVAL_P1,8)
, bytes2word(HEAP_CVAL_N1,12,HEAP_CREATE,HEAP_SPACE)
, bytes2word(HEAP_SPACE,HEAP_OFF_N1,10,RETURN_EVAL)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
, useLabel(PS_v209)
, 0
, 0
, 0
, 0
, useLabel(PS_v208)
, 0
, 0
, 0
, 0
, 0
, useLabel(ST_v207)
,	/* CT_v210: (byte 0) */
  HW(2,1)
, 0
,};
Node F0_Monad_46_95_46mzero[] = {
  CAPTAG(useLabel(FN_Monad_46_95_46mzero),1)
, useLabel(PS_v206)
, 0
, 0
, 0
, VAPTAG(useLabel(FN_LAMBDA195))
, VAPTAG(useLabel(FN_NHC_46Internal_46_95noMethodError))
, bytes2word(0,0,0,0)
, useLabel(CT_v214)
,	/* FN_LAMBDA195: (byte 0) */
  bytes2word(NEEDHEAP_I32,PUSH_CADR_N1,8,STRING)
, bytes2word(RETURN,ENDCODE,0,0)
, bytes2word(0,0,0,0)
, CONSTRW(1,0)
, 0
, 0
, 0
, 0
, useLabel(ST_v213)
, 0
, useLabel(ST_v212)
,	/* CT_v214: (byte 0) */
  HW(0,0)
, 0
,	/* CF_LAMBDA195: (byte 0) */
  VAPTAG(useLabel(FN_LAMBDA195))
, useLabel(PS_v211)
, 0
, 0
, 0
, bytes2word(1,0,0,1)
, useLabel(CT_v217)
,};
Node FN_Monad_46MonadPlus_46Prelude_46Monad[] = {
  bytes2word(NEEDSTACK_I16,SELECTOR_EVAL,SELECT,1)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
, 30020
, useLabel(ST_v216)
,	/* CT_v217: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Monad_46MonadPlus_46Prelude_46Monad[] = {
  CAPTAG(useLabel(FN_Monad_46MonadPlus_46Prelude_46Monad),1)
, useLabel(PS_v215)
, 0
, 0
, 0
, bytes2word(1,0,0,1)
, useLabel(CT_v220)
,};
Node FN_Monad_46mzero[] = {
  bytes2word(NEEDSTACK_I16,SELECTOR_EVAL,SELECT,2)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
, 30020
, useLabel(ST_v219)
,	/* CT_v220: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Monad_46mzero[] = {
  CAPTAG(useLabel(FN_Monad_46mzero),1)
, useLabel(PS_v218)
, 0
, 0
, 0
, bytes2word(1,0,0,1)
, useLabel(CT_v223)
,};
Node FN_Monad_46mplus[] = {
  bytes2word(NEEDSTACK_I16,SELECTOR_EVAL,SELECT,3)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
, 30020
, useLabel(ST_v222)
,	/* CT_v223: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Monad_46mplus[] = {
  CAPTAG(useLabel(FN_Monad_46mplus),1)
, useLabel(PS_v221)
, 0
, 0
, 0
,};
Node PP_Monad_46MonadPlus_46Prelude_46Monad[] = {
 };
Node PC_Monad_46MonadPlus_46Prelude_46Monad[] = {
 	/* ST_v216: (byte 0) */
  bytes2word(77,111,110,97)
, bytes2word(100,46,77,111)
, bytes2word(110,97,100,80)
, bytes2word(108,117,115,46)
, bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(77,111,110,97)
, bytes2word(100,0,0,0)
,};
Node PP_Monad_46_95_46mplus[] = {
 };
Node PC_Monad_46_95_46mplus[] = {
 	/* ST_v198: (byte 0) */
  bytes2word(77,111,110,97)
, bytes2word(100,46,95,46)
, bytes2word(109,112,108,117)
,	/* PP_LAMBDA194: (byte 2) */
 	/* PC_LAMBDA194: (byte 2) */
 	/* ST_v203: (byte 2) */
  bytes2word(115,0,77,111)
, bytes2word(110,97,100,46)
, bytes2word(95,46,109,112)
, bytes2word(108,117,115,58)
, bytes2word(110,111,112,111)
, bytes2word(115,0,0,0)
,};
Node PP_Monad_46_95_46mzero[] = {
 };
Node PC_Monad_46_95_46mzero[] = {
 	/* ST_v207: (byte 0) */
  bytes2word(77,111,110,97)
, bytes2word(100,46,95,46)
, bytes2word(109,122,101,114)
,	/* PP_LAMBDA195: (byte 2) */
 	/* PC_LAMBDA195: (byte 2) */
 	/* ST_v212: (byte 2) */
  bytes2word(111,0,77,111)
, bytes2word(110,97,100,46)
, bytes2word(95,46,109,122)
, bytes2word(101,114,111,58)
, bytes2word(110,111,112,111)
, bytes2word(115,0,0,0)
,};
Node PP_Monad_46mplus[] = {
 };
Node PC_Monad_46mplus[] = {
 	/* ST_v222: (byte 0) */
  bytes2word(77,111,110,97)
, bytes2word(100,46,109,112)
, bytes2word(108,117,115,0)
,};
Node PP_Monad_46mzero[] = {
 };
Node PC_Monad_46mzero[] = {
 	/* ST_v219: (byte 0) */
  bytes2word(77,111,110,97)
, bytes2word(100,46,109,122)
,	/* ST_v204: (byte 4) */
  bytes2word(101,114,111,0)
, bytes2word(78,111,32,100)
, bytes2word(101,102,97,117)
, bytes2word(108,116,32,100)
, bytes2word(101,102,105,110)
, bytes2word(105,116,105,111)
, bytes2word(110,32,102,111)
, bytes2word(114,32,99,108)
, bytes2word(97,115,115,32)
, bytes2word(109,101,116,104)
, bytes2word(111,100,32,109)
, bytes2word(112,108,117,115)
,	/* ST_v213: (byte 1) */
  bytes2word(0,78,111,32)
, bytes2word(100,101,102,97)
, bytes2word(117,108,116,32)
, bytes2word(100,101,102,105)
, bytes2word(110,105,116,105)
, bytes2word(111,110,32,102)
, bytes2word(111,114,32,99)
, bytes2word(108,97,115,115)
, bytes2word(32,109,101,116)
, bytes2word(104,111,100,32)
, bytes2word(109,122,101,114)
, bytes2word(111,0,0,0)
,	/* PS_v218: (byte 0) */
  useLabel(PM_Monad)
, useLabel(PP_Monad_46mzero)
, useLabel(PC_Monad_46mzero)
,	/* PS_v221: (byte 0) */
  useLabel(PM_Monad)
, useLabel(PP_Monad_46mplus)
, useLabel(PC_Monad_46mplus)
,	/* PS_v209: (byte 0) */
  useLabel(PM_Monad)
, useLabel(PP_Monad_46_95_46mzero)
, useLabel(PC_NHC_46Internal_46_95noMethodError)
,	/* PS_v206: (byte 0) */
  useLabel(PM_Monad)
, useLabel(PP_Monad_46_95_46mzero)
, useLabel(PC_Monad_46_95_46mzero)
,	/* PS_v208: (byte 0) */
  useLabel(PM_Monad)
, useLabel(PP_Monad_46_95_46mzero)
, useLabel(PC_LAMBDA195)
,	/* PS_v200: (byte 0) */
  useLabel(PM_Monad)
, useLabel(PP_Monad_46_95_46mplus)
, useLabel(PC_NHC_46Internal_46_95noMethodError)
,	/* PS_v197: (byte 0) */
  useLabel(PM_Monad)
, useLabel(PP_Monad_46_95_46mplus)
, useLabel(PC_Monad_46_95_46mplus)
,	/* PS_v199: (byte 0) */
  useLabel(PM_Monad)
, useLabel(PP_Monad_46_95_46mplus)
, useLabel(PC_LAMBDA194)
,	/* PS_v215: (byte 0) */
  useLabel(PM_Monad)
, useLabel(PP_Monad_46MonadPlus_46Prelude_46Monad)
, useLabel(PC_Monad_46MonadPlus_46Prelude_46Monad)
,	/* PS_v202: (byte 0) */
  useLabel(PM_Monad)
, useLabel(PP_LAMBDA194)
, useLabel(PC_LAMBDA194)
,	/* PS_v211: (byte 0) */
  useLabel(PM_Monad)
, useLabel(PP_LAMBDA195)
, useLabel(PC_LAMBDA195)
,};

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].