diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-27 15:26:05 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-27 15:26:05 +0000 |
commit | 2c87ea1040f8fc02fcadbf920d02685198a0c216 (patch) | |
tree | fda8cb97a4ebcae55701f30dc2e356f5fd609738 /plugins/SDK/StrUtils.pas | |
parent | 50d173a828e75d2b8bc439c8b65bc8bb1127fe48 (diff) | |
download | usdx-2c87ea1040f8fc02fcadbf920d02685198a0c216.tar.gz usdx-2c87ea1040f8fc02fcadbf920d02685198a0c216.tar.xz usdx-2c87ea1040f8fc02fcadbf920d02685198a0c216.zip |
Artwork/Game/Modis/Tools changed to lower case
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1314 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'plugins/SDK/StrUtils.pas')
-rw-r--r-- | plugins/SDK/StrUtils.pas | 73 |
1 files changed, 73 insertions, 0 deletions
diff --git a/plugins/SDK/StrUtils.pas b/plugins/SDK/StrUtils.pas new file mode 100644 index 00000000..a5735b8f --- /dev/null +++ b/plugins/SDK/StrUtils.pas @@ -0,0 +1,73 @@ +unit StrUtils; + +interface + +{$I switches.inc} + +uses ModiSDK; + +//function StrToAChar(Str: String): AChar; +function CreateStr(Str: PChar): PChar; +procedure FreeStr(Str: PChar); + +implementation + +{function StrToAChar(Str: String): AChar; +var + L, I: Integer; +begin + L := Length(Str); + For I := 0 to L-1 do + AChar[I] := Str[I+1]; + + For I := L to 254 do + AChar[I] := #0; +end; } + +function StrCopy(Dest, Source: PChar): PChar; assembler; +asm + PUSH EDI + PUSH ESI + MOV ESI,EAX + MOV EDI,EDX + MOV ECX,0FFFFFFFFH + XOR AL,AL + REPNE SCASB + NOT ECX + MOV EDI,ESI + MOV ESI,EDX + MOV EDX,ECX + MOV EAX,EDI + SHR ECX,2 + REP MOVSD + MOV ECX,EDX + AND ECX,3 + REP MOVSB + POP ESI + POP EDI +end; + +function StrLen(Str: PChar): Cardinal; assembler; +asm + MOV EDX,EDI + MOV EDI,EAX + MOV ECX,0FFFFFFFFH + XOR AL,AL + REPNE SCASB + MOV EAX,0FFFFFFFEH + SUB EAX,ECX + MOV EDI,EDX +end; + +function CreateStr(Str: PChar): PChar; +begin + GetMem(Result, StrLen(Str) + 1); + StrCopy(Result, Str); +end; + +procedure FreeStr(Str: PChar); +begin + FreeMem(Str); +end; + +end.
\ No newline at end of file |