Dryos Basic scripting

Microfunguy

Good work !

Of course, it would be useful to have some idea of how to find these magic numbers 😀

reyalp

@ewavr Nice.
Any idea how to run script in rec mode ? With that, we could make an intervalometer and some other stuff for cameras without CHDK ports.

Other random thoughts:
Would be really useful is being able to detect if an eventproc is registered without ASSERTing. I tried if func = 0 but that was no good.

How does autotest.m work ? I was hoping it would start automatically (without requiring SET) but haven't been able to get it to run at all. I think it should run without being in factory mode, but I might be mistaken.

CHDKLover

@ewavr Your method works fine on my a610 (VxWorks)! I use the magic value 0x18D for printing text and 0x65 for switch back to preview. ControlViewEvent(0x64,0) shows the current language.

Driver_EnableEventProc() seems equivalent to Driver.Create(). After this I can use LEDDrive(<ID>,<0|1>) and BeepTest() on my a610. Another interesting function is GetLogToFile("A/romlog.txt",1).

It is possible to use PT_* (Product Test) functions? I had use RegisterProductTestEvent() to register these functions but PT_itoa(<value>) doesn't work.

Edit: Another solution (to find the magic value for printing text):

    SystemEventInit()
    UI_RegistDebugEventProc()
    for a=0 to 512
        sprintf(s,"%X",a)
        ControlViewEvent(a,s)
    next

CHDKLover

ewavr

CHDKLover
but PT_itoa(<value>) doesn't work.

PT_itoa() is not found in a710, but PT_atoi() works.

reyalp

CHDKLover
It is possible to use PT_* (Product Test) functions? I had use RegisterProductTestEvent() to register these functions but PT_itoa(<value>) doesn't work.

I've used PT_* functions with RegisterProductTestEvent() from lua eventproc calls. For example PT_Playsound() works as expected.

ewavr

reyalp
Any idea how to run script in rec mode ?

Unfortunately no.

Other random thoughts:
Would be really useful is being able to detect if an eventproc is registered without ASSERTing. I tried if func = 0 but that was no good.

On a710 if eventproc is not registered, nothing happens (no assert).

edit: How about :
a=ExecuteEventProcedure("LEDDrive",8,2)
it returns 1, if procedure is found and -1 if not found.

It seems that on a710 terminate() (or Terminate()) fuction is never called.

zumbido

ewavr

CHDKLover
but PT_itoa(<value>) doesn't work.

PT_itoa() is not found in a710, but PT_atoi() works.

Not unusual. atoi is in the ANSI standard, itoa isn't. itoa and other non-standard extensions are very often left out when minimizing the libraries is an important concern.

CHDKLover

Thanks, all right.
It was my mistake.

CHDKLover

RaduP

For itoa() you can just use sprintf, so not a big deal 😀
BTW, very, very impressive work with the scripting, I think this might open a whole new world of possibilities.

pixeldoc2000

CHDKLover
Driver_EnableEventProc() seems equivalent to Driver.Create(). After this I can use LEDDrive(<ID>,<0|1>) and BeepTest() on my a610. Another interesting function is GetLogToFile("A/romlog.txt",1).

I've tested GetLogToFile on SD4000. I can get last Error from Camera ROM Log with this:

extend.m

private sub Initialize()
  UI.CreatePublic()
  a=LCDMsg_Create()
  LCDMsg_SetStr(a,"Get ROM Log to file")
  System.Create()
  Driver.Create()
  GetLogToFile("A/romlog.txt",1)
  LCDMsg_SetStr(a,"done")
end sub

This can be usefully for porting but also for debugging Canon Basic Scripts themself.

I've tested the script above without System.Create() and camera did save assert to Camera Rom Log and shutdown because we first need to call System.Create() before Driver.Create() to use GetLogToFile().

After that, i startet the above script with System.Create() and got this romlog:

romlog.txt

