[uBasic:] c++~~~~ ?" ^Enter next Level!^ ~~~~"

[Caefix]

~~~~~~~~~~~~~~~~~ C für Touristen ~~~~~~~~~~~~~~~~~~~
Gibt´s was Spannenderes als ein '}' in der falschen Zeile?
Dann für mutige Selbstcompilierer zum Spielen, Testen, Mitmachen...

download/file.php?id=2890
http://downloads.chdk-treff.de/tools/gcc493-host481.7z

[rudi]

~~~~~~~~~~~~~~~~~ C für Touristen ~~~~~~~~~~~~~~~~~~~
Gibt´s was Spannenderes als ein '}' in der falschen Zeile?
Dann für mutige Selbstcompilierer zum Spielen, Testen, Mitmachen...

... und ein weiterer Beitrag von Caefix ohne jegliche Beschreibung von Sinn und Zweck. Downloads ohne Hinweis auf eine Relevanz und Inhalt.

Einen Bezug zu uBasic und C++ kann ich nicht herstellen. Bitte keine undokumentierten Downloads und Skripte einstellen.

Sinnvoll für die Gemeinschaft ist auch eine Beschreibung von Einrichtung und Verwendung der CHDK-GCC-Toolchain.

rudi

[Caefix]

Ach ja, für die Jugend braucht´s einen Trailer.
&& Danke, Rudi, das Wichtigste steht jetzt 2* da.

Der Umschlag soll ja vorerst nur einige Experten ansprechen.
Vielleicht müssen wir warten, bis sie aus dem Urlaub zurück sind.
Dann wäre ich wohl bald nicht mehr der Einzige mit einem todo:FAST? vollständig funkionierendem uBasic 2019 auf der Kamera.

Code: Alles auswählen

uBASIC by Adam Dunkels
http://www.sics.se/~adam/ubasic/

Pablo d'Angelo improved the parser to support labels and removed the line numbers.


Caefix improved the parser to support

9-stellige Zahlen
IgnoreCase  : If Wait_Click ELSEif etc.
Abkürzungen : wai.0, un.x, md_det., get_ori. etc. // >> 1. Treffer in kw->Liste (tokenizer.c) // avoid i.

Allg: on, off, true, false

   "?" = "print"
   "abs", "odd"
   "mod"= '%'
   "xor"= '^',
   "nor"= weder noch,
   "&&" = "and"
   "||" = "or"
   ++   a=a==1 // mancher Gewohnheit wegen... :)
   '!'= "not",
   "!=" = "<>"
   '´' = "beep"
   '.'.ein Bremserl, jeweils ein "sleep 50" Kürzel.
   "'".ein Bremserl, jeweils ein "sleep 1000" Kürzel.
   '~' = ein Separator zur Verbindung von Wünschen auf EINER Zeile.
// Now possible: if abs a!=3 then ..#a=33~#b=3~c=3~?a,b,#c else a=111 ~ b=222~ c=333 
   swap #a,#b;#c,#d;e,f
   
Ablauf:
   break | cont für do, for, while
   reset
   ++ calculated jump method: goto/gosub 100*i+x |0 = ignore
   ++ exit, wie goto ... + break all!
   ++ is_key|is_pressed K "up" 200+x ~...->> K=200+x

   loop= x : Reset & Neustart bei Fehler oder eof mit akuten Werten, solange <>0 // ++ loop=#@
   
   ++ Get_time 7|8+> Zeitstempel
   ++ hour,min,sec,msec,lsec : Laufzeit

Mathe wie C:
   i++, i+=x, i*=1000, i/=2, i%=10"+5ignored"*10 , i-- , &= , |= , ^=
   I?x:y == wenn I!=0, I=x sonst I=y // wenn I, rechne mit x sonst y
   
   ++ "\r" | "\\r" == while (abs(r)>9) {r=r/10;}; "\-4210"=-4
   ++ "=~" etwa-Operator: if X =~ 100;4 then ? "[96..104] == true"

   ++ # als Variablensignal. // #V wird nicht erst nach Textanalyse als V erkannt.

++   10  weitere Variablen, #0-#9 + ##  // #99=#9 ,immer mod 10
      bevorzugt als Vor-/Rückgabewerte zu nutzen mit/ siehe
   data [+5,|=5,]0,1,2,3,4,5,6,7,i*8,get_...
      oder [ [?+>][data+>]let] Makro hinter
      break, cont für do{once}, for{once}, while, goto, gosub, return, exit, restore  // auch:
   let I=1,i=2,c++,...
                    // return +5,0,i+x,get_orientation_sensor -> #5,#6,...=0,...
                    // ...then break ?i,"broken!". #4,#2 let i=1,x=42
   clean [m [D]] // setzt Bereich ab m[..D]=0, alle=0 ohne Param.

