Martin Ceronio mydoghasworms

## index.html
<!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>

## json2data_test.abap
* 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.

## json2data.abap
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,

## ZABAPSRC_SOLR_INDEX.abap
*&---------------------------------------------------------------------*
*& Report  ZABAPSRC_SOLR_INDEX
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZABAPSRC_SOLR_INDEX.

## AutoHotkey.ahk
^!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%

## signal_slot.rb
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

## logred.red
Red [needs: view]

turtle: #()

win: layout [ tfield: base 500x500 white draw []
              panel [
                text "History" return history: text-list 180x350 data [] return
                panel [ button "Save" [save request-file history/data]
                        button "Load" [commands: load request-file foreach cmd commands [process-cmd cmd]] ]
              ]

## account_search.json
{
  "took" : 5,
  "timed_out" : false,
  "_shards" : {
    "total" : 5,
    "successful" : 5,
    "failed" : 0
  },
  "hits" : {
    "total" : 1000,

## json2data.abap
*&---------------------------------------------------------------------*
*&      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

## ex1.st
Transcript show: 'Hello Pharo!'
	<!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>
	* 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.
	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,
	&---------------------------------------------------------------------
	*& Report ZABAPSRC_SOLR_INDEX
	*&
	&---------------------------------------------------------------------
	*&
	*&
	&---------------------------------------------------------------------

	REPORT ZABAPSRC_SOLR_INDEX.
	^!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%
	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
	Red [needs: view]

	turtle: #()

	win: layout [ tfield: base 500x500 white draw []
	panel [
	text "History" return history: text-list 180x350 data [] return
	panel [ button "Save" [save request-file history/data]
	button "Load" [commands: load request-file foreach cmd commands [process-cmd cmd]] ]
	]
	{
	"took" : 5,
	"timed_out" : false,
	"_shards" : {
	"total" : 5,
	"successful" : 5,
	"failed" : 0
	},
	"hits" : {
	"total" : 1000,
	&---------------------------------------------------------------------
	*& 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