aboutsummaryrefslogtreecommitdiff
path: root/pu.out.c
diff options
context:
space:
mode:
authorGravatar Moon Flower <moon@coffin.ir> 2025-08-07 12:19:32 +0330
committerGravatar Moon Flower <moon@coffin.ir> 2025-08-07 12:19:32 +0330
commit47b04ca2778cbce41deae6331472c25822e7a29a (patch)
treec6b4f555e2f890dfd2e8dfc75f61ff11e0ade3a4 /pu.out.c
parentchar fix (diff)
bwahh changes!!
Diffstat (limited to 'pu.out.c')
-rw-r--r--pu.out.c9
1 files changed, 7 insertions, 2 deletions
diff --git a/pu.out.c b/pu.out.c
index 330e6f0..4d0c9af 100644
--- a/pu.out.c
+++ b/pu.out.c
@@ -3,14 +3,19 @@
#pragma clang diagnostic ignored "-Wreturn-type"
#pragma clang diagnostic ignored "-Wc23-extensions"
+// clang-format off
#define S 65536
#define H !--c?
#define W case
#define Q goto M;
-m[S],c,a;pu(){while((c=m[m[7]++]))H*m=m[m[7]++]:c--<9?a?m[c]=*m:0:8>(c-=8)?*m=m[c]:!(c-=8)?m[m[1]]=*m:H*m=a:H a+=*m:H a-=*m:H a=!a:H a=0:0;}
-char *R="hlt\0 ar1\2 ar2\3 ar3\4 ar4\5 ar5\6 ar6\7 ar7\x8 ar8\x9 r1a\xA r2a\xB r3a\xC r4a\xD r5a\xE r6a\xF r7a\20 r8a\21 mem\22 aca\23 add\24 sub\25 not\26 clr\27";K;as(char*I,int*O){char*V=R;while((K=*I)){V=R;switch(K){case 32:case 10:case 9:I++;Q}while(*V)V+=3,(strncmp(V-3,I,3)?:({*O++=*V;I+=3;Q})),V+=2;strncmp("con ",I,4)?:({*O++=1,*O++=atoi(I+=4);while(*I>47&*I<58)I++;Q});return 1;M:}return 0;}
+#define J while
+m[S],c,a;pu(){J((c=m[m[7]++]))H*m=m[m[7]++]:c--<9?!a?m[c]=*m:0:8>(c-=8)?*m=m[c]:!(c-=8)?m[m[1]]=*m:H*m=a:H a+=*m:H a-=*m:H a=!a:H a=0:0;}char R[]={
+#embed"t"
+};K;as(char*I,int*O){char*V=R;J((K=*I)){V=R;switch(K){W 32:W 10:W 9:I++;Q;W 35:J(*++I!=10);Q}strncmp("con ",I,4)?:({*O++=1,*O++=atoi(I+=4);J(*I>47&*I<58)I++;Q});J(*V)V+=3,(strncmp(V-3,I,3)?:({*O++=*V;I+=3;Q})),V+=2;return 1;M:}return 0;}
+// clang-format on
#undef S
#undef H
+#undef J
#undef Q
#undef W \ No newline at end of file