sources/int/nonstand.c

   1 #include "depend.h"\r
   2 #include "genint.h"\r
   3 #include "int.h"\r
   4 #include "process.h"\r
   5 #include "intproto.h"\r
   6 \r
   7 #include "nonstand.h"\r
   8 \r
   9 /* Call (non)standard procedures.\r
  10  * Almost totaly implementation dependent.\r
  11  */\r
  12 \r
  13 bool graphmode = FALSE;                 /* TRUE iff graphics mode active */\r
  14 \r
  15 \r
  16 #ifndef NO_GRAPH\r
  17 #  if DJE\r
  18 #     include "svga1.c"\r
  19 #  elif MSDOS\r
  20 #     include "dosgraf1.c"\r
  21 #  elif UNIX\r
  22 #     include "x11graf1.c"\r
  23 #  endif\r
  24 #endif\r
  25 \r
  26 \r
  27 \r
  28 void nonstandard(nrproc)                /* Call (non)standard procedure */\r
  29 word nrproc;\r
  30 {\r
  31 \r
  32    word am;\r
  33    int cnt=0;\r
  34    float r1, r2;\r
  35    word ax,bx,cx,dx,i,t1,t2;\r
  36    unsigned int v,p,h,l,r,c;\r
  37    unsigned int Res_graph_X,Res_graph_Y;\r
  38 \r
  39     switch ((int) nrproc)\r
  40     {\r
  41 \r
  42 \r
  43 #ifndef NO_GRAPH\r
  44 #  if DJE\r
  45 #     include "svga2.c" \r
  46 #  elif MSDOS\r
  47 #     include "dosgraf2.c"\r
  48 #  elif OS2\r
  49 #     include "os2graf2.c"\r
  50 #  elif UNIX\r
  51 #     include "x11graf2.c"\r
  52 #  else only /*INKEY defined */\r
  53           case INKEY:    \r
  54                 param[ 0 ].xword = inkey();\r
  55                      break;\r
  56 #  endif\r
  57 #endif\r
  58 \r
  59         default  :\r
  60                 errsignal(RTEUNSTP);\r
  61     }\r
  62 }\r
  63 \r