#--- ObeyMode; StrongED ModeFile for Obey files
#    StrongED$FoldParm1 = ("#-",,Startofline)
# -- History -----------------------------------------------------------------
# 16.06.97 DW First version by D.Wagner
# 04.11.98 GV Trimmed the set of reserved words and translated to english
# 19.01.99 GV Added ADFS:: SCSI:: RAM:: to the list of reserved words
# 02.07.00 JW Added IDEFS:: IZipFS::
# ----------------------------------------------------------------------------

#--- ID-Definition

ID_FirstChar    A-Za-z_
ID_Middle	A-Za-z_0-9/~+\-:?%@#$!


#--- Search

Search
	SysAllowed	{'A-Za-z_0-9./~+\-:;?@=&%'}+
	Pathname	"<" SysAllowed "$dir>" [SysAllowed]
	SysVar		{'A-Za-z_0-9./~+\-:;?@=&%'}+ "$" {'A-Za-z_0-9./~+\-:;?@=&%'}+
	SysVarDir	SysAllowed "$dir"
End

#--- Clicklist
#    Note: Pathname is checked in both lists, because when using filer_run the
#    filer checks if shift is down to decide what to do. (ie shift-dclick on
#    a pathname to load file into StrongED, noshift will run it instead.)

ClickList select2
	Pathname	Run ("filer_run <tmp$word>") 
	SysVarDir	Run ("filer_opendir |<<tmp$word>>")
end

ClickList s-Select2
	Pathname	Run ("filer_run <tmp$word>") 
	SysVar		Run ("Error 0 Variable \"<tmp$word>\" value: |<<tmp$word>> ")
end

#--- SyntaxOptions

SyntaxOptions
	SingleQuote	Yes
	DoubleQuote	Yes
	QuoteQuote	Yes
	SplitString	No
End

SyntaxComment 1
	Type		Oneline
	StartWith	|
End

#--- Obey-Commands
#    (Only a minimal set, so the data structure doesn't get too big)

SyntaxWords Group1 nocase EndNonId
	Set UnSet RMEnsure RMLoad Run IconSprites WimpSlot Alias UnAlias
	BASIC BASIC64 taskwindow Obey Obey2
#	Access AddMap AddTinyDir Alphabet Alphabets Append
#	Audio Back BackDrop Backup Basic Basic64 BlankTime BreakClr
#	BreakList BreakSet Build Bye Cache Cat CDir 
#	ChangeDynamicArea ChannelVoice CheckMap Close Compact Configure
#	Continue Copy CopyBoot Count Create Debug
#	Defect Delete Desktop Dir Dismount DosMap
#	Drive Dump Echo EnumDir Error Ex Exec FileInfo
#	Filer_Action Filer_Boot Filer_CloseDir Filer_OpenDir Filer_Run
#	Filters FontCat FontINstall FontLibrary FontList FontRemove
#	Format Free FS FSLock_ChangePassword FSLock_Lock FSLock_Status
#	FSLock_Unlock FX Go GOS Help
#	Iconsprites Ignore InetInfo InetConfig Info Initstore Key
#	Keyboard LCat LEx Lib List ListPS Load LoadFontCache
#	LoadModeFile Logon
#	Map Memory MemoryA MemoryI ModelList Modules Mount NameDis Net NetMap
#	NetStat NetProbe NoDir NoLib NoUrd
#	Obey Obey2 Opt
#	Pass Pin Pinboard PipeCopy PoduleLoad Podules PoduleSave Pointer
#	Print PS
#	QSound Quit
#	Ram Remove RemoveTinyDir Rename RMClear RMEnsure RMFaster
#	RMInsert RMKill RMLoad RMReInit RMRun RMTidy ROMModules Run
#	Save SaveFontCache sChose SCopy Screenload ScreenSave SCSI SDelete
#	SDisc Set SetEval SetMacro SetPS Settype SFlipX SFlipY SGET Shadow
#	ShellCLI
#	ShellCLI_Task ShellCLI_TaskQuit show showfree showregs shut shutdown
#	sinfo
#	slist sload smerge snew sound speaker spool spoolon srename ssave
#	stamp
#	status stereo
#	taskwindow tempo territories time toolsprites tuning tv type
#	unplug unset up urd
#	verify voices volume vrmload vrmrun
#	wimpkillsprite wimpmode wimppalette wimpslot wimptask wimpwritedir
#	wipe
End

# Colouring pathnames; <xx$dir > .xxxx .xxxx .xxxx
# All these bits will be coloured in the same colour, and look like one.

SyntaxWords Group4 nocase endofid
	< > .  ADFS:: SCSI:: RAM:: IDEFS:: IZipFS::
end

# Command options; -xxxx

SyntaxWords Group5 nocase endofid
	-
end


#    Obey-Struktur

SyntaxWords Group2 nocase EndNonId
	IF THEN ELSE EVAL AND OR NOT
END
