eduard93’s gists

eduard93 / itplanet.task2.xml

Created June 6, 2017 12:07

	<?xml version="1.0" encoding="UTF-8"?>
	<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2016.1 (Build 656U)" ts="2017-06-06 15:04:24">
	<Class name="ITPlanet.Task2">
	<TimeChanged>64440,54252.147558</TimeChanged>
	<TimeCreated>64440,52543.709196</TimeCreated>

	<Method name="main">
	<ClassMethod>1</ClassMethod>
	<ReturnType>%String</ReturnType>
	<Implementation><![CDATA[ quit ""

eduard93 / translation.xml

Created April 13, 2017 12:59

RESTForms sample translation

	<?xml version="1.0" encoding="UTF-8"?>
	<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2016.1 (Build 656U)" ts="2017-04-13 15:51:21">
	<Global>
	<Node>
	<Sub>^CacheMsg</Sub>
	<Node>
	<Sub>RESTFORMS</Sub>
	<Data>en</Data>
	<Node>
	<Sub>en</Sub>

eduard93 / cos.xml

Created February 17, 2017 16:49

InterSystems Caché ObjectScript Notepad++ User Defined Language pack

	<NotepadPlus>
	<UserLang name="COS" ext="" udlVersion="2.1">
	<Settings>
	<Global caseIgnored="yes" allowFoldOfComments="no" foldCompact="no" forcePureLC="0" decimalSeparator="0" />
	<Prefix Keywords1="no" Keywords2="no" Keywords3="no" Keywords4="yes" Keywords5="no" Keywords6="no" Keywords7="no" Keywords8="no" />
	</Settings>
	<KeywordLists>
	<Keywords name="Comments">00// 01 02 03/* 04*/</Keywords>
	<Keywords name="Numbers, prefix1"></Keywords>
	<Keywords name="Numbers, prefix2"></Keywords>

eduard93 / ITPlanet.PlayerTest.xml

Created February 13, 2017 18:40

	<?xml version="1.0" encoding="UTF-8"?>
	<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2016.1 (Build 656U)" ts="2017-02-13 21:37:36">
	<Class name="ITPlanet.PlayerTest">
	<Abstract>1</Abstract>
	<TimeChanged>64327,77051.089536</TimeChanged>
	<TimeCreated>64327,76559.729877</TimeCreated>

	<Method name="Test">
	<Description>
	Тестовый пример. Создаёт доску scrabble и посылает её игроку

eduard93 / CS.xml

Last active February 1, 2017 10:51

How can I override the getter for serial property?

	<?xml version="1.0" encoding="UTF-8"?>
	<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2016.1 (Build 656U)" ts="2017-02-01 13:19:43">
	<Class name="CS.Persistent">
	<Super>%Persistent</Super>
	<TimeChanged>64315,46718.639278</TimeChanged>
	<TimeCreated>64315,46649.612714</TimeCreated>

	<Property name="data">
	<Type>CS.Serial</Type>
	<SqlComputeCode>set {*} = ##class(CS.Persistent).dataGetStatic()</SqlComputeCode>

eduard93 / User.RESTService.cls

Created January 17, 2017 11:53

Simple REST Service for InterSystems Ensemble

	Class mvk.production.DocRESTService Extends EnsLib.REST.Service
	{

	Parameter ADAPTER = "EnsLib.HTTP.InboundAdapter";

	XData UrlMap [ XMLNamespace = "http://www.intersystems.com/urlmap" ]
	{
	<Routes>
	<Route Url="/:test" Method="GET" Call="test"/>
	</Routes>

eduard93 / cosJSON.isc

Created September 26, 2016 09:58 — forked from isc-bspead/cosJSON.isc

Macros for writing forward compatible JSON code in InterSystems Caché 2016.1

	#include %occReference
	#if $$$comClassDefined("%Library.Object")
	#define jsonClassIsLatestVersion $classIsLatestVersion
	//usage: obj.$$$jsonClassIsLatestVersion()
	#define jsonExtends $extends
	//usage: {}.$$$jsonExtends(classname)
	#define jsonFromJSON $fromJSON
	//usage: {}.$$$jsonFromJSON(string)
	#define jsonGetIterator $getIterator
	//usage: obj.$$$jsonGetIterator()

eduard93 / test.xml

Created September 6, 2016 19:10

	<?xml version="1.0" encoding="UTF-8"?>
	<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2016.1 (Build 656U)" ts="2016-09-06 22:08:45">
	<Class name="test.Persistent">
	<Super>%Persistent</Super>
	<TimeChanged>64167,79670.466185</TimeChanged>
	<TimeCreated>64167,76054.060343</TimeCreated>

	<Property name="Datatype">
	<Type>%String</Type>
	</Property>

eduard93 / test.xml

Created September 6, 2016 10:45

	<?xml version="1.0" encoding="UTF-8"?>
	<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2016.1 (Build 656U)" ts="2016-09-06 13:42:59">
	<Class name="Utils.SU">
	<Super>%Persistent</Super>
	<TimeChanged>64167,48641.752589</TimeChanged>
	<TimeCreated>64167,48197.94576</TimeCreated>

	<Property name="String">
	<Type>%String</Type>
	</Property>

eduard93 / length.cls

Created June 28, 2016 20:33

Calculate class or package length in sloc

	ClassMethod ProjectLength(Mask As %String = "%Package%")
	{
	Set count = 0
	Set rset = ##class(%SQL.Statement).%ExecDirect(,"SELECT Name FROM %Dictionary.ClassDefinition WHERE NOT Name %STARTSWITH '%sqlcq' AND Name LIKE ?", Mask)

	While rset.%Next() {
	Set class = rset.%Get("Name")
	Do ##class(%Compiler.UDL.TextServices).GetTextAsArray(, class, .raw)
	Set lines = $ORDER(raw($CHAR(0)), -1)
	Write class, $JUSTIFY("", 40-$LENGTH(class)), $JUSTIFY(lines, 7), !

Eduard eduard93