Před 70 lety, 7. června 1954, ve věku 41 let, zemřel Alan Turing, britský matematik, logik, kryptoanalytik a zakladatel moderní informatiky.
NiceGUI umožňuje používat webový prohlížeč jako frontend pro kód v Pythonu. Zdrojové kódy jsou k dispozici na GitHubu pod licencí MIT.
Open source platforma Home Assistant (Demo, GitHub, Wikipedie) pro monitorování a řízení inteligentní domácnosti byla vydána ve verzi 2024.6. Z novinek lze vypíchnout lepší integraci LLM (OpenAI, Google AI, Ollama) nebo podporu Matter 1.3.
IKEA ve Spojeném království hledá zaměstnance do své nové pobočky. Do pobočky v počítačové hře Roblox. Nástupní mzda je 13,15 liber na hodinu.
Alyssa Rosenzweig se v příspěvku na svém blogu Vulkan 1.3 na M1 za 1 měsíc rozepsala o novém Vulkan 1.3 ovladači Honeykrisp pro Apple M1 splňujícím specifikaci Khronosu. Vychází z ovladače NVK pro GPU od Nvidie. V plánu je dále rozchodit DXVK a vkd3d-proton a tím pádem Direct3D, aby na Apple M1 s Asahi Linuxem běžely hry pro Microsoft Windows.
Byla vydána (𝕏) květnová aktualizace aneb nová verze 1.90 editoru zdrojových kódů Visual Studio Code (Wikipedie). Přehled novinek i s náhledy a animovanými gify v poznámkách k vydání. Ve verzi 1.90 vyjde také VSCodium, tj. komunitní sestavení Visual Studia Code bez telemetrie a licenčních podmínek Microsoftu.
Byla vydána (Mastodon, 𝕏) nová verze 2024.2 linuxové distribuce navržené pro digitální forenzní analýzu a penetrační testování Kali Linux (Wikipedie). Přehled novinek se seznamem nových nástrojů v oficiálním oznámení.
Počítačová hra Tetris slaví 40 let. Alexej Pažitnov dokončil první hratelnou verzi 6. června 1984. Mezitím vznikla celá řada variant. Například Peklo nebo Nebe. Loni měl premiéru film Tetris.
MicroPython (Wikipedie), tj. implementace Pythonu 3 optimalizovaná pro jednočipové počítače, byl vydán ve verzi 1.23.0. V přehledu novinek je vypíchnuta podpora dynamických USB zařízení nebo nové moduly openamp, tls a vfs.
Canonical vydal Ubuntu Core 24. Představení na YouTube. Nová verze Ubuntu Core vychází z Ubuntu 24.04 LTS a podporována bude 12 let. Ubuntu Core je určeno pro IoT (internet věcí) a vestavěné systémy.
Jednoduchy příklad interface mezi C++ a f77
Minulý víkend jsem za po dlouhé době potřeboval udělat interface mezi kódem ve fortranu a kódem v C++. Jelikož jsem to již dlouho nedělal, chvíli mi trvalo, než jsem si vzpomněl, jak to udělat (neměl jsem přístup na net; při této příležitosti jsem si zas uvědomil, že bez netu jsem jako bez ruky - tedy co se programování týče). Poté, co se mi to zadařilo, jsem se rozhodnul udělat si jednoduchý prográmek pro přístě, až zas budu bez netu a budu vzpomínat, jak se to dělá. Vše níže uvedené platí pro kompilátor gcc.
Volání fortranovské rutiny z C++ je vcelku jednoduché, stačí funkci deklarovat jako externí, název je stejný jako ve fortranu, ale přídáme podtržítko. Případný parameter předáme pomocí jeho adresy:
extern "C" {void vypisparam_(int* cislo);} ... vypisparam_(&mojeCislo);
Obvykle ale potřebujeme víc. Velmi často je potřeba nějak přistupovat k proměnným ve fortranovských common blocích.
Mějme následně definovaný common blok a jednoduchý fotranovský prográmek:
test.inc
:
DOUBLE PRECISION dp1,dp2 INTEGER int1 COMMON/MYTEST/dp1,dp2,int1
test.f
:
PROGRAM TEST INCLUDE 'test.inc' CALL NASTAV CALL VYPIS CALL VYPISPARAM(20) CALL VYPIS END SUBROUTINE NASTAV INCLUDE 'test.inc' PRINT*,'Rutina Nastav - nastavuji parametry' dp1 = 1.D0 dp2 = 3.5D0 int1 = 10 END SUBROUTINE VYPIS INCLUDE 'test.inc' PRINT*,"Rutina Vypis:" PRINT*,'dp1 = ',dp1 PRINT*,'dp2 = ',dp2 PRINT*,'int1 = ',int1 END SUBROUTINE VYPISPARAM(a) INCLUDE 'test.inc' INTEGER a dp1 = a dp2 = a int1 = a PRINT*,'Rutina VypisParam:' PRINT*,'a=',a ENDCommon blok bude v C++ reprezentovat struktura. Proměnné v common bloku jsou uloženy v paměti za sebou. Inicializace tedy probíhá tak, že se ukazateli na strukturu v C++ předá adresa první proměnné common bloku z fortranu. Je proto nutné, aby proměnné ve struktuře byly stejného typu a ve stejném pořadí jako ve fortranu (pro vícerozměrná pole pak ješte je nutno dát pozor indexy). O vrácení adresy common bloku se nám postará jednoduchá fortranovská funkce:
FUNCTION common_block_address(common_block_name) INCLUDE 'test.inc' CHARACTER*(*) common_block_name INTEGER common_block_address INTEGER aaadress IF(common_block_name.EQ.'MYTEST')THEN common_block_address = adress(dp1) ELSE PRINT*,'Neexistujici common block' ENDIF RETURN ENDJednoduchý prográmek v C++, který volá rutiny fortranovského kódu a pracuje s proměnnými v common bloku, by mohl vypadat takto (v C++ by tedy bylo vhodnejší, abychom byli objektoví, vytvořit objekt, který by reprezentoval fortanovský kód):
#include <iostream> double loc_dp1,loc_dp2; int loc_int1; struct MyTest_t{ double dp1,dp2; int int1; }; extern "C" { void nastav_(); void vypis_(); void vypisparam_(int* cislo); } extern "C" void* adress_(void* var){ return var; } extern "C" void* common_block_address_(char*,int len); MyTest_t* fMyTest; void InitCommonBlock(){ fMyTest = (MyTest_t*)common_block_address_("MYTEST",6); } void LocalParToFor(){ fMyTest->dp1 = loc_dp1; fMyTest->dp2 = loc_dp2; fMyTest->int1 = loc_int1; } void ForToLocalPar(){ loc_dp1 = fMyTest->dp1; loc_dp2 = fMyTest->dp2; loc_int1 = fMyTest->int1; } int main(){ int aaa = 100; InitCommonBlock(); nastav_(); vypis_(); ForToLocalPar(); std::cout << "loc_dp1 je " << loc_dp1 << std::endl; std::cout << "loc_dp2 je " << loc_dp2 << std::endl; std::cout << "loc_int1 je " << loc_int1 << std::endl; vypisparam_(&aaa); loc_dp1 = 4.5; loc_dp2 = 8.3; loc_int1 = 15; LocalParToFor(); vypis_(); return 0; }Vše kompilujeme pomocí g++ a poté slikujeme dohromady společně s knihovnou gfortan, u mě např. takto:
g++ common_block_address.o interface.o test.o -L/usr/lib/gcc/i386-redhat-linux/4.3.0/ -lgfortran
Tiskni Sdílej: