dockimbel

Red [Needs: View]

scroll-max: 100
start-pos: 0

view [
	size 200x200
	backdrop cyan
	p: panel 100x100 [button "ok"]
	do [start-pos: p/offset/y]			;-- saves initial position

dockimbel

Red []

count: function [][
	list: [native! 0 action! 0 op! 0 function! 0 routine! 0]
	foreach w words-of system/words [
		if pos: find list type?/word get/any w [pos/2: pos/2 + 1]
	]
	list
]

dockimbel

Red []

detect: function [
	event  [word!]
	code   [any-block! none!]
	offset [integer!]
	value  [any-type!]
	ref	   [any-type!]
	frame  [pair!]
][

dockimbel

* PROLOG: when entering a function.
* EPILOG: when exiting a function.
* ENTER: when a block is about to be evaluated.
* EXIT: when current evaluated block's end has been reached.
* OPEN: when a new function (any-function!) call is pushed on stack and a new stack frame is opened.
* RETURN: when a function call has returned and its stack frame has been closed.
* FETCH: a value is read from the input block to be evaluated.
* PUSH: a value has been pushed on the stack.
* SET: a set-word is set to a value.

dockimbel

Red [
    Purpose: {
      Red generator for encoded messaged as in:
      http://www.rebol.com/oneliners.html#section-17
    }
]

gen-hack: function [secret [string!]][
    ;-- First build a list of integers from 1 to the last index of the secret string
	table: collect [repeat i len: length? secret [keep i]]

dockimbel

Red [
	Needs: View
	Title:	 "red-box"
	Author:  "Huang Yongzhao"
	File: 	 %redbox.red
	Tabs:	 4
	Version: "Alpha"
	Purpose: "Famous BoxWorld! game ported to red"
	Rights:  "Copyright (C) 2015-2018 Red Foundation. All rights reserved."
	License: {

dockimbel

Red [
    Title:  "Lines of code statistics from Red files"
    Author: "Nenad Rakocevic"
    File:   %rloc.reds
    Tabs:   4
    Purpose: {
      Counts the number of files, lines of code and inline comments in Red/Rebol files, across folders,
      filtering files using a list of suffixes and excluding files from a given list of subfolders.
    }
]

dockimbel

Red [
    Purpose: "PoC script for checking if brackets/parens are matching in a Red file"
]

check-brackets: function [file [file!]][
	line: 1
	stack: clear []
	skip-chars: complement charset "[]()^/"
	
	parse read file [

dockimbel

Verifying my identity on Peepeth.com 0x1e33e78b9fc22c63740b0ed0cd441acbac5109f2

dockimbel

Red []

get-arguments: routine [
	/local
		list [red-block!]
		s    [red-value!]
		t    [red-value!]
		top
][
	top: stack/ctop - 3	;-- might need adjustments depending on interpreted vs compiled code.