Q - Equational Programming Language

Update of /cvsroot/q-lang/qt-q/src
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv15444/src

Modified Files:
	smokeqt.i 
Log Message:
fix 'deprecated conversion from string constant' warnings (gcc 4.2.1)

Index: smokeqt.i
===================================================================
RCS file: /cvsroot/q-lang/qt-q/src/smokeqt.i,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** smokeqt.i	8 Jan 2008 10:53:59 -0000	1.31
--- smokeqt.i	12 Mar 2008 11:03:53 -0000	1.32
***************
*** 2731,2736 ****
  
  struct conv_entry {
!   char *target;		// target (C/C++) type (NULL = end of list)
!   char *meth;		// method name for special cases (NULL for any)
    toc_func to_cval;	// Q -> C/C++ (inputs)
    fromc_func from_cval;	// C/C++ -> Q (outputs and return values)
--- 2731,2736 ----
  
  struct conv_entry {
!   const char *target;	// target (C/C++) type (NULL = end of list)
!   const char *meth;	// method name for special cases (NULL for any)
    toc_func to_cval;	// Q -> C/C++ (inputs)
    fromc_func from_cval;	// C/C++ -> Q (outputs and return values)

Update of /cvsroot/q-lang/q-faust/src
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv4523/src

Modified Files:
	faust.i 
Log Message:
fix 'deprecated conversion from string constant' warnings (gcc 4.2.1)

Index: faust.i
===================================================================
RCS file: /cvsroot/q-lang/q-faust/src/faust.i,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** faust.i	3 Jun 2006 08:59:26 -0000	1.17
--- faust.i	12 Mar 2008 10:51:34 -0000	1.18
***************
*** 216,220 ****
  struct ui_elem_t {
    ui_elem_type_t type;
!   char *label;
    float *zone;
    void *ref;
--- 216,220 ----
  struct ui_elem_t {
    ui_elem_type_t type;
!   const char *label;
    float *zone;
    void *ref;
***************
*** 775,779 ****
  struct stack_elem_t {
    int type;
!   char *label;
    int n;
    expr *xv;
--- 775,779 ----
  struct stack_elem_t {
    int type;
!   const char *label;
    int n;
    expr *xv;
***************
*** 789,793 ****
  }
  
! static int push(int type, char *label, int n, expr *xv)
  {
    if (stacksz+1 >= astacksz) {
--- 789,793 ----
  }
  
! static int push(int type, const char *label, int n, expr *xv)
  {
    if (stacksz+1 >= astacksz) {
***************
*** 806,810 ****
  }
  
! static int pop(int &type, char *&label, int &n, expr *&xv)
  {
    if (stacksz <= 0) return 0;
--- 806,810 ----
  }
  
! static int pop(int &type, const char *&label, int &n, expr *&xv)
  {
    if (stacksz <= 0) return 0;
***************
*** 828,832 ****
      expr x;
      int type;
!     char *label;
      expr *xv1 = (expr*)realloc(xv, (n+1)*sizeof(expr));
      if (xv1)
--- 828,832 ----
      expr x;
      int type;
!     const char *label;
      expr *xv1 = (expr*)realloc(xv, (n+1)*sizeof(expr));
      if (xv1)

Update of /cvsroot/q-lang/faust2pd/faust
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv17709/faust

Modified Files:
	puredata.cpp 
Log Message:
fix 'deprecated conversion from string constant' warnings (gcc 4.2.1)

Index: puredata.cpp
===================================================================
RCS file: /cvsroot/q-lang/faust2pd/faust/puredata.cpp,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** puredata.cpp	19 Oct 2007 09:44:40 -0000	1.2
--- puredata.cpp	12 Mar 2008 10:19:49 -0000	1.3
***************
*** 91,110 ****
    virtual ~UI() {}
  	
!   virtual void addButton(char* label, float* zone) = 0;
!   virtual void addToggleButton(char* label, float* zone) = 0;
!   virtual void addCheckButton(char* label, float* zone) = 0;
!   virtual void addVerticalSlider(char* label, float* zone, float init, float min, float max, float step) = 0;
!   virtual void addHorizontalSlider(char* label, float* zone, float init, float min, float max, float step) = 0;
!   virtual void addNumEntry(char* label, float* zone, float init, float min, float max, float step) = 0;
  
!   virtual void addNumDisplay(char* label, float* zone, int precision) = 0;
!   virtual void addTextDisplay(char* label, float* zone, char* names[], float min, float max) = 0;
!   virtual void addHorizontalBargraph(char* label, float* zone, float min, float max) = 0;
!   virtual void addVerticalBargraph(char* label, float* zone, float min, float max) = 0;
  	
!   virtual void openFrameBox(char* label) = 0;
!   virtual void openTabBox(char* label) = 0;
!   virtual void openHorizontalBox(char* label) = 0;
!   virtual void openVerticalBox(char* label) = 0;
    virtual void closeBox() = 0;
  	
--- 91,110 ----
    virtual ~UI() {}
  	
!   virtual void addButton(const char* label, float* zone) = 0;
!   virtual void addToggleButton(const char* label, float* zone) = 0;
!   virtual void addCheckButton(const char* label, float* zone) = 0;
!   virtual void addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step) = 0;
!   virtual void addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step) = 0;
!   virtual void addNumEntry(const char* label, float* zone, float init, float min, float max, float step) = 0;
  
!   virtual void addNumDisplay(const char* label, float* zone, int precision) = 0;
!   virtual void addTextDisplay(const char* label, float* zone, const char* names[], float min, float max) = 0;
!   virtual void addHorizontalBargraph(const char* label, float* zone, float min, float max) = 0;
!   virtual void addVerticalBargraph(const char* label, float* zone, float min, float max) = 0;
  	
!   virtual void openFrameBox(const char* label) = 0;
!   virtual void openTabBox(const char* label) = 0;
!   virtual void openHorizontalBox(const char* label) = 0;
!   virtual void openVerticalBox(const char* label) = 0;
    virtual void closeBox() = 0;
  	
***************
*** 145,172 ****
  protected:
    string path;
!   void add_elem(ui_elem_type_t type, char *label = NULL);
!   void add_elem(ui_elem_type_t type, char *label, float *zone);
!   void add_elem(ui_elem_type_t type, char *label, float *zone,
  		float init, float min, float max, float step);
!   void add_elem(ui_elem_type_t type, char *label, float *zone,
  		float min, float max);
  
  public:
!   virtual void addButton(char* label, float* zone);
!   virtual void addToggleButton(char* label, float* zone);
!   virtual void addCheckButton(char* label, float* zone);
!   virtual void addVerticalSlider(char* label, float* zone, float init, float min, float max, float step);
!   virtual void addHorizontalSlider(char* label, float* zone, float init, float min, float max, float step);
!   virtual void addNumEntry(char* label, float* zone, float init, float min, float max, float step);
  
!   virtual void addNumDisplay(char* label, float* zone, int precision);
!   virtual void addTextDisplay(char* label, float* zone, char* names[], float min, float max);
!   virtual void addHorizontalBargraph(char* label, float* zone, float min, float max);
!   virtual void addVerticalBargraph(char* label, float* zone, float min, float max);
    
!   virtual void openFrameBox(char* label);
!   virtual void openTabBox(char* label);
!   virtual void openHorizontalBox(char* label);
!   virtual void openVerticalBox(char* label);
    virtual void closeBox();
  	
--- 145,172 ----
  protected:
    string path;
!   void add_elem(ui_elem_type_t type, const char *label = NULL);
!   void add_elem(ui_elem_type_t type, const char *label, float *zone);
!   void add_elem(ui_elem_type_t type, const char *label, float *zone,
  		float init, float min, float max, float step);
!   void add_elem(ui_elem_type_t type, const char *label, float *zone,
  		float min, float max);
  
  public:
!   virtual void addButton(const char* label, float* zone);
!   virtual void addToggleButton(const char* label, float* zone);
!   virtual void addCheckButton(const char* label, float* zone);
!   virtual void addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step);
!   virtual void addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step);
!   virtual void addNumEntry(const char* label, float* zone, float init, float min, float max, float step);
  
!   virtual void addNumDisplay(const char* label, float* zone, int precision);
!   virtual void addTextDisplay(const char* label, float* zone, const char* names[], float min, float max);
!   virtual void addHorizontalBargraph(const char* label, float* zone, float min, float max);
!   virtual void addVerticalBargraph(const char* label, float* zone, float min, float max);
    
!   virtual void openFrameBox(const char* label);
!   virtual void openTabBox(const char* label);
!   virtual void openHorizontalBox(const char* label);
!   virtual void openVerticalBox(const char* label);
    virtual void closeBox();
  	
***************
*** 235,239 ****
  }
  
! inline void PdUI::add_elem(ui_elem_type_t type, char *label)
  {
    ui_elem_t *elems1 = (ui_elem_t*)realloc(elems, (nelems+1)*sizeof(ui_elem_t));
--- 235,239 ----
  }
  
! inline void PdUI::add_elem(ui_elem_type_t type, const char *label)
  {
    ui_elem_t *elems1 = (ui_elem_t*)realloc(elems, (nelems+1)*sizeof(ui_elem_t));
***************
*** 253,257 ****
  }
  
! inline void PdUI::add_elem(ui_elem_type_t type, char *label, float *zone)
  {
    ui_elem_t *elems1 = (ui_elem_t*)realloc(elems, (nelems+1)*sizeof(ui_elem_t));
--- 253,257 ----
  }
  
! inline void PdUI::add_elem(ui_elem_type_t type, const char *label, float *zone)
  {
    ui_elem_t *elems1 = (ui_elem_t*)realloc(elems, (nelems+1)*sizeof(ui_elem_t));
***************
*** 271,275 ****
  }
  
! inline void PdUI::add_elem(ui_elem_type_t type, char *label, float *zone,
  			  float init, float min, float max, float step)
  {
--- 271,275 ----
  }
  
! inline void PdUI::add_elem(ui_elem_type_t type, const char *label, float *zone,
  			  float init, float min, float max, float step)
  {
***************
*** 290,294 ****
  }
  
! inline void PdUI::add_elem(ui_elem_type_t type, char *label, float *zone,
  			  float min, float max)
  {
--- 290,294 ----
  }
  
! inline void PdUI::add_elem(ui_elem_type_t type, const char *label, float *zone,
  			  float min, float max)
  {
***************
*** 309,349 ****
  }
  
! void PdUI::addButton(char* label, float* zone)
  { add_elem(UI_BUTTON, label, zone); }
! void PdUI::addToggleButton(char* label, float* zone)
  { add_elem(UI_TOGGLE_BUTTON, label, zone); }
! void PdUI::addCheckButton(char* label, float* zone)
  { add_elem(UI_CHECK_BUTTON, label, zone); }
! void PdUI::addVerticalSlider(char* label, float* zone, float init, float min, float max, float step)
  { add_elem(UI_V_SLIDER, label, zone, init, min, max, step); }
! void PdUI::addHorizontalSlider(char* label, float* zone, float init, float min, float max, float step)
  { add_elem(UI_H_SLIDER, label, zone, init, min, max, step); }
! void PdUI::addNumEntry(char* label, float* zone, float init, float min, float max, float step)
  { add_elem(UI_NUM_ENTRY, label, zone, init, min, max, step); }
  
  // FIXME: addNumDisplay and addTextDisplay not implemented in Faust yet?
! void PdUI::addNumDisplay(char* label, float* zone, int precision) {}
! void PdUI::addTextDisplay(char* label, float* zone, char* names[], float min, float max) {}
! void PdUI::addHorizontalBargraph(char* label, float* zone, float min, float max)
  { add_elem(UI_H_BARGRAPH, label, zone, min, max); }
! void PdUI::addVerticalBargraph(char* label, float* zone, float min, float max)
  { add_elem(UI_V_BARGRAPH, label, zone, min, max); }
  
! void PdUI::openFrameBox(char* label)
  {
    if (!path.empty()) path += "/";
    path += mangle(label);
  }
! void PdUI::openTabBox(char* label)
  {
    if (!path.empty()) path += "/";
    path += mangle(label);
  }
! void PdUI::openHorizontalBox(char* label)
  {
    if (!path.empty()) path += "/";
    path += mangle(label);
  }
! void PdUI::openVerticalBox(char* label)
  {
    if (!path.empty()) path += "/";
--- 309,349 ----
  }
  
! void PdUI::addButton(const char* label, float* zone)
  { add_elem(UI_BUTTON, label, zone); }
! void PdUI::addToggleButton(const char* label, float* zone)
  { add_elem(UI_TOGGLE_BUTTON, label, zone); }
! void PdUI::addCheckButton(const char* label, float* zone)
  { add_elem(UI_CHECK_BUTTON, label, zone); }
! void PdUI::addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step)
  { add_elem(UI_V_SLIDER, label, zone, init, min, max, step); }
! void PdUI::addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step)
  { add_elem(UI_H_SLIDER, label, zone, init, min, max, step); }
! void PdUI::addNumEntry(const char* label, float* zone, float init, float min, float max, float step)
  { add_elem(UI_NUM_ENTRY, label, zone, init, min, max, step); }
  
  // FIXME: addNumDisplay and addTextDisplay not implemented in Faust yet?
! void PdUI::addNumDisplay(const char* label, float* zone, int precision) {}
! void PdUI::addTextDisplay(const char* label, float* zone, const char* names[], float min, float max) {}
! void PdUI::addHorizontalBargraph(const char* label, float* zone, float min, float max)
  { add_elem(UI_H_BARGRAPH, label, zone, min, max); }
! void PdUI::addVerticalBargraph(const char* label, float* zone, float min, float max)
  { add_elem(UI_V_BARGRAPH, label, zone, min, max); }
  
! void PdUI::openFrameBox(const char* label)
  {
    if (!path.empty()) path += "/";
    path += mangle(label);
  }
! void PdUI::openTabBox(const char* label)
  {
    if (!path.empty()) path += "/";
    path += mangle(label);
  }
! void PdUI::openHorizontalBox(const char* label)
  {
    if (!path.empty()) path += "/";
    path += mangle(label);
  }
! void PdUI::openVerticalBox(const char* label)
  {
    if (!path.empty()) path += "/";

Update of /cvsroot/q-lang/pd-qext
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv18475

Modified Files:
	ChangeLog Makefile 
Log Message:
bump version number

Index: Makefile
===================================================================
RCS file: /cvsroot/q-lang/pd-qext/Makefile,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Makefile	11 Feb 2008 03:28:12 -0000	1.9
--- Makefile	11 Mar 2008 22:50:39 -0000	1.10
***************
*** 48,52 ****
  # dist target to roll a distribution tarball
  
! version = 0.3
  dist = pd-qext-$(version)
  DISTFILES = COPYING ChangeLog README TODO Makefile \
--- 48,52 ----
  # dist target to roll a distribution tarball
  
! version = 0.4
  dist = pd-qext-$(version)
  DISTFILES = COPYING ChangeLog README TODO Makefile \

Index: ChangeLog
===================================================================
RCS file: /cvsroot/q-lang/pd-qext/ChangeLog,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** ChangeLog	11 Mar 2008 22:22:51 -0000	1.4
--- ChangeLog	11 Mar 2008 22:50:39 -0000	1.5
***************
*** 1,4 ****
--- 1,6 ----
  2008-03-11    <Dr.Graef@...>
  
+ 	+ Release 0.4
+ 
  	* pd.c (pd_send): fix a deadlock between pd_send and q_tick when
  	reading from/writing to the asynchronous message queue

Update of /cvsroot/q-lang/pd-qext
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv14523

Modified Files:
	pd.c 
Log Message:
fix a deadlock between pd_send and q_tick, 2nd attempt

Index: pd.c
===================================================================
RCS file: /cvsroot/q-lang/pd-qext/pd.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** pd.c	11 Mar 2008 20:16:41 -0000	1.5
--- pd.c	11 Mar 2008 22:42:27 -0000	1.6
***************
*** 66,69 ****
--- 66,70 ----
        pthread_cond_wait(&x->cond_init, &x->mut_init);
      pthread_cleanup_pop(1);
+     newref(y);
      release_lock();
      pthread_mutex_lock(&x->mut_x);
***************
*** 76,83 ****
        }
      }
