СИ макросы понеслось

#define CLEANUPBLK(name) \
int __##name##_cleanup_code; \
{

#define CLEANUPBEG(name, val) \
} \
__##name##_cleanup_clean: \
__##name##_cleanup_code = val; \
__##name##_cleanup_select_clean: \
switch (__##name##_cleanup_code) \
{ \
  case val:

#define CLEANUPNEXT(name, val) \
  case val:

#define CLEANUPEND(name) \
  default: \
    goto __##name##_cleanup_break; \
    goto __##name##_cleanup_clean; \
    goto __##name##_cleanup_select_clean; \
} \
__##name##_cleanup_break:

#define CLEANUPALL(name) \
goto __##name##_cleanup_clean

#define CLEANUPBRK(name) \
goto __##name##_cleanup_break

#define CLEANUPSEL(name, val) \
__##name##_cleanup_code = val; \
goto __##name##_cleanup_select_clean

int main()
{
  CLEANUPBLK()
  {
     if (!init1())
       CLEANUPBRK();

     if (!init2())
       CLEANUPSEL(, 1);

     if (!init3())
       CLEANUPSEL(, 2);

     if (!init4())
       CLEANUPSEL(, 3);
     
     if (!some_func())
       CLEANUPALL();

     some_func2();
  }
  CLEANUPBEG(, 0)
  {
     clean4();
  }
  CLEANUPNEXT(, 3)
  {
     clean3();
  }
  CLEANUPNEXT(, 2)
  {
     clean2();
  }
  CLEANUPNEXT(, 1)
  {
     clean1();
  }
  CLEANUPEND();

  return 0;
}

Интересно узнать кто как решает данную проблему в языке си? init - берет ресурс, clean - освобождает ресурс.
PS: Раньше на си серьезно не писал, а писал на с++ и что то слишком много макросов начал использовать.