Recent posts

#61

OxygenBasic Examples / Re: MarkDown (MD) Viewer

Last post by Charles Pegge - December 24, 2025, 09:46:47 AM

Thanks Nicola.


For Markdown reference:

https://www.markdownguide.org/basic-syntax/

#62

Contentious discussions about anything, the world, politics and health topics. / Modern China Farming Technolog...

Last post by Charles Pegge - December 24, 2025, 08:54:39 AM

#63

OxygenBasic Examples / MarkDown (MD) Viewer

Last post by Nicola - December 23, 2025, 08:41:31 PM

Hi, 
I'm trying to program a Markdown viewer. I would like one that's light and simple. I thought about using an RTF conversion to use its viewer. It's not bad. However, I think I will try using an HTML viewer with HTML conversions of the MD file... 

Best regards.

Code Select Expand

' MD VIEWER by Nicola Piano (12-2025)
'====================================
$ filename "md_viewer.exe"
uses WinUtil
uses FileDialogs
uses ParseUtil

' --- CARICAMENTO LIBRERIE ---
sys hRichLib = LoadLibrary("msftedit.dll")
if hRichLib = 0 then hRichLib = LoadLibrary("riched20.dll")

% ID_RICHEDIT = 101
% ID_MENU_OPEN = 201
sys hRichEdit, hFont

type SETTEXTEX
    uint flags
    uint codepage
end type
% EM_SETTEXTEX = 0x0461
% ST_RTF       = 2
% CP_ACP       = 0


function UTF8ToAnsi(string s) as string
    sys L = len(s)
    if L = 0 then return ""
   
    ' 1. Calcoliamo quanti caratteri Wide servono
    sys wLen = MultiByteToWideChar(65001, 0, strptr(s), L, 0, 0)
   
    ' Allocazione buffer Wide (2 byte per carattere)
    string ws = space(wLen * 2)
    MultiByteToWideChar(65001, 0, strptr(s), L, strptr(ws), wLen)
   
    ' 2. Calcoliamo quanto spazio ANSI serve
    sys aLen = WideCharToMultiByte(0, 0, strptr(ws), wLen, 0, 0, 0, 0)
    string res = space(aLen)
    WideCharToMultiByte(0, 0, strptr(ws), wLen, strptr(res), aLen, 0, 0)
   
    return res
end function

