GiuseppeChillemi’s gists

GiuseppeChillemi / gist:884b519f8367fe9096b198c548605685

Created April 9, 2022 17:54

Next Next

	SQLGetInfo(144) 0
	]
	info: 145 dynamic-cursor-attributes2
	PICK-METADATA [
	SQLGetInfo(145) 0
	]
	info: 146 forward-only-cursor-attributes1
	PICK-METADATA [
	SQLGetInfo(146) 0
	]

GiuseppeChillemi / gist:db00dced4d6cd547619efebce6369c89

Created April 10, 2022 21:28

all does not allow logic! for its conds argument

GiuseppeChillemi / gist:32f11f8f28496f911d26f505e7914695

Created April 11, 2022 00:08

if is missing its cond argument

	]
	]
	about-connection
	info: 0 max-driver-connections
	info: 1 max-concurrent-activities
	info: 2 data-source-name
	info: 6 driver-name
	info: 7 driver-ver
	info: 10 odbc-ver
	info: 11 row-updates

GiuseppeChillemi / gist:049a1ae7397aef600ea30845606b46a0

Created May 3, 2022 13:04

	```
	[25826 "FA " "A" 16 "C000925" none "C000925" "C" none none none "001" false 1 true 0 false true false true " 381 " 381 4-May-2010/0:00:00 "2010" "2010" "IT " " " " " "05010301001 " " " none 4-May-2010/0:00:00 "EUR" 2 3 1.0 "003" true false none none none "CASS" none "008" "900" none none " " deferred "01 " "01 " "01 " "SC " "04" none 5-May-2010/0:00:00 none none none none none 2 0.0 13.0 0.0 deferred 0.0 3 1 4 3 0 3 0.0 0.0 0.0 "0U00000000" "xxxxxmyserverxxxxxxx" "xxxxxmyserver2xxxxxxx" 27-Oct-2012/2:20:00 4-Apr-2018/17:59:00 #{000000000330ED82} deferred none none false 0 false false true none deferred false none none deferred none none none none false none none none deferred none none]
	[25827 "FA " "A" 16 "C000907" none "C000907" "C" none none none "001" false 1 true 0 false true false true " 382 " 382 4-May-2010/0:00:00 "2010" "2010" "IT " " " " " "05010301

GiuseppeChillemi / send-to.r

Last active July 11, 2022 22:50

A function to send a command to a server


	send-to: func [
	"Send a message and returns the response. NONE if no response (TBD:)"
	server-address "The address of the server"
	port-number [integer!] "The remote port number"
	message [String! block!] "The message to send"
	/local
	out-data ;"The return data"
	connection
	server

GiuseppeChillemi / Test-Server.r

Last active July 11, 2022 23:34

An experimental server which waits and executes the Rebol commands it receives taking them from a command block



	SERVER-DB: "myserver"
	DB: "mydb"


	port-number: 55551
	server-address: "localhost"

	;--- These are the commands we could execute

GiuseppeChillemi / miniconsole.r

Last active July 11, 2022 23:32

Mini script to send a command to a server. It's COMMANDS object is used

	do %../scripts/send-to.r

	port-number: 55551
	server-address: "localhost"

	Forever [
	prin "Insert a server command > " message: input
	if message = "exit" [Print "!!! Exit Received, quitting !!!" break]
	response: send-to server-address port-number message
	print ""

GiuseppeChillemi / gist:043c9c262b0d92e109df846b7db083f9

Created July 14, 2022 09:27

	--== Red 0.6.4 ==--
	Type HELP for starting information.

	>> do %pp.r
	actor/open: connection
	init-odbc
	OPEN-ENVIRONMENT [
	SQLAllocHandle 0
	henv/value = 2158376
	SQLSetEnvAttr 0

GiuseppeChillemi / test-getting.r

Last active August 15, 2022 00:09

Testing GETTIN Speeds (Now with 8 tests !!!)

	;Red []
	Rebol []

	recycle/off

	;This code is from Ashley Graham
	platform?: case [
	2 = system/version/1 ['Rebol]
	not rebol ['Red]
	system/product = 'atronix-view ['Atronix]

GiuseppeChillemi / Test-DT-Position.r

Last active August 14, 2022 23:27

Test the difference of speed from having a datatype in a different position

	;Red []
	Rebol []

	recycle/off

	;This code is from Ashley Graham
	platform?: case [
	2 = system/version/1 ['Rebol]
	not rebol ['Red]
	system/product = 'atronix-view ['Atronix]