File: test.odin

package info (click to toggle)
kf6-syntax-highlighting 6.13.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 47,568 kB
  • sloc: xml: 197,750; cpp: 12,850; python: 3,023; sh: 955; perl: 546; ruby: 488; pascal: 393; javascript: 161; php: 150; jsp: 132; lisp: 131; haskell: 124; ada: 119; ansic: 107; makefile: 96; f90: 94; ml: 85; cobol: 81; yacc: 71; csh: 62; erlang: 54; sql: 51; java: 47; objc: 37; awk: 31; asm: 30; tcl: 29; fortran: 18; cs: 10
file content (122 lines) | stat: -rw-r--r-- 2,262 bytes parent folder | download
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
// This is from Odin examples:
// https://github.com/odin-lang/examples/blob/master/by_example/dir_info/main.odin

package main

import "core:fmt"
import "core:os"
import "core:path/filepath"
import "core:strings"

/**
 * This is
 * a multiline
 * comment
 */

packedDirective :: struct #packed {
	x: u8,
	y: i32,
	z: u16,
	w: u8,
}

Foo :: enum {
	A,
	B,
	C,
	D,
}

@private
_SS_MAXSIZE   :: 128

@require_results
some_proc::proc "contextless"() -> i32{
    return 0
}

@(private = "file")
print_file_info :: proc(fi: os.File_Info) {
    context.user_index = 100
    flt := 12.33
    flt_e := 1e9
	bin_ok := 0b110001
	bin_wrong := 0b1122001010123123
	oct := 0o1237
	oct_wrong := 0o1239999
	hex := 0xFF123AC
	hex_wrong := 0xFF123ACHH

	// Split the path into directory and filename
	_, filename := filepath.split(fi.fullpath)

	SIZE_WIDTH :: 12
	buf: [SIZE_WIDTH]u8

	raw_str := `this_is raw ;';@@""\\\' string`
	// Print size to string backed by buf on stack, no need to free
	_size := "-" if fi.is_dir else fmt.bprintf(buf[:], "%v", fi.size)

	a: u8 = cast(u8)'"'
	b: u8 = '"'

	// Right-justify size for display, heap allocated
	size := strings.right_justify(_size, SIZE_WIDTH, " ")
	defer delete(size)

	val: i32 = 1
	switch (val) {
	case 1:
		val = 2
	case 2:
		val = 3
	case:
		val = 0
	}

	// This should not turn anything below into string colors
	triggerCharacter := "\""

	if fi.is_dir {
		fmt.printf ("%v [%v]\n word", size, filename)
	} else {
		fmt.printf("%v %v\n", size, filename)
	}
}

main :: proc() {
	cwd := os.get_current_directory()
	fmt.println("Current working directory:", cwd)

	f, err := os.open(cwd)
	defer os.close(f)

	if err != os.ERROR_NONE {
		// Print error to stderr and exit with errorcode
		fmt.eprintln("Could not open directory for reading", err)
		os.exit(1)
	}

	fis: []os.File_Info
	defer os.file_info_slice_delete(fis) // fis is a slice, we need to remember to free it

	fis, err = os.read_dir(f, -1) // -1 reads all file infos
	if err != os.ERROR_NONE {
		fmt.eprintln("Could not read directory", err)
		os.exit(2)
	}

	for fi in fis {
		print_file_info(fi)
	}

	enumTest := Foo.A
	#partial switch enumTest {
	case .A:
		fmt.println("A letter\n nextline \xfe \u200B \000 \U0001f4ae")
	case .D:
		fmt.println("D")
	}
}