Commit 032ff969 authored by John van Groningen's avatar John van Groningen

rename function initPlatformCommandLine as initPlatformCommandLineArguments

parent e451f510
......@@ -231,7 +231,7 @@ where
# (twi,ps) = accPLoc getTypeWinInfo ps
# twi = TW_SetUpd ([menuIds.mn_cut,menuIds.mn_pst,menuIds.mn_clr:menuIds.mg_edt]) twi
# ps = appPLoc (setTypeWinInfo twi) ps
# (files,ps) = initPlatformCommandLine ps
# (files,ps) = initPlatformCommandLineArguments ps
# ps = openfiles files ps
# ps = SetProcessIcon CleanIcon ps
= installPlatformEventHandlers ps
......
......@@ -5,7 +5,7 @@ import StdIOCommon
PlatformDependant win mac :== win
initPlatformCommandLine :: !*(PSt .l) -> (![String],!*PSt .l)
initPlatformCommandLineArguments:: !*(PSt .l) -> (![String],!*PSt .l)
installPlatformEventHandlers :: !*(PSt .l) -> *(PSt .l)
openPlatformWindowMenu :: !*(PSt .l) -> *(PSt .l)
......
......@@ -44,8 +44,8 @@ where
ccall GetPrivateProfileStringA@24 "PsssIIs:I:I"
}
initPlatformCommandLine :: !*(PSt .l) -> (![String],!*PSt .l)
initPlatformCommandLine ps
initPlatformCommandLineArguments :: !*(PSt .l) -> (![String],!*PSt .l)
initPlatformCommandLineArguments ps
# args = cl_args
# args = [arg \\ arg <-: args]
# args = filter_opts args
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment