Skip to content

Instantly share code, notes, and snippets.

View SteeveGit's full-sized avatar

Steeve SteeveGit

  • Saint-affrique (France)
View GitHub Profile
@SteeveGit
SteeveGit / forskip.red
Created March 30, 2016 12:28 — forked from dockimbel/forskip.red
FORSKIP port from Rebol2 to Red.
Red [
Title: "FORSKIP function"
Author: "Nenad Rakocevic"
Purpose: "Direct port of the REBOL2 forskip function"
]
forskip: func [
"Evaluates a block for periodic values in a series."
'word [word!] "Word set to each position in series and changed as a result"
skip-num [integer!] "Number of values to skip each time"
change: func [
"Changes a value in a series and returns the series after the change."
series [series!] "Series at point to change"
value [any-type!] "The new value"
/part {Limits the amount to change to a given length or position.}
range [number! series! pair!]
/only "Changes a series as a series."
/dup "Duplicates the change a specified number of times."
count [number! pair!]
][
@SteeveGit
SteeveGit / profiler2.r
Last active April 19, 2016 19:08
REBOL code profiling tool
### USE CASE
# date: 19/05/2016
# system: Ubuntu 64 + wine 32 bits, Proc intel i5
# Replace the file %red-master/system/utils/profiler.r
# by the current file
# Edit the file %red-master/system/compiler.r
# and change the line ~11 to "profiler/active?: yes""
# Open a rebol2 console and compile the red's console
REBOL []
src: read %lizard.svg
transparent: 0.0.0.255
;** Stack operations
pile: tail reduce [copy [pen transparent]] ;** by default, no pen color
rollback: does [pile: back pile]
REBOL []
src: read/string %lizard.svg; %corner.svg ;
;** Stack operations
pile: tail reduce [copy [pen 0.0.0.255]] ;** by default, no pen color
rollback: does [pile: back pile]
push: does [clear pile: change/only pile copy []]
pop: func ['v][rollback unless empty? pile/1 [append/only append new-line pile/0 true :v new-line pile/1 true]]
pop-flat: does [rollback out pile/1]
@SteeveGit
SteeveGit / email_speech.ps1
Created July 4, 2018 03:59
email vocal notification
# Created by Steeve Antoine
#
# Before anything, START Outlook (keep the app open) and select the "receipt" folder
#
# Ok, that's lot of useless comments but I know me...
# After some months I will forget the purpose of some (obvious) code.
# PRINCIPE
# Les titres (subject) des emails du jour sont lus à haute voix
# ... avec une voix féminine en français mais évidement on peut la changer dans la fonction <tell>