1/* REXX */ 2/* Convert backend-DLL-filenames according to 8.3 naming convention */ 3/* necessary for DLLs on OS/2 (C) Franz Bakan 2004,2005 */ 4/* */ 5/* This file is part of the SANE package. */ 6/* */ 7/* This program is free software; you can redistribute it and/or */ 8/* modify it under the terms of the GNU General Public License as */ 9/* published by the Free Software Foundation; either version 2 of the */ 10/* License, or (at your option) any later version. */ 11/* */ 12/* This program is distributed in the hope that it will be useful, but */ 13/* WITHOUT ANY WARRANTY; without even the implied warranty of */ 14/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU */ 15/* General Public License for more details. */ 16/* */ 17/* You should have received a copy of the GNU General Public License */ 18/* along with this program. If not, see <https://www.gnu.org/licenses/>. */ 19 20 21CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' 22CALL SysLoadFuncs 23 24rc = SysFileTree('\usr\lib\sane\libsane-*.dll',dlls,O) 25DO i=1 TO dlls.0 26 PARSE VALUE dlls.i WITH front 'libsane-' backend '.dll' 27 IF length(backend) > 7 THEN 28 COPY dlls.i front||LEFT(backend,2)||RIGHT(backend,5,' ')||'.dll' 29 ELSE 30 IF length(backend) > 0 THEN COPY dlls.i front||backend||'.dll' 31 DEL dlls.i 32END /* do */ 33