🎨 style(syntax): normalize naming conventions
Align all TSL syntax documentation examples with docs/tsl/naming.md: - Classes/types: PascalCase, drop Hungarian prefix (THuman→Human) - Parameters/locals: snake_case with meaningful names (isLeft→is_left, maxb→max_b) - Private members: snake_case_ with trailing underscore (real_part_, imaginary_part_) - Public members: PascalCase (value→Value) - Top-level functions: PascalCase (test→Test) - Module constants: kPascalCase (kernel_dll→kKernelDll) Affected: 01-24 syntax docs (23 files) Verified: 150+ code blocks locally tested, output unchanged Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
@@ -113,10 +113,10 @@ function TickCdecl(): int64; cdecl; external "kernel32.dll" name "GetTickCount64
|
||||
代码块身份:可直接照写示例
|
||||
|
||||
```tsl
|
||||
t1 := Tick64();
|
||||
tick_before := Tick64();
|
||||
SleepMs(20);
|
||||
t2 := Tick64();
|
||||
writeLn(t2 >= t1);
|
||||
tick_after := Tick64();
|
||||
writeLn(tick_after >= tick_before);
|
||||
|
||||
function Tick64(): int64; stdcall; external "kernel32.dll" name "GetTickCount64";
|
||||
procedure SleepMs(ms: integer); stdcall; external "kernel32.dll" name "Sleep";
|
||||
@@ -132,15 +132,15 @@ procedure SleepMs(ms: integer); stdcall; external "kernel32.dll" name "Sleep";
|
||||
代码块身份:可直接照写示例
|
||||
|
||||
```tsl
|
||||
h := LoadLibraryA("kernel32.dll");
|
||||
fp := GetProcAddress(h, "GetTickCount64");
|
||||
f := function(): int64; stdcall; external fp;
|
||||
writeLn(h <> nil);
|
||||
writeLn(fp <> nil);
|
||||
writeLn(##f() > 0);
|
||||
module_handle := LoadLibraryA("kernel32.dll");
|
||||
func_ptr := GetProcAddress(module_handle, "GetTickCount64");
|
||||
wrapped_func := function(): int64; stdcall; external func_ptr;
|
||||
writeLn(module_handle <> nil);
|
||||
writeLn(func_ptr <> nil);
|
||||
writeLn(##wrapped_func() > 0);
|
||||
|
||||
function LoadLibraryA(s: string): pointer; stdcall; external "kernel32.dll" name "LoadLibraryA";
|
||||
function GetProcAddress(hModule: pointer; lpProcName: string): pointer; stdcall; external "kernel32.dll" name "GetProcAddress";
|
||||
function LoadLibraryA(lib_name: string): pointer; stdcall; external "kernel32.dll" name "LoadLibraryA";
|
||||
function GetProcAddress(module_handle: pointer; proc_name: string): pointer; stdcall; external "kernel32.dll" name "GetProcAddress";
|
||||
```
|
||||
|
||||
结果说明:
|
||||
@@ -155,17 +155,17 @@ function GetProcAddress(hModule: pointer; lpProcName: string): pointer; stdcall;
|
||||
代码块身份:可直接照写示例
|
||||
|
||||
```tsl
|
||||
d := new Demo();
|
||||
writeLn(d.Run());
|
||||
demo := new Demo();
|
||||
writeLn(demo.Run());
|
||||
|
||||
type Demo = class
|
||||
public
|
||||
const kernel_dll = "kernel32.dll";
|
||||
const kKernelDll = "kernel32.dll";
|
||||
function Run();
|
||||
begin
|
||||
return TickConst() > 0;
|
||||
end;
|
||||
function TickConst(): int64; stdcall; external kernel_dll name "GetTickCount64";
|
||||
function TickConst(): int64; stdcall; external kKernelDll name "GetTickCount64";
|
||||
end;
|
||||
```
|
||||
|
||||
@@ -189,10 +189,10 @@ function TickFromExpr(): int64; stdcall; external "kernel32"$"."$"dll" name "Get
|
||||
代码块身份:可直接照写示例
|
||||
|
||||
```tsl
|
||||
fp := makeInstance(thisFunction(Add), "cdecl", 0);
|
||||
f := function(a: integer; b: integer): integer; external fp;
|
||||
writeLn(fp <> nil);
|
||||
writeLn(##f(3, 4));
|
||||
func_ptr := makeInstance(thisFunction(Add), "cdecl", 0);
|
||||
wrapped_func := function(a: integer; b: integer): integer; external func_ptr;
|
||||
writeLn(func_ptr <> nil);
|
||||
writeLn(##wrapped_func(3, 4));
|
||||
|
||||
function Add(a: integer; b: integer): integer;
|
||||
begin
|
||||
@@ -212,19 +212,19 @@ end;
|
||||
|
||||
```tsl
|
||||
setGlobalCache("THREAD_TEST_KEY", 0);
|
||||
fp := makeInstance(thisFunction(Worker), "cdecl", 1);
|
||||
h := CreateThread(nil, nil, fp, nil, 0, tid);
|
||||
writeLn(fp <> nil);
|
||||
writeLn(h <> nil);
|
||||
writeLn(WaitForSingleObject(h, 5000) >= 0);
|
||||
getGlobalCache("THREAD_TEST_KEY", v);
|
||||
writeLn(v);
|
||||
CloseHandle(h);
|
||||
worker_ptr := makeInstance(thisFunction(Worker), "cdecl", 1);
|
||||
thread_handle := CreateThread(nil, nil, worker_ptr, nil, 0, thread_id);
|
||||
writeLn(worker_ptr <> nil);
|
||||
writeLn(thread_handle <> nil);
|
||||
writeLn(WaitForSingleObject(thread_handle, 5000) >= 0);
|
||||
getGlobalCache("THREAD_TEST_KEY", result_value);
|
||||
writeLn(result_value);
|
||||
CloseHandle(thread_handle);
|
||||
|
||||
function CreateThread(attr: pointer; size: pointer; addr: pointer; p: pointer; flag: Integer; var thread_id: Integer): pointer; stdcall; external "kernel32.dll" name "CreateThread";
|
||||
function WaitForSingleObject(h: pointer; timeout: Integer): Integer; stdcall; external "kernel32.dll" name "WaitForSingleObject";
|
||||
function CloseHandle(h: pointer): Integer; stdcall; external "kernel32.dll" name "CloseHandle";
|
||||
function Worker(p: pointer): integer;
|
||||
function WaitForSingleObject(handle: pointer; timeout: Integer): Integer; stdcall; external "kernel32.dll" name "WaitForSingleObject";
|
||||
function CloseHandle(handle: pointer): Integer; stdcall; external "kernel32.dll" name "CloseHandle";
|
||||
function Worker(param: pointer): integer;
|
||||
begin
|
||||
setGlobalCache("THREAD_TEST_KEY", 1);
|
||||
return 1;
|
||||
|
||||
Reference in New Issue
Block a user