@shd101wyy/yo 0.1.25 → 0.1.27

package/std/libc/time.yo

@@ -1,16 +1,13 @@
 //! C11 `<time.h>` — date and time functions.
-
-c_include "<time.h>",
+c_include(
+  "<time.h>",
   // Types
   time_t : Type,
   clock_t : Type,
-  
   // Structure for broken-down time
   tm : Type,
-  
   // C11 timespec structure
   timespec : Type,
-
   // Time manipulation functions
   clock :
     fn() -> clock_t,
@@ -20,7 +17,6 @@ c_include "<time.h>",
     fn(time1 : time_t, time0 : time_t) -> f64,
   mktime :
     fn(timeptr : *(tm)) -> time_t,
-
   // Time conversion functions
   asctime :
     fn(timeptr : *(tm)) -> *(char),
@@ -32,7 +28,6 @@ c_include "<time.h>",
     fn(timer : *(time_t)) -> ?*(tm),
   strftime :
     fn(s : *(char), maxsize : usize, format : *(char), timeptr : *(tm)) -> usize,
-
   // C11 Annex K - Safe time functions
   asctime_s :
     fn(s : *(char), maxsize : usize, timeptr : *(tm)) -> int,
@@ -42,51 +37,42 @@ c_include "<time.h>",
     fn(timer : *(time_t), result : *(tm)) -> ?*(tm),
   localtime_s :
     fn(timer : *(time_t), result : *(tm)) -> ?*(tm),
-
   // C11 - Additional time functions
   timespec_get :
     fn(ts : *(timespec), base : int) -> int,
-
   // Constants
   CLOCKS_PER_SEC : clock_t,
-  
   // C11 timespec_get base values
   TIME_UTC : int,
-
   // Additional useful constants (implementation-defined)
   CLK_TCK : clock_t
-;
-
+);
 // Export all time functionality
-export 
+export(
   // Types
   time_t,
   clock_t,
   tm,
   timespec,
-
   // Time manipulation
   clock,
   time,
   difftime,
   mktime,
-
   // Time conversion
   asctime,
   ctime,
   gmtime,
   localtime,
   strftime,
-
   // C11 safe functions
   asctime_s,
   ctime_s,
   gmtime_s,
   localtime_s,
   timespec_get,
-
   // Constants
   CLOCKS_PER_SEC,
   TIME_UTC,
   CLK_TCK
-;
+);

package/std/libc/unistd.yo

@@ -1,6 +1,6 @@
 //! POSIX `<unistd.h>` — standard symbolic constants and types.
-
-c_include "<unistd.h>",
+c_include(
+  "<unistd.h>",
   // Types
   // usize : Type,
   ssize_t : Type,
@@ -8,7 +8,6 @@ c_include "<unistd.h>",
   pid_t : Type,
   uid_t : Type,
   gid_t : Type,
-
   // File descriptor operations
   read :
     (fn(fd : int, buf : *(void), count : usize) -> ssize_t),
@@ -24,12 +23,10 @@ c_include "<unistd.h>",
     (fn(oldfd : int) -> int),
   dup2 :
     (fn(oldfd : int, newfd : int) -> int),
-
   // Standard file descriptors
   STDIN_FILENO : int,
   STDOUT_FILENO : int,
   STDERR_FILENO : int,
-
   // File access
   access :
     (fn(pathname : *(char), mode : int) -> int),
@@ -41,7 +38,6 @@ c_include "<unistd.h>",
     (fn(path : *(char)) -> int),
   getcwd :
     (fn(buf : *(char), size : usize) -> ?*(char)),
-
   // Process control
   fork :
     (fn() -> pid_t),
@@ -53,7 +49,6 @@ c_include "<unistd.h>",
     (fn() -> pid_t),
   getppid :
     (fn() -> pid_t),
-
   // User/Group IDs
   getuid :
     (fn() -> uid_t),
@@ -63,29 +58,25 @@ c_include "<unistd.h>",
     (fn() -> gid_t),
   getegid :
     (fn() -> gid_t),
-
   // Sleep
   sleep :
     (fn(seconds : u32) -> u32),
   usleep :
     (fn(usec : u32) -> int),
-
   // File access modes for access()
   R_OK : int,
   W_OK : int,
   X_OK : int,
   F_OK : int
-;
-
+);
 // Export all unistd functionality