' --- Funzione Parser Markdown ---
function MD_to_RTF(string md) as string
    ' 0:nero, 1:blu, 4:verde, 5:bordeaux
    string rtf = "{\rtf1\ansi\deff0{\fonttbl{\f0 Segoe UI;}{\f1 Courier New;}}"
    rtf += "{\colortbl;\red0\green0\blue255;\red255\green0\blue0;\red100\green100\blue100;\red0\green128\blue0;\red128\green0\blue64;}\f0\fs24 "
   
    string ToC = "\b\fs28 INDICE\b0\fs24\line\line "
    string contentRTF = ""
    string curLine
    sys pos = 1, nextPos = 0
    bool inCode = false

    do
        nextPos = instr(pos, md, chr(10))
        if nextPos > 0 then
            curLine = mid(md, pos, nextPos - pos)
            pos = nextPos + 1
        else
            curLine = mid(md, pos)
            pos = 0
        end if
       
        if instr(curLine, chr(13)) > 0 then replace(curLine, chr(13), "")
       
        ' 1. Protezione RTF
        replace(curLine, "\", "\\")
        replace(curLine, "{", "\{")
        replace(curLine, "}", "\}")

        ' 2. Pulizia Link [testo](#anchor) -> testo
        ' Fondamentale per file come Variables.md per ripristinare la leggibilità
        do while instr(curLine, "[") > 0 and instr(curLine, "](#") > 0
            sys p1 = instr(curLine, "[")
            sys p2 = instr(p1, curLine, "]")
            sys p3 = instr(p2, curLine, ")")
            if p2 > p1 and p3 > p2 then
                string linkTxt = mid(curLine, p1 + 1, p2 - p1 - 1)
                curLine = left(curLine, p1 - 1) + linkTxt + mid(curLine, p3 + 1)
            else
                exit do
            end if
        loop

        ' 3. Gestione Titoli (Flessibile: cerca il cancelletto anche dopo simboli speciali)
        string tLine = ltrim(curLine)
        ' Cerchiamo la posizione del primo #
        sys hashPos = instr(tLine, "#")
        if hashPos > 0 and hashPos < 5 then ' Se il cancelletto è all'inizio (max 4 spazi/simboli)
            if instr(tLine, "# ") > 0 then
                ToC += "\cf1\b\fs32 " + tLine + "\b0\fs24\cf0\line "
                curLine = "\b\cf1\fs32 " + curLine + "\fs24\cf0\b0"
            elseif instr(tLine, "## ") > 0 then
                ToC += "\cf1\b\fs28 " + tLine + "\b0\fs24\cf0\line "
                curLine = "\b\cf1\fs28 " + curLine + "\fs24\cf0\b0"
            elseif instr(tLine, "### ") > 0 then
                ToC += "\cf4\b\fs24 " + tLine + "\b0\cf0\line "
                curLine = "\b\cf4 " + curLine + "\cf0\b0"
            end if
        end if

        ' 4. Blocchi Codice
        if left(ltrim(curLine), 3) = "```" then
            inCode = not inCode
            if inCode then contentRTF += "\line\f1\fs20 " else contentRTF += "\f0\fs24\line "
            continue do
        end if

        if inCode = false then
            ' 5. Grassetto (Logica a prova di simboli speciali)
            sys b1 = 1
            do
                b1 = instr(b1, curLine, "**")
                if b1 > 0 then
                    sys b2 = instr(b1 + 2, curLine, "**")
                    if b2 > b1 then
                        string boldTxt = mid(curLine, b1 + 2, b2 - b1 - 2)
                        string rep = "\b " + boldTxt + "\b0 "
                        curLine = left(curLine, b1 - 1) + rep + mid(curLine, b2 + 2)
                        b1 += len(rep)
                    else
                        exit do
                    end if
                else
                    exit do
                end if
            loop

            ' 6. Tabelle (Pipe |)
            if instr(curLine, "|") > 0 and instr(curLine, "---") = 0 then
                replace(curLine, "|", "\tab ")
                curLine = "\li400 " + curLine
            end if

            contentRTF += curLine + "\line "
        else
            contentRTF += "   " + curLine + "\line "
        end if
       
        if pos = 0 then exit do
    loop
   
    return rtf + ToC + "\line\emdash\line\line " + contentRTF + "}"
end function

' --- Procedura Caricamento ---
sub LoadMD(sys hEdit, string f)
    if f = "" then exit sub
   
    ' --- 1. SVUOTIAMO LA GUI ---
    SendMessage(hEdit, WM_SETTEXT, 0, strptr(""))
   
    string raw = getfile(f)
    if len(raw) = 0 then exit sub
   
    ' --- 2. CORREZIONE CARATTERI (UTF-8 a ANSI) ---
    ' Applichiamo la conversione prima di passarlo al parser
    'raw = UTF8ToAnsi(raw)
   
    static string sRTF
    sRTF = MD_to_RTF(raw)
   
    dim st as SETTEXTEX
    st.flags = ST_RTF
    st.codepage = 0
   
    SendMessage(hEdit, EM_SETTEXTEX, @st, strptr(sRTF))
    SetWindowText(GetParent(hEdit), "O2 Viewer - " + f)
end sub

static string sRTF

' --- WndProc ---
function WndProc(sys hwnd, uMsg, wParam, lParam) as long callback
    select umsg
        case WM_CREATE
            ' Menu
            sys hMenu = CreateMenu()
            sys hSub = CreatePopupMenu()
            AppendMenu(hSub, MF_STRING, ID_MENU_OPEN, "&Apri...")
            AppendMenu(hMenu, MF_POPUP, hSub, "&File")
            SetMenu(hwnd, hMenu)

            ' Creazione RichEdit
            hRichEdit = CreateWindowEx(WS_EX_CLIENTEDGE, "RichEdit50W", "", _
                        WS_CHILD | WS_VISIBLE | ES_MULTILINE | WS_VSCROLL | 0x0800, _
                        0, 0, 0, 0, hwnd, ID_RICHEDIT, hinst, null)
           
            hFont = CreateFont(20, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 0, "Segoe UI")
            SendMessage(hRichEdit, WM_SETFONT, hFont, 1)

  if hRichEdit <> 0 then
                string testo = "# Ciao Charles" + chr(10) + "O2 is GREAT"
                static string sRTF
                sRTF = MD_to_RTF(testo)
               
                 'usa EM_SETTEXTEX:
                 dim st as SETTEXTEX
                 st.flags = ST_RTF
                 st.codepage = 0
                 SendMessage(hRichEdit, EM_SETTEXTEX, @st, strptr(sRTF))
               
                SetWindowText(hwnd, "O2 Viewer - Pronto")
            end if

        case WM_COMMAND
            if loword(wParam) = ID_MENU_OPEN then
                ' Filtro corretto per FileDialogs.inc [cite: 9]
                string filt = "Markdown" + chr(0) + "*.md" + chr(0) + "All" + chr(0) + "*.*" + chr(0)
                string f = GetFileName("", 0, filt)
'mbox f
                if f <> "" then LoadMD(hRichEdit, f)
            end if

        case WM_SIZE
            if hRichEdit then
                RECT rc : GetClientRect(hwnd, &rc)
                MoveWindow(hRichEdit, 5, 5, rc.right-10, rc.bottom-10, TRUE)
            end if

        case WM_DESTROY
            if hRichLib then FreeLibrary(hRichLib)
            PostQuitMessage 0

        case else
            return DefWindowProc(hwnd, uMsg, wParam, lParam)
    end select
end function

MainWindow 800, 600, WS_OVERLAPPEDWINDOW

#64

OxygenBasic / Re: Long time no news

Last post by Charles Pegge - December 23, 2025, 11:10:05 AM

Hi Nicola,

I like Oxygen too, but I wonder whether AI will soon replace fixed programming languages entirely.

You could split the task into several stages for Gemini to produce more coherent results: produce algorithms then C++ then Oxygen code.

#65

Contentious discussions about anything, the world, politics and health topics. / Scientist Explains: How to Use...

Last post by Charles Pegge - December 23, 2025, 09:33:33 AM

#66

General Discussion / Re: Microsoft to Replace All C...

Last post by Charles Pegge - December 23, 2025, 09:03:44 AM

from the comments:

Seems like a great idea. According to the Security Now podcast, up to 80% of bugs in Windows are due to buffer overflows - which are not caught by default in C-ish code, but are automatically checked and caught in Rust. Theoretically this would reduce the bugs and vulnerabilities by 80% in Windows.

#67

General Discussion / Microsoft to Replace All C/C++...

Last post by Stan Duraham - December 23, 2025, 08:26:57 AM

"My goal is to eliminate every line of C and C++ from Microsoft by 2030," Microsoft Distinguished Engineer Galen Hunt writes in a post on LinkedIn. "Our strategy is to combine AI and Algorithms to rewrite Microsoft's largest codebases. Our North Star is '1 engineer, 1 month, 1 million lines of code.' To accomplish this previously unimaginable task, we've built a powerful code processing infrastructure. Our algorithmic infrastructure creates a scalable graph over source code at scale. Our AI processing infrastructure then enables us to apply AI agents, guided by algorithms, to make code modifications at scale. The core of this infrastructure is already operating at scale on problems such as code understanding."

https://www.thurrott.com/dev/330980/microsoft-to-replace-all-c-c-code-with-rust-by-2030

#68

OxygenBasic / Re: Long time no news

Last post by Theo Gottwald - December 22, 2025, 10:54:04 PM

This was completely predictable, Nicola. 🤖

Forums used to be the go-to places for hard-to-find technical expertise. Now, with AI, you can ask any question, and if one AI doesn't know, you simply try another until you get the answer you need. 💡 You really don't need forums for that anymore. These days, most of our discussions here are just casual conversation. Of course, if there are updates—like programming news from Charles, Josée, or Jürgen—that's different. AI can't provide personal project updates. But aside from that, there's barely any reason left to visit forums. It's pretty clear: AI isn't just replacing tax advisors, lawyers, and more; it's also making all kinds of technical advice obsolete. 🚀🧑�💻

#AICommunity #TechForums #KnowledgeSharing #ProgrammingAI #DigitalTransformation #FutureOfWork #Innovation 🤖💬🚀💻✨🤔

#69

Meta Forum / Just deleted around 2,000 scam...

Last post by Theo Gottwald - December 22, 2025, 10:51:27 PM

Just deleted around 2,000 scammers from the forum! 🚫🔒 Thanks to our current security measures, it's easy to sign up, but don't worry—no one can actually access the forum without my approval. 👀✨ I hope no legitimate users were affected, but removing so many scammers makes it impossible to verify each email. All suspicious accounts are gone! 🧹🛡�

#ForumSecurity #OnlineSafety #ScammerCleanup #CommunityProtection #AccountModeration 🚫🛡�🧹🔒👨�💻✨

#70

OxygenBasic / Re: Long time no news

Last post by Nicola - December 22, 2025, 12:20:44 AM

"Hi Charles,
I wanted to join those who are saying that O2 is truly something exceptional. I feel the same way. Even though I've only tested a few features so far, I am very happy with it. I would be very sorry if the project were ever abandoned.
I noticed some of you have been discussing AI. I tried to write a few programs in O2 with the help of Copilot and Gemini, but they tend to 'invent' functions. They write code that simply doesn't exist in O2. For instance, I tried to perform some image transformations on comics, and even then, they were making up non-existent O2 functions.
I just wanted to say hello to everyone here on the forum.
A big hug to you all!"


Postscript. I had Gemini translate what I wrote above... he got offended, he wrote me that if I send him working examples, he won't make things up anymore :-))