2004/burley compiles with clang + try fixing it

main() had one arg, a char *, and this is against clang requirements.

There was no inclusion of setjmp.h and so the longjmp() function
implicitly returned int and was allowed to take the wrong number of
args. It should return void however and this caused a problem with
binary expressions. The comma operator has been used for this but it
might be a problem in that by having ,1 after each it will make
expressions that could turn out to be false to be incorrect.

The longjmp() was being called with one arg which was an element of an
int[4][1000]. This is obviously incorrect but at some point it worked.
Without the prototype this is not a problem but both before (gcc) and
after the compiler fix (with gcc and clang) it did not work with linux
(in this case fedora) or macOS. The code as it now stands has the same
problem as it did before the compilation fix: it lets you input a bet
but then it does not accept any input after that; it prints nothing more
but it should print a new hand. This issue has been put in bugs.md.

My guess (in my tired head) is it has to do with the abuse of the
longjmp() and/or the comma operator making the expressions always 1 (at
least that side of the expression, thus if it gets to the longjmp() part
it will always be 1). Perhaps it should be ,0? I don't know but I might
try that next (I would guess it should be whatever an implicit int would
return without a return statement but that's just a guess). But given
that it stops working at the same spot perhaps it's not the comma
operator. Maybe the function needs to be broken up into several but I
don't know and that might or might not be worth the effort.

Finally it returned main() itself but now it returns poke() which has
the body of what main used to be.

See bugs.md for more details.

2004/burley/Makefile

@@ -64,7 +64,7 @@ X11_INCDIR= /opt/X11/include
 #
 #CSILENCE=
 CSILENCE= -Wno-bitwise-op-parentheses -Wno-char-subscripts -Wno-error \
-	-Wno-implicit-function-declaration -Wno-int-to-pointer-cast
+	-Wno-implicit-function-declaration -Wno-int-to-pointer-cast -Wno-unused-value
 
 # Common C compiler warning flags
 #
@@ -98,7 +98,7 @@ CDEFINE=
 
 # Include files that are needed to compile
 #
-CINCLUDE=
+CINCLUDE= -include stdio.h -include setjmp.h -include string.h -include time.h -include stdlib.h
 #CINCLUDE= -include stdlib.h
 #CINCLUDE= -include stdio.h
 #CINCLUDE= -include stdlib.h -include stdio.h

2004/burley/README.md

@@ -11,19 +11,31 @@
 make
 ```
 
-### To run:
+[Cody Boone Ferguson](/winners.html#Cody_Boone_Ferguson) fixed this to compile with
+clang which requires that the first arg of main() be an int and the remaining
+args to be a `char **`. He notes that he could not get the entry to work with
+gcc before the fix and it does not work with clang either; see
+[/bugs.md](/bugs.md) for information here. Thank you Cody for your assistance!
+
+
+
+## To run:
 
 ```sh
 ./burley
 ```
 
-### Try:
+NOTE: you need to input a number first. See judges' comments below for
+information on how to play.
+
+
+## Try:
 
 ```sh
 echo "Do or do not. There is no try."
 ```
 
-## Judges' comments
+## Judges' comments:
 
 This is a draw poker program.  You start with $100.  Input alternates
 between your bet and which cards to keep.  Example:

2004/burley/burley.c

@@ -1,77 +1,78 @@
 char a[80];
-int e[4],g[5],c=100,h,i,j,k,b,f,s,t,p[4][1000];
-int main(char*d){
-return main((char*)(srand(time(&h)),
+int e[4],g[5],c=100,h,i,j,k,b,f,s,t;
+jmp_buf p[4];
+int poke(char *d){
+return poke((char*)((srand(time((time_t*)&h)),
 setjmp(p[2]),
-(k=atoi((gets(a),
+(k=atoi((fgets(a,sizeof a, stdin),
 a+strspn(a," -"))))
 &&(b=k),
 b||++b,
 j+=-j,
 d=(char*)(&j),
 setjmp(p[1]),
-1<<1>j&&(k&=4>>3,
+1<<1>j&&((k&=4>>3,
 i=1<<k,
 h<<=i+j,
 setjmp(p[0]),
-(h+=*d++-h)&&(-'1'^(h-='1'))&&(i<<=4,
+(h+=*d++-h)&&(-'1'^(h-='1'))&&((i<<=4,
 setjmp(p[3]),
-(i||!++i)&&(h--||(k|=i),
+(i||!++i)&&((h--||(k|=i),
 i/=2,
-longjmp(p[3])),
-longjmp(p[0])),
+longjmp(p[3],4)),1),
+longjmp(p[0],1)),1),
 k^=-1,
 k+=1<<037,
 setjmp(p[3]),
-k&&((--i<5&&1&k)&&(s=(rand()>>9)%0x4,
+k&&(((--i<5&&1&k)&&(s=(rand()>>9)%0x4,
 setjmp(p[0]),
 t+=(rand()>>3)%015-t,
-e[s]&(1<<t)&&longjmp(p[0]),
+e[s]&(1<<t)&&(longjmp(p[0],1),1),
 e[s]|=1<<t,
 g[i]=t|++s<<"\004"["\004"[1]]|t),
 k>>=1,
 i+=1<<1,
-longjmp(p[3])),
+longjmp(p[3],4)),1),
 setjmp(p[0]),
 putchar(0x20+!putchar(012+"(.7-A,G+@*J)/"[(017&(i=g[4-k]))*013%13])),
-++k^005&&longjmp(p[0]),
+++k^005&&(longjmp(p[0],1),1),
 putchar('\n'),
 setjmp(p[3]),
 putchar(0x1F+!!putchar(("BCDHS"[g[--k]>>4]))),
-k&&longjmp(p[3]),
+k&&(longjmp(p[3],4),1),
 putchar('\n'),
 j+=1<<0,
-1^j||(d=(char*)gets(a)),
-longjmp(p[1])),
+1^j||(d=(char*)fgets(a,sizeof a, stdin)),
+longjmp(p[1],2)),1),
 s=1==(f=0),
 i=0<<1,
 setjmp(p[3]),
-i<4&&(j=i+1,
+i<4&&((j=i+1,
 setjmp(p[1]),
-j<5&&((017&g[j])>(g[i]&15)&&(k=g[i],
+j<5&&(((017&g[j])>(g[i]&15)&&(k=g[i],
 g[i]=g[j],
 g[j]=k),
 j++,
-longjmp(p[1])),
+longjmp(p[1],2)),1),
 i++,
-longjmp(p[3])),
+longjmp(p[3],4)),1),
 setjmp(p[0]),
-i--&&!((g[1+i]^g[i])>>4)&&longjmp(p[0]),
+i--&&!((g[1+i]^g[i])>>4)&&(longjmp(p[0],1),1),
 setjmp(p[1]),
---j&&(!(k=(g[j]&15)-(g[j-1]&017)+1)||(!(j-1)&&(8==-k)))&&longjmp(p[1]),
+--j&&(!(k=(g[j]&15)-(g[j-1]&017)+1)||(!(j-1)&&(8==-k)))&&(longjmp(p[1],2),1),
 s+=3*!j|!(++i^17),
 (j*=i*=4)&&(i=1),
 setjmp(p[3]),
-5-j<2&&(j=0,
+5-j<2&&((j=0,
 setjmp(p[1]),
-5-i>j&&((g[j]^g[j+1])&0xf?g[j]^=g[j]:(s+=((g[j]&0xf)>8&&f++,
+5-i>j&&(((g[j]^g[j+1])&0xf?g[j]^=g[j]:(s+=((g[j]&0xf)>8&&f++,
 !!g[j]*i)),
 j++,
-longjmp(p[1])),
+longjmp(p[1],2)),1),
 i++,
-longjmp(p[3])),
+longjmp(p[3],4)),1),
 s=1^s?"AACEDJQZHello World"[s]-'A':!!f,
-s+=(!i)*(6+12*s-!!s*(g[2]&017^0xa?8:-192)),
+s+=(!i)*(6+12*s-!!s*((g[2]&017)^0xa?8:-192)),
 s--,
 s*=b,
 printf("$%d (%d) \n",
@@ -79,12 +80,15 @@ c+=s,
 s+b),
 i=0,
 setjmp(p[0]),
-6>i&&(j=1,
+6>i&&((j=1,
 setjmp(p[1]),
-0<=j&&(e[i+j]^=*(i-j+e+(j<<1)),
+0<=j&&((e[i+j]^=*(i-j+e+(j<<1)),
 --j,
-longjmp(p[1])),
-i+=++i,
-longjmp(p[0])),
-longjmp(p[2])));
+longjmp(p[1],2)),1),
+i+=i+1,
+longjmp(p[0],1)),1),
+longjmp(p[2],3)),1));
 }
+int main(int argc, char**d){
+(void)argc;
+return poke((char*)d); }