Re: The joy of FORTRAN

On Fri, 28 Feb 2025 17:47:19 -0700, Peter Flass wrote:

Imported one C program that was all macros. In hindsight it would have
been better just to rewrite it.

The one I'm thinking of had gems like

#define STRF_FN_DECL(obj) \
size_t strf_##obj (char *obuf, size_t olen, const char *fmt, \
void *data, list_t *list)
#define STRF_FN(obj) \
STRF_FN_DECL(obj) \
{ \
static list_t llist;          \
static struct obj##_struct o; \
                         \
if (list == NULL || list->data == NULL) { \
if ( data) { \
memcpy(&o, data, sizeof(o)); \
} else { \
memset(&o, 0, sizeof(o)); \
} \
if ( list ) { \
llist = *list; \
} \
llist.data = (void*)&o; \
list = &llist;     \
} \
  return (strfobj (list->data, list, obj##_map, obuf, olen, fmt)); \
}


#define MAP(nm,s,fmt,fn,sm, sfn) { #s, sizeof (#s)-1, \
offsetof (struct nm##_struct, s), fmt, fn, sm,
sfn }


Between the stringizing and concatenation operators good luck finding a
function that did stuff with foo. Using 4 characters was an extravagance;
most of his code didn't exceed 3 characters for variable names.

Now the irony: he had been a TA at UM and students who had him said he was
a stickler for well commented code. He personally never commented a line
of code as far as I could tell.