Skip to content

Commit 8cbc4cc

Browse files
committed
Release 1.0.1
Fix packaging mac files by zpm. Add examples.
1 parent 163db1b commit 8cbc4cc

File tree

2 files changed

+74
-3
lines changed

2 files changed

+74
-3
lines changed

module.xml

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -3,11 +3,12 @@
33
<Document name="declarative-os.ZPM">
44
<Module>
55
<Name>declarative-os</Name>
6-
<Version>1.0.0</Version>
6+
<Version>1.0.1</Version>
77
<Packaging>module</Packaging>
88
<SourcesRoot>src</SourcesRoot>
9-
<Resource Name="DeclarativeOS.PKG"/>
10-
9+
<Resource Name="DeclarativeOS.PKG" Directory="cls"/>
10+
<Resource Name="%ZLANGC01.MAC" Directory="mac"/>
11+
<Resource Name="%ZLANGF00.MAC" Directory="mac"/>
1112
<UnitTest Name="/test" Package="Test.DeclarativeOS.PKG" Phase="test"/>
1213
</Module>
1314
</Document>

src/cls/DeclarativeOS/Examples.cls

Lines changed: 70 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,70 @@
1+
Class DeclarativeOS.Examples Extends DeclarativeOS.RegistryHelper
2+
{
3+
4+
/// Returns hex value of the passed value.
5+
///
6+
/// @Declarative("examples:toHex")
7+
ClassMethod toHex(value As %Numeric)
8+
{
9+
return $zhex(value)
10+
}
11+
12+
/// Returns $$$YES if passed value is prime number.
13+
/// Otherwise, returns $$$NO.
14+
///
15+
/// @Declarative("examples:isPrime")
16+
ClassMethod isPrime(value As %Numeric)
17+
{
18+
for i=2:1:$zsqr(value) {
19+
if (value # i = 0) {
20+
return $$$NO
21+
}
22+
}
23+
24+
return $$$YES
25+
}
26+
27+
/// Returns $$$YES if passed value is odd number.
28+
/// Otherwise, returns $$$NO.
29+
///
30+
/// @Declarative("examples:isOdd")
31+
ClassMethod isOdd(value As %Numeric)
32+
{
33+
return value # 2 '= 0
34+
}
35+
36+
/// Returns $$$YES if passed value is even number.
37+
/// Otherwise, returns $$$NO.
38+
///
39+
/// @Declarative("examples:isEven")
40+
ClassMethod isEven(value As %Numeric)
41+
{
42+
return value # 2 = 0
43+
}
44+
45+
/// Returns $$$YES if passed value is palindromic number.
46+
/// Otherwise, returns $$$NO.
47+
///
48+
/// @Declarative("examples:isPalindromic")
49+
ClassMethod isPalindromic(value As %Numeric)
50+
{
51+
return $reverse(value) = value
52+
}
53+
54+
/// Output passed value.
55+
///
56+
/// @Declarative("io:print")
57+
ClassMethod print(value As %Library.DataType)
58+
{
59+
w value
60+
}
61+
62+
/// Output passed value. Add newline symbol.
63+
///
64+
/// @Declarative("io:println")
65+
ClassMethod println(value As %Library.DataType)
66+
{
67+
w value, !
68+
}
69+
70+
}

0 commit comments

Comments
 (0)