Scol » Lib2D GTK » Utils_g

/*! \file scol.h

*	\brief Scol plugin definition API

*   \author Sylvain HUET

*/

/*

// Modifications History

//

//$ LB (13/06/2002) : added the OBJgetNewHandler function to the cbmachine

// $ IRI (19/12/2010) : version windows

// $ IRI (31/01/2011) : add MMneedMemory

*/

#ifdef __cplusplus

extern "C" {

#endif

#ifndef SCOLPLUGIN_H

#define SCOLPLUGIN_H

#include <windows.h>

#include <stdio.h>

#include <stdlib.h>

/* DEFINITIONS DE TYPES ET DE CONSTANTES

  ---------------------------------------*/

#define SizeWord 4

#define SizeHeader 3

#define NIL -1

/* Scol virtual machine */

struct Mmachine

{

  int *tape;     /* tape pointer                */

  int sizetape;  /* size of the tape            */

  int pp;        /* stack pointer               */

  int maxpp;     /* max value of pp             */

  int topheap;   /* top of stack                */

  int sigGC;     /* GC activation distance      */

  int h;         /* current header position     */

  int err;

  int *top;		 /* top of tape */

  /*$BLG - v5.22: Add*/

  int lckdGC;	 /* Locked GC flag*/

};

typedef struct Mmachine *mmachine;

/* masq for MMmalloc : object table or other buffer */

#define TYPETAB 1

#define TYPEBUF 0

/* errors definition */

#define MERREND     1

#define MERROK      0

#define MERRMEM    -1

#define MERRTYP    -2

#define MERRRET    -3

#define MERRNUL    -4

#define MERRNF     -5

#define MERRLINK   -6

#define MERRFULL   -7

#define MERRUNKNOWN -8

#define MERRTOOLARGE -9

#define MERREP        -10

#define MERRFILE      -11

#define MERRCLOSE     -12

/*$BLG - v5.22: Add*/

#define MERRCHNLDWN   -13

/* offsets object definition */

#define OFFSCCUR 0

#define OFFOBJMAG   0

#define OFFOBJCHN   1

#define OFFOBJTYP   2

#define OFFOBJHAND  3

#define OFFOBJTPERE 4

#define OFFOBJHPERE 5

#define OFFOBJREF0  6

#define OFFOBJUSER0 7

/* console messages mask definition */

#define MSKFOO     1

#define MSKRUNTIME 2

#define MSKWARNING 4

#define MSKTRACE   8

#define MSKDEBUG   16

/* predefined Scol types */

#define TYPVAR    -1

#define TYPCONS   -2

#define TYPTYPE   -3

#define TYPFIELD  -4

#define TYPSTRUC  -5

#define TYPCONS0  -6

#define TYPCOM    -7

#define TYPCOMV   -8

/* Files management in Scol

  ------------------------------*/

#define SIZESIGN 1024

struct Packdir

{

	char path[SIZESIGN];		/* end by '/'*/

	int quota;					/* -1: read only, 0: unlimited*/

	struct Packdir *next;

};

typedef struct Packdir *packdir;

#define TYPESNONE  0

#define TYPESLOGIC 1

/*

 * Exported Kernel functions to plugin

  ----------------------------------------------*/

struct CBmachine

{

  int  (*MMpush)(mmachine m, int val);

  int  (*MMpushNoGC)(mmachine m, int val);

  int  (*MMpull)(mmachine m);

  int  (*MMgetPP)(mmachine m);

  void (*MMsetPP)(mmachine m,int i);

  int  (*MMget)(mmachine m,int i);

  void (*MMset)(mmachine m,int i,int v);

  int  (*MMgetglobal)(mmachine m,int i);

  void (*MMsetglobal)(mmachine m,int i,int v);

  int  (*MMgetbase)(mmachine m,int b,int i);

  void (*MMsetbase)(mmachine m,int b,int i,int v);

  int  (*MMfetch)(mmachine m,int s,int i);

  void (*MMstore)(mmachine m,int s,int i,int v);

  int* (*MMstart)(mmachine m,int s);

  int  (*MMsize)(mmachine m,int s);

  int  (*MMtype)(mmachine m,int s);

  char* (*MMstartstr)(mmachine m,int s);

  int  (*MMsizestr)(mmachine m,int s);

  void (*MMsetsizestr)(mmachine m,int s,int size);

  int  (*MMmalloc)(mmachine m, int size, int type);

  int  (*MMmallocCLR)(mmachine m, int size, int type);

  int  (*Mpushstrbloc)(mmachine m,char *buf);

  int  (*MBdeftab)(mmachine m);

  int  (*MBstrcat)(mmachine m);

  int  (*PKhardpak)(mmachine m, char *name,

                   int n, char **namefun, int (**fun)(mmachine z),

                   int *nargfun, char **typfun);

  int  (*PKloader)(mmachine m,char *name,char *simplename);

  int  (*SPfindfile)(packdir p,char *sign,int *size,char *path);

  int  (*SPaddfile)(packdir p,char *sign,int size,char *path);

  int  (*SCgetsrvsocket)(mmachine m, int server);

  int  (*SCgetsocket)(mmachine m, int channel);

  int  (*Mcutting)(char *comm, char **argv);

  void (*MMechostr)(int i,char *buf,...);

  size_t (*fread)(void* buf,size_t i,size_t j,FILE *f);

  packdir Firstpack;

  int  (*OBJcreate)(mmachine m,int typ,int handsys,int typpere,int handsyspere);

  int  (*OBJaddreflex)(mmachine m,int typ, int num);

  int  (*OBJbeginreflex)(mmachine m,int typ,int handsys,int num);

  int  (*OBJdel)(mmachine m,int p,int flag);

  int  (*OBJdestroy)(mmachine m, int typ,int handsys,int objm,int flag);

  int  (*OBJdelTH)(mmachine m,int typ,int handsys);

  int  (*OBJcallreflex)(mmachine m,int nbarg);

  int  (*OBJregister)(int nbrefl,int recrefl,int (*destroy)(mmachine m,int handsys,int objm),char *name);

  int  (*OBJtypebyname)(char *name);

  int  (*OBJdefEvent)(int event,int (*cbevent)(mmachine m,int hwnd, unsigned msg,

				              int wParam,int lParam,int *ret));

  int  (*OBJgetUserEvent)();

  void* (*SCgetExtra)(char *funcname);

  char* (*stdloadJpg)(char *name,int *w,int *h);

  int  (*OBJdelTM)(mmachine m,int typ,int q);

  int  (*OBJfindTH)(mmachine m,int typ,int handsys);

  int  (*OBJfindTM)(mmachine m,int typ,int objm);

  int (*Mpushstrblocn)(mmachine m,char *buf, int n);

  int (*Minterpreter)(mmachine m);

  int (*Msearchinsyspak)(mmachine m, char *name);

  int (*MBstrcatn)(mmachine m);

  int (*Buffer2texture)(mmachine m, char *buffer, int width, int height);

  void (*MMputs)(int i, const char* text);

  /*$ LB (13/06/2002)*/

  int (*OBJgetNewHandler)();

int (*MMneedMemory)(mmachine m,int size,int realsize); /* $Iri */

};

typedef struct CBmachine *cbmachine;

extern cbmachine ww;

#define SCOLinitplugin(X) ww=X

#define MMpush (ww->MMpush)

#define MMpushNoGC (ww->MMpushNoGC)

#define MMpull (ww->MMpull)

#define MMgetPP (ww->MMgetPP)

#define MMsetPP (ww->MMsetPP)

#define MMget (ww->MMget)

#define MMset (ww->MMset)

#define MMgetglobal (ww->MMgetglobal)

#define MMsetglobal (ww->MMsetglobal)

#define MMgetbase (ww->MMgetbase)

#define MMsetbase (ww->MMsetbase)

#define MMfetch (ww->MMfetch)

#define MMstore (ww->MMstore)

#define MMstart (ww->MMstart)

#define MMsize (ww->MMsize)

#define MMtype (ww->MMtype)

#define MMstartstr (ww->MMstartstr)

#define MMsizestr (ww->MMsizestr)

#define MMsetsizestr (ww->MMsetsizestr)

#define MMmalloc (ww->MMmalloc)

#define MMmallocCLR (ww->MMmallocCLR)

#define Mpushstrbloc (ww->Mpushstrbloc)

#define MBdeftab (ww->MBdeftab)

#define MBstrcat (ww->MBstrcat)

#define PKhardpak (ww->PKhardpak)

#define PKloader (ww->PKloader)

#define SPfindfile (ww->SPfindfile)

#define SPaddfile (ww->SPaddfile)

#define SCgetsrvsocket (ww->SCgetsrvsocket)

#define SCgetsocket (ww->SCgetsocket)

#define Mcutting (ww->Mcutting)

#define MMechostr (ww->MMechostr)

/*#define fread (ww->fread)*/

#define Firstpack (ww->Firstpack)

#define OBJcreate (ww->OBJcreate)

#define OBJaddreflex (ww->OBJaddreflex)

#define OBJbeginreflex (ww->OBJbeginreflex)

#define OBJdel (ww->OBJdel)

#define OBJdestroy (ww->OBJdestroy)

#define OBJdelTH (ww->OBJdelTH)

#define OBJcallreflex (ww->OBJcallreflex)

#define OBJregister (ww->OBJregister)

#define OBJtypebyname (ww->OBJtypebyname)

#define OBJdefEvent (ww->OBJdefEvent)

#define OBJgetUserEvent (ww->OBJgetUserEvent)

#define SCgetExtra (ww->SCgetExtra)

#define stdloadJpg (ww->stdloadJpg)

#define OBJdelTM (ww->OBJdelTM)

#define OBJfindTH (ww->OBJfindTH)

#define OBJfindTM (ww->OBJfindTM)

#define Mpushstrblocn (ww->Mpushstrblocn)

#define Minterpreter (ww->Minterpreter)

#define Msearchinsyspak (ww->Msearchinsyspak)

#define MBstrcatn (ww->MBstrcatn)

#define Buf2Tex (ww->Buffer2texture)

#define MMputs (ww->MMputs)

/*$ LB (13/06/2002)*/

#define OBJgetNewHandler (ww->OBJgetNewHandler)

#define MMneedMemory (ww->MMneedMemory) /* $Iri */

#endif

/*

        SCOLPLUGIN.H . 1996-99 . Sylvain HUET

         definitions pour les plugins Scol

*/

#ifndef SCOLPLUGIN_H

#define SCOLPLUGIN_H

#include <stdio.h>

#include <stdlib.h>

/* DEFINITIONS DE TYPES ET DE CONSTANTES

  ---------------------------------------*/

/* $iri  -> */

#define SizeWord 4

#define SizeHeader 3

/* <- $iri */

#define NIL -1

/* machine virtuelle Scol */

struct Mmachine

{

  int *tape;     /* pointeur vers la bande       */

  int sizetape;  /* taille de la bande (en mots) */

  int pp;        /* pointeur de pile             */

  int maxpp;     /* valeur max de pp             */

  int topheap;   /* sommet du tas                */

  int sigGC;     /* distance declenchant le GC   */

  int h;         /* position header courant      */

  int err;

  int *top;		 /* top of tape */ /* add by  $iri */

};

typedef struct Mmachine *mmachine;

extern mmachine mm;

/* masque pour MMmalloc : tableau d'objets ou buffer quelconque */

#define TYPETAB 1

#define TYPEBUF 0

/* definitions des erreurs */

#define MERREND     1

#define MERROK      0

#define MERRMEM    -1

#define MERRTYP    -2

#define MERRRET    -3

#define MERRNUL    -4

#define MERRNF     -5

#define MERRLINK   -6

#define MERRFULL   -7

#define MERRUNKNOWN -8

#define MERRTOOLARGE -9

/* definition des offsets objets */

#define OFFOBJMAG   0

#define OFFOBJCHN   1

#define OFFOBJTYP   2

#define OFFOBJHAND  3

#define OFFOBJTPERE 4

#define OFFOBJHPERE 5

#define OFFOBJREF0  6

#define OFFOBJUSER0 7

/* definitions des masques de message console */

#define MSKFOO     1

#define MSKRUNTIME 2

#define MSKWARNING 4

#define MSKTRACE   8

#define MSKDEBUG   16

/* types Scol predefinis */

#define TYPVAR    -1

#define TYPCONS   -2

#define TYPTYPE   -3

#define TYPFIELD  -4

#define TYPSTRUC  -5

#define TYPCONS0  -6

#define TYPCOM    -7

#define TYPCOMV   -8

/* GESTION DES FICHIERS EN SCOL

  ------------------------------*/

#define SIZESIGN 1024

struct Packdir

{

  char path[SIZESIGN];  /* se termine par '/' */

  int quota;   /* -1: read only, 0: unlimited */

  struct Packdir *next;

};

typedef struct Packdir *packdir;

#define TYPESNONE  0

#define TYPESLOGIC 1

/* FONCTIONS DU KERNEL EXPORTEES VERS LE PLUGIN

  ----------------------------------------------*/

#ifdef __cplusplus

extern "C" {

#endif

int  MMpush (mmachine m, int val);

int  MMpushNoGC (mmachine m, int val);

int  MMpull(mmachine m);

int  MMgetPP(mmachine m);

void MMsetPP(mmachine m,int i);

int  MMget(mmachine m,int i);

void MMset(mmachine m,int i,int v);

int  MMgetglobal(mmachine m,int i);

void MMsetglobal(mmachine m,int i,int v);

int  MMgetbase(mmachine m,int b,int i);

void MMsetbase(mmachine m,int b,int i,int v);

int  MMfetch(mmachine m,int s,int i);

void MMstore(mmachine m,int s,int i,int v);

int* MMstart(mmachine m,int s);

int  MMsize(mmachine m,int s);

int  MMtype(mmachine m,int s);

char* MMstartstr(mmachine m,int s);

int  MMsizestr(mmachine m,int s);

void MMsetsizestr(mmachine m,int s,int size);

int  MMmalloc(mmachine m, int size, int type);

int  MMmallocCLR(mmachine m, int size, int type);

int  Mpushstrbloc(mmachine m,char *buf);

int  MBdeftab(mmachine m);

int  MBstrcat(mmachine m);

void MMechostr(int i,char *buf,...);

int  SPfindfile(packdir p,char *sign,int *size,char *path);

int  SPaddfile(packdir p,char *sign,int size,char *path);

int  SCgetsocket(mmachine m, int channel);

int  SCgetsrvsocket(mmachine m, int server);

int  MBstrcatn(mmachine m);

int  Minterpreter(mmachine m);

int  PKhardpak(mmachine m, char *name,

                 int n, char **namefun, int (**fun)(mmachine z),

                 int *nargfun, char **typfun);

int  PKloader(mmachine m,char *name,char *simplename);

size_t fread(void* buf,size_t i,size_t j,FILE *f);

int MMneedMemory(mmachine m,int size,int realsize); /* $Iri */

#ifdef __cplusplus

}

#endif

int  Mcutting(char *comm, char **argv);

#ifdef __cplusplus

extern "C" {

#endif

int  OBJcreate(mmachine m,int typ,int handsys,int typpere,int handsyspere);

int  OBJaddreflex(mmachine m,int typ, int num);

int  OBJbeginreflex(mmachine m,int typ,int handsys,int num);

int  OBJdel(mmachine m,int p,int flag);

int  OBJdestroy(mmachine m, int typ,int handsys,int objm,int flag);

int  OBJdelTH(mmachine m,int typ,int handsys);

int  OBJcallreflex(mmachine m,int nbarg);

int  OBJregister(int nbrefl,int recrefl,int (*destroy)(mmachine m,int handsys,int objm),char *name);

int  OBJtypebyname(char *name);

int  OBJdefEvent(int event,int (*cbevent)(mmachine m,int hwnd, unsigned msg,

				            int wParam,int lParam,int *ret));

int  OBJgetUserEvent();

int  OBJdelTM(mmachine m,int typ,int q);

int  OBJfindTH(mmachine m,int typ,int handsys);

int  OBJfindTM(mmachine m,int typ,int objm);

extern int (*mt_start)(int per,int param,int (*fun)(int i,int param));

extern int (*mt_del)(int i);

#ifdef __cplusplus

}

#endif

char* stdloadJpg(char *name,int *w,int *h);

int  Mpushstrblocn(mmachine m,char *buf, int n);

int  Msearchinsyspak(mmachine m, char *name);

int  Buffer2texture(mmachine m, char *buffer, int width, int height);

void* objdd_get_buffer (mmachine m, int mobj);

int _CRbitmap (mmachine m);

/* old ones

int (*MMpush)(mmachine m, int val);

int (*MMpushNoGC)(mmachine m, int val);

int (*MMpull)(mmachine m);

int (*MMgetPP)(mmachine m);

void (*MMsetPP)(mmachine m,int i);

int (*MMget)(mmachine m,int i);

void (*MMset)(mmachine m,int i,int v);

int (*MMgetglobal)(mmachine m,int i);

void (*MMsetglobal)(mmachine m,int i,int v);

int (*MMgetbase)(mmachine m,int b,int i);

void (*MMsetbase)(mmachine m,int b,int i,int v);

int (*MMfetch)(mmachine m,int s,int i);

void (*MMstore)(mmachine m,int s,int i,int v);

int* (*MMstart)(mmachine m,int s);

int (*MMsize)(mmachine m,int s);

int (*MMtype)(mmachine m,int s);

char* (*MMstartstr)(mmachine m,int s);

int (*MMsizestr)(mmachine m,int s);

void (*MMsetsizestr)(mmachine m,int s,int size);

int (*MMmalloc)(mmachine m, int size, int type);

int (*MMmallocCLR)(mmachine m, int size, int type);

int (*Mpushstrbloc)(mmachine m,char *buf);

int (*MBdeftab)(mmachine m);

int (*MBstrcat)(mmachine m);

int (*PKhardpak)(mmachine m, char *name,

              int n, char **namefun, int (**fun)(mmachine z)

              , int *nargfun, char **typfun);

int (*PKloader)(mmachine m,char *name,char *simplename);

int (*SPfindfile)(packdir p,char *sign,int *size,char *path);

int (*SPaddfile)(packdir p,char *sign,int size,char *path);

int (*SCgetsrvsocket)(mmachine m, int server);

int (*SCgetsocket)(mmachine m, int channel);

int (*Mcutting)(char *comm, char **argv);

void (*MMechostr)(int i,char *buf,...);

int (*fread)(char* buf,int i,int j,FILE *f);

packdir Firstpack;

int (*OBJcreate)(mmachine m,int typ,int handsys,int typpere,int handsyspere);

int (*OBJaddreflex)(mmachine m,int typ, int num);

int (*OBJbeginreflex)(mmachine m,int typ,int handsys,int num);

int (*OBJdel)(mmachine m,int p,int flag);

int (*OBJdestroy)(mmachine m, int typ,int handsys,int objm,int flag);

int (*OBJdelTH)(mmachine m,int typ,int handsys);

int (*OBJcallreflex)(mmachine m,int nbarg);

int (*OBJregister)(int nbrefl,int recrefl,int (*destroy)(mmachine m,int handsys,int objm),char *name);

int (*OBJtypebyname)(char *name);

int (*OBJdefEvent)(int event,int (*cbevent)(mmachine m,HWND hwnd, unsigned msg,

				UINT wParam,LONG lParam,int *ret));

int (*OBJgetUserEvent)();

void* (*SCgetExtra)(char *funcname);

char* (*stdloadJpg)(char *name,int *w,int *h);

int (*OBJdelTM)(mmachine m,int typ,int q);

int (*OBJfindTH)(mmachine m,int typ,int handsys);

int (*OBJfindTM)(mmachine m,int typ,int objm);

int (*Mpushstrblocn)(mmachine m,char *buf, int n);

int (*Minterpreter)(mmachine m);

int (*Msearchinsyspak)(mmachine m, char *name);

int (*MBstrcatn)(mmachine m);

*/

#endif

/*

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/

*/

#ifndef __MAIN_H__

#define __MAIN_H__

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <math.h>

#include <libgen.h>

#include <glib.h>

#if ((defined __WIN32__) || (defined WIN32))

#include <windows.h>

#include "scol_plugin_win.h"

#else

#include "scol_plugin_lin.h"

#endif

#include "macros.h"

#define bullshit int (__cdecl *)(struct Mmachine *)

#define DEFAULT_STRING   "Untitle"

#endif  /* __MAIN_H__ */

/*

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 SCOLUTF8(string) g_locale_to_utf8 (string, -1, NULL, NULL, NULL)

/* $Iri : convert any string from utf-8 Don't forget to free after used !*/

#define UTF8SCOL(string) g_locale_from_utf8 (string, -1, NULL, NULL, NULL)

/* $Iri : length of the int (234 -> 3)*/

#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

/*

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/

*/

#ifndef __SCOL_GTK_MISC_H__

#define __SCOL_GTK_MISC_H__

#include "main.h"

#define GLIB_PCRE_PKG_NB         1

#endif  /* __SCOL_GTK_MISC_H__ */

/*

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/

*/

#ifndef __SCOL_GLIB_MISC_H__

#define __SCOL_GLIB_MISC_H__

#include <glib.h>

gboolean scol_glib_isabsolutepath (const gchar * p); /* return TRUE if a path is an absolute path */

/* The result of these functions should NOT be freed ! */

const gchar * scol_glib_name_scolexe (); /* return the name of the executable (must not be modified or freed) */

const gchar * scol_glib_get_env (const gchar *v); /* return the value of an environment variable */

const gchar * scol_glib_get_hostname (); /* return the host name  (must not be modified or freed) */

const gchar * scol_glib_get_username (); /* return the name of the current user */

/* The result of these functions should be freed when it is no longer needed ! */

gchar * scol_glib_filename_scol ();      /* return the absolute path of the current Scol. Use g_free */

gchar * scol_glib_dirname_scol ();       /* return the absolute path of the directory of Scol. Use g_free */

gchar * scol_glib_basename (const gchar *f); /* return the basename (the file) of any path. Use g_free */

char * scol_glib_get_sizefordisplay (int v);    /* return a comprehensive size string. Use g_free */

#endif  /* __SCOL_GLIB_MISC_H__ */

/*

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/

*/

#include "../include/scol_glib_pregex.h"

/*

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/

*/

#include "../include/scol_glib_misc.h"

/**

 * \brief Returns the name of the executable Scol. The filename should NOT be freed

 * It should return "scol.exe" (or "unsmwin.exe" on the old Scol version) on MS Windows

 * On GNU/ Linux, it should return "scol" or "usmunix"

 * \return gchar * : this filename

 */

const gchar * scol_glib_name_scolexe ()

{

    return g_get_application_name ();

}

/**

 * \brief Returns the filename of the current Scol. The filename should be freed with g_free

 * \return gchar * : this filename

 */

gchar * scol_glib_filename_scol ()

{

    return g_find_program_in_path (scol_glib_name_scolexe ());

}

/**

 * \brief Returns the directory of the current Scol. The filename should be freed with g_free

 * \return gchar * : this filename

 */

gchar * scol_glib_dirname_scol ()

{

    gchar * f = scol_glib_filename_scol ();

    gchar * p;

    p = g_path_get_dirname (f);

    g_free (f);

    return p;

}

/**

 * \brief Returns the basename of any filename. The result should be freed with g_free

 * \param : const gchar * : any filename

 * \return gchar * : this base name

 */

gchar * scol_glib_basename (const gchar *f)

{

    return g_path_get_basename (f);

}

/**

 * \brief Returns the value of any environment variable or NULL if not found

 * \param  const gchar * : an environment variable, without "$" on Linux and without "%" on Windows

 * \return const gchar * : the value or NULL if not ound

 * This is an alias of g_getenv ()

 * The result should not be freed

 */

const gchar * scol_glib_get_env (const gchar *v)

{

    return g_getenv (v);

}

/**

 * \brief Returns the name ofthe current user

 * \return const gchar * : the name

 * This is an alias of g_get_user_name ()

 */

const gchar * scol_glib_get_username ()

{

   return g_get_user_name ();

}

/**

 * \brief Returns the host name. Don't free !

 * \return const gchar * : the result.

 */

const gchar * scol_glib_get_hostname ()

{

    return g_get_host_name ();

}

/**

 * \brief Returns TRUE if the given path is an absolute path, otherwise FALSE

 * \param const gchar * : any path

 * \return gboolean

 */

gboolean scol_glib_isabsolutepath (const gchar * p)

{

    return g_path_is_absolute (p);

}

/**

 * \brief Returns a string with an easy sizenumber (from bytes to KB, MO, ..)

 * \param int : an integer (by example a Scol value)

 * \return char *

 * The result should be freed with g_free

 */

char * scol_glib_get_sizefordisplay (int v)

{

    return g_format_size_for_display ((goffset) v);

}

EXPORTS

    scol_glib_basename @1

    scol_glib_dirname_scol @2

    scol_glib_filename_scol @3

    scol_glib_get_env @4

    scol_glib_get_hostname @5

    scol_glib_get_sizefordisplay @6

    scol_glib_get_username @7

    scol_glib_isabsolutepath @8

    scol_glib_name_scolexe @9

EXPORTS

    scol_glib_basename @1

    scol_glib_dirname_scol @2

    scol_glib_filename_scol @3

    scol_glib_get_env @4

    scol_glib_get_hostname @5

    scol_glib_get_sizefordisplay @6

    scol_glib_get_username @7

    scol_glib_isabsolutepath @8

    scol_glib_name_scolexe @9

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>

<CodeBlocks_project_file>

	<FileVersion major="1" minor="6" />

	<Project>

		<Option title="utils_g" />

		<Option pch_mode="2" />

		<Option compiler="gcc" />

		<Build>

			<Target title="Debug">

				<Option output="bin\Debug\libutils_g" prefix_auto="1" extension_auto="1" />

				<Option object_output="obj\Debug\" />

				<Option type="3" />

				<Option compiler="gcc" />

				<Option createDefFile="1" />

				<Option createStaticLib="1" />

				<Compiler>

					<Add option="-g" />

				</Compiler>

			</Target>

			<Target title="Release">

				<Option output="bin\libutils_g" prefix_auto="1" extension_auto="1" />

				<Option object_output="obj\" />

				<Option type="3" />

				<Option compiler="gcc" />

				<Option createDefFile="1" />

				<Option createStaticLib="1" />

				<Compiler>

					<Add option="-O2" />

				</Compiler>

				<Linker>

					<Add option="-s" />

				</Linker>

			</Target>

		</Build>

		<Compiler>

			<Add option="-Wall" />

		</Compiler>

		<Unit filename="main.c">

			<Option compilerVar="CC" />

		</Unit>

		<Extensions>

			<code_completion />

			<debugger />

		</Extensions>

	</Project>

</CodeBlocks_project_file>