1 (* Copyright (C) Doom 2D: Forever Developers
2 *
3 * This program is free software: you can redistribute it and/or modify
4 * it under the terms of the GNU General Public License as published by
5 * the Free Software Foundation, either version 3 of the License, or
6 * (at your option) any later version.
7 *
8 * This program is distributed in the hope that it will be useful,
9 * but WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 * GNU General Public License for more details.
12 *
13 * You should have received a copy of the GNU General Public License
14 * along with this program. If not, see <http://www.gnu.org/licenses/>.
15 *)
16 {$INCLUDE a_modes.inc}
17 {.$MODE OBJFPC}
20 interface
27 implementation
29 uses
30 {$IFDEF WINDOWS}
31 Windows,
32 {$ENDIF}
33 utils;
36 {$IF DEFINED(WINDOWS)}
38 begin
41 else
44 {$ELSEIF DEFINED(GO32V2)}
45 {$LINKLIB c}
47 {$ELSE}
48 {$LINKLIB c}
49 function setenv(const VarStr: PChar; const VarVal: PChar; Repl: cint): cint; cdecl; external 'c' name 'setenv';
50 {$ENDIF}
53 begin
57 (* Get system username already in cp1251 *)
60 begin
61 {$IF DEFINED(WINDOWS)}
63 {$ELSEIF DEFINED(UNIX)}
65 {$ELSE}
67 {$ENDIF}
68 (* invalidate username with non-cp1251 symbols *)
71 begin
75 end