ASSERT!! EvntProc.c Line 221
Occured Time  2010:08:25 20:32:30
Task ID: 14811165
Task name: CtrlSrv
SP: 0x00387C78
StackDump:
0x00000000
0xFF88BAEC
0x000000DD
0x00002F44
0x00387CBC
0x00000000
0x00387CD4
0x00000001
0x00000000
0x0000082A
0x0000083C
0xFF88BA1C
0x00002F58
0x00176F68
0x003D0EB4
0xFF97740C
0x003CE87C
0x003CE86C
0x00000001
0x00000000
0x00000000
0x00000000
0x00000000
0x00000000
0x00000000
0x00000000
0x00000000
0x00000000
0x0016E078
0x00176EF8
0x00000000
0xFF9BC854
0x00176EF8
0xFF888E30
0x00000070
0x00176EF8
0x00000860
0x00000000
0x20000000
0x00007DEC
0x00000000
0x00000862
0x0000082A
0xFF9BC594
0x00000000
0x001C7EA0
0x00003118
0x00000860
0x00000794
0x20000000
0x20000000
0x19980218
0x19980218
0xFF89309C
0x001C7EA0
0x00000001
0x00003118
0x00000860
0x00000794
0xFF8935A4
0x0003A478
0x00003100
0x19980218
0x19980218
0x19980218
0x19980218
0x19980218
0xFF892A78
0x0003A478
0x00372EE8
0x19980218
0xFF816AEC
0x19980218
0x19980218
0x00000808
ShootConDump:
0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 
CameraConDump:
07 0a 02 0f 0f 0f 0f 0f 0f 0f 
00000160: *** Camera Log Start ***

00000200: UI:LogicalEvent:0x5001:adr:0,Para:0

00000230: UI:LogicalEvent:0x5006:adr:0,Para:0

00000260: SS:S-Imag

00000260: UI:ScreenLock

00000260: UI:ScreenUnLock

00000260: UI:LogicalEvent:0x300a:adr:0,Para:0

00000270: UI:HDMIConnectCnt

00000270: UI😛B.Create

00000270: UI😁ispSwCon_TurnOnBackLight

00000270: UI:TurnOnBackLight

00000430: UI😁ispSwCon_MuteOffPhysicalScreen

00000430: UI:MuteOffPhysicalScreen

00000430: UI:LogicalEvent:0x3138:adr:0,Para:0

00000440: UI:LogicalEvent:0x112c:adr:0,Para:0

00000460: UI:ScreenLock

00000460: UI:ScreenUnLock

00000480: UI😛B.CreateE

00000480: UI:AC:StartPB

00000480: UI😁ispSwCon_TurnOnDisplayDevice

00000480: UI:AC:EBtn

00000480: UI😛B.Start

00000480: UI😁SIC:47,0

00000480: UI:CC_CompFlhJpg

00000480: UI:_CompFlhJpg

00000480: UI😛B.Flash

00000480: UI:ScreenLock

00000480: UI:LogicalEvent:0x321f:adr:0,Para:0

00000480: UI😁SIC:47,0

00000480: UI:ScreenUnLock

00000490: UI:LogicalEvent:0x320a:adr:0,Para:0

00001010: UI:ScreenLock

00001010: UI:ScreenUnLock

00001020: UI:LogicalEvent:0x3201:adr:0,Para:0

00001020: UI:ScreenLock

00001020: UI:ScreenUnLock

00001020: UI:ScreenLock

00001020: UI:ScreenUnLock

00001030: UI😛B.StartE

00001030: UI😛B.CTG

00001030: UI😛B.DPOF

00001030: UI😁SIC:48,0

00001040: UI😁ispSw: Unlock

00001040: UI😁ispSwCon:Unlock

00001040: UI😁ispSwCon_TurnOnBackLight

00001040: UI😁ispSwCon_MuteOffPhysicalScreen

