modules/win95.console.lisp

   1
   2 (cl:in-package w32apimod)
   3
   4 (define-w32api-module win95.console :win95.console)
   5
   6 (cl:in-package cl-w32api.module.win95.console)
   7
   8
   9 (defcfunex-exported ("AllocConsole" AllocConsole :convention :stdcall) :int)
  10
  11 (defcfunex-exported ("CreateConsoleScreenBuffer" CreateConsoleScreenBuffer :convention :stdcall) :pointer
  12   (arg0 :unsigned-long)
  13   (arg1 :unsigned-long)
  14   (arg2 :pointer)
  15   (arg3 :unsigned-long)
  16   (arg4 :pointer))
  17
  18 (defcfunex-exported ("FillConsoleOutputAttribute" FillConsoleOutputAttribute :convention :stdcall) :int
  19   (arg0 :pointer)
  20   (arg1 :unsigned-short)
  21   (arg2 :unsigned-long)
  22   (arg3 COORD)
  23   (arg4 :pointer))
  24
  25 (defcfunex-exported ("FillConsoleOutputCharacterA" FillConsoleOutputCharacterA :convention :stdcall) :int
  26   (arg0 :pointer)
  27   (arg1 :char)
  28   (arg2 :unsigned-long)
  29   (arg3 COORD)
  30   (arg4 :pointer))
  31
  32 (defcfunex-exported ("FillConsoleOutputCharacterW" FillConsoleOutputCharacterW :convention :stdcall) :int
  33   (arg0 :pointer)
  34   (arg1 :pointer)
  35   (arg2 :unsigned-long)
  36   (arg3 COORD)
  37   (arg4 :pointer))
  38
  39 (defcfunex-exported ("FlushConsoleInputBuffer" FlushConsoleInputBuffer :convention :stdcall) :int
  40   (arg0 :pointer))
  41
  42 (defcfunex-exported ("FreeConsole" FreeConsole :convention :stdcall) :int)
  43
  44 (defcfunex-exported ("GenerateConsoleCtrlEvent" GenerateConsoleCtrlEvent :convention :stdcall) :int
  45   (arg0 :unsigned-long)
  46   (arg1 :unsigned-long))
  47
  48 (defcfunex-exported ("GetConsoleCP" GetConsoleCP :convention :stdcall) :unsigned-int)
  49
  50 (defcfunex-exported ("GetConsoleCursorInfo" GetConsoleCursorInfo :convention :stdcall) :int
  51   (arg0 :pointer)
  52   (arg1 :pointer))
  53
  54 (defcfunex-exported ("GetConsoleMode" GetConsoleMode :convention :stdcall) :int
  55   (arg0 :pointer)
  56   (arg1 :pointer))
  57
  58 (defcfunex-exported ("GetConsoleOutputCP" GetConsoleOutputCP :convention :stdcall) :unsigned-int)
  59
  60 (defcfunex-exported ("GetConsoleScreenBufferInfo" GetConsoleScreenBufferInfo :convention :stdcall) :int
  61   (arg0 :pointer)
  62   (arg1 :pointer))
  63
  64 (defcfunex-exported ("GetConsoleTitleA" GetConsoleTitleA :convention :stdcall) :unsigned-long
  65   (arg0 :string)
  66   (arg1 :unsigned-long))
  67
  68 (defcfunex-exported ("GetConsoleTitleW" GetConsoleTitleW :convention :stdcall) :unsigned-long
  69   (arg0 :pointer)
  70   (arg1 :unsigned-long))
  71
  72 (defcfunex-exported ("GetLargestConsoleWindowSize" GetLargestConsoleWindowSize :convention :stdcall) COORD
  73   (arg0 :pointer))
  74
  75 (defcfunex-exported ("GetNumberOfConsoleInputEvents" GetNumberOfConsoleInputEvents :convention :stdcall) :int
  76   (arg0 :pointer)
  77   (arg1 :pointer))
  78
  79 (defcfunex-exported ("GetNumberOfConsoleMouseButtons" GetNumberOfConsoleMouseButtons :convention :stdcall) :int
  80   (arg0 :pointer))
  81
  82 (defcfunex-exported ("GetStdHandle" GetStdHandle :convention :stdcall) :pointer
  83   (arg0 :unsigned-long))
  84
  85 (defcfunex-exported ("PeekConsoleInputA" PeekConsoleInputA :convention :stdcall) :int
  86   (arg0 :pointer)
  87   (arg1 :pointer)
  88   (arg2 :unsigned-long)
  89   (arg3 :pointer))
  90
  91 (defcfunex-exported ("PeekConsoleInputW" PeekConsoleInputW :convention :stdcall) :int
  92   (arg0 :pointer)
  93   (arg1 :pointer)
  94   (arg2 :unsigned-long)
  95   (arg3 :pointer))
  96
  97 (defcfunex-exported ("ReadConsoleA" ReadConsoleA :convention :stdcall) :int
  98   (arg0 :pointer)
  99   (arg1 :pointer)
 100   (arg2 :unsigned-long)
 101   (arg3 :pointer)
 102   (arg4 :pointer))
 103
 104 (defcfunex-exported ("ReadConsoleW" ReadConsoleW :convention :stdcall) :int
 105   (arg0 :pointer)
 106   (arg1 :pointer)
 107   (arg2 :unsigned-long)
 108   (arg3 :pointer)
 109   (arg4 :pointer))
 110
 111 (defcfunex-exported ("ReadConsoleInputA" ReadConsoleInputA :convention :stdcall) :int
 112   (arg0 :pointer)
 113   (arg1 :pointer)
 114   (arg2 :unsigned-long)
 115   (arg3 :pointer))
 116
 117 (defcfunex-exported ("ReadConsoleInputW" ReadConsoleInputW :convention :stdcall) :int
 118   (arg0 :pointer)
 119   (arg1 :pointer)
 120   (arg2 :unsigned-long)
 121   (arg3 :pointer))
 122
 123 (defcfunex-exported ("ReadConsoleOutputAttribute" ReadConsoleOutputAttribute :convention :stdcall) :int
 124   (arg0 :pointer)
 125   (arg1 :pointer)
 126   (arg2 :unsigned-long)
 127   (arg3 COORD)
 128   (arg4 :pointer))
 129
 130 (defcfunex-exported ("ReadConsoleOutputCharacterA" ReadConsoleOutputCharacterA :convention :stdcall) :int
 131   (arg0 :pointer)
 132   (arg1 :string)
 133   (arg2 :unsigned-long)
 134   (arg3 COORD)
 135   (arg4 :pointer))
 136
 137 (defcfunex-exported ("ReadConsoleOutputCharacterW" ReadConsoleOutputCharacterW :convention :stdcall) :int
 138   (arg0 :pointer)
 139   (arg1 :pointer)
 140   (arg2 :unsigned-long)
 141   (arg3 COORD)
 142   (arg4 :pointer))
 143
 144 (defcfunex-exported ("ReadConsoleOutputA" ReadConsoleOutputA :convention :stdcall) :int
 145   (arg0 :pointer)
 146   (arg1 :pointer)
 147   (arg2 COORD)
 148   (arg3 COORD)
 149   (arg4 :pointer))
 150
 151 (defcfunex-exported ("ReadConsoleOutputW" ReadConsoleOutputW :convention :stdcall) :int
 152   (arg0 :pointer)
 153   (arg1 :pointer)
 154   (arg2 COORD)
 155   (arg3 COORD)
 156   (arg4 :pointer))
 157
 158 (defcfunex-exported ("ScrollConsoleScreenBufferA" ScrollConsoleScreenBufferA :convention :stdcall) :int
 159   (arg0 :pointer)
 160   (arg1 :pointer)
 161   (arg2 :pointer)
 162   (arg3 COORD)
 163   (arg4 :pointer))
 164
 165 (defcfunex-exported ("ScrollConsoleScreenBufferW" ScrollConsoleScreenBufferW :convention :stdcall) :int
 166   (arg0 :pointer)
 167   (arg1 :pointer)
 168   (arg2 :pointer)
 169   (arg3 COORD)
 170   (arg4 :pointer))
 171
 172 (defcfunex-exported ("SetConsoleActiveScreenBuffer" SetConsoleActiveScreenBuffer :convention :stdcall) :int
 173   (arg0 :pointer))
 174
 175 (defcfunex-exported ("SetConsoleCP" SetConsoleCP :convention :stdcall) :int
 176   (arg0 :unsigned-int))
 177
 178 (defcfunex-exported ("SetConsoleCtrlHandler" SetConsoleCtrlHandler :convention :stdcall) :int
 179   (arg0 :pointer)
 180   (arg1 :int))
 181
 182 (defcfunex-exported ("SetConsoleCursorInfo" SetConsoleCursorInfo :convention :stdcall) :int
 183   (arg0 :pointer)
 184   (arg1 :pointer))
 185
 186 (defcfunex-exported ("SetConsoleCursorPosition" SetConsoleCursorPosition :convention :stdcall) :int
 187   (arg0 :pointer)
 188   (arg1 COORD))
 189
 190 (defcfunex-exported ("SetConsoleMode" SetConsoleMode :convention :stdcall) :int
 191   (arg0 :pointer)
 192   (arg1 :unsigned-long))
 193
 194 (defcfunex-exported ("SetConsoleOutputCP" SetConsoleOutputCP :convention :stdcall) :int
 195   (arg0 :unsigned-int))
 196
 197 (defcfunex-exported ("SetConsoleScreenBufferSize" SetConsoleScreenBufferSize :convention :stdcall) :int
 198   (arg0 :pointer)
 199   (arg1 COORD))
 200
 201 (defcfunex-exported ("SetConsoleTextAttribute" SetConsoleTextAttribute :convention :stdcall) :int
 202   (arg0 :pointer)
 203   (arg1 :unsigned-short))
 204
 205 (defcfunex-exported ("SetConsoleTitleA" SetConsoleTitleA :convention :stdcall) :int
 206   (arg0 :string))
 207
 208 (defcfunex-exported ("SetConsoleTitleW" SetConsoleTitleW :convention :stdcall) :int
 209   (arg0 :pointer))
 210
 211 (defcfunex-exported ("SetConsoleWindowInfo" SetConsoleWindowInfo :convention :stdcall) :int
 212   (arg0 :pointer)
 213   (arg1 :int)
 214   (arg2 :pointer))
 215
 216 (defcfunex-exported ("SetStdHandle" SetStdHandle :convention :stdcall) :int
 217   (arg0 :unsigned-long)
 218   (arg1 :pointer))
 219
 220 (defcfunex-exported ("WriteConsoleA" WriteConsoleA :convention :stdcall) :int
 221   (arg0 :pointer)
 222   (arg1 :pointer)
 223   (arg2 :unsigned-long)
 224   (arg3 :pointer)
 225   (arg4 :pointer))
 226
 227 (defcfunex-exported ("WriteConsoleW" WriteConsoleW :convention :stdcall) :int
 228   (arg0 :pointer)
 229   (arg1 :pointer)
 230   (arg2 :unsigned-long)
 231   (arg3 :pointer)
 232   (arg4 :pointer))
 233
 234 (defcfunex-exported ("WriteConsoleInputA" WriteConsoleInputA :convention :stdcall) :int
 235   (arg0 :pointer)
 236   (arg1 :pointer)
 237   (arg2 :unsigned-long)
 238   (arg3 :pointer))
 239
 240 (defcfunex-exported ("WriteConsoleInputW" WriteConsoleInputW :convention :stdcall) :int
 241   (arg0 :pointer)
 242   (arg1 :pointer)
 243   (arg2 :unsigned-long)
 244   (arg3 :pointer))
 245
 246 (defcfunex-exported ("WriteConsoleOutputA" WriteConsoleOutputA :convention :stdcall) :int
 247   (arg0 :pointer)
 248   (arg1 :pointer)
 249   (arg2 COORD)
 250   (arg3 COORD)
 251   (arg4 :pointer))
 252
 253 (defcfunex-exported ("WriteConsoleOutputW" WriteConsoleOutputW :convention :stdcall) :int
 254   (arg0 :pointer)
 255   (arg1 :pointer)
 256   (arg2 COORD)
 257   (arg3 COORD)
 258   (arg4 :pointer))
 259
 260 (defcfunex-exported ("WriteConsoleOutputAttribute" WriteConsoleOutputAttribute :convention :stdcall) :int
 261   (arg0 :pointer)
 262   (arg1 :pointer)
 263   (arg2 :unsigned-long)
 264   (arg3 COORD)
 265   (arg4 :pointer))
 266
 267 (defcfunex-exported ("WriteConsoleOutputCharacterA" WriteConsoleOutputCharacterA :convention :stdcall) :int
 268   (arg0 :pointer)
 269   (arg1 :string)
 270   (arg2 :unsigned-long)
 271   (arg3 COORD)
 272   (arg4 :pointer))
 273
 274 (defcfunex-exported ("WriteConsoleOutputCharacterW" WriteConsoleOutputCharacterW :convention :stdcall) :int
 275   (arg0 :pointer)
 276   (arg1 :pointer)
 277   (arg2 :unsigned-long)
 278   (arg3 COORD)
 279   (arg4 :pointer))
 280