Esempio n. 1
0
*/	static void Set_Gob_Flag(REBGOB *gob, REBVAL *word)
/*
***********************************************************************/
{
	REBINT i;

	for (i = 0; Gob_Flag_Words[i]; i += 2) {
		if (VAL_WORD_CANON(word) == Gob_Flag_Words[i]) {
			REBCNT flag = Gob_Flag_Words[i+1];
			SET_GOB_FLAG(gob, flag);
			//handle mutual exclusive states
			switch (flag) {
				case GOBF_RESTORE:
					CLR_GOB_FLAGS(gob, GOBF_MINIMIZE, GOBF_MAXIMIZE);
					break;
				case GOBF_MINIMIZE:
					CLR_GOB_FLAGS(gob, GOBF_MAXIMIZE, GOBF_RESTORE);
					break;
				case GOBF_MAXIMIZE:
					CLR_GOB_FLAGS(gob, GOBF_MINIMIZE, GOBF_RESTORE);
					break;
			}
			break;
		}
	}
}
Esempio n. 2
0
File: t-gob.c Progetto: xqlab/r3
*/	static void Set_Gob_Flag(REBGOB *gob, REBVAL *word)
/*
***********************************************************************/
{
    REBINT i;

    for (i = 0; Gob_Flag_Words[i]; i += 2) {
        if (VAL_WORD_CANON(word) == Gob_Flag_Words[i]) {
            SET_GOB_FLAG(gob, Gob_Flag_Words[i+1]);
            break;
        }
    }
}