Free Pascal

package           : tis-free-pascal
version           : 3.2.2-1
architecture      : x64
section           : base
priority          : optional
name              : Free Pascal
categories        : 
maintainer        : Amel FRADJ
description       : Free Pascal is a mature, versatile, open source Pascal compiler. It can target many processor architectures
depends           : 
conflicts         : 
maturity          : PROD
locale            : 
target_os         : windows
min_wapt_version  : 
sources           : https://sourceforge.net/projects/freepascal/
installed_size    : 
impacted_process  : 
description_fr    : Free Pascal est un compilateur Pascal mature, polyvalent et open source. Il peut cibler de nombreuses architectures de processeurs
description_pl    : Free Pascal to dojrzały, wszechstronny kompilator Pascala o otwartym kodzie źródłowym. Może on działać na wielu architekturach procesorów
description_de    : Free Pascal ist ein ausgereifter, vielseitiger, quelloffener Pascal-Compiler. Er kann für viele Prozessorarchitekturen eingesetzt werden
description_es    : Free Pascal es un compilador Pascal maduro, versátil y de código abierto. Puede utilizarse con muchas arquitecturas de procesador
description_pt    : O Free Pascal é um compilador Pascal maduro, versátil e de código aberto. Pode ser utilizado em muitas arquitecturas de processadores
description_it    : Free Pascal è un compilatore Pascal maturo, versatile e open source. Può essere indirizzato a molte architetture di processori
description_nl    : Free Pascal is een volwassen, veelzijdige, open source Pascal compiler. Het kan zich richten op veel processorarchitecturen
description_ru    : Free Pascal - это зрелый, универсальный компилятор Паскаля с открытым исходным кодом. Он может работать со многими процессорными архитектурами
audit_schedule    : 
editor            : 
keywords          : 
licence           : https://wiki.lazarus.freepascal.org/licensing
homepage          : https://www.freepascal.org/
package_uuid      : 78c13cac-7b0f-4f53-aaaf-ef63b60d3d2e
valid_from        : 
valid_until       : 
forced_install_on : 
changelog         : 
min_os_version    : 
max_os_version    : 
icon_sha256sum    : 4a6a7a590a670b402cbd57dd6dfff19628b8a0fa5d2fd28ea6d7feacc817f137
signer            : Tranquil IT
signer_fingerprint: 8c5127a75392be9cc9afd0dbae1222a673072c308c14d88ab246e23832e8c6bb
signature         : wWpJGknT/OdVN8N8wun7O4zOQoQECqJ6JZelRgvhEOuoJY9FZcDnxA81sTgSCTiicXTzJNDdzXJzvkeQYhVgJnJ3jDHPvZP9u9qiJ5P7UjSJL0gJf0OJujzqHzornTqCb+wHYJYlyr/ceXGxHYf/+g46AAWRvulNJIp2Q+BS+46SDfSBDbWVece1Yd3EnwZJhY92DKEmPH2dnz/s9mMLgPyUdQepf0iF1KRVoZ3qT/Q2tMuF1GY4NFS1TvbLgjLq9H1ys9yl0CCt9+VXSWkdCT9dFk4p8wki+pB7WGtk/S+XL8owDSO7wwIIdjGut/NOBJVa88rgaJIH1y6knLQhAA==
signature_date    : 2024-06-16T09:00:15.720440
signed_attributes : package,version,architecture,section,priority,name,categories,maintainer,description,depends,conflicts,maturity,locale,target_os,min_wapt_version,sources,installed_size,impacted_process,description_fr,description_pl,description_de,description_es,description_pt,description_it,description_nl,description_ru,audit_schedule,editor,keywords,licence,homepage,package_uuid,valid_from,valid_until,forced_install_on,changelog,min_os_version,max_os_version,icon_sha256sum,signer,signer_fingerprint,signature_date,signed_attributes

# -*- coding: utf-8 -*-
from setuphelpers import *

