Diff of /IoDrvSysfsGPIO/Functions/SysfsGPIOExportAll/svnobj [000000] .. [r2]  Maximize  Restore

Switch to side-by-side view

--- a
+++ b/IoDrvSysfsGPIO/Functions/SysfsGPIOExportAll/svnobj
@@ -0,0 +1,5 @@
+Gx_l!0…jüoX}…&º‘üˆjSystem.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument	L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}
+TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id
longTagTextÄhDir := SysDir.SysDirOpen(pszSysFsDirname^, szDirEntry, diMaxDirEntry, ADR(DirInfo), ADR(Result));bIF hDir <> RTS_INVALID_HANDLE AND Result = 0 THEN	.	diMaxDirEntry := 255; ˜	Result := SysDir.SysDirRead(hDir, szDirEntry, diMaxDirEntry, ADR(DirInfo));(	WHILE Result = 0 DO€		IF Find(szDirEntry, Constants.gc_szSysfs_GPIO_ChipNr) = 1 THEN						szPathGpioChipNr := CONCAT(CONCAT(pszSysFsDirname^, szDirEntry),'/');€			szLabel := ReadFileString(CONCAT(szPathGpioChipNr, 'label'));|			szBase := ReadFileString(CONCAT(szPathGpioChipNr, 'base'));L			iGPIOBase := STRING_TO_INT(szBase);€			szNGPIO := ReadFileString(CONCAT(szPathGpioChipNr, 'ngpio'));J			iGPIONr := STRING_TO_INT(szNGPIO);h			// now export all GPIOs from this chip if enabled j			FOR i := iGPIOBase TO (iGPIOBase + iGPIONr) - 1 DO!Š				WriteFileString(TO_STRING(i), CONCAT(pszSysFsDirname^,'export'));"			END_FOR#		ELSE$			; //??%		END_IF&		'0		diMaxDirEntry := 255; (š		Result := SysDir.SysDirRead(hDir, szDirEntry, diMaxDirEntry, ADR(DirInfo));)	END_WHILE*0	// done, now close hDir+4	SysDir.SysDirClose(hDir);,8	hDir := RTS_INVALID_HANDLE;-END_IF.Interface/L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}0DFUNCTION SysfsGPIOExportAll : BOOL1VAR_INPUT2J	pszSysFsDirname : POINTER TO STRING;3END_VAR4VAR5	i : INT;62	szDirEntry: STRING(255);76	diMaxDirEntry: INT := 255;80	Result: RTS_IEC_RESULT;94	DirInfo : SysDir.DirInfo;:,	hDir: RTS_IEC_HANDLE;;*	iGpioNr : INT := -1;<*	szBase: STRING(255);=,	szNGPIO: STRING(255);>>	szPathGpioChipNr: STRING(255);?,	szLabel: STRING(255);@ 	iGPIOBase: INT;A"UniqueIdGeneratorB78CPOULevelDL{8e575c5b-1d37-49c6-941b-5c0ec7874787}EStandardF ChildObjectGuidsG8System.Collections.ArrayListH,AddAttributeSubsequentIboolÐÐ-ÐÐ	E
+%ÐÐ
­ÚÐ-ÐÐ
­	ÚÐ-ÐÐ
­
+ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­
ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ ÚÐ-ÐÐ
­!ÚÐ-ÐÐ
­"ÚÐ- ÐÐ
­$ÚÐ-!ÐÐ
­%ÚÐ-"ÐÐ
­&ÚÐ-ÐÐ
­(ÚÐ-#ÐÐ
­)ÚÐ-$ÐÐ
­*ÚÐ-%ÐÐ
­+ÚÐ-&ÐÐ
­,ÚÐ-'ÐÐ
­-ÚÐ-(ÐÐ
­.ÚÐ-&ÐÐ
­/ÚÐ-)ÐÐ
­0ÚÐ-ÐÐ
­1ÚÐ-*ÐÐ
­2ÚÐ-+ÐÐ
­3ÚÐ-,ÐÐ
­4ÚÐ-ÐÐ
­5ÚÐ--ÐÐ
­ÚÐ-Ð./Ð	E
+ÐÐ
­ÚÐ-0ÐÐ
­ÚÐ-1ÐÐ
­MÚÐ-2ÐÐ
­ÚÐ-3ÐÐ
­ÚÐ-4ÐÐ
­7ÚÐ-5ÐÐ
­;ÚÐ-6ÐÐ
­<ÚÐ-7ÐÐ
­=ÚÐ-8ÐÐ
­>ÚÐ-9ÐÐ
­?ÚÐ-:ÐÐ
­@ÚÐ-ÐÐ
­AÚÐ-;ÐÐ
­DÚÐ-<ÐÐ
­JÚÐ-=ÐÐ
­KÚÐ->ÐÐ
­LÚÐ-?ÐÐ
­6ÚÐ-@ÐÐ
­ÚÐ-3ÐÐ
­ÚÐ-ÐA-BÐCD-EFGÐHI­
\ No newline at end of file