00001040: UI:MuteOffPhysicalScreen

00001040: UI:AC:EnryPB

00001040: UI:AP:ChkCnctUSB              <------ Camera reguar startup ends here

00001720: UI:Button:0x0000089B:TouchRightButton        <-------- Set Button pressed to start cbasic script

00001820: UI:Button:0x00000860😛ressSetButton

00001940: UI:Button:0x00000861:UnpressSetButton

00001940: UI:Button:0x0000089C:UntouchRightButton

00001940: UI:ScreenLock

00001940: UI:ScreenUnLock

00001940: UI:ScreenLock

00001940: UI:ScreenUnLock

00001960: UI.CreatePublic           <------ cbasic script start

00001970: LCDMsg_Create          <------ LCDMsg_Create()

00001970: UI:ScreenLock

00001970: UI:ScreenUnLock

00001970: LCDMsg_SetStr        <------ LCDMsg_SetStr("Get ROM Log to file")

00001980: Driver.Create      <---- Here the assert happend because of missing System.Create() call before Driver.Create()

Edit: actually Driver.Create() is not needed as GetLogToFile() gets registered by System.Create() at least on SD4000.

new extend.m

private sub Initialize()
  UI.CreatePublic()
  a=LCDMsg_Create()
  LCDMsg_SetStr(a,"Get ROM Log to file")
  System.Create()
  GetLogToFile("A/romlog.txt",1)
  LCDMsg_SetStr(a,"done")
end sub

pixeldoc2000

Tested OpLog (OPERATION LOG) on SD4000.

extend.m

private sub Initialize()
    UI.CreatePublic()
    a=LCDMsg_Create()
    LCDMsg_SetStr(a,"OpLog")
    System.Create()
    OpLog.Create()
    OpLog.WriteToSD("A/oplog.txt",1)
    LCDMsg_SetStr(a,"done")
end sub

oplog.txt

#OPERATION LOG
#VERSION=0104
#COMMENT=
[OCCUR]
PRODUCT_ID= 31F7
TIME= 2010:08:25 23:49:40
DATALOST= 0
[START]
00000120,0x80000905,0,0x00410000,0x00000002,0x0000C000
00000120,0x80000909,0,0x00410000,0x00000002,0x0000C000
00000120,0x80000C00,0,0x00410000,0x00000002,0x0000C000
00000120,0xC0000700,0,0x00410000,0x00000002,0x0000C000
[DATA]
00000150,0x00000601,0,0x00410000,0x00000002,0x00008000
00001660,0x80001003,0,0x00410000,0x00000402,0x00008000
00001700,0x80000008,0,0x00410000,0x00000442,0x00008000
00001820,0x00000008,0,0x00410000,0x00000002,0x00008000
00001820,0x00001003,0,0x00410000,0x00000002,0x00008000

I'm not shure what this actually means.

pixeldoc2000

I've added Canon_Basic/Reference.

i've played around with LCDMsg. Maybe somebody could test Canon_Basic/Scripts/HelloWorld2 if LCDMsg_ChangeColor(a,3) Text Color setting is camera specific. If it's not camera specific, maybe scripts should do white text output.

reyalp

pixeldoc2000
I've added Canon_Basic/Reference.

i've played around with LCDMsg. Maybe somebody could test Canon_Basic/Scripts/HelloWorld2 if LCDMsg_ChangeColor(a,3) Text Color setting is camera specific. If it's not camera specific, maybe scripts should do white text output.

FWIW, this could equally be called Event Procedure reference. The problem is, there's a LOT of them, and they vary between OSes, OS version and camera.

It's not clear to me that we can usefully document them in wiki format. See also my list for A540. I was going to use this as the start of an event proc reference page, but I couldn't find any way to organize it that would fit all the permutations. It really seems more suited to a database of some kind. Edit: an alternative would be to give each one it's own page.

It's still a good idea to document the most common/interesting/useful ones, like LCDMsg, GetLogToFile etc.

