Mercurial > repos > rhope

comparison interp.c @ 47:6202b866d72c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cleaned up constructor names and merged some other changes in to support the Rhope website
author Mike Pavone <pavone@retrodev.com>
date Tue, 22 Dec 2009 01:22:09 -0500
parents 429b5f441381
children
comparison
equal deleted inserted replaced
46:429b5f441381 47:6202b866d72c
1634 aworker = create_worker(prog, "Length@List", 1, 1, WORKER_TYPE); 1634 aworker = create_worker(prog, "Length@List", 1, 1, WORKER_TYPE);
1635 aworker->implement_func = (custom_worker *)vis_list_length; 1635 aworker->implement_func = (custom_worker *)vis_list_length;
1636 aworker->input_types[0] = BUILTIN_TYPE_LIST; 1636 aworker->input_types[0] = BUILTIN_TYPE_LIST;
1637 //add_method(this_comp, aworker); 1637 //add_method(this_comp, aworker);
1638 1638
1639 aworker = create_worker(prog, "New@List",0, 1, WORKER_TYPE); 1639 aworker = create_worker(prog, "List",0, 1, WORKER_TYPE);
1640 aworker->implement_func=(custom_worker *)vis_list_new; 1640 aworker->implement_func=(custom_worker *)vis_list_new;
1641 //add_method(this_comp, aworker); 1641 //add_method(this_comp, aworker);
1642 1642
1643 aworker = create_worker(prog, "First@List", 1, 2, WORKER_TYPE); 1643 aworker = create_worker(prog, "First@List", 1, 2, WORKER_TYPE);
1644 aworker->implement_func=(custom_worker *)vis_list_first; 1644 aworker->implement_func=(custom_worker *)vis_list_first;
1683 aworker->implement_func=(custom_worker *)vis_dict_length; 1683 aworker->implement_func=(custom_worker *)vis_dict_length;
1684 aworker->input_types[0] = BUILTIN_TYPE_DICT; 1684 aworker->input_types[0] = BUILTIN_TYPE_DICT;
1685 1685
1686 //add_method(this_comp, aworker); 1686 //add_method(this_comp, aworker);
1687 1687
1688 aworker = create_worker(prog, "New@Dictionary",0, 1, WORKER_TYPE); 1688 aworker = create_worker(prog, "Dictionary",0, 1, WORKER_TYPE);
1689 aworker->implement_func=(custom_worker *)vis_dict_new; 1689 aworker->implement_func=(custom_worker *)vis_dict_new;
1690 //add_method(this_comp, aworker); 1690 //add_method(this_comp, aworker);
1691 1691
1692 aworker = create_worker(prog, "First@Dictionary", 1, 2, WORKER_TYPE); 1692 aworker = create_worker(prog, "First@Dictionary", 1, 2, WORKER_TYPE);
1693 aworker->implement_func=(custom_worker *)vis_dict_first; 1693 aworker->implement_func=(custom_worker *)vis_dict_first;
1840 aworker->implement_func=(custom_worker *)vis_worker_setio_counts; 1840 aworker->implement_func=(custom_worker *)vis_worker_setio_counts;
1841 aworker->input_types[0] = BUILTIN_TYPE_WORKER; 1841 aworker->input_types[0] = BUILTIN_TYPE_WORKER;
1842 aworker->input_types[1] = BUILTIN_TYPE_WHOLE; 1842 aworker->input_types[1] = BUILTIN_TYPE_WHOLE;
1843 aworker->input_types[2] = BUILTIN_TYPE_WHOLE; 1843 aworker->input_types[2] = BUILTIN_TYPE_WHOLE;
1844 1844
1845 aworker = create_worker(prog, "New@Worker", 1, 1, WORKER_TYPE); 1845 aworker = create_worker(prog, "Worker", 1, 1, WORKER_TYPE);
1846 aworker->implement_func=(custom_worker *)vis_worker_new; 1846 aworker->implement_func=(custom_worker *)vis_worker_new;
1847 aworker->input_types[0] = BUILTIN_TYPE_STRING; 1847 aworker->input_types[0] = BUILTIN_TYPE_STRING;
1848 1848
1849 #ifdef GUI_LIB 1849 #ifdef GUI_LIB
1850 current_method = 0; 1850 current_method = 0;
1851 1851
1852 this_comp = create_company(prog, "Window", 3, 0, FALSE); 1852 this_comp = create_company(prog, "Window", 3, 0, FALSE);
1853 1853
1854 aworker = create_worker(prog, "New@Window", 3, 1, WORKER_TYPE); 1854 aworker = create_worker(prog, "Window", 3, 1, WORKER_TYPE);
1855 aworker->implement_func=(custom_worker *)vis_window_new; 1855 aworker->implement_func=(custom_worker *)vis_window_new;
1856 aworker->input_types[0] = BUILTIN_TYPE_STRING; 1856 aworker->input_types[0] = BUILTIN_TYPE_STRING;
1857 aworker->input_types[1] = BUILTIN_TYPE_REAL; 1857 aworker->input_types[1] = BUILTIN_TYPE_REAL;
1858 aworker->input_types[2] = BUILTIN_TYPE_REAL; 1858 aworker->input_types[2] = BUILTIN_TYPE_REAL;
1859 //add_method(this_comp, aworker); 1859 //add_method(this_comp, aworker);
1910 #endif 1910 #endif
1911 1911
1912 current_method = 0; 1912 current_method = 0;
1913 create_company(prog, "Button", 2, 0, FALSE); 1913 create_company(prog, "Button", 2, 0, FALSE);
1914 1914
1915 aworker = create_worker(prog, "New@Button", 3, 1, WORKER_TYPE); 1915 aworker = create_worker(prog, "Button", 3, 1, WORKER_TYPE);
1916 aworker->implement_func=(custom_worker *)vis_button_new; 1916 aworker->implement_func=(custom_worker *)vis_button_new;
1917 aworker->input_types[0] = BUILTIN_TYPE_STRING; 1917 aworker->input_types[0] = BUILTIN_TYPE_STRING;
1918 aworker->input_types[1] = BUILTIN_TYPE_REAL; 1918 aworker->input_types[1] = BUILTIN_TYPE_REAL;
1919 aworker->input_types[2] = BUILTIN_TYPE_REAL; 1919 aworker->input_types[2] = BUILTIN_TYPE_REAL;
1920 //add_method(this_comp, aworker); 1920 //add_method(this_comp, aworker);
1927 //add_method(this_comp, aworker); 1927 //add_method(this_comp, aworker);
1928 1928
1929 current_method = 0; 1929 current_method = 0;
1930 create_company(prog, "Input Box", 2, 0, FALSE); 1930 create_company(prog, "Input Box", 2, 0, FALSE);
1931 1931
1932 aworker = create_worker(prog, "New@Input Box", 3, 1, WORKER_TYPE); 1932 aworker = create_worker(prog, "Input Box", 3, 1, WORKER_TYPE);
1933 aworker->implement_func=(custom_worker *)vis_inputbox_new; 1933 aworker->implement_func=(custom_worker *)vis_inputbox_new;
1934 aworker->input_types[0] = BUILTIN_TYPE_STRING; 1934 aworker->input_types[0] = BUILTIN_TYPE_STRING;
1935 aworker->input_types[1] = BUILTIN_TYPE_REAL; 1935 aworker->input_types[1] = BUILTIN_TYPE_REAL;
1936 aworker->input_types[2] = BUILTIN_TYPE_REAL; 1936 aworker->input_types[2] = BUILTIN_TYPE_REAL;
1937 //add_method(this_comp, aworker); 1937 //add_method(this_comp, aworker);
1943 //add_method(this_comp, aworker); 1943 //add_method(this_comp, aworker);
1944 1944
1945 #endif 1945 #endif
1946 #ifndef NO_NET 1946 #ifndef NO_NET
1947 this_comp = create_company(prog, "Net Client", 3, 0, FALSE); 1947 this_comp = create_company(prog, "Net Client", 3, 0, FALSE);
1948 aworker = create_worker(prog, "New@Net Client", 2, 1, WORKER_TYPE); 1948 aworker = create_worker(prog, "Net Client", 2, 1, WORKER_TYPE);
1949 aworker->implement_func =(custom_worker *)net_client_new; 1949 aworker->implement_func =(custom_worker *)net_client_new;
1950 aworker->input_types[0] = BUILTIN_TYPE_STRING; 1950 aworker->input_types[0] = BUILTIN_TYPE_STRING;
1951 aworker->input_types[1] = BUILTIN_TYPE_WHOLE; 1951 aworker->input_types[1] = BUILTIN_TYPE_WHOLE;
1952 1952
1953 aworker = create_worker(prog, "Put String@Net Client", 2, 2, WORKER_TYPE); 1953 aworker = create_worker(prog, "Put String@Net Client", 2, 2, WORKER_TYPE);
1983 1983
1984 create_company(prog, "Global Store", 0, 0, FALSE); 1984 create_company(prog, "Global Store", 0, 0, FALSE);
1985 1985
1986 create_company(prog, "Program", 5, 0, FALSE); 1986 create_company(prog, "Program", 5, 0, FALSE);
1987 1987
1988 aworker = create_worker(prog, "New@Program", 0, 1, WORKER_TYPE); 1988 aworker = create_worker(prog, "Program", 0, 1, WORKER_TYPE);
1989 aworker->implement_func = (custom_worker *)vis_program_new; 1989 aworker->implement_func = (custom_worker *)vis_program_new;
1990 1990
1991 aworker = create_worker(prog, "New Worker@Program", 2, 2, WORKER_TYPE); 1991 aworker = create_worker(prog, "New Worker@Program", 2, 2, WORKER_TYPE);
1992 aworker->implement_func = (custom_worker *)vis_program_new_worker; 1992 aworker->implement_func = (custom_worker *)vis_program_new_worker;
1993 aworker->input_types[0] = BUILTIN_TYPE_PROGRAM; 1993 aworker->input_types[0] = BUILTIN_TYPE_PROGRAM;
2014 2014
2015 #ifdef GUI_LIB 2015 #ifdef GUI_LIB
2016 #ifdef SYLLABLE 2016 #ifdef SYLLABLE
2017 create_company(prog, "Custom Widget", 2, 0, FALSE); 2017 create_company(prog, "Custom Widget", 2, 0, FALSE);
2018 2018
2019 aworker = create_worker(prog, "New@Custom Widget", 3, 1, WORKER_TYPE); 2019 aworker = create_worker(prog, "Custom Widget", 3, 1, WORKER_TYPE);
2020 aworker->implement_func=(custom_worker *)vis_customwidget_new; 2020 aworker->implement_func=(custom_worker *)vis_customwidget_new;
2021 aworker->input_types[0] = BUILTIN_TYPE_STRING; 2021 aworker->input_types[0] = BUILTIN_TYPE_STRING;
2022 aworker->input_types[1] = BUILTIN_TYPE_REAL; 2022 aworker->input_types[1] = BUILTIN_TYPE_REAL;
2023 aworker->input_types[2] = BUILTIN_TYPE_REAL; 2023 aworker->input_types[2] = BUILTIN_TYPE_REAL;
2024 //add_method(this_comp, aworker); 2024 //add_method(this_comp, aworker);
2093 2093
2094 #endif 2094 #endif
2095 #endif 2095 #endif
2096 create_company(prog, "Buffer", 7, 0, FALSE); 2096 create_company(prog, "Buffer", 7, 0, FALSE);
2097 2097
2098 aworker = create_worker(prog, "New@Buffer", 1, 1, WORKER_TYPE); 2098 aworker = create_worker(prog, "Buffer", 1, 1, WORKER_TYPE);
2099 aworker->implement_func=(custom_worker *)vis_buffer_new; 2099 aworker->implement_func=(custom_worker *)vis_buffer_new;
2100 aworker->input_types[0] = BUILTIN_TYPE_WHOLE; 2100 aworker->input_types[0] = BUILTIN_TYPE_WHOLE;
2101 2101
2102 aworker = create_worker(prog, "Lock@Buffer", 1, 1, WORKER_TYPE); 2102 aworker = create_worker(prog, "Lock@Buffer", 1, 1, WORKER_TYPE);
2103 aworker->implement_func=(custom_worker *)vis_buffer_lock; 2103 aworker->implement_func=(custom_worker *)vis_buffer_lock;
2149 aworker->input_types[1] = BUILTIN_TYPE_WHOLE; 2149 aworker->input_types[1] = BUILTIN_TYPE_WHOLE;
2150 #endif //SEGA 2150 #endif //SEGA
2151 2151
2152 create_company(prog, "Blueprint", 4, 0, FALSE); 2152 create_company(prog, "Blueprint", 4, 0, FALSE);
2153 2153
2154 aworker = create_worker(prog, "New@Blueprint", 1, 1, WORKER_TYPE); 2154 aworker = create_worker(prog, "Blueprint", 1, 1, WORKER_TYPE);
2155 aworker->implement_func=(custom_worker *)vis_blueprint_new; 2155 aworker->implement_func=(custom_worker *)vis_blueprint_new;
2156 aworker->input_types[0] = BUILTIN_TYPE_STRING; 2156 aworker->input_types[0] = BUILTIN_TYPE_STRING;
2157 2157
2158 aworker = create_worker(prog, "Add Field@Blueprint", 3, 1, WORKER_TYPE); 2158 aworker = create_worker(prog, "Add Field@Blueprint", 3, 1, WORKER_TYPE);
2159 aworker->implement_func=(custom_worker *)vis_blueprint_addfield; 2159 aworker->implement_func=(custom_worker *)vis_blueprint_addfield;
2191 2191
2192 #ifdef GUI_LIB 2192 #ifdef GUI_LIB
2193 #ifdef SYLLABLE 2193 #ifdef SYLLABLE
2194 create_company(prog, "Checkbox", 2, 0, FALSE); 2194 create_company(prog, "Checkbox", 2, 0, FALSE);
2195 2195
2196 aworker = create_worker(prog, "New@Checkbox", 4, 1, WORKER_TYPE); 2196 aworker = create_worker(prog, "Checkbox", 4, 1, WORKER_TYPE);
2197 aworker->implement_func=(custom_worker *)vis_checkbox_new; 2197 aworker->implement_func=(custom_worker *)vis_checkbox_new;
2198 aworker->input_types[0] = BUILTIN_TYPE_STRING; 2198 aworker->input_types[0] = BUILTIN_TYPE_STRING;
2199 aworker->input_types[1] = BUILTIN_TYPE_REAL; 2199 aworker->input_types[1] = BUILTIN_TYPE_REAL;
2200 aworker->input_types[2] = BUILTIN_TYPE_REAL; 2200 aworker->input_types[2] = BUILTIN_TYPE_REAL;
2201 aworker->input_types[3] = BUILTIN_TYPE_YESNO; 2201 aworker->input_types[3] = BUILTIN_TYPE_YESNO;
2206 aworker->input_types[1] = BUILTIN_TYPE_STRING; 2206 aworker->input_types[1] = BUILTIN_TYPE_STRING;
2207 aworker->input_types[2] = BUILTIN_TYPE_WORKER; 2207 aworker->input_types[2] = BUILTIN_TYPE_WORKER;
2208 2208
2209 create_company(prog, "Dropdown", 4, 0, FALSE); 2209 create_company(prog, "Dropdown", 4, 0, FALSE);
2210 2210
2211 aworker = create_worker(prog, "New@Dropdown", 3, 1, WORKER_TYPE); 2211 aworker = create_worker(prog, "Dropdown", 3, 1, WORKER_TYPE);
2212 aworker->implement_func=(custom_worker *)vis_dropdown_new; 2212 aworker->implement_func=(custom_worker *)vis_dropdown_new;
2213 aworker->input_types[0] = BUILTIN_TYPE_LIST; 2213 aworker->input_types[0] = BUILTIN_TYPE_LIST;
2214 aworker->input_types[1] = BUILTIN_TYPE_REAL; 2214 aworker->input_types[1] = BUILTIN_TYPE_REAL;
2215 aworker->input_types[2] = BUILTIN_TYPE_REAL; 2215 aworker->input_types[2] = BUILTIN_TYPE_REAL;
2216 2216
3071 if((process_def->type & TYPE_MASK) == MAGIC_TYPE) 3071 if((process_def->type & TYPE_MASK) == MAGIC_TYPE)
3072 { 3072 {
3073 DEBUGPRINTF( "Magic method: %s\n", process_def->name); 3073 DEBUGPRINTF( "Magic method: %s\n", process_def->name);
3074 if(!params || !params[0]) 3074 if(!params || !params[0])
3075 { 3075 {
3076 ERRORPRINTF("Error: null first parmeter or null parameter array for worker %s\n", process_def->name); 3076 ERRORPRINTF("Error: null first parmeter or null parameter array for worker %s, params: %X, params[0]: %X\n", process_def->name, params, params[0]);
3077 print_stack_trace(worker_entry.instance); 3077 print_stack_trace(worker_entry.instance);
3078 execute_active = FALSE; 3078 execute_active = FALSE;
3079 return -1; 3079 return -1;
3080 } 3080 }
3081 VIS_EnterCriticalSection(parent_def->implement_func->workerlist[worker_entry.worker_num].lock); 3081 VIS_EnterCriticalSection(parent_def->implement_func->workerlist[worker_entry.worker_num].lock);