-export
+export(
   // Types
   ssize_t,
   off_t,
   pid_t,
   uid_t,
   gid_t,
-
   // File descriptor operations
   read,
   write,
@@ -94,39 +85,33 @@ export
   pipe,
   dup,
   dup2,
-
   // Standard file descriptors
   STDIN_FILENO,
   STDOUT_FILENO,
   STDERR_FILENO,
-
   // File access
   access,
   unlink,
   rmdir,
   chdir,
   getcwd,
-
   // Process control
   fork,
   execve,
   _exit,
   getpid,
   getppid,
-
   // User/Group IDs
   getuid,
   geteuid,
   getgid,
   getegid,
-
   // Sleep
   sleep,
   usleep,
-
   // File access modes
   R_OK,
   W_OK,
   X_OK,
   F_OK
-;
+);

package/std/libc/wctype.yo

@@ -1,8 +1,7 @@
 //! C11 `<wctype.h>` — wide character classification and conversion functions.
-
-{ wint_t } :: import "./stdint";
-
-c_include "<wctype.h>",
+{ wint_t } :: import("./stdint");
+c_include(
+  "<wctype.h>",
   // Wide character classification functions
   iswalnum :
     fn(wc : wint_t) -> int,
@@ -28,15 +27,13 @@ c_include "<wctype.h>",
     fn(wc : wint_t) -> int,
   iswxdigit :
     fn(wc : wint_t) -> int,
-
   // Wide character conversion functions
   towlower :
     fn(wc : wint_t) -> wint_t,
   towupper :
     fn(wc : wint_t) -> wint_t
-;
-
-export
+);
+export(
   iswalnum,
   iswalpha,
   iswblank,
@@ -51,4 +48,4 @@ export
   iswxdigit,
   towlower,
   towupper
-;
+);

package/std/libc/windows.yo

@@ -1,46 +1,42 @@
 //! Windows-specific C API bindings.
 //! Only available when compiling for Windows.
-
 // Windows type aliases (using Yo types that match the C types)
-DWORD :: ulong;    // unsigned long on Windows
-WCHAR :: ushort;   // unsigned short (UTF-16 code unit)
-BOOL :: int;       // int
-
-export DWORD;
-export WCHAR;
-export BOOL;
-
-c_include "<windows.h>",
+DWORD :: ulong; // unsigned long on Windows
+WCHAR :: ushort; // unsigned short (UTF-16 code unit)
+BOOL :: int; // int
+export(DWORD);
+export(WCHAR);
+export(BOOL);
+c_include(
+  "<windows.h>",
   // GetCurrentDirectoryW - Gets the current directory (Unicode version)
   // Returns the length of the string copied to the buffer (excluding null terminator)
   // If the buffer is too small, returns the required size (including null terminator)
   GetCurrentDirectoryW : (fn(nBufferLength : DWORD, lpBuffer : ?*(WCHAR)) -> DWORD),
-
   // SetCurrentDirectoryA - Sets the current directory (ANSI version)
   // Returns nonzero if successful, zero on failure
   SetCurrentDirectoryA : (fn(lpPathName : *(char)) -> BOOL),
-
   // WideCharToMultiByte - Converts UTF-16 to UTF-8
-  WideCharToMultiByte : (fn(
-    CodePage : u32,
-    dwFlags : DWORD,
-    lpWideCharStr : ?*(WCHAR),
-    cchWideChar : i32,
-    lpMultiByteStr : ?*(u8),
-    cbMultiByte : i32,
-    lpDefaultChar : ?*(u8),
-    lpUsedDefaultChar : ?*(i32)
-  ) -> i32),
-  
+  WideCharToMultiByte : (
+    fn(
+      CodePage : u32,
+      dwFlags : DWORD,
+      lpWideCharStr : ?*(WCHAR),
+      cchWideChar : i32,
+      lpMultiByteStr : ?*(u8),
+      cbMultiByte : i32,
+      lpDefaultChar : ?*(u8),
+      lpUsedDefaultChar : ?*(i32)
+    ) -> i32
+  ),
   // _putenv_s - Sets environment variable (Windows-specific)
   // Returns 0 on success, non-zero on error
   _putenv_s : (fn(varname : *(char), value_string : *(char)) -> int),
-
   // Code page constants
   CP_UTF8 : u32
-;
-export GetCurrentDirectoryW;
-export SetCurrentDirectoryA;
-export WideCharToMultiByte;
-export _putenv_s;
-export CP_UTF8;
+);
+export(GetCurrentDirectoryW);
+export(SetCurrentDirectoryA);
+export(WideCharToMultiByte);
+export(_putenv_s);
+export(CP_UTF8);

package/std/log.yo

@@ -1,71 +1,61 @@
 //! Structured logging with configurable level and output destination.
