; Fitxer: myLibrary.m
; Descripció: Biblioteca d'exemples amb funcions matemàtiques

; Funció per sumar dos números
SUM(a, b)
 QUIT a + b

; Funció per restar dos números
SUBTRACT(a, b)
 QUIT a - b

; Funció per multiplicar dos números
MULTIPLY(a, b)
 QUIT a * b

; Funció per dividir dos números
DIVIDE(a, b)
 IF b=0 QUIT "Error: Divisió per zero"
 QUIT a / b

; Carregar la biblioteca
DO ^myLibrary

; Utilitzar les funcions de la biblioteca
SET result = $$SUM(5, 3)
WRITE "La suma de 5 i 3 és: ", result, !

SET result = $$DIVIDE(10, 2)
WRITE "La divisió de 10 per 2 és: ", result, !

; Fitxer: stringUtils.m
; Descripció: Extensió per treballar amb cadenes de text

; Funció per convertir una cadena a majúscules
TOUPPER(str)
 NEW result
 SET result=$ZCONVERT(str,"U")
 QUIT result

; Funció per convertir una cadena a minúscules
TOLOWER(str)
 NEW result
 SET result=$ZCONVERT(str,"L")
 QUIT result

; Carregar l'extensió
DO ^stringUtils

; Utilitzar les funcions de l'extensió
SET upperStr = $$TOUPPER("hola món")
WRITE "Cadena en majúscules: ", upperStr, !

SET lowerStr = $$TOLOWER("HOLA MÓN")
WRITE "Cadena en minúscules: ", lowerStr, !

; Fitxer: mathLibrary.m
; Descripció: Biblioteca de funcions matemàtiques

; Funció per calcular el quadrat d'un número
SQUARE(x)
 QUIT x * x

; Funció per calcular el cub d'un número
CUBE(x)
 QUIT x * x * x

; Funció per calcular la potència d'un número
POWER(x, y)
 NEW result
 SET result=1
 FOR i=1:1:y SET result=result*x
 QUIT result

; Programa per utilitzar la biblioteca mathLibrary
DO ^mathLibrary

SET num = 3
WRITE "El quadrat de ", num, " és: ", $$SQUARE(num), !
WRITE "El cub de ", num, " és: ", $$CUBE(num), !
WRITE "El ", num, " elevat a la potència 4 és: ", $$POWER(num, 4), !

; Fitxer: dateUtils.m
; Descripció: Extensió per treballar amb dates

; Funció per obtenir la data actual
CURRENTDATE()
 QUIT $ZDATE($HOROLOG,"DD/MM/YYYY")

; Funció per sumar dies a una data
ADDDAYS(date, days)
 NEW hdate
 SET hdate=$ZDATEH(date,"DD/MM/YYYY")
 SET hdate=hdate+days
 QUIT $ZDATE(hdate,"DD/MM/YYYY")

; Funció per restar dies d'una data
SUBTRACTDAYS(date, days)
 NEW hdate
 SET hdate=$ZDATEH(date,"DD/MM/YYYY")
 SET hdate=hdate-days
 QUIT $ZDATE(hdate,"DD/MM/YYYY")

; Programa per utilitzar l'extensió dateUtils
DO ^dateUtils

WRITE "La data actual és: ", $$CURRENTDATE(), !
WRITE "Sumar 10 dies a la data actual: ", $$ADDDAYS($$CURRENTDATE(), 10), !
WRITE "Restar 5 dies de la data actual: ", $$SUBTRACTDAYS($$CURRENTDATE(), 5), !