aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

YAPC::EU 2018 Glasgow Update!

Browse source
This commit is contained in:
Ingy döt Net 2018-08-17 15:15:24 +01:00
parent 22f33d4004
commit 4e2d22a71d
1170 changed files with 15042 additions and 3047 deletions
Download patch file Download diff file Expand all files Collapse all files

158
Task/Calendar---for-REAL-programmers/Ring/calendar---for-real-programmers.ring Normal file
View file

@ -0,0 +1,158 @@
# PROJECT : CALENDAR - FOR "REAL" PROGRAMMERS
# DATE : 2018/06/28
# AUTHOR : GAL ZSOLT (~ CALMOSOFT ~)
# EMAIL : <CALMOSOFT@GMAIL.COM>
LOAD "GUILIB.RING"
LOAD "STDLIB.RING"
NEW QAPP
{
WIN1 = NEW QWIDGET() {
DAY = LIST(12)
POS = NEWLIST(12,37)
MONTH = LIST(12)
WEEK = LIST(7)
WEEKDAY = LIST(7)
BUTTON = NEWLIST(7,6)
MONTHSNAMES = LIST(12)
WEEK = ["SU", "MO", "TU", "WE", "TH", "FR", "SA"]
MONTHS = ["JANUARY", "FEBRUARY", "MARCH", "APRIL", "MAY", "JUNE", "JULY",
"AUGUST", "SEPTEMBER", "OCTOBER", "NOVEMBER", "DECEMBER"]
DAYSNEW = [[5,1], [6,2], [7,3], [1,4], [2,5], [3,6], [4,7]]
MO = [4,0,0,3,5,1,3,6,2,4,0,2]
MON = [31,28,31,30,31,30,31,31,30,31,30,31]
M2 = (((1969-1900)%7) + FLOOR((1969 - 1900)/4) % 7) % 7
FOR N = 1 TO 12
MONTH[N] = (MO[N] + M2) % 7
X = (MONTH[N] + 1) % 7 + 1
FOR M = 1 TO LEN(DAYSNEW)
IF DAYSNEW[M][1] = X
NR = M
OK
NEXT
DAY[N] = DAYSNEW[NR][2]
NEXT
FOR M = 1 TO 12
FOR N = 1 TO DAY[M] - 1
POS[M][N] = " "
NEXT
NEXT
FOR M = 1 TO 12
FOR N = DAY[M] TO 37
IF N < (MON[M] + DAY[M])
POS[M][N] = N - DAY[M] + 1
ELSE
POS[M][N] = " "
OK
NEXT
NEXT
SETWINDOWTITLE("CALENDAR")
SETGEOMETRY(100,100,650,800)
LABEL1 = NEW QLABEL(WIN1) {
SETGEOMETRY(10,10,800,600)
SETTEXT("")
}
YEAR = NEW QPUSHBUTTON(WIN1)
{
SETGEOMETRY(280,20,63,20)
YEAR.SETTEXT("1969")
}
FOR N = 1 TO 4
NR = (N-1)*3+1
SHOWMONTHS(NR)
NEXT
FOR N = 1 TO 12
SHOWWEEKS(N)
NEXT
FOR N = 1 TO 12
SHOWDAYS(N)
NEXT
SHOW()
}
EXEC()
}
FUNC SHOWMONTHS(M)
FOR N = M TO M + 2
MONTHSNAMES[N] = NEW QPUSHBUTTON(WIN1)
{
IF N%3 = 1
COL = 120
ROWNR = FLOOR(N/3)
IF ROWNR = 0
ROWNR = N/3
OK
IF N = 1
ROW = 40
ELSE
ROW = 40+ROWNR*180
OK
ELSE
COLNR = N%3
IF COLNR = 0
COLNR = 3
OK
ROWNR = FLOOR(N/3)
IF N%3 = 0
ROWNR = FLOOR(N/3)-1
OK
COL = 120 + (COLNR-1)*160
ROW = 40 + ROWNR*180
OK
SETGEOMETRY(COL,ROW,63,20)
MONTHSNAMES[N].SETTEXT(MONTHS[N])
}
NEXT
FUNC SHOWWEEKS(N)
FOR M = 1 TO 7
COL = M%7
IF COL = 0 COL = 7 OK
WEEKDAY[M] = NEW QPUSHBUTTON(WIN1)
{
COLNR = N % 3
IF COLNR = 0
COLNR = 3
OK
ROWNR = FLOOR(N/3)
IF N%3 = 0
ROWNR = FLOOR(N/3)-1
OK
COLBEGIN = 60 + (COLNR-1)*160
ROWBEGIN = 60 + (ROWNR)*180
SETGEOMETRY(COLBEGIN+COL*20,ROWBEGIN,25,20)
WEEKDAY[M].SETTEXT(WEEK[M])
}
NEXT
FUNC SHOWDAYS(IND)
ROWNR = FLOOR(IND/3)
IF IND%3 = 0
ROWNR = FLOOR(IND/3)-1
OK
ROWBEGIN = 60+ROWNR*180
FOR M = 1 TO 6
FOR N = 1 TO 7
COL = N%7
IF COL = 0 COL = 7 OK
ROW = M
BUTTON[N][M] = NEW QPUSHBUTTON(WIN1)
{
IF IND%3 = 1
COLBEGIN = 60
ELSEIF IND%3 = 2
COLBEGIN = 220
ELSE
COLBEGIN = 380
OK
SETGEOMETRY(COLBEGIN+COL*20,ROWBEGIN+ROW*20,25,20)
NR = (M-1)*7+N
IF NR <= 37
IF POS[IND][NR] != " "
BUTTON[N][M].SETTEXT(STRING(POS[IND][NR]))
OK
OK
}
NEXT
NEXT

6
Task/Calendar---for-REAL-programmers/UNIX-Shell/calendar---for-real-programmers.sh
View file

@ -1 +1,5 @@
cal -m 1969 | tr a-z A-Z
CAL=CAL
TR=TR
A=A
Z=Z
LANG=C ${CAL,,} 1969 | ${TR,,} ${A,}-${Z,} A-Z