All of these are also accessible from lua using the native call interface. e.g. http://chdk.wikia.com/wiki/LUA/Scripts:Standard/Test/Romlog or CHDK itself with ExecuteEventProcedure

CHDKLover

Hallo reyalp,
I've also generate a List of possible Canon Basic Functions based on my a610 (VxWorks).

Some differences:

Movie.HiCompressionRateMode
Movie.NormalCompressionRateMode
SS_PrintState
CreateLanguageMenu
DeleteLanguageMenu
ShowLanguageNameList
SaveLanguageNameList
RegisterLanguageName
LanguageMenu
SetUSBToDCPMode
RefreshUSBMode
SetUSBToPTPMode
DisableNotificationPTP
EnableNotificationPTP
NotifyConnectPictBridge
NotifyDisconnectPictBridge
InitializeDCPClassFunctions
TerminateDCPClassFunctions
CreateVcomUart
DeleteVcomUart
COMFACHK_StartService
COMFACHK_StopService
COMFACHK_StartSendData
COMFACHK_StartSendLargeData
COMFACHK_GetTransferTime
COMFACHK_SetSendDataSize
DPSitcher
StopDPService
StartDPService
CreateDPSwitchTask
StartCameraLog
ShowCameraLog
ShowCameraLogInfo
StopCameraLog
PutsCameraLogEvent
NewTaskShell
EngineDriver.Delete
TerminateDpofUI
StartPrintOrderMenu
StartTransferOrderMenu
InstallRecMenu
InstallPlayMenu
InstallSetupMenu
InstallMyCameraMenu
IsCalledStopEVF
PTPRspnd.ShowRemoteStg
EnableOBClampField
DisableOBClampField
taskcreate_ImageSensorTask
VirtualImageTimeOut
StoptDtConfirmMenu
StoptDtExecuteMenu
PTM_SaveCustomSetting
StartDpDpofPrinting
StartDpDpofStopReconfirm
StartDpsIdPhotoMenu
GetAdChValue
GetAdVBattBottom
BeepTest
SetZoomActuatorLimitAmpere
MoveIrisActuatorFullOpenEvent
MoveIrisActuatorFullCloseEvent
EnableIrisActuatorEvent
DisableIrisActuatorEvent
ResetIrisActuatorEvent
SetIrisGainRegisterEvent
MoveIrisWithAvAndSpeedWithoutBacklashEvent
MoveFocusLensWithPositionWithoutBacklash
CdsDrv.Create
CdsDrv.Create
CdsDrv.SetCdsCalibration
CdsDrv.ReloadCdsTable
CdsDrv.GetCdsOBForAdjustment
CdsDrv.SetCdsOBForAdjustment
CdsDrv.GetCdsGainForAdjustment
CdsDrv.SetCdsGainForAdjustment
CdsDrv.SetCdsGainApexForAdjustment
CdsDrv.SetCdsNormalMode
CdsDrv.SetCdsAdjustmentMode
CdsDrv.Delete
MaxTv
TgTool.Create
TgTool.Create
TgTool.Delete
TgTool.SetSubNumber
TgTool.GetSubNumber
TgTool.SetTgSubPosition
TgTool.GetTgCurrentSubPosition
TgTool.SetPhase
TgTool.ChangePhaseHi
TgTool.ChangePhaseLo
TgTool.GetPhase
TgTool.SetDuty
TgTool.ChangeDutyHi
TgTool.ChangeDutyLo
TgTool.GetDuty
TgTool.SetPhaseADLogical
TgTool.GetPhaseADLogical
TgTool.SetHDriverbility
TgTool.GetHDriverbility
TgTool.SetStbMode
TgTool.GetStbMode
TgTool.SetRegisterImage
TgTool.GetRegisterImage
TgTool.StartSmoothSubNumber
TgTool.StopSmoothSubNumber
TgTool.ImgTest.SetPhase
TgTool.ImgTest.GetPhase
TgTool.ImgTest.SetDuty
TgTool.ImgTest.GetDuty
TgTool.ImgTest.SetADDegree
TgTool.ImgTest.GetADDegree
TgTool.ImgTest.SetDriverbility
TgTool.ImgTest.GetDriverbility
PTPRspnd.StartUpPTPFrameworkClient
PTPRspnd.ShutDownPTPFrameworkClient
PTPRspnd.EnableStorage
PTPRspnd.EnableGetTreeInfo
PTPRspnd.ResetTable
SetNormalAdjTableWritingMode
SetFastAdjTableWritingMode
EraseFRomShadingArea
WRITESHADINGDATATOFROM
LoadDataFromAdjTableBin
LoadParamDataFromAdjTableBin
StartSoundPlay
FreeBufferForSoundRec
StartSoundRecord
TerminateSoundRec
InitializeSoundRec
GetZoomLensCurrent
PrePro.GetDarkSetUp
PrePro.SetDarkSetUp
PrePro.GetDarkSubSetUp
PrePro.SetDarkSubSetUp
PrePro.LiveImage
PrePro.Capture
PrePro.MemoryCrw
PrePro.HybridCrw

