Skip to content

Instantly share code, notes, and snippets.

View GiuseppeChillemi's full-sized avatar

GiuseppeChillemi

5 followers · 2 following
View GitHub Profile
@GiuseppeChillemi
GiuseppeChillemi / scheduler.r
Created March 11, 2019 09:10 — forked from greggirwin/scheduler.r
Rebol scheduler dialect
REBOL [
Title: "Scheduler"
File: %scheduler.r
Purpose: "Dialected task scheduling library"
Author: ["SOFTINNOV / Nenad Rakocevic" "Pointillistic / Gregg Irwin"]
Copyright: ["2009 SOFTINNOV" "2013 SOFTINNOV/POINTILLISTIC"]
Email: [[email protected] [email protected]]
Date: 28-Oct-2013
Version: 0.9.5
License: "BSD - see %LICENCE.txt file"
@GiuseppeChillemi
GiuseppeChillemi / Test-List-Test1.red
Created September 3, 2020 16:53
; Red [];
Rebol [
title: "ListTest"
]
main-list: [
"https://red-lang.org"
"http://www.slashdot.org"
"https://gitlab.com/hiiamboris/red-mezz-warehouse/-/tree/master"
@GiuseppeChillemi
GiuseppeChillemi / Relative-Paths-test.red
Last active January 17, 2021 06:17
Show how relative paths works on containers
Red [
Name: "Power Selector"
Purpose: "Demostrate the working scenario of relative paths"
Notes: {
Idea: Giuseppe Chillemi
Path operator: Toomas Vooglaid
}
]
;---- Create the new "///" operator
@GiuseppeChillemi
GiuseppeChillemi / red-odbc-test_b-ok.txt
Created March 31, 2022 22:40
Partial output of a connection attempt
PICK-METADATA [
SQLGetInfo(41) 0
--------------------------------------------------------------------------------
---------------------------------------------------
00359CB0: 2e
.
--------------------------------------------------------------------------------
---------------------------------------------------
]
@GiuseppeChillemi
GiuseppeChillemi / gist:67e337ff745c96b7975c733df7079abf
Created April 1, 2022 19:12
ODBC: "select cast(notexml as varchar(8000)) as n from dotes where notexml is not null" test
]
info: 120 batch-row-count
PICK-METADATA [
SQLGetInfo(120) 0
]
info: 121 batch-support
PICK-METADATA [
SQLGetInfo(121) 0
]
info: 127 create-assertion
@GiuseppeChillemi
GiuseppeChillemi / gist:81a15c08f9bc9b575742ee6dbe05ab30
Created April 1, 2022 20:43
insert st rejoin ["select top 2 descrizione from cf"] copy st
]
info: 129 create-collation
PICK-METADATA [
SQLGetInfo(129) 0
]
info: 130 create-domain
PICK-METADATA [
SQLGetInfo(130) 0
]
info: 131 create-schema
@GiuseppeChillemi
GiuseppeChillemi / ALL-COLUMNS
Last active April 4, 2022 22:37
All columns
[
id-do-tes "Id_DoTes" 4 10 0 0 handle! 4 handle!
cd-do "Cd_Do" 1 3 0 0 handle! 8 handle!
tipo-documento "TipoDocumento" 1 1 0 0 handle! 4 handle!
do-bit-mask "DoBitMask" 4 10 0 0 handle! 4 handle!
cd-cf "Cd_CF" 1 7 0 0 handle! 16 handle!
cd-cf-fatt "Cd_CF_Fatt" 1 7 0 1 handle! 16 handle!
cd-cf-fatt-r "Cd_CF_Fatt_R" 1 7 0 0 handle! 16 handle!
cli-for "CliFor" 1 1 0 0 handle! 4 handle!
cd-aliquota-e "Cd_Aliquota_E" 1 3 0 1 handle! 8 handle!
@GiuseppeChillemi
GiuseppeChillemi / gist:f2499589d7ae4645f500dc1ac1f2e53c
Created April 7, 2022 19:22
Right truncation error
///////// CODE:
cn: switch 'b-ok con
st: open cn
st/state/window: 1
st/state/cursor: 'static
columns: insert st "select top 1 * from cf where attributi is not null "
@GiuseppeChillemi
GiuseppeChillemi / gist:b945ca418dff41a77812a0c8c47d4461
Created April 7, 2022 22:20
Single column Attributi retrieve
//////////////////// Without debug ///////////////////
>> do %odbc-test.red
[attributi]
--------------------------------------------------------------------------------
---------------------------------------------------
0375A1E8:
@GiuseppeChillemi
GiuseppeChillemi / gist:03c68ca837718f12eeab01f8e5ddcf93
Created April 8, 2022 17:54
Pick st 1
//////////////////////////////////
SQLGetInfo(142) 0
]
info: 143 drop-view
PICK-METADATA [
SQLGetInfo(143) 0
]
info: 144 dynamic-cursor-attributes1
PICK-METADATA [