home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 242.lha / GenericLIBrarian / source / unix-mach.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-07  |  3.6 KB  |  271 lines
  1. /*
  2.  * GLIB - a Generic LIBrarian and editor for synths
  3.  *
  4.  * Machine dependent stuff.
  5.  *
  6.  * Unix version
  7.  */
  8.  
  9. #include "glib.h"
  10. #include <ctype.h>
  11.  
  12. int Rows, Cols;
  13.  
  14. #include <curses.h>
  15.  
  16. hello()
  17. {
  18. }
  19.  
  20. bye()
  21. {
  22.         windgoto(22,0);
  23.         windrefresh();
  24.         windexit(0);
  25. }
  26.  
  27. /* getmouse - get currect row and column of mouse */
  28. getmouse(amr,amc)
  29. int *amr;
  30. int *amc;
  31. {
  32. #ifdef USEMOUSE
  33.         /* no such */
  34. #else
  35.         *amr = -1;
  36.         *amc = -1;
  37. #endif
  38. }
  39.  
  40. /* statmouse - return mouse button state (0=nothing pressed,1=left,2=right) */
  41. statmouse()
  42. {
  43. #ifdef USEMOUSE
  44.         /* no such */
  45. #else
  46.         return(-1);
  47. #endif
  48. }
  49.  
  50. /* Return when either a console key or mouse button is pressed. */
  51. mouseorkey()
  52. {
  53. #ifdef USEMOUSE
  54.         /* no such */
  55. #else
  56.         return(getconsole());
  57. #endif
  58. }
  59.  
  60. flushconsole()
  61. {
  62. }
  63.  
  64. statconsole()
  65. {
  66.         return(1);
  67. }
  68.  
  69. getconsole()
  70. {
  71.         return(getchar());
  72. }
  73.  
  74. getmidi()
  75. {
  76.         return(-1);
  77. }
  78.  
  79. statmidi()
  80. {
  81.         return(0);
  82. }
  83.  
  84. /*ARGSUSED*/
  85. sendmidi(c)
  86. {
  87. }
  88.  
  89. flushmidi()
  90. {
  91.         while ( STATMIDI )
  92.                 getmidi();
  93. }
  94.  
  95. long milliclock()
  96. {
  97.         static long hzcount = 0;
  98.  
  99.         return(hzcount++);
  100. }
  101.  
  102. millisleep(n)
  103. {
  104.         sleep((n+500)/1000);
  105. }
  106.  
  107. char *
  108. alloc(n)
  109. {
  110.         char *p;
  111.  
  112.         if ( (p=malloc((unsigned)n)) == (char *)NULL ) {
  113.                 printf("*** Whoops *** alloc has failed?!?  No more memory!\n");
  114.                 fflush(stdout);
  115.                 bye();
  116.         }
  117.         return(p);
  118. }
  119.  
  120. windinit()
  121. {
  122.         char *getenv();
  123.  
  124.         initscr();
  125.         Cols = 80;
  126.         Rows = 24;
  127.         noecho();
  128.         nonl();
  129.         cbreak();
  130. }
  131.  
  132. windgoto(r,c)
  133. int r,c;
  134. {
  135.         move(r,c);
  136. }
  137.  
  138. windeeol()
  139. {
  140.         clrtoeol();
  141. }
  142.  
  143. winderaserow(r)
  144. {
  145.         windgoto(r,0);
  146.         windeeol();
  147. }
  148.  
  149. windexit(r)
  150. int r;
  151. {
  152.         nocbreak();
  153.         nl();
  154.         echo();
  155.         endwin();
  156.         exit(r);
  157. }
  158.  
  159. windclear()
  160. {
  161.         clear();
  162. }
  163.  
  164. /* windgets - get a line of input from the console, handling backspaces */
  165. windgets(s)
  166. char *s;
  167. {
  168.         char *origs = s;
  169.         int c;
  170.  
  171.         while ( (c=getconsole()) != '\n' && c!='\r' && c!= EOF ) {
  172.                 if ( c == '\b' ) {
  173.                         if ( s > origs ) {
  174.                                 windstr("\b \b");
  175.                                 s--;
  176.                         }
  177.                 }
  178.                 else {
  179.                         windputc(c);
  180.                         *s++ = c;
  181.                 }
  182.                 windrefresh();
  183.         }
  184.         *s = '\0';
  185. }
  186.  
  187. windstr(s)
  188. char *s;
  189. {
  190.         int c;
  191.  
  192.         while ( (c=(*s++)) != '\0' )
  193.                 windputc(c);
  194. }
  195.  
  196. windputc(c)
  197. int c;
  198. {
  199.         addch(c);
  200. }
  201.  
  202. windrefresh()
  203. {
  204.         refresh();
  205. }
  206.  
  207. beep()
  208. {
  209.         putchar('\007');
  210. }
  211.  
  212. windhigh()
  213. {
  214.         standout();
  215. }
  216.  
  217. windnorm()
  218. {
  219.         standend();
  220. }
  221.  
  222. /****************
  223.  * openls(), nextls(), and closels() are used to scan the current directory.
  224.  ***************/
  225.  
  226. FILE *Phrlist = NULL;
  227.  
  228. openls()
  229. {
  230.         FILE *popen();
  231.         
  232.         Phrlist = popen("ls","r");
  233. }
  234. char *
  235. nextls()
  236. {
  237.         static char fname[65];
  238.  
  239.         if ( fscanf(Phrlist,"%s",fname) != 1 )
  240.                 return(NULL);
  241.         return(fname);
  242. }
  243. closels()
  244. {
  245.         pclose(Phrlist);
  246. }
  247.  
  248. #ifdef FAKECBREAK
  249. #include <sys/termio.h>
  250. struct termio Initterm;
  251. static int First = 1;
  252. cbreak()
  253. {
  254.         struct termio termbuff;
  255.  
  256.         if ( First  ) {
  257.                 First = 0;
  258.                 ioctl(0,TCGETA,&Initterm);
  259.         }
  260.         termbuff = Initterm;
  261.         termbuff.c_lflag &= (~ICANON);
  262.         termbuff.c_cc[4] = 1;
  263.         termbuff.c_cc[5] = 1;
  264.         ioctl(0,TCSETA,&termbuff);
  265. }
  266. nocbreak()
  267. {
  268.         ioctl(0,TCSETA,&Initterm);
  269. }
  270. #endif
  271.