C like Algol

like_pascal.h

/*
 * if ... then
 *   ...
 * elif ... then
 *   ...
 * else
 *   ...
 * end
 */
#define if          if(
#define then        ){
#define elif        ;}else if
#define else        ;}else{
#define end         ;}

/*
 * repeat
 *   ...
 * until ... done
 */
#define repeat      do{
#define until       ;}while(!(
#define done        ));

/*
 * while ... do
 *   ...
 * end
 */
#define while       while(
#define do          ){

/*
 * for ... do
 *   ...
 * end
 */
#define for         for(

/*
 * switch ... in
 *   case ...: ...; break;
 *   default: ...
 * end
 */
#define in          {

/*
 * int func(...)
 * begin
 *   ...
 * end
 */
#define begin       {

/*
 * struct ... begin
 *   ...
 * end
 *
 * union ... begin
 *   ...
 * end
 */

#define nil         ((void*)0)

#define and         &&
#define or          ||

// static void freep(void **ptr) { free(*ptr); }
#define auto(fn)    __attribute__((cleanup(fn)))