Subversion Repositories Kolibri OS

Rev

Rev 8097 | Rev 9646 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8097 Rev 8859
Line 1... Line 1...
1 
(*
 1 
(*
2 
    BSD 2-Clause License
 2 
    BSD 2-Clause License
Line 3... Line 3...
3 
 
 3 
 
4 
    Copyright (c) 2018-2020, Anton Krotov
 4 
    Copyright (c) 2018-2021, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 7... Line 7...
7 
 
 7 
 
Line 8... Line 8...
8 
MODULE HOST;
 8 
MODULE HOST;
Line 9... Line 9...
9 
 
 9 
 
10 
IMPORT SYSTEM, K := KOSAPI, API, RTL;
 10 
IMPORT SYSTEM, K := KOSAPI, API;
Line 11... Line 11...
11 
 
 11 
 
12 
 
 12 
 
13 
CONST
 13 
CONST
Line 14... Line 14...
14 
 
 14 
 
Line 15... Line 15...
15 
    slash* = "/";
 15 
    slash* = "/";
Line 398... Line 398...
398 
PROCEDURE GetCurrentDirectory* (VAR path: ARRAY OF CHAR);
 398 
PROCEDURE GetCurrentDirectory* (VAR path: ARRAY OF CHAR);
399 
VAR
 399 
VAR
400 
    n: INTEGER;
 400 
    n: INTEGER;
Line 401... Line 401...
401 
 
 401 
 
402 
BEGIN
 - 
 
403 
    GetArg(0, path);
 402 
BEGIN
404 
    n := LENGTH(path) - 1;
 403 
    n := K.sysfunc4(30, 2, SYSTEM.ADR(path[0]), LEN(path) - 2);
405 
    WHILE path[n] # slash DO
 - 
 
406 
        DEC(n)
 - 
 
407 
    END;
 404 
    path[n - 1] := slash;
408 
    path[n + 1] := 0X
 405 
    path[n] := 0X
Line 409... Line 406...
409 
END GetCurrentDirectory;
 406 
END GetCurrentDirectory;
410 
 
 407