mydoghasworms’s gists

mydoghasworms / json2data.abap

Created April 2, 2012 09:26

Very trusting JSON to (deep) ABAP data structure mapper

	&---------------------------------------------------------------------
	*& Form json_to_data
	&---------------------------------------------------------------------
	form json_to_data using json type string changing data type any.
	data: lv_off type i.
	data: lv_len type i.
	data: lv_key type string.
	data: lv_value type string.
	data: lv_char type char1. "Current chacater
	data: lv_pchar type char1. "Previous character

mydoghasworms / json2data_test.abap

Created April 2, 2012 09:50

ABAP code to test JSON to ABAP subroutine

	* Code to test https://gist.github.com/2282070
	* Should result in COMP1 structure filled and an entry in COMP2 of LS_DEEP
	data: ls_deep type veri_deep1.
	json =
	'{"COMP1": {"F1": "0123", F5: "ab cd\nef", F7: 20090802, "F8": 23123, "F11": 123.23}, '
	& 'COMP2: [{"F1": "0123", F5: "gh ij\nkl", F7: 20090802, "F8": 1000, "F11": 543.23}] }'.
	perform json_to_data using json ls_deep.

mydoghasworms / json_util.abap

Last active February 19, 2023 14:46

ABAP Utility class for mapping JSON to ABAP data and vice versa - Rather use https://gist.github.com/mydoghasworms/4888a832e28491c3fe47

	* Rather use https://gist.github.com/mydoghasworms/4888a832e28491c3fe47
	* The alternative is a better parser although it is not an emmitter)
	----------------------------------------------------------------------
	* CLASS json_util DEFINITION
	----------------------------------------------------------------------
	class json_util definition.
	public section.
	class-methods:
	data_to_json importing data type any
	returning value(json) type string,

mydoghasworms / json2data.abap

Created April 4, 2012 05:18 — forked from rplantiko/json2data.abap

Corrected unit test for deep structure

	REPORT ZZ_TEST_JSON_MYDOG.

	*
	class lcl_test definition for testing " #AU Risk_Level Harmless
	inheriting from cl_aunit_assert. " #AU Duration Short

	private section.
	methods :
	test_string for testing,
	test_number for testing,

mydoghasworms / ZABAPSRC_SOLR_INDEX.abap

Created October 2, 2012 20:16

Program to index ABAP source code to a Solr index server

	&---------------------------------------------------------------------
	*& Report ZABAPSRC_SOLR_INDEX
	*&
	&---------------------------------------------------------------------
	*&
	*&
	&---------------------------------------------------------------------

	REPORT ZABAPSRC_SOLR_INDEX.

mydoghasworms / AutoHotkey.ahk

Created July 24, 2013 11:24

AutoHotKey script that toggles the "Use a proxy server for your LAN" switch in WIndows

	^!p::
	RegRead, ProxyOn,HKEY_CURRENT_USER,Software\Microsoft\Windows\CurrentVersion\Internet Settings,ProxyEnable
	if (ProxyOn=1) {
	ProxyOn = 0
	ProxyState = Off
	} else {
	ProxyOn = 1
	ProxyState = On
	}
	RegWrite, REG_DWORD,HKEY_CURRENT_USER,Software\Microsoft\Windows\CurrentVersion\Internet Settings,ProxyEnable,%ProxyOn%

mydoghasworms / signal_slot.rb

Created December 12, 2013 06:09

Ruby and Qt; using 'qtbindings' example of using signals and slots, demonstrating how to use parameter-less, simple and class-parameter for sending signals.

	require 'Qt'

	# The class that will act as the receiver
	class A < Qt::Object
	slots :receive, 'receive_int(int)', 'receive_path(QString)'

	def receive
	puts 'event received'
	end

mydoghasworms / post_acc_doc.rb

Last active July 23, 2019 18:19

Example of using Ruby nwrfc gem to post documents to an SAP ECC system using BAPI_ACC_DOCUMENT_POST

	#!/usr/bin/ruby
	require 'nwrfc'
	require 'logger'

	include NWRFC

	# This is an example of a Ruby script using the nwrfc gem to post Accounting documents to
	# an SAP ECC system using BAPI_ACC_DOCUMENT_POST. You can obviously easily adapt it to
	# your needs

mydoghasworms / index.html

Last active August 29, 2015 14:05

Indexing and searching SAPI PI message payloads with a Ruby retrieval script and an HTML page

	<!DOCTYPE html>
	<html>

	<!--
	This provides a simple, single-purpose search front-end for the an Elasticsearch index containing
	SAP PI message payloads that were indexed with the accompanying script. For more information, visit
	http://ceronio.net/2014/08/sap-pi-message-payload-search-using-elasticsearch/
	-->

	<head>

mydoghasworms / turbol.reb

Last active September 12, 2017 18:10

Little Rebol program that demonstrates using 'parse' to interpret some rudimentary Logo commands with a turtle and visual interface

	REBOL [
	title: "Rudimentary implementation of Logo Turtle"
	date: 2015-02-16
	author: "Martin Ceronio"
	]

	{ Load the turtle image; you can find the original at https://edu.kde.org/images/icons/kturtle_32.png Thanks, KTurtle! }
	turtle-img: do to-string debase
	{bWFrZSBpbWFnZSEgWzMyeDMyICN7CjAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAowMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAKMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwCjAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAowMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAxMDAwNjdBMDcwNjdBMDcwNjdBMDcwNjdBMDcKMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwCjAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAowMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAxMDAwNjdBMDcwNjdBMDcKMDY3QTA3MDY3QTA3MDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD

Martin Ceronio mydoghasworms