Initial data commit
This commit is contained in:
Ingy döt Net
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
334
Task/Simulate-input-Keyboard/Wren/simulate-input-keyboard-2.wren
Normal file
334
Task/Simulate-input-Keyboard/Wren/simulate-input-keyboard-2.wren
Normal file
|
|
@ -0,0 +1,334 @@
|
|||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <X11/Xlib.h>
|
||||
#include <X11/Xutil.h>
|
||||
#include "wren.h"
|
||||
|
||||
/* C <=> Wren interface functions */
|
||||
|
||||
void C_displayAllocate(WrenVM* vm) {
|
||||
Display** pdisplay = (Display**)wrenSetSlotNewForeign(vm, 0, 0, sizeof(Display*));
|
||||
const char *displayName = wrenGetSlotString(vm, 1);
|
||||
if (displayName == "") {
|
||||
*pdisplay = XOpenDisplay(NULL);
|
||||
} else {
|
||||
*pdisplay = XOpenDisplay(displayName);
|
||||
}
|
||||
}
|
||||
|
||||
void C_gcAllocate(WrenVM* vm) {
|
||||
GC *pgc = (GC *)wrenSetSlotNewForeign(vm, 0, 0, sizeof(GC));
|
||||
Display* display = *(Display**)wrenGetSlotForeign(vm, 1);
|
||||
int s = (int)wrenGetSlotDouble(vm, 2);
|
||||
*pgc = DefaultGC(display, s);
|
||||
}
|
||||
|
||||
void C_eventAllocate(WrenVM* vm) {
|
||||
wrenSetSlotNewForeign(vm, 0, 0, sizeof(XEvent));
|
||||
}
|
||||
|
||||
void C_eventType(WrenVM* vm) {
|
||||
XEvent e = *(XEvent *)wrenGetSlotForeign(vm, 0);
|
||||
wrenSetSlotDouble(vm, 0, (double)e.type);
|
||||
}
|
||||
|
||||
void C_setEventType(WrenVM* vm) {
|
||||
XEvent *e = (XEvent *)wrenGetSlotForeign(vm, 0);
|
||||
int type = (int)wrenGetSlotDouble(vm, 1);
|
||||
e->type = type;
|
||||
}
|
||||
|
||||
void C_setState(WrenVM* vm) {
|
||||
XKeyEvent *ke = (XKeyEvent *)wrenGetSlotForeign(vm, 0);
|
||||
unsigned int state = (unsigned int)wrenGetSlotDouble(vm, 1);
|
||||
ke->state = state;
|
||||
}
|
||||
|
||||
void C_keycode(WrenVM* vm) {
|
||||
XKeyEvent ke = *(XKeyEvent *)wrenGetSlotForeign(vm, 0);
|
||||
wrenSetSlotDouble(vm, 0, (double)ke.keycode);
|
||||
}
|
||||
|
||||
void C_setKeycode(WrenVM* vm) {
|
||||
XKeyEvent *ke = (XKeyEvent *)wrenGetSlotForeign(vm, 0);
|
||||
unsigned int keycode = (unsigned int)wrenGetSlotDouble(vm, 1);
|
||||
ke->keycode = keycode;
|
||||
}
|
||||
|
||||
void C_setSameScreen(WrenVM* vm) {
|
||||
XKeyEvent *ke = (XKeyEvent *)wrenGetSlotForeign(vm, 0);
|
||||
Bool sameScreen = (Bool)wrenGetSlotBool(vm, 1);
|
||||
ke->same_screen = sameScreen;
|
||||
}
|
||||
|
||||
void C_dataL(WrenVM* vm) {
|
||||
XClientMessageEvent cme = *(XClientMessageEvent *)wrenGetSlotForeign(vm, 0);
|
||||
wrenEnsureSlots(vm, 2);
|
||||
wrenSetSlotNewList(vm, 0);
|
||||
int i;
|
||||
for (i = 0; i < 5; ++i) {
|
||||
wrenSetSlotDouble(vm, 1, (double)cme.data.l[i]);
|
||||
wrenInsertInList(vm, 0, i, 1);
|
||||
}
|
||||
}
|
||||
|
||||
void C_defaultScreen(WrenVM* vm) {
|
||||
Display* display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
int screenNumber = DefaultScreen(display);
|
||||
wrenSetSlotDouble(vm, 0, (double)screenNumber);
|
||||
}
|
||||
|
||||
void C_rootWindow(WrenVM* vm) {
|
||||
Display* display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
int screenNumber = (int)wrenGetSlotDouble(vm, 1);
|
||||
Window w = RootWindow(display, screenNumber);
|
||||
wrenSetSlotDouble(vm, 0, (double)w);
|
||||
}
|
||||
|
||||
void C_blackPixel(WrenVM* vm) {
|
||||
Display* display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
int screenNumber = (int)wrenGetSlotDouble(vm, 1);
|
||||
unsigned long p = BlackPixel(display, screenNumber);
|
||||
wrenSetSlotDouble(vm, 0, (double)p);
|
||||
}
|
||||
|
||||
void C_whitePixel(WrenVM* vm) {
|
||||
Display* display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
int screenNumber = (int)wrenGetSlotDouble(vm, 1);
|
||||
unsigned long p = WhitePixel(display, screenNumber);
|
||||
wrenSetSlotDouble(vm, 0, (double)p);
|
||||
}
|
||||
|
||||
void C_selectInput(WrenVM* vm) {
|
||||
Display* display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
Window w = (Window)wrenGetSlotDouble(vm, 1);
|
||||
long eventMask = (long)wrenGetSlotDouble(vm, 2);
|
||||
XSelectInput(display, w, eventMask);
|
||||
}
|
||||
|
||||
void C_mapWindow(WrenVM* vm) {
|
||||
Display* display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
Window w = (Window)wrenGetSlotDouble(vm, 1);
|
||||
XMapWindow(display, w);
|
||||
}
|
||||
|
||||
void C_closeDisplay(WrenVM* vm) {
|
||||
Display* display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
XCloseDisplay(display);
|
||||
}
|
||||
|
||||
void C_nextEvent(WrenVM* vm) {
|
||||
Display* display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
XEvent* pe = (XEvent*)wrenGetSlotForeign(vm, 1);
|
||||
XNextEvent(display, pe);
|
||||
}
|
||||
|
||||
void C_storeName(WrenVM* vm) {
|
||||
Display* display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
Window w = (Window)wrenGetSlotDouble(vm, 1);
|
||||
char *windowName = (char *)wrenGetSlotString(vm, 2);
|
||||
XStoreName(display, w, windowName);
|
||||
}
|
||||
|
||||
void C_flush(WrenVM* vm) {
|
||||
Display* display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
XFlush(display);
|
||||
}
|
||||
|
||||
void C_internAtom(WrenVM* vm) {
|
||||
Display* display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
char *atomName = (char *)wrenGetSlotString(vm, 1);
|
||||
Bool onlyIfExists = (Bool)wrenGetSlotBool(vm, 2);
|
||||
Atom atom = XInternAtom(display, atomName, onlyIfExists);
|
||||
wrenSetSlotDouble(vm, 0, (double)atom);
|
||||
}
|
||||
|
||||
void C_setWMProtocols(WrenVM* vm) {
|
||||
Display *display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
Window w = (Window)wrenGetSlotDouble(vm, 1);
|
||||
int count = (int)wrenGetSlotDouble(vm, 3);
|
||||
Atom protocols[count];
|
||||
int i;
|
||||
for (i = 0; i < count; ++i) {
|
||||
wrenGetListElement(vm, 2, i, 1);
|
||||
protocols[i] = (Atom)wrenGetSlotDouble(vm, 1);
|
||||
}
|
||||
XSetWMProtocols(display, w, protocols, count);
|
||||
}
|
||||
|
||||
void C_sendEvent(WrenVM* vm) {
|
||||
Display *display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
Window w = (Window)wrenGetSlotDouble(vm, 1);
|
||||
Bool propogate = (Bool)wrenGetSlotBool(vm, 2);
|
||||
long eventMask = (long)wrenGetSlotDouble(vm, 3);
|
||||
XEvent* pe = (XEvent*)wrenGetSlotForeign(vm, 4);
|
||||
XSendEvent(display, w, propogate, eventMask, pe);
|
||||
}
|
||||
|
||||
void C_destroyWindow(WrenVM* vm) {
|
||||
Display *display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
Window w = (Window)wrenGetSlotDouble(vm, 1);
|
||||
XDestroyWindow(display, w);
|
||||
}
|
||||
|
||||
void C_createSimpleWindow(WrenVM* vm) {
|
||||
Display *display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
Window parent = (Window)wrenGetSlotDouble(vm, 1);
|
||||
int x = (int)wrenGetSlotDouble(vm, 2);
|
||||
int y = (int)wrenGetSlotDouble(vm, 3);
|
||||
unsigned int width = (unsigned int)wrenGetSlotDouble(vm, 4);
|
||||
unsigned int height = (unsigned int)wrenGetSlotDouble(vm, 5);
|
||||
unsigned int borderWidth = (unsigned int)wrenGetSlotDouble(vm, 6);
|
||||
unsigned long border = (unsigned long)wrenGetSlotDouble(vm, 7);
|
||||
unsigned long background = (unsigned long)wrenGetSlotDouble(vm, 8);
|
||||
Window w = XCreateSimpleWindow(display, parent, x, y, width, height, borderWidth, border, background);
|
||||
wrenSetSlotDouble(vm, 0, (double)w);
|
||||
}
|
||||
|
||||
void C_drawString(WrenVM* vm) {
|
||||
Display *display = *(Display**)wrenGetSlotForeign(vm, 0);
|
||||
Drawable d = (Drawable)wrenGetSlotDouble(vm, 1);
|
||||
GC gc = *(GC *)wrenGetSlotForeign(vm, 2);
|
||||
int x = (int)wrenGetSlotDouble(vm, 3);
|
||||
int y = (int)wrenGetSlotDouble(vm, 4);
|
||||
const char *string = wrenGetSlotString(vm, 5);
|
||||
int length = (int)wrenGetSlotDouble(vm, 6);
|
||||
XDrawString(display, d, gc, x, y, string, length);
|
||||
}
|
||||
|
||||
void C_lookupKeysym(WrenVM* vm) {
|
||||
XKeyEvent *pke = (XKeyEvent*)wrenGetSlotForeign(vm, 1);
|
||||
int index = (int)wrenGetSlotDouble(vm, 2);
|
||||
KeySym k = XLookupKeysym(pke, index);
|
||||
wrenSetSlotDouble(vm, 0, (double)k);
|
||||
}
|
||||
|
||||
void C_lookupString(WrenVM* vm) {
|
||||
XKeyEvent *pke = (XKeyEvent*)wrenGetSlotForeign(vm, 1);
|
||||
int bytesBuffer = (int)wrenGetSlotDouble(vm, 3);
|
||||
char bufferReturn[bytesBuffer];
|
||||
int i;
|
||||
for (i = 0; i < bytesBuffer; ++i) {
|
||||
wrenGetListElement(vm, 2, i, 3);
|
||||
bufferReturn[i] = (char)wrenGetSlotDouble(vm, 3);
|
||||
}
|
||||
int count = XLookupString(pke, bufferReturn, bytesBuffer, NULL, NULL);
|
||||
for (i = 0; i < 2; ++i) {
|
||||
wrenSetSlotDouble(vm, 3, (double)bufferReturn[i]);
|
||||
wrenSetListElement(vm, 2, i, 3);
|
||||
}
|
||||
wrenSetSlotDouble(vm, 0, (double)count);
|
||||
}
|
||||
|
||||
WrenForeignClassMethods bindForeignClass(WrenVM* vm, const char* module, const char* className) {
|
||||
WrenForeignClassMethods methods;
|
||||
methods.finalize = NULL;
|
||||
if (strcmp(className, "XDisplay") == 0) {
|
||||
methods.allocate = C_displayAllocate;
|
||||
} else if (strcmp(className, "XGC") == 0) {
|
||||
methods.allocate = C_gcAllocate;
|
||||
} else if (strcmp(className, "XEvent") == 0) {
|
||||
methods.allocate = C_eventAllocate;
|
||||
} else {
|
||||
methods.allocate = NULL;
|
||||
}
|
||||
return methods;
|
||||
}
|
||||
|
||||
WrenForeignMethodFn bindForeignMethod(
|
||||
WrenVM* vm,
|
||||
const char* module,
|
||||
const char* className,
|
||||
bool isStatic,
|
||||
const char* signature) {
|
||||
if (strcmp(module, "main") == 0) {
|
||||
if (strcmp(className, "XEvent") == 0) {
|
||||
if (!isStatic && strcmp(signature, "eventType") == 0) return C_eventType;
|
||||
if (!isStatic && strcmp(signature, "eventType=(_)") == 0) return C_setEventType;
|
||||
if (!isStatic && strcmp(signature, "state=(_)") == 0) return C_setState;
|
||||
if (!isStatic && strcmp(signature, "keycode") == 0) return C_keycode;
|
||||
if (!isStatic && strcmp(signature, "keycode=(_)") == 0) return C_setKeycode;
|
||||
if (!isStatic && strcmp(signature, "sameScreen=(_)") == 0) return C_setSameScreen;
|
||||
if (!isStatic && strcmp(signature, "dataL") == 0) return C_dataL;
|
||||
} else if (strcmp(className, "XDisplay") == 0) {
|
||||
if (!isStatic && strcmp(signature, "defaultScreen()") == 0) return C_defaultScreen;
|
||||
if (!isStatic && strcmp(signature, "rootWindow(_)") == 0) return C_rootWindow;
|
||||
if (!isStatic && strcmp(signature, "blackPixel(_)") == 0) return C_blackPixel;
|
||||
if (!isStatic && strcmp(signature, "whitePixel(_)") == 0) return C_whitePixel;
|
||||
if (!isStatic && strcmp(signature, "selectInput(_,_)") == 0) return C_selectInput;
|
||||
if (!isStatic && strcmp(signature, "mapWindow(_)") == 0) return C_mapWindow;
|
||||
if (!isStatic && strcmp(signature, "closeDisplay()") == 0) return C_closeDisplay;
|
||||
if (!isStatic && strcmp(signature, "nextEvent(_)") == 0) return C_nextEvent;
|
||||
if (!isStatic && strcmp(signature, "storeName(_,_)") == 0) return C_storeName;
|
||||
if (!isStatic && strcmp(signature, "flush()") == 0) return C_flush;
|
||||
if (!isStatic && strcmp(signature, "internAtom(_,_)") == 0) return C_internAtom;
|
||||
if (!isStatic && strcmp(signature, "setWMProtocols(_,_,_)") == 0) return C_setWMProtocols;
|
||||
if (!isStatic && strcmp(signature, "sendEvent(_,_,_,_)") == 0) return C_sendEvent;
|
||||
if (!isStatic && strcmp(signature, "destroyWindow(_)") == 0) return C_destroyWindow;
|
||||
if (!isStatic && strcmp(signature, "createSimpleWindow(_,_,_,_,_,_,_,_)") == 0) return C_createSimpleWindow;
|
||||
if (!isStatic && strcmp(signature, "drawString(_,_,_,_,_,_)") == 0) return C_drawString;
|
||||
} else if (strcmp(className, "X") == 0) {
|
||||
if (isStatic && strcmp(signature, "lookupKeysym(_,_)") == 0) return C_lookupKeysym;
|
||||
if (isStatic && strcmp(signature, "lookupString(_,_,_,_,_)") == 0) return C_lookupString;
|
||||
}
|
||||
}
|
||||
return NULL;
|
||||
}
|
||||
|
||||
static void writeFn(WrenVM* vm, const char* text) {
|
||||
printf("%s", text);
|
||||
}
|
||||
|
||||
void errorFn(WrenVM* vm, WrenErrorType errorType, const char* module, const int line, const char* msg) {
|
||||
switch (errorType) {
|
||||
case WREN_ERROR_COMPILE:
|
||||
printf("[%s line %d] [Error] %s\n", module, line, msg);
|
||||
break;
|
||||
case WREN_ERROR_STACK_TRACE:
|
||||
printf("[%s line %d] in %s\n", module, line, msg);
|
||||
break;
|
||||
case WREN_ERROR_RUNTIME:
|
||||
printf("[Runtime Error] %s\n", msg);
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
char *readFile(const char *fileName) {
|
||||
FILE *f = fopen(fileName, "r");
|
||||
fseek(f, 0, SEEK_END);
|
||||
long fsize = ftell(f);
|
||||
rewind(f);
|
||||
char *script = malloc(fsize + 1);
|
||||
fread(script, 1, fsize, f);
|
||||
fclose(f);
|
||||
script[fsize] = 0;
|
||||
return script;
|
||||
}
|
||||
|
||||
int main(int argc, char **argv) {
|
||||
WrenConfiguration config;
|
||||
wrenInitConfiguration(&config);
|
||||
config.writeFn = &writeFn;
|
||||
config.errorFn = &errorFn;
|
||||
config.bindForeignClassFn = &bindForeignClass;
|
||||
config.bindForeignMethodFn = &bindForeignMethod;
|
||||
WrenVM* vm = wrenNewVM(&config);
|
||||
const char* module = "main";
|
||||
const char* fileName = "simulate_input_keyboard.wren";
|
||||
char *script = readFile(fileName);
|
||||
WrenInterpretResult result = wrenInterpret(vm, module, script);
|
||||
switch (result) {
|
||||
case WREN_RESULT_COMPILE_ERROR:
|
||||
printf("Compile Error!\n");
|
||||
break;
|
||||
case WREN_RESULT_RUNTIME_ERROR:
|
||||
printf("Runtime Error!\n");
|
||||
break;
|
||||
case WREN_RESULT_SUCCESS:
|
||||
break;
|
||||
}
|
||||
wrenFreeVM(vm);
|
||||
free(script);
|
||||
return 0;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue