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

BeginPackage["ReferenceTracker`"]

TrackReferences;

Begin["`Private`"]

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

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

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["OO`"]
new
EndPackage[]


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


TypeQ;
ObjectQ;

lshifr

BeginPackage["Unflatten`"]

Unflatten::usage = "Unflatten[h[elems], posints, heads] creates a nested structure by wrapping
the elements in positions intervals posints in heads heads";

UnflattenNested::usage = "UnflattenNested[expr, {startposlist, endposlist}, head] wraps elements
of expr at positions starting at startposlist_i and ending at endposlist_i in head head";

Begin["`Private`"]

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

#include <stdio.h>
#include <string.h>
#include <sys/types.h>
#include <dirent.h>
#include <unistd.h>
#include <errno.h>
#include <stdlib.h>
#include <time.h>
#include <sys/stat.h>

lshifr

BeginPackage["LazyTuples`"]

LazyTuples::usage = "LazyTuples[lists, opts] create a LazyList of the specified chunk size (\"ChunkSize\" option), containing tuples of the original lists";

Begin["`Private`"]

Needs["Streaming`"];

ClearAll[next];
next[{left_, _}, dim_] := 

lshifr

BeginPackage["CellTimeTrack`"]

CellTimeTrack::usage = "CellTimeTrack[True|False] switches on or off the cell time-tracking mode";

Begin["`Private`"]

$style = Function[
    arg, 
    StyleBox[arg, FontSize -> 16, FontWeight -> Bold, FontColor -> Darker[Green, 0.5]]
];