mirror of
https://github.com/rfvgyhn/min-ed-launcher.git
synced 2026-02-04 08:05:37 +00:00
initial commit
This commit is contained in:
Chris
63
.gitattributes
vendored
Normal file
63
.gitattributes
vendored
Normal file
@ -0,0 +1,63 @@
|
|||||||
|
###############################################################################
|
||||||
|
# Set default behavior to automatically normalize line endings.
|
||||||
|
###############################################################################
|
||||||
|
* text=auto
|
||||||
|
|
||||||
|
###############################################################################
|
||||||
|
# Set default behavior for command prompt diff.
|
||||||
|
#
|
||||||
|
# This is need for earlier builds of msysgit that does not have it on by
|
||||||
|
# default for csharp files.
|
||||||
|
# Note: This is only used by command line
|
||||||
|
###############################################################################
|
||||||
|
#*.cs diff=csharp
|
||||||
|
|
||||||
|
###############################################################################
|
||||||
|
# Set the merge driver for project and solution files
|
||||||
|
#
|
||||||
|
# Merging from the command prompt will add diff markers to the files if there
|
||||||
|
# are conflicts (Merging from VS is not affected by the settings below, in VS
|
||||||
|
# the diff markers are never inserted). Diff markers may cause the following
|
||||||
|
# file extensions to fail to load in VS. An alternative would be to treat
|
||||||
|
# these files as binary and thus will always conflict and require user
|
||||||
|
# intervention with every merge. To do so, just uncomment the entries below
|
||||||
|
###############################################################################
|
||||||
|
#*.sln merge=binary
|
||||||
|
#*.csproj merge=binary
|
||||||
|
#*.vbproj merge=binary
|
||||||
|
#*.vcxproj merge=binary
|
||||||
|
#*.vcproj merge=binary
|
||||||
|
#*.dbproj merge=binary
|
||||||
|
#*.fsproj merge=binary
|
||||||
|
#*.lsproj merge=binary
|
||||||
|
#*.wixproj merge=binary
|
||||||
|
#*.modelproj merge=binary
|
||||||
|
#*.sqlproj merge=binary
|
||||||
|
#*.wwaproj merge=binary
|
||||||
|
|
||||||
|
###############################################################################
|
||||||
|
# behavior for image files
|
||||||
|
#
|
||||||
|
# image files are treated as binary by default.
|
||||||
|
###############################################################################
|
||||||
|
#*.jpg binary
|
||||||
|
#*.png binary
|
||||||
|
#*.gif binary
|
||||||
|
|
||||||
|
###############################################################################
|
||||||
|
# diff behavior for common document formats
|
||||||
|
#
|
||||||
|
# Convert binary document formats to text before diffing them. This feature
|
||||||
|
# is only available from the command line. Turn it on by uncommenting the
|
||||||
|
# entries below.
|
||||||
|
###############################################################################
|
||||||
|
#*.doc diff=astextplain
|
||||||
|
#*.DOC diff=astextplain
|
||||||
|
#*.docx diff=astextplain
|
||||||
|
#*.DOCX diff=astextplain
|
||||||
|
#*.dot diff=astextplain
|
||||||
|
#*.DOT diff=astextplain
|
||||||
|
#*.pdf diff=astextplain
|
||||||
|
#*.PDF diff=astextplain
|
||||||
|
#*.rtf diff=astextplain
|
||||||
|
#*.RTF diff=astextplain
|
||||||
277
.gitignore
vendored
Normal file
277
.gitignore
vendored
Normal file
@ -0,0 +1,277 @@
|
|||||||
|
investigation/
|
||||||
|
|
||||||
|
## Ignore Visual Studio temporary files, build results, and
|
||||||
|
## files generated by popular Visual Studio add-ons.
|
||||||
|
##
|
||||||
|
## Get latest from https://github.com/github/gitignore/blob/master/VisualStudio.gitignore
|
||||||
|
|
||||||
|
# User-specific files
|
||||||
|
*.suo
|
||||||
|
*.user
|
||||||
|
*.userosscache
|
||||||
|
*.sln.docstates
|
||||||
|
*.vcxproj.filters
|
||||||
|
|
||||||
|
# User-specific files (MonoDevelop/Xamarin Studio)
|
||||||
|
*.userprefs
|
||||||
|
|
||||||
|
# Build results
|
||||||
|
[Dd]ebug/
|
||||||
|
[Dd]ebugPublic/
|
||||||
|
[Rr]elease/
|
||||||
|
[Rr]eleases/
|
||||||
|
x64/
|
||||||
|
x86/
|
||||||
|
bld/
|
||||||
|
[Bb]in/
|
||||||
|
[Oo]bj/
|
||||||
|
[Ll]og/
|
||||||
|
|
||||||
|
# Visual Studio 2015 cache/options directory
|
||||||
|
.vs/
|
||||||
|
# Uncomment if you have tasks that create the project's static files in wwwroot
|
||||||
|
#wwwroot/
|
||||||
|
|
||||||
|
# MSTest test Results
|
||||||
|
[Tt]est[Rr]esult*/
|
||||||
|
[Bb]uild[Ll]og.*
|
||||||
|
|
||||||
|
# NUNIT
|
||||||
|
*.VisualState.xml
|
||||||
|
TestResult.xml
|
||||||
|
|
||||||
|
# Build Results of an ATL Project
|
||||||
|
[Dd]ebugPS/
|
||||||
|
[Rr]eleasePS/
|
||||||
|
dlldata.c
|
||||||
|
|
||||||
|
# .NET Core
|
||||||
|
project.lock.json
|
||||||
|
project.fragment.lock.json
|
||||||
|
artifacts/
|
||||||
|
**/Properties/launchSettings.json
|
||||||
|
|
||||||
|
*_i.c
|
||||||
|
*_p.c
|
||||||
|
*_i.h
|
||||||
|
*.ilk
|
||||||
|
*.meta
|
||||||
|
*.obj
|
||||||
|
*.pch
|
||||||
|
*.pdb
|
||||||
|
*.pgc
|
||||||
|
*.pgd
|
||||||
|
*.rsp
|
||||||
|
*.sbr
|
||||||
|
*.tlb
|
||||||
|
*.tli
|
||||||
|
*.tlh
|
||||||
|
*.tmp
|
||||||
|
*.tmp_proj
|
||||||
|
*.log
|
||||||
|
*.vspscc
|
||||||
|
*.vssscc
|
||||||
|
.builds
|
||||||
|
*.pidb
|
||||||
|
*.svclog
|
||||||
|
*.scc
|
||||||
|
|
||||||
|
# Chutzpah Test files
|
||||||
|
_Chutzpah*
|
||||||
|
|
||||||
|
# Visual C++ cache files
|
||||||
|
ipch/
|
||||||
|
*.aps
|
||||||
|
*.ncb
|
||||||
|
*.opendb
|
||||||
|
*.opensdf
|
||||||
|
*.sdf
|
||||||
|
*.cachefile
|
||||||
|
*.VC.db
|
||||||
|
*.VC.VC.opendb
|
||||||
|
|
||||||
|
# Visual Studio profiler
|
||||||
|
*.psess
|
||||||
|
*.vsp
|
||||||
|
*.vspx
|
||||||
|
*.sap
|
||||||
|
|
||||||
|
# TFS 2012 Local Workspace
|
||||||
|
$tf/
|
||||||
|
|
||||||
|
# Guidance Automation Toolkit
|
||||||
|
*.gpState
|
||||||
|
|
||||||
|
# ReSharper is a .NET coding add-in
|
||||||
|
_ReSharper*/
|
||||||
|
*.[Rr]e[Ss]harper
|
||||||
|
*.DotSettings.user
|
||||||
|
|
||||||
|
# JustCode is a .NET coding add-in
|
||||||
|
.JustCode
|
||||||
|
|
||||||
|
# TeamCity is a build add-in
|
||||||
|
_TeamCity*
|
||||||
|
|
||||||
|
# DotCover is a Code Coverage Tool
|
||||||
|
*.dotCover
|
||||||
|
|
||||||
|
# Visual Studio code coverage results
|
||||||
|
*.coverage
|
||||||
|
*.coveragexml
|
||||||
|
|
||||||
|
# NCrunch
|
||||||
|
_NCrunch_*
|
||||||
|
.*crunch*.local.xml
|
||||||
|
nCrunchTemp_*
|
||||||
|
|
||||||
|
# MightyMoose
|
||||||
|
*.mm.*
|
||||||
|
AutoTest.Net/
|
||||||
|
|
||||||
|
# Web workbench (sass)
|
||||||
|
.sass-cache/
|
||||||
|
|
||||||
|
# Installshield output folder
|
||||||
|
[Ee]xpress/
|
||||||
|
|
||||||
|
# DocProject is a documentation generator add-in
|
||||||
|
DocProject/buildhelp/
|
||||||
|
DocProject/Help/*.HxT
|
||||||
|
DocProject/Help/*.HxC
|
||||||
|
DocProject/Help/*.hhc
|
||||||
|
DocProject/Help/*.hhk
|
||||||
|
DocProject/Help/*.hhp
|
||||||
|
DocProject/Help/Html2
|
||||||
|
DocProject/Help/html
|
||||||
|
|
||||||
|
# Click-Once directory
|
||||||
|
publish/
|
||||||
|
|
||||||
|
# Publish Web Output
|
||||||
|
*.[Pp]ublish.xml
|
||||||
|
*.azurePubxml
|
||||||
|
# TODO: Comment the next line if you want to checkin your web deploy settings
|
||||||
|
# but database connection strings (with potential passwords) will be unencrypted
|
||||||
|
#*.pubxml
|
||||||
|
*.publishproj
|
||||||
|
|
||||||
|
# Microsoft Azure Web App publish settings. Comment the next line if you want to
|
||||||
|
# checkin your Azure Web App publish settings, but sensitive information contained
|
||||||
|
# in these scripts will be unencrypted
|
||||||
|
PublishScripts/
|
||||||
|
|
||||||
|
# NuGet Packages
|
||||||
|
*.nupkg
|
||||||
|
# The packages folder can be ignored because of Package Restore
|
||||||
|
**/packages/*
|
||||||
|
# except build/, which is used as an MSBuild target.
|
||||||
|
!**/packages/build/
|
||||||
|
# Uncomment if necessary however generally it will be regenerated when needed
|
||||||
|
#!**/packages/repositories.config
|
||||||
|
# NuGet v3's project.json files produces more ignoreable files
|
||||||
|
*.nuget.props
|
||||||
|
*.nuget.targets
|
||||||
|
|
||||||
|
# Microsoft Azure Build Output
|
||||||
|
csx/
|
||||||
|
*.build.csdef
|
||||||
|
|
||||||
|
# Microsoft Azure Emulator
|
||||||
|
ecf/
|
||||||
|
rcf/
|
||||||
|
|
||||||
|
# Windows Store app package directories and files
|
||||||
|
AppPackages/
|
||||||
|
BundleArtifacts/
|
||||||
|
Package.StoreAssociation.xml
|
||||||
|
_pkginfo.txt
|
||||||
|
|
||||||
|
# Visual Studio cache files
|
||||||
|
# files ending in .cache can be ignored
|
||||||
|
*.[Cc]ache
|
||||||
|
# but keep track of directories ending in .cache
|
||||||
|
!*.[Cc]ache/
|
||||||
|
|
||||||
|
# Others
|
||||||
|
ClientBin/
|
||||||
|
~$*
|
||||||
|
*~
|
||||||
|
*.dbmdl
|
||||||
|
*.dbproj.schemaview
|
||||||
|
*.jfm
|
||||||
|
*.pfx
|
||||||
|
*.publishsettings
|
||||||
|
node_modules/
|
||||||
|
orleans.codegen.cs
|
||||||
|
|
||||||
|
# Since there are multiple workflows, uncomment next line to ignore bower_components
|
||||||
|
# (https://github.com/github/gitignore/pull/1529#issuecomment-104372622)
|
||||||
|
#bower_components/
|
||||||
|
|
||||||
|
# RIA/Silverlight projects
|
||||||
|
Generated_Code/
|
||||||
|
|
||||||
|
# Backup & report files from converting an old project file
|
||||||
|
# to a newer Visual Studio version. Backup files are not needed,
|
||||||
|
# because we have git ;-)
|
||||||
|
_UpgradeReport_Files/
|
||||||
|
Backup*/
|
||||||
|
UpgradeLog*.XML
|
||||||
|
UpgradeLog*.htm
|
||||||
|
|
||||||
|
# SQL Server files
|
||||||
|
*.mdf
|
||||||
|
*.ldf
|
||||||
|
|
||||||
|
# Business Intelligence projects
|
||||||
|
*.rdl.data
|
||||||
|
*.bim.layout
|
||||||
|
*.bim_*.settings
|
||||||
|
|
||||||
|
# Microsoft Fakes
|
||||||
|
FakesAssemblies/
|
||||||
|
|
||||||
|
# GhostDoc plugin setting file
|
||||||
|
*.GhostDoc.xml
|
||||||
|
|
||||||
|
# Node.js Tools for Visual Studio
|
||||||
|
.ntvs_analysis.dat
|
||||||
|
|
||||||
|
# Visual Studio 6 build log
|
||||||
|
*.plg
|
||||||
|
|
||||||
|
# Visual Studio 6 workspace options file
|
||||||
|
*.opt
|
||||||
|
|
||||||
|
# Visual Studio 6 auto-generated workspace file (contains which files were open etc.)
|
||||||
|
*.vbw
|
||||||
|
|
||||||
|
# Visual Studio LightSwitch build output
|
||||||
|
**/*.HTMLClient/GeneratedArtifacts
|
||||||
|
**/*.DesktopClient/GeneratedArtifacts
|
||||||
|
**/*.DesktopClient/ModelManifest.xml
|
||||||
|
**/*.Server/GeneratedArtifacts
|
||||||
|
**/*.Server/ModelManifest.xml
|
||||||
|
_Pvt_Extensions
|
||||||
|
|
||||||
|
# Paket dependency manager
|
||||||
|
.paket/paket.exe
|
||||||
|
paket-files/
|
||||||
|
|
||||||
|
# FAKE - F# Make
|
||||||
|
.fake/
|
||||||
|
|
||||||
|
# JetBrains Rider
|
||||||
|
.idea/
|
||||||
|
*.sln.iml
|
||||||
|
|
||||||
|
# CodeRush
|
||||||
|
.cr/
|
||||||
|
|
||||||
|
# Python Tools for Visual Studio (PTVS)
|
||||||
|
__pycache__/
|
||||||
|
*.pyc
|
||||||
|
|
||||||
|
# Cake - Uncomment if you are using it
|
||||||
|
# tools/
|
||||||
52
EdLauncher.sln
Normal file
52
EdLauncher.sln
Normal file
@ -0,0 +1,52 @@
|
|||||||
|
|
||||||
|
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||||
|
# Visual Studio 15
|
||||||
|
VisualStudioVersion = 15.0.26124.0
|
||||||
|
MinimumVisualStudioVersion = 15.0.26124.0
|
||||||
|
Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "src", "src", "{D211D925-EFF3-46D3-AC52-28CE80DEFA89}"
|
||||||
|
EndProject
|
||||||
|
Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "tests", "tests", "{141F970C-8B2A-4D21-92B7-98E264DAFEB4}"
|
||||||
|
EndProject
|
||||||
|
Project("{6EC3EE1D-3C4E-46DD-8F32-0CC8E7565705}") = "EdLauncher", "src\EdLauncher.fsproj", "{55188BBB-C5EE-403E-A006-12DEDF4B4D2F}"
|
||||||
|
EndProject
|
||||||
|
Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "EdLauncher.Tests", "tests\EdLauncher.Tests.fsproj", "{BEA4B51C-5BA7-408D-A822-C5B61D103166}"
|
||||||
|
EndProject
|
||||||
|
Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "root", "root", "{DCB76620-F400-4748-84ED-AA4DEA205281}"
|
||||||
|
ProjectSection(SolutionItems) = preProject
|
||||||
|
README.md = README.md
|
||||||
|
.gitignore = .gitignore
|
||||||
|
EndProjectSection
|
||||||
|
EndProject
|
||||||
|
Global
|
||||||
|
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||||
|
Debug|Any CPU = Debug|Any CPU
|
||||||
|
Debug|x64 = Debug|x64
|
||||||
|
Debug|x86 = Debug|x86
|
||||||
|
Release|Any CPU = Release|Any CPU
|
||||||
|
Release|x64 = Release|x64
|
||||||
|
Release|x86 = Release|x86
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(SolutionProperties) = preSolution
|
||||||
|
HideSolutionNode = FALSE
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||||
|
{55188BBB-C5EE-403E-A006-12DEDF4B4D2F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||||
|
{55188BBB-C5EE-403E-A006-12DEDF4B4D2F}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||||
|
{BEA4B51C-5BA7-408D-A822-C5B61D103166}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||||
|
{BEA4B51C-5BA7-408D-A822-C5B61D103166}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||||
|
{BEA4B51C-5BA7-408D-A822-C5B61D103166}.Debug|x64.ActiveCfg = Debug|Any CPU
|
||||||
|
{BEA4B51C-5BA7-408D-A822-C5B61D103166}.Debug|x64.Build.0 = Debug|Any CPU
|
||||||
|
{BEA4B51C-5BA7-408D-A822-C5B61D103166}.Debug|x86.ActiveCfg = Debug|Any CPU
|
||||||
|
{BEA4B51C-5BA7-408D-A822-C5B61D103166}.Debug|x86.Build.0 = Debug|Any CPU
|
||||||
|
{BEA4B51C-5BA7-408D-A822-C5B61D103166}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||||
|
{BEA4B51C-5BA7-408D-A822-C5B61D103166}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||||
|
{BEA4B51C-5BA7-408D-A822-C5B61D103166}.Release|x64.ActiveCfg = Release|Any CPU
|
||||||
|
{BEA4B51C-5BA7-408D-A822-C5B61D103166}.Release|x64.Build.0 = Release|Any CPU
|
||||||
|
{BEA4B51C-5BA7-408D-A822-C5B61D103166}.Release|x86.ActiveCfg = Release|Any CPU
|
||||||
|
{BEA4B51C-5BA7-408D-A822-C5B61D103166}.Release|x86.Build.0 = Release|Any CPU
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(NestedProjects) = preSolution
|
||||||
|
{55188BBB-C5EE-403E-A006-12DEDF4B4D2F} = {D211D925-EFF3-46D3-AC52-28CE80DEFA89}
|
||||||
|
{BEA4B51C-5BA7-408D-A822-C5B61D103166} = {141F970C-8B2A-4D21-92B7-98E264DAFEB4}
|
||||||
|
EndGlobalSection
|
||||||
|
EndGlobal
|
||||||
21
LICENSE
Normal file
21
LICENSE
Normal file
@ -0,0 +1,21 @@
|
|||||||
|
MIT License
|
||||||
|
|
||||||
|
Copyright (c) 2017 Chris
|
||||||
|
|
||||||
|
Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||||
|
of this software and associated documentation files (the "Software"), to deal
|
||||||
|
in the Software without restriction, including without limitation the rights
|
||||||
|
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||||
|
copies of the Software, and to permit persons to whom the Software is
|
||||||
|
furnished to do so, subject to the following conditions:
|
||||||
|
|
||||||
|
The above copyright notice and this permission notice shall be included in all
|
||||||
|
copies or substantial portions of the Software.
|
||||||
|
|
||||||
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||||
|
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||||
|
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||||
|
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||||
|
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||||
|
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||||
|
SOFTWARE.
|
||||||
15
src/EdLauncher.fsproj
Normal file
15
src/EdLauncher.fsproj
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
<Project Sdk="Microsoft.NET.Sdk">
|
||||||
|
|
||||||
|
<PropertyGroup>
|
||||||
|
<OutputType>Exe</OutputType>
|
||||||
|
<TargetFramework>netcoreapp3.1</TargetFramework>
|
||||||
|
</PropertyGroup>
|
||||||
|
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="Types.fs" />
|
||||||
|
<Compile Include="Steam.fs" />
|
||||||
|
<Compile Include="Settings.fs" />
|
||||||
|
<Compile Include="Program.fs" />
|
||||||
|
</ItemGroup>
|
||||||
|
|
||||||
|
</Project>
|
||||||
61
src/Program.fs
Normal file
61
src/Program.fs
Normal file
@ -0,0 +1,61 @@
|
|||||||
|
open System
|
||||||
|
open System.IO
|
||||||
|
open System.Runtime.InteropServices
|
||||||
|
open Steam
|
||||||
|
open Types
|
||||||
|
open Settings
|
||||||
|
|
||||||
|
let log =
|
||||||
|
let write level msg = printfn "[%s] - %s" level msg
|
||||||
|
{ Debug = fun msg -> write "DBG" msg
|
||||||
|
Info = fun msg -> write "INF" msg
|
||||||
|
Warn = fun msg -> write "WRN" msg
|
||||||
|
Error = fun msg -> write "ERR" msg }
|
||||||
|
|
||||||
|
let getOsIdent() =
|
||||||
|
let platToStr plat =
|
||||||
|
if plat = OSPlatform.Linux then "Linux"
|
||||||
|
elif plat = OSPlatform.Windows then "Win"
|
||||||
|
elif plat = OSPlatform.OSX then "Mac"
|
||||||
|
elif plat = OSPlatform.FreeBSD then "FreeBSD"
|
||||||
|
else "Unknown"
|
||||||
|
let platform =
|
||||||
|
[ OSPlatform.Linux; OSPlatform.Windows; OSPlatform.OSX; OSPlatform.FreeBSD ]
|
||||||
|
|> List.pick (fun p -> if RuntimeInformation.IsOSPlatform(p) then Some p else None)
|
||||||
|
|> platToStr
|
||||||
|
let arch =
|
||||||
|
match RuntimeInformation.ProcessArchitecture with
|
||||||
|
| Architecture.Arm -> "Arm"
|
||||||
|
| Architecture.Arm64 -> "Arm64"
|
||||||
|
| Architecture.X64 -> "64"
|
||||||
|
| Architecture.X86 -> "32"
|
||||||
|
| unknownArch -> unknownArch.ToString()
|
||||||
|
|
||||||
|
platform + arch
|
||||||
|
|
||||||
|
let getUserDetails = function
|
||||||
|
| Dev -> Ok { UserId = 12345UL; SessionToken = "DevToken" }
|
||||||
|
| Oculus _ -> Error "Oculus not supported"
|
||||||
|
| Frontier -> Error "Frontier not supported"
|
||||||
|
| Steam _ ->
|
||||||
|
use steam = new Steam(log)
|
||||||
|
steam.Login()
|
||||||
|
|
||||||
|
let printInfo platform user =
|
||||||
|
printfn "Elite: Dangerous Launcher"
|
||||||
|
printfn "Platform: %A" platform
|
||||||
|
printfn "OS: %s" (getOsIdent())
|
||||||
|
match user with
|
||||||
|
| Error msg -> printfn "User: Error - %s" msg
|
||||||
|
| Ok user ->
|
||||||
|
printfn "User: %u" user.UserId
|
||||||
|
printfn "Session Token: %s" user.SessionToken
|
||||||
|
|
||||||
|
[<EntryPoint>]
|
||||||
|
let main argv =
|
||||||
|
let settings = parseArgs log Settings.defaults [| |] //argv
|
||||||
|
let user = getUserDetails settings.Platform
|
||||||
|
|
||||||
|
printInfo settings.Platform user
|
||||||
|
|
||||||
|
0
|
||||||
35
src/Settings.fs
Normal file
35
src/Settings.fs
Normal file
@ -0,0 +1,35 @@
|
|||||||
|
module Settings
|
||||||
|
|
||||||
|
open Types
|
||||||
|
open System
|
||||||
|
|
||||||
|
let defaults =
|
||||||
|
{ Platform = Dev
|
||||||
|
ProductMode = Pancake
|
||||||
|
AutoRun = true
|
||||||
|
AutoQuit = true
|
||||||
|
WatchForCrashes = true
|
||||||
|
RemoteLogging = false }
|
||||||
|
|
||||||
|
let parseArgs log defaults (args: string[]) =
|
||||||
|
let getArg (flag:string) i =
|
||||||
|
if i + 1 < args.Length && not (String.IsNullOrEmpty args.[i + 1]) && not (args.[i + 1].StartsWith '/') then
|
||||||
|
flag.ToLowerInvariant(), Some args.[i + 1]
|
||||||
|
else
|
||||||
|
flag.ToLowerInvariant(), None
|
||||||
|
args
|
||||||
|
|> Array.mapi (fun index value -> index, value)
|
||||||
|
|> Array.filter (fun (_, arg) -> not (String.IsNullOrEmpty(arg)))
|
||||||
|
|> Array.fold (fun s (i, arg) ->
|
||||||
|
match getArg arg i with
|
||||||
|
| "/steamid", Some id -> { s with Platform = Steam id }
|
||||||
|
| "/oculus", Some nonce -> { s with Platform = Oculus nonce }
|
||||||
|
| "/noremotelogs", _ -> { s with RemoteLogging = false }
|
||||||
|
| "/nowatchdog", _ -> { s with WatchForCrashes = false }
|
||||||
|
| "/vr", _ -> { s with ProductMode = Vr }
|
||||||
|
| "/autorun", _ -> { s with AutoRun = true }
|
||||||
|
| "/autoquit", _ -> { s with AutoQuit = true }
|
||||||
|
| _ ->
|
||||||
|
log.Warn <| sprintf "Ignoring argument '%s'" arg
|
||||||
|
s
|
||||||
|
) defaults
|
||||||
127
src/Steam.fs
Normal file
127
src/Steam.fs
Normal file
@ -0,0 +1,127 @@
|
|||||||
|
module Steam
|
||||||
|
|
||||||
|
open System
|
||||||
|
open System.IO
|
||||||
|
open System.Runtime.InteropServices
|
||||||
|
open Types
|
||||||
|
|
||||||
|
[<Literal>]
|
||||||
|
let SteamLib =
|
||||||
|
#if WINDOWS
|
||||||
|
"steam_api64.dll"
|
||||||
|
#else
|
||||||
|
"libsteam_api.so"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
[<DllImport(SteamLib)>]
|
||||||
|
extern bool SteamAPI_Init()
|
||||||
|
|
||||||
|
[<DllImport(SteamLib)>]
|
||||||
|
extern void SteamAPI_Shutdown()
|
||||||
|
|
||||||
|
[<DllImport(SteamLib)>]
|
||||||
|
extern IntPtr SteamClient();
|
||||||
|
|
||||||
|
[<DllImport(SteamLib)>]
|
||||||
|
extern int SteamAPI_GetHSteamPipe()
|
||||||
|
|
||||||
|
[<DllImport(SteamLib)>]
|
||||||
|
extern int SteamAPI_ISteamClient_ConnectToGlobalUser(IntPtr instance, int pipe)
|
||||||
|
|
||||||
|
[<DllImport(SteamLib)>]
|
||||||
|
extern IntPtr SteamAPI_ISteamClient_GetISteamUser(IntPtr instance, int user, int pipe, string version)
|
||||||
|
|
||||||
|
[<DllImport(SteamLib)>]
|
||||||
|
extern uint64 SteamAPI_ISteamUser_GetSteamID(IntPtr instance)
|
||||||
|
|
||||||
|
[<DllImport(SteamLib)>]
|
||||||
|
extern uint32 SteamAPI_ISteamUser_GetAuthSessionTicket(IntPtr instance, byte[] buffer, uint32 size, uint32& count)
|
||||||
|
|
||||||
|
[<DllImport(SteamLib)>]
|
||||||
|
extern void SteamAPI_ISteamUser_CancelAuthTicket(IntPtr instance, uint32 hTicket)
|
||||||
|
|
||||||
|
type SteamUser =
|
||||||
|
{ UserId: UInt64
|
||||||
|
SessionToken: string }
|
||||||
|
|
||||||
|
type Steam(log : ILog) =
|
||||||
|
let mutable disposed = false
|
||||||
|
let mutable initialized = false
|
||||||
|
let mutable userHandle = IntPtr.Zero
|
||||||
|
let mutable sessionToken = 0u
|
||||||
|
|
||||||
|
let cleanup disposing =
|
||||||
|
if not disposed then
|
||||||
|
log.Debug "Disposing Steam resources"
|
||||||
|
disposed <- true
|
||||||
|
|
||||||
|
if userHandle <> IntPtr.Zero then
|
||||||
|
log.Debug "Cancelling auth ticket"
|
||||||
|
SteamAPI_ISteamUser_CancelAuthTicket(userHandle, sessionToken)
|
||||||
|
|
||||||
|
if initialized then
|
||||||
|
log.Debug "closing steam"
|
||||||
|
SteamAPI_Shutdown()
|
||||||
|
|
||||||
|
let getCurrentUserHandle() =
|
||||||
|
let client = SteamClient()
|
||||||
|
if client <> IntPtr.Zero then
|
||||||
|
log.Debug "Got steam client"
|
||||||
|
let pipe = SteamAPI_GetHSteamPipe()
|
||||||
|
if pipe <> 0 then
|
||||||
|
log.Debug "Got steam pipe"
|
||||||
|
let globalUser = SteamAPI_ISteamClient_ConnectToGlobalUser(client, pipe)
|
||||||
|
if globalUser <> 0 then
|
||||||
|
log.Debug "Got steam global user"
|
||||||
|
userHandle <- SteamAPI_ISteamClient_GetISteamUser(client, globalUser, pipe, "SteamUser019")
|
||||||
|
if userHandle <> IntPtr.Zero then
|
||||||
|
log.Debug "Got steam user"
|
||||||
|
Some userHandle
|
||||||
|
else None
|
||||||
|
else None
|
||||||
|
else None
|
||||||
|
else None
|
||||||
|
|
||||||
|
let bytesToHex (bytes: byte[]) =
|
||||||
|
bytes
|
||||||
|
|> Array.map (fun b -> String.Format("{0:X2}", b))
|
||||||
|
|> String.concat ""
|
||||||
|
|
||||||
|
let init() =
|
||||||
|
if not <| File.Exists(SteamLib) then
|
||||||
|
Error <| sprintf "Unable to find steam library '%s'" SteamLib
|
||||||
|
elif SteamAPI_Init() then
|
||||||
|
initialized <- true
|
||||||
|
Ok ()
|
||||||
|
else
|
||||||
|
Error "Unable to initialize Steam"
|
||||||
|
|
||||||
|
member this.Login() =
|
||||||
|
match init() with
|
||||||
|
| Error m -> Error m
|
||||||
|
| Ok _ ->
|
||||||
|
let errorResult = Error "Unable to get current steam user. Make sure your Steam client is running."
|
||||||
|
match getCurrentUserHandle() with
|
||||||
|
| None -> errorResult
|
||||||
|
| Some handle ->
|
||||||
|
let userId = SteamAPI_ISteamUser_GetSteamID handle
|
||||||
|
|
||||||
|
if userId <> 0UL then
|
||||||
|
let rawToken = Array.zeroCreate<byte> 1024
|
||||||
|
let mutable count = 0u
|
||||||
|
sessionToken <- SteamAPI_ISteamUser_GetAuthSessionTicket(handle, rawToken, 1024u, &count)
|
||||||
|
|
||||||
|
if sessionToken <> 0u then
|
||||||
|
Ok { UserId = userId; SessionToken = bytesToHex rawToken }
|
||||||
|
else errorResult
|
||||||
|
else errorResult
|
||||||
|
|
||||||
|
interface IDisposable with
|
||||||
|
member this.Dispose() =
|
||||||
|
cleanup true
|
||||||
|
GC.SuppressFinalize(this)
|
||||||
|
|
||||||
|
override this.Finalize() =
|
||||||
|
cleanup false
|
||||||
|
|
||||||
|
|
||||||
36
src/Types.fs
Normal file
36
src/Types.fs
Normal file
@ -0,0 +1,36 @@
|
|||||||
|
module Types
|
||||||
|
|
||||||
|
type ILog =
|
||||||
|
{ Debug: string -> unit
|
||||||
|
Info: string -> unit
|
||||||
|
Warn: string -> unit
|
||||||
|
Error: string -> unit }
|
||||||
|
with static member Noop = { Debug = (fun _ -> ()); Info = (fun _ -> ()); Warn = (fun _ -> ()); Error = (fun _ -> ()) }
|
||||||
|
type Platform =
|
||||||
|
| Steam of string
|
||||||
|
| Frontier
|
||||||
|
| Oculus of string
|
||||||
|
| Dev
|
||||||
|
type ProductMode = Vr | Pancake
|
||||||
|
type AutoRun = bool
|
||||||
|
type AutoQuit = bool
|
||||||
|
type WatchForCrashes = bool
|
||||||
|
type RemoteLogging = bool
|
||||||
|
type LauncherSettings =
|
||||||
|
{ Platform: Platform
|
||||||
|
ProductMode: ProductMode
|
||||||
|
AutoRun: AutoRun
|
||||||
|
AutoQuit: AutoQuit
|
||||||
|
WatchForCrashes: WatchForCrashes
|
||||||
|
RemoteLogging: RemoteLogging }
|
||||||
|
type ServerStatus = Healthy
|
||||||
|
type LocalVersion = Version
|
||||||
|
type LauncherStatus =
|
||||||
|
| Current
|
||||||
|
| Supported
|
||||||
|
| Expired
|
||||||
|
| Future
|
||||||
|
type ServerInfo =
|
||||||
|
{ Status: ServerStatus}
|
||||||
|
type User =
|
||||||
|
{ Name: string }
|
||||||
25
tests/EdLauncher.Tests.fsproj
Normal file
25
tests/EdLauncher.Tests.fsproj
Normal file
@ -0,0 +1,25 @@
|
|||||||
|
<Project Sdk="Microsoft.NET.Sdk">
|
||||||
|
|
||||||
|
<PropertyGroup>
|
||||||
|
<OutputType>Exe</OutputType>
|
||||||
|
<TargetFramework>netcoreapp3.1</TargetFramework>
|
||||||
|
<GenerateProgramFile>false</GenerateProgramFile>
|
||||||
|
</PropertyGroup>
|
||||||
|
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="Settings.fs" />
|
||||||
|
<Compile Include="Main.fs" />
|
||||||
|
</ItemGroup>
|
||||||
|
|
||||||
|
<ItemGroup>
|
||||||
|
<PackageReference Include="Expecto" Version="9.0.0" />
|
||||||
|
<PackageReference Include="Expecto.FsCheck" Version="9.0.0" />
|
||||||
|
<PackageReference Include="FSharp.Core" Version="4.*" />
|
||||||
|
<!-- <PackageReference Include="YoloDev.Expecto.TestSdk" Version="0.8.0" />-->
|
||||||
|
<!-- <PackageReference Include="Microsoft.NET.Test.Sdk" Version="16.*" />-->
|
||||||
|
</ItemGroup>
|
||||||
|
|
||||||
|
<ItemGroup>
|
||||||
|
<ProjectReference Include="..\src\EdLauncher.fsproj" />
|
||||||
|
</ItemGroup>
|
||||||
|
</Project>
|
||||||
5
tests/Main.fs
Normal file
5
tests/Main.fs
Normal file
@ -0,0 +1,5 @@
|
|||||||
|
open Expecto
|
||||||
|
|
||||||
|
[<EntryPoint>]
|
||||||
|
let main argv =
|
||||||
|
Tests.runTestsInAssembly defaultConfig argv
|
||||||
52
tests/Settings.fs
Normal file
52
tests/Settings.fs
Normal file
@ -0,0 +1,52 @@
|
|||||||
|
module Tests
|
||||||
|
|
||||||
|
open Expecto
|
||||||
|
open Settings
|
||||||
|
open Types
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
[<Tests>]
|
||||||
|
let tests =
|
||||||
|
let parse = parseArgs ILog.Noop Settings.defaults
|
||||||
|
|
||||||
|
testList "Parings command line arguments" [
|
||||||
|
test "Matches /steamid id" {
|
||||||
|
let settings = parse [| "/steamid"; "123" |]
|
||||||
|
Expect.equal settings.Platform (Steam "123") ""
|
||||||
|
}
|
||||||
|
test "Ignores /steamid without id as next arg" {
|
||||||
|
let settings = parse [| "/steamid"; "/123" |]
|
||||||
|
Expect.equal settings.Platform Settings.defaults.Platform ""
|
||||||
|
}
|
||||||
|
test "Matches /oculus nonce" {
|
||||||
|
let settings = parse [| "/oculus"; "123" |]
|
||||||
|
Expect.equal settings.Platform (Oculus "123") ""
|
||||||
|
}
|
||||||
|
test "Ignores /oculus without nonce as next arg" {
|
||||||
|
let settings = parse [| "/oculus"; "/123" |]
|
||||||
|
Expect.equal settings.Platform Settings.defaults.Platform ""
|
||||||
|
}
|
||||||
|
test "Matches /noremotelogs" {
|
||||||
|
let settings = parse [| "/noremotelogs" |]
|
||||||
|
Expect.equal settings.RemoteLogging false ""
|
||||||
|
}
|
||||||
|
test "Matches /nowatchdog" {
|
||||||
|
let settings = parse [| "/nowatchdog" |]
|
||||||
|
Expect.equal settings.WatchForCrashes false ""
|
||||||
|
}
|
||||||
|
test "Matches /vr" {
|
||||||
|
let settings = parse [| "/vr" |]
|
||||||
|
Expect.equal settings.ProductMode Vr ""
|
||||||
|
}
|
||||||
|
test "Matches /autorun" {
|
||||||
|
let settings = parse [| "/autorun" |]
|
||||||
|
Expect.equal settings.AutoRun true ""
|
||||||
|
}
|
||||||
|
test "Matches /autoquit" {
|
||||||
|
let settings = parse [| "/autoquit" |]
|
||||||
|
Expect.equal settings.AutoQuit true ""
|
||||||
|
}
|
||||||
|
testProperty "Unknown arg doesn't change any values" <|
|
||||||
|
fun (args:string[]) -> parse args = Settings.defaults
|
||||||
|
]
|
||||||
Reference in New Issue
Block a user