![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to low.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / ucb / lisp / franz|
Return to low.c CVS log | Up to [CSRG BSD Unix] / 43BSD / ucb / lisp / franz |
1.1 ! root 1: /* -[Sat Jan 29 13:27:05 1983 by jkf]- ! 2: * low.c $Locker: $ ! 3: * low core definition ! 4: * ! 5: * $Header: low.c,v 1.5 85/05/22 07:53:54 sklower Exp $ ! 6: * The static char* header must appear at the end of the file to ! 7: * make sure that the following things are alligned correctly ! 8: * ! 9: * (c) copyright 1982, Regents of the University of California ! 10: */ ! 11: ! 12: #include "global.h" ! 13: #include "hpagsiz.h" ! 14: ! 15: extern char nilpname[]; ! 16: struct atom nilatom = { nil, nil, nil, (struct atom *) CNIL, nilpname }; ! 17: ! 18: extern char eofpname[]; ! 19: struct atom eofatom = { nil, nil, nil, (struct atom *) CNIL, eofpname }; ! 20: ! 21: static char padding[LBPG - sizeof nilatom - sizeof eofatom] = {0}; ! 22: ! 23: #ifndef RTPORTS ! 24: FILE *xports[128] = { _iob+0, _iob+1, _iob+2, _iob+3, _iob+4, _iob+5, _iob+6, ! 25: _iob+7, _iob+8, _iob+9, _iob+10, _iob+11, _iob+12, _iob+13, _iob+14, _iob+15, ! 26: _iob+16, _iob+17, _iob+18, _iob+19}; ! 27: #else ! 28: static char WasXports[LBPG] = {0}; ! 29: #endif ! 30: ! 31: long Negs[] = { ! 32: -1024,-1023,-1022,-1021,-1020,-1019,-1018,-1017, ! 33: -1016,-1015,-1014,-1013,-1012,-1011,-1010,-1009, ! 34: -1008,-1007,-1006,-1005,-1004,-1003,-1002,-1001, ! 35: -1000,-999,-998,-997,-996,-995,-994,-993, ! 36: -992,-991,-990,-989,-988,-987,-986,-985, ! 37: -984,-983,-982,-981,-980,-979,-978,-977, ! 38: -976,-975,-974,-973,-972,-971,-970,-969, ! 39: -968,-967,-966,-965,-964,-963,-962,-961, ! 40: -960,-959,-958,-957,-956,-955,-954,-953, ! 41: -952,-951,-950,-949,-948,-947,-946,-945, ! 42: -944,-943,-942,-941,-940,-939,-938,-937, ! 43: -936,-935,-934,-933,-932,-931,-930,-929, ! 44: -928,-927,-926,-925,-924,-923,-922,-921, ! 45: -920,-919,-918,-917,-916,-915,-914,-913, ! 46: -912,-911,-910,-909,-908,-907,-906,-905, ! 47: -904,-903,-902,-901,-900,-899,-898,-897, ! 48: -896,-895,-894,-893,-892,-891,-890,-889, ! 49: -888,-887,-886,-885,-884,-883,-882,-881, ! 50: -880,-879,-878,-877,-876,-875,-874,-873, ! 51: -872,-871,-870,-869,-868,-867,-866,-865, ! 52: -864,-863,-862,-861,-860,-859,-858,-857, ! 53: -856,-855,-854,-853,-852,-851,-850,-849, ! 54: -848,-847,-846,-845,-844,-843,-842,-841, ! 55: -840,-839,-838,-837,-836,-835,-834,-833, ! 56: -832,-831,-830,-829,-828,-827,-826,-825, ! 57: -824,-823,-822,-821,-820,-819,-818,-817, ! 58: -816,-815,-814,-813,-812,-811,-810,-809, ! 59: -808,-807,-806,-805,-804,-803,-802,-801, ! 60: -800,-799,-798,-797,-796,-795,-794,-793, ! 61: -792,-791,-790,-789,-788,-787,-786,-785, ! 62: -784,-783,-782,-781,-780,-779,-778,-777, ! 63: -776,-775,-774,-773,-772,-771,-770,-769, ! 64: -768,-767,-766,-765,-764,-763,-762,-761, ! 65: -760,-759,-758,-757,-756,-755,-754,-753, ! 66: -752,-751,-750,-749,-748,-747,-746,-745, ! 67: -744,-743,-742,-741,-740,-739,-738,-737, ! 68: -736,-735,-734,-733,-732,-731,-730,-729, ! 69: -728,-727,-726,-725,-724,-723,-722,-721, ! 70: -720,-719,-718,-717,-716,-715,-714,-713, ! 71: -712,-711,-710,-709,-708,-707,-706,-705, ! 72: -704,-703,-702,-701,-700,-699,-698,-697, ! 73: -696,-695,-694,-693,-692,-691,-690,-689, ! 74: -688,-687,-686,-685,-684,-683,-682,-681, ! 75: -680,-679,-678,-677,-676,-675,-674,-673, ! 76: -672,-671,-670,-669,-668,-667,-666,-665, ! 77: -664,-663,-662,-661,-660,-659,-658,-657, ! 78: -656,-655,-654,-653,-652,-651,-650,-649, ! 79: -648,-647,-646,-645,-644,-643,-642,-641, ! 80: -640,-639,-638,-637,-636,-635,-634,-633, ! 81: -632,-631,-630,-629,-628,-627,-626,-625, ! 82: -624,-623,-622,-621,-620,-619,-618,-617, ! 83: -616,-615,-614,-613,-612,-611,-610,-609, ! 84: -608,-607,-606,-605,-604,-603,-602,-601, ! 85: -600,-599,-598,-597,-596,-595,-594,-593, ! 86: -592,-591,-590,-589,-588,-587,-586,-585, ! 87: -584,-583,-582,-581,-580,-579,-578,-577, ! 88: -576,-575,-574,-573,-572,-571,-570,-569, ! 89: -568,-567,-566,-565,-564,-563,-562,-561, ! 90: -560,-559,-558,-557,-556,-555,-554,-553, ! 91: -552,-551,-550,-549,-548,-547,-546,-545, ! 92: -544,-543,-542,-541,-540,-539,-538,-537, ! 93: -536,-535,-534,-533,-532,-531,-530,-529, ! 94: -528,-527,-526,-525,-524,-523,-522,-521, ! 95: -520,-519,-518,-517,-516,-515,-514,-513, ! 96: -512,-511,-510,-509,-508,-507,-506,-505, ! 97: -504,-503,-502,-501,-500,-499,-498,-497, ! 98: -496,-495,-494,-493,-492,-491,-490,-489, ! 99: -488,-487,-486,-485,-484,-483,-482,-481, ! 100: -480,-479,-478,-477,-476,-475,-474,-473, ! 101: -472,-471,-470,-469,-468,-467,-466,-465, ! 102: -464,-463,-462,-461,-460,-459,-458,-457, ! 103: -456,-455,-454,-453,-452,-451,-450,-449, ! 104: -448,-447,-446,-445,-444,-443,-442,-441, ! 105: -440,-439,-438,-437,-436,-435,-434,-433, ! 106: -432,-431,-430,-429,-428,-427,-426,-425, ! 107: -424,-423,-422,-421,-420,-419,-418,-417, ! 108: -416,-415,-414,-413,-412,-411,-410,-409, ! 109: -408,-407,-406,-405,-404,-403,-402,-401, ! 110: -400,-399,-398,-397,-396,-395,-394,-393, ! 111: -392,-391,-390,-389,-388,-387,-386,-385, ! 112: -384,-383,-382,-381,-380,-379,-378,-377, ! 113: -376,-375,-374,-373,-372,-371,-370,-369, ! 114: -368,-367,-366,-365,-364,-363,-362,-361, ! 115: -360,-359,-358,-357,-356,-355,-354,-353, ! 116: -352,-351,-350,-349,-348,-347,-346,-345, ! 117: -344,-343,-342,-341,-340,-339,-338,-337, ! 118: -336,-335,-334,-333,-332,-331,-330,-329, ! 119: -328,-327,-326,-325,-324,-323,-322,-321, ! 120: -320,-319,-318,-317,-316,-315,-314,-313, ! 121: -312,-311,-310,-309,-308,-307,-306,-305, ! 122: -304,-303,-302,-301,-300,-299,-298,-297, ! 123: -296,-295,-294,-293,-292,-291,-290,-289, ! 124: -288,-287,-286,-285,-284,-283,-282,-281, ! 125: -280,-279,-278,-277,-276,-275,-274,-273, ! 126: -272,-271,-270,-269,-268,-267,-266,-265, ! 127: -264,-263,-262,-261,-260,-259,-258,-257, ! 128: -256,-255,-254,-253,-252,-251,-250,-249, ! 129: -248,-247,-246,-245,-244,-243,-242,-241, ! 130: -240,-239,-238,-237,-236,-235,-234,-233, ! 131: -232,-231,-230,-229,-228,-227,-226,-225, ! 132: -224,-223,-222,-221,-220,-219,-218,-217, ! 133: -216,-215,-214,-213,-212,-211,-210,-209, ! 134: -208,-207,-206,-205,-204,-203,-202,-201, ! 135: -200,-199,-198,-197,-196,-195,-194,-193, ! 136: -192,-191,-190,-189,-188,-187,-186,-185, ! 137: -184,-183,-182,-181,-180,-179,-178,-177, ! 138: -176,-175,-174,-173,-172,-171,-170,-169, ! 139: -168,-167,-166,-165,-164,-163,-162,-161, ! 140: -160,-159,-158,-157,-156,-155,-154,-153, ! 141: -152,-151,-150,-149,-148,-147,-146,-145, ! 142: -144,-143,-142,-141,-140,-139,-138,-137, ! 143: -136,-135,-134,-133,-132,-131,-130,-129, ! 144: -128,-127,-126,-125,-124,-123,-122,-121, ! 145: -120,-119,-118,-117,-116,-115,-114,-113, ! 146: -112,-111,-110,-109,-108,-107,-106,-105, ! 147: -104,-103,-102,-101,-100,-99,-98,-97, ! 148: -96,-95,-94,-93,-92,-91,-90,-89, ! 149: -88,-87,-86,-85,-84,-83,-82,-81, ! 150: -80,-79,-78,-77,-76,-75,-74,-73, ! 151: -72,-71,-70,-69,-68,-67,-66,-65, ! 152: -64,-63,-62,-61,-60,-59,-58,-57, ! 153: -56,-55,-54,-53,-52,-51,-50,-49, ! 154: -48,-47,-46,-45,-44,-43,-42,-41, ! 155: -40,-39,-38,-37,-36,-35,-34,-33, ! 156: -32,-31,-30,-29,-28,-27,-26,-25, ! 157: -24,-23,-22,-21,-20,-19,-18,-17, ! 158: -16,-15,-14,-13,-12,-11,-10,-9, ! 159: -8,-7,-6,-5,-4,-3,-2,-1}; ! 160: long Fixzero[] = { ! 161: 0,1,2,3,4,5,6,7, ! 162: 8,9,10,11,12,13,14,15, ! 163: 16,17,18,19,20,21,22,23, ! 164: 24,25,26,27,28,29,30,31, ! 165: 32,33,34,35,36,37,38,39, ! 166: 40,41,42,43,44,45,46,47, ! 167: 48,49,50,51,52,53,54,55, ! 168: 56,57,58,59,60,61,62,63, ! 169: 64,65,66,67,68,69,70,71, ! 170: 72,73,74,75,76,77,78,79, ! 171: 80,81,82,83,84,85,86,87, ! 172: 88,89,90,91,92,93,94,95, ! 173: 96,97,98,99,100,101,102,103, ! 174: 104,105,106,107,108,109,110,111, ! 175: 112,113,114,115,116,117,118,119, ! 176: 120,121,122,123,124,125,126,127, ! 177: 128,129,130,131,132,133,134,135, ! 178: 136,137,138,139,140,141,142,143, ! 179: 144,145,146,147,148,149,150,151, ! 180: 152,153,154,155,156,157,158,159, ! 181: 160,161,162,163,164,165,166,167, ! 182: 168,169,170,171,172,173,174,175, ! 183: 176,177,178,179,180,181,182,183, ! 184: 184,185,186,187,188,189,190,191, ! 185: 192,193,194,195,196,197,198,199, ! 186: 200,201,202,203,204,205,206,207, ! 187: 208,209,210,211,212,213,214,215, ! 188: 216,217,218,219,220,221,222,223, ! 189: 224,225,226,227,228,229,230,231, ! 190: 232,233,234,235,236,237,238,239, ! 191: 240,241,242,243,244,245,246,247, ! 192: 248,249,250,251,252,253,254,255, ! 193: 256,257,258,259,260,261,262,263, ! 194: 264,265,266,267,268,269,270,271, ! 195: 272,273,274,275,276,277,278,279, ! 196: 280,281,282,283,284,285,286,287, ! 197: 288,289,290,291,292,293,294,295, ! 198: 296,297,298,299,300,301,302,303, ! 199: 304,305,306,307,308,309,310,311, ! 200: 312,313,314,315,316,317,318,319, ! 201: 320,321,322,323,324,325,326,327, ! 202: 328,329,330,331,332,333,334,335, ! 203: 336,337,338,339,340,341,342,343, ! 204: 344,345,346,347,348,349,350,351, ! 205: 352,353,354,355,356,357,358,359, ! 206: 360,361,362,363,364,365,366,367, ! 207: 368,369,370,371,372,373,374,375, ! 208: 376,377,378,379,380,381,382,383, ! 209: 384,385,386,387,388,389,390,391, ! 210: 392,393,394,395,396,397,398,399, ! 211: 400,401,402,403,404,405,406,407, ! 212: 408,409,410,411,412,413,414,415, ! 213: 416,417,418,419,420,421,422,423, ! 214: 424,425,426,427,428,429,430,431, ! 215: 432,433,434,435,436,437,438,439, ! 216: 440,441,442,443,444,445,446,447, ! 217: 448,449,450,451,452,453,454,455, ! 218: 456,457,458,459,460,461,462,463, ! 219: 464,465,466,467,468,469,470,471, ! 220: 472,473,474,475,476,477,478,479, ! 221: 480,481,482,483,484,485,486,487, ! 222: 488,489,490,491,492,493,494,495, ! 223: 496,497,498,499,500,501,502,503, ! 224: 504,505,506,507,508,509,510,511, ! 225: 512,513,514,515,516,517,518,519, ! 226: 520,521,522,523,524,525,526,527, ! 227: 528,529,530,531,532,533,534,535, ! 228: 536,537,538,539,540,541,542,543, ! 229: 544,545,546,547,548,549,550,551, ! 230: 552,553,554,555,556,557,558,559, ! 231: 560,561,562,563,564,565,566,567, ! 232: 568,569,570,571,572,573,574,575, ! 233: 576,577,578,579,580,581,582,583, ! 234: 584,585,586,587,588,589,590,591, ! 235: 592,593,594,595,596,597,598,599, ! 236: 600,601,602,603,604,605,606,607, ! 237: 608,609,610,611,612,613,614,615, ! 238: 616,617,618,619,620,621,622,623, ! 239: 624,625,626,627,628,629,630,631, ! 240: 632,633,634,635,636,637,638,639, ! 241: 640,641,642,643,644,645,646,647, ! 242: 648,649,650,651,652,653,654,655, ! 243: 656,657,658,659,660,661,662,663, ! 244: 664,665,666,667,668,669,670,671, ! 245: 672,673,674,675,676,677,678,679, ! 246: 680,681,682,683,684,685,686,687, ! 247: 688,689,690,691,692,693,694,695, ! 248: 696,697,698,699,700,701,702,703, ! 249: 704,705,706,707,708,709,710,711, ! 250: 712,713,714,715,716,717,718,719, ! 251: 720,721,722,723,724,725,726,727, ! 252: 728,729,730,731,732,733,734,735, ! 253: 736,737,738,739,740,741,742,743, ! 254: 744,745,746,747,748,749,750,751, ! 255: 752,753,754,755,756,757,758,759, ! 256: 760,761,762,763,764,765,766,767, ! 257: 768,769,770,771,772,773,774,775, ! 258: 776,777,778,779,780,781,782,783, ! 259: 784,785,786,787,788,789,790,791, ! 260: 792,793,794,795,796,797,798,799, ! 261: 800,801,802,803,804,805,806,807, ! 262: 808,809,810,811,812,813,814,815, ! 263: 816,817,818,819,820,821,822,823, ! 264: 824,825,826,827,828,829,830,831, ! 265: 832,833,834,835,836,837,838,839, ! 266: 840,841,842,843,844,845,846,847, ! 267: 848,849,850,851,852,853,854,855, ! 268: 856,857,858,859,860,861,862,863, ! 269: 864,865,866,867,868,869,870,871, ! 270: 872,873,874,875,876,877,878,879, ! 271: 880,881,882,883,884,885,886,887, ! 272: 888,889,890,891,892,893,894,895, ! 273: 896,897,898,899,900,901,902,903, ! 274: 904,905,906,907,908,909,910,911, ! 275: 912,913,914,915,916,917,918,919, ! 276: 920,921,922,923,924,925,926,927, ! 277: 928,929,930,931,932,933,934,935, ! 278: 936,937,938,939,940,941,942,943, ! 279: 944,945,946,947,948,949,950,951, ! 280: 952,953,954,955,956,957,958,959, ! 281: 960,961,962,963,964,965,966,967, ! 282: 968,969,970,971,972,973,974,975, ! 283: 976,977,978,979,980,981,982,983, ! 284: 984,985,986,987,988,989,990,991, ! 285: 992,993,994,995,996,997,998,999, ! 286: 1000,1001,1002,1003,1004,1005,1006,1007, ! 287: 1008,1009,1010,1011,1012,1013,1014,1015, ! 288: 1016,1017,1018,1019,1020,1021,1022}; ! 289: long Lastfix[] = {1023}; ! 290: ! 291: #ifndef lint ! 292: static char *rcsid = "$Header: low.c,v 1.5 85/05/22 07:53:54 sklower Exp $"; ! 293: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.