-     acquire_lock();
      if (n < x->a_xv) {
!       x->xv[x->n_xv++] = newref(y);
        pthread_mutex_unlock(&x->mut_x);
        return mkvoid;
      } else {
--- 77,84 ----
        }
      }
      if (n < x->a_xv) {
!       x->xv[x->n_xv++] = y;
        pthread_mutex_unlock(&x->mut_x);
+       acquire_lock();
        return mkvoid;
      } else {
***************
*** 85,88 ****
--- 86,91 ----
        fprintf(stderr, "pd_send(%s): buffer overflow (runaway thread?)\n",
  	      x->args);
+       acquire_lock();
+       unref(y);
        return __ERROR;
      }

Update of /cvsroot/q-lang/pd-qext
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv3727

Modified Files:
	ChangeLog 
Log Message:
ChangeLog updated

Index: ChangeLog
===================================================================
RCS file: /cvsroot/q-lang/pd-qext/ChangeLog,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ChangeLog	11 Feb 2008 03:36:46 -0000	1.3
--- ChangeLog	11 Mar 2008 22:22:51 -0000	1.4
***************
*** 1,2 ****
--- 1,7 ----
+ 2008-03-11    <Dr.Graef@...>
+ 
+ 	* pd.c (pd_send): fix a deadlock between pd_send and q_tick when
+ 	reading from/writing to the asynchronous message queue
+ 
  2008-02-09  Albert Graef  <Dr.Graef@...>

