OpenEuphoria

1. ECW problem, eubins-win-1212.zip

• Posted by axtens Oct 18, 2008
• 1000 views

G'day everyone,

Running that version of ECW against the BOUNE.EXW code that I've posted elsewhere gives the following:

P:\BOUNE>ecw -bor -dll boune.exw 
27 .c files were created. 
To build your .dll file, type: emake 
Warning ( resolution ): 
        w32msgs.e:329 - identifier 'upper' in 'wildcard.e' is not included 
Warning ( resolution ): 
        w32memory.ew:421 - identifier 'w32unpack_dword' in 'w32utils.e' is not included 

P:\BOUNE>emake 
compiling with BORLAND 
boune.c: 
main-.c: 
main-0.c: 
main-1.c: 
machine.c: 
dll.c: 
wildcard.c: 
misc.c: 
w32msgs.c: 
msgbox.c: 
w32def_series.c: 
series.c: 
Unicode.c: 
w32utils.c: 
w32uti_0.c: 
w32uti_1.c: 
sort.c: 
w32memory.c: 
w32mem_0y.c: 
w32mem_1y.c: 
w32mem_2y.c: 
w32mem_3y.c: 
w32mem_4y.c: 
variant.c: 
comerr.c: 
file.c: 
init-.c: 
Error E2225 init-.c 1216: Too many initializers 
Error E2141 init-.c 1216: Declaration syntax error 
Error E2190 init-.c 1216: Unexpected } 
Error E2190 init-.c 1216: Unexpected } 
Error E2040 init-.c 1216: Declaration terminated incorrectly 
Error E2190 init-.c 1394: Unexpected } 
Error E2190 init-.c 1394: Unexpected } 
*** 7 errors in Compile *** 
Could Not Find P:\BOUNE\*.tds 
you can now link with: boune.dll 

The C code between lines 1216 and 1394 is as follows:

struct routine_list _00[] = { 
  {"allocate", (int (*)())_2allocate, 8, -2, 1, 1, 6}, 
  {"free", (int (*)())_2free, 9, -2, 1, 1, 6}, 
  {"allocate_low", (int (*)())_2allocate_low, 10, -2, 1, 1, 6}, 
  {"free_low", (int (*)())_2free_low, 11, -2, 1, 1, 6}, 
  {"dos_interrupt", (int (*)())_2dos_interrupt, 12, -2, 2, 1, 6}, 
  {"int_to_bytes", (int (*)())_2int_to_bytes, 13, -2, 1, 1, 6}, 
  {"bytes_to_int", (int (*)())_2bytes_to_int, 14, -2, 1, 1, 6}, 
  {"int_to_bits", (int (*)())_2int_to_bits, 15, -2, 2, 1, 6}, 
  {"bits_to_int", (int (*)())_2bits_to_int, 16, -2, 1, 1, 6}, 
  {"set_rand", (int (*)())_2set_rand, 17, -2, 1, 1, 6}, 
  {"use_vesa", (int (*)())_2use_vesa, 18, -2, 1, 1, 6}, 
  {"crash_message", (int (*)())_2crash_message, 19, -2, 1, 1, 6}, 
  {"crash_file", (int (*)())_2crash_file, 20, -2, 1, 1, 6}, 
  {"crash_routine", (int (*)())_2crash_routine, 21, -2, 1, 1, 6}, 
  {"tick_rate", (int (*)())_2tick_rate, 22, -2, 1, 1, 6}, 
  {"get_vector", (int (*)())_2get_vector, 23, -2, 1, 1, 6}, 
  {"set_vector", (int (*)())_2set_vector, 24, -2, 2, 1, 6}, 
  {"lock_memory", (int (*)())_2lock_memory, 25, -2, 2, 1, 6}, 
  {"atom_to_float64", (int (*)())_2atom_to_float64, 26, -2, 1, 1, 6}, 
  {"atom_to_float32", (int (*)())_2atom_to_float32, 27, -2, 1, 1, 6}, 
  {"float64_to_atom", (int (*)())_2float64_to_atom, 28, -2, 1, 1, 6}, 
  {"float32_to_atom", (int (*)())_2float32_to_atom, 29, -2, 1, 1, 6}, 
  {"allocate_string", (int (*)())_2allocate_string, 30, -2, 1, 1, 6}, 
  {"register_block", (int (*)())_2register_block, 31, -2, 2, 1, 6}, 
  {"unregister_block", (int (*)())_2unregister_block, 32, -2, 1, 1, 6}, 
  {"check_all_blocks", (int (*)())_2check_all_blocks, 33, -2, 0, 1, 6}, 
  {"open_dll", (int (*)())_3open_dll, 34, -3, 1, 1, 6}, 
  {"define_c_var", (int (*)())_3define_c_var, 35, -3, 2, 1, 6}, 
  {"define_c_proc", (int (*)())_3define_c_proc, 36, -3, 3, 1, 6}, 
  {"define_c_func", (int (*)())_3define_c_func, 37, -3, 4, 1, 6}, 
  {"call_back", (int (*)())_3call_back, 38, -3, 1, 1, 6}, 
  {"free_console", (int (*)())_3free_console, 39, -3, 0, 1, 6}, 
  {"instance", (int (*)())_5instance, 40, -5, 0, 1, 6}, 
  {"sleep", (int (*)())_5sleep, 41, -5, 1, 1, 6}, 
  {"reverse", (int (*)())_5reverse, 42, -5, 1, 1, 6}, 
  {"sprint", (int (*)())_5sprint, 43, -5, 1, 1, 6}, 
  {"pretty_print", (int (*)())_5pretty_print, 49, -5, 3, 1, 6}, 
  {"arccos", (int (*)())_5arccos, 51, -5, 1, 1, 6}, 
  {"arcsin", (int (*)())_5arcsin, 52, -5, 1, 1, 6}, 
  {"lower", (int (*)())_4lower, 53, -4, 1, 1, 6}, 
  {"upper", (int (*)())_4upper, 54, -4, 1, 1, 6}, 
  {"wildcard_match", (int (*)())_4wildcard_match, 56, -4, 2, 1, 6}, 
  {"wildcard_file", (int (*)())_4wildcard_file, 57, -4, 2, 1, 6}, 
  {"message_box", (int (*)())_7message_box, 58, -7, 3, 1, 6}, 
  {"abortErr", (int (*)())_6abortErr, 61, -6, 1, 1, 6}, 
  {"warnErr", (int (*)())_6warnErr, 62, -6, 1, 1, 6}, 
  {"setWarning", (int (*)())_6setWarning, 63, -6, 1, 1, 6}, 
  {"attachCleanUp", (int (*)())_6attachCleanUp, 64, -6, 1, 1, 6}, 
  {"detachCleanUp", (int (*)())_6detachCleanUp, 65, -6, 1, 1, 6}, 
  {"Init_UI_Msgs", (int (*)())_6Init_UI_Msgs, 66, -6, 1, 1, 6}, 
  {"define_series", (int (*)())_9define_series, 67, -9, 2, 1, 6}, 
  {"next_number", (int (*)())_9next_number, 68, -9, 1, 1, 6}, 
  {"current_number", (int (*)())_9current_number, 69, -9, 1, 1, 6}, 
  {"get_series", (int (*)())_9get_series, 70, -9, 1, 1, 6}, 
  {"w32CurrentStructure", (int (*)())_8w32CurrentStructure, 71, -8, 0, 1, 6}, 
  {"w32NextStructure", (int (*)())_8w32NextStructure, 72, -8, 0, 1, 6}, 
  {"w32string", (int (*)())_12w32string, 73, -12, 1, 1, 6}, 
  {"w32to_string", (int (*)())_12w32to_string, 74, -12, 1, 1, 6}, 
  {"w32get_bits", (int (*)())_12w32get_bits, 75, -12, 1, 1, 6}, 
  {"w32signed_word", (int (*)())_12w32signed_word, 76, -12, 1, 1, 6}, 
  {"w32pack_word", (int (*)())_12w32pack_word, 77, -12, 2, 1, 6}, 
  {"w32lo_word", (int (*)())_12w32lo_word, 78, -12, 1, 1, 6}, 
  {"w32hi_word", (int (*)())_12w32hi_word, 79, -12, 1, 1, 6}, 
  {"w32abs", (int (*)())_12w32abs, 80, -12, 1, 1, 6}, 
  {"w32unpack_dword", (int (*)())_12w32unpack_dword, 81, -12, 1, 1, 6}, 
  {"w32shortInt", (int (*)())_12w32shortInt, 82, -12, 1, 1, 6}, 
  {"w32remainder", (int (*)())_12w32remainder, 83, -12, 2, 1, 6}, 
  {"w32average", (int (*)())_12w32average, 84, -12, 2, 1, 6}, 
  {"w32round", (int (*)())_12w32round, 85, -12, 3, 1, 6}, 
  {"setDecimalMark", (int (*)())_12setDecimalMark, 86, -12, 1, 1, 6}, 
  {"w32TextToNumber", (int (*)())_12w32TextToNumber, 87, -12, 1, 1, 6}, 
  {"w32or_all", (int (*)())_12w32or_all, 88, -12, 1, 1, 6}, 
  {"w32findKeyEx", (int (*)())_12w32findKeyEx, 89, -12, 3, 1, 6}, 
  {"w32findKey", (int (*)())_12w32findKey, 90, -12, 2, 1, 6}, 
  {"w32removeIndex", (int (*)())_12w32removeIndex, 91, -12, 2, 1, 6}, 
  {"w32lookup", (int (*)())_12w32lookup, 92, -12, 3, 1, 6}, 
  {"w32iff", (int (*)())_12w32iff, 93, -12, 3, 1, 6}, 
  {"w32removeItem", (int (*)())_12w32removeItem, 94, -12, 2, 1, 6}, 
  {"w32insertElement", (int (*)())_12w32insertElement, 95, -12, 3, 1, 6}, 
  {"w32replaceItem", (int (*)())_12w32replaceItem, 96, -12, 3, 1, 6}, 
  {"w32ordered_find", (int (*)())_12w32ordered_find, 97, -12, 3, 1, 6}, 
  {"sort", (int (*)())_13sort, 98, -13, 1, 1, 6}, 
  {"custom_sort", (int (*)())_13custom_sort, 99, -13, 2, 1, 6}, 
  {"w32index", (int (*)())_12w32index, 100, -12, 1, 1, 6}, 
  {"w32index_by", (int (*)())_12w32index_by, 101, -12, 2, 1, 6}, 
  {"w32trim", (int (*)())_12w32trim, 102, -12, 1, 1, 6}, 
  {"w32trim_right", (int (*)())_12w32trim_right, 103, -12, 1, 1, 6}, 
  {"w32trim_left", (int (*)())_12w32trim_left, 104, -12, 1, 1, 6}, 
  {"w32split", (int (*)())_12w32split, 105, -12, 2, 1, 6}, 
  {"w32join", (int (*)())_12w32join, 106, -12, 3, 1, 6}, 
  {"w32MinSequenceSize", (int (*)())_12w32MinSequenceSize, 107, -12, 3, 1, 6}, 
  {"w32bounds", (int (*)())_12w32bounds, 108, -12, 3, 1, 6}, 
  {"w32CType", (int (*)())_12w32CType, 110, -12, 2, 1, 6}, 
  {"w32GetCType", (int (*)())_12w32GetCType, 111, -12, 1, 1, 6}, 
  {"w32SetCType", (int (*)())_12w32SetCType, 112, -12, 2, 1, 6}, 
  {"addToCType", (int (*)())_12addToCType, 113, -12, 2, 1, 6}, 
  {"removeFromCType", (int (*)())_12removeFromCType, 114, -12, 2, 1, 6}, 
  {"w32Encode", (int (*)())_12w32Encode, 115, -12, 3, 1, 6}, 
  {"w32MaxWidth", (int (*)())_12w32MaxWidth, 116, -12, 1, 1, 6}, 
  {"w32ToString", (int (*)())_12w32ToString, 117, -12, 1, 1, 6}, 
  {"w32extract_formats", (int (*)())_12w32extract_formats, 118, -12, 1, 1, 6}, 
  {"w32rand32", (int (*)())_12w32rand32, 119, -12, 1, 1, 6}, 
  {"w32rectangle_delta", (int (*)())_12w32rectangle_delta, 120, -12, 3, 1, 6}, 
  {"w32llSetAbort", (int (*)())_14w32llSetAbort, 121, -14, 1, 1, 6}, 
  {"w32peek2", (int (*)())_14w32peek2, 129, -14, 1, 1, 6}, 
  {"w32peek_string", (int (*)())_14w32peek_string, 130, -14, 1, 1, 6}, 
  {"w32peek_string16", (int (*)())_14w32peek_string16, 131, -14, 1, 1, 6}, 
  {"w32manage_mem", (int (*)())_14w32manage_mem, 133, -14, 2, 1, 6}, 
  {"w32release_mem", (int (*)())_14w32release_mem, 134, -14, 1, 1, 6}, 
  {"w32CurrentStructure", (int (*)())_14w32CurrentStructure, 136, -14, 0, 1, 6}, 
  {"w32NextStructure", (int (*)())_14w32NextStructure, 137, -14, 0, 1, 6}, 
  {"w32define_union", (int (*)())_14w32define_union, 138, -14, 3, 1, 6}, 
  {"w32specialise", (int (*)())_14w32specialise, 139, -14, 2, 1, 6}, 
  {"w32allotted_handle", (int (*)())_14w32allotted_handle, 140, -14, 1, 1, 6}, 
  {"w32allotted_length", (int (*)())_14w32allotted_length, 141, -14, 1, 1, 6}, 
  {"w32allotted_buffer", (int (*)())_14w32allotted_buffer, 142, -14, 1, 1, 6}, 
  {"w32buffer_address", (int (*)())_14w32buffer_address, 143, -14, 2, 1, 6}, 
  {"w32buffer_length", (int (*)())_14w32buffer_length, 144, -14, 2, 1, 6}, 
  {"w32allotted_sofar", (int (*)())_14w32allotted_sofar, 145, -14, 0, 1, 6}, 
  {"w32acquire_mem", (int (*)())_14w32acquire_mem, 147, -14, 2, 1, 6}, 
  {"w32new_memset", (int (*)())_14w32new_memset, 148, -14, 0, 1, 6}, 
  {"w32acquire_handle", (int (*)())_14w32acquire_handle, 149, -14, 2, 1, 6}, 
  {"w32handle_to_memory", (int (*)())_14w32handle_to_memory, 150, -14, 1, 1, 6}, 
  {"w32release_handle", (int (*)())_14w32release_handle, 151, -14, 2, 1, 6}, 
  {"w32allot", (int (*)())_14w32allot, 152, -14, 1, 1, 6}, 
  {"w32allotted_size", (int (*)())_14w32allotted_size, 153, -14, 0, 1, 6}, 
  {"w32define_this_struct", (int (*)())_14w32define_this_struct, 154, -14, 0, 1, 6}, 
  {"fetchSize", (int (*)())_14fetchSize, 158, 14, 4, 0, 5}, 
  {"w32ElemAddr", (int (*)())_14w32ElemAddr, 162, 14, 2, 0, 5}, 
  {"w32address", (int (*)())_14w32address, 163, -14, 2, 1, 6}, 
  {"w32copy_field", (int (*)())_14w32copy_field, 164, -14, 3, 1, 6}, 
  {"w32copy_struct", (int (*)())_14w32copy_struct, 165, -14, 3, 1, 6}, 
  {"w32poke_words", (int (*)())_14w32poke_words, 166, -14, 2, 1, 6}, 
  {"w32store", (int (*)())_14w32store, 168, -14, 3, 1, 6}, 
  {"w32fetch", (int (*)())_14w32fetch, 170, -14, 2, 1, 6}, 
  {"w32realise", (int (*)())_14w32realise, 172, -14, 2, 1, 6}, 
  {"w32from_memoryEx", (int (*)())_14w32from_memoryEx, 173, -14, 3, 1, 6}, 
  {"w32from_memory", (int (*)())_14w32from_memory, 174, -14, 2, 1, 6}, 
  {"w32set_memory", (int (*)())_14w32set_memory, 175, -14, 3, 1, 6}, 
  {"w32to_memoryEx", (int (*)())_14w32to_memoryEx, 176, -14, 4, 1, 6}, 
  {"w32to_memory", (int (*)())_14w32to_memory, 177, -14, 3, 1, 6}, 
  {"setPreprocessDataIn", (int (*)())_14setPreprocessDataIn, 178, -14, 2, 1, 6}, 
  {"setStartWithSize", (int (*)())_14setStartWithSize, 179, -14, 1, 1, 6}, 
  {"isFieldOf", (int (*)())_14isFieldOf, 180, -14, 2, 1, 6}, 
  {"unicode_to_ansi", (int (*)())_10unicode_to_ansi, 181, -10, 1, 1, 6}, 
  {"ansi_to_unicode", (int (*)())_10ansi_to_unicode, 182, -10, 1, 1, 6}, 
  {"alloc_bstr", (int (*)())_10alloc_bstr, 183, -10, 1, 1, 6}, 
  {"peek_unicode", (int (*)())_10peek_unicode, 184, -10, 1, 1, 6}, 
  {"peek_bstr", (int (*)())_10peek_bstr, 185, -10, 1, 1, 6}, 
  {"free_bstr", (int (*)())_10free_bstr, 186, -10, 1, 1, 6}, 
  {"seek", (int (*)())_17seek, 192, -17, 2, 1, 6}, 
  {"where", (int (*)())_17where, 193, -17, 1, 1, 6}, 
  {"flush", (int (*)())_17flush, 194, -17, 1, 1, 6}, 
  {"lock_file", (int (*)())_17lock_file, 197, -17, 3, 1, 6}, 
  {"unlock_file", (int (*)())_17unlock_file, 198, -17, 2, 1, 6}, 
  {"dir", (int (*)())_17dir, 199, -17, 1, 1, 6}, 
  {"current_dir", (int (*)())_17current_dir, 200, -17, 0, 1, 6}, 
  {"chdir", (int (*)())_17chdir, 201, -17, 1, 1, 6}, 
  {"allow_break", (int (*)())_17allow_break, 202, -17, 1, 1, 6}, 
  {"check_break", (int (*)())_17check_break, 203, -17, 0, 1, 6}, 
  {"walk_dir", (int (*)())_17walk_dir, 205, -17, 3, 1, 6}, 
  {"reg_com_error", (int (*)())_16reg_com_error, 206, -16, 1, 1, 6}, 
  {"print_com_error", (int (*)())_16print_com_error, 207, -16, 1, 1, 6}, 
  {"com_err_out", (int (*)())_16com_err_out, 208, -16, 1, 1, 6}, 
  {"com_error", (int (*)())_16com_error, 209, -16, 1, 1, 6}, 
  {"make_variant", (int (*)())_15make_variant, 210, -15, 3, 1, 6}, 
  {"get_variant", (int (*)())_15get_variant, 212, -15, 1, 1, 6}, 
  {"seq_fetch", (int (*)())_15seq_fetch, 213, -15, 2, 1, 6}, 
  {"get_array", (int (*)())_15get_array, 215, -15, 1, 1, 6}, 
  {"vt_label_to_value", (int (*)())_15vt_label_to_value, 216, -15, 1, 1, 6}, 
  {"vt_value_to_label", (int (*)())_15vt_value_to_label, 217, -15, 1, 1, 6}, 
  {"vt_value_to_size_label", (int (*)())_15vt_value_to_size_label, 218, -15, 1, 1, 6}, 
  {"vt_value_to_size_value", (int (*)())_15vt_value_to_size_value, 219, -15, 1, 1, 6}, 
  {"vt_to_c_type", (int (*)())_15vt_to_c_type, 220, -15, 1, 1, 6}, 
  {"create_safearray", (int (*)())_15create_safearray, 221, -15, 2, 1, 6}, 
  {"destroy_safearray", (int (*)())_15destroy_safearray, 222, -15, 1, 1, 6}, 
  {"BLOCKS", (int (*)())_1BLOCKS, 225, -1, 1, 1, 6}, 
  {"", 0, 999999999, 0, 0, 0, 0} 
}; 

Kind regards,

Bruce.

3. Re: ECW problem, eubins-win-1212.zip

• Posted by axtens Oct 18, 2008
• 965 views

Thanks for the tip. As it was, I had saved the old versions in c:\euphoria\bin\old and so was able to get back to a functional system quickly.

Kind regards,

Bruce.