-
-open import "./string";
-{ ToString } :: import "./fmt";
-{ fwrite, stdout, stderr, FILE } :: import "./libc/stdio";
-
+open(import("./string"));
+{ ToString } :: import("./fmt");
+{ fwrite, stdout, stderr, FILE } :: import("./libc/stdio");
 /// Log severity level.
 Level :: enum(Trace, Debug, Info, Warn, Error);
-
-impl(Level, ToString(
-  to_string : (fn(self: *(Self)) -> String)(
-    match(self.*,
-      .Trace => String.from("TRACE"),
-      .Debug => String.from("DEBUG"),
-      .Info  => String.from("INFO "),
-      .Warn  => String.from("WARN "),
-      .Error => String.from("ERROR")
+impl(
+  Level,
+  ToString(
+    to_string : (fn(self : *(Self)) -> String)(
+      match(
+        self.*,
+        .Trace => String.from("TRACE"),
+        .Debug => String.from("DEBUG"),
+        .Info => String.from("INFO "),
+        .Warn => String.from("WARN "),
+        .Error => String.from("ERROR")
+      )
     )
   )
-));
-
-export Level;
-
+);
+export(Level);
 /// Where log messages are written.
 LogOutput :: enum(
   Stderr,
   Stdout
 );
-
-export LogOutput;
-
+export(LogOutput);
 // ============================================================================
 // Global logger state (module-level mutable)
 // ============================================================================
-
-_global_level  := Level.Info;
+_global_level := Level.Info;
 _global_output := LogOutput.Stderr;
-
 // ============================================================================
 // Configuration
 // ============================================================================
-
-set_level :: (fn(level: Level) -> unit)({
+set_level :: (fn(level : Level) -> unit)({
   _global_level = level;
 });
-
-set_output :: (fn(output: LogOutput) -> unit)({
+set_output :: (fn(output : LogOutput) -> unit)({
   _global_output = output;
 });
-
-export set_level, set_output;
-
+export(set_level, set_output);
 // ============================================================================
 // Core log function
 // ============================================================================
-
-_level_value :: (fn(l: Level) -> i32)(
-  match(l,
+_level_value :: (fn(l : Level) -> i32)(
+  match(
+    l,
     .Trace => i32(0),
     .Debug => i32(1),
-    .Info  => i32(2),
-    .Warn  => i32(3),
+    .Info => i32(2),
+    .Warn => i32(3),
     .Error => i32(4)
   )
 );
-
 // Write all bytes from a String to the file handle.
-_write_string :: (fn(s: String, dest: *(FILE)) -> unit)({
+_write_string :: (fn(s : String, dest : *(FILE)) -> unit)({
   bytes := s.as_bytes();
   cond(
     (bytes.len() > usize(0)) => {
@@ -75,19 +65,19 @@ _write_string :: (fn(s: String, dest: *(FILE)) -> unit)({
     true => ()
   );
 });
-
-log :: (fn(level: Level, msg: String) -> unit)({
+log :: (fn(level : Level, msg : String) -> unit)({
   cond(
-    (_level_value(level) < _level_value(_global_level)) => { return (); },
+    (_level_value(level) < _level_value(_global_level)) => {
+      return(());
+    },
     true => ()
   );
   level_str := level.to_string();
-
-  dest := match(_global_output,
+  dest := match(
+    _global_output,
     .Stdout => stdout,
     .Stderr => stderr
   );
-
   // Write "[LEVEL] msg\n"
   fwrite(*(void)(*(u8)("[")), usize(1), usize(1), dest);
   _write_string(level_str, dest);
@@ -95,17 +85,13 @@ log :: (fn(level: Level, msg: String) -> unit)({
   _write_string(msg, dest);
   fwrite(*(void)(*(u8)("\n")), usize(1), usize(1), dest);
 });
-
-export log;
-
+export(log);
 // ============================================================================
 // Convenience functions
 // ============================================================================
-
-trace :: (fn(msg: String) -> unit)( log(.Trace, msg) );
-debug :: (fn(msg: String) -> unit)( log(.Debug, msg) );
-info  :: (fn(msg: String) -> unit)( log(.Info,  msg) );
-warn  :: (fn(msg: String) -> unit)( log(.Warn,  msg) );
-error :: (fn(msg: String) -> unit)( log(.Error, msg) );
-
-export trace, debug, info, warn, error;
+trace :: (fn(msg : String) -> unit)(log(.Trace, msg));
+debug :: (fn(msg : String) -> unit)(log(.Debug, msg));
+info :: (fn(msg : String) -> unit)(log(.Info, msg));
+warn :: (fn(msg : String) -> unit)(log(.Warn, msg));
+error :: (fn(msg : String) -> unit)(log(.Error, msg));
+export(trace, debug, info, warn, error);