Update of /cvsroot/q-lang/pd-qext
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv22261

Modified Files:
	pd.c 
Log Message:
fix a deadlock between pd_send and q_tick when reading from/writing to the asynchronous message queue

Index: pd.c
===================================================================
RCS file: /cvsroot/q-lang/pd-qext/pd.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** pd.c	5 Oct 2007 23:53:48 -0000	1.4
--- pd.c	11 Mar 2008 20:16:41 -0000	1.5
***************
*** 66,69 ****
--- 66,70 ----
        pthread_cond_wait(&x->cond_init, &x->mut_init);
      pthread_cleanup_pop(1);
+     release_lock();
      pthread_mutex_lock(&x->mut_x);
      n = x->n_xv;
***************
*** 75,78 ****
--- 76,80 ----
        }
      }
+     acquire_lock();
      if (n < x->a_xv) {
        x->xv[x->n_xv++] = newref(y);

Update of /cvsroot/q-lang/q-audio
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv14491

Modified Files:
	configure.in 
Log Message:
bump version number

Index: configure.in
===================================================================
RCS file: /cvsroot/q-lang/q-audio/configure.in,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** configure.in	31 Jan 2008 07:01:18 -0000	1.15
--- configure.in	10 Mar 2008 11:49:09 -0000	1.16
***************
*** 2,6 ****
  AC_INIT(src/audio.q)
  AM_CONFIG_HEADER(config.h)
! AM_INIT_AUTOMAKE(q-audio, 2.6)
  AM_MAINTAINER_MODE
  AC_CANONICAL_HOST
--- 2,6 ----
  AC_INIT(src/audio.q)
  AM_CONFIG_HEADER(config.h)
! AM_INIT_AUTOMAKE(q-audio, 2.7)
  AM_MAINTAINER_MODE
  AC_CANONICAL_HOST

Update of /cvsroot/q-lang/q-audio
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv12423

Modified Files:
	NEWS 
Log Message:
update NEWS

Index: NEWS
===================================================================
RCS file: /cvsroot/q-lang/q-audio/NEWS,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** NEWS	11 Feb 2008 06:06:57 -0000	1.13
--- NEWS	10 Mar 2008 11:47:12 -0000	1.14
***************
*** 1,2 ****
--- 1,3 ----
+ 03-10-08  V2.7	GGI 2.2 compatibility (audio_player)
  01-31-08  V2.6	add audio_in/audio_out convenience functions
  10-05-07  V2.5	audio_player now installs into <prefix>/share/q/apps

Update of /cvsroot/q-lang/q-audio
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv11889

Modified Files:
	ChangeLog 
Log Message:
update ChangeLog

Index: ChangeLog
===================================================================
RCS file: /cvsroot/q-lang/q-audio/ChangeLog,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** ChangeLog	31 Jan 2008 07:01:18 -0000	1.22
--- ChangeLog	10 Mar 2008 11:46:54 -0000	1.23
***************
*** 1,2 ****
--- 1,8 ----
+ 2008-03-10  Albert Graef  <Dr.Graef@...>
+ 
+ 	+ Release 2.7
+ 
+ 	* src/audio_player.q: fixes for GGI 2.2 compatibility
+ 
  2008-01-31  Albert Graef  <Dr.Graef@...>

Update of /cvsroot/q-lang/q-audio/src
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv11587

Modified Files:
	audio_player.q 
Log Message:
GGI 2.2 compatibility fixes

Index: audio_player.q
===================================================================
RCS file: /cvsroot/q-lang/q-audio/src/audio_player.q,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** audio_player.q	31 Jan 2008 07:00:16 -0000	1.14
--- audio_player.q	10 Mar 2008 11:46:27 -0000	1.15
***************
*** 205,213 ****
  
  expose_cb C (NAME,SF,F,OUT,VIS,WD,HT,WH,LT,LC,RT,RC,POS,I,N,WAV,PLAY)
! 			= update_display (VIS,WD,HT,WH,LT,LC,RT,RC)
  			  NAME I WAV ||
  			  (NAME,SF,F,OUT,VIS,WD,HT,WH,LT,LC,RT,RC,
  			   POS,I,N,WAV,PLAY)
! 			    if not PLAY and then (C>0);
  expose_cb C STATE	= STATE otherwise;
  
--- 205,214 ----
  
  expose_cb C (NAME,SF,F,OUT,VIS,WD,HT,WH,LT,LC,RT,RC,POS,I,N,WAV,PLAY)
! 			= ggi_clear VIS ||
! 			  update_display (VIS,WD,HT,WH,LT,LC,RT,RC)
  			  NAME I WAV ||
  			  (NAME,SF,F,OUT,VIS,WD,HT,WH,LT,LC,RT,RC,
  			   POS,I,N,WAV,PLAY)
! 			    if C>0;
  expose_cb C STATE	= STATE otherwise;

Update of /cvsroot/q-lang/q/modules/ggi
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv3043

Modified Files:
	README-GGI 
Log Message:
add notice about patch fixing the x:-inwin bug in GGI 2.2 releases

Index: README-GGI
===================================================================
RCS file: /cvsroot/q-lang/q/modules/ggi/README-GGI,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** README-GGI	8 Mar 2008 23:02:17 -0000	1.10
--- README-GGI	10 Mar 2008 07:30:05 -0000	1.11
***************
*** 15,23 ****
  
  The module requires that you have libggi (version 2.0 or later) and libgii
! (version 0.8 or later) installed. (We recommend using libggi 2.1/libgii 0.9,
! as later versions appear to have a bug breaking the '-inwin' option of the X11
! target, which is needed to embed GGI windows inside GUI applications.) For the
! additional font support you also need version 2 of the FreeType library
! (http://www.freetype.org/).
  
  Binary GGI packages are readily available on most current Linux distributions.
--- 15,24 ----
  
  The module requires that you have libggi (version 2.0 or later) and libgii
! (version 0.8 or later) installed. (Note that all GGI 2.2 releases up to 2.2.2
! have a bug breaking the '-inwin' option of the X11 target, which is needed to
! embed GGI windows inside GUI applications. A patch fixing this can be found on
! the Q website at http://q-lang.sf.net/ggi-2.2-inwin.patch.) For the additional
! font support you also need version 2 of the FreeType library available at
! http://www.freetype.org/.
  
  Binary GGI packages are readily available on most current Linux distributions.

Update of /cvsroot/q-lang/q/modules/ggi
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv20802

Modified Files:
	README-GGI 
Log Message:
update information about recent GGI versions, add notice about x:-inwin bug in GGI 2.2

Index: README-GGI
===================================================================
RCS file: /cvsroot/q-lang/q/modules/ggi/README-GGI,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** README-GGI	10 Jul 2005 08:18:35 -0000	1.9
--- README-GGI	8 Mar 2008 23:02:17 -0000	1.10
***************
*** 15,29 ****
  
  The module requires that you have libggi (version 2.0 or later) and libgii
! (version 0.8 or later) installed. For the additional font support you also
! need version 2 of the FreeType library (http://www.freetype.org/).
  
! Since the GGI project at SourceForge (http://sourceforge.net/projects/ggi/)
! only provides source tarballs at this time, and GGI is not yet included in the
! major Linux distributions, we provide some RPMs for the required libraries on
! the Q homepage. NOTE: The Windows package now comes with the most recent GGI
! from CVS, including Peter Ekberg's much improved DirectX driver. To make the
! module work on Windows, please make sure that the GGI_CONFDIR environment
! variable points to your Qpad/ggi/etc/ggi directory. (This should be taken care
! of automagically when running scripts via the Qpad application.)
  
  Please see ggi.q for a description of the functions provided by this module.
--- 15,30 ----
  
  The module requires that you have libggi (version 2.0 or later) and libgii
! (version 0.8 or later) installed. (We recommend using libggi 2.1/libgii 0.9,
! as later versions appear to have a bug breaking the '-inwin' option of the X11
! target, which is needed to embed GGI windows inside GUI applications.) For the
! additional font support you also need version 2 of the FreeType library
! (http://www.freetype.org/).
  
! Binary GGI packages are readily available on most current Linux distributions.
! The Windows package comes with a GGI version from CVS which includes Peter
! Ekberg's much improved DirectX driver. To make the module work on Windows,
! please make sure that the GGI_CONFDIR environment variable points to your
! Qpad/ggi/etc/ggi directory. (This should be taken care of automagically when
! running scripts via the Qpad application.)
  
  Please see ggi.q for a description of the functions provided by this module.
***************
*** 44,48 ****
  Enjoy! :)
  
! Oct 2 2004
  Albert Graef
  ag@..., Dr.Graef@...
--- 45,49 ----
  Enjoy! :)
  
! Mar 9 2008
  Albert Graef
  ag@..., Dr.Graef@...

Update of /cvsroot/q-lang/q-csv
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv5606

Modified Files:
	Makefile 
Log Message:
bump version number

Index: Makefile
===================================================================
RCS file: /cvsroot/q-lang/q-csv/Makefile,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** Makefile	10 Jan 2008 22:41:21 -0000	1.1.1.1
--- Makefile	6 Mar 2008 21:59:03 -0000	1.2
***************
*** 5,9 ****
  
  # version number:
! version = 0.1
  dist = q-csv-$(version)
  
--- 5,9 ----
  
  # version number:
! version = 0.2
  dist = q-csv-$(version)

Update of /cvsroot/q-lang/q-csv
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv4938

Modified Files:
	README 
Log Message:
README was updated

Index: README
===================================================================
RCS file: /cvsroot/q-lang/q-csv/README,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** README	6 Mar 2008 21:24:15 -0000	1.13
--- README	6 Mar 2008 21:57:34 -0000	1.14
***************
*** 66,70 ****
  reading csv files and "writesamples.q" for writing.
  
! Jan 10 2008
  Eddie Rucker
  erucker@...
--- 66,70 ----
  reading csv files and "writesamples.q" for writing.
  
! Mar 6 2008
  Eddie Rucker
  erucker@...

Update of /cvsroot/q-lang/q-csv
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv27335

Modified Files:
	README csv.q 
Log Message:
fixed README and csv.q comments to reflect changes

Index: README
===================================================================
RCS file: /cvsroot/q-lang/q-csv/README,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** README	11 Feb 2008 14:15:38 -0000	1.12
--- README	6 Mar 2008 21:24:15 -0000	1.13
***************
*** 39,55 ****
  - fwritecsv is equivalent to swritecsv except that writing is to a file.
  
- The above routines are defined in terms of the following primary interface
- functions fread_csvstr, csvstr_to_tuple and tuple_to_csvstr:
- 
- - fread_csvstr reads a single CSV record from a file. This essentially works
-   like freads, but handles quoted newlines embedded in a field value. Note
-   that fread_csvstr does *not* verify that the string actually conforms to CSV
-   syntax.
- 
- - csvstr_to_tuple and tuple_to_csvstr convert CSV formatted strings to tuples
-   and vice versa. These functions check for correct CSV syntax and proper
-   field values, respectively, and return a 'csv_error MSG' term in case of an
-   error condition (see NOTES below).
- 
  The routines described above read/write one record at a time. Additional
  functions (sreadcsvlist, swritecsvlist, freadcsvlist and fwritecsvlist) are
--- 39,42 ----

Index: csv.q
===================================================================
RCS file: /cvsroot/q-lang/q-csv/csv.q,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** csv.q	6 Mar 2008 16:19:08 -0000	1.18
--- csv.q	6 Mar 2008 21:24:15 -0000	1.19
***************
*** 31,34 ****
--- 31,48 ----
  from dict import dict, insert, vals, member;
  
+ /* Public Routines are defined in terms of the following primary interface
+    functions fread_csvstr, csvstr_to_tuple and tuple_to_csvstr:
+ 
+ - fread_csvstr reads a single CSV record from a file. This essentially works
+   like freads, but handles quoted newlines embedded in a field value. Note
+   that fread_csvstr does *not* verify that the string actually conforms to CSV
+   syntax.
+ 
+ - csvstr_to_tuple and tuple_to_csvstr convert CSV formatted strings to tuples
+   and vice versa. These functions check for correct CSV syntax and proper
+   field values, respectively, and return a 'csv_error MSG' term in case of an
+   error condition.
+ */
+ 
  private extern fread_csvstr FILE QUOTE;
  private extern tuple_to_csvstr ARGS REC;
***************
*** 105,112 ****
  	
  /* Convert a tuple (record) to a CSV string.
     Dialect: CSV format specification. If none is given, defaults to
              RFC4180 for Windows and UNIX for all other OSs.
-    Rec:     Tuple of fields to be converted to CSV format.
- 
     NOTE: Rec must contain ONLY strings, integers, and floating point numbers.
           If a field is some other type, the 'csv_error MSG' rule is invoked.
--- 119,125 ----
  	
  /* Convert a tuple (record) to a CSV string.
+    Rec:     Tuple of fields to be converted to CSV format.
     Dialect: CSV format specification. If none is given, defaults to
              RFC4180 for Windows and UNIX for all other OSs.
     NOTE: Rec must contain ONLY strings, integers, and floating point numbers.
           If a field is some other type, the 'csv_error MSG' rule is invoked.
***************
*** 126,132 ****
  
  /* Convert a tuple (record) to a CSV string
     Dialect: CSV format specification. If none is given, defaults to
              RFC4180 for Windows and UNIX for all other OSs.
-    Rec:     Tuple of fields to be converted to CSV format.
  
     NOTE: The 'csv_error MSG' rule is invoked on improperly formatted strings.
--- 139,145 ----
  
  /* Convert a tuple (record) to a CSV string
+    Rec:     Tuple of fields to be converted to CSV format.
     Dialect: CSV format specification. If none is given, defaults to
              RFC4180 for Windows and UNIX for all other OSs.
  
     NOTE: The 'csv_error MSG' rule is invoked on improperly formatted strings.

Update of /cvsroot/q-lang/q-csv/examples
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv1836/examples

Modified Files:
	writesamples.q 
Log Message:
Bugfixes and lineterminator defaults

Index: writesamples.q
===================================================================
RCS file: /cvsroot/q-lang/q-csv/examples/writesamples.q,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** writesamples.q	22 Jan 2008 16:45:17 -0000	1.5
--- writesamples.q	6 Mar 2008 16:19:15 -0000	1.6
***************
*** 23,27 ****
  def Dialect1 = csv_dialect [csv_quoting,csv_quote_all;];
  writefile_string F [] = ();
! writefile_string F [L|Ls] = [fwritecsv (F,Dialect1) L
  			     | writefile_string F Ls];
  
--- 23,27 ----
  def Dialect1 = csv_dialect [csv_quoting,csv_quote_all;];
  writefile_string F [] = ();
! writefile_string F [L|Ls] = [fwritecsv (F, Dialect1) L
  			     | writefile_string F Ls];

Update of /cvsroot/q-lang/q-csv
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv1836

Modified Files:
	csv.c csv.q 
Log Message:
Bugfixes and lineterminator defaults

Index: csv.c
===================================================================
RCS file: /cvsroot/q-lang/q-csv/csv.c,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** csv.c	29 Feb 2008 21:30:20 -0000	1.19
--- csv.c	6 Mar 2008 16:19:08 -0000	1.20
***************
*** 208,211 ****
--- 208,212 ----
            st = 1;
          } else if (!*s || *s == EOF || !strncmp(s, lineterm, n_lineterm)) {
+ 	  putrec(CSV_QUOTE_ALL);
            st = 10;
          } else if (isspace(*s) && skipspace_f) {

Index: csv.q
===================================================================
RCS file: /cvsroot/q-lang/q-csv/csv.q,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** csv.q	5 Mar 2008 22:04:02 -0000	1.17
--- csv.q	6 Mar 2008 16:19:08 -0000	1.18
***************
*** 20,24 ****
  /* The CSV library provides an interface to read and write comma separated
     value files. The reading and writing functions are loosely based on
!    Python's csv module (http://docs.python.org/lib/module-csv.html) */
  
  from dict import dict, insert, vals, member;
--- 20,31 ----
  /* The CSV library provides an interface to read and write comma separated
     value files. The reading and writing functions are loosely based on
!    Python's csv module (http://docs.python.org/lib/module-csv.html) 
! 
!    Bugfix: Wed Mar 5, 2008: Fixed EOF checking for freadcsvlist.
!    Bugfix: Thr Mar 6, 2008: Dialect now defaults to '\n' on UNIX and OSX.
!                             Made Dialect the second option in tuple 
!                             parameters for sread* and swrite*.
!                             Fixed various bugs.
! */
  
  from dict import dict, insert, vals, member;
***************
*** 94,101 ****
  	EXCEL = csv_dialect [csv_quoting, csv_quote_none;];
  
! 
  /* Convert a tuple (record) to a CSV string.
!    Dialect: CSV format specification. If none is given, defaults to the
!             RFC4180 dialect.
     Rec:     Tuple of fields to be converted to CSV format.
  
--- 101,110 ----
  	EXCEL = csv_dialect [csv_quoting, csv_quote_none;];
  
! public const var
! 	OS_DIALECT = ifelse (fnmatch "*mingw*" sysinfo) RFC4180 UNIX;
! 	
  /* Convert a tuple (record) to a CSV string.
!    Dialect: CSV format specification. If none is given, defaults to
!             RFC4180 for Windows and UNIX for all other OSs.
     Rec:     Tuple of fields to be converted to CSV format.
  
***************
*** 104,122 ****
  */
  public swritecsv ARGS;
! swritecsv (Dialect:Tuple, Rec:Tuple)
  	= tuple_to_csvstr Dialect Rec;
  swritecsv Rec:Tuple 
! 	= tuple_to_csvstr RFC4180 Rec;
  
  /* Convert a list of tuples to a list of CSV formatted strings. */
  public swritecsvlist ARGS;
! swritecsvlist (Dialect:Tuple, L:List)
  	= map (tuple_to_csvstr Dialect) L;
  swritecsvlist L:List
! 	= map (tuple_to_csvstr RFC4180) L;
  
  /* Convert a tuple (record) to a CSV string
!    Dialect: CSV format specification. If none is given, defaults to the
!             RFC4180 dialect.
     Rec:     Tuple of fields to be converted to CSV format.
  
--- 113,131 ----
  */
  public swritecsv ARGS;
! swritecsv (Rec:Tuple, Dialect:Tuple)
  	= tuple_to_csvstr Dialect Rec;
  swritecsv Rec:Tuple 
! 	= tuple_to_csvstr OS_DIALECT Rec;
  
  /* Convert a list of tuples to a list of CSV formatted strings. */
  public swritecsvlist ARGS;
! swritecsvlist (L:List, Dialect:Tuple)
  	= map (tuple_to_csvstr Dialect) L;
  swritecsvlist L:List
! 	= map (tuple_to_csvstr OS_DIALECT) L;
  
  /* Convert a tuple (record) to a CSV string
!    Dialect: CSV format specification. If none is given, defaults to
!             RFC4180 for Windows and UNIX for all other OSs.
     Rec:     Tuple of fields to be converted to CSV format.
  
***************
*** 124,131 ****
  */
  public sreadcsv ARGS;
! sreadcsv (Rec:Tuple, Dialect:Tuple)
  	= csvstr_to_tuple Dialect Rec;
! sreadcsv Rec:Tuple
! 	= csvstr_to_tuple RFC4180 Rec;
  
  /* Convert a list of CSV formatted strings to a list of tuples */
--- 133,140 ----
  */
  public sreadcsv ARGS;
! sreadcsv (Rec:String, Dialect:Tuple)
  	= csvstr_to_tuple Dialect Rec;
! sreadcsv Rec:String
! 	= csvstr_to_tuple OS_DIALECT Rec;
  
  /* Convert a list of CSV formatted strings to a list of tuples */
***************
*** 134,138 ****
  	= map (csvstr_to_tuple Dialect) L;
  sreadcsvlist L:List
! 	= map (csvstr_to_tuple RFC4180) L;
  
  /* File handling functions */
--- 143,147 ----
  	= map (csvstr_to_tuple Dialect) L;
  sreadcsvlist L:List
! 	= map (csvstr_to_tuple OS_DIALECT) L;
  
  /* File handling functions */
***************
*** 141,145 ****
  	= csvstr_to_tuple Dialect $ fread_csvstr F (Dialect!ord csv_quote);
  freadcsv F:File 
! 	= csvstr_to_tuple RFC4180 $ fread_csvstr F "\"";
  
  public fwritecsv ARGS REC;
--- 150,154 ----
  	= csvstr_to_tuple Dialect $ fread_csvstr F (Dialect!ord csv_quote);
  freadcsv F:File 
! 	= csvstr_to_tuple OS_DIALECT $ fread_csvstr F "\"";
  
  public fwritecsv ARGS REC;
***************
*** 147,154 ****
  	= fwrites F $ tuple_to_csvstr Dialect Rec;
  fwritecsv F:File Rec:Tuple
! 	= fwrites F $ tuple_to_csvstr RFC4180 Rec;
  
  public freadcsvlist ARGS;
! freadcsvlist (F:File, Dialect:Tuple)
  	= [] if feof F;
  	= [freadcsv (F, Dialect) | freadcsvlist (F, Dialect)];
--- 156,163 ----
  	= fwrites F $ tuple_to_csvstr Dialect Rec;
  fwritecsv F:File Rec:Tuple
! 	= fwrites F $ tuple_to_csvstr OS_DIALECT Rec;
  
  public freadcsvlist ARGS;
! freadcsvlist (F:File, Dialect:Tuple,)
  	= [] if feof F;
  	= [freadcsv (F, Dialect) | freadcsvlist (F, Dialect)];
***************
*** 159,163 ****
  public fwritecsvlist ARGS REC;
  fwritecsvlist (F:File, Dialect:Tuple) L:List
! 	= do (fwritecsv F Dialect) L;
  fwritecsvlist F:File L:List
  	= do (fwritecsv F) L;
\ No newline at end of file
--- 168,172 ----
  public fwritecsvlist ARGS REC;
  fwritecsvlist (F:File, Dialect:Tuple) L:List
! 	= do (fwritecsv (F, Dialect)) L;
  fwritecsvlist F:File L:List
  	= do (fwritecsv F) L;
\ No newline at end of file

Update of /cvsroot/q-lang/q
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv21471

Modified Files:
	ChangeLog 
Log Message:
update ChangeLog

Index: ChangeLog
===================================================================
RCS file: /cvsroot/q-lang/q/ChangeLog,v
retrieving revision 1.335
retrieving revision 1.336
diff -C2 -d -r1.335 -r1.336
*** ChangeLog	26 Feb 2008 01:21:11 -0000	1.335
--- ChangeLog	6 Mar 2008 10:18:58 -0000	1.336
***************
*** 1,2 ****
--- 1,8 ----
+ 2008-03-06  Albert Graef  <Dr.Graef@...>
+ 
+ 	* modules/clib/system.c: fix checks for POSIX timers, to properly
+ 	detect the (unavailability of the) extension on OS X and older
+ 	Cygwin systems
+ 
  2008-02-26  Albert Graef  <Dr.Graef@...>

Update of /cvsroot/q-lang/q/modules/clib
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv19816

Modified Files:
	system.c 
Log Message:
fix checks for POSIX timers availability

Index: system.c
===================================================================
RCS file: /cvsroot/q-lang/q/modules/clib/system.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** system.c	23 Feb 2008 08:37:30 -0000	1.6
--- system.c	6 Mar 2008 10:15:24 -0000	1.7
***************
*** 1682,1698 ****
       mkint(IPPROTO_UDP),
  
! #ifdef _POSIX_TIMERS
       mkint(CLOCK_REALTIME),
! #ifdef _POSIX_MONOTONIC_CLOCK
       mkint(CLOCK_MONOTONIC),
  #else
       mkvoid,
  #endif
! #ifdef _POSIX_CPUTIME
       mkint(CLOCK_PROCESS_CPUTIME_ID),
  #else
       mkvoid,
  #endif
! #ifdef _POSIX_THREAD_CPUTIME
       mkint(CLOCK_THREAD_CPUTIME_ID),
  #else
--- 1682,1698 ----
       mkint(IPPROTO_UDP),
  
! #if _POSIX_TIMERS > 0
       mkint(CLOCK_REALTIME),
! #if defined(_POSIX_MONOTONIC_CLOCK) && (_POSIX_MONOTONIC_CLOCK >= 0)
       mkint(CLOCK_MONOTONIC),
  #else
       mkvoid,
  #endif
! #if defined(_POSIX_CPUTIME) && (_POSIX_CPUTIME >= 0)
       mkint(CLOCK_PROCESS_CPUTIME_ID),
  #else
       mkvoid,
  #endif
! #if defined(_POSIX_THREAD_CPUTIME) && (_POSIX_THREAD_CPUTIME >= 0)
       mkint(CLOCK_THREAD_CPUTIME_ID),
  #else
***************
*** 5705,5709 ****
  FUNCTION(system,process_cpu_clockid,argc,argv)
  {
! #ifdef _POSIX_CPUTIME
    long pid;
    if (argc == 1 && isint(argv[0], &pid)) {
--- 5705,5709 ----
  FUNCTION(system,process_cpu_clockid,argc,argv)
  {
! #if defined(_POSIX_CPUTIME) && (_POSIX_CPUTIME >= 0)
    long pid;
    if (argc == 1 && isint(argv[0], &pid)) {
***************
*** 5722,5726 ****
  FUNCTION(system,thread_cpu_clockid,argc,argv)
  {
! #ifdef _POSIX_THREAD_CPUTIME
    THREAD *thr;
    if (argc == 1 && isobj(argv[0], type(Thread), (void**)&thr)) {
--- 5722,5726 ----
  FUNCTION(system,thread_cpu_clockid,argc,argv)
  {
! #if defined(_POSIX_THREAD_CPUTIME) && (_POSIX_THREAD_CPUTIME >= 0)
    THREAD *thr;
    if (argc == 1 && isobj(argv[0], type(Thread), (void**)&thr)) {

Update of /cvsroot/q-lang/q-csv
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv11329

Modified Files:
	csv.q 
Log Message:
fixed bug in freadcsvlist

Index: csv.q
===================================================================
RCS file: /cvsroot/q-lang/q-csv/csv.q,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** csv.q	11 Feb 2008 02:31:30 -0000	1.16
--- csv.q	5 Mar 2008 22:04:02 -0000	1.17
***************
*** 151,156 ****
--- 151,158 ----
  public freadcsvlist ARGS;
  freadcsvlist (F:File, Dialect:Tuple)
+ 	= [] if feof F;
  	= [freadcsv (F, Dialect) | freadcsvlist (F, Dialect)];
  freadcsvlist F:File 
+ 	= [] if feof F;
  	= [freadcsv F | freadcsvlist F];