lshifr

ClearAll[symbolRules];
symbolRules[syms_List]:= 
	Join @@ Map[
		Function[s, symbolRules @ Unevaluated @ s, HoldFirst],  
		Unevaluated @ syms
	]
symbolRules[sym_String]:= 
	ToExpression[sym, InputForm, Function[s,symbolRules @ Unevaluated @ s, HoldFirst]];
symbolRules[s_Symbol]:= Join[OwnValues[s],DownValues[s], UpValues[s], SubValues[s]];
symbolRules[]:= symbolRules @ Names["Global`*"];

lshifr

BeginPackage["OO`"]
new
EndPackage[]


BeginPackage["OO`Core`", "RuleBasedFunction`"]


TypeQ;
ObjectQ;

lshifr

BeginPackage["RuleBasedFunction`"]

RuleBasedFunction::usage = "RuleBasedFunction[defs, attrs] constructs a pure function based on definitions given by rules";

Fn::usage = "Fn is a symbol used to denote a function in definitions used in RuleBasedFunction";

Begin["`Private`"]

SetAttributes[CleanUp, HoldAll]
CleanUp[expr_, cleanup_] :=

lshifr

BeginPackage["FrozenCode`"]

FrozenCodeEvaluate::usage = "FrozenCodeEvaluate[Hold[code], {heads}] evaluates the code
in the 'frozen' mode, where only specific heads are allowed to evaluate";

Begin["`Private`"]

ClearAll[symbolToHideQ]
SetAttributes[symbolToHideQ, HoldFirst];
symbolToHideQ[s_Symbol, expandedSymbs_] :=! MemberQ[expandedSymbs, Unevaluated[s]];

lshifr

ClearAll[Let, let, symbolOrListQ, inSetDelayed];
SetAttributes[{Let, let, symbolOrListQ}, HoldAll];

symbolOrListQ[_Symbol] = True;
symbolOrListQ[{___?symbolOrListQ}] = True;
symbolOrListQ[_] = False;


Let::lvset = "Local variable specification `1` is not valid.";

lshifr

BeginPackage["ReferenceTracker`"]

TrackReferences;

Begin["`Private`"]

Clear[$globalProperties];
$globalProperties = {
	OwnValues,
	DownValues,

lshifr

ClearAll[shead];
SetAttributes[shead, HoldAllComplete];
shead[f_Symbol[___]] := HoldComplete[f];
shead[f_[___]] := shead[f];
shead[f_ /; AtomQ[Unevaluated[f]]] := Head[f];

(* TODO:This is a bit too simplisitc,since some pattern symbols might \
be localized by inner rules inside expr,and should not be \
counted.We might miss some extra dependencies this way *)

lshifr

BeginPackage["HTMLParser`"]

ParseHTML::usage = "ParseHTML[s] parses a string of HTML code";

HTMLContainer::usage = "HTMLContainer[tag] is an inert container for the contents of html tag";

Begin["`Private`"]

listSplit[x_List,lengthlist_List,headlist_List]:=

lshifr

(* Mathematica Package *)

(* :Title: SEFormatter   *) 

(* :Author: Leonid B. Shifrin    *)

(* :Summary:  Code formatting palette for mathematica.stackexchange.com 
	(but can be useful also for other formatting purposes)   *)

(* :Context: SEFormatter`  *)

lshifr

# include <stdio.h>
# include <stdlib.h>
# include <time.h>


int random_in_range (unsigned int min, unsigned int max)
{    
  int range       = max - min,
      remainder   = RAND_MAX % range,
      bucket      = RAND_MAX / range;