Data update
This commit is contained in:
Ingy döt Net
parent
ed705008a8
commit
0df55f9f24
2196 changed files with 32999 additions and 3075 deletions
|
|
@ -28,7 +28,7 @@ class CalendarMonthPrinter
|
|||
_row.Value := 0;
|
||||
_date := Date.new(_year, _month, 1);
|
||||
|
||||
DayNames.forEach:(name)
|
||||
DayNames.forEach::(name)
|
||||
{ _line.print(" ",name) }
|
||||
}
|
||||
|
||||
|
|
@ -46,7 +46,7 @@ class CalendarMonthPrinter
|
|||
{
|
||||
_line.writePaddingLeft(_date.Day.toPrintable(), $32, 3);
|
||||
|
||||
_date := _date.addDays:1
|
||||
_date := _date.addDays(1)
|
||||
}
|
||||
until(_date.Month != _month || _date.DayOfWeek == 1)
|
||||
};
|
||||
|
|
@ -118,31 +118,31 @@ class Calendar
|
|||
output.writeLine().writeLine();
|
||||
|
||||
var rowCount := 12 / _rowLength;
|
||||
var months := Array.allocate(rowCount).populate:(i =>
|
||||
var months := Array.allocate(rowCount).populate::(i =>
|
||||
Array.allocate(_rowLength)
|
||||
.populate:(j =>
|
||||
.populate::(j =>
|
||||
new CalendarMonthPrinter(_year, i * _rowLength + j + 1)));
|
||||
|
||||
months.forEach:(row)
|
||||
months.forEach::(row)
|
||||
{
|
||||
var r := row;
|
||||
|
||||
row.forEach:(month)
|
||||
row.forEach::(month)
|
||||
{
|
||||
month.printTitleTo:output;
|
||||
month.printTitleTo(output);
|
||||
|
||||
output.write:" "
|
||||
output.write(" ")
|
||||
};
|
||||
|
||||
output.writeLine();
|
||||
|
||||
ParallelEnumerator.new(row).forEach:(line)
|
||||
ParallelEnumerator.new(row).forEach::(line)
|
||||
{
|
||||
line.forEach:(printer)
|
||||
line.forEach::(printer)
|
||||
{
|
||||
printer.printTo:output;
|
||||
printer.printTo(output);
|
||||
|
||||
output.write:" "
|
||||
output.write(" ")
|
||||
};
|
||||
|
||||
output.writeLine()
|
||||
|
|
@ -153,9 +153,9 @@ class Calendar
|
|||
|
||||
public program()
|
||||
{
|
||||
var calender := Calendar.new(console.write:"ENTER THE YEAR:".readLine().toInt());
|
||||
var calender := Calendar.new(console.write("ENTER THE YEAR:").readLine().toInt());
|
||||
|
||||
calender.printTo:console;
|
||||
calender.printTo(console);
|
||||
|
||||
console.readChar()
|
||||
}
|
||||
|
|
|
|||
|
|
@ -0,0 +1,32 @@
|
|||
: WEEKDAY ( D M Y -- U )
|
||||
OVER 3 < IF SWAP 12 + SWAP 1- THEN
|
||||
DUP 4 / OVER 100 / - OVER 400 / + + SWAP 1+ 13 * 5 / + + 2 - 7 MOD ;
|
||||
|
||||
: MDAYS ( M Y -- MSIZE MDAY )
|
||||
OVER 12 = IF 31 1 2SWAP WEEKDAY NEGATE EXIT THEN
|
||||
2>R 1 2R@ WEEKDAY 1 2R> SWAP 1+ SWAP WEEKDAY OVER -
|
||||
7 + 7 MOD 28 + SWAP NEGATE ;
|
||||
|
||||
: .WEEK ( MSIZE MDAY -- MSIZE MDAY' )
|
||||
7 0 DO DUP 0< IF 1+ 3 SPACES ELSE
|
||||
2DUP > IF 1+ DUP 2 .R SPACE ELSE 3 SPACES THEN THEN LOOP ;
|
||||
|
||||
: .3MONTHS ( Y M -- )
|
||||
3 0 DO ." MO TU WE TH FR SA SU " LOOP CR
|
||||
3 OVER + SWAP DO I OVER MDAYS ROT LOOP DROP
|
||||
6 0 DO 2ROT .WEEK 2 SPACES 2ROT .WEEK 2 SPACES 2ROT .WEEK CR LOOP
|
||||
2DROP 2DROP 2DROP ;
|
||||
|
||||
: CAL ( Y -- )
|
||||
30 SPACES ." [SNOOPY]" CR
|
||||
32 SPACES DUP . CR
|
||||
." JANUARY FEBRUARY MARCH" CR
|
||||
DUP 1 .3MONTHS
|
||||
." APRIL MAY JUNE" CR
|
||||
DUP 4 .3MONTHS
|
||||
." JULY AUGUST SEPTEMBER" CR
|
||||
DUP 7 .3MONTHS
|
||||
." OCTOBER NOVEMBER DECEMBER" CR
|
||||
10 .3MONTHS ;
|
||||
|
||||
1969 CAL
|
||||
|
|
@ -1,3 +1,2 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #008080;">return</span> <span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #008000;">' '</span><span style="color: #0000FF;">,</span><span style="color: #000000;">left</span><span style="color: #0000FF;">)&</span><span style="color: #000000;">s</span><span style="color: #0000FF;">&</span><span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #008000;">' '</span><span style="color: #0000FF;">,</span><span style="color: #000000;">right</span><span style="color: #0000FF;">)</span>
|
||||
<!--
|
||||
--return repeat(' ',left)&s&repeat(' ',right)
|
||||
return repeat(' ',left)&upper(s)&repeat(' ',right)
|
||||
|
|
|
|||
|
|
@ -1,3 +1 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #008080;">return</span> <span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #008000;">' '</span><span style="color: #0000FF;">,</span><span style="color: #000000;">left</span><span style="color: #0000FF;">)&</span><span style="color: #7060A8;">upper</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">)&</span><span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #008000;">' '</span><span style="color: #0000FF;">,</span><span style="color: #000000;">right</span><span style="color: #0000FF;">)</span>
|
||||
<!--
|
||||
initialSymEntry("integer", S_Type,"TI",opInt, E_none) -- #01 / 0b0001 integer
|
||||
|
|
|
|||
|
|
@ -1,3 +1 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #000000;">initialSymEntry</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"integer"</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">S_Type</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"TI"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">opInt</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">E_none</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- #01 / 0b0001 integer</span>
|
||||
<!--
|
||||
Alias("INTEGER",symlimit)
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #000000;">Alias</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"INTEGER"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">symlimit</span><span style="color: #0000FF;">)</span>
|
||||
<!--
|
||||
procedure tt_stringA(sequence text, integer alias)
|
||||
tt_string(text,-2)
|
||||
tt[pcurr] = alias
|
||||
end procedure
|
||||
|
|
|
|||
|
|
@ -1,6 +1 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #008080;">procedure</span> <span style="color: #000000;">tt_stringA</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">text</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">integer</span> <span style="color: #000000;">alias</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #000000;">tt_string</span><span style="color: #0000FF;">(</span><span style="color: #000000;">text</span><span style="color: #0000FF;">,-</span><span style="color: #000000;">2</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #000000;">tt</span><span style="color: #0000FF;">[</span><span style="color: #000000;">pcurr</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">alias</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
|
||||
<!--
|
||||
global constant T_include = 596 tt_stringF("include",T_include)
|
||||
|
|
|
|||
|
|
@ -1,3 +1 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #008080;">global</span> <span style="color: #008080;">constant</span> <span style="color: #000000;">T_include</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">596</span> <span style="color: #000000;">tt_stringF</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"include"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">T_include</span><span style="color: #0000FF;">)</span>
|
||||
<!--
|
||||
tt_stringA("INCLUDE",T_include)
|
||||
|
|
|
|||
|
|
@ -1,3 +1,2 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #000000;">tt_stringA</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"INCLUDE"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">T_include</span><span style="color: #0000FF;">)</span>
|
||||
<!--
|
||||
--Ch = find(Ch,escchar)
|
||||
Ch = find(lower(Ch),escchar)
|
||||
|
|
|
|||
|
|
@ -1,3 +0,0 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #000000;">Ch</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #000000;">Ch</span><span style="color: #0000FF;">,</span><span style="color: #000000;">escchar</span><span style="color: #0000FF;">)</span>
|
||||
<!--
|
||||
|
|
@ -1,3 +0,0 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #000000;">Ch</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">lower</span><span style="color: #0000FF;">(</span><span style="color: #000000;">Ch</span><span style="color: #0000FF;">),</span><span style="color: #000000;">escchar</span><span style="color: #0000FF;">)</span>
|
||||
<!--
|
||||
Loading…
Add table
Add a link
Reference in a new issue