r"""
Usable WAPT package functions: install(), uninstall(), session_setup(), audit(), update_package()
{
   "key":"FreePascal_is1",
   "name":"Free Pascal 3.2.2",
   "version":"",
   "install_date":"2024-06-05 00:00:00",
   "install_location":"C:\\FPC\\3.2.2\\",
   "uninstall_string":"\"C:\\FPC\\3.2.2\\unins000.exe\"",
   "publisher":"Free Pascal Team",
   "system_component":0,
   "win64":false
  }

"""
# Declaring global variables - Warnings: 1) WAPT context is only available in package functions; 2) Global variables are not persistent between calls


def install():
    # Declaring local variables
    bin_name = glob.glob("fpc-*.win32.and.win64.exe")[0]
            
    # Installing the software
    
    install_exe_if_needed(bin_name,
        silentflags='/VERYSILENT /SUPPRESSMSGBOXES /NORESTART',
        key= 'FreePascal_is1',
        min_version =control.get_software_version() ,
        get_version=get_version,
        timeout=600,
    )


def get_version(app_registry_dict):

    return app_registry_dict["name"][12:]

# -*- coding: utf-8 -*-
from setuphelpers import *
from setupdevhelpers import *
import requests


def update_package():
    # Déclaration des variables locales
    package_updated = False
    proxies = get_proxies_from_wapt_console()
    if not proxies:
        proxies = get_proxies()
    arch_dict = {
        "x64":"win32.and.win64.exe",
        "x86":"win32.exe"
    }    

    url = "https://sourceforge.net/projects/freepascal/files/Win32/"
    response = requests.get(url)
    headers = bs_find_all(url,"th","headers")

    if headers:
        first_header = headers[0]
        a_tag = first_header.find("a")
        if a_tag:
            first_link = a_tag['href']
            version = first_link.split('/')[-2]
            print(f"First version found: {version}")

     # Trouver tous les éléments <tr> avec la classe file et le titre correspondant à la version
    requet = requests.get(url + version).text
    rows = bs_find_all(requet, "tr",  class_name="file")
    target_title = f"fpc-{version}.{arch_dict[control.architecture]}"
    download_link = None
    for row in rows:
        if row.get('title') == target_title:
            a_tag = row.find("a", title=f"Click to download {target_title}")
            if a_tag:
                download_link = a_tag['href']
                break
    if download_link:
        print(f"Download link found: {download_link}")
   
   
    latest_bin = target_title
    download_url = download_link

   

  

    # Downloading latest binaries
    print("Download URL is: %s" % download_url)
    if not isfile(latest_bin):
        print("Downloading: %s" % latest_bin)
        wget(download_url, latest_bin,proxies=proxies)
    else:
        print("Binary is present: %s" % latest_bin)

    

    # Changing version of the package
    if Version(version, 4) > Version(control.get_software_version(), 4):
        print("Software version updated (from: %s to: %s)" % (control.get_software_version(), Version(version)))
        package_updated = True
    else:
        print("Software version up-to-date (%s)" % Version(version))
    control.set_software_version(version)
    control.save_control_to_wapt()

    # Validating update-package-sources
    return package_updated

    # # Changing version of the package and validating update-package-sources
    # return complete_control_version(control, version)

d9e4ca31ae5f5af872871200807d9ad281ebb2857f5e54125fe76147d9709d3c : setup.py
f789e9092f85680ea3a373e4904e94d2f67568a655b7144f9f8a026d0c0548a9 : update_package.py
8c255390544b051388b577eb61c6191a04883264afe0e3369b3600a56daf7bde : fpc-3.2.2.win32.and.win64.exe
4a6a7a590a670b402cbd57dd6dfff19628b8a0fa5d2fd28ea6d7feacc817f137 : WAPT/icon.png
a5a97261381e1d0ad46ee15916abec9c2631d0201f5cc50ceb0197a165a0bbbf : WAPT/certificate.crt
e3f017441cf50283fd8910e33acb2e0836f877c8b765bb250e2b929bc5afec4a : luti.json
af891d49d655bde110ebae23e56da28ef15511f2974a807a9d21138a931af4fd : WAPT/control