mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-03 14:41:21 +00:00
490 lines
21 KiB
QBasic
490 lines
21 KiB
QBasic
DIM SHARED IDECommentColor AS _UNSIGNED LONG, IDEMetaCommandColor AS _UNSIGNED LONG
|
|
DIM SHARED IDEQuoteColor AS _UNSIGNED LONG, IDETextColor AS _UNSIGNED LONG
|
|
DIM SHARED IDEBackgroundColor AS _UNSIGNED LONG
|
|
DIM SHARED IDEBackgroundColor2 AS _UNSIGNED LONG, IDEBracketHighlightColor AS _UNSIGNED LONG
|
|
DIM SHARED IDEKeywordColor AS _UNSIGNED LONG, IDENumbersColor AS _UNSIGNED LONG
|
|
DIM SHARED IDE_AutoPosition AS _BYTE, IDE_TopPosition AS INTEGER, IDE_LeftPosition AS INTEGER
|
|
DIM SHARED IDE_BypassAutoPosition AS _BYTE, idesortsubs AS _BYTE
|
|
DIM SHARED IDENormalCursorStart AS LONG, IDENormalCursorEnd AS LONG
|
|
DIM SHARED IDE_Index$
|
|
DIM SHARED LoadedIDESettings AS INTEGER
|
|
DIM SHARED MouseButtonSwapped AS _BYTE
|
|
DIM SHARED PasteCursorAtEnd AS _BYTE
|
|
DIM SHARED SaveExeWithSource AS _BYTE
|
|
DIM SHARED IDEShowErrorsImmediately AS _BYTE
|
|
DIM SHARED ShowLineNumbersSeparator AS _BYTE, ShowLineNumbersUseBG AS _BYTE
|
|
|
|
IF LoadedIDESettings = 0 THEN
|
|
'We only want to load the file once when QB64 first starts
|
|
'Other changes should occur to our settings when we change them in their appropiate routines.
|
|
'There's no reason to open and close and open and close the same file a million times.
|
|
|
|
LoadedIDESettings = -1
|
|
|
|
ConfigFile$ = "internal/config.txt"
|
|
ConfigBak$ = "internal/config.bak"
|
|
|
|
GOSUB CheckConfigFileExists 'make certain the config file exists and if not, create one
|
|
|
|
IF INSTR(_OS$, "WIN") THEN
|
|
|
|
result = ReadConfigSetting("AllowIndependentSettings", value$)
|
|
IF result THEN
|
|
IF value$ = "TRUE" OR ABS(VAL(value$)) = 1 THEN 'We default to false and only use one set of IDE settings, no matter how many windows we open up
|
|
IDE_Index$ = "(" + LTRIM$(RTRIM$(STR$(tempfolderindex))) + ")"
|
|
ConfigFile$ = "internal/config" + IDE_Index$ + ".txt"
|
|
ConfigBak$ = "internal/config" + IDE_Index$ + ".bak"
|
|
GOSUB CheckConfigFileExists
|
|
ELSE
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "AllowIndependentSettings", "FALSE"
|
|
IDE_Index$ = ""
|
|
END IF
|
|
ELSE
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "AllowIndependentSettings", "FALSE"
|
|
IDE_Index$ = ""
|
|
END IF
|
|
|
|
ELSE
|
|
'Linux doesn't offer multiple temp folders and thus can not work properly with independent settings
|
|
'This option is not included on Linux, and if manually inserted will simply be ignored.
|
|
IDE_Index$ = ""
|
|
END IF
|
|
|
|
result = ReadConfigSetting("ConfigVersion", value$) 'Not really used for anything at this point, but might be important in the future.
|
|
ConfigFileVersion = VAL(value$) 'We'll get a config file version of 0 if there isn't any in the file
|
|
|
|
result = ReadConfigSetting("CommentColor", value$)
|
|
IF result THEN
|
|
IDECommentColor = VRGBS(value$, _RGB32(85, 255, 255))
|
|
ELSE
|
|
IDECommentColor = _RGB32(85, 255, 255)
|
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "CommentColor", "_RGB32(85,255,255)"
|
|
END IF
|
|
|
|
result = ReadConfigSetting("CustomKeywords$", value$)
|
|
IF result THEN
|
|
tempList$ = ""
|
|
listOfCustomKeywords$ = "@" + UCASE$(value$) + "@"
|
|
FOR i = 1 TO LEN (listOfCustomKeywords$)
|
|
checkChar = ASC(listOfCustomKeywords$, i)
|
|
IF checkChar = 64 THEN
|
|
IF RIGHT$(tempList$, 1) <> "@" THEN tempList$ = tempList$ + "@"
|
|
ELSE
|
|
tempList$ = tempList$ + CHR$(checkChar)
|
|
END IF
|
|
NEXT
|
|
listOfCustomKeywords$ = tempList$
|
|
customKeywordsLength = LEN(listOfCustomKeywords$)
|
|
ELSE
|
|
WriteConfigSetting "'[CUSTOM DICTIONARIES]", "CustomKeywordsSyntax$", "@custom@keywords@separated@by@the@at@sign@"
|
|
WriteConfigSetting "'[CUSTOM DICTIONARIES]", "CustomKeywords$", "@"
|
|
END IF
|
|
|
|
result = ReadConfigSetting("MetaCommandColor", value$)
|
|
IF result THEN
|
|
IDEMetaCommandColor = VRGBS(value$, _RGB32(85, 255, 85))
|
|
ELSE
|
|
IDEMetaCommandColor = _RGB32(85, 255, 85)
|
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "MetaCommandColor", "_RGB32(85,255,85)"
|
|
END IF
|
|
|
|
result = ReadConfigSetting("KeywordColor", value$)
|
|
IF result THEN
|
|
IDEKeywordColor = VRGBS(value$, _RGB32(147, 196, 235))
|
|
ELSE
|
|
IDEKeywordColor = _RGB32(147, 196, 235)
|
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "KeywordColor", "_RGB32(147,196,235)"
|
|
END IF
|
|
|
|
result = ReadConfigSetting("HighlightColor", value$)
|
|
IF result THEN
|
|
IDEBracketHighlightColor = VRGBS(value$, _RGB32(0, 147, 177))
|
|
ELSE
|
|
IDEBracketHighlightColor = _RGB32(0, 147, 177)
|
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "HighlightColor", "_RGB32(0,147,177)"
|
|
END IF
|
|
|
|
result = ReadConfigSetting("NumbersColor", value$)
|
|
IF result THEN
|
|
IDENumbersColor = VRGBS(value$, _RGB32(245, 128, 177))
|
|
ELSE
|
|
IDENumbersColor = _RGB32(245, 128, 177)
|
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "NumbersColor", "_RGB32(245,128,177)"
|
|
END IF
|
|
|
|
result = ReadConfigSetting("QuoteColor", value$)
|
|
IF result THEN
|
|
IDEQuoteColor = VRGBS(value$, _RGB32(255, 255, 85))
|
|
ELSE
|
|
IDEQuoteColor = _RGB32(255, 255, 85)
|
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "QuoteColor", "_RGB32(255,255,85)"
|
|
END IF
|
|
|
|
result = ReadConfigSetting("TextColor", value$)
|
|
IF result THEN
|
|
IDETextColor = VRGBS(value$, _RGB32(226, 226, 226))
|
|
ELSE
|
|
IDETextColor = _RGB32(226, 226, 226)
|
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "TextColor", "_RGB32(226,226,226)"
|
|
END IF
|
|
|
|
result = ReadConfigSetting("BackgroundColor", value$)
|
|
IF result THEN
|
|
IDEBackGroundColor = VRGBS(value$, _RGB32(0, 0, 170))
|
|
ELSE
|
|
IDEBackGroundColor = _RGB32(0, 0, 170)
|
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "BackgroundColor", "_RGB32(0,0,170)"
|
|
END IF
|
|
|
|
result = ReadConfigSetting("BackgroundColor2", value$)
|
|
IF result THEN
|
|
IDEBackGroundColor2 = VRGBS(value$, _RGB32(0, 108, 177))
|
|
ELSE
|
|
IDEBackGroundColor2 = _RGB32(0, 108, 177)
|
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "BackgroundColor2", "_RGB32(0,108,177)"
|
|
END IF
|
|
|
|
result = ReadConfigSetting("SwapMouseButton", value$)
|
|
if value$ = "TRUE" or val(value$) = -1 then
|
|
MouseButtonSwapped = -1
|
|
WriteConfigSetting "'[MOUSE SETTINGS]", "SwapMouseButton", "TRUE"
|
|
else
|
|
MouseButtonSwapped = 0
|
|
WriteConfigSetting "'[MOUSE SETTINGS]", "SwapMouseButton", "FALSE"
|
|
end if
|
|
|
|
result = ReadConfigSetting("PasteCursorAtEnd", value$)
|
|
IF result THEN
|
|
IF value$ = "TRUE" OR VAL(value$) = -1 THEN
|
|
PasteCursorAtEnd = -1
|
|
ELSE
|
|
PasteCursorAtEnd = 0
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "PasteCursorAtEnd", "FALSE"
|
|
END IF
|
|
ELSE
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "PasteCursorAtEnd", "TRUE"
|
|
PasteCursorAtEnd = -1
|
|
END IF
|
|
|
|
result = ReadConfigSetting("SaveExeWithSource", value$)
|
|
IF result THEN
|
|
IF value$ = "TRUE" OR VAL(value$) = -1 THEN
|
|
SaveExeWithSource = -1
|
|
ELSE
|
|
SaveExeWithSource = 0
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "SaveExeWithSource", "FALSE"
|
|
END IF
|
|
ELSE
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "SaveExeWithSource", "FALSE"
|
|
SaveExeWithSource = 0
|
|
END IF
|
|
|
|
result = ReadConfigSetting("IDE_SortSUBs", value$)
|
|
IF result THEN
|
|
IF value$ = "TRUE" OR VAL(value$) = -1 THEN
|
|
idesortsubs = -1
|
|
ELSE
|
|
idesortsubs = 0
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SortSUBs", "FALSE"
|
|
END IF
|
|
ELSE
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SortSUBs", "FALSE"
|
|
idesortsubs = 0
|
|
END IF
|
|
|
|
result = ReadConfigSetting("ShowErrorsImmediately", value$)
|
|
IF result THEN
|
|
IF value$ = "TRUE" OR VAL(value$) = -1 THEN
|
|
IDEShowErrorsImmediately = -1
|
|
ELSE
|
|
IDEShowErrorsImmediately = 0
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "ShowErrorsImmediately", "FALSE"
|
|
END IF
|
|
ELSE
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "ShowErrorsImmediately", "TRUE"
|
|
IDEShowErrorsImmediately = -1
|
|
END IF
|
|
|
|
result = ReadConfigSetting("ShowLineNumbers", value$)
|
|
IF result THEN
|
|
IF value$ = "TRUE" OR VAL(value$) = -1 THEN
|
|
ShowLineNumbers = -1
|
|
ELSE
|
|
ShowLineNumbers = 0
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbers", "FALSE"
|
|
END IF
|
|
ELSE
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbers", "FALSE"
|
|
ShowLineNumbers = 0
|
|
END IF
|
|
|
|
result = ReadConfigSetting("ShowLineNumbersSeparator", value$)
|
|
IF result THEN
|
|
IF value$ = "TRUE" OR VAL(value$) = -1 THEN
|
|
ShowLineNumbersSeparator = -1
|
|
ELSE
|
|
ShowLineNumbersSeparator = 0
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbersSeparator", "FALSE"
|
|
END IF
|
|
ELSE
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbersSeparator", "TRUE"
|
|
ShowLineNumbersSeparator = -1
|
|
END IF
|
|
|
|
result = ReadConfigSetting("ShowLineNumbersUseBG", value$)
|
|
IF result THEN
|
|
IF value$ = "TRUE" OR VAL(value$) = -1 THEN
|
|
ShowLineNumbersUseBG = -1
|
|
ELSE
|
|
ShowLineNumbersUseBG = 0
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbersUseBG", "FALSE"
|
|
END IF
|
|
ELSE
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbersUseBG", "TRUE"
|
|
ShowLineNumbersUseBG = -1
|
|
END IF
|
|
|
|
result = ReadConfigSetting("BracketHighlight", value$)
|
|
IF result THEN
|
|
IF value$ = "TRUE" OR VAL(value$) = -1 THEN
|
|
brackethighlight = -1
|
|
ELSE
|
|
brackethighlight = 0
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "BracketHighlight", "FALSE"
|
|
END IF
|
|
ELSE
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "BracketHighlight", "TRUE"
|
|
brackethighlight = -1
|
|
END IF
|
|
|
|
result = ReadConfigSetting("KeywordHighlight", value$)
|
|
IF result THEN
|
|
IF value$ = "TRUE" OR VAL(value$) = -1 THEN
|
|
keywordHighlight = -1
|
|
ELSE
|
|
keywordHighlight = 0
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "KeywordHighlight", "FALSE"
|
|
END IF
|
|
ELSE
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "KeywordHighlight", "TRUE"
|
|
keywordHighlight = -1
|
|
END IF
|
|
|
|
result = ReadConfigSetting("MultiHighlight", value$)
|
|
IF result THEN
|
|
IF value$ = "TRUE" OR VAL(value$) = -1 THEN
|
|
multihighlight = -1
|
|
ELSE
|
|
multihighlight = 0
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "MultiHighlight", "FALSE"
|
|
END IF
|
|
ELSE
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "MultiHighlight", "TRUE"
|
|
multihighlight = -1
|
|
END IF
|
|
|
|
IF INSTR(_OS$, "WIN") THEN
|
|
result = ReadConfigSetting("IDE_AutoPosition", value$)
|
|
IF result THEN
|
|
IF UCASE$(value$) = "TRUE" OR ABS(VAL(value$)) = 1 THEN
|
|
IDE_AutoPosition = -1
|
|
ELSE
|
|
IDE_AutoPosition = 0
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoPosition", "FALSE"
|
|
END IF
|
|
ELSE
|
|
IDE_AutoPosition = -1
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoPosition", "TRUE"
|
|
END IF
|
|
|
|
result = ReadConfigSetting("IDE_TopPosition", value$)
|
|
IF result THEN
|
|
IDE_TopPosition = VAL(value$)
|
|
ELSE
|
|
IDE_BypassAutoPosition = -1 'If there's no position saved in the file, then we certainly don't need to try and auto-position to our last setting.
|
|
IDE_TopPosition = 0
|
|
END IF
|
|
|
|
result = ReadConfigSetting("IDE_LeftPosition", value$)
|
|
IF result THEN
|
|
IDE_LeftPosition = VAL(value$)
|
|
ELSE
|
|
IDE_BypassAutoPosition = -1 'If there's no position saved in the file, then we certainly don't need to try and auto-position to our last setting.
|
|
IDE_LeftPosition = 0
|
|
END IF
|
|
|
|
'I was going to do some basic error checking for screen position to make certain that we appeared on the monitor,
|
|
'but I decided not to. Some people (like me) may have multiple monitors set up and may wish for QB64 to pop-up at
|
|
'a coordinate which seems insane at first glance (-1000,0 for instance), but which may move the IDE window to the
|
|
'second monitor instead of the primary one.
|
|
'I'm going to trust that the user doesn't go crazy and enter values like IDE_TopPosition = 123456789 or something insane...
|
|
|
|
ELSE 'Linux doesn't work with _SCREENY or _SCREENY, so it's impossible to move the IDE properly.
|
|
'These settings aren't included and are always set FALSE for them.
|
|
IDE_AutoPosition = 0
|
|
IDE_TopPosition = 0
|
|
IDE_LeftPosition = 0
|
|
END IF
|
|
|
|
result = ReadConfigSetting("IDE_NormalCursorStart", value$)
|
|
IDENormalCursorStart = VAL(value$)
|
|
IF IDENormalCursorStart < 0 OR IDENormalCursorStart > 31 OR result = 0 THEN IDENormalCursorStart = 8: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_NormalCursorStart", "8"
|
|
|
|
result = ReadConfigSetting("IDE_NormalCursorEnd", value$)
|
|
IDENormalCursorEnd = VAL(value$)
|
|
IF IDENormalCursorEnd < 0 OR IDENormalCursorEnd > 31 OR result = 0 THEN IDENormalCursorEnd = 8: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_NormalCursorEnd", "8"
|
|
|
|
result = ReadConfigSetting("IDE_Width", value$)
|
|
idewx = VAL(value$)
|
|
IF idewx < 80 OR idewx > 1000 THEN idewx = 80: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Width", "80"
|
|
|
|
result = ReadConfigSetting("IDE_Height", value$)
|
|
idewy = VAL(value$)
|
|
IF idewy < 25 OR idewy > 1000 THEN idewy = 25: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", "25"
|
|
|
|
result = ReadConfigSetting("IDE_AutoFormat", value$)
|
|
ideautolayout = VAL(value$)
|
|
IF UCASE$(value$) = "TRUE" OR ideautolayout <> 0 THEN
|
|
ideautolayout = 1
|
|
ELSE
|
|
IF UCASE$(value$) <> "FALSE" AND value$ <> "0" THEN
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoFormat", "TRUE"
|
|
ideautolayout = 1
|
|
else
|
|
ideautolayout = 0
|
|
end if
|
|
END IF
|
|
|
|
result = ReadConfigSetting("IDE_AutoIndent", value$)
|
|
ideautoindent = VAL(value$)
|
|
IF UCASE$(value$) = "TRUE" OR ideautoindent <> 0 THEN
|
|
ideautoindent = 1
|
|
ELSE
|
|
IF UCASE$(value$) <> "FALSE" AND value$ <> "0" THEN
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoIndent", "TRUE"
|
|
ideautoindent = 1
|
|
else
|
|
ideautoindent = 0
|
|
end if
|
|
END IF
|
|
|
|
result = ReadConfigSetting("IDE_IndentSUBs", value$)
|
|
ideindentsubs = VAL(value$)
|
|
IF UCASE$(value$) = "TRUE" OR ideindentsubs <> 0 THEN
|
|
ideindentsubs = 1
|
|
ELSE
|
|
IF UCASE$(value$) <> "FALSE" AND value$ <> "0" THEN
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_IndentSUBs", "TRUE"
|
|
ideindentsubs = 1
|
|
else
|
|
ideindentsubs = 0
|
|
end if
|
|
END IF
|
|
|
|
result = ReadConfigSetting("IDE_IndentSize", value$)
|
|
ideautoindentsize = VAL(value$)
|
|
if ideautoindentsize < 1 OR ideautoindentsize > 64 then
|
|
ideautoindentsize = 4
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_IndentSize", "4"
|
|
end if
|
|
|
|
result = ReadConfigSetting("IDE_CustomFont", value$)
|
|
idecustomfont = VAL(value$)
|
|
IF UCASE$(value$) = "TRUE" OR idecustomfont <> 0 THEN
|
|
idecustomfont = 1
|
|
ELSE
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFont", "FALSE"
|
|
idecustomfont = 0
|
|
END IF
|
|
|
|
result = ReadConfigSetting("IDE_CustomFont$", value$)
|
|
idecustomfontfile$ = value$
|
|
if result = 0 OR idecustomfontfile$ = "" then
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFont$", "c:\windows\fonts\lucon.ttf"
|
|
idecustomfontfile$ = "c:\windows\fonts\lucon.ttf"
|
|
end if
|
|
|
|
result = ReadConfigSetting("IDE_CustomFontSize", value$)
|
|
idecustomfontheight = VAL(value$)
|
|
IF idecustomfontheight < 8 OR idecustomfontheight > 100 THEN idecustomfontheight = 21: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFontSize", "21"
|
|
|
|
result = ReadConfigSetting("IDE_CodePage", value$)
|
|
idecpindex = VAL(value$)
|
|
IF idecpindex < 0 OR idecpindex > idecpnum THEN idecpindex = 0: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CodePage", "0"
|
|
|
|
result = ReadConfigSetting("BackupSize", value$)
|
|
idebackupsize = VAL(value$)
|
|
IF idebackupsize < 10 OR idebackupsize > 2000 THEN idebackupsize = 100: WriteConfigSetting "'[GENERAL SETTINGS]", "BackupSize", "100 'in MB"
|
|
|
|
result = ReadConfigSetting("DeBugInfo", value$)
|
|
idedebuginfo = VAL(value$)
|
|
IF UCASE$(LEFT$(value$, 4)) = "TRUE" THEN idedebuginfo = 1
|
|
IF result = 0 OR idedebuginfo <> 1 THEN
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "DebugInfo", "FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!"
|
|
idedebuginfo = 0
|
|
END IF
|
|
Include_GDB_Debugging_Info = idedebuginfo
|
|
|
|
result = ReadConfigSetting("IDE_AndroidMenu", value$)
|
|
IdeAndroidMenu = ABS(VAL(value$))
|
|
IF UCASE$(value$) = "TRUE" THEN IdeAndroidMenu = 1
|
|
IF IdeAndroidMenu <> 1 THEN ideideandroidmenu = 0: WriteConfigSetting "'[ANDROID MENU]", "IDE_AndroidMenu", "FALSE"
|
|
|
|
result = ReadConfigSetting("IDE_AndroidStartScript$", value$)
|
|
IdeAndroidStartScript$ = value$ 'no default values in case this fails??
|
|
IF result = 0 THEN WriteConfigSetting "'[ANDROID MENU]", "IDE_AndroidStartScript$", "programs\android\start_android.bat"
|
|
|
|
result = ReadConfigSetting("IDE_AndroidMakeScript$", value$)
|
|
IdeAndroidMakeScript$ = value$ 'no default values in case this fails??
|
|
IF result = 0 THEN WriteConfigSetting "'[ANDROID MENU]", "IDE_AndroidMakeScript$", "programs\android\start_android.bat"
|
|
IF result = 0 THEN WriteConfigSetting "'[ANDROID MENU]", "IDE_AndroidMakeScript$", "programs\android\start_android.bat"
|
|
|
|
|
|
GOTO SkipCheckConfigFileExists
|
|
CheckConfigFileExists:
|
|
IF _FILEEXISTS(ConfigFile$) = 0 THEN
|
|
'There's no config file in the folder. Let's make one for future use.
|
|
IF ConfigFile$ = "internal/config.txt" THEN 'It's the main file which we use for default/global settings
|
|
WriteConfigSetting "'[CONFIG VERSION]", "ConfigVersion", "1"
|
|
WriteConfigSetting "'[ANDROID MENU]", "IDE_AndroidMakeScript$", "programs\android\start_android.bat"
|
|
WriteConfigSetting "'[ANDROID MENU]", "IDE_AndroidStartScript$", "programs\android\start_android.bat"
|
|
WriteConfigSetting "'[ANDROID MENU]", "IDE_AndroidMenu", "FALSE"
|
|
IF INSTR(_OS$, "WIN") THEN WriteConfigSetting "'[GENERAL SETTINGS]", "AllowIndependentSettings", "FALSE"
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "BackupSize", "100 'in MB"
|
|
WriteConfigSetting "'[GENERAL SETTINGS]", "DebugInfo", "FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!"
|
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "SchemeID", "1"
|
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "BackgroundColor", "_RGB32(0,0,170)"
|
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "CommentColor", "_RGB32(85,255,255)"
|
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "MetaCommandColor", "_RGB32(85,255,85)"
|
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "QuoteColor", "_RGB32(255,255,85)"
|
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "TextColor", "_RGB32(255,255,255)"
|
|
IF INSTR(_OS$, "WIN") THEN
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoPosition", "TRUE"
|
|
END IF
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Width", "80"
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", "25"
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_IndentSize", "4"
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoIndent", "TRUE"
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoFormat", "TRUE"
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFontSize", "21"
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFont$", "c:\windows\fonts\lucon.ttf"
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFont", "FALSE"
|
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CodePage", "0"
|
|
WriteConfigSetting "'[MOUSE SETTINGS]", "SwapMouseButton", "FALSE"
|
|
ELSE
|
|
'use the main config file as the default values and just copy it over to the new file
|
|
f = FREEFILE
|
|
OPEN "internal/config.txt" FOR BINARY AS #f
|
|
L = LOF(f): temp$ = SPACE$(L)
|
|
GET #f, 1, temp$
|
|
CLOSE #f
|
|
OPEN ConfigFile$ FOR BINARY AS #f
|
|
PUT #f, 1, temp$
|
|
CLOSE #f
|
|
END IF
|
|
END IF
|
|
RETURN
|
|
SkipCheckConfigFileExists:
|
|
END IF
|
|
|