home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / conf / conf_Sun.pl < prev    next >
Encoding:
Text File  |  1993-07-14  |  1.3 KB  |  61 lines
  1. # BEGIN Sun short cut config file.  
  2.  
  3. # h2ph generates something like this...
  4.  
  5. sub TCGETS        { 0x40225408; }
  6. sub TCSETS        { 0x80225409; }
  7. sub TIOCGWINSZ    { 0x40087468; }
  8. sub TIOCGETP      { 0x40067408; }
  9.  
  10. sub VERASE     { 2; };
  11. sub VKILL     { 3; };
  12.  
  13. sub VEOF    { 4; };
  14. sub VEOL    { 5; };
  15. sub VEOL2    { 6; };
  16. sub VMIN    { &VEOF; };
  17. sub VTIME    { &VEOL; };
  18. sub ICANON    { 0x00000002; };
  19. sub IEXTEN     { 0x00008000; };
  20.  
  21. sub ECHO    { 0x00000008; };
  22.  
  23. sub B1200       { 0x9; }
  24.  
  25.  
  26.  
  27. # c2ph generates something like this....
  28.  
  29. STRUCT_TERMIOS: {
  30.     package termios;
  31.  
  32.     sub typedef                          { 'L4 c C17'; }
  33.  
  34.     sub termios'c_iflag                  {    0; }
  35.     sub termios'c_oflag                  {    1; }
  36.     sub termios'c_cflag                  {    2; }
  37.     sub termios'c_lflag                  {    3; }
  38.     sub termios'c_line                   {    4; }
  39.     sub termios'c_cc                     {    5; }
  40.  
  41. }
  42.  
  43. # need this because a termios struct on suns doesn't 
  44. # seem to have ispeed or ospeed.  
  45.  
  46. STRUCT_SGTTYB: {
  47.     package sgttyb;
  48.  
  49.     sub typedef                       { 'c4 s'; }
  50.  
  51.     sub sg_ispeed                 { 0; }
  52.     sub sg_ospeed                 { 1; }
  53.     sub sg_erase                  { 2; }
  54.     sub sg_kill                   { 3; }
  55.     sub sg_flags                  { 4; }
  56. } 
  57.  
  58. ($SYSTEM, $VENDOR) = (POSIX, Sun);
  59.  
  60. # END Sun short cut config file.  
  61.