Scol » Lib2D GTK » Utils_g

/*

This source file is part of Scol

For the latest info, see http://www.scolring.org

Copyright (c) 2010 Stephane Bisaro, aka Iri <iri@irizone.net>

This program is free software; you can redistribute it and/or modify it under

the terms of the GNU Lesser General Public License as published by the Free Software

Foundation; either version 2 of the License, or (at your option) any later

version.

This program is distributed in the hope that it will be useful, but WITHOUT

ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS

FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public License along with

this program; if not, write to the Free Software Foundation, Inc., 59 Temple

Place - Suite 330, Boston, MA 02111-1307, USA, or go to

http://www.gnu.org/copyleft/lesser.txt

For others informations, please contact us from http://www.scolring.org/

*/

/*

// File: macros.h

// Temporary macros (mostly used by debugger agent)

// from F.J. Alberti

*/

#ifndef _MACROS_H_

#define _MACROS_H_

#define SAFEdelete(p)      { if (p) { free (p); (p) = NULL; } }

#define _SEPTRBIT            0x00000001

/* SE conversions*/

#define SEW2I(w)             ((w)>>1)

#define SEW2P(w)             ((w)>>1)

#define SEI2W(n)             ((n)<<1)

#define SEP2W(p)             ((p)<<1 | _SEPTRBIT)

#define MTOI( mot )			 ((mot)>>1)

#define MTOP( mot )		     ((mot)>>1)

#define ITOM( mot )			 ((mot)<<1)

#define PTOM( mot )			 (((mot)<<1)+1)

/*#ifndef SCOL_FLOAT_DEFINITION

typedef float          float32;

#define SCOL_FLOAT_DEFINITION

#endif*/

/* Invert two positions in the stack*/

#define INVERT(m, a, b)       {tmp_res=MMget(m,a);MMset(m,a,MMget(m,b));MMset(m,b,tmp_res);}

/*Stack management*/

#define SEDROP(m, n)         ((m)->pp += (n))

/* String management*/

#define SEPUSHSTR(m, s)      (Mpushstrbloc((m), (s)))

#define CHECK(m)			if ((tmp_res=m)) return tmp_res

/* #define CHAR2WCHAR(c)        (c == NIL ? NULL : (PtrObjWChar) MMstart (mm,((PtrObjVoid)MMstart(mm,c))->Buffer>>1))*/

/* $Iri : convert any string to utf-8 (should be used with gtk ...) Don't forget to free after used !*/

#define SIZEINT(x)  floor (log10 (x)) + 1

/* $ Iri : float support */

#define FSET(val, f)  {                 \

  float g = (f);                      \

  (val) = (*(int*)&g) & 0xfffffffe;     \

}

#define FGET(val)     (*(float*)&(val))

#endif