Dmitry Ignatiev Lovesan
Lovesan
/ get-active-object.lisp
Last active
March 7, 2020 01:57
usage of bike and cffi libraries for instantiation of active COM objects
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (eval-when (:compile-toplevel :load-toplevel :execute) | |
| (cffi:define-foreign-library oleaut32 | |
| (t "oleaut32.dll")) | |
| (cffi:use-foreign-library oleaut32)) | |
| (cffi:defcfun ("GetActiveObject" | |
| %get-active-object | |
| :library oleaut32 |
Lovesan
/ sb-net-core-crash.lisp
Created
July 1, 2019 16:12
A test case for the issue of SBCL crashes should it load .Net Core runtime on Linux
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;;; This file reproduces tha fact that SBCL crashes | |
| ;;; while .Net runtime is loaded | |
| ;;; .Net Core SDK must be installed | |
| ;;; run the file like 'sbcl --script sb-net-core-crash.lisp' | |
| (defun version-compare (left right) | |
| (labels ((parse (c) | |
| ;; Given .Net version naming convention, | |
| ;; 3.0.0 is actually greater then 3.0.0-rc1 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (sb-alien:load-shared-object "unwind.dll") | |
| (sb-alien:define-alien-routine | |
| ("catches_fn" catches-fn) | |
| sb-alien:void | |
| (fn (* T))) | |
| (defun sap-to-callable (ptr) | |
| (sb-alien:sap-alien | |
| (sb-alien:alien-sap ptr) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // g++ -O0 -shared -o unwind.dll unwind.cxx | |
| // OR | |
| // cl.exe /nologo /Od /MD /EHa /LD /Fe:unwind.dll unwind.cxx | |
| #include <iostream> | |
| #include <exception> | |
| #include <windows.h> | |
| class Foo | |
| { | |
| public: |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (sb-alien:load-shared-object "sehlib.dll") | |
| (sb-alien:define-alien-routine | |
| ("catches_fn" catches-fn) | |
| sb-alien:void) | |
| (defun test-seh () | |
| (handler-case | |
| (progn (catches-fn) | |
| (format *error-output* |
Lovesan
/ sehlib_net.cxx
Created
June 6, 2019 15:38
Example .NET library which internally throws an exception and catches it
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // cl.exe /nologo /clr /Od /MD /EHac /LD /Fe:sehlib.dll sehlib_net.cxx | |
| using namespace System; | |
| #include <iostream> | |
| void throws_fn() | |
| { | |
| std::cerr << ".NET throws exception" << std::endl; | |
| throw gcnew Exception(); | |
| } |
Lovesan
/ sehlib.cxx
Created
June 6, 2019 15:37
Example C++ library which internally throws an exception and catches it
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // g++ -O0 -shared -o sehlib.dll sehlib.cxx | |
| // OR | |
| // cl.exe /nologo /Od /MD /EHac /LD /Fe:sehlib.dll sehlib.cxx | |
| #include <iostream> | |
| #include <exception> | |
| void throws_fn() | |
| { | |
| std::cerr << "C++ throws exception" << std::endl; | |
| throw std::exception(); |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/bin/bash | |
| set -e | |
| DATE_START=`date +%Y-%m-01` | |
| DATE_END=`date +%Y-%m-%d` | |
| USER_NAME=`git config user.name` | |
| REPO_DIR=`realpath ./` | |
| BRANCH_NAME='origin/master' | |
| if [ -t 0 -a -t 1 ]; then |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #ifndef __COM_UTILS_HPP__ | |
| #define __COM_UTILS_HPP__ | |
| #include <oleidl.h> | |
| template<class T> | |
| class ComPtr | |
| { | |
| public: | |
| ComPtr() |
Lovesan
/ ffexample.c
Last active
June 6, 2020 07:13
FFmpeg-based console audio/video player (e.g. ffplay analogue)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // build like e.g. | |
| // cl.exe /nologo /O2 /I../ffmpeg-3.2.2-win64-lgpl/include /I../SDL2-2.0.5/include /MT ffexample.c SDL2.lib avcodec.lib avdevice.lib avformat.lib avutil.lib swresample.lib swscale.lib /link /libpath:../SDL2-2.0.5/lib/x64 /libpath:../ffmpeg-3.2.2-win64-lgpl/lib | |
| #define __STDC_CONSTANT_MACROS | |
| #ifndef UNICODE | |
| #define UNICODE | |
| #endif | |
| #ifndef _UNICODE |