summaryrefslogtreecommitdiff
path: root/tnslc/read_file_test.tnsl
blob: cd8299bfb1479cdd39773e8b77e2362b53eb107a (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
34
35
36
37
38
39
40
41
42
43
44
:include "c_wrap.tnsl"
:include "utils.tnsl"

{}uint8 usage_msg = "Usage: read_file.exe [file to read] [file to write]\n\0"
{}uint8 ok_msg = "Ok!\n\0"
{}uint8 print_one = "\0\0"
{}uint8 nl = "\n\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"

    /; if (argc < 2)
        _printf(~usage_msg{0})
        return 1
    ;; else
        _printf(~ok_msg{0})
    ;/

    _printf(argv{1})
    _printf(~nl{0})

    ~void write_handle = _create_file(argv{1})

    _print_num(~_dec{0}, write_handle)

    int ln = cstr_len(argv{1})
    
    /; loop (int i = 0; i < ln) [i++]
        _write_byte(write_handle, ~argv{1}{i})
    ;/

    _close_file(write_handle)

    return 0
;/