view anagram/guisupport/action.cpp @ 8:ec2b657edf13

Add explicit lint-comment-style fallthrough annotations. GCC now assumes that if you don't have these you're making a mistake, which is annoying. XXX: This changeset updates the AG output files only (by hand) and is XXX: abusive - rebuilding them will erase the change. However, I need XXX: to get things to build before I can try to get AG to issue the XXX: annotations itself, so this seems like a reasonable expedient.
author David A. Holland
date Mon, 30 May 2022 23:51:43 -0400
parents 13d2b8934445
children
line wrap: on
line source

/*
 * AnaGram, A System for Syntax Directed Programming
 * Copyright 1997-2002 Parsifal Software. All Rights Reserved.
 * See the file COPYING for license and usage terms.
 *
 * action.cpp
 */

#include "action.h"

//#define INCLUDE_LOGGING
#include "log.h"


int AgAction::running = 0;

AgStack<AgAction> AgAction::startupStack;

AgAction actionObject(void (*function)()) {
  return AgSimpleAction(function);
}

void AgAction::startup() {
  LOGSECTION("AgAction::startup");
  running = 1;
  int n = startupStack.size();
  LOGV(n);
  int i;
  for (i = 0; i < n; i++) {
    startupStack[i].perform();
  }
  startupStack.discardData();
}

void AgAction::performDeferred() const {
  if (!running) {
    startupStack.push(*this);
    return;
  }
  LOGSECTION_OFF("AgAction::performDeferred");
  LOGV((int) kernel);
  if (kernel == 0) {
    return;
  }
  kernel->lock();
  AgActionEnqueueInGui(kernel);
}

void AgActionDispatchFromGui(AgAction::Kernel *kernel) {
  kernel->perform();
  if (kernel->unlock()) {
    delete kernel;
  }
}

void defer(void (*function)()) {
  actionObject(function).performDeferred();
}