' ***********************
' EVAS ENGINES TEST COMMAND LINE 1 - Alex = modded by vovchik
' ---added SUB to remove a USEC macro bigbass
' latest rev March 24 ,2014
' ***********************
' ***********************
' COMPILER DIRECTIVES
' ***********************
'old way bacon 2.4.0
'PRAGMA LDFLAGS `pkg-config --cflags --libs evas ecore ecore-evas,eina`
'PRAGMA INCLUDE ecore-1/Ecore.h
'PRAGMA INCLUDE ecore-1/Ecore_Evas.h
'PRAGMA INCLUDE edje-1/Edje.h
' 2.5.5 scheme for bacon beta and above a new standard Alex
PRAGMA LDFLAGS `pkg-config --libs evas ecore ecore-evas`
PRAGMA OPTIONS `pkg-config --cflags evas ecore ecore-evas`
PRAGMA INCLUDE ecore-1/Ecore.h ecore-1/Ecore_Evas.h edje-1/Edje.h
' ***********************
' END EXTERNAL FUNCTIONS
' ***********************
DECLARE *engines TYPE Eina_List
DECLARE *l TYPE Eina_List
DECLARE data TYPE char *
PROTO ecore_evas_init
PROTO elm_init
'---added SUB bigbass
PROTO ecore_evas_engines_get
PROTO eina_list_data_get
PROTO eina_list_next
PROTO ecore_evas_engines_free
'============================
SUB FOR_EACH_BACONIZED
'============================
'---simulate macro EINA_LIST_FOREACH to remove USEC
engines = ecore_evas_engines_get()
data = eina_list_data_get(engines)
PRINT "First in list : ", data FORMAT "%s%s\n"
'--- manually step to the next in the list
l = eina_list_next(engines)
data = eina_list_data_get(l)
PRINT "Manual next : ", data FORMAT "%s%s\n"
WHILE ( data != NULL )
l = eina_list_next(l)
data = eina_list_data_get(l)
PRINT "Next in the list : ", data FORMAT "%s%s\n"
WEND
'--- memory cleanup
ecore_evas_engines_free(engines)
ENDSUB
'---MAIN
ecore_evas_init()
'--- call subroutine
FOR_EACH_BACONIZED
' EVAS ENGINES TEST COMMAND LINE 1 - Alex = modded by vovchik
' ---added SUB to remove a USEC macro bigbass
' latest rev March 24 ,2014
' ***********************
' ***********************
' COMPILER DIRECTIVES
' ***********************
'old way bacon 2.4.0
'PRAGMA LDFLAGS `pkg-config --cflags --libs evas ecore ecore-evas,eina`
'PRAGMA INCLUDE ecore-1/Ecore.h
'PRAGMA INCLUDE ecore-1/Ecore_Evas.h
'PRAGMA INCLUDE edje-1/Edje.h
' 2.5.5 scheme for bacon beta and above a new standard Alex
PRAGMA LDFLAGS `pkg-config --libs evas ecore ecore-evas`
PRAGMA OPTIONS `pkg-config --cflags evas ecore ecore-evas`
PRAGMA INCLUDE ecore-1/Ecore.h ecore-1/Ecore_Evas.h edje-1/Edje.h
' ***********************
' END EXTERNAL FUNCTIONS
' ***********************
DECLARE *engines TYPE Eina_List
DECLARE *l TYPE Eina_List
DECLARE data TYPE char *
PROTO ecore_evas_init
PROTO elm_init
'---added SUB bigbass
PROTO ecore_evas_engines_get
PROTO eina_list_data_get
PROTO eina_list_next
PROTO ecore_evas_engines_free
'============================
SUB FOR_EACH_BACONIZED
'============================
'---simulate macro EINA_LIST_FOREACH to remove USEC
engines = ecore_evas_engines_get()
data = eina_list_data_get(engines)
PRINT "First in list : ", data FORMAT "%s%s\n"
'--- manually step to the next in the list
l = eina_list_next(engines)
data = eina_list_data_get(l)
PRINT "Manual next : ", data FORMAT "%s%s\n"
WHILE ( data != NULL )
l = eina_list_next(l)
data = eina_list_data_get(l)
PRINT "Next in the list : ", data FORMAT "%s%s\n"
WEND
'--- memory cleanup
ecore_evas_engines_free(engines)
ENDSUB
'---MAIN
ecore_evas_init()
'--- call subroutine
FOR_EACH_BACONIZED