modules/ffi/fficall.st

   1 "
   2  coded by Ketmar // Vampire Avalon (psyc://ketmar.no-ip.org/~Ketmar)
   3  Understanding is not required. Only obedience.
   4
   5  This program is free software. It comes without any warranty, to
   6  the extent permitted by applicable law. You can redistribute it
   7  and/or modify it under the terms of the Do What The Fuck You Want
   8  To Public License, Version 2, as published by Sam Hocevar. See
   9  http://sam.zoy.org/wtfpl/COPYING for more details.
  10 "
  11 Package [
  12   FFI
  13 ]
  14
  15
  16 FfiFunction extend [
  17   retType: aType with: anArg1 [
  18     <#FFICall func aType anArg1>.
  19     self primitiveFailed.
  20   ]
  21   retType: aType with: anArg1 with: anArg2 [
  22     <#FFICall func aType anArg1 anArg2>.
  23     self primitiveFailed.
  24   ]
  25   retType: aType with: anArg1 with: anArg2 with: anArg3 [
  26     <#FFICall func aType anArg1 anArg2 anArg3>.
  27     self primitiveFailed.
  28   ]
  29   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 [
  30     <#FFICall func aType anArg1 anArg2 anArg3 anArg4>.
  31     self primitiveFailed.
  32   ]
  33   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 [
  34     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5>.
  35     self primitiveFailed.
  36   ]
  37   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 [
  38     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6>.
  39     self primitiveFailed.
  40   ]
  41   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 [
  42     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7>.
  43     self primitiveFailed.
  44   ]
  45   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 [
  46     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8>.
  47     self primitiveFailed.
  48   ]
  49   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 [
  50     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9>.
  51     self primitiveFailed.
  52   ]
  53   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 [
  54     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10>.
  55     self primitiveFailed.
  56   ]
  57   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 [
  58     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11>.
  59     self primitiveFailed.
  60   ]
  61   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 [
  62     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12>.
  63     self primitiveFailed.
  64   ]
  65   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 [
  66     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13>.
  67     self primitiveFailed.
  68   ]
  69   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 [
  70     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14>.
  71     self primitiveFailed.
  72   ]
  73   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 [
  74     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15>.
  75     self primitiveFailed.
  76   ]
  77   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 [
  78     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16>.
  79     self primitiveFailed.
  80   ]
  81   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 [
  82     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17>.
  83     self primitiveFailed.
  84   ]
  85   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 with: anArg18 [
  86     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17 anArg18>.
  87     self primitiveFailed.
  88   ]
  89   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 with: anArg18 with: anArg19 [
  90     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17 anArg18 anArg19>.
  91     self primitiveFailed.
  92   ]
  93   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 with: anArg18 with: anArg19 with: anArg20 [
  94     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17 anArg18 anArg19 anArg20>.
  95     self primitiveFailed.
  96   ]
  97   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 with: anArg18 with: anArg19 with: anArg20 with: anArg21 [
  98     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17 anArg18 anArg19 anArg20 anArg21>.
  99     self primitiveFailed.
 100   ]
 101   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 with: anArg18 with: anArg19 with: anArg20 with: anArg21 with: anArg22 [
 102     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17 anArg18 anArg19 anArg20 anArg21 anArg22>.
 103     self primitiveFailed.
 104   ]
 105   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 with: anArg18 with: anArg19 with: anArg20 with: anArg21 with: anArg22 with: anArg23 [
 106     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17 anArg18 anArg19 anArg20 anArg21 anArg22 anArg23>.
 107     self primitiveFailed.
 108   ]
 109   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 with: anArg18 with: anArg19 with: anArg20 with: anArg21 with: anArg22 with: anArg23 with: anArg24 [
 110     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17 anArg18 anArg19 anArg20 anArg21 anArg22 anArg23 anArg24>.
 111     self primitiveFailed.
 112   ]
 113   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 with: anArg18 with: anArg19 with: anArg20 with: anArg21 with: anArg22 with: anArg23 with: anArg24 with: anArg25 [
 114     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17 anArg18 anArg19 anArg20 anArg21 anArg22 anArg23 anArg24 anArg25>.
 115     self primitiveFailed.
 116   ]
 117   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 with: anArg18 with: anArg19 with: anArg20 with: anArg21 with: anArg22 with: anArg23 with: anArg24 with: anArg25 with: anArg26 [
 118     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17 anArg18 anArg19 anArg20 anArg21 anArg22 anArg23 anArg24 anArg25 anArg26>.
 119     self primitiveFailed.
 120   ]
 121   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 with: anArg18 with: anArg19 with: anArg20 with: anArg21 with: anArg22 with: anArg23 with: anArg24 with: anArg25 with: anArg26 with: anArg27 [
 122     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17 anArg18 anArg19 anArg20 anArg21 anArg22 anArg23 anArg24 anArg25 anArg26 anArg27>.
 123     self primitiveFailed.
 124   ]
 125   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 with: anArg18 with: anArg19 with: anArg20 with: anArg21 with: anArg22 with: anArg23 with: anArg24 with: anArg25 with: anArg26 with: anArg27 with: anArg28 [
 126     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17 anArg18 anArg19 anArg20 anArg21 anArg22 anArg23 anArg24 anArg25 anArg26 anArg27 anArg28>.
 127     self primitiveFailed.
 128   ]
 129   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 with: anArg18 with: anArg19 with: anArg20 with: anArg21 with: anArg22 with: anArg23 with: anArg24 with: anArg25 with: anArg26 with: anArg27 with: anArg28 with: anArg29 [
 130     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17 anArg18 anArg19 anArg20 anArg21 anArg22 anArg23 anArg24 anArg25 anArg26 anArg27 anArg28 anArg29>.
 131     self primitiveFailed.
 132   ]
 133   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 with: anArg18 with: anArg19 with: anArg20 with: anArg21 with: anArg22 with: anArg23 with: anArg24 with: anArg25 with: anArg26 with: anArg27 with: anArg28 with: anArg29 with: anArg30 [
 134     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17 anArg18 anArg19 anArg20 anArg21 anArg22 anArg23 anArg24 anArg25 anArg26 anArg27 anArg28 anArg29 anArg30>.
 135     self primitiveFailed.
 136   ]
 137   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 with: anArg18 with: anArg19 with: anArg20 with: anArg21 with: anArg22 with: anArg23 with: anArg24 with: anArg25 with: anArg26 with: anArg27 with: anArg28 with: anArg29 with: anArg30 with: anArg31 [
 138     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17 anArg18 anArg19 anArg20 anArg21 anArg22 anArg23 anArg24 anArg25 anArg26 anArg27 anArg28 anArg29 anArg30 anArg31>.
 139     self primitiveFailed.
 140   ]
 141   retType: aType with: anArg1 with: anArg2 with: anArg3 with: anArg4 with: anArg5 with: anArg6 with: anArg7 with: anArg8 with: anArg9 with: anArg10 with: anArg11 with: anArg12 with: anArg13 with: anArg14 with: anArg15 with: anArg16 with: anArg17 with: anArg18 with: anArg19 with: anArg20 with: anArg21 with: anArg22 with: anArg23 with: anArg24 with: anArg25 with: anArg26 with: anArg27 with: anArg28 with: anArg29 with: anArg30 with: anArg31 with: anArg32 [
 142     <#FFICall func aType anArg1 anArg2 anArg3 anArg4 anArg5 anArg6 anArg7 anArg8 anArg9 anArg10 anArg11 anArg12 anArg13 anArg14 anArg15 anArg16 anArg17 anArg18 anArg19 anArg20 anArg21 anArg22 anArg23 anArg24 anArg25 anArg26 anArg27 anArg28 anArg29 anArg30 anArg31 anArg32>.
 143     self primitiveFailed.
 144   ]
 145 ]