ForwardIterator uninitialized_copy_n_(InputIterator first, Size count, ForwardIterator dest, std::input_iterator_tag) { auto current = dest; try { for (; 0 < count; --count, ++current, ++first) { detail::construct(addressof(*current), *first); } return current; } catch (...) { detail::destroy(dest, current); throw; } }
ForwardIterator uninitialized_copy_(InputIterator first, InputIterator last, ForwardIterator dest, nek::false_type) { auto current = dest; try { for (; first != last; ++first, ++current) { detail::construct(addressof(*current), *first); } return current; } catch (...) { detail::destroy(dest, current); throw; } }
void push_back(const _Ty& _Val) { // insert element at end if (_Inside(_STD addressof(_Val))) { // push back an element size_type _Idx = _STD addressof(_Val) - this->_Myfirst; if (this->_Mylast == this->_Myend) _Reserve(1); _Orphan_range(this->_Mylast, this->_Mylast); _Cons_val(this->_Alval, this->_Mylast, this->_Myfirst[_Idx]); ++this->_Mylast; } else { // push back a non-element if (this->_Mylast == this->_Myend) _Reserve(1); _Orphan_range(this->_Mylast, this->_Mylast); _Cons_val(this->_Alval, this->_Mylast, _Val); ++this->_Mylast; } }
ForwardIterator uninitialized_copy(InputIterator first, InputIterator last, ForwardIterator dest, Allocator& allocator) { auto current = dest; using traits = nek::allocator_traits<Allocator>; try { for (; first != last; ++first, ++current) { traits::construct(allocator, addressof(*current), *first); } return current; } catch (...) { for (; dest != current; ++dest) { traits::destroy(allocator, nek::addressof(*dest)); } throw; } }
vector(size_type _Count, const _Ty& _Val, const _Alloc& _Al) : _Mybase(_Al) { // construct from _Count * _Val, with allocator _Construct_n(_Count, _STD addressof(_Val)); }
vector(size_type _Count, const _Ty& _Val) : _Mybase() { // construct from _Count * _Val _Construct_n(_Count, _STD addressof(_Val)); }
const_pointer address(const_reference x) const{ return addressof(x); }
explicit tuple2(X const& x) : tuple_data2<T0, T1>(construct(x, addressof(x))) {}
// LWG2296 - addressof should be constexpr // { dg-do compile { target c++11 } } template <typename T> constexpr inline T * addressof (T &x) noexcept { return __builtin_addressof (x); } auto a = __builtin_addressof (1); // { dg-error "lvalue required as unary" } auto b = addressof (1); // { dg-error "cannot bind non-const lvalue reference of type" } struct S { int s : 5; int t; void foo (); } s; auto c = __builtin_addressof (s); auto d = addressof (s); auto e = __builtin_addressof (s.s); // { dg-error "attempt to take address of bit-field" } auto f = addressof (s.s); // { dg-error "cannot bind bitfield" } auto g = __builtin_addressof (S{}); // { dg-error "taking address of temporary" } auto h = addressof (S{}); // { dg-error "cannot bind non-const lvalue reference of type" } auto i = __builtin_addressof (S::t); // { dg-error "invalid use of non-static data member" } auto j = __builtin_addressof (S::foo); // { dg-error "invalid use of non-static member function" } void foo (bool b) { lab:; char c; long long int d; auto k = __builtin_addressof (lab); // { dg-error "was not declared in this scope" }
void m_visit_pointer(const T &t, const mpl::bool_<false> &) const { m_visit_pointer(addressof(t), mpl::bool_<true>()); }
void parsearguments ( void ) { #define noptions ( 4 ) getoptstruct longoptions[noptions + 1] ; integer getoptreturnval ; cinttype optionindex ; integer currentoption ; verbose = false ; charcodeformat = charcodedefault ; currentoption = 0 ; longoptions [currentoption ].name = "help" ; longoptions [currentoption ].hasarg = 0 ; longoptions [currentoption ].flag = 0 ; longoptions [currentoption ].val = 0 ; currentoption = currentoption + 1 ; longoptions [currentoption ].name = "version" ; longoptions [currentoption ].hasarg = 0 ; longoptions [currentoption ].flag = 0 ; longoptions [currentoption ].val = 0 ; currentoption = currentoption + 1 ; longoptions [currentoption ].name = "verbose" ; longoptions [currentoption ].hasarg = 0 ; longoptions [currentoption ].flag = addressof ( verbose ) ; longoptions [currentoption ].val = 1 ; currentoption = currentoption + 1 ; longoptions [currentoption ].name = "charcode-format" ; longoptions [currentoption ].hasarg = 1 ; longoptions [currentoption ].flag = 0 ; longoptions [currentoption ].val = 0 ; currentoption = currentoption + 1 ; longoptions [currentoption ].name = 0 ; longoptions [currentoption ].hasarg = 0 ; longoptions [currentoption ].flag = 0 ; longoptions [currentoption ].val = 0 ; do { getoptreturnval = getoptlongonly ( argc , argv , "" , longoptions , addressof ( optionindex ) ) ; if ( getoptreturnval == -1 ) { ; } else if ( getoptreturnval == 63 ) { usage ( "tftopl" ) ; } else if ( ( strcmp ( longoptions [optionindex ].name , "help" ) == 0 ) ) { usagehelp ( TFTOPLHELP , nil ) ; } else if ( ( strcmp ( longoptions [optionindex ].name , "version" ) == 0 ) ) { printversionandexit ( "This is TFtoPL, Version 3.3" , nil , "D.E. Knuth" , nil ) ; } else if ( ( strcmp ( longoptions [optionindex ].name , "charcode-format" ) == 0 ) ) { if ( strcmp ( optarg , "ascii" ) == 0 ) charcodeformat = charcodeascii ; else if ( strcmp ( optarg , "octal" ) == 0 ) charcodeformat = charcodeoctal ; else fprintf ( stderr , "%s%s%c\n", "Bad character code format " , stringcast ( optarg ) , '.' ) ; } } while ( ! ( getoptreturnval == -1 ) ) ; if ( ( optind + 1 != argc ) && ( optind + 2 != argc ) ) { fprintf ( stderr , "%s%s\n", "tftopl" , ": Need one or two file arguments." ) ; usage ( "tftopl" ) ; } tfmname = cmdline ( optind ) ; }
void parsearguments ( void ) { #define noptions ( 4 ) getoptstruct longoptions[noptions + 1] ; integer getoptreturnval ; cinttype optionindex ; integer currentoption ; currentoption = 0 ; longoptions [currentoption ].name = "help" ; longoptions [currentoption ].hasarg = 0 ; longoptions [currentoption ].flag = 0 ; longoptions [currentoption ].val = 0 ; currentoption = currentoption + 1 ; longoptions [currentoption ].name = "version" ; longoptions [currentoption ].hasarg = 0 ; longoptions [currentoption ].flag = 0 ; longoptions [currentoption ].val = 0 ; currentoption = currentoption + 1 ; longoptions [currentoption ].name = "mnemonics" ; longoptions [currentoption ].hasarg = 0 ; longoptions [currentoption ].flag = addressof ( wantsmnemonics ) ; longoptions [currentoption ].val = 1 ; currentoption = currentoption + 1 ; longoptions [currentoption ].name = "images" ; longoptions [currentoption ].hasarg = 0 ; longoptions [currentoption ].flag = addressof ( wantspixels ) ; longoptions [currentoption ].val = 1 ; currentoption = currentoption + 1 ; longoptions [currentoption ].name = 0 ; longoptions [currentoption ].hasarg = 0 ; longoptions [currentoption ].flag = 0 ; longoptions [currentoption ].val = 0 ; do { getoptreturnval = getoptlongonly ( argc , argv , "" , longoptions , addressof ( optionindex ) ) ; if ( getoptreturnval == -1 ) { ; } else if ( getoptreturnval == 63 ) { usage ( "gftype" ) ; } else if ( ( strcmp ( longoptions [optionindex ].name , "help" ) == 0 ) ) { usagehelp ( GFTYPEHELP , nil ) ; } else if ( ( strcmp ( longoptions [optionindex ].name , "version" ) == 0 ) ) { printversionandexit ( "This is GFtype, Version 3.1" , nil , "D.R. Fuchs" , nil ) ; } } while ( ! ( getoptreturnval == -1 ) ) ; if ( ( optind + 1 != argc ) ) { fprintf ( stderr , "%s%s\n", "gftype" , ": Need exactly one file argument." ) ; usage ( "gftype" ) ; } }
void initialize ( void ) { integer i ; integer bounddefault ; constcstring boundname ; kpsesetprogramname ( argv [0 ], "gftype" ) ; kpseinitprog ( "GFTYPE" , 0 , nil , nil ) ; parsearguments () ; Fputs ( stdout , "This is GFtype, Version 3.1" ) ; fprintf ( stdout , "%s\n", versionstring ) ; bounddefault = 500 ; boundname = "line_length" ; setupboundvariable ( addressof ( linelength ) , boundname , bounddefault ) ; bounddefault = 8191 ; boundname = "max_rows" ; setupboundvariable ( addressof ( maxrows ) , boundname , bounddefault ) ; bounddefault = 8191 ; boundname = "max_cols" ; setupboundvariable ( addressof ( maxcols ) , boundname , bounddefault ) ; { if ( linelength < inflinelength ) linelength = inflinelength ; else if ( linelength > suplinelength ) linelength = suplinelength ; } if ( maxrows > 8191 ) maxrows = 8191 ; if ( maxcols > 8191 ) maxcols = 8191 ; imagearray = nil ; {register integer for_end; i = 0 ;for_end = 31 ; if ( i <= for_end) do xchr [i ]= '?' ; while ( i++ < for_end ) ;} xchr [32 ]= ' ' ; xchr [33 ]= '!' ; xchr [34 ]= '"' ; xchr [35 ]= '#' ; xchr [36 ]= '$' ; xchr [37 ]= '%' ; xchr [38 ]= '&' ; xchr [39 ]= '\'' ; xchr [40 ]= '(' ; xchr [41 ]= ')' ; xchr [42 ]= '*' ; xchr [43 ]= '+' ; xchr [44 ]= ',' ; xchr [45 ]= '-' ; xchr [46 ]= '.' ; xchr [47 ]= '/' ; xchr [48 ]= '0' ; xchr [49 ]= '1' ; xchr [50 ]= '2' ; xchr [51 ]= '3' ; xchr [52 ]= '4' ; xchr [53 ]= '5' ; xchr [54 ]= '6' ; xchr [55 ]= '7' ; xchr [56 ]= '8' ; xchr [57 ]= '9' ; xchr [58 ]= ':' ; xchr [59 ]= ';' ; xchr [60 ]= '<' ; xchr [61 ]= '=' ; xchr [62 ]= '>' ; xchr [63 ]= '?' ; xchr [64 ]= '@' ; xchr [65 ]= 'A' ; xchr [66 ]= 'B' ; xchr [67 ]= 'C' ; xchr [68 ]= 'D' ; xchr [69 ]= 'E' ; xchr [70 ]= 'F' ; xchr [71 ]= 'G' ; xchr [72 ]= 'H' ; xchr [73 ]= 'I' ; xchr [74 ]= 'J' ; xchr [75 ]= 'K' ; xchr [76 ]= 'L' ; xchr [77 ]= 'M' ; xchr [78 ]= 'N' ; xchr [79 ]= 'O' ; xchr [80 ]= 'P' ; xchr [81 ]= 'Q' ; xchr [82 ]= 'R' ; xchr [83 ]= 'S' ; xchr [84 ]= 'T' ; xchr [85 ]= 'U' ; xchr [86 ]= 'V' ; xchr [87 ]= 'W' ; xchr [88 ]= 'X' ; xchr [89 ]= 'Y' ; xchr [90 ]= 'Z' ; xchr [91 ]= '[' ; xchr [92 ]= '\\' ; xchr [93 ]= ']' ; xchr [94 ]= '^' ; xchr [95 ]= '_' ; xchr [96 ]= '`' ; xchr [97 ]= 'a' ; xchr [98 ]= 'b' ; xchr [99 ]= 'c' ; xchr [100 ]= 'd' ; xchr [101 ]= 'e' ; xchr [102 ]= 'f' ; xchr [103 ]= 'g' ; xchr [104 ]= 'h' ; xchr [105 ]= 'i' ; xchr [106 ]= 'j' ; xchr [107 ]= 'k' ; xchr [108 ]= 'l' ; xchr [109 ]= 'm' ; xchr [110 ]= 'n' ; xchr [111 ]= 'o' ; xchr [112 ]= 'p' ; xchr [113 ]= 'q' ; xchr [114 ]= 'r' ; xchr [115 ]= 's' ; xchr [116 ]= 't' ; xchr [117 ]= 'u' ; xchr [118 ]= 'v' ; xchr [119 ]= 'w' ; xchr [120 ]= 'x' ; xchr [121 ]= 'y' ; xchr [122 ]= 'z' ; xchr [123 ]= '{' ; xchr [124 ]= '|' ; xchr [125 ]= '}' ; xchr [126 ]= '~' ; {register integer for_end; i = 127 ;for_end = 255 ; if ( i <= for_end) do xchr [i ]= '?' ; while ( i++ < for_end ) ;} {register integer for_end; i = 0 ;for_end = 127 ; if ( i <= for_end) do xord [chr ( i ) ]= 32 ; while ( i++ < for_end ) ;} {register integer for_end; i = 32 ;for_end = 126 ; if ( i <= for_end) do xord [xchr [i ]]= i ; while ( i++ < for_end ) ;} {register integer for_end; i = 0 ;for_end = 255 ; if ( i <= for_end) do charptr [i ]= -1 ; while ( i++ < for_end ) ;} totalchars = 0 ; minmoverall = maxint ; maxmoverall = - (integer) maxint ; minnoverall = maxint ; maxnoverall = - (integer) maxint ; }
// Dereferencing pointer operator-> () const { freeze_element(); return addressof(m_pNode->m_Value); }
void _Construct(_Iter _Count, _Iter _Val, _Int_iterator_tag) { // initialize with _Count * _Val size_type _Size = (size_type)_Count; _Ty _Newval = (_Ty)_Val; _Construct_n(_Size, _STD addressof(_Newval)); }
void testRadar11487525_1(){ bool s[25]; addressof(s); }
/* 10 */ smallnumber c ; c = curmod ; if ( jobname == 0 ) openlogfile () ; while ( inputptr > 0 ) if ( ( curinput .indexfield > 15 ) ) endtokenlist () ; else endfilereading () ; while ( loopptr != 0 ) stopiteration () ; while ( openparens > 0 ) { print ( 1078 ) ; decr ( openparens ) ; } while ( condptr != 0 ) { printnl ( 1079 ) ; printcmdmod ( 2 , curif ) ; if ( ifline != 0 ) { print ( 1080 ) ; printint ( ifline ) ; } print ( 1081 ) ; ifline = mem [condptr + 1 ].cint ; curif = mem [condptr ].hhfield .b1 ; loopptr = condptr ; condptr = mem [condptr ].hhfield .v.RH ; freenode ( loopptr , 2 ) ; } if ( history != 0 ) { if ( ( ( history == 1 ) || ( interaction < 3 ) ) ) { if ( selector == 3 ) { selector = 1 ; printnl ( 1082 ) ; selector = 3 ; } } } if ( c == 1 ) { ; #ifdef INIMF if ( iniversion ) { storebasefile () ; goto lab10 ; } #endif /* INIMF */ printnl ( 1083 ) ; goto lab10 ; } lab10: ; } #ifdef INIMF void initprim ( void ) { primitive ( 409 , 41 , 1 ) ; primitive ( 410 , 41 , 2 ) ; primitive ( 411 , 41 , 3 ) ; primitive ( 412 , 41 , 4 ) ; primitive ( 413 , 41 , 5 ) ; primitive ( 414 , 41 , 6 ) ; primitive ( 415 , 41 , 7 ) ; primitive ( 416 , 41 , 8 ) ; primitive ( 417 , 41 , 9 ) ; primitive ( 418 , 41 , 10 ) ; primitive ( 419 , 41 , 11 ) ; primitive ( 420 , 41 , 12 ) ; primitive ( 421 , 41 , 13 ) ; primitive ( 422 , 41 , 14 ) ; primitive ( 423 , 41 , 15 ) ; primitive ( 424 , 41 , 16 ) ; primitive ( 425 , 41 , 17 ) ; primitive ( 426 , 41 , 18 ) ; primitive ( 427 , 41 , 19 ) ; primitive ( 428 , 41 , 20 ) ; primitive ( 429 , 41 , 21 ) ; primitive ( 430 , 41 , 22 ) ; primitive ( 431 , 41 , 23 ) ; primitive ( 432 , 41 , 24 ) ; primitive ( 433 , 41 , 25 ) ; primitive ( 434 , 41 , 26 ) ; primitive ( 435 , 41 , 27 ) ; primitive ( 436 , 41 , 28 ) ; primitive ( 437 , 41 , 29 ) ; primitive ( 438 , 41 , 30 ) ; primitive ( 439 , 41 , 31 ) ; primitive ( 440 , 41 , 32 ) ; primitive ( 441 , 41 , 33 ) ; primitive ( 442 , 41 , 34 ) ; primitive ( 443 , 41 , 35 ) ; primitive ( 444 , 41 , 36 ) ; primitive ( 445 , 41 , 37 ) ; primitive ( 446 , 41 , 38 ) ; primitive ( 447 , 41 , 39 ) ; primitive ( 448 , 41 , 40 ) ; primitive ( 449 , 41 , 41 ) ; primitive ( 408 , 48 , 0 ) ; primitive ( 91 , 64 , 0 ) ; eqtb [9760 ]= eqtb [cursym ]; primitive ( 93 , 65 , 0 ) ; primitive ( 125 , 66 , 0 ) ; primitive ( 123 , 47 , 0 ) ; primitive ( 58 , 82 , 0 ) ; eqtb [9762 ]= eqtb [cursym ]; primitive ( 459 , 81 , 0 ) ; primitive ( 460 , 80 , 0 ) ; primitive ( 461 , 78 , 0 ) ; primitive ( 44 , 83 , 0 ) ; primitive ( 59 , 84 , 0 ) ; eqtb [9763 ]= eqtb [cursym ]; primitive ( 92 , 7 , 0 ) ; primitive ( 462 , 19 , 0 ) ; primitive ( 463 , 73 , 0 ) ; primitive ( 464 , 60 , 0 ) ; primitive ( 465 , 33 , 0 ) ; bgloc = cursym ; primitive ( 466 , 58 , 0 ) ; primitive ( 467 , 20 , 0 ) ; primitive ( 468 , 61 , 0 ) ; primitive ( 469 , 28 , 0 ) ; primitive ( 470 , 12 , 0 ) ; primitive ( 453 , 85 , 0 ) ; eqtb [9767 ]= eqtb [cursym ]; egloc = cursym ; primitive ( 471 , 27 , 0 ) ; primitive ( 472 , 6 , 0 ) ; primitive ( 473 , 10 , 0 ) ; primitive ( 474 , 71 , 0 ) ; primitive ( 475 , 74 , 0 ) ; primitive ( 476 , 14 , 0 ) ; primitive ( 477 , 15 , 0 ) ; primitive ( 478 , 16 , 0 ) ; primitive ( 479 , 70 , 0 ) ; primitive ( 480 , 29 , 0 ) ; primitive ( 481 , 25 , 0 ) ; primitive ( 482 , 9 , 0 ) ; primitive ( 483 , 13 , 0 ) ; primitive ( 484 , 8 , 0 ) ; primitive ( 485 , 18 , 0 ) ; primitive ( 486 , 79 , 0 ) ; primitive ( 487 , 75 , 0 ) ; primitive ( 488 , 36 , 0 ) ; primitive ( 489 , 59 , 0 ) ; primitive ( 490 , 72 , 0 ) ; primitive ( 491 , 76 , 0 ) ; primitive ( 656 , 17 , 1 ) ; primitive ( 657 , 17 , 2 ) ; primitive ( 658 , 17 , 54 ) ; primitive ( 659 , 17 , 45 ) ; primitive ( 660 , 17 , 50 ) ; primitive ( 454 , 17 , 0 ) ; eqtb [9765 ]= eqtb [cursym ]; primitive ( 661 , 4 , 9770 ) ; primitive ( 662 , 4 , 9920 ) ; primitive ( 663 , 4 , 1 ) ; primitive ( 455 , 4 , 0 ) ; eqtb [9764 ]= eqtb [cursym ]; primitive ( 664 , 62 , 0 ) ; primitive ( 665 , 62 , 1 ) ; primitive ( 64 , 62 , 2 ) ; primitive ( 666 , 62 , 3 ) ; primitive ( 677 , 57 , 9770 ) ; primitive ( 678 , 57 , 9920 ) ; primitive ( 679 , 57 , 10070 ) ; primitive ( 680 , 57 , 1 ) ; primitive ( 681 , 57 , 2 ) ; primitive ( 682 , 57 , 3 ) ; primitive ( 692 , 3 , 0 ) ; primitive ( 618 , 3 , 1 ) ; primitive ( 719 , 1 , 1 ) ; primitive ( 452 , 2 , 2 ) ; eqtb [9766 ]= eqtb [cursym ]; primitive ( 720 , 2 , 3 ) ; primitive ( 721 , 2 , 4 ) ; primitive ( 347 , 34 , 30 ) ; primitive ( 348 , 34 , 31 ) ; primitive ( 349 , 34 , 32 ) ; primitive ( 350 , 34 , 33 ) ; primitive ( 351 , 34 , 34 ) ; primitive ( 352 , 34 , 35 ) ; primitive ( 353 , 34 , 36 ) ; primitive ( 354 , 34 , 37 ) ; primitive ( 355 , 35 , 38 ) ; primitive ( 356 , 35 , 39 ) ; primitive ( 357 , 35 , 40 ) ; primitive ( 358 , 35 , 41 ) ; primitive ( 359 , 35 , 42 ) ; primitive ( 360 , 35 , 43 ) ; primitive ( 361 , 35 , 44 ) ; primitive ( 362 , 35 , 45 ) ; primitive ( 363 , 35 , 46 ) ; primitive ( 364 , 35 , 47 ) ; primitive ( 365 , 35 , 48 ) ; primitive ( 366 , 35 , 49 ) ; primitive ( 367 , 35 , 50 ) ; primitive ( 368 , 35 , 51 ) ; primitive ( 369 , 35 , 52 ) ; primitive ( 370 , 35 , 53 ) ; primitive ( 371 , 35 , 54 ) ; primitive ( 372 , 35 , 55 ) ; primitive ( 373 , 35 , 56 ) ; primitive ( 374 , 35 , 57 ) ; primitive ( 375 , 35 , 58 ) ; primitive ( 376 , 35 , 59 ) ; primitive ( 377 , 35 , 60 ) ; primitive ( 378 , 35 , 61 ) ; primitive ( 379 , 35 , 62 ) ; primitive ( 380 , 35 , 63 ) ; primitive ( 381 , 35 , 64 ) ; primitive ( 382 , 35 , 65 ) ; primitive ( 383 , 35 , 66 ) ; primitive ( 384 , 35 , 67 ) ; primitive ( 385 , 37 , 68 ) ; primitive ( 43 , 44 , 69 ) ; primitive ( 45 , 44 , 70 ) ; primitive ( 42 , 56 , 71 ) ; primitive ( 47 , 55 , 72 ) ; eqtb [9761 ]= eqtb [cursym ]; primitive ( 386 , 46 , 73 ) ; primitive ( 310 , 46 , 74 ) ; primitive ( 388 , 53 , 76 ) ; primitive ( 387 , 46 , 75 ) ; primitive ( 60 , 51 , 77 ) ; primitive ( 389 , 51 , 78 ) ; primitive ( 62 , 51 , 79 ) ; primitive ( 390 , 51 , 80 ) ; primitive ( 61 , 52 , 81 ) ; primitive ( 391 , 51 , 82 ) ; primitive ( 401 , 38 , 94 ) ; primitive ( 402 , 38 , 95 ) ; primitive ( 403 , 38 , 96 ) ; primitive ( 404 , 38 , 97 ) ; primitive ( 405 , 38 , 98 ) ; primitive ( 406 , 38 , 99 ) ; primitive ( 407 , 38 , 100 ) ; primitive ( 38 , 49 , 83 ) ; primitive ( 392 , 56 , 84 ) ; primitive ( 393 , 56 , 85 ) ; primitive ( 394 , 56 , 86 ) ; primitive ( 395 , 56 , 87 ) ; primitive ( 396 , 56 , 88 ) ; primitive ( 397 , 56 , 89 ) ; primitive ( 398 , 56 , 90 ) ; primitive ( 399 , 56 , 91 ) ; primitive ( 400 , 46 , 92 ) ; primitive ( 340 , 31 , 15 ) ; primitive ( 326 , 31 , 4 ) ; primitive ( 324 , 31 , 2 ) ; primitive ( 331 , 31 , 9 ) ; primitive ( 328 , 31 , 6 ) ; primitive ( 333 , 31 , 11 ) ; primitive ( 335 , 31 , 13 ) ; primitive ( 336 , 31 , 14 ) ; primitive ( 913 , 86 , 0 ) ; primitive ( 914 , 86 , 1 ) ; primitive ( 273 , 24 , 0 ) ; primitive ( 274 , 24 , 1 ) ; primitive ( 275 , 24 , 2 ) ; primitive ( 920 , 24 , 3 ) ; primitive ( 921 , 22 , 0 ) ; primitive ( 922 , 22 , 1 ) ; primitive ( 936 , 23 , 0 ) ; primitive ( 937 , 23 , 1 ) ; primitive ( 938 , 23 , 2 ) ; primitive ( 939 , 23 , 3 ) ; primitive ( 940 , 23 , 4 ) ; primitive ( 957 , 69 , 1 ) ; primitive ( 958 , 69 , 0 ) ; primitive ( 959 , 69 , 2 ) ; primitive ( 960 , 67 , 6 ) ; primitive ( 961 , 67 , 16 ) ; primitive ( 962 , 68 , 0 ) ; primitive ( 963 , 68 , 1 ) ; primitive ( 993 , 26 , 0 ) ; primitive ( 994 , 26 , 1 ) ; primitive ( 995 , 26 , 2 ) ; primitive ( 1005 , 21 , 0 ) ; primitive ( 1006 , 21 , 1 ) ; primitive ( 1007 , 21 , 2 ) ; primitive ( 1008 , 21 , 3 ) ; primitive ( 1009 , 21 , 4 ) ; primitive ( 1027 , 77 , 0 ) ; primitive ( 1028 , 77 , 1 ) ; primitive ( 1029 , 77 , 5 ) ; primitive ( 1030 , 77 , 2 ) ; primitive ( 1031 , 77 , 6 ) ; primitive ( 1032 , 77 , 3 ) ; primitive ( 1033 , 77 , 7 ) ; primitive ( 1034 , 77 , 11 ) ; primitive ( 1035 , 77 , 128 ) ; primitive ( 1060 , 30 , 4 ) ; primitive ( 1061 , 30 , 16 ) ; } void inittab ( void ) { integer k ; rover = 23 ; mem [rover ].hhfield .v.RH = 268435455L ; mem [rover ].hhfield .lhfield = 1000 ; mem [rover + 1 ].hhfield .lhfield = rover ; mem [rover + 1 ].hhfield .v.RH = rover ; lomemmax = rover + 1000 ; mem [lomemmax ].hhfield .v.RH = 0 ; mem [lomemmax ].hhfield .lhfield = 0 ; {register integer for_end; k = memtop - 2 ;for_end = memtop ; if ( k <= for_end) do mem [k ]= mem [lomemmax ]; while ( k++ < for_end ) ;} avail = 0 ; memend = memtop ; himemmin = memtop - 2 ; varused = 23 ; dynused = memtop + 1 - himemmin ; intname [1 ]= 409 ; intname [2 ]= 410 ; intname [3 ]= 411 ; intname [4 ]= 412 ; intname [5 ]= 413 ; intname [6 ]= 414 ; intname [7 ]= 415 ; intname [8 ]= 416 ; intname [9 ]= 417 ; intname [10 ]= 418 ; intname [11 ]= 419 ; intname [12 ]= 420 ; intname [13 ]= 421 ; intname [14 ]= 422 ; intname [15 ]= 423 ; intname [16 ]= 424 ; intname [17 ]= 425 ; intname [18 ]= 426 ; intname [19 ]= 427 ; intname [20 ]= 428 ; intname [21 ]= 429 ; intname [22 ]= 430 ; intname [23 ]= 431 ; intname [24 ]= 432 ; intname [25 ]= 433 ; intname [26 ]= 434 ; intname [27 ]= 435 ; intname [28 ]= 436 ; intname [29 ]= 437 ; intname [30 ]= 438 ; intname [31 ]= 439 ; intname [32 ]= 440 ; intname [33 ]= 441 ; intname [34 ]= 442 ; intname [35 ]= 443 ; intname [36 ]= 444 ; intname [37 ]= 445 ; intname [38 ]= 446 ; intname [39 ]= 447 ; intname [40 ]= 448 ; intname [41 ]= 449 ; hashused = 9757 ; stcount = 0 ; hash [9768 ].v.RH = 451 ; hash [9766 ].v.RH = 452 ; hash [9767 ].v.RH = 453 ; hash [9765 ].v.RH = 454 ; hash [9764 ].v.RH = 455 ; hash [9763 ].v.RH = 59 ; hash [9762 ].v.RH = 58 ; hash [9761 ].v.RH = 47 ; hash [9760 ].v.RH = 91 ; hash [9759 ].v.RH = 41 ; hash [9757 ].v.RH = 456 ; eqtb [9759 ].lhfield = 63 ; mem [19 ].hhfield .lhfield = 9770 ; mem [19 ].hhfield .v.RH = 0 ; mem [memtop ].hhfield .lhfield = 268435455L ; mem [3 ].hhfield .lhfield = 0 ; mem [3 ].hhfield .v.RH = 0 ; mem [4 ].hhfield .lhfield = 1 ; mem [4 ].hhfield .v.RH = 0 ; {register integer for_end; k = 5 ;for_end = 11 ; if ( k <= for_end) do mem [k ]= mem [4 ]; while ( k++ < for_end ) ;} mem [12 ].cint = 0 ; mem [0 ].hhfield .v.RH = 0 ; mem [0 ].hhfield .lhfield = 0 ; mem [1 ].cint = 0 ; mem [2 ].cint = 0 ; serialno = 0 ; mem [13 ].hhfield .v.RH = 13 ; mem [14 ].hhfield .lhfield = 13 ; mem [13 ].hhfield .lhfield = 0 ; mem [14 ].hhfield .v.RH = 0 ; mem [21 ].hhfield .b1 = 0 ; mem [21 ].hhfield .v.RH = 9768 ; eqtb [9768 ].v.RH = 21 ; eqtb [9768 ].lhfield = 42 ; eqtb [9758 ].lhfield = 92 ; hash [9758 ].v.RH = 736 ; mem [17 ].hhfield .b1 = 11 ; mem [20 ].cint = 1073741824L ; mem [16 ].cint = 0 ; mem [15 ].hhfield .lhfield = 0 ; if ( iniversion ) baseident = 1070 ; } #endif /* INIMF */ void mainbody( void ) { bounddefault = 250000L ; boundname = "main_memory" ; setupboundvariable ( addressof ( mainmemory ) , boundname , bounddefault ) ; bounddefault = 3000 ; boundname = "buf_size" ; setupboundvariable ( addressof ( bufsize ) , boundname , bounddefault ) ; bounddefault = 79 ; boundname = "error_line" ; setupboundvariable ( addressof ( errorline ) , boundname , bounddefault ) ; bounddefault = 50 ; boundname = "half_error_line" ; setupboundvariable ( addressof ( halferrorline ) , boundname , bounddefault ) ; bounddefault = 79 ; boundname = "max_print_line" ; setupboundvariable ( addressof ( maxprintline ) , boundname , bounddefault ) ; bounddefault = 768 ; boundname = "screen_width" ; setupboundvariable ( addressof ( screenwidth ) , boundname , bounddefault ) ; bounddefault = 1024 ; boundname = "screen_depth" ; setupboundvariable ( addressof ( screendepth ) , boundname , bounddefault ) ; bounddefault = 16384 ; boundname = "gf_buf_size" ; setupboundvariable ( addressof ( gfbufsize ) , boundname , bounddefault ) ; if ( errorline > 255 ) errorline = 255 ; if ( screenwidth > 32767 ) screenwidth = 32767 ; if ( screendepth > 32767 ) screendepth = 32767 ; { if ( mainmemory < infmainmemory ) mainmemory = infmainmemory ; else if ( mainmemory > supmainmemory ) mainmemory = supmainmemory ; } memtop = 0 + mainmemory - 1 ; memmax = memtop ; { if ( bufsize < infbufsize ) bufsize = infbufsize ; else if ( bufsize > supbufsize ) bufsize = supbufsize ; } buffer = xmallocarray ( ASCIIcode , bufsize ) ; rowtransition = xmallocarray ( screencol , screenwidth ) ; gfbuf = xmallocarray ( eightbits , gfbufsize ) ; sourcefilenamestack = xmallocarray ( strnumber , 15 ) ; fullsourcefilenamestack = xmallocarray ( strnumber , 15 ) ; #ifdef INIMF if ( iniversion ) { mem = xmallocarray ( memoryword , memtop + 1 ) ; } #endif /* INIMF */ mfluabeginprogram () ; history = 3 ; if ( readyalready == 314159L ) goto lab1 ; bad = 0 ; if ( ( halferrorline < 30 ) || ( halferrorline > errorline - 15 ) ) bad = 1 ; if ( maxprintline < 60 ) bad = 2 ; if ( gfbufsize % 8 != 0 ) bad = 3 ; if ( 1100 > memtop ) bad = 4 ; if ( 7919 > 9500 ) bad = 5 ; if ( headersize % 4 != 0 ) bad = 6 ; if ( ( ligtablesize < 255 ) || ( ligtablesize > 32510 ) ) bad = 7 ; #ifdef INIMF if ( memmax != memtop ) bad = 10 ; #endif /* INIMF */ if ( memmax < memtop ) bad = 10 ; if ( ( 0 > 0 ) || ( 255 < 127 ) ) bad = 11 ; if ( ( 0 > 0 ) || ( 268435455L < 32767 ) ) bad = 12 ; if ( ( 0 < 0 ) || ( 255 > 268435455L ) ) bad = 13 ; if ( ( 0 < 0 ) || ( memmax >= 268435455L ) ) bad = 14 ; if ( maxstrings > 268435455L ) bad = 15 ; if ( bufsize > 268435455L ) bad = 16 ; if ( ( 255 < 255 ) || ( 268435455L < 65535L ) ) bad = 17 ; if ( 9769 + maxinternal > 268435455L ) bad = 21 ; if ( 10220 > 268435455L ) bad = 22 ; if ( 15 * 11 > bistacksize ) bad = 31 ; if ( 20 + 17 * 45 > bistacksize ) bad = 32 ; if ( basedefaultlength > maxint ) bad = 41 ; if ( bad > 0 ) { fprintf ( stdout , "%s%s%ld\n", "Ouch---my internal constants have been clobbered!" , "---case " , (long)bad ) ; goto lab9999 ; } initialize () ; #ifdef INIMF if ( iniversion ) { if ( ! getstringsstarted () ) goto lab9999 ; inittab () ; initprim () ; initstrptr = strptr ; initpoolptr = poolptr ; maxstrptr = strptr ; maxpoolptr = poolptr ; fixdateandtime () ; } #endif /* INIMF */ readyalready = 314159L ; mfluaPREstartofMF () ; lab1: selector = 1 ; tally = 0 ; termoffset = 0 ; fileoffset = 0 ; fprintf ( stdout , "%s%s", "This is MFLua, Version 2.7182818" , "-0.5" ) ; Fputs ( stdout , versionstring ) ; if ( baseident == 0 ) fprintf ( stdout , "%s%s%c\n", " (preloaded base=" , dumpname , ')' ) ; else { slowprint ( baseident ) ; println () ; } if ( translatefilename ) { putc ( '(' , stdout ); fputs ( translatefilename , stdout ) ; { putc ( ')' , stdout ); putc ( '\n', stdout ); } } fflush ( stdout ) ; jobname = 0 ; logopened = false ; outputfilename = 0 ; { { inputptr = 0 ; maxinstack = 0 ; inopen = 0 ; openparens = 0 ; maxbufstack = 0 ; paramptr = 0 ; maxparamstack = 0 ; first = 1 ; curinput .startfield = 1 ; curinput .indexfield = 0 ; line = 0 ; curinput .namefield = 0 ; forceeof = false ; if ( ! initterminal () ) goto lab9999 ; curinput .limitfield = last ; first = last + 1 ; } scannerstatus = 0 ; if ( ( baseident == 0 ) || ( buffer [curinput .locfield ]== 38 ) ) { if ( baseident != 0 ) initialize () ; if ( ! openbasefile () ) goto lab9999 ; if ( ! loadbasefile () ) { wclose ( basefile ) ; goto lab9999 ; } wclose ( basefile ) ; while ( ( curinput .locfield < curinput .limitfield ) && ( buffer [ curinput .locfield ]== 32 ) ) incr ( curinput .locfield ) ; } buffer [curinput .limitfield ]= 37 ; fixdateandtime () ; initrandoms ( ( internal [17 ]/ 65536L ) + internal [16 ]) ; if ( interaction == 0 ) selector = 0 ; else selector = 1 ; if ( curinput .locfield < curinput .limitfield ) { if ( buffer [curinput .locfield ]!= 92 ) startinput () ; } } history = 0 ; mfluainitialize () ; if ( startsym > 0 ) { cursym = startsym ; backinput () ; } mfluaPREmaincontrol () ; maincontrol () ; mfluaPOSTmaincontrol () ; finalcleanup () ; mfluaPOSTfinalcleanup () ; closefilesandterminate () ; lab9999: { fflush ( stdout ) ; readyalready = 0 ; if ( ( history != 0 ) && ( history != 1 ) ) uexit ( 1 ) ; else uexit ( 0 ) ; } }