lshifr

$sqlKeywords = {
	"ABSOLUTE","ACTION","ADD","AFTER","ALL","ALLOCATE","ALTER","AND","ANY","ARE","ARRAY","AS",
	"ASC","ASENSITIVE","ASSERTION","ASYMMETRIC","AT","ATOMIC","AUTHORIZATION","AVG","BEFORE",
	"BEGIN","BETWEEN","BIGINT","BINARY","BIT","BIT_LENGTH","BLOB","BOOLEAN","BOTH","BREADTH",
	"BY","CALL","CALLED","CASCADE","CASCADED","CASE","CAST","CATALOG","CHAR","CHARACTER",
	"CHARACTER_LENGTH","CHAR_LENGTH","CHECK","CLOB","CLOSE","COALESCE","COLLATE","COLLATION",
	"COLUMN","COMMIT","CONDITION","CONNECT","CONNECTION","CONSTRAINT","CONSTRAINTS","CONSTRUCTOR",
	"CONTAINS","CONTINUE","CONVERT","CORRESPONDING","COUNT","CREATE","CROSS","CUBE","CURRENT",
	"CURRENT_DATE","CURRENT_DEFAULT_TRANSFORM_GROUP","CURRENT_PATH","CURRENT_ROLE","CURRENT_TIME",
	"CURRENT_TIMESTAMP","CURRENT_TRANSFORM_GROUP_FOR_TYPE","CURRENT_USER","CURSOR","CYCLE","DATA",

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["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>