OpenEuphoria

1. exu 3, key.ex

• Posted by ChrisBurch2 <crylex at freeuk.co.uk> Jun 19, 2006
• 700 views

Hi

integer code

puts(1, "Press any key. I'll show you the key code. Press q to quit\n\n")
while 1 do
    code = get_key()
    if code != -1 then
	printf(1, "The key code is: %d\n", code)
	if code = 'q' then
	    exit
	end if  
    end if
end while

works

integer code

puts(1, "Press any key. I'll show you the key code. Press q to quit\n\n")
while 1 do
    code = get_key()
    if code != -1 then
	printf(1, "The key code is: %d\n", code)
	if code = 'q' then
	    exit
	end if  
    else
        printf(1, "\n", {})          
    end if
end while

seg faults

??

Chris

3. Re: exu 3, key.ex

• Posted by ChrisBurch2 <crylex at freeuk.co.uk> Jun 19, 2006
• 641 views
• Last edited Jun 20, 2006

Robert Craig wrote:
> 
> ChrisBurch2 wrote:
> > Hi
> > }}}
<eucode>
> > integer code
> > 
> > puts(1, "Press any key. I'll show you the key code. Press q to quit\n\n")
> > while 1 do
> >     code = get_key()
> >     if code != -1 then
> > 	printf(1, "The key code is: %d\n", code)
> > 	if code = 'q' then
> > 	    exit
> > 	end if  
> >     end if
> > end while
> > 
> > </eucode>
{{{

> > 
> > works
> > 
> > 
> > }}}
<eucode>
> > integer code
> > 
> > puts(1, "Press any key. I'll show you the key code. Press q to quit\n\n")
> > while 1 do
> >     code = get_key()
> >     if code != -1 then
> > 	printf(1, "The key code is: %d\n", code)
> > 	if code = 'q' then
> > 	    exit
> > 	end if  
> >     else
> >         printf(1, "\n", {})          
> >     end if
> > end while
> > 
> > </eucode>
{{{

> > 
> > seg faults
> > 
> > ??
> 
> It fails on my machine too, creating a debug.log file as well.
> It shouldn't be too hard to fix. Thanks for reporting it.
> Did you also get a debug.log file? What Linux distribution 
> are you using?
> 
> Regards,
>    Rob Craig
>    Rapid Deployment Software
>    <a href="http://www.RapidEuphoria.com">http://www.RapidEuphoria.com</a>
Hi

Yes, filled with lots of line corrupted, finally s is the keycode is 105, col is
0

Linux version SuSE 10.0 64 bit

Chris

5. Re: exu 3, key.ex

• Posted by Michael J. Sabal <m_sabal at yahoo.com> Jun 20, 2006
• 641 views

Robert Craig wrote:
> Be careful not to pick up a cached copy of
> pre-alpha-1 from your browser's cache.
> Also, with Internet Explorer, it seems
> to want to name it exu.txt. You just have
> to rename it as exu once it has been downloaded.
> 
> Thanks,
>    Rob Craig
>    Rapid Deployment Software

I only just got the pre-alpha-2 to test now.  I'm using Slackware 10.1 with 
2.4.29 kernel.  I have no problems with keymappings without curses, but the
bright colors don't come out on my console.  Also, under the official 2.5
exu, ed.ex fills my 112x30 console screen, where the no-curses version only
fills 80x25.  Besides those little quibbles, I have no complaints.

Michael Sabal

7. Re: exu 3, key.ex

• Posted by "Elliott S. de Andrade" <quantum_analyst at hotmail.com> Jun 20, 2006
• 634 views

~[ WingZone ]~
http://wingzone.tripod.com/




>From: Robert Craig <guest at RapidEuphoria.com>
>Reply-To: EUforum at topica.com
>To: EUforum at topica.com
>Subject: Re: exu 3, key.ex
>Date: Mon, 19 Jun 2006 19:05:18 -0700
>
>
>posted by: Robert Craig <rds at RapidEuphoria.com>
>
>Michael J. Sabal wrote:
> > I only just got the pre-alpha-2 to test now.  I'm using Slackware 10.1 
>with
> >
> > 2.4.29 kernel.  I have no problems with keymappings without curses, but 
>the
> > bright colors don't come out on my console.
>
>Yes, I'm aware of that.
>I couldn't figure out how to get the brighter versions
>of the colors using ANSI codes. Maybe someone has an idea.
>

Apparently, you need to turn Bold on.
http://pueblo.sourceforge.net/doc/manual/ansi_color_codes.html
http://en.wikipedia.org/wiki/ANSI_escape_code#Examples

> > Also, under the official 2.5
> > exu, ed.ex fills my 112x30 console screen, where the no-curses version 
>only
> > fills 80x25.  Besides those little quibbles, I have no complaints.
>
>Yes, I'm aware of that too.
>exu looks for the environment variables, LINES and COLUMNS,
>which I can see when I type:
>    set | more
>but for some reason those variables do not show up when
>I do a C getenv() call. Maybe someone has an idea there too.
>

   Um, using which shell? Maybe you need to use something different, like 
"export LINES" or "setenv LINES". I think using <LINES="25" COLUMNS="80" 
./exu> will make sure that the env vars will be available to exu (not sure 
if that works on every shell).

>Regards,
>    Rob Craig
>    Rapid Deployment Software
>    http://www.RapidEuphoria.com
>
>
>
>

9. Re: exu 3, key.ex

• Posted by Chris Burch <chriscrylex at aol.com> Jun 20, 2006
• 620 views
• Last edited Jun 21, 2006

Robert Craig wrote:
> 
> Michael J. Sabal wrote:
> > I only just got the pre-alpha-2 to test now.  I'm using Slackware 10.1 with
> > 
> > 2.4.29 kernel.  I have no problems with keymappings without curses, but the
> > bright colors don't come out on my console.  
> 
> Yes, I'm aware of that.
> I couldn't figure out how to get the brighter versions
> of the colors using ANSI codes. Maybe someone has an idea.
> 
> > Also, under the official 2.5
> > exu, ed.ex fills my 112x30 console screen, where the no-curses version only
> > fills 80x25.  Besides those little quibbles, I have no complaints.
> 
> Yes, I'm aware of that too.
> exu looks for the environment variables, LINES and COLUMNS,
> which I can see when I type:
>    set | more
> but for some reason those variables do not show up when
> I do a C getenv() call. Maybe someone has an idea there too.
> 
> Regards,
>    Rob Craig
>    Rapid Deployment Software
>    <a href="http://www.RapidEuphoria.com">http://www.RapidEuphoria.com</a>
Hi

Will this help

#include <stdio.h>
#include <stdlib.h>
#include <sys/ioctl.h>
#include <unistd.h>

struct winsize ws;

int main()
{
char *buffer, *env;
int lines;
int rows, cols;

buffer = getenv("LINES");
if (buffer != NULL )
    printf("LINES are %s\n", buffer);
//lines = atoi("400");
//printf("Lines number :%d\n", lines);

if (ioctl(1, TIOCGWINSZ, &ws) == -1) 
	{
	rows = 24;
	cols = 80;
	} 
else 
	{
	if (!ioctl(STDIN_FILENO, TIOCGWINSZ, &ws)) 
		{
		 rows = ws.ws_row;
		 cols = ws.ws_col;
		 if (!rows) 
			 {
			  env = getenv("LINES");
			  if (env)
				rows = atoi(env);
			  if (!rows)
				rows = 24;
		     }
		if (!cols) 
			{
			 env = getenv("COLUMNS");
			 if (env)
				cols = atoi(env);
			 if (!cols)
				cols = 80;
		    }
		}
	}

if (!rows) 
	{
	env = getenv("LINES");
	if (env)
		rows = atoi(env);
	if (!rows)
		rows = 24;
	}

if (!cols) 
	{
	env = getenv("COLUMNS");
	if (env)
		cols = atoi(env);
	if (!cols)
		cols = 80;
	}

printf("%d %d\n", rows, cols);

printf("Program completed successfully\n");

}


Note, this was trawled off the net, and involves very little in the way of
personal knowledge


Chris



http://members.aol.com/chriscrylex/euphoria.htm
http://uboard.proboards32.com/
http://members.aol.com/chriscrylex/EUSQLite/eusql.html

11. Re: exu 3, key.ex

• Posted by Chris Burch <chriscrylex at aol.com> Jun 21, 2006
• 630 views

Robert Craig wrote:
> 
> Elliott S. de Andrade wrote:
> > Robert Craig wrote:
> > > I couldn't figure out how to get the brighter versions
> > > of the colors using ANSI codes. Maybe someone has an idea.
> > 
> > Apparently, you need to turn Bold on.
> > <a
> > href="http://pueblo.sourceforge.net/doc/manual/ansi_color_codes.html">http://pueblo.sourceforge.net/doc/manual/ansi_color_codes.html</a>
> > <a
> > href="http://en.wikipedia.org/wiki/ANSI_escape_code#Examples">http://en.wikipedia.org/wiki/ANSI_escape_code#Examples</a>
> 
> That worked. Excellent. Thanks.
> The bright colors now appear.
> You can download exu pre-alpha-3 for Linux from:
>   
>     <a
>     href="http://www.rapideuphoria.com/uploads/exu">http://www.rapideuphoria.com/uploads/exu</a>
> 
> (I'm still investigating the LINES & COLUMNS environment issue)
> 
> Regards,
>    Rob Craig
>    Rapid Deployment Software
>    <a href="http://www.RapidEuphoria.com">http://www.RapidEuphoria.com</a>

Will this help

#include <stdio.h>
#include <stdlib.h>
#include <sys/ioctl.h>
#include <unistd.h>

struct winsize ws;

int main()
{
char *buffer, *env;
int lines;
int rows, cols;

buffer = getenv("LINES");
if (buffer != NULL )
    printf("LINES are %s\n", buffer);
//lines = atoi("400");
//printf("Lines number :%d\n", lines);

if (ioctl(1, TIOCGWINSZ, &ws) == -1) 
	{
	rows = 24;
	cols = 80;
	} 
else 
	{
	if (!ioctl(STDIN_FILENO, TIOCGWINSZ, &ws)) 
		{
		 rows = ws.ws_row;
		 cols = ws.ws_col;
		 if (!rows) 
			 {
			  env = getenv("LINES");
			  if (env)
				rows = atoi(env);
			  if (!rows)
				rows = 24;
		     }
		if (!cols) 
			{
			 env = getenv("COLUMNS");
			 if (env)
				cols = atoi(env);
			 if (!cols)
				cols = 80;
		    }
		}
	}

if (!rows) 
	{
	env = getenv("LINES");
	if (env)
		rows = atoi(env);
	if (!rows)
		rows = 24;
	}

if (!cols) 
	{
	env = getenv("COLUMNS");
	if (env)
		cols = atoi(env);
	if (!cols)
		cols = 80;
	}

printf("%d %d\n", rows, cols);

printf("Program completed successfully\n");

}


Note, this was trawled off the net, and involves very little in the way of
personal
knowledge


Chris


http://members.aol.com/chriscrylex/euphoria.htm
http://uboard.proboards32.com/
http://members.aol.com/chriscrylex/EUSQLite/eusql.html

13. Re: exu 3, key.ex

• Posted by Robert Craig <rds at RapidEuphoria.com> Jun 22, 2006
• 660 views

Chris Burch wrote:
> Will this help
> 
> #include <stdio.h>
> #include <stdlib.h>
> #include <sys/ioctl.h>
> #include <unistd.h>
> 
> struct winsize ws;
> 
> int main()
> {
> char *buffer, *env;
> int lines;
> int rows, cols;
> 
> buffer = getenv("LINES");
> if (buffer != NULL )
>     printf("LINES are %s\n", buffer);
> //lines = atoi("400");
> //printf("Lines number :%d\n", lines);
> 
> if (ioctl(1, TIOCGWINSZ, &ws) == -1) 
> 	{
> 	rows = 24;
> 	cols = 80;
> 	} 
> else 
> 	{
> 	if (!ioctl(STDIN_FILENO, TIOCGWINSZ, &ws)) 
> 		{
> 		 rows = ws.ws_row;
> 		 cols = ws.ws_col;
> 		 if (!rows) 
> 			 {
> 			  env = getenv("LINES");
> 			  if (env)
> 				rows = atoi(env);
> 			  if (!rows)
> 				rows = 24;
> 		     }
> 		if (!cols) 
> 			{
> 			 env = getenv("COLUMNS");
> 			 if (env)
> 				cols = atoi(env);
> 			 if (!cols)
> 				cols = 80;
> 		    }
> 		}
> 	}
> 
> if (!rows) 
> 	{
> 	env = getenv("LINES");
> 	if (env)
> 		rows = atoi(env);
> 	if (!rows)
> 		rows = 24;
> 	}
> 
> if (!cols) 
> 	{
> 	env = getenv("COLUMNS");
> 	if (env)
> 		cols = atoi(env);
> 	if (!cols)
> 		cols = 80;
> 	}
> 
> printf("%d %d\n", rows, cols);
> 
> printf("Program completed successfully\n");
> 
> }

Yes, it works! Thanks a lot. That code will be very useful.
It's actually the ioctl call that successfully picks up
the lines and columns. As I had found earlier, getenv() 
doesn't retrieve these variables. Though, if I say:
    export LINES
    export COLUMNS
before running the program, then getenv() does work. (Thanks Elliott).
But that's a bit inconvenient.

Sorry for the long delay in testing your code and replying.
I had a lot of distractions lately (such as watching Saw II ).

Regards,
   Rob Craig
   Rapid Deployment Software
   http://www.RapidEuphoria.com

15. Re: exu 3, key.ex

• Posted by Kenneth Rhodes <ken_rhodes30436 at yahoo.com> Jun 22, 2006
• 666 views
• Last edited Jun 23, 2006

Robert Craig wrote:

> 
> OK, a new version of exu, that recognizes the size of the
> text window, is now available as pre-alpha-4:
> 
>     <a
>     href="http://www.rapideuphoria.com/uploads/exu">http://www.rapideuphoria.com/uploads/exu</a>
> 
> For instance, ed will automatically give you more lines and 
> more columns, if available.
> 
> It looks for LINES and COLUMNS first, then tries ioctl(),
> then defaults to 24x80 if all else fails. On the two systems
> I tried, it picked up the size correctly.
> 
> I think that eliminates the last deficiency of the new exu
> (doesn't use ncurses) versus 2.5 (needs ncurses).
> 
> Regards,
>    Rob Craig
>    Rapid Deployment Software
>    <a href="http://www.RapidEuphoria.com">http://www.RapidEuphoria.com</a>

The only glitch I notice with pre-alpha-4 is that lines longer than 80
don't seem to scroll... look at the 2nd line below.


-- or
--     exwc ed.ex (quicker response but some control-key combinations aren't rec
--                                                                             
ognized)
-- How it Works:

I'm using Konsole under Fluxbox, SUSE 10.0.  



Ken Rhodes
Folding at Home: http://folding.stanford.edu/
100% MicroSoft Free
SuSE Linux 10.0
No AdWare, SpyWare, or Viruses!
Life is Good,  

17. Re: exu 3, key.ex

• Posted by Kenneth Rhodes <ken_rhodes30436 at yahoo.com> Jun 23, 2006
• 658 views

Robert Craig wrote:
> 
> Kenneth Rhodes wrote:
> > The only glitch I notice with pre-alpha-4 is that lines longer than 80
> > don't seem to scroll... look at the 2nd line below.
> 
> Whoops... I had hard-coded an "80" in one place, 
> instead of "col_max". You can now download pre-alpha-5:
> 
>    <a
>    href="http://www.rapideuphoria.com/uploads/exu">http://www.rapideuphoria.com/uploads/exu</a>
> 
> (be careful - pre-alpha-4 might be in your browser's cache.)
> 
> Regards,
>    Rob Craig
>    Rapid Deployment Software
>    <a href="http://www.RapidEuphoria.com">http://www.RapidEuphoria.com</a>

Thats what I call a quick fix!    pre-alph-5 scrolls 80+ character lines
correctly now.

Thanks,

Ken Rhodes
Folding at Home: http://folding.stanford.edu/
100% MicroSoft Free
SuSE Linux 10.0
No AdWare, SpyWare, or Viruses!
Life is Good,  

19. Re: exu 3, key.ex

• Posted by Robert Craig <rds at RapidEuphoria.com> Jun 23, 2006
• 675 views

Matt Lewis wrote:
> 
> Robert Craig wrote:
> > 
> > Kenneth Rhodes wrote:
> > > The only glitch I notice with pre-alpha-4 is that lines longer than 80
> > > don't seem to scroll... look at the 2nd line below.
> > 
> > Whoops... I had hard-coded an "80" in one place, 
> > instead of "col_max". You can now download pre-alpha-5:
> > 
> 
> Rob,
> 
> Could you investigate this issue for windows (or maybe changing that 
> hard code will fix it)?  I often use a wider console, and scrolling text
> can be a problem.

Yes, I think I'm assuming 80 for a Windows console 
somewhere in the code. I already have this as an item to fix 
for the next release. Thanks for reminding me.

Regards,
   Rob Craig
   Rapid Deployment Software
   http://www.RapidEuphoria.com