From 2786a26d3c2d5bac38668d54f2abe662ec37c053 Mon Sep 17 00:00:00 2001
From: Cody Boone Ferguson <53008573+xexyl@users.noreply.github.com>
Date: Sat, 18 Mar 2023 06:43:24 -0700
Subject: [PATCH] Fix 1993/jonth

With a mis-feature (I guess) of the C pre-processor that no longer works
the entry no longer compiled. It needs #define to define (imagine that! :-)
macros.
---
 1993/jonth/README.md |  6 ++++--
 1993/jonth/jonth.c   | 36 ++++++++++++++++++------------------
 2 files changed, 22 insertions(+), 20 deletions(-)

diff --git a/1993/jonth/README.md b/1993/jonth/README.md
index 3cf7a4015..35ba7a668 100644
--- a/1993/jonth/README.md
+++ b/1993/jonth/README.md
@@ -10,7 +10,9 @@
 
         make all
 
-NOTE: this entry might not compile with modern systems.
+
+[Cody Boone Ferguson](/winners.html#Cody_Boone_Ferguson) fixed this so that it
+will work with modern systems. Thank you Cody for your assistance!
 
 
 ### To run
@@ -34,7 +36,7 @@ This program is also an example of data abstraction.  The X array is
 after initialization hidden by the well defined macros t, u and F.
 
 This program is highly portable as it runs on a "Notebook" size SPARC.
-This program will not work on machines with sizeof(int)!=sizeof(void *).
+This program will not work on machines with `sizeof(int)!=sizeof(void *)`.
 
 Copyright (c) 1993, Landon Curt Noll & Larry Bassel.
 All Rights Reserved.  Permission for personal, educational or non-profit use is
diff --git a/1993/jonth/jonth.c b/1993/jonth/jonth.c
index dc69e10ff..d24933566 100644
--- a/1993/jonth/jonth.c
+++ b/1993/jonth/jonth.c
@@ -1,22 +1,22 @@
 #include <X11/Xlib.h>
-  G	long i,j
-  K	case
-  R	return 0
-  S(	x,y) for(x=0; x<y; x++)
-  I	S(i,10
-  z	I-6)B[t][u
-  t	(X[m].b[i].i+g)
-  u	(X[m].b[i].j+l)
-  M(	x,y) XFillRectangles(D,p,x,a,y);
-  s	B[i][j
-  W	=XCreateGC(D,p,4,L)
-  E(	W,_) k=0; I)S(j,22)if(W s]){ a[k].x=i*20; a[k].y=j*20+30; a[k].w=a[k].h=_; k++; }M(
-  A(	W,_) &&!B[W]; if(!j){ z]=1; R; } else{ N(m); _; v(0); }
-  Q	]=0; I-6&&j)j=
-  F	I-6)B[X[w].b[i].i+g][X[w].b[i].j+l
-  e(	x) break; K x:q(c,j,x);
-  H	(m){ G; I-6){ a[i].x=t*20; a[i].y=u*20+30; a[i].w=a[i].h=
-  v(	_) d(m); z+_]=1; R+1;
+#define  G	long i,j
+#define  K	case
+#define  R	return 0
+#define  S(	x,y) for(x=0; x<y; x++)
+#define  I	S(i,10
+#define  z	I-6)B[t][u
+#define  t	(X[m].b[i].i+g)
+#define  u	(X[m].b[i].j+l)
+#define  M(	x,y) XFillRectangles(D,p,x,a,y);
+#define  s	B[i][j
+#define  W	=XCreateGC(D,p,4,L)
+#define  E(	W,_) k=0; I)S(j,22)if(W s]){ a[k].x=i*20; a[k].y=j*20+30; a[k].w=a[k].h=_; k++; }M(
+#define  A(	W,_) &&!B[W]; if(!j){ z]=1; R; } else{ N(m); _; v(0); }
+#define  Q	]=0; I-6&&j)j=
+#define  F	I-6)B[X[w].b[i].i+g][X[w].b[i].j+l
+#define  e(	x) break; K x:q(c,j,x);
+#define  H	(m){ G; I-6){ a[i].x=t*20; a[i].y=u*20+30; a[i].w=a[i].h=
+#define  v(	_) d(m); z+_]=1; R+1;
 struct{
 	short x,y,w,h;
 } a[220],C;