ocaml-curses/mingw32-ocaml-curses-0.1-win32-functions.patch

   1 Remove functions that aren't supported on Win32 / PDCurses.
   2
   3 diff -ur mingw32-ocaml-curses-20020319.orig/curses/functions.c mingw32-ocaml-curses-20020319.mingw/curses/functions.c
   4 --- mingw32-ocaml-curses-20020319.orig/curses/functions.c       2002-03-18 01:20:00.000000000 +0000
   5 +++ mingw32-ocaml-curses-20020319.mingw/curses/functions.c      2008-11-15 23:01:46.000000000 +0000
   6 @@ -449,7 +449,9 @@
   7  /* resize */
   8
   9  ML3(wresize,err,window,int,int)
  10 +#ifndef WIN32
  11  ML2(resizeterm,err,int,int)
  12 +#endif
  13
  14  /* scr_dump */
  15
  16 @@ -526,6 +528,8 @@
  17  ML2d(vidputs,err,chtype,(char->unit))
  18  BEG2 putc_function=ab;
  19    r_err(vidputs(a_chtype(aa),putc_callback)); END
  20 +
  21 +#ifndef WIN32
  22  ML2d(tparm,string,string,int array)
  23  BEG2 int t[10],i,n=Wosize_val(ab);
  24    if(n>10) n=10;
  25 @@ -554,6 +558,7 @@
  26  ML1d(bool_terminfo_variable,string*string*string,int) BEG1 arrayret(bool) END
  27  ML1d(num_terminfo_variable,string*string*string,int) BEG1 arrayret(num) END
  28  ML1d(str_terminfo_variable,string*string*string,int) BEG1 arrayret(str) END
  29 +#endif
  30
  31  /* touch */
  32
  33 @@ -611,6 +616,7 @@
  34  END
  35  #undef ca
  36
  37 +#ifndef WIN32
  38  /* Du travail pour les esclaves de M$ */
  39  ML0d(winch_handler_on,unit)
  40  BEG0 signal(SIGWINCH,winch_handler); CAMLreturn(Val_unit); END
  41 @@ -627,4 +633,4 @@
  42    ioctl(a_int(aa),TIOCGWINSZ,&ws);
  43    r_int_int(ws.ws_row,ws.ws_col);
  44  END
  45 -
  46 +#endif
  47 diff -ur mingw32-ocaml-curses-20020319.orig/curses/ml_curses.c mingw32-ocaml-curses-20020319.mingw/curses/ml_curses.c
  48 --- mingw32-ocaml-curses-20020319.orig/curses/ml_curses.c       2002-03-18 01:20:00.000000000 +0000
  49 +++ mingw32-ocaml-curses-20020319.mingw/curses/ml_curses.c      2008-11-15 22:57:53.000000000 +0000
  50 @@ -5,12 +5,14 @@
  51  #include <caml/fail.h>
  52  #include <stdio.h>
  53  #include <unistd.h>
  54 -#include <ncurses.h>
  55 +#include <curses.h>
  56  #include <term.h>
  57  /* Du travail pour les esclaves de M$ */
  58  #include <signal.h>
  59 +#ifndef WIN32
  60  #include <termios.h>
  61  #include <sys/ioctl.h>
  62 +#endif
  63
  64  #define AWB(x) caml__dummy_##x=caml__dummy_##x; /* anti-warning bugware */
  65