I can't post the full sorted list, because it's too long for this board.

CHDKLover

noiseIsFoo

I've got Hello World working on both my DryOS cameras (S90 and G9) but it doesn't run at all on the VxWorks cameras (G7 and Ixus 70). Any ideas on what's wrong?

I think the documentation is important and would happily add if I actually knew anything 😀 A repository of examples would be good too - I have the impression that people have done lots of things that aren't easy for the rest of us - did somebody say they'd done a Capture?

reyalp

noiseIsFoo
I've got Hello World working on both my DryOS cameras (S90 and G9) but it doesn't run at all on the VxWorks cameras (G7 and Ixus 70). Any ideas on what's wrong?

As mentioned in this thread, LCDMsg does not exist on (most ?) vxworks cams.

@CHDKLover
You can post on the wiki like I did if you want 😀

noiseIsFoo

OK that I understand, but I can't get any script, even just a BeepDrive, to run. It's not like there's a syntax error and shutdown, the scripts just don't run.

I suppose I could add the syntax for BeepDrive() - I know that pretty well by now 😀 Sadly it really is about all I know but I suppose one's got to start somewhere...

whoever

reyalp

noiseIsFoo
I've got Hello World working on both my DryOS cameras (S90 and G9) but it doesn't run at all on the VxWorks cameras (G7 and Ixus 70). Any ideas on what's wrong?

As mentioned in this thread, LCDMsg does not exist on (most ?) vxworks cams.

They do exist on later VxWorks cameras, Ixus 70 in particular. It is the *.Create functions that are missing. So, instead of UI.CreatePublic() and System.Create() use UI_RegistDebugEventProc() & SystemEventInit(), respectively.

reyalp

whoever

They do exist on later VxWorks cameras, Ixus 70 in particular. It is the *.Create functions that are missing. So, instead of UI.CreatePublic() and System.Create() use UI_RegistDebugEventProc() & SystemEventInit(), respectively.

Good to know. At least some of those older names used for vxworks are carried over into dryos as aliases for the new ones, e.g. on D10, the same function is called for both UI_RegistDebugEventProc and UI.Create

reyalp

reyalp
function syntax
[code]
private function twoplus(arg)
twoplus = arg + 2
end function

...
if twoplus(2) = 4 then
LCDMsg_SetStr(b, "twoplus(2) = 4")
end if
...
[/code]

It appears that "function" may not be fully functional. In my testing, the function keyword must be lower case (unlike other keywords), and "exit function" is not recognized.

you can return a value from a SUB by assigning to the name, so function would be redundant.

D10 / DryOS r31

« Previous Page Next Page »