data 0,1,2,3,4,5,6,7,8,9
?#0,#1,#2,#3,#4,#5,#6,#7,#8,#9
0 1 2 3 4 5 6 7 8 9
data =5,0,1,2,3,4,5,6,7,8,99,10,11
?#0,#1,#2,#3,#4,#5,#6,#7,#8,#9,##
5 6 7 8 99 10 11 7 8 9 99
data +5,0,1,2,3,42,5,6,7,8,=
?#0,#1,#2,#3,#4,#5,#6,#7,#8,#9,##
5 6 7 8 99 0 1 2 3 42 42
   
*( <--
Comments: Multi~/InLine '{'...'}', man kann aber hineinspringen, wenn '{' nicht Zeilenanfang.
   ++ -- ignores Lua Commentline //
   ++ // ignores C Commentline  // (ganze Zeile)
   ++ "printed Commentline"    //
   ++ i%=10"+5ignored"*10
   ++ ... then exec skiptotodo else {todo...
*) <--
Logging: print : Aus '^' wird '"'.zu ',;' ++ ':'= \n '.'=endof?

Debugging: tron, tronly, troff, beep, bug, debug [0-2]
   list prefix: list ~ "Zeile" = print+do
   varlist ["comment"]
++  Fehlerzeile
   
++   Alter exit_alt & enter_alt Fehler im '_statement': erledigt.

++ "shoot ~" : rawproof ??, // wartet bis Dateien geschlossen sind.
++ Glättung interner Abläufe (Schleifen/ Sprünge). , Zeilenende sychronisiert.

++ C Code allgemein leichter lesbar ( && ergänzbar :)

!! Der neue Parser entdeckt ein paar alte Syntaxfehler neu.
!! is_key & is_pressed
 do
 ?Wai. 1000
  K=0 @ !! How about that ?  Caefix
  is_key K "up" 100*"." ~? "up",".",K
  is_key K "set" 100*"." ~? "set",".",K
  is_pr. K "down" 100*"." ~? "down",".",K
  is_key K "left" 100*"."  ~? "left",".",K
  is_key K "right" 100*"." ~? "right",".",K
  is_key K "menu" 100*"." ~? "menu",".",K
  is_key K "shoot_half" 100*"." ~? "shoot_half",".",K
 #K?#K:42   
 until K!=42
 ?K~'goto K*10
  ?bug,"------ K=0;",x,bug
 10*K ~ print "KeyNr.";K. ~.click K/100~''
++
++ >> besonders (lange Skripte) können beschleunigt werden:
-gosub ">init" // >go_fwd!
...
@ jedes until, wend, next x, goto liest ab (jetzt) unter @paramblock einige kb leer.
@ >> Signalzeichen am Zeilenanfang : ? # - @
@ spart uBasic u.U. tausende interne Schritte, Zeit für z.B. md_det. im AutoModus?...

:>init
?"..."
#a=..
#b=..
-do...
  -if ...
-  set_...
-until...//
-return




{!! Zw. wait_click & if is_key SLEEP(11) oder print. <- Ein paar flag_yield gesetzt & weitergereicht, passt.}

"Sinnvoll für die Gemeinschaft ist auch eine Beschreibung von Einrichtung und Verwendung der CHDK-GCC-Toolchain."
Gewiss, was ist das? Caefix.

:...i....1....;....2....;....3....;....4.. { Npp++ Tip: Einstellungen-> Stile -> Default -> Deep Black | Black Board } :...i....1....;....2....;....3....;....4..

Code: Alles auswählen

@title execdemo
@chdk_version 1.4
@subtitle :...i....1....;....2....;....3....;....4..
@param    x Wert
 @default x 3
@param    a ab Test
 @range   a -11 11
 @default a 0
@param    q Modus nofu
 @range   q 1 75
 @default q 2
@param    u Extended Echo/Logging
 @default u 1
 @range   u 0 1
@param    l Log:
 @default l -23
@param    T Tron
 @default T 0
 @range   T 0 1
 
 debug=u
 if T tron
 pri.l
 
 for i=1 to x>0
  if x=1 then q++~? "eins" elseif x=2 then q++~? "zwei" elseif x=3 then q++~? "drei" else q++~? "viele"
 next i
  goto 10*a
  ?bug,"-----------",x,bug
 
data 0,1,2,3,4,5,6,7,8,9
?#0,#1,#2,#3,#4,#5,#6,#7,#8,#9
data +5,0,1,2,3,4,5,6,7,8,9
?#0,#1,#2,#3,#4,#5,#6,#7,#8,#9,##
data =5,0,1,2,3,4,5,6,7,8,9
?#0,#1,#2,#3,#4,#5,#6,#7,#8,#9,##
wait_click 0
pla. 1

  ?bug,"-----------",x,bug
10 do
 if x=1 exec {
  ?x,x=1,bug ~EXIT 20
  } elseif x=2 exec {
  ?x,x=2,bug ~break
  } elseIf x=3 exec {
  ?x,x=3,bug ~break
  } elseif x=4 exec {
  ?x,x=4,bug ~break
  } elseif x=5 exec {
  ?x,x=5,bug ~break
  } elseif x=6 exec {
  ?x,x=6,bug  ~break
  } elseif x=7 exec {
  ?x,x=7,bug
  } elseif x=8 exec {
  ?x,x=8,bug
  } elseif x=9 exec {
  ?x,x=9,bug
  } elseif x>9 exec {
  ?x,"x>9",bug
  } elseif x=0 exec {
  ?x,"x=0",bug ~break
  } else ?x,"x<0",bug,"break else!"
  until O=O
  ?bug,"-----------",x,bug
@  } elseif x<0 exec {
@  ?x,"x<0",bug
20
do
 if x=1 then
 exec {
  ?x,bug,x=1
  } else if x=2 exec {
  ?x,bug,x=2 ~exit 30
  } else if x=3 exec {
  ?x,bug,x=3 ~break
  } else if x=4 exec {
  ?x,bug,x=4 ~break
  } else if x=5 exec {
  ?x,bug,x=5 ~break
  } else if x=6 exec {
  ?x,bug,x=6
  } else if x=7 exec {
  ?x,bug,x=7
  } else if x=8 exec {
  ?x,bug,x=8
  } else if x=9 exec {
  ?x,bug,x=9
  } else if x=0 exec {
  ?x,bug,x=9
  } else if x>9 exec {
  ?x,bug,"x>9"
  } else if x=0 exec {
  ?x,"x=0",bug
@  } else if x<0 exec {
@  ?x,"x<0",bug
  } else ?x,"x<0",bug,"break else !"
until O=O
endif
30
  ?bug,"-----------",x,bug
 do
 ?Wai. 1000
  K=0 @ !! How about that ?  Caefix
  is_key K "up" 100*"." ~? "up",".",K
  is_key K "set" 100*"." ~? "set",".",K
  is_pr. K "down" 100*"." ~? "down",".",K
  is_key K "left" 100*"."  ~? "left",".",K
  is_key K "right" 100*"." ~? "right",".",K
  is_key K "menu" 100*"." ~? "menu",".",K
  is_key K "shoot_half" 100*"." ~? "shoot_half",".",K
 #K?#K:42   
 until K!=42
 ?K~'goto K*10
  ?bug,"------ K=0;",x,bug
 10*K ~ print "KeyNr.";K. ~.click K/100~''
  ?bug,"-----------",x,bug
  90
  end


[Caefix]

Hier ist noch ein gui_script.c mit ubas_done bit für ../trunk-xxxx/core
So wie der @param Block in LUA mit "--]]" beendet wird, kann man für dieses uBasic "@@" schreiben.
So vermeidet man eine gelegentliche Parserkollision bei '#x=' am Zeilenanfang.

motion_detector.c für ../trunk-xxxx/modules kennt sogar 2 neue bits.
md_detect_motion a,b,1,d,e,f,G, h ,i,j,k,j+(a%2=0)-(a=2),k+(b%2=0)-(b=2), N ,o,p

MD_DO_IMMEDIATE_SHOOT {[n=1,9]}, were triggered if one cell hit.
Now two lines containing MD_AT_ONCE {(N=16,17,25)} break the for loops to save milliseconds between
first hit in field "2x5" and calculating on until '10*10'.
The return value is adjusted to idx ("2x5").
N=25 verwendet 'shoot_full_only'.

G=5,6,7 : draw_grid & 4 -->> nur die getriggerten Felder, meist rot, werden gezeichnet.

Noch ein kleines Extra, aber auf 4 Dateien verteilt (Gui-menu.zip):
"@range VAR MIN MAX [step]"

Die Reihenfolge muß übrigens @param @default @range sein...

Code: Alles auswählen

@param    q Modus nofu
 @default q 2
 @range   q 1 98 16
@param    Q Modus nOfu
 @range   Q 1 98 16
 @default Q 2


Viel Spaß mit CHDK!

[Caefix]

++ Einige Vokabeln aus shooting.c & Luascript.c
get_eff_focal_length
get_imager_active
get_nd_current_ev96
get_nd_value_ev96
get_current_av96
get_current_tv96*
get_max_av96
get_min_av96
peek & poke

++ macros in Print: ?=?:=!:=/;"/";=.:
==>>
sx710hs-101a-CHDK_DE-1.5.0-5324
A/DCIM/173___12/Img_0506
:---=----=--+-=----=----

++ Hex lesen x=0xffFF & schreiben ?=%x,"=",x
++ 'to'='..'
++ Bereichs- & Mengenoperator 'in' : if x in 1,3,5... or x in 7..42 ...
++ get_aflock()
++ ifkey 1-| 0 |1 :: 1:is_pressed == if_key | -1:if_key == is_pressed
++
...
-- ??
how to do usb_warm_up_coffee_statement ??

[Caefix]

++ get_metering_mode()
++ set_metering_mode()
++ get_wheel() // -1=links, 1=rechts
++ if wheel_left & until wheel_right

// #5560
++ echo, wie print ohne print_screen, nur Konsole.
++ get_af_frame
+? set_af_frame // ?? Firmware Limit
++ mem_dump 0xaddr,size

// #5564
++ CPUbasic hat eine neue Dateifunktion: write
Was 'echo' nur auf die Konsole bzw 'print' auf die Konsole und in LOG_xxxx.TXT schreiben würde,
kann man mit 'write ...' oder 'write =, ...' an Log_xxxx.Log anhängen; (... & nur, wenn auch print_screen <>0.)
Oder mit 'write ="A/blafasel.log", ...' anderswo.
Wenn der Dateiname ungültig ist, werden die Zeilen in "A/uBerror.Log" gesammelt.
write ... schreibt weiter in die so definierte Datei.

+++ Debugging, etwa Schreibfehler wie 'XX='
++ Meldungen, zB:
112-> Expected 3, got 12 // In Zeile 112 wurde eine Variable erwartet, aber ')' gelesen (Siehe tokenizer.h)

Neu in Lua seit Release ~5550, drum auch in CPUbasic.
++ get_canon_raw_support
// return current canon image format as bitmask 1 = jpg, 2 = raw, 3 = raw+jpg
++ get_canon_image_format
++ set_canon_image_format

// #5570
// Extrem Debuuging only!!: (uBasic & Lua)
++ exception() // Schaltet die Kamera 100%ig aus und verursacht (hoffentlich) in ~20sec ein Romlog. (--> Romlog.lua)

[Caefix]

// #6503
ubasic ++ << & >> wie C.
Seit Beginn viele Syntax- & Strukturvereinfachungen für an Lua & C Gewöhnte...


Kleine Anpassungen für EOS-M Kameras:
shooting.c braucht es nur dafür, um ein paar Lücken (get_zoom, get_focus, ...) zu schließen.
--[[get_focus ist derzeit ein 'short', sollte mal ein 'int' werden; Noch nicht optimal, "Ist in Arbeit...", aber besser als "0".
Eher Fokus-Positionen, keine metrischen Werte. (Teils erledigt, hängt vom Objektiv ab...)]]--

set_zoom_rel(1) bzw. (101), wenn "m3_101a" Am Anfang eines Skripts setzt derzeit eine spezifische Variable, die noch nicht anders zugänglich ist.

// #6505
++ modules/gui_read.c -- Mit differenzierteren Tasten, sanftes Zurück mit 'left' & 'up'. Prinzipbedingt geht´s nicht besser.

// #6506 shooting.c etc. für portierte EOS_M:
https://chdk.setepontos.com/index.php?t ... #msg144440

// #5616
Option für "neuere" Kameras, die "neuesten" Compilerwarnings...
https://chdk.setepontos.com/index.php?t ... #msg144518

[Caefix]

// #5630

++ nand // if a<>0 and b==0 ==>> if a nand b
++ shift[1[,5]] // wie Abakus in Batchfiles: data 0,11,22,33...99 setzt die Argumente %0..%9
++ is = '='


// #5642-45

!! Wer schon mal "print hour,min,sec" gescriptet hat, muß jetzt zu 'minute' ergänzen.
++ min a,b[,c,...][;] nimmt jetzt den kleinsten Wert aus einer Reihe,
++ max ... den größten.
Z.B. x=(min a,b,c)+y oder x=max a,b,c;/2


// #5670-80
!! Wer mit einer der älteren Versionen weitermachen mochte, muß ab hier diesen Schnipsel einfügen.

Code: Alles auswählen

case TOKENIZER_ENTER_ALT:
      accept(token);
      enter_alt(1);
      accept_cr();
      break;

++ odd x // x ungerade?
++ even x // x gerade?

// #5678
Official Luascript.c hat ein paar interne Änderungen für den Compiler erfahren. Hier ist die JogdialVersion daran angeglichen.

// #5681
Ubasic auf dem Laufenden...

// #5681_2
Die übrigen Goodies gesammelt, easy dropIn..

// #5695
++ _... print x, _ignore, y _comment +z --> = ?x,y+z
++ select ... end_select ... kleine Korrektur, anstatt "case_else #a=#a".
++ begin internes Lesezeichen, obere Zeilen & :labels abgeschnitten, zur Optimierung der Sprünge u. Schleifen.

[Caefix]

Code: Alles auswählen

@param    R Readmode
 @default R 0
 @range   R 0 1
@subtitle :...,....2..+.,....3....;....4....

R=R
if R then Worums geht.
:BEGIN
play_sound(0)
?=*:=?:=!:=/;"/";=.:
set_console_layout 0
   rem  PlaceYourProgHere
end


// #5728

Was man als Textdatei lädt und nicht .LUA heißt, wird dem Ubasic-Interpreter überlassen.
Wenn die 1. Zeile falsch ist, ist es kein Ubasic, merkt er gleich.
Anstatt abzubrechen, wird er nun zum alternativen Reader mit Stopuhr.
// Limits: 127 Zeichen, 0xffff Zeilen, Speicher, kein 'Whitespace',...

Man kann auch per "display z[,L]" vom Skript zum Reader wechseln.
"display" funktioniert wie "goto", springt zum :label und zeigt L Zeilen an.
<menu> setzt das Programm fort, indem von da abwärts nach :BEGIN gesucht wird.
Wenn nicht da, dann von vorne, wenn nicht da, dann geht´s da weiter,
wo man die Zeile platziert hat.
Sehr praktisch, wenn man jeden Fehler mal gemacht haben will...

Oder man lädt ein Skript mit den oberen Zeilen zum Lesen und startet mit <menu>

++ Logik: (A ^^ B) entweder oder, !A, !& nand, !| nor, !=
++ uns X // X = (unsigned short) X
++ multiline elseif
++ print 1;,2 -->> 1,2 statt print 1;",";2
++ strlen Länge der letzten print|write|echo|strlen ... Zeile.
++ Die 62+2 Variablen auch als Feld: #(0)=a, #(26)=A
...
++ get_time "s" | "m" | "h" | "Y" | "M" | "D" ...
...
++ motion_detector a=400, b=1, C=7,... oder 20,20,7,... zum experimentellen Beobachten & Vergleichen der Props, im AutoMode sehr bunt...

// #5729 (Vorschau wg. falsches Fenster editiert...)
Ulkig: gcc 10.x hat eine neue Zeile reklamiert, die sonst funkioniert hat. Keine wichtige, und anders gelöst (->tokenizer.h) ...
++ get_time ("s") ...

// #5732 ...md_detect mit Anwendung

// #5735 ... tuned the fiddle

// #5736
++ ?=*:=; Weitere Printkürzel zum Loggen von @title =* u. dem 1. @subtitle.

[Caefix]

++ https://app.assembla.com/spaces/chdk/su ... mmits/5792

++ do = repeat
++ click("set") etc.
Als weitere Vereinfachung der Syntaxdetails zu Lua. (Easy c&p)
if is_pressed("up") and get_shooting() ~= false then x=x end könnte jetzt auch eine ubasic Zeile sein...

+++ MAKEFILE etc. für einen 2. Ubasic Ordner namens xbasic. Nun können Interessierte immer 2 Versionen zusammen kompilieren und in der Kamera mit xuBaswap.lua tauschen.
Die aktive Version ist immer ubasic.flt!

Weitere bewährte Dateien sind gleich mitgezippt, zur Enlastung der Maus...