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

Switch to unified view

a b/IoDrvSysfsGPIO/Functions/SysfsGPIOExportAll/svnobj
1
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}
2
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
3
%ÐÐ
­ÚÐ-ÐÐ
­   ÚÐ-ÐÐ
­
4
ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­
ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ ÚÐ-ÐÐ
­!ÚÐ-ÐÐ
­"ÚÐ- ÐÐ
­$ÚÐ-!ÐÐ
­%ÚÐ-"ÐÐ
­&ÚÐ-ÐÐ
­(ÚÐ-#ÐÐ
­)ÚÐ-$ÐÐ
­*ÚÐ-%ÐÐ
­+ÚÐ-&ÐÐ
­,ÚÐ-'ÐÐ
­-ÚÐ-(ÐÐ
­.ÚÐ-&ÐÐ
­/ÚÐ-)ÐÐ
­0ÚÐ-ÐÐ
­1ÚÐ-*ÐÐ
­2ÚÐ-+ÐÐ
­3ÚÐ-,ÐÐ
­4ÚÐ-ÐÐ
­5ÚÐ--ÐÐ
­ÚÐ-Ð./Ð E
5
ÐÐ
­ÚÐ-0ÐÐ
­ÚÐ-1ÐÐ
­MÚÐ-2ÐÐ
­ÚÐ-3ÐÐ
­ÚÐ-4ÐÐ
­7ÚÐ-5ÐÐ
­;ÚÐ-6ÐÐ
­<ÚÐ-7ÐÐ
­=ÚÐ-8ÐÐ
­>ÚÐ-9ÐÐ
­?ÚÐ-:ÐÐ
­@ÚÐ-ÐÐ
­AÚÐ-;ÐÐ
­DÚÐ-<ÐÐ
­JÚÐ-=ÐÐ
­KÚÐ->ÐÐ
­LÚÐ-?ÐÐ
­6ÚÐ-@ÐÐ
­ÚÐ-3ÐÐ
­ÚÐ-ÐA-BÐCD-EFGÐHI­