Skip to content

Commit

Permalink
new line fix
Browse files Browse the repository at this point in the history
  • Loading branch information
prokushev committed Jul 5, 2024
1 parent 8db62f9 commit 722763f
Showing 1 changed file with 50 additions and 50 deletions.
100 changes: 50 additions & 50 deletions CMD/qbasic/patches/fixcase.cmd
Original file line number Diff line number Diff line change
@@ -1,50 +1,50 @@
/* rexx */

parse arg dir

call directory dir

call rename 'APPINFO', 'appinfo'
call rename 'BIN', 'bin'
call rename 'DOC', 'doc'
call rename 'SOURCE', 'source'

call directory 'source'

call rename 'EDIT', 'edit'

call directory 'edit'

call rename 'ASCIITAB.C', 'asciitab.c'
call rename 'BUILD_ED.BAT', 'build_ed.bat'
call rename 'CALENDAR.C', 'calendar.c'
call rename 'CONFIG.C', 'config.c'
call rename 'CONFIG.H', 'config.h'
call rename 'EDIT.C', 'edit.c'
call rename 'EDIT.H', 'edit.h'
call rename 'MENUS.C', 'menus.c'

call directory '..'

exit 0
/* ------------------------------------------ */
rename: procedure
src = arg(1)
dst = arg(2)

parse source os .

if os = 'OS/2' | os = 'DOS' | os = 'WINDOWS' |,
os = 'WINNT' | os = 'WIN32' | os = 'WIN64'
then MV = 'move'
else MV = 'mv'

ret = stream(src, 'c', 'query exists')

if ret \= '' then do
MV' 'src' 'dst'1'
MV' 'dst'1 'dst
end

return
/* ------------------------------------------ */
/* rexx */

parse arg dir

call directory dir

call rename 'APPINFO', 'appinfo'
call rename 'BIN', 'bin'
call rename 'DOC', 'doc'
call rename 'SOURCE', 'source'

call directory 'source'

call rename 'EDIT', 'edit'

call directory 'edit'

call rename 'ASCIITAB.C', 'asciitab.c'
call rename 'BUILD_ED.BAT', 'build_ed.bat'
call rename 'CALENDAR.C', 'calendar.c'
call rename 'CONFIG.C', 'config.c'
call rename 'CONFIG.H', 'config.h'
call rename 'EDIT.C', 'edit.c'
call rename 'EDIT.H', 'edit.h'
call rename 'MENUS.C', 'menus.c'

call directory '..'

exit 0
/* ------------------------------------------ */
rename: procedure
src = arg(1)
dst = arg(2)

parse source os .

if os = 'OS/2' | os = 'DOS' | os = 'WINDOWS' |,
os = 'WINNT' | os = 'WIN32' | os = 'WIN64'
then MV = 'move'
else MV = 'mv'

ret = stream(src, 'c', 'query exists')

if ret \= '' then do
MV' 'src' 'dst'1'
MV' 'dst'1 'dst
end

return
/* ------------------------------------------ */

0 comments on commit 722763f

Please sign in to comment.