summaryrefslogtreecommitdiff
path: root/tnslc/hello.tnsl
blob: 07425640abe3760aad17fe75858790fb1ff9a3e4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
:include "c_wrap.tnsl"

{}uint8 star = "hello.tnsl\0"
{}uint8 space = " \0"
{}uint8 new_line = "\n\0"

/; print_triangle (int argc)
    /; loop (int i = 0; i < argc) [i++]
        /; loop (int j = 0; j < argc - i) [j++]
            _printf(~space{0})
        ;/
        /; loop (int j = 0; j < 1 + 2*i) [j++]
            _printf(~star{0})
        ;/
        _printf(~new_line{0})
    ;/
;/

/; main (int argc, ~~uint8 argv) [int]
    # On windows, the first two arguments are passed in RCX and RDX, so we need to
    # update their positions here or else tnsl will have garbage values in r8 and r9
    asm "mov r8, rcx"
    asm "mov r9, rdx"
    
    # If on linux, you would use rdi and rsi instead of rcx and rdx, respectively
    # simply comment out the bove asm, and uncomment the below lines
    # asm "mov r8, rdi"
    # asm "mov r9, rsi"
    
    print_triangle(argc)
    
    return 0
;/