[PD-cvs] pd/src s_main.c,1.1.1.4.2.8,1.1.1.4.2.8.4.1 m_glob.c,1.1.1.2.2.3.2.1,1.1.1.2.2.3.2.2

[matju at users.sourceforge.net]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19020

Modified Files:
      Tag: impd_0_37
	s_main.c m_glob.c 
Log Message:
woops, stuff missing for the console and classlist


Index: s_main.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/s_main.c,v
retrieving revision 1.1.1.4.2.8
retrieving revision 1.1.1.4.2.8.4.1
diff -C2 -d -r1.1.1.4.2.8 -r1.1.1.4.2.8.4.1
*** s_main.c	18 Nov 2003 10:34:10 -0000	1.1.1.4.2.8
--- s_main.c	22 Feb 2004 18:00:47 -0000	1.1.1.4.2.8.4.1
***************
*** 81,84 ****
--- 81,87 ----
  /* } IOhannes */
  
+ /* Matju { */
+ int console_scrollback = 0;
+ /* } */
  
  typedef struct _fontinfo
***************
*** 252,258 ****
      if (sys_version)	/* if we were just asked our version, exit here. */
      	return (0);
      if (sys_startgui(sys_guidir->s_name))	/* start the gui */
      	return(1);
!     	    /* open audio and MIDI */
      sys_open_midi(sys_nmidiin, sys_midiindevlist,
      	sys_nmidiout, sys_midioutdevlist);
--- 255,275 ----
      if (sys_version)	/* if we were just asked our version, exit here. */
      	return (0);
+ 
+     /* Matju { */
+     {
+ 	char buf[64];
+ 	sprintf(buf,"%d",console_scrollback);
+ 	setenv("pd_console_scrollback",buf,1);
+ 	if (console_scrollback) {
+ 	    void guiprint(char *fmt, va_list ap);
+ 	    sys_addprinthook(guiprint);
+ 	}
+     }
+     /* } */
+ 
      if (sys_startgui(sys_guidir->s_name))	/* start the gui */
      	return(1);
! 
! 	    /* open audio and MIDI */
      sys_open_midi(sys_nmidiin, sys_midiindevlist,
      	sys_nmidiout, sys_midioutdevlist);
***************
*** 758,762 ****
      	    argc -= 2; argv += 2;
      	}
!     	else
      	{
  	    unsigned int i;
--- 775,792 ----
      	    argc -= 2; argv += 2;
      	}
! 	/* Matju { */
!     	else if (!strcmp(*argv,"-console"))
! 	{
! 		console_scrollback = atoi(argv[1]);
! 		fprintf(stderr,"pd_console_scrollback: %s\n",argv[1]);
! 		argc-=2; argv+=2;
! 	}
! 	else if (!strcmp(*argv,"-look"))
! 	{
! 		setenv("pd_look",argv[1],1);
! 		argc-=2; argv+=2;
! 	}
! 	/* } */
! 	else
      	{
  	    unsigned int i;

Index: m_glob.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/m_glob.c,v
retrieving revision 1.1.1.2.2.3.2.1
retrieving revision 1.1.1.2.2.3.2.2
diff -C2 -d -r1.1.1.2.2.3.2.1 -r1.1.1.2.2.3.2.2
*** m_glob.c	22 Feb 2004 05:23:52 -0000	1.1.1.2.2.3.2.1
--- m_glob.c	22 Feb 2004 18:00:47 -0000	1.1.1.2.2.3.2.2
***************
*** 6,9 ****
--- 6,10 ----
  #include "m_imp.h"
  #include "s_stuff.h"
+ #include <string.h>
  
  t_class *glob_pdobject;
***************
*** 62,65 ****
--- 63,77 ----
  }
  
+ /* see also canvas_done_popup */
+ void glob_help(t_pd *bogus, t_symbol *s) {
+ 	t_class *c = class_find(s);
+ 	if (!c) { post("HUH? no help because no class. (!)"); return; }
+         char namebuf[MAXPDSTRING], *dir;
+ 	strcpy(namebuf, class_gethelpname(c));
+ 	dir = class_gethelpdir(c);
+ 	if (strcmp(namebuf + strlen(namebuf) - 3, ".pd")) strcat(namebuf, ".pd");
+ 	open_via_helppath(namebuf, dir);
+ }
+ 
  void glob_update_class_list (void) {
  	int i;