55d58702b4487b0cf2d85de10921d0b42b877dab
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 {$IFDEF WINDOWS}
38 begin
41 else
44 {$ELSE}
45 {$IFDEF GO32V2}
47 begin
48 {$WARNING setenv stub!}
51 {$ELSE}
52 {$LINKLIB c}
54 function setenv(const VarStr: PChar; const VarVal: PChar; Repl: cint): cint; cdecl; external clib name 'setenv';
55 {$ENDIF}
56 {$ENDIF}
59 begin
63 (* Get system username already in cp1251 *)
66 begin
67 {$IF DEFINED(WINDOWS)}
69 {$ELSEIF DEFINED(UNIX)}
71 {$ELSE}
73 {$ENDIF}
74 (* invalidate username with non-cp1251 symbols *)
77 begin
81 end