/[gcl]/gcl/o/main.c
ViewVC logotype

Diff of /gcl/o/main.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by camm, Wed Sep 10 19:57:55 2003 UTC revision 1.33 by camm, Sun Sep 14 02:43:07 2003 UTC
# Line 251  main(int argc, char **argv, char **envp) Line 251  main(int argc, char **argv, char **envp)
251              saving_system = FALSE;              saving_system = FALSE;
252              terminal_io->sm.sm_object0->sm.sm_fp = stdin;              terminal_io->sm.sm_object0->sm.sm_fp = stdin;
253              terminal_io->sm.sm_object1->sm.sm_fp = stdout;              terminal_io->sm.sm_object1->sm.sm_fp = stdout;
254              init_big1();              gcl_init_big1();
255  #ifdef INIT_CORE_END  #ifdef INIT_CORE_END
256              INIT_CORE_END              INIT_CORE_END
257  #endif                      #endif                    
# Line 278  main(int argc, char **argv, char **envp) Line 278  main(int argc, char **argv, char **envp)
278          ovm_process_created = 1;          ovm_process_created = 1;
279  #endif  #endif
280  #ifdef HAVE_READLINE  #ifdef HAVE_READLINE
281          init_readline_function();          gcl_init_readline_function();
282  #endif  #endif
283      again:      again:
284          super_funcall(sStop_level);          super_funcall(sStop_level);
# Line 309  main(int argc, char **argv, char **envp) Line 309  main(int argc, char **argv, char **envp)
309    
310      CMPtemp = CMPtemp1 = CMPtemp2 = CMPtemp3 = OBJNULL;      CMPtemp = CMPtemp1 = CMPtemp2 = CMPtemp3 = OBJNULL;
311    
312      init_init();      gcl_init_init();
313    
314      sLApackageA->s.s_dbind = user_package;      sLApackageA->s.s_dbind = user_package;
315    
# Line 368  initlisp(void) { Line 368  initlisp(void) {
368              error("NULL_OR_ON_C_STACK macro invalid");              error("NULL_OR_ON_C_STACK macro invalid");
369            }            }
370    
371          init_alloc();          gcl_init_alloc();
372    
373          Dotnil_body.t = (short)t_symbol;          Dotnil_body.t = (short)t_symbol;
374          Dotnil_body.s_dbind = Dotnil;          Dotnil_body.s_dbind = Dotnil;
# Line 403  initlisp(void) { Line 403  initlisp(void) {
403          Ct_body.s_stype = (short)stp_constant;          Ct_body.s_stype = (short)stp_constant;
404          Ct_body.s_mflag = FALSE;          Ct_body.s_mflag = FALSE;
405                    
406          init_symbol();          gcl_init_symbol();
407    
408          init_package();          gcl_init_package();
409    
410          Cnil->s.s_hpack = lisp_package;          Cnil->s.s_hpack = lisp_package;
411          import(Cnil, lisp_package);          import(Cnil, lisp_package);
# Line 435  initlisp(void) { Line 435  initlisp(void) {
435    
436                    
437          NewInit();          NewInit();
438          init_typespec();          gcl_init_typespec();
439          init_number();          gcl_init_number();
440          init_character();          gcl_init_character();
441    
442          init_read();          gcl_init_read();
443          init_bind();          gcl_init_bind();
444          init_pathname();          gcl_init_pathname();
445          init_print();          gcl_init_print();
446          init_GBC();          gcl_init_GBC();
447    
448  #if defined ( UNIX ) || defined ( __MINGW32__ )  #if defined ( UNIX ) || defined ( __MINGW32__ )
449  #  ifndef DGUX  #  ifndef DGUX
450          init_unixfasl();          gcl_init_unixfasl();
451          init_unixsys();          gcl_init_unixsys();
452          init_unixsave();          gcl_init_unixsave();
453  #  else  #  else
454    
455    
# Line 457  initlisp(void) { Line 457  initlisp(void) {
457  #  endif  #  endif
458  #endif /* defined ( UNIX ) || defined ( __MINGW32__ ) */  #endif /* defined ( UNIX ) || defined ( __MINGW32__ ) */
459    
460          init_alloc_function();          gcl_init_alloc_function();
461          init_array_function();          gcl_init_array_function();
462          init_character_function();          gcl_init_character_function();
463          init_file_function();          gcl_init_file_function();
464          init_list_function();          gcl_init_list_function();
465          init_package_function();          gcl_init_package_function();
466          init_pathname_function();          gcl_init_pathname_function();
467          init_predicate_function();          gcl_init_predicate_function();
468          init_print_function();          gcl_init_print_function();
469          init_read_function();          gcl_init_read_function();
470          init_sequence_function();          gcl_init_sequence_function();
471  #if  defined(KCLOVM) || defined(RUN_PROCESS)  #if  defined(KCLOVM) || defined(RUN_PROCESS)
472          init_socket_function();          gcl_init_socket_function();
473  #endif    #endif  
474          init_structure_function();          gcl_init_structure_function();
475          init_string_function();          gcl_init_string_function();
476          init_symbol_function();          gcl_init_symbol_function();
477          init_typespec_function();          gcl_init_typespec_function();
478          init_hash();          gcl_init_hash();
479          init_cfun();          gcl_init_cfun();
480    
481  #ifdef UNIX  #ifdef UNIX
482          init_unixfsys();          gcl_init_unixfsys();
483          init_unixtime();          gcl_init_unixtime();
484  #endif  #endif
485          init_eval();          gcl_init_eval();
486          init_lex();          gcl_init_lex();
487          init_prog();          gcl_init_prog();
488          init_catch();          gcl_init_catch();
489          init_block();          gcl_init_block();
490          init_macros();          gcl_init_macros();
491          init_conditional();          gcl_init_conditional();
492          init_reference();          gcl_init_reference();
493          init_assignment();          gcl_init_assignment();
494          init_multival();          gcl_init_multival();
495          init_error();          gcl_init_error();
496          init_let();          gcl_init_let();
497          init_mapfun();          gcl_init_mapfun();
498          init_iteration();          gcl_init_iteration();
499          init_toplevel();          gcl_init_toplevel();
500    
501          init_cmpaux();          gcl_init_cmpaux();
502    
503          init_main();          init_main();
504    
505          init_format();          gcl_init_format();
506          init_links();          gcl_init_links();
507    
508          init_fat_string();          gcl_init_fat_string();
509  #ifdef CMAC  #ifdef CMAC
510          init_cmac();          gcl_init_cmac();
511  #endif    #endif  
512    
513  }  }
# Line 734  DEFVAR("*NO-INIT*",sSAno_initA,SI,Cnil," Line 734  DEFVAR("*NO-INIT*",sSAno_initA,SI,Cnil,"
734  void  void
735  siLinit_system(void) {  siLinit_system(void) {
736    check_arg(0);    check_arg(0);
737    init_system(sSAno_initA);    gcl_init_system(sSAno_initA);
738    vs_base[0] = Cnil;    vs_base[0] = Cnil;
739  }  }
740    

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26