newLisp compiles also on OpenBSD3.4

pjot · Post by **pjot** » Thu Dec 02, 2004 12:35 pm

Hi Lutz,

Fiddling with the keyboard stuff I thought: why not try to compile on OpenBSD as well?

The BSD makefile did not work; I used the Linux makefile, but I had to adjusted this line:

$(CC) $(OBJS) -g -lm -ldl -lreadline -lncurses -o newlisp

to:

$(CC) $(OBJS) -g -lm -lreadline -lncurses -o newlisp

Thereby omitting the DL library. I used OpenBSD 3.4. It compiles OK now, and testing with a few small programs seem to work fine. I will do some more tests today.

Peter

Lutz · Post by **Lutz** » Thu Dec 02, 2004 1:03 pm

Exactly that line is included in the BSD makefile, but out-commented and with a note to use it for NetBSD. Looks like I can add OpenBSD to the note.

I would include specific makefile for NetBSD and OpenBSD (or any other OS), if I would have access to such a system, so I could test/tune every release on it. One of the people on this board gave me permanent access to a Sparc Solaris system which is a great help.

I will release the new 'read-key' function in the next release and hope that it works on most BSD releases. The FreeBSD system I am using at my ISP may be configured in an unusual way and for that reason the function may not work there. The description of tcsetattr() and the termios.h include file are similar on Linux and BSD systems, so I think it should work. I also tried fctnl(O_NONBLOCK) on BSD but with unreliable results and no possibility to turn it back to blocking mode.

Lutz

pjot · Post by **pjot** » Thu Dec 02, 2004 2:37 pm

For the compilation of newLisp on OpenBSD I used the pre-installed gcc version 2.95.3 with the modified Makefile. The "file" command on the resulting binary shows:

peter@openbsd ~> file newlisp
newlisp: ELF 32-bit LSB executable, Intel 80386, version 1, for OpenBSD, dynamically linked (uses shared libs), stripped

peter@openbsd ~> ldd newlisp
newlisp:
Start End Type Ref Name
00000000 00000000 exe 1 newlisp
0212c000 22133000 rlib 1 /usr/lib/libm.so.1.0
0b1c0000 2b1c9000 rlib 1 /usr/lib/libreadline.so.1.0
012d6000 212ea000 rlib 1 /usr/lib/libncurses.so.9.0
0b2fd000 2b336000 rlib 1 /usr/lib/libc.so.30.1
0dea2000 0dea2000 rtld 1 /usr/libexec/ld.so

For the keyboard stuff, if the termios.h file is present, one might expect it to work indeed. Thanks by the way for the new command!

Lutz · Post by **Lutz** » Thu Dec 02, 2004 3:33 pm

Meanwhie I could try the new 'read-key' on a NetBSD system, but with the same result: getchar() always returns -1 and 'read-key' will hang in the while loop for that reason. Let me know if you can get it work on OpenBSD.

Lutz

pjot · Post by **pjot** » Thu Dec 02, 2004 4:38 pm

It seems not to work with OpenBSD either:

Code: Select all

#include <termios.h>
#include <stdio.h>

int kb_hit(void)
{
struct termios term, oterm;
int fd = 0;
int c = 0;

/* get the terminal settings */
tcgetattr(fd, &oterm);

/* get a copy of the settings, which we modify */
memcpy(&term, &oterm, sizeof(term));

/* put the terminal in non-canonical mode, any
reads timeout after 0.1 seconds or when a
single character is read */
term.c_lflag = term.c_lflag & (!ICANON);
term.c_cc[VMIN] = 0;
term.c_cc[VTIME] = 1;
tcsetattr(fd, TCSANOW, &term);

/* get input - timeout after 0.1 seconds or
when one character is read. If timed out
getchar() returns -1, otherwise it returns
the character */
c=getchar();

/* reset the terminal to original state */
tcsetattr(fd, TCSANOW, &oterm);

/* return character */
return c;
}

int main()
{
sleep(1);
printf("Key pressed: %d\n", kb_hit());
return 0;
}

If I run this, I receive a '-1' on the prompt. Annoying! I have to leave office now, tomorrow I can continue testing with OpenBSD...

pjot · Post by **pjot** » Thu Dec 02, 2004 4:53 pm

Sorry, it DOES run ok on OpenBSD but I have to press a key in time:

peter@openbsd ~> ./key
eKey pressed: 101

As you can see I pressed the "e" of which the ASCII code is 101. If I do not press a key the function returns a -1, but that is because of the timeout.

Lutz · Post by **Lutz** » Thu Dec 02, 2004 4:54 pm

That is the same, I get, but works fine on Linux and Solaris. Also, you should change one of the lines:

from:
term.c_lflag = term.c_lflag & (!ICANON);

to:
term.c_lflag = term.c_lflag & ~ICANON;
or:
term.c_lflag &= ~ICANON;

Because !ICANON will alwyas give 0 instead of the bit-complement, which is what you want and have to do with ~ICANON. The '!' in 'C' is a logical not, not a bit-not which is the '~'

But that will not make the difference, you will still get -1. I also tried the following on BSD:

------------BSD code not working -------------
int c, flags;

flags = fcntl(0, F_GETFL);
fcntl(0, F_SETFL, flags | O_NONBLOCK);

while((c=getchar()) == -1);

fcntl(0, F_SETFL, flags);

return(c)
--------------------------------------------------

But it will not unblock, but leave things like they are before. Tried this on FeeBSD and NetBSD. Any BSD experts out there!?

Lutz

pjot · Post by **pjot** » Thu Dec 02, 2004 5:27 pm

I see; I will test these modifications tomorrow on OpenBSD, I cannot reach the BSD machine anymore.

pjot · Post by **pjot** » Fri Dec 03, 2004 8:36 am

Indeed, it remains hanging on OpenBSD as well. So with BSD it is not going to work. I'll try to find out some things today.

pjot · Post by **pjot** » Fri Dec 03, 2004 3:54 pm

Hi Lutz,

I found this code which is slightly different BUT runs fine with OpenBSD:

Code: Select all

/* readchar.c
 * Written by René Schleicher <rs@bofh.name>
 */
#include <termios.h>
#include <string.h>
#include <unistd.h>
#include <stdio.h>

int
main (void)
{
  char c;
  struct termios new_kbd_mode;
  struct termios g_old_kbd_mode;

  /* put keyboard (stdin) in raw, unbuffered mode */
  tcgetattr (0, &g_old_kbd_mode);
  memcpy (&new_kbd_mode, &g_old_kbd_mode, sizeof (struct termios));

  new_kbd_mode.c_lflag &= ~(ICANON | ECHO);
  new_kbd_mode.c_cc[VTIME] = 0;
  new_kbd_mode.c_cc[VMIN] = 1;
  tcsetattr (0, TCSANOW, &new_kbd_mode);


  if (read (0, &c, 1) != 1)
    {
      fprintf (stderr, "read() failed\n");
      _exit (-1);
    }

  /* set back into old mode */
  tcsetattr (0, TCSANOW, &g_old_kbd_mode);
  
  printf ("%d\n", c);
  
  return 0;
}

It performs a READ instead of a getchar(). Can you test it with FreeBSD?

Lutz · Post by **Lutz** » Fri Dec 03, 2004 4:13 pm

Also fails on BSD, read() will always fail with 0, :( .

Seems we are out of luck on this for BSD, but I will release it anyway, as it works on all other OSs and eventually somebody will find the solution for BSD. It's just frustrating, because you would think, it is a standard thing to do.

Lutz

pjot · Post by **pjot** » Fri Dec 03, 2004 4:46 pm

Annoying! The 'read' seems to work with OpenBSD though, no matter how long I wait for a keypress.

You say it returns a '0', doesn't that mean the 'read' reached an EOF? Maybe something special is going on with STDIN on BSD...

Lutz · Post by **Lutz** » Fri Dec 03, 2004 5:30 pm

YES, of course what was I thinking, it works now doing this:

while(read(0, &c, 1) == 0);

So we have it finally working now!

Lutz

pjot · Post by **pjot** » Fri Dec 03, 2004 5:38 pm

GREAT!! Good news! Indeed this was a pain in the you-know-what, such a simple 'standard' thing.... :-)) Thanks!

pjot · Post by **pjot** » Tue Dec 14, 2004 10:03 pm

In the newLisp documentation I see that the new "read-key" command does not work in Mac-OSX. How come? The gcc cross-compiler with the POSIX header files for the Mac *should* be compatible...?

I also saw this remark from some Apple developers:

termio.h
This header file has become obsolete, and has been replaced by termios.h, which is part of the POSIX standard. These two header files are very similar, however, the termios.h does not include the same header files as termio.h. Thus, you should make sure to look directly at the termios.h to make sure it does what your application needs.

Maybe this termio.h is needed instead of termios.h?

Furhermore I noticed a small typo in the second example of the "do-until" command:

(set 'x 10)
(whole (< x 10) (inc 'x))
x => 10

I think the 'whole' should be 'while'?

Lutz · Post by **Lutz** » Wed Dec 15, 2004 12:26 am

Interesting what you are telling about 'read-key' and OSX. On the computer I am compiling on, termio.h is not available and it compiled and linked fine with termios.h on Darwin 6.8 - Max-OSX 10.2. So I am not sure what is going on here. Any suggestions any Mac person on this board?

Thanks for catching the 'whole' typo, perhaps this is what we need as a new function :). I also posted a new revision of the 8.3.2 manual in the development directory with some changes/additions: 'cpymem' and 'dump' are now included in the normal manual for all the folks out there who like to live dangerous and touch hardware with their lisp expressions.

Lutz

pjot · Post by **pjot** » Wed Dec 15, 2004 9:26 am

By the way, I meant the typo in the "do-while" command instead of the "do-until", my mistake... :-)

Also the "cpymem" appears before "cos" and "count", shouldn't it be put there in alphabetical order? Also "dup" appears before "dump".

Lutz · Post by **Lutz** » Wed Dec 15, 2004 2:28 pm

Oops, thanks

Lutz

Lutz · Post by **Lutz** » Wed Dec 15, 2004 2:57 pm

.. posted rev-2: http://newlisp.org/downloads/developmen ... anual.html

Lutz

pjot · Post by **pjot** » Wed Dec 15, 2004 7:40 pm

Thanks Lutz... still the "whole"-typo in the 2nd example of the "do-while" command is there... sorry to be so annoying! :-))

Cheers

Peter

Lutz · Post by **Lutz** » Wed Dec 15, 2004 9:36 pm

Thanks, not annoying at all! that's why I put it out there.

Lutz

ps: rev-3 posted