File: g2c-init.c

package info (click to toggle)
goo 0.155-15
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 14,904 kB
  • ctags: 21,551
  • sloc: ansic: 253,539; lisp: 2,452; makefile: 266; sh: 211
file content (26 lines) | stat: -rw-r--r-- 507 bytes parent folder | download | duplicates (9)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
/* GOO 2 C $REVISION: 0.120 $ 
  */

#include "grt.h"

static PSTR _mod = PNUL;

static P sloc (int line) {
  if (_mod == PNUL) _mod = YPPsym((P)"eval/main");
  return YPsrc_loc(YPib((P)line), _mod);
}

/* APPLICATION: */

extern MODULE_INFO module_info_evalSmain;
extern void load_module_evalSmain (void);

MODULE_INFO *goo_toplevel_module_info = &module_info_evalSmain;

int main(int argc, char* argv[]) {
  YPinit_world(argc, argv);
  load_module_evalSmain();
  return 0;
}

/* END OF GENERATED CODE. */