Normalisierung des absoluten Pfades

Das Makro `_absPath` nimmt zwei Parameter entgegen: `i_root` (ein optionaler Stammverzeichnis-Pfad) und `i_path` (der zu überprüfende Pfad). Zuerst werden alle Pfadtrennzeichen auf '/' normalisiert. Wenn `i_path` leer ist, tut das Makro nichts. Wenn `i_path` nicht absolut ist (nicht mit '/' beginnt oder kein ':/' nach einem potenziellen Laufwerksbuchstaben enthält) und ein `i_root` bereitgestellt wird, erstellt es einen absoluten Pfad durch Verketten von `i_root` und `i_path`. Es stellt außerdem sicher, dass `i_root` nicht mit einem '/' endet.

Datenanalyse

Type : AUCUNE

Das Makro verarbeitet keine Daten aus externen Quellen, von SASHELP oder intern erstellte Daten. Es manipuliert Zeichenketten (Pfade), die als Makroparameter übergeben werden.

1 Codeblock

MACRO _absPath

Erklärung :
Dieser Block definiert das Makro `_absPath`. Es beginnt damit, zu überprüfen, ob der Parameter `i_path` leer ist; wenn ja, wird das Makro beendet. Wenn `i_root` anschließend nicht leer ist, normalisiert es `i_root`, indem es umgekehrte Schrägstriche `\` durch Schrägstriche `/` ersetzt und alle abschließenden Schrägstriche entfernt, um doppelte Schrägstriche bei der Verkettung zu vermeiden. Der Parameter `i_path` wird ebenfalls auf die gleiche Weise normalisiert. Schließlich überprüft das Makro, ob `i_path` bereits ein absoluter Pfad ist (beginnend mit `/` oder `:/`). Wenn dies der Fall ist, gibt es `i_path` unverändert zurück. Andernfalls, wenn `i_root` nicht leer ist, verkettet es `i_root` und `i_path` mit einem Schrägstrich. Wenn `i_root` leer ist und `i_path` nicht absolut ist, gibt es den unveränderten `i_path` zurück.

Kopiert!

1	/**
2	\file
3	\ingroup SASUNIT_UTIL
4
5	\brief check whether &i_path is absolute or empty. If not, append to &i_root.
6
7	\version \$Revision$
8	\author \$Author$
9	\date \$Date$
10
11	\sa For further information please refer to https://github.com/HMS-Analytical-Software/SASUnit/wiki/User%27s%20Guide/
12	Here you can find the SASUnit documentation, release notes and license information.
13	\sa \$HeadURL$
14	\copyright Copyright 2010-2023 HMS Analytical Software GmbH, http://www.analytical-software.de
15	This file is part of SASUnit, the Unit testing framework for SAS(R) programs.
16	For copyright information and terms of usage under the GNU Lesser General Public License see included file README.md
17	or https://github.com/HMS-Analytical-Software/SASUnit/wiki/readme/.
18
19	\param i_root optional: root path
20	\param i_path path to be checked
21
22	eturn modified path
23	/ /* \cond */
24	%MACRO _absPath (i_root
25	,i_path
26	);
27
28	%IF "&i_path" EQ "" %THEN %RETURN;
29
30	%IF %LENGTH(&i_root) %THEN %DO;
31	%LET i_root = %qsysfunc(translate(&i_root,/,\));
32	%IF "%substr(&i_root,%length(&i_root),1)" = "/" %THEN
33	%LET i_root=%substr(&i_root,1,%eval(%LENGTH(&i_root)-1));
34	%END;
35
36	%LET i_path = %qsysfunc(translate(&i_path,/,\));
37	%IF "%substr(&i_path,1,1)" = "/" OR "%substr(&i_path,2,2)" = ":/" %THEN &i_path;
38	%ELSE %IF %LENGTH(&i_root) %THEN &i_root/&i_path;
39	%ELSE &i_path;
40
41	%MEND _absPath;
42	/** \endcond */

Dieses Material wird von We Are Cas "wie besehen" zur Verfügung gestellt. Es gibt keine ausdrücklichen oder stillschweigenden Garantien hinsichtlich der Marktgängigkeit oder Eignung für einen bestimmten Zweck in Bezug auf die hierin enthaltenen Materialien oder Codes. We Are Cas ist nicht verantwortlich für Fehler in diesem Material, wie es jetzt existiert oder existieren wird, noch bietet We Are Cas technischen Support dafür an.

Retour à la liste