static void jl_init_ast_ctx(jl_ast_context_t *ast_ctx)
{
fl_context_t *fl_ctx = &ast_ctx->fl;
fl_init(fl_ctx, 4*1024*1024);
if (fl_load_system_image_str(fl_ctx, (char*)flisp_system_image,
sizeof(flisp_system_image))) {
jl_error("fatal error loading system image");
}
fl_applyn(fl_ctx, 0, symbol_value(symbol(fl_ctx, "__init_globals")));
jl_ast_context_t *ctx = jl_ast_ctx(fl_ctx);
ctx->jvtype = define_opaque_type(fl_ctx->jl_sym, sizeof(void*), NULL, NULL);
assign_global_builtins(fl_ctx, julia_flisp_ast_ext);
ctx->true_sym = symbol(fl_ctx, "true");
ctx->false_sym = symbol(fl_ctx, "false");
ctx->error_sym = symbol(fl_ctx, "error");
ctx->null_sym = symbol(fl_ctx, "null");
ctx->ssavalue_sym = symbol(fl_ctx, "ssavalue");
ctx->slot_sym = symbol(fl_ctx, "slot");
ctx->task = NULL;
ctx->module = NULL;
set(symbol(fl_ctx, "*depwarn-opt*"), fixnum(jl_options.depwarn));
}
static void jl_init_ast_ctx(jl_ast_context_t *ast_ctx)
{
fl_context_t *fl_ctx = &ast_ctx->fl;
fl_init(fl_ctx, 4*1024*1024);
if (fl_load_system_image_str(fl_ctx, (char*)flisp_system_image,
sizeof(flisp_system_image))) {
jl_error("fatal error loading system image");
}
fl_applyn(fl_ctx, 0, symbol_value(symbol(fl_ctx, "__init_globals")));
jl_ast_ctx(fl_ctx)->jvtype = define_opaque_type(fl_ctx->jl_sym, sizeof(void*), NULL, NULL);
assign_global_builtins(fl_ctx, julia_flisp_ast_ext);
jl_ast_ctx(fl_ctx)->true_sym = symbol(fl_ctx, "true");
jl_ast_ctx(fl_ctx)->false_sym = symbol(fl_ctx, "false");
jl_ast_ctx(fl_ctx)->error_sym = symbol(fl_ctx, "error");
jl_ast_ctx(fl_ctx)->null_sym = symbol(fl_ctx, "null");
jl_ast_ctx(fl_ctx)->ssavalue_sym = symbol(fl_ctx, "ssavalue");
jl_ast_ctx(fl_ctx)->slot_sym = symbol(fl_ctx, "slot");
// Enable / disable syntax deprecation warnings
if (jl_options.depwarn == JL_OPTIONS_DEPWARN_ERROR)
jl_parse_deperror(fl_ctx, 1);
else
jl_parse_depwarn_(fl_ctx, (int)jl_options.depwarn);
}
Copyright (C) 1998-2000 Stuart Levy, Tamara Munzner, Mark Phillips";
#endif
#include <stdio.h>
#include "origin.common.h"
#include "forms.h"
#include "xforms-compat.h"
#include "origin.panel.h"
/*
* This file should contain ONLY the user interface and main()
* to make splitting off the NeXT version easy
*/
int main(int argc, char *argv[]) {
#ifdef XFORMS
FL_INITIALIZE("Origin");
#else
fl_init();
foreground();
#endif
create_the_forms();
internalsInit();
fl_show_form(MainForm, FL_PLACE_SIZE, TRUE, "Move Origin");
while(1) fl_do_forms();
}
int get_mscp_chan(char * s)
{
int sts;
unsigned short int chan;
struct _ucb * ucb;
struct dsc$descriptor dsc;
struct return_values r;
struct _vcb * vcb;
struct _aqb * aqb;
dsc.dsc$a_pointer=do_file_translate(s);
dsc.dsc$w_length=strlen(dsc.dsc$a_pointer);
if (ioc$search(&r,&dsc)==SS$_NORMAL)
return ((struct _ucb *)r.val1)->ucb$ps_adp;
ucb = fl_init(s);
vcb = (struct _vcb *) kmalloc(sizeof(struct _vcb),GFP_KERNEL);
memset(vcb,0,sizeof(struct _vcb));
vcb->vcb$b_type=DYN$C_VCB;
aqb = (struct _aqb *) kmalloc(sizeof(struct _aqb),GFP_KERNEL);
memset(aqb,0,sizeof(struct _aqb));
aqb->aqb$b_type=DYN$C_AQB;
qhead_init(&aqb->aqb$l_acpqfl);
ucb->ucb$l_vcb=vcb;
vcb->vcb$l_aqb=aqb;
qhead_init(&vcb->vcb$l_fcbfl);
vcb->vcb$l_cache = NULL; // ?
sts = phyio_init(strlen(s),s,&ucb->ucb$l_vcb->vcb$l_aqb->aqb$l_mount_count,0,0); // check
dsc.dsc$a_pointer=do_file_translate(s);
dsc.dsc$w_length=strlen(dsc.dsc$a_pointer);
sts=exe$assign(&dsc,&chan,0,0,0);
ucb->ucb$ps_adp=chan; //wrong field and use, but....
return chan;
}
void file_init(void)
{
// Initialize media system
__media_init();
// Initialize File IO Library
fl_init();
}
PyMODINIT_FUNC
initfl(void)
{
Py_InitModule("fl", forms_methods);
if (m == NULL)
return;
foreground();
fl_init();
}
int fat_init(void) {
// Initialise File IO Library
print_dbg("\r\n beginning FAT library init.");
fl_init();
print_dbg("\r\n finished FAT library init.");
// Attach media access functions to library
if ( fl_attach_media((fn_diskio_read)media_read, (fn_diskio_write)media_write) != FAT_INIT_OK ) {
print_dbg("\r\n failed to attach media access functions to fat_io_lib \r\n");
return 1;
} else {
print_dbg("\r\n attached media access functions to fat_io_lib");
return 0;
}
}
PyMODINIT_FUNC
initfl(void)
{
if (PyErr_WarnPy3k("the fl module has been removed in "
"Python 3.0", 2) < 0)
return;
Py_InitModule("fl", forms_methods);
if (m == NULL)
return;
foreground();
fl_init();
}
/*
* Initialize Board struct.
*
* No error checks here, just zero the values.
*/
void sq0x88_board_init(Board * board)
{
int i;
for (i = 0; i < 128; i++) {
board->pieces[i] = NOPIECE;
board->colors[i] = NOCOLOR;
}
board->turn = WHITE;
board->castle = NOCASTLE;
board->ep_square = NOSQUARE;
board->king_square[WHITE] = NOSQUARE;
board->king_square[BLACK] = NOSQUARE;
board->material[0] = 0;
board->material[1] = 0;
board->ply_count = 0;
board->ply_total = 0;
for (i = 0; i < 6; i++) {
board->piece_count[WHITE][i] = 0;
board->piece_count[BLACK][i] = 0;
}
board->zhash_key = 0;
/* Initiate other structures */
fl_init(&board->zhash_stack, freeKey);
fl_init(&board->player_moves, freeMove);
l_init(&board->player_pieces, freePiece);
vectors_init(board);
evalues_init(board);
zobrist_init(&board->zob_container);
return;
}
DLLEXPORT void jl_init_frontend(void)
{
fl_init(2*512*1024);
value_t img = cvalue(iostreamtype, sizeof(ios_t));
ios_t *pi = value2c(ios_t*, img);
ios_static_buffer(pi, flisp_system_image, sizeof(flisp_system_image));
if (fl_load_system_image(img)) {
JL_PRINTF(JL_STDERR, "fatal error loading system image\n");
jl_exit(1);
}
fl_applyn(0, symbol_value(symbol("__init_globals")));
jvtype = define_opaque_type(symbol("julia_value"), sizeof(void*),
NULL, NULL);
assign_global_builtins(julia_flisp_ast_ext);
}
int media_access_init(int drive)
{
int ret;
io_floppy_timeout = 0;
ret = init_fdc(drive);
if( ret != ERR_NO_ERROR )
return ret;
#ifdef DEBUG
dbg_printf("init_fdc Done\n");
#endif
ret = media_init();
if( ret == ERR_NO_ERROR )
{
#ifdef DEBUG
dbg_printf("media_init done\n");
#endif
// Initialise File IO Library
fl_init();
#ifdef DEBUG
dbg_printf("fl_init done\n");
#endif
/* Attach media access functions to library*/
if (fl_attach_media(media_read, media_write) != FAT_INIT_OK)
{
return -ERR_MEDIA_ATTACH;
}
#ifdef DEBUG
dbg_printf("fl_attach_media done\n");
#endif
return ERR_NO_ERROR;
}
return ret;
}
int main(int argc, char *argv[])
{
char fname_buf[1024];
fl_context_t *fl_ctx = &fl_global_ctx;
fl_init(fl_ctx, 512*1024);
fname_buf[0] = '\0';
value_t str = symbol_value(symbol(fl_ctx, "*install-dir*"));
char *exedir = (char*)(str == UNBOUND ? NULL : cvalue_data(str));
if (exedir != NULL) {
strcat(fname_buf, exedir);
strcat(fname_buf, PATHSEPSTRING);
}
strcat(fname_buf, "flisp.boot");
value_t args[2];
fl_gc_handle(fl_ctx, &args[0]);
fl_gc_handle(fl_ctx, &args[1]);
FL_TRY_EXTERN(fl_ctx) {
args[0] = cvalue_static_cstring(fl_ctx, fname_buf);
args[1] = symbol(fl_ctx, ":read");
value_t f = fl_file(fl_ctx, &args[0], 2);
fl_free_gc_handles(fl_ctx, 2);
if (fl_load_system_image(fl_ctx, f))
return 1;
(void)fl_applyn(fl_ctx, 1, symbol_value(symbol(fl_ctx, "__start")),
argv_list(fl_ctx, argc, argv));
}
FL_CATCH_EXTERN(fl_ctx) {
ios_puts("fatal error:\n", ios_stderr);
fl_print(fl_ctx, ios_stderr, fl_ctx->lasterror);
ios_putc('\n', ios_stderr);
return 1;
}
return 0;
}
int main(int argc, char **argv)
{
char buf[1024];
if( fl_init(argv[1]) == 0)
{
setvbuf(stdin, NULL, _IOLBF, 1024);
setvbuf(stdout, NULL, _IONBF, 1024);
while(fgets(buf, 1024, stdin) != NULL)
{
int n = strlen(buf);
buf[n-1] = 0;
printf("%s ",buf);
float r = fl_say(buf);
printf(" (%.2fs)\n", r);
}
}
else
puts("flite init fails\n");
return 0;
}
void fs_init() {
mmchs_init();
fl_init();
fl_attach_media(fs_read, fs_write);
}
//-----------------------------------------------------------------
// Main: Test bench file to create 5 files with psuedo random
// sequences in of varying lengths - read them back and complete
// then remove them.
//-----------------------------------------------------------------
void main()
{
int i,j,x;
FL_FILE * files[5];
FL_FILE *readFile;
char filenames[5][260];
BYTE fileData[5][10000];
BYTE readBuffer[10000];
int fileLengths[5];
BYTE *massiveData;
time_t timeStart, timeEnd;
#define TESTFILES 6
char *testfile[] = { "X:\\1", "X:\\1.bin", "X:\\12345678.321",
"X:\\mylongfilename", "X:\\mylongfilename.bin",
"X:\\the Quick Brown Fox jumped over the lazy dog.elf.binfile.jar" };
srand(time(NULL));
// Initialise
FAT32_InitDrive();
fl_init();
if (fl_attach_media(FAT_ReadSector, FAT_WriteSector) != FAT_INIT_OK)
return;
// List directory
fl_listdirectory("C:\\");
// return ;
test_start:
// Generate 5 random files
memset(filenames, 0x00, 260*5);
for (j=0;j<5;j++)
{
// Length
fileLengths[j] = GetRandom(9999);
// Data
for (x=0;x<fileLengths[j];x++)
fileData[j][x] = (BYTE)GetRandom(255);
// Names
sprintf(filenames[j], "X:\\Auto Generated Filename Number %d", j+1);
}
// Create some files
for (j=0;j<5;j++)
{
printf("Creating File: %s [%d bytes]\n", filenames[j], fileLengths[j]);
// Create File
files[j] = fl_fopen(filenames[j], "w");
if (files[j]!=NULL)
{
if (fl_fwrite(fileData[j], 1, fileLengths[j], files[j])!=fileLengths[j])
{
printf("ERROR: File Write Block Failed File %s Length %d\n", filenames[j], fileLengths[j]);
fl_assert(0);
}
}
else
{
printf("ERROR: Error Creating File %s\n", filenames[j]);
fl_assert(0);
}
fl_fclose(files[j]);
// Clear buffer
for (i=0;i<sizeof(readBuffer);i++)
readBuffer[i] = 0;
// Verify File
readFile = fl_fopen(filenames[j], "r");
if (readFile!=NULL)
{
int failed = FALSE;
printf("File %s Read Check (fread whole file) [%d bytes]\n", filenames[j], fileLengths[j]);
if (fl_fread(readBuffer, 1, fileLengths[j], readFile)!=fileLengths[j])
{
printf("ERROR: File %s Read Length Error %d\n", filenames[j], fileLengths[j]);
fl_assert(0);
}
for (i=0;i<fileLengths[j];i++)
if ( fileData[j][i] != (BYTE)readBuffer[i] )
failed = TRUE;
if (failed)
{
printf("ERROR: File %s Data Verify Failed\n", filenames[j]);
fl_assert(0);
}
}
fl_fclose(readFile);
// Clear buffer
for (i=0;i<sizeof(readBuffer);i++)
readBuffer[i] = 0;
// Verify File using fgetc
readFile = fl_fopen(filenames[j], "r");
if (readFile!=NULL)
{
int failed = FALSE;
printf("File %s Read Check (fgetc) [%d bytes]\n", filenames[j], fileLengths[j]);
i = 0;
while (i < fileLengths[j])
{
int res = fl_fgetc(readFile);
if (res == -1)
break;
readBuffer[i++] = (BYTE)res;
}
if (i != fileLengths[j])
{
printf("ERROR: File %s Read Length Error %d\n", filenames[j], fileLengths[j]);
fl_assert(0);
}
for (i=0;i<fileLengths[j];i++)
if ( fileData[j][i] != (BYTE)readBuffer[i] )
failed = TRUE;
if (failed)
{
printf("ERROR: File %s Data Verify Failed\n", filenames[j]);
fl_assert(0);
}
}
fl_fclose(readFile);
// Clear buffer
for (i=0;i<sizeof(readBuffer);i++)
readBuffer[i] = 0;
// Verify File chunks
readFile = fl_fopen(filenames[j], "r");
if (readFile!=NULL)
{
int failed = FALSE;
printf("File %s Read Check (fread chunks) [%d bytes]\n", filenames[j], fileLengths[j]);
i = 0;
while (i < fileLengths[j])
{
int read_length = GetRandom(1025);
if (read_length > (fileLengths[j] - i))
read_length = fileLengths[j] - i;
if (fl_fread(readBuffer + i, 1, read_length, readFile) != read_length)
{
printf("ERROR: File %s fread error\n", filenames[j]);
fl_assert(0);
break;
}
i += read_length;
}
if (i != fileLengths[j])
{
printf("ERROR: File %s Read Length Error %d\n", filenames[j], fileLengths[j]);
fl_assert(0);
}
for (i=0;i<fileLengths[j];i++)
if ( fileData[j][i] != (BYTE)readBuffer[i] )
{
failed = TRUE;
break;
}
if (failed)
{
printf("ERROR: File %s Data Verify Failed at %d\n", filenames[j], i);
fl_assert(0);
}
}
fl_fclose(readFile);
// Delete File
if (fl_remove(filenames[j])<0)
printf("ERROR: Delete File %s Failed\n", filenames[j]);
// Verify file is no longer present!
readFile = fl_fopen(filenames[j], "r");
if (readFile != NULL)
{
printf("ERROR: File %s still present after delete!\n", filenames[j]);
fl_assert(0);
fl_fclose(readFile);
}
}
// Create folder
fl_createdirectory("C:\\folder1");
#if 0
// Create massive file
#define MASSIVE_FILE_LEN (1024 * 1024)
printf("Creating Massive File [%d bytes]\n", MASSIVE_FILE_LEN);
massiveData = malloc(MASSIVE_FILE_LEN);
if (!massiveData)
{
printf("ERROR: Could not allocate memory for massive array!\n");
fl_assert(0);
fl_shutdown();
return ;
}
// Create random data for file
for (x=0;x<MASSIVE_FILE_LEN;x++)
massiveData[x] = (BYTE)GetRandom(255);
// Remove if it already exists!
fl_remove("X:\\folder1\\massive file.bin");
timeStart = time(NULL);
// Create Large File
readFile = fl_fopen("X:\\folder1\\massive file.bin", "w");
if (readFile != NULL)
{
if (fl_fwrite(massiveData, 1, MASSIVE_FILE_LEN, readFile) != MASSIVE_FILE_LEN)
{
printf("ERROR: File Write Block Failed for massive file (Length %d)\n", MASSIVE_FILE_LEN);
fl_assert(0);
}
}
else
{
printf("ERROR: Error Creating massive file\n");
fl_assert(0);
}
fl_fclose(readFile);
// Verify Massive File
readFile = fl_fopen("X:\\folder1\\massive file.bin", "r");
if (readFile!=NULL)
{
int failed = FALSE;
printf("File Massive File Read Check (fread whole file) [%d bytes]\n", MASSIVE_FILE_LEN);
i = 0;
while (i < MASSIVE_FILE_LEN)
{
int read_length = GetRandom(2048) + 128;
if (read_length > (MASSIVE_FILE_LEN - i))
read_length = MASSIVE_FILE_LEN - i;
if (fl_fread(readBuffer, 1, read_length, readFile) != read_length)
{
printf("ERROR: File massive file fread error\n");
fl_assert(0);
break;
}
for (j=0;j<read_length;j++)
if ( massiveData[i+j] != (BYTE)readBuffer[j] )
{
printf("ERROR: File Massive File Data Verify Failed at %d\n", i+j);
fl_assert(0);
break;
}
i += read_length;
}
if (i != MASSIVE_FILE_LEN)
{
printf("ERROR: File massive file Read Length Error %d\n", MASSIVE_FILE_LEN);
fl_assert(0);
}
}
fl_fclose(readFile);
timeEnd = time(NULL);
printf("Time taken %d seconds\n", (int)(timeEnd-timeStart));
free(massiveData);
#endif
// Filename test
for (i=0;i<TESTFILES;i++)
{
// Create File
readFile = fl_fopen(testfile[i], "w");
if (readFile != NULL)
;
else
{
printf("ERROR: Error Creating File %s\n", testfile[i]);
fl_assert(0);
}
fl_fputc(0, readFile);
fl_fclose(readFile);
readFile = fl_fopen(testfile[i], "r");
assert(readFile);
fl_fclose(readFile);
}
// List directory
fl_listdirectory("C:\\");
for (i=0;i<TESTFILES;i++)
{
// Delete File
if (fl_remove(testfile[i])<0)
{
printf("ERROR: Delete File %s Failed\n", testfile[i]);
fl_assert(0);
}
}
fl_shutdown();
printf("\r\nCompleted\r\n");
// List directory
fl_listdirectory("C:\\");
}
int main(int argc, char **argv) {
setlocale(LC_ALL, "");
// Early logging goes to stderr
stderrlog = stderr;
// parse commandline options
GOptionContext *optx = g_option_context_new("- NCurses Direct Connect");
g_option_context_add_main_entries(optx, cli_options, NULL);
GError *err = NULL;
if(!g_option_context_parse(optx, &argc, &argv, &err)) {
puts(err->message);
exit(1);
}
g_option_context_free(optx);
// check that the current locale is UTF-8. Things aren't going to work otherwise
if(!g_get_charset(NULL)) {
puts("WARNING: Your current locale is not set to UTF-8.");
puts("Non-ASCII characters may not display correctly.");
puts("Hit Ctrl+c to abort ncdc, or the return key to continue anyway.");
getchar();
}
// init stuff
init_crypt();
g_thread_init(NULL);
// Create main loop
main_loop = g_main_loop_new(NULL, FALSE);
// setup logging
g_log_set_handler(NULL, G_LOG_FATAL_MASK | G_LOG_FLAG_FATAL | G_LOG_LEVEL_ERROR, log_fatal, NULL);
g_log_set_default_handler(log_redirect, NULL);
// Init database & variables
db_init();
vars_init();
// open log file
char *errlog = g_build_filename(db_dir, "stderr.log", NULL);
if(!(stderrlog = fopen(errlog, "w"))) {
fprintf(stderr, "ERROR: Couldn't open %s for writing: %s\n", errlog, strerror(errno));
exit(1);
}
g_free(errlog);
// Init more stuff
hub_init_global();
net_init_global();
listen_global_init();
cc_global_init();
dl_init_global();
ui_cmdhist_init("history");
ui_init(bracketed_paste);
geoip_reinit(4);
geoip_reinit(6);
// setup SIGWINCH
struct sigaction act;
sigemptyset(&act.sa_mask);
act.sa_flags = SA_RESTART;
act.sa_handler = catch_sigwinch;
if(sigaction(SIGWINCH, &act, NULL) < 0)
g_error("Can't setup SIGWINCH: %s", g_strerror(errno));
// setup SIGTERM
act.sa_handler = catch_sigterm;
if(sigaction(SIGTERM, &act, NULL) < 0)
g_error("Can't setup SIGTERM: %s", g_strerror(errno));
// setup SIGHUP
act.sa_handler = catch_sighup;
if(sigaction(SIGHUP, &act, NULL) < 0)
g_error("Can't setup SIGHUP: %s", g_strerror(errno));
// setup SIGUSR1
act.sa_handler = catch_sigusr1;
if(sigaction(SIGUSR1, &act, NULL) < 0)
g_error("Can't setup SIGUSR1: %s", g_strerror(errno));
// setup SIGPIPE
act.sa_handler = catch_sigpipe;
if(sigaction(SIGPIPE, &act, NULL) < 0)
g_error("Can't setup SIGPIPE: %s", g_strerror(errno));
fl_init();
if(auto_open)
open_autoconnect();
// add some watches and start the main loop
GIOChannel *in = g_io_channel_unix_new(STDIN_FILENO);
g_io_add_watch(in, G_IO_IN, stdin_read, NULL);
GSource *sighandle = g_source_new(&sighandle_funcs, sizeof(GSource));
g_source_set_priority(sighandle, G_PRIORITY_HIGH);
g_source_set_callback(sighandle, sighandle_sourcefunc, NULL, NULL);
g_source_attach(sighandle, NULL);
g_source_unref(sighandle);
g_timeout_add_seconds_full(G_PRIORITY_HIGH, 1, one_second_timer, NULL, NULL);
g_timeout_add(100, screen_update_check, NULL);
int maxage = var_get_int(0, VAR_filelist_maxage);
g_timeout_add_seconds_full(G_PRIORITY_LOW, CLAMP(maxage, 3600, 24*3600), dl_fl_clean, NULL, NULL);
g_main_loop_run(main_loop);
// cleanup
if(!main_noterm) {
erase();
refresh();
endwin();
if(bracketed_paste)
ui_set_bracketed_paste(0);
printf("Flushing unsaved data to disk...");
fflush(stdout);
}
ui_cmdhist_close();
cc_global_close();
fl_flush(NULL);
dl_close_global();
db_close();
gnutls_global_deinit();
if(!main_noterm)
printf(" Done!\n");
g_debug("Clean shutdown.");
return 0;
}
