ocaml/byterun/rotatecursor.h

34 lines
1.4 KiB
C

/***********************************************************************/
/* */
/* Objective Caml */
/* */
/* Damien Doligez, projet Para, INRIA Rocquencourt */
/* */
/* Copyright 1996 Institut National de Recherche en Informatique et */
/* Automatique. Distributed only by permission. */
/* */
/***********************************************************************/
/* $Id$ */
/* Cursor rotation for MPW tools (ocamlrun and ocamlyacc) */
#ifndef _rotatecursor_
#define _rotatecursor_
/* [have_to_interact] will be magically set to 1 when the time comes to
call [rotatecursor_action]. */
extern int volatile have_to_interact;
/* [*p1] and [have_to_interact] will be set to 1 when the time comes to
call [rotatecursor_action]. If p1 is not used, pass it as NULL.
*/
void rotatecursor_init (int volatile *p1);
/* [reverse] is 0 to rotate the cursor clockwise, anything else to
rotate counterclockwise. This function always returns 0.
*/
int rotatecursor_action (int reverse);
#endif /* _rotatecursor_ */