- corman-sdl-cvs@lists.common-lisp.net - mailman3.common-lisp.net

[defmud-cvs] Is Israel a Democracy? -- The problem with intellectually insecure whites -- Should Christians Support Israeli Terrorism in Gaza?
by Lawrence Auster 23 Jan '09

23 Jan '09

The Jewish State of Israel has no constitution, nor does it name its borders. Israel's hidden constitution is Judaism. Israel's undeclared borders range from the Nile to the Euphrates rivers. Israel's desired jurisdiction extends over the entire Earth. It could not be more clear that the Jewish State follows a foreign policy which obeys Jewish Law as iterated in the Hebrew Bible, the Talmud, Maimonedes, the Cabalah, and the many commentaries and refinements of same. The Jews are genociding the native inhabitants of Palestine, just as their religion advises, and because their religion teaches them to do so. They treat non-Jews as if non-humans, just as their religion requires them to do. They make perpetual war on every nation on Earth, just as their genocidal Jewish God has instructed. The Jews of Israel are simply being Jews. Jews are an existential threat to the human race. Israel contains one third of the Jews of the World. It is not some aberration of the Jewish spirit, but the condensation and concentration of the perverse Jewish mentality, which malady also pervades the remaining two thirds of Jewry, who almost unanimously support the Jewish State, and who certainly do unanimously support the Jewish People and its consistent and constant crimes against the human race. Israel is Jewry and the danger of Israel is the danger of the Jewish People to all others, as the Jews have demonstrated each and every day of their existence. The Jews, the entire Jewish People of 15 million, will not relent until they have wiped out all non-Jews in "Greater Israel". They will not stop destroying all other cultures, nations, religions, ethnicities, races, competition, etc. until they are either stopped, or succeed in their ancient quest to destroy the human race. What Israel is doing is not some reaction to outside forces, nor was the formation of Israel a response to the Holocaust. Israel is simply following the plan laid out in the Jews' religious texts. The Jews have openly planned to take Palestine and genocide the native population of Palestine for some 2,500 years before the Holocaust. The Jews have openly complained that "anti-Semitism" is a threat that gives them the right to genocide the Palestinians, not merely since the advent of Nazism, but for some 2,500 years. The Jewish religion is the Constitution of the Jewish State of Israel, and, to a greater or lesser extent, the constitution of the nature of every Jew alive. The borders of Israel are the range the Jew roams over the entire World. The perverse Jewish mentality is inbred by a Jew's exposure to his parents and to his community. Judaism passes in the spit and slobber of Jewish mother telling her Jewish child that he is a "Jew", as much as Judaism passes in the poison and pain of a Talmudic tractate. The secular Jews did not suddenly come to life after the Enlightenment and the Jewish Reformation a body of vampires that appeared ex nihilo, in vacuo, mostly atheistical and undetached from formally practiced Judaism. Judaism is the Jew. It is a mindset that transcends and supercedes religion. It is a belief set, a way of life, a perception of one's self and one's relation to the World that makes a Jew, a Jew, and a danger to all of humanity. In fact, the religious shell of Judaism is like the stretched and infected skin of a lycanthropic pustule. When you lance it to cure the infection, the virus only becomes more contagious and spills directly on the non-Jew. The secular Jew is a deliberate product of the hyper-religious Jew, a monster created out of the hewed corpses of the fanatically religious Jew, a Golem which is conjured up to enter the World of the non-Jew and poison its blood, and boil its brain with a rabid lunacy that bites and spreads, until the infected community feeds on itself and fills the fields with rotting bloating bodies, where once human beings tilled the soil and tended to their families. The religious Jew created the secular Jew as an army of Esthers who seduce with open thighs, broad smiles, and a Siren call that lures in the non-Jew to cast his skull upon the jagged rocks and color the seas with his blood, sickened and blinded by the venereal disease of Judaism in secular form. Israel is not a secular democracy. It is a religious mockery. It is a rabid bat flying to the ends of the Earth, to end the Earth. No one will be free nor safe until the disease is quarantined and dies out. Source: http://www.ziopedia.org/articles/israel/how_can_israel_claim_to_be_a_%27dem… -------------------- The problem with intellectually insecure whites By Kevin MacDonald January 19, 2009 America will soon have a white minority. This is a much desired state of affairs for the hostile elites who hold political power and shape public opinion. But it certainly creates some management issues � at least in the long run. After all, it�s difficult to come up with an historical example of a nation with a solid ethnic majority (90% white in 1950) that has voluntarily decided to cede political and cultural power. Such transformations are typically accomplished by military invasions, great battles, and untold suffering. And it�s not as if everyone is doing it. Only Western nations view their own demographic and cultural eclipse as a moral imperative. Indeed, as I have noted previously, it is striking that racial nationalism has triumphed in Israel at the same time that the Jewish intellectual and political movements and the organized Jewish community have been the most active and effective force for a non-white America. Indeed, a poll in 2008 found that Avigdor Lieberman was the second most popular politician in Israel. Lieberman has advocated expulsion of Arabs from Israel and has declared himself a follower of Vladimir Jabotinsky, the leading pioneer of racial Zionism. The most popular politician in the poll was Benjamin Netanyahu � another admirer of Jabotinsky. Prime Minister Ehud Olmert and Foreign Minister Tzipi Livni are also Jabotinskyists. The racial Zionists are now carrying out yet another orgy of mass murder after a starvation-inducing blockade and the usual triggering assault designed to provoke Palestinian retaliation � which then becomes the cover for claims that Israel is merely defending itself against terrorism. This monstrosity was approved by overwhelming majorities of both Houses of Congress. The craven Bush administration did its part by abstaining from a UN resolution designed by the US Secretary of State as a result of a personal appeal by the Israeli Prime Minister. This is yet another accomplishment of the Israel Lobby, but one they would rather not have discussed in public. People might get the impression that the Lobby really does dictate US foreign policy in the Mideast. Obviously, such thoughts are only entertained by anti-Semites. But I digress. In managing the eclipse of white America, one strategy of the mainstream media is to simply ignore the issue. Christopher Donovan (�For the media, the less whites think about their coming minority status, the better�) has noted that the media, and in particular, the New York Times, are quite uninterested in doing stories that discuss what white people think about this state of affairs. It�s not surprising that the New York Times � the Jewish-owned flagship of anti-white, pro-multicultural media � ignores the issue. The issue is also missing from so-called conservative media even though one would think that conservatives would find the eclipse of white America to be an important issue. Certainly, their audiences would find it interesting. Now we have an article �The End of White America� written by Hua Hsu, an Assistant Professor of English at Vassar College. The article is a rather depressing display of what passes for intellectual discourse on the most important question confronting white people in America. Hsu begins by quoting a passage in F. Scott Fitzgerald�s The Great Gatsby in which a character, Tom Buchanan, states: �Have you read The Rise of the Colored Empires by this man Goddard?� � Well, it�s a fine book, and everybody ought to read it. The idea is if we don�t look out the white race will be�will be utterly submerged. It�s all scientific stuff; it�s been proved.� Buchanan�s comment is a thinly veiled reference to Lothrop Stoddard�s The Rising Tide of Color which Hsu describes as �rationalized hatred� presented in a scholarly, gentlemanly, and scientific tone. (This wording that will certainly help him when he comes up for tenure.) As Hsu notes, Stoddard had a doctorate from Harvard and was a member of many academic associations. His book was published by a major publisher. It was therefore �precisely the kind of book that a 1920s man of Buchanan�s profile � wealthy, Ivy League�educated, at once pretentious and intellectually insecure � might have been expected to bring up in casual conversation.� Let�s ponder that a bit. The simple reality is that in the year 2009 an Ivy League-educated person, "at once pretentious and intellectually insecure," would just as glibly assert the same sort of nonsense as Hsu. To wit: The coming white minority does not mean that the racial hierarchy of American culture will suddenly become inverted, as in 1995�s White Man�s Burden, an awful thought experiment of a film, starring John Travolta, that envisions an upside-down world in which whites are subjugated to their high-class black oppressors. There will be dislocations and resentments along the way, but the demographic shifts of the next 40 years are likely to reduce the power of racial hierarchies over everyone�s lives, producing a culture that�s more likely than any before to treat its inhabitants as individuals, rather than members of a caste or identity group. The fact is that no one can say for certain what multicultural America without a white majority will be like. There is no scientific or historical basis for claims like �the demographic shifts of the next 40 years are likely to reduce the power of racial hierarchies over everyone�s lives, producing a culture that�s more likely than any before to treat its inhabitants as individuals, rather than members of a caste or identity group.� Indeed, there is no evidence at all that we are proceeding to a color blind future. The election results continue to show that white people are coalescing in the Republican Party, while the Democrats are increasingly the party of a non-white soon-to-be majority. Is it so hard to believe that when this coalition achieves a majority that it will further compromise the interests of whites far beyond contemporary concerns such as immigration policy and affirmative action? Hsu anticipates a colorblind world, but affirmative action means that blacks and other minorities are certainly not treated as individuals. And it means that whites � especially white males � are losing out on opportunities they would have had without these policies and without the massive non-white immigration of the last few decades. Given the intractability of changing intelligence and other traits required for success in the contemporary economy, it is unlikely that 40 more years of affirmative action will attain the outcomes desired by the minority lobbies. Indeed, in Obama's America, blacks are rioting in Oakland over perceived racial injustices, and from 2002 �2007, black juvenile homicide victims increased 31%, while black juvenile homicide perpetrators increased 43%. Hence, the reasonable outlook is for a continuing need for affirmative action and for racial activism in these groups, even after whites become a minority. Whites will also lose out because of large-scale importation of relatively talented immigrants from East Asia. Indeed, as I noted over a decade ago, "The United States is well on the road to being dominated by an Asian technocratic elite and a Jewish business, professional, and media elite." Hsu shows that there already is considerable anxiety among whites about the future. An advertizing executive says, �I think white people feel like they�re under siege right now � like it�s not okay to be white right now, especially if you�re a white male. ... People are stressed out about it. �We used to be in control! We�re losing control�� Another says, "There�s a lot of fear and a lot of resentment." It's hard to see why these feelings won't increase in the future. A huge problem for white people is lack of intellectual and cultural confidence. Hsu quotes Christian (Stuff White People Like) Lander saying, "I get it: as a straight white male, I�m the worst thing on Earth." A professor comments that for his students "to be white is to be culturally broke. The classic thing white students say when you ask them to talk about who they are is, �I don�t have a culture.� They might be privileged, they might be loaded socioeconomically, but they feel bankrupt when it comes to culture � They feel disadvantaged, and they feel marginalized." This lack of cultural confidence is no accident. For nearly 100 years whites have been subjected to a culture of critique emanating from the most prestigious academic and media institutions. And, as Hsu points out, the most vibrant and influential aspect of American popular culture is hip-hop�a product of the African American urban culture. The only significant group of white people with any cultural confidence centers itself around country music, NASCAR, and the small town values of traditional white America. For this group of whites � and only this group � there is "a racial pride that dares not speak its name, and that defines itself through cultural cues instead�a suspicion of intellectual elites and city dwellers, a preference for folksiness and plainness of speech (whether real or feigned), and the association of a working-class white minority with 'the real America.'� This is what I term implicit whiteness � implicit because explicit assertions of white identity have been banned by the anti-white elites that dominate our politics and culture. It is a culture that, as Hsu notes, "cannot speak its name." But that implies that the submerged white identity of the white working class and the lack of cultural confidence exhibited by the rest of white America are imposed from outside. Although there may well be characteristics of whites that facilitate this process, this suppression of white identity and interests is certainly not the natural outcome of modernization or any other force internal to whites as a people. In my opinion, it is the result of the successful erection of a culture of critique in the West dominated by Jewish intellectual and political movements. The result is that educated, intellectually insecure white people these days are far more likely to believe in the utopian future described by Hsu than in hard and cautious thinking about what the future might have in store for them. It's worth dwelling a bit on the intellectual insecurity of the whites who mindlessly utter the mantras of multiculturalism that they have soaked up from the school system and from the media. Most people do not have much confidence in their intellectual ability and look to elite opinion to shape their beliefs. As I noted elsewhere, A critical component of the success of the culture of critique is that it achieved control of the most prestigious and influential institutions of the West, and it became a consensus among the elites, Jewish and non-Jewish alike. Once this happened, it is not surprising that this culture became widely accepted among people of very different levels of education and among people of different social classes. Most people are quite insecure about their intellectual ability. But they know that the professors at Harvard, and the editorial page of the New York Times and the Washington Post, and even conservative commentators like Rush Limbaugh and Sean Hannity are all on page when it comes to racial and ethnic issues. This is a formidable array, to the point that you almost have to be a crank to dissent from this consensus. I think one of the greatest triumphs of the left has been to get people to believe that people who assert white identity and interests or who make unflattering portrayals of organized Jewish movements are morally degenerate, stupid, and perhaps psychiatrically disturbed. Obviously, all of these adjectives designate low status. The reality is that the multicultural emperor has no clothes and, because of its support for racial Zionism and the racialism of ethnic minorities in America, it is massively hypocritical to boot. The New York Times, the academic left, and the faux conservatives that dominate elite discourse on race and ethnicity are intellectually bankrupt and can only remain in power by ruthlessly suppressing or ignoring the scientific findings. This is particularly a problem for college-educated whites. Like Fitzgerald's Tom Buchanan, such people have a strong need to feel that their ideas are respectable and part of the mainstream. But the respectable mainstream gives them absolutely nothing with which to validate themselves except perhaps the idea that the world will be a better place when people like them no longer have power. Hsu quotes the pathetic Christian Lander: "�Like, I�m aware of all the horrible crimes that my demographic has done in the world. ... And there�s a bunch of white people who are desperate � desperate � to say, �You know what? My skin�s white, but I�m not one of the white people who�s destroying the world.�� As a zombie leftist during the 1960s and 1970s, I know what that feeling of desperation is like � what it's like to be a self-hating white. We must get to the point where college-educated whites proudly and confidently say they are white and that they do not want to become a minority in America. This reminds me of the recent docudrama Milk, which depicts the life of gay activist Harvey Milk. Milk is sure be nominated for an Oscar as Best Picture because it lovingly illustrates a triumph of the cultural left. But is has an important message that should resonate with the millions of whites who have been deprived of their confidence and their culture: Be explicit. Just as Harvey Milk advocated being openly gay even in the face of dire consequences, whites need to tell their family and their friends that they have an identity as a white person and believe that whites have legitimate interests as white people. They must accept the consequences when they are harassed, fired from their jobs, or put in prison for such beliefs. They must run for political office as openly pro-white. Milk shows that homosexuals were fired from their jobs and arrested for congregating in public. Now it's the Southern Poverty Law Center and the rest of the leftist intellectual and political establishment that harasses and attempts to get people fired. But it's the same situation with the roles reversed. No revolution was ever accomplished without some martyrs. The revolution that restores the legitimacy of white identity and the legitimacy of white interests will be no exception. But it is a revolution that is absolutely necessary. The white majority is foolish indeed to entrust its future to a utopian hope that racial and ethnic identifications will disappear and that they won�t continue to influence public policy in ways that compromise the interests of whites. It does not take an overactive imagination to see that coalitions of minority groups could compromise the interests of formerly dominant whites. We already see numerous examples in which coalitions of minority groups attempt to influence public policy, including immigration policy, against the interests of the whites. Placing ourselves in a position of vulnerability would be extremely risky, given the deep sense of historical grievance fostered by many ethnic activists and organized ethnic lobbies. This is especially the case with Jews. Jewish organisations have been unanimous in condemning Western societies, Western traditions, and Christianity, for past crimes against Jews. Similar sentiments are typical of a great many African Americans and Latinos, and especially among the ethnic activists from these groups. The �God damn America� sermon by President Obama's pastor comes to mind as a recent notorious example. The precedent of the early decades of the Soviet Union should give pause to anyone who believes that surrendering ethnic hegemony does not carry risks. The Bolshevik revolution had a pronounced ethnic angle: To a very great extent, Jews and other non-Russians ruled over the Russian people, with disastrous consequences for the Russians and other ethnic groups that were not able to become part of the power structure. Jews formed a hostile elite within this power structure � as they will in the future white-minority America; Jews were �Stalin�s willing executioners.� Two passages from my review of Yuri Slezkine's The Jewish Century seem particularly appropriate here. The first passage reminds me of the many American Jews who adopt a veneer of support for leftist versions of social justice and racial tolerance while nevertheless managing to support racial Zionism and the mass murder, torture, and incarceration of the Palestinian people in one of the largest prison systems the world has ever seen. Such people may be very different when they become a hostile elite in a white-minority America. Many of the commentators on Jewish Bolsheviks noted the �transformation� of Jews [after the Bolshevik Revolution]. In the words of [a] Jewish commentator, G. A. Landau, �cruelty, sadism, and violence had seemed alien to a nation so far removed from physical activity.� And another Jewish commentator, Ia. A. Bromberg, noted that: the formerly oppressed lover of liberty had turned into a tyrant of �unheard-of-despotic arbitrariness��. The convinced and unconditional opponent of the death penalty not just for political crimes but for the most heinous offenses, who could not, as it were, watch a chicken being killed, has been transformed outwardly into a leather-clad person with a revolver and, in fact, lost all human likeness. ... After the Revolution, ... there was active suppression of any remnants of the older order and their descendants. ... The mass murder of peasants and nationalists was combined with the systematic exclusion of the previously existing non-Jewish middle class. The wife of a Leningrad University professor noted, �in all the institutions, only workers and Israelites are admitted; the life of the intelligentsia is very hard� (p. 243). Even at the end of the 1930s, prior to the Russification that accompanied World War II, �the Russian Federation�was still doing penance for its imperial past while also serving as an example of an ethnicity-free society� (p. 276). While all other nationalities, including Jews, were allowed and encouraged to keep their ethnic identities, the revolution remained an anti-majoritarian movement. The difference from the Soviet Union may well be that in white-minority America it will not be workers and Israelites who are favored, but non-whites and Israelites. Whites may dream that they are entering the post-racial utopia imagined by their erstwhile intellectual superiors. But it is quite possible that they are entering into a racial dystopia of unimaginable cruelty in which whites will be systematically excluded in favor of the new elites recruited from the soon-to-be majority. It's happened before. Kevin MacDonald is a professor of psychology at California State University�Long Beach. Permanent URL with hyperlinks: http://www.theoccidentalobserver.net/articles/MacDonald-Hsu.html ----------- Should Christians Support Israeli Terrorism in Gaza? A timely discussion between Rev. Ted Pike and Dr. David Duke, one especially important for the Christians in our audience http://www.davidduke.com/mp3/dukeradio090122DukeandPikeonGaza.mp3 In this vital discussion, Rev. Pike and Dr. Duke explore the Pro-Israel attitude of some Christian evangelical organizations, and why their position not only goes directly against Christian morality and decency, but actually is directly opposite of that expressed by Christian Scriptures. Today, Many Christians are instructed that Jews and today�s Israel has a special covenant� with God. In fact, the New Testament in the clearest of language states that the Jews �continued not in my covenant, and I considered them not, saith the Lord.� Here�s the quote that Christians aren�t supposed to notice.: 8:10 Not according to the covenant that I made with their fathers, in the day when I took them by the hand out of the land of Egypt; because they continued not in my covenant, and I regarded them not, saith the Lord. (Hebrews 8:10) They also don�t seem to notice that a 2000 year old Judaic war against Christianity that has been waged since time of Jesus Christ and still goes on today with the most powerful Jewish organizations attempting to destroy European and American traditions, that has even become a war on our Christmas traditions. Dr. Duke and Ted Pike also speak about how over a hundred thousand Christian Palestinians have suffered with their families from anti-Christian Israel! Christian support of Israel has resulted in the very birthplace of Jesus Christ, go from 90 percent Palestinian Christians to 35 percent today because of Israeli terror and occupation. They ask, �How could any Christian in good conscience support the anti-Christian state of Israel, bombing the homes, killing and maiming, torturing and oppressing fellow Christian men, women and children?� This is a vital show for every Christian reader and listener of DavidDuke.com. Next time, you hear someone say, �God tells us that we must support Israel� you will have the clear Christian answer that just the opposite is true! For documentation on this be sure to read some of the well-footnoted, sample chapters of Jewish Supremacism and My Awakening. Source : http://www.davidduke.com/general/should-christians-support-israeli-terroris… ------------------------------------- You or someone using your email adress is currently subscribed to the Lawrence Auster Newletter. If you wish to unsubscribe from our mailing list, please let us know by calling to 1 212 865 1284 Thanks, Lawrence Auster, 238 W 101 St Apt. 3B New York, NY 10025 Contact: lawrence.auster(a)att.net -------------------------------------

1 0

[corman-sdl-cvs] CVS update: corman-sdl/engine/engine.lisp corman-sdl/engine/use-engine.lisp
by Luke J Crook 13 Jul '04

13 Jul '04

Update of /project/corman-sdl/cvsroot/corman-sdl/engine In directory common-lisp.net:/tmp/cvs-serv7424/engine Modified Files: engine.lisp use-engine.lisp Log Message: Date: Tue Jul 13 07:43:49 2004 Author: lcrook Index: corman-sdl/engine/engine.lisp diff -u corman-sdl/engine/engine.lisp:1.10 corman-sdl/engine/engine.lisp:1.11 --- corman-sdl/engine/engine.lisp:1.10 Fri Jul 9 08:29:40 2004 +++ corman-sdl/engine/engine.lisp Tue Jul 13 07:43:49 2004 @@ -97,11 +97,15 @@ (defun bitplanes () bitplanes) (defun first-bitplane () - (if (null (dl-prev bitplanes)) - bitplanes - (setf bitplanes (dl-prev bitplanes)))) + (if (null bitplanes) + nil + (if (null (dl-prev bitplanes)) + bitplanes + (setf bitplanes (dl-prev bitplanes))))) (defun set-bitplane (bitplane) - (setf bitplanes bitplane))) + (setf bitplanes (dl-list bitplane))) + (defun remove-bitplanes () + (setf bitplanes nil))) (defclass sprite () @@ -114,7 +118,7 @@ (defun new-bitplane (zorder) (make-bitplane :zorder zorder)) -(defun addto-bitplane (bitplane obj) +(defun addto-bitplane (obj bitplane) (cond ((null (bitplane-end bitplane)) (setf (bitplane-end bitplane) (dl-list obj)) @@ -123,7 +127,7 @@ (setf (bitplane-end bitplane) (dl-append obj (bitplane-end bitplane)))))) ;Removes a node from the bitplane. -(defun remove-node-from-bitplane (bitplane obj) +(defun remove-node-from-bitplane (obj bitplane) (when (null (dl-next obj)) (setf (bitplane-end bitplane) (dl-prev obj))) (when (null (dl-prev obj)) @@ -131,14 +135,14 @@ (dl-remove obj)) ;Finds the node containing object, then calls remove-node-from-bitplane -(defun remove-from-bitplane (bitplane object) +(defun remove-from-bitplane (object bitplane) (let ((obj (dl-find (bitplane-start bitplane) #'(lambda (node) (if (equal (dl-data node) object) node nil))))) (when obj - (remove-node-from-bitplane bitplane obj)))) + (remove-node-from-bitplane obj bitplane)))) (defun get-zorder (obj) (cond @@ -149,40 +153,49 @@ ;Iterates through the list of bitplanes. ; Returns the bitplane, if bitplane == zorder. -; Returns the previous bitplane if bitplane < zorder +; Returns the previous bitplane if bitplanes > zorder ; Returns (defun find-bitplane (zorder bitplanes) - (let ((bp bitplanes) (quit nil)) - (loop - (when (equal quit t) (return (values bitplanes 'p))) - (cond - ((> zorder (get-zorder bp)) ; if test > current - (values (bp 'n))) ; end of list when next is null - ((equal zorder (get-zorder bp)) - (return (values bp 'c))) ; test == curent, return - ((null (dl-next bp)) - (setf quit t)))))) + (let ((zorder (get-zorder bitplane))) + (cond + ((null bitplanes) + nil) + ((null (dl-next bitplanes)) + (dl-append bitplane bitplanes)) + ((> (get-zorder bitplanes) zorder) + (dl-insert bitplane bitplanes)) + ((equal zorder (get-zorder bitplanes)) + nil) + (t + (add-bitplane bitplane (dl-nextnode bitplanes)))))) (defun add-bitplane (bitplane bitplanes) - (let ((bp bitplanes) (quit nil) (zorder (get-zorder bitplane))) - (loop - (when (equal quit t) (return (values bitplanes 'p))) - (cond - ((> zorder (get-zorder bitplanes)) ; if test > current - (dl-insert bitplane bitplanes)) - (values (bp 'n))) ; end of list when next is null - ((equal zorder (get-zorder bp)) - (return (values bp 'c))) ; test == curent, return - ((null (dl-next bp)) - (setf quit t)))))) - - + (let ((zorder (get-zorder bitplane))) + (cond + ((null bitplanes) + (set-bitplane bitplane)) + ((null (dl-next bitplanes)) + (dl-append bitplane bitplanes)) + ((equal zorder (get-zorder bitplanes)) + nil) + (t + (add-bitplane bitplane (dl-nextnode bitplanes)))))) + +(defun add-sprite-to-bitplane (sprite bitplanes) + (cond + ((null bitplanes) + (addto-bitplane sprite (add-bitplane (sprite-zorder sprite)))) + ((> (get-zorder bitplanes) (sprite-zorder sprite)) + (dl-insert bitplane bitplanes)) + ((null (dl-next bitplane)) + (dl-append bitplane bitplanes)) + (t + (add-sprite-to-bitplane bitplanes (dl-nextnode bitplanes))))) +(defun add-sprite (sprite) + (add-sprite-to-bitplane sprite (first-bitplane))) + - (if (equal zorder (get-zorder bp)) - (return (values bp 'c)) - (return (values bp 'p))))))) ; test < current, return - (defun return-bitplane (zorder bitplanes) (when (null bitplanes) (set-bitplane (dl-list (new-bitplane zorder))) Index: corman-sdl/engine/use-engine.lisp diff -u corman-sdl/engine/use-engine.lisp:1.2 corman-sdl/engine/use-engine.lisp:1.3 --- corman-sdl/engine/use-engine.lisp:1.2 Fri Jul 9 08:29:40 2004 +++ corman-sdl/engine/use-engine.lisp Tue Jul 13 07:43:49 2004 @@ -9,4 +9,10 @@ (bitplanes) -(remove-from-bitplane (bitplanes) 'obj-10) \ No newline at end of file +(remove-from-bitplane (bitplanes) 'obj-10) + +(add-bitplane (new-bitplane 5) (bitplanes)) +(add-bitplane (new-bitplane 7) (bitplanes)) +(add-bitplane (new-bitplane 7) (bitplanes)) +(first-bitplane) +(bitplanes) \ No newline at end of file

1 0

[corman-sdl-cvs] CVS update: corman-sdl/engine/engine.lisp corman-sdl/engine/use-engine.lisp
by Luke J Crook 09 Jul '04

09 Jul '04

Update of /project/corman-sdl/cvsroot/corman-sdl/engine In directory common-lisp.net:/tmp/cvs-serv29312/engine Modified Files: engine.lisp use-engine.lisp Log Message: Date: Fri Jul 9 08:29:40 2004 Author: lcrook Index: corman-sdl/engine/engine.lisp diff -u corman-sdl/engine/engine.lisp:1.9 corman-sdl/engine/engine.lisp:1.10 --- corman-sdl/engine/engine.lisp:1.9 Thu Jul 8 02:00:12 2004 +++ corman-sdl/engine/engine.lisp Fri Jul 9 08:29:40 2004 @@ -84,10 +84,8 @@ (return obj) (setf obj (dl-next obj)))))) - - - - +;;;;; End: Link list functions +;;;;; (defstruct (bitplane) @@ -105,6 +103,7 @@ (defun set-bitplane (bitplane) (setf bitplanes bitplane))) + (defclass sprite () ( (id :accessor sprite-id :initform nil :initarg :id) @@ -147,17 +146,41 @@ (bitplane-zorder obj)) ((dl-p obj) (bitplane-zorder (dl-data obj))))) - + +;Iterates through the list of bitplanes. +; Returns the bitplane, if bitplane == zorder. +; Returns the previous bitplane if bitplane < zorder +; Returns (defun find-bitplane (zorder bitplanes) (let ((bp bitplanes) (quit nil)) (loop - (when (equal quit t) (return (values bp 'n))) - (if (> zorder (get-zorder bp)) ; if test > current - (if (null (dl-next bp)) - (setf quit t) ; end of list when next is null - (setf bp (dl-next bp))) ; next node + (when (equal quit t) (return (values bitplanes 'p))) + (cond + ((> zorder (get-zorder bp)) ; if test > current + (values (bp 'n))) ; end of list when next is null + ((equal zorder (get-zorder bp)) + (return (values bp 'c))) ; test == curent, return + ((null (dl-next bp)) + (setf quit t)))))) + +(defun add-bitplane (bitplane bitplanes) + (let ((bp bitplanes) (quit nil) (zorder (get-zorder bitplane))) + (loop + (when (equal quit t) (return (values bitplanes 'p))) + (cond + ((> zorder (get-zorder bitplanes)) ; if test > current + (dl-insert bitplane bitplanes)) + (values (bp 'n))) ; end of list when next is null + ((equal zorder (get-zorder bp)) + (return (values bp 'c))) ; test == curent, return + ((null (dl-next bp)) + (setf quit t)))))) + + + + (if (equal zorder (get-zorder bp)) - (return (values bp 'c)) ; test == curent, return + (return (values bp 'c)) (return (values bp 'p))))))) ; test < current, return (defun return-bitplane (zorder bitplanes) Index: corman-sdl/engine/use-engine.lisp diff -u corman-sdl/engine/use-engine.lisp:1.1 corman-sdl/engine/use-engine.lisp:1.2 --- corman-sdl/engine/use-engine.lisp:1.1 Thu Jul 8 02:00:12 2004 +++ corman-sdl/engine/use-engine.lisp Fri Jul 9 08:29:40 2004 @@ -1,23 +1,12 @@ ; Create a new level -(setf objects (add-level objects (new-zlevel 5))) -(dl-list (new-zlevel 5)) -objects +(set-bitplane (new-bitplane 5)) -(find-zlevel objects 5) +(addto-bitplane (bitplanes) 'obj-1) +(addto-bitplane (bitplanes) 'obj-2) +(addto-bitplane (bitplanes) 'obj-5) +(addto-bitplane (bitplanes) 'obj-10) -(setf level-1 (new-level 1)) +(bitplanes) -level-1 - -(addto-level level-1 'obj-3) -level-1 -(remove-from-level level-1 'obj-3) - - (dl-find (level-start level-1) - #'(lambda (node) - (if (equal (dl-data node) 'obj-4) - node - nil))) - -(dl-list 'obj-1 'obj-2) \ No newline at end of file +(remove-from-bitplane (bitplanes) 'obj-10) \ No newline at end of file

1 0

[corman-sdl-cvs] CVS update: corman-sdl/engine/use-engine.lisp corman-sdl/engine/engine.lisp
by Luke J Crook 08 Jul '04

08 Jul '04

Update of /project/corman-sdl/cvsroot/corman-sdl/engine In directory common-lisp.net:/tmp/cvs-serv2445/engine Modified Files: engine.lisp Added Files: use-engine.lisp Log Message: Date: Thu Jul 8 02:00:13 2004 Author: lcrook Index: corman-sdl/engine/engine.lisp diff -u corman-sdl/engine/engine.lisp:1.8 corman-sdl/engine/engine.lisp:1.9 --- corman-sdl/engine/engine.lisp:1.8 Mon May 3 23:00:53 2004 +++ corman-sdl/engine/engine.lisp Thu Jul 8 02:00:12 2004 @@ -95,9 +95,6 @@ start end) - - - (let ((bitplanes nil)) (defun bitplanes () bitplanes) @@ -115,6 +112,9 @@ (y :accessor sprite-y :initform 0 :initarg :y) (zorder :accessor sprite-zorder :initform 0 :initarg :zorder))) +(defun new-bitplane (zorder) + (make-bitplane :zorder zorder)) + (defun addto-bitplane (bitplane obj) (cond ((null (bitplane-end bitplane)) @@ -123,15 +123,23 @@ (t (setf (bitplane-end bitplane) (dl-append obj (bitplane-end bitplane)))))) -(defun removefrom-bitplane (bitplane obj) +;Removes a node from the bitplane. +(defun remove-node-from-bitplane (bitplane obj) (when (null (dl-next obj)) (setf (bitplane-end bitplane) (dl-prev obj))) (when (null (dl-prev obj)) (setf (bitplane-start bitplane) (dl-next obj))) (dl-remove obj)) -(defun new-bitplane (zorder) - (make-bitplane :zorder zorder)) +;Finds the node containing object, then calls remove-node-from-bitplane +(defun remove-from-bitplane (bitplane object) + (let ((obj (dl-find (bitplane-start bitplane) + #'(lambda (node) + (if (equal (dl-data node) object) + node + nil))))) + (when obj + (remove-node-from-bitplane bitplane obj)))) (defun get-zorder (obj) (cond

1 0

[corman-sdl-cvs] CVS update: corman-sdl/ffi/engine.lisp
by Luke J Crook 08 Jul '04

08 Jul '04

Update of /project/corman-sdl/cvsroot/corman-sdl/ffi In directory common-lisp.net:/tmp/cvs-serv6276/ffi Modified Files: engine.lisp Log Message: Date: Thu Jul 8 01:48:34 2004 Author: lcrook Index: corman-sdl/ffi/engine.lisp diff -u corman-sdl/ffi/engine.lisp:1.1 corman-sdl/ffi/engine.lisp:1.2 --- corman-sdl/ffi/engine.lisp:1.1 Tue Apr 13 10:09:40 2004 +++ corman-sdl/ffi/engine.lisp Thu Jul 8 01:48:34 2004 @@ -73,15 +73,21 @@ (return obj) (setf obj (dl-next obj)))))) -(defstruct (zlevel) - zorder - start - end) - +;;;;; End: Link list functions +;;;;; +(defun create-display-list () + (let ((display-list nil)) + (defun init-display-list () + (setf display-list nil)) + (defun display-list () + display-list))) -(defvar objects nil) +(defstruct (level) + zorder + start + end) (defclass sprite () ( @@ -90,32 +96,46 @@ (y :accessor sprite-y :initform 0 :initarg :y) (zorder :accessor sprite-zorder :initform 0 :initarg :zorder))) +(defun new-level (zorder) + (make-level :zorder zorder)) -(defun addto-level (zlevel obj) +(defun addto-level (level object) (cond - ((null (zlevel-end zlevel)) - (setf (zlevel-end zlevel) (dl-list obj)) - (setf (zlevel-start zlevel) (zlevel-end zlevel))) + ((null (level-end level)) + (setf (level-end level) (dl-list object)) + (setf (level-start level) (level-end level))) (t - (setf (zlevel-end zlevel) (dl-append obj (zlevel-end zlevel)))))) + (setf (level-end level) (dl-append object (level-end level)))))) + +;Removes a node from the level. +(defun remove-node-from-level (level object) + (when (null (dl-next object)) + (setf (level-end level) (dl-prev object))) + (when (null (dl-prev object)) + (setf (level-start level) (dl-next object))) + (dl-remove object)) + +;Finds the node containing object, then calls remove-node-from-level +(defun remove-from-level (level object) + (let ((obj (dl-find (level-start level) + #'(lambda (node) + (if (equal (dl-data node) object) + node + nil))))) + (when obj + (remove-node-from-level level obj)))) -(defun add-level (objects level) +(defun add-level (level objects) (cond - ((null (zlevel-end zlevel)) - (setf (zlevel-end zlevel) (dl-list obj)) - (setf (zlevel-start zlevel) (zlevel-end zlevel))) + ((null objects) + (setf objects (dl-list level))) + ((null (level-end level)) + (setf (level-end level) (dl-list objects)) + (setf (level-start level) (level-end level))) (t - (setf (zlevel-end zlevel) (dl-append obj (zlevel-end zlevel)))))) + (setf (level-end level) (dl-append objects (level-end level)))))) -(defun remove-from-level (zlevel obj) - (when (null (dl-next obj)) - (setf (zlevel-end zlevel) (dl-prev obj))) - (when (null (dl-prev obj)) - (setf (zlevel-start zlevel) (dl-next obj))) - (dl-remove obj)) -(defun new-zlevel (zorder) - (make-zlevel :zorder zorder)) (defun new-find-zlevel (zorder) #'(lambda (dl)

1 0

[corman-sdl-cvs] CVS update: corman-sdl/examples/bouncing-ball_7.lisp corman-sdl/examples/random-rectangles_5.lisp
by Luke J Crook 02 Jul '04

02 Jul '04

Update of /project/corman-sdl/cvsroot/corman-sdl/examples In directory common-lisp.net:/tmp/cvs-serv30208/examples Modified Files: bouncing-ball_7.lisp random-rectangles_5.lisp Log Message: Date: Fri Jul 2 02:25:31 2004 Author: lcrook Index: corman-sdl/examples/bouncing-ball_7.lisp diff -u corman-sdl/examples/bouncing-ball_7.lisp:1.1 corman-sdl/examples/bouncing-ball_7.lisp:1.2 --- corman-sdl/examples/bouncing-ball_7.lisp:1.1 Tue Apr 13 10:09:40 2004 +++ corman-sdl/examples/bouncing-ball_7.lisp Fri Jul 2 02:25:31 2004 @@ -27,14 +27,14 @@ (return)) (setf tempBitmap (sdl:loadbmp "b-ball.bmp")) - (when (null tempBitmap) + (unless tempBitmap (sdl:fformat "ERROR: Cannot find \"b-ball.bmp\" in directory ~A~%" (ccl:get-current-directory)) (return)) ;Now we make all black pixels transparent.. ;First, set the color black (0, 0, 0) to be the transparent pixel using SDL_SetColorKey (sdl:set-colorkey tempBitmap 0 0 0 :accel t) - ;Now call (sdl:set-videomode) in order to convert the surface + ;Now call (sdl:displayformat) in order to convert the surface ;to native SDL format for fast blitting. (setf pBitmap (sdl:displayformat tempBitmap)) @@ -46,11 +46,11 @@ (sdl:with-events (:quit t) - (:keydown (state keysym) - (when (eql (sdl:get-key keysym) sdl:SDLK_ESCAPE) + (:keydown (state scancode key mod unicode) + (when (= key sdl:SDLK_ESCAPE) (sdl:push-quitevent))) (:idle - (sdl:clear-display 255 255 255) + (sdl:fill-display :r 255 :g 255 :b 255) (sdl:moveby-rectangle rcDst dx dy) (when (or (<= (sdl:rectangle-x rcDst) 0) (>= (sdl:rectangle-x rcDst) max-right)) @@ -58,7 +58,7 @@ (when (or (<= (sdl:rectangle-y rcDst) 0) (>= (sdl:rectangle-y rcDst) max-height)) (setf dy (- dy))) - (sdl:blit-to-display pBitmap rcDst) + (sdl:blit-to-display pBitmap :template rcDst) (sdl:Flip)))) (unless (sdl:init-success) @@ -75,4 +75,3 @@ ;;; Build the exe using... ;;; (SAVE-APPLICATION "bouncing-ball.exe" 'bouncing-ball :static t) -:c 1 \ No newline at end of file Index: corman-sdl/examples/random-rectangles_5.lisp diff -u corman-sdl/examples/random-rectangles_5.lisp:1.1 corman-sdl/examples/random-rectangles_5.lisp:1.2 --- corman-sdl/examples/random-rectangles_5.lisp:1.1 Tue Apr 13 10:09:40 2004 +++ corman-sdl/examples/random-rectangles_5.lisp Fri Jul 2 02:25:31 2004 @@ -33,11 +33,14 @@ ;(documentation 'sdl:with-events 'function) for a description of how to use it. (sdl:with-events (:quit t) + (:keydown (state scancode key mod unicode) + (when (= key sdl:SDLK_ESCAPE) + (sdl:push-quitevent))) (:idle ;Set up the random rectangle - (with-c-struct (x rectangle sdl:SDL_Rect) + (ct:with-c-struct (x rectangle sdl:sdl_rect) (setf - sdl::x (random width) + sdl::x (random width) sdl::y (random height) sdl::w (random (- width sdl::x)) sdl::h (random (- height sdl::y)))) @@ -45,7 +48,7 @@ ;'Render' the rectangle to the display by: ;Filling the display with a random color, ;using the [x,y,w,h] of the rectangle as a template - (sdl:fill-display (random 256) (random 256) (random 256) :rectangle rectangle) + (sdl:fill-display :r (random 256) :g (random 256) :b (random 256) :template rectangle) ;Use sdl:flip or sdl:update-display to update the screen. ; Here, sdl:flip updates the entire display whereas @@ -54,13 +57,11 @@ ;(sdl:Flip) - (sdl:update-display - (sdl:rectangle-x rectangle) (sdl:rectangle-y rectangle) - (sdl:rectangle-w rectangle) (sdl:rectangle-h rectangle))))) + (sdl:update-display :template rectangle))) ;sdl:init-success will check to see if sdl:with-init was initialized correctly. (unless (sdl:init-success) - (fformat "ERROR: sdl:with-init FAILED to initialize")))) + (fformat "ERROR: sdl:with-init FAILED to initialize"))))) ;;; Run the example using... ;;; (setf rects (mp:process-run-function "random-rects" #'random-rects))

1 0

[corman-sdl-cvs] CVS update: corman-sdl/ffi/sdl-util.lisp
by Luke J Crook 02 Jul '04

02 Jul '04

Update of /project/corman-sdl/cvsroot/corman-sdl/ffi In directory common-lisp.net:/tmp/cvs-serv26481/ffi Modified Files: sdl-util.lisp Log Message: Date: Fri Jul 2 02:24:59 2004 Author: lcrook Index: corman-sdl/ffi/sdl-util.lisp diff -u corman-sdl/ffi/sdl-util.lisp:1.2 corman-sdl/ffi/sdl-util.lisp:1.3 --- corman-sdl/ffi/sdl-util.lisp:1.2 Tue Apr 20 18:23:07 2004 +++ corman-sdl/ffi/sdl-util.lisp Fri Jul 2 02:24:59 2004 @@ -213,47 +213,54 @@ (ct:cref sdl:SDL_Surface surface sdl::format))) -(defun fill-surface (surface r g b &optional (a nil) &key (rectangle nil)) - "fill SURFACE R G B &optional A &key (RECTANGLE null) - Fill SURFACE with the specified color using the parameters R G B and the optional alpha component, A. - RECTANGLE is the fill template." - (if (null a) - (sdl:SDL_FillRect surface rectangle +(defun fill-surface (surface &key (r 0) (g 0) (b 0) (alpha nil) (template NULL)) + "fill SURFACE &key R G B ALPHA (template null) + Fill SURFACE with the specified color using the keyword parameters R G B and Alpha. + :template is the fill template." + (if ALPHA + (sdl:SDL_FillRect surface template (sdl:SDL_MapRGB (sdl:pixelformat surface) r g b)) - (sdl:SDL_FillRect surface rectangle - (sdl:SDL_MapRGBA (sdl:pixelformat surface) r g b a)))) + (sdl:SDL_FillRect surface template + (sdl:SDL_MapRGBA (sdl:pixelformat surface) r g b ALPHA)))) -(defun fill-display (r g b &key (rectangle nil)) - "fill-display R G B &key RECTANGLE +(defun fill-display (&key (r 0) (g 0) (b 0) (template NULL)) + "fill-display &key R G B template Fills the display with a color specified using the R G B parameters. - The optional RECTANGLE (SDL_Rect) defaults to NULL." - (sdl:SDL_FillRect (sdl:display) RECTANGLE + The keyword :template (SDL_Rect) defaults to NULL." + (sdl:SDL_FillRect (sdl:display) template (sdl:SDL_MapRGB (sdl:pixelformat (sdl:display)) r g b))) -(defun clear-display (&optional (r 0) (g 0) (b 0)) - "clear-display &optional R G B - Clears the whole display using the optional R G B parameters. Color defaults to black." +#|(defun clear-display (&key (r 0) (g 0) (b 0)) + "clear-display &key R G B + Clears the whole display using the keyword :R :G :B parameters. Color defaults to black." (sdl:SDL_FillRect (sdl:display) NULL (sdl:SDL_MapRGB (sdl:pixelformat (sdl:display)) r g b))) +|# -(defun update-display (&optional (x 0) (y 0) (w 0) (h 0)) - "update-display &optional X Y W H - Updates the screen using the optional co-orditates X Y W H. +(defun update-display (&key (x 0) (y 0) (w 0) (h 0) (template nil)) + "update-display &key X Y W H + Updates the screen using the keyword co-orditates :X :Y :W :H, or :template. Co-ordinates default to 0, therefore updating the entire screen." - (sdl:SDL_UpdateRect (sdl:display) x y w h)) + (if template + (sdl:SDL_UpdateRect (sdl:display) + (sdl:rectangle-x template) + (sdl:rectangle-y template) + (sdl:rectangle-w template) + (sdl:rectangle-h template)) + (sdl:SDL_UpdateRect (sdl:display) x y w h))) -(defun blit-to-display (source destination &key (rectangle NULL)) +(defun blit-to-display (source &key (template NULL)) "blit-to-display SOURCE DESTINATION Blits the SOURCE surface to the display using SDL_BlitSurface. DESTINATION is a SDL_Rect. Only the [x,y] co-ordinates are used to position the source on the display." - (sdl:SDL_BlitSurface source rectangle (sdl:display) destination)) + (sdl:blit-to-surface source (sdl:display) :destination-template template)) -(defun blit-to-surface (source destination-coords destination-surface &key (source-rect nil)) +(defun blit-to-surface (source destination &key (source-template NULL) (destination-template NULL)) "blit-to-surface SOURCE DESTINATION-COORDS DESTINATION-SURFACE &key SOURCE-RECT Blits the SOURCE surface to the DESTINATION-SURFACE using SDL_BlitSurface. DESTINATION is a SDL_Rect. Only the [x,y] co-ordinates are used to position the SOURCE on the DESTINATION-SURFACE. Use the optional SOURCE-RECT ( SDL_Rect ) to blit a portion of the SOURCE to the DESTINATION-SURFACE." - (sdl:SDL_BlitSurface source source-rect destination-surface destination-coords)) + (sdl:SDL_BlitSurface source source-template destination destination-template)) (defun set-colorkey (surface r g b &key (accel nil)) (if (or @@ -450,7 +457,10 @@ (funcall #'(lambda ,params ,@forms) (ct:cref sdl:SDL_KeyboardEvent ,sdl-event sdl::state) - (ct:cref sdl:SDL_KeyboardEvent ,sdl-event sdl::keysym)))) + (ct:cref sdl:SDL_keysym (ct:cref sdl:SDL_KeyboardEvent ,sdl-event sdl::keysym) sdl::scancode) + (ct:cref sdl:SDL_keysym (ct:cref sdl:SDL_KeyboardEvent ,sdl-event sdl::keysym) sdl::sym) + (ct:cref sdl:SDL_keysym (ct:cref sdl:SDL_KeyboardEvent ,sdl-event sdl::keysym) sdl::mod) + (ct:cref sdl:SDL_keysym (ct:cref sdl:SDL_KeyboardEvent ,sdl-event sdl::keysym) sdl::unicode)))) (defun expand-keyup (sdl-event params forms) `((eql sdl:SDL_KEYUP @@ -460,7 +470,10 @@ (funcall #'(lambda ,params ,@forms) (ct:cref sdl:SDL_KeyboardEvent ,sdl-event sdl::state) - (ct:cref sdl:SDL_KeyboardEvent ,sdl-event sdl::keysym)))) + (ct:cref sdl:SDL_keysym (ct:cref sdl:SDL_KeyboardEvent ,sdl-event sdl::keysym) sdl::scancode) + (ct:cref sdl:SDL_keysym (ct:cref sdl:SDL_KeyboardEvent ,sdl-event sdl::keysym) sdl::sym) + (ct:cref sdl:SDL_keysym (ct:cref sdl:SDL_KeyboardEvent ,sdl-event sdl::keysym) sdl::mod) + (ct:cref sdl:SDL_keysym (ct:cref sdl:SDL_KeyboardEvent ,sdl-event sdl::keysym) sdl::unicode)))) (defun expand-mousemotion (sdl-event params forms) `((eql sdl:SDL_MOUSEMOTION

1 0

[corman-sdl-cvs] CVS update: corman-sdl/ffi/SDL.lisp
by Luke J Crook 09 Jun '04

09 Jun '04

Update of /project/corman-sdl/cvsroot/corman-sdl/ffi In directory common-lisp.net:/tmp/cvs-serv24847/ffi Modified Files: SDL.lisp Log Message: Date: Wed Jun 9 02:50:49 2004 Author: lcrook Index: corman-sdl/ffi/SDL.lisp diff -u corman-sdl/ffi/SDL.lisp:1.4 corman-sdl/ffi/SDL.lisp:1.5 --- corman-sdl/ffi/SDL.lisp:1.4 Fri Jun 4 07:25:44 2004 +++ corman-sdl/ffi/SDL.lisp Wed Jun 9 02:50:49 2004 @@ -16,8 +16,8 @@ (PROGN (EXPORT '(UINT)) (C-TYPES:DEFCTYPE UINT :UNSIGNED-LONG)) (PROGN (EXPORT '(HWND WPARAM LPARAM HGLRC)) (C-TYPES:DEFCTYPE HWND :HANDLE) (C-TYPES:DEFCTYPE WPARAM UINT) (C-TYPES:DEFCTYPE LPARAM :UNSIGNED-LONG) (C-TYPES:DEFCTYPE HGLRC :HANDLE)) (PROGN (EXPORT '(SDL_SYSWMINFO)) (C-TYPES:DEFCSTRUCT SDL_SYSWMINFO NIL)) -(PROGN (EXPORT '(SDL_SYSWMMSG)) (C-TYPES:DEFCSTRUCT SDL_SYSWMMSG ((VERSION SDL_VERSION) (#:G7418 (:CHAR 1)) (HWND HWND) (MSG UINT) (WPARAM WPARAM) (LPARAM LPARAM)))) -(PROGN (EXPORT '(SDL_SYSWMINFO)) (C-TYPES:DEFCSTRUCT SDL_SYSWMINFO ((VERSION SDL_VERSION) (#:G7419 (:CHAR 1)) (WINDOW HWND) (HGLRC HGLRC)))) +(PROGN (EXPORT '(SDL_SYSWMMSG)) (C-TYPES:DEFCSTRUCT SDL_SYSWMMSG ((VERSION SDL_VERSION) (#:G7824 (:CHAR 1)) (HWND HWND) (MSG UINT) (WPARAM WPARAM) (LPARAM LPARAM)))) +(PROGN (EXPORT '(SDL_SYSWMINFO)) (C-TYPES:DEFCSTRUCT SDL_SYSWMINFO ((VERSION SDL_VERSION) (#:G7825 (:CHAR 1)) (WINDOW HWND) (HGLRC HGLRC)))) (PROGN (EXPORT '(SDL_GETWMINFO)) (C-TYPES:DEFUN-DLL SDL_GETWMINFO ((INFO (SDL_SYSWMINFO *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetWMInfo" :LINKAGE-TYPE :C)) (PROGN) (PROGN (EXPORT '(SDL_RWOPS SDL_RWOPS_STDIO SDL_RWOPS_MEM SDL_RWOPS_UNKNOWN)) (C-TYPES:DEFCSTRUCT SDL_RWOPS ((SEEK (:VOID *)) (READ (:VOID *)) (WRITE (:VOID *)) (CLOSE (:VOID *)) (TYPE UINT32) (BUFFER (UINT32 4)))) (C-TYPES:DEFCSTRUCT SDL_RWOPS_STDIO ((SEEK (:VOID *)) (READ (:VOID *)) (WRITE (:VOID *)) (CLOSE (:VOID *)) (TYPE UINT32) (AUTOCLOSE :LONG) (FP (:VOID *)))) (C-TYPES:DEFCSTRUCT SDL_RWOPS_MEM ((SEEK (:VOID *)) (READ (:VOID *)) (WRITE (:VOID *)) (CLOSE (:VOID *)) (TYPE UINT32))) (C-TYPES:DEFCSTRUCT SDL_RWOPS_UNKNOWN ((SEEK (:VOID *)) (READ (:VOID *)) (WRITE (:VOID *)) (CLOSE (:VOID *)) (TYPE UINT32) (DATA1 (:VOID *))))) @@ -42,11 +42,11 @@ (PROGN (EXPORT '(THREADFN)) (C-TYPES:DEFCTYPE THREADFN (:VOID *))) (PROGN (EXPORT '(SDL_CREATETHREAD SDL_THREADID SDL_GETTHREADID SDL_WAITTHREAD SDL_KILLTHREAD)) (C-TYPES:DEFUN-DLL SDL_CREATETHREAD ((FN THREADFN) (DATA (:VOID *))) :RETURN-TYPE (SDL_THREAD *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CreateThread" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_THREADID NIL :RETURN-TYPE UINT32 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_ThreadID" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_GETTHREADID ((THREAD (SDL_THREAD *))) :RETURN-TYPE UINT32 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetThreadID" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_WAITTHREAD ((THREAD (SDL_THREAD *)) (STATUS (:LONG *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_WaitThread" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_KILLTHREAD ((THREAD (SDL_THREAD *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_KillThread" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDL_ALPHA_OPAQUE SDL_ALPHA_TRANSPARENT)) (DEFCONSTANT SDL_ALPHA_OPAQUE 255) (DEFCONSTANT SDL_ALPHA_TRANSPARENT 0)) -(PROGN (EXPORT '(SDL_RECT SDL_COLOR SDL_COLOUR SDL_PALETTE SDL_PIXELFORMAT)) (C-TYPES:DEFCSTRUCT SDL_RECT ((X SINT16) (Y SINT16) (W UINT16) (H UINT16))) (C-TYPES:DEFCSTRUCT SDL_COLOR ((R UINT8) (G UINT8) (B UINT8) (UNUSED UINT8))) (C-TYPES:DEFCSTRUCT SDL_COLOUR ((R UINT8) (G UINT8) (B UINT8) (UNUSED UINT8))) (C-TYPES:DEFCSTRUCT SDL_PALETTE ((NCOLORS :LONG) (COLORS (SDL_COLOR *)))) (C-TYPES:DEFCSTRUCT SDL_PIXELFORMAT ((PALETTE (SDL_PALETTE *)) (BITSPERPIXEL UINT8) (BYTESPERPIXEL UINT8) (RLOSS UINT8) (GLOSS UINT8) (BLOSS UINT8) (ALOSS UINT8) (RSHIFT UINT8) (GSHIFT UINT8) (BSHIFT UINT8) (ASHIFT UINT8) (#:G7420 (:CHAR 2)) (RMASK UINT32) (GMASK UINT32) (BMASK UINT32) (AMASK UINT32) (COLORKEY UINT32) (ALPHA UINT8)))) +(PROGN (EXPORT '(SDL_RECT SDL_COLOR SDL_COLOUR SDL_PALETTE SDL_PIXELFORMAT)) (C-TYPES:DEFCSTRUCT SDL_RECT ((X SINT16) (Y SINT16) (W UINT16) (H UINT16))) (C-TYPES:DEFCSTRUCT SDL_COLOR ((R UINT8) (G UINT8) (B UINT8) (UNUSED UINT8))) (C-TYPES:DEFCSTRUCT SDL_COLOUR ((R UINT8) (G UINT8) (B UINT8) (UNUSED UINT8))) (C-TYPES:DEFCSTRUCT SDL_PALETTE ((NCOLORS :LONG) (COLORS (SDL_COLOR *)))) (C-TYPES:DEFCSTRUCT SDL_PIXELFORMAT ((PALETTE (SDL_PALETTE *)) (BITSPERPIXEL UINT8) (BYTESPERPIXEL UINT8) (RLOSS UINT8) (GLOSS UINT8) (BLOSS UINT8) (ALOSS UINT8) (RSHIFT UINT8) (GSHIFT UINT8) (BSHIFT UINT8) (ASHIFT UINT8) (#:G7826 (:CHAR 2)) (RMASK UINT32) (GMASK UINT32) (BMASK UINT32) (AMASK UINT32) (COLORKEY UINT32) (ALPHA UINT8)))) (PROGN (EXPORT '(SDL_SURFACE)) (C-TYPES:DEFCSTRUCT SDL_SURFACE NIL)) (PROGN (EXPORT '(SDL_BLIT)) (C-TYPES:DEFCTYPE SDL_BLIT (:VOID *))) (PROGN (EXPORT '(PRIVATE_HWDATA SDL_BLITMAP)) (C-TYPES:DEFCSTRUCT PRIVATE_HWDATA NIL) (C-TYPES:DEFCSTRUCT SDL_BLITMAP NIL)) -(PROGN (EXPORT '(SDL_SURFACE SDL_SWSURFACE SDL_HWSURFACE SDL_ASYNCBLIT SDL_ANYFORMAT SDL_HWPALETTE SDL_DOUBLEBUF SDL_FULLSCREEN SDL_OPENGL SDL_OPENGLBLIT SDL_RESIZABLE SDL_NOFRAME SDL_HWACCEL SDL_SRCCOLORKEY SDL_RLEACCELOK SDL_RLEACCEL SDL_SRCALPHA SDL_PREALLOC)) (C-TYPES:DEFCSTRUCT SDL_SURFACE ((FLAGS UINT32) (FORMAT (SDL_PIXELFORMAT *)) (W :LONG) (H :LONG) (PITCH UINT16) (#:G7421 (:CHAR 2)) (PIXELS (:VOID *)) (OFFSET :LONG) (HWDATA (PRIVATE_HWDATA *)) (CLIP_RECT SDL_RECT) (UNUSED1 UINT32) (LOCKED UINT32) (MAP (SDL_BLITMAP *)) (FORMAT_VERSION :UNSIGNED-LONG) (REFCOUNT :LONG))) (DEFCONSTANT SDL_SWSURFACE 0) (DEFCONSTANT SDL_HWSURFACE 1) (DEFCONSTANT SDL_ASYNCBLIT 4) (DEFCONSTANT SDL_ANYFORMAT 268435456) (DEFCONSTANT SDL_HWPALETTE 536870912) (DEFCONSTANT SDL_DOUBLEBUF 1073741824) (DEFCONSTANT SDL_FULLSCREEN 2147483648) (DEFCONSTANT SDL_OPENGL 2) (DEFCONSTANT SDL_OPENGLBLIT 10) (DEFCONSTANT SDL_RESIZABLE 16) (DEFCONSTANT SDL_NOFRAME 32) (DEFCONSTANT SDL_HWACCEL 256) (DEFCONSTANT SDL_SRCCOLORKEY 4096) (DEFCONSTANT SDL_RLEACCELOK 8192) (DEFCONSTANT SDL_RLEACCEL 16384) (DEFCONSTANT SDL_SRCALPHA 65536) (DEFCONSTANT SDL_PREALLOC 16777216)) +(PROGN (EXPORT '(SDL_SURFACE SDL_SWSURFACE SDL_HWSURFACE SDL_ASYNCBLIT SDL_ANYFORMAT SDL_HWPALETTE SDL_DOUBLEBUF SDL_FULLSCREEN SDL_OPENGL SDL_OPENGLBLIT SDL_RESIZABLE SDL_NOFRAME SDL_HWACCEL SDL_SRCCOLORKEY SDL_RLEACCELOK SDL_RLEACCEL SDL_SRCALPHA SDL_PREALLOC)) (C-TYPES:DEFCSTRUCT SDL_SURFACE ((FLAGS UINT32) (FORMAT (SDL_PIXELFORMAT *)) (W :LONG) (H :LONG) (PITCH UINT16) (#:G7827 (:CHAR 2)) (PIXELS (:VOID *)) (OFFSET :LONG) (HWDATA (PRIVATE_HWDATA *)) (CLIP_RECT SDL_RECT) (UNUSED1 UINT32) (LOCKED UINT32) (MAP (SDL_BLITMAP *)) (FORMAT_VERSION :UNSIGNED-LONG) (REFCOUNT :LONG))) (DEFCONSTANT SDL_SWSURFACE 0) (DEFCONSTANT SDL_HWSURFACE 1) (DEFCONSTANT SDL_ASYNCBLIT 4) (DEFCONSTANT SDL_ANYFORMAT 268435456) (DEFCONSTANT SDL_HWPALETTE 536870912) (DEFCONSTANT SDL_DOUBLEBUF 1073741824) (DEFCONSTANT SDL_FULLSCREEN 2147483648) (DEFCONSTANT SDL_OPENGL 2) (DEFCONSTANT SDL_OPENGLBLIT 10) (DEFCONSTANT SDL_RESIZABLE 16) (DEFCONSTANT SDL_NOFRAME 32) (DEFCONSTANT SDL_HWACCEL 256) (DEFCONSTANT SDL_SRCCOLORKEY 4096) (DEFCONSTANT SDL_RLEACCELOK 8192) (DEFCONSTANT SDL_RLEACCEL 16384) (DEFCONSTANT SDL_SRCALPHA 65536) (DEFCONSTANT SDL_PREALLOC 16777216)) (PROGN (PROGN (EXPORT 'SDL_MUSTLOCK) (DECLAIM (INLINE SDL_MUSTLOCK)) (DEFUN SDL_MUSTLOCK (SURFACE) (IF (> 0 (C-TYPES:CREF SDL_SURFACE SURFACE OFFSET)) (VALUES 1) (IF (NOT (EQL 0 (LOGAND (C-TYPES:CREF SDL_SURFACE SURFACE FLAGS) (LOGIOR SDL_HWSURFACE SDL_ASYNCBLIT SDL_RLEACCEL)))) (VALUES 1) (VALUES 0)))))) (PROGN) (PROGN (EXPORT '(SDL_VIDEOINFO)) (C-TYPES:DEFCSTRUCT SDL_VIDEOINFO ((INT1 UINT8) (INT2 UINT8) (INT3 UINT16) (VIDEO_MEM UINT32) (VFMT (SDL_PIXELFORMAT *))))) @@ -63,7 +63,7 @@ (PROGN (EXPORT '(SDL_APPMOUSEFOCUS SDL_APPINPUTFOCUS SDL_APPACTIVE)) (DEFCONSTANT SDL_APPMOUSEFOCUS 1) (DEFCONSTANT SDL_APPINPUTFOCUS 2) (DEFCONSTANT SDL_APPACTIVE 4)) (PROGN (EXPORT '(SDL_GETAPPSTATE)) (C-TYPES:DEFUN-DLL SDL_GETAPPSTATE NIL :RETURN-TYPE UINT8 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetAppState" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDLK_UNKNOWN SDLK_FIRST SDLK_BACKSPACE SDLK_TAB SDLK_CLEAR SDLK_RETURN SDLK_PAUSE SDLK_ESCAPE SDLK_SPACE SDLK_EXCLAIM SDLK_QUOTEDBL SDLK_HASH SDLK_DOLLAR SDLK_AMPERSAND SDLK_QUOTE SDLK_LEFTPAREN SDLK_RIGHTPAREN SDLK_ASTERISK SDLK_PLUS SDLK_COMMA SDLK_MINUS SDLK_PERIOD SDLK_SLASH SDLK_0 SDLK_1 SDLK_2 SDLK_3 SDLK_4 SDLK_5 SDLK_6 SDLK_7 SDLK_8 SDLK_9 SDLK_COLON SDLK_SEMICOLON SDLK_LESS SDLK_EQUALS SDLK_GREATER SDLK_QUESTION SDLK_AT SDLK_LEFTBRACKET SDLK_BACKSLASH SDLK_RIGHTBRACKET SDLK_CARET SDLK_UNDERSCORE SDLK_BACKQUOTE SDLK_A SDLK_B SDLK_C SDLK_D SDLK_E SDLK_F SDLK_G SDLK_H SDLK_I SDLK_J SDLK_K SDLK_L SDLK_M SDLK_N SDLK_O SDLK_P SDLK_Q SDLK_R SDLK_S SDLK_T SDLK_U SDLK_V SDLK_W SDLK_X SDLK_Y SDLK_Z SDLK_DELETE SDLK_WORLD_0 SDLK_WORLD_1 SDLK_WORLD_2 SDLK_WORLD_3 SDLK_WORLD_4 SDLK_WORLD_5 SDLK_WORLD_6 SDLK_WORLD_7 SDLK_WORLD_8 SDLK_WORLD_9 SDLK_WORLD_10 SDLK_WORLD_11 SDLK_WORLD_12 SDLK_WORLD_13 SDLK_WORLD_14 SDLK_WORLD_15 SDLK_WORLD_16 SDLK_WORLD_17 SDLK_WORLD_18 SDLK_WORLD_19 SDLK_WORLD_20 SDLK_WORLD_21 SDLK_WORLD_22 SDLK_WORLD_23 SDLK_WORLD_24 SDLK_WORLD_25 SDLK_WORLD_26 SDLK_WORLD_27 SDLK_WORLD_28 SDLK_WORLD_29 SDLK_WORLD_30 SDLK_WORLD_31 SDLK_WORLD_32 SDLK_WORLD_33 SDLK_WORLD_34 SDLK_WORLD_35 SDLK_WORLD_36 SDLK_WORLD_37 SDLK_WORLD_38 SDLK_WORLD_39 SDLK_WORLD_40 SDLK_WORLD_41 SDLK_WORLD_42 SDLK_WORLD_43 SDLK_WORLD_44 SDLK_WORLD_45 SDLK_WORLD_46 SDLK_WORLD_47 SDLK_WORLD_48 SDLK_WORLD_49 SDLK_WORLD_50 SDLK_WORLD_51 SDLK_WORLD_52 SDLK_WORLD_53 SDLK_WORLD_54 SDLK_WORLD_55 SDLK_WORLD_56 SDLK_WORLD_57 SDLK_WORLD_58 SDLK_WORLD_59 SDLK_WORLD_60 SDLK_WORLD_61 SDLK_WORLD_62 SDLK_WORLD_63 SDLK_WORLD_64 SDLK_WORLD_65 SDLK_WORLD_66 SDLK_WORLD_67 SDLK_WORLD_68 SDLK_WORLD_69 SDLK_WORLD_70 SDLK_WORLD_71 SDLK_WORLD_72 SDLK_WORLD_73 SDLK_WORLD_74 SDLK_WORLD_75 SDLK_WORLD_76 SDLK_WORLD_77 SDLK_WORLD_78 SDLK_WORLD_79 SDLK_WORLD_80 SDLK_WORLD_81 SDLK_WORLD_82 SDLK_WORLD_83 SDLK_WORLD_84 SDLK_WORLD_85 SDLK_WORLD_86 SDLK_WORLD_87 SDLK_WORLD_88 SDLK_WORLD_89 SDLK_WORLD_90 SDLK_WORLD_91 SDLK_WORLD_92 SDLK_WORLD_93 SDLK_WORLD_94 SDLK_WORLD_95 SDLK_KP0 SDLK_KP1 SDLK_KP2 SDLK_KP3 SDLK_KP4 SDLK_KP5 SDLK_KP6 SDLK_KP7 SDLK_KP8 SDLK_KP9 SDLK_KP_PERIOD SDLK_KP_DIVIDE SDLK_KP_MULTIPLY SDLK_KP_MINUS SDLK_KP_PLUS SDLK_KP_ENTER SDLK_KP_EQUALS SDLK_UP SDLK_DOWN SDLK_RIGHT SDLK_LEFT SDLK_INSERT SDLK_HOME SDLK_END SDLK_PAGEUP SDLK_PAGEDOWN SDLK_F1 SDLK_F2 SDLK_F3 SDLK_F4 SDLK_F5 SDLK_F6 SDLK_F7 SDLK_F8 SDLK_F9 SDLK_F10 SDLK_F11 SDLK_F12 SDLK_F13 SDLK_F14 SDLK_F15 SDLK_NUMLOCK SDLK_CAPSLOCK SDLK_SCROLLOCK SDLK_RSHIFT SDLK_LSHIFT SDLK_RCTRL SDLK_LCTRL SDLK_RALT SDLK_LALT SDLK_RMETA SDLK_LMETA SDLK_LSUPER SDLK_RSUPER SDLK_MODE SDLK_COMPOSE SDLK_HELP SDLK_PRINT SDLK_SYSREQ SDLK_BREAK SDLK_MENU SDLK_POWER SDLK_EURO SDLK_UNDO SDLK_LAST SDLKEY KMOD_NONE KMOD_LSHIFT KMOD_RSHIFT KMOD_LCTRL KMOD_RCTRL KMOD_LALT KMOD_RALT KMOD_LMETA KMOD_RMETA KMOD_NUM KMOD_CAPS KMOD_MODE KMOD_RESERVED SDLMOD KMOD_CTRL KMOD_SHIFT KMOD_ALT KMOD_META)) (C-TYPES:DEFCTYPE SDLKEY :LONG) (DEFCONSTANT SDLK_LAST 323) (DEFCONSTANT SDLK_UNDO 322) (DEFCONSTANT SDLK_EURO 321) (DEFCONSTANT SDLK_POWER 320) (DEFCONSTANT SDLK_MENU 319) (DEFCONSTANT SDLK_BREAK 318) (DEFCONSTANT SDLK_SYSREQ 317) (DEFCONSTANT SDLK_PRINT 316) (DEFCONSTANT SDLK_HELP 315) (DEFCONSTANT SDLK_COMPOSE 314) (DEFCONSTANT SDLK_MODE 313) (DEFCONSTANT SDLK_RSUPER 312) (DEFCONSTANT SDLK_LSUPER 311) (DEFCONSTANT SDLK_LMETA 310) (DEFCONSTANT SDLK_RMETA 309) (DEFCONSTANT SDLK_LALT 308) (DEFCONSTANT SDLK_RALT 307) (DEFCONSTANT SDLK_LCTRL 306) (DEFCONSTANT SDLK_RCTRL 305) (DEFCONSTANT SDLK_LSHIFT 304) (DEFCONSTANT SDLK_RSHIFT 303) (DEFCONSTANT SDLK_SCROLLOCK 302) (DEFCONSTANT SDLK_CAPSLOCK 301) (DEFCONSTANT SDLK_NUMLOCK 300) (DEFCONSTANT SDLK_F15 296) (DEFCONSTANT SDLK_F14 295) (DEFCONSTANT SDLK_F13 294) (DEFCONSTANT SDLK_F12 293) (DEFCONSTANT SDLK_F11 292) (DEFCONSTANT SDLK_F10 291) (DEFCONSTANT SDLK_F9 290) (DEFCONSTANT SDLK_F8 289) (DEFCONSTANT SDLK_F7 288) (DEFCONSTANT SDLK_F6 287) (DEFCONSTANT SDLK_F5 286) (DEFCONSTANT SDLK_F4 285) (DEFCONSTANT SDLK_F3 284) (DEFCONSTANT SDLK_F2 283) (DEFCONSTANT SDLK_F1 282) (DEFCONSTANT SDLK_PAGEDOWN 281) (DEFCONSTANT SDLK_PAGEUP 280) (DEFCONSTANT SDLK_END 279) (DEFCONSTANT SDLK_HOME 278) (DEFCONSTANT SDLK_INSERT 277) (DEFCONSTANT SDLK_LEFT 276) (DEFCONSTANT SDLK_RIGHT 275) (DEFCONSTANT SDLK_DOWN 274) (DEFCONSTANT SDLK_UP 273) (DEFCONSTANT SDLK_KP_EQUALS 272) (DEFCONSTANT SDLK_KP_ENTER 271) (DEFCONSTANT SDLK_KP_PLUS 270) (DEFCONSTANT SDLK_KP_MINUS 269) (DEFCONSTANT SDLK_KP_MULTIPLY 268) (DEFCONSTANT SDLK_KP_DIVIDE 267) (DEFCONSTANT SDLK_KP_PERIOD 266) (DEFCONSTANT SDLK_KP9 265) (DEFCONSTANT SDLK_KP8 264) (DEFCONSTANT SDLK_KP7 263) (DEFCONSTANT SDLK_KP6 262) (DEFCONSTANT SDLK_KP5 261) (DEFCONSTANT SDLK_KP4 260) (DEFCONSTANT SDLK_KP3 259) (DEFCONSTANT SDLK_KP2 258) (DEFCONSTANT SDLK_KP1 257) (DEFCONSTANT SDLK_KP0 256) (DEFCONSTANT SDLK_WORLD_95 255) (DEFCONSTANT SDLK_WORLD_94 254) (DEFCONSTANT SDLK_WORLD_93 253) (DEFCONSTANT SDLK_WORLD_92 252) (DEFCONSTANT SDLK_WORLD_91 251) (DEFCONSTANT SDLK_WORLD_90 250) (DEFCONSTANT SDLK_WORLD_89 249) (DEFCONSTANT SDLK_WORLD_88 248) (DEFCONSTANT SDLK_WORLD_87 247) (DEFCONSTANT SDLK_WORLD_86 246) (DEFCONSTANT SDLK_WORLD_85 245) (DEFCONSTANT SDLK_WORLD_84 244) (DEFCONSTANT SDLK_WORLD_83 243) (DEFCONSTANT SDLK_WORLD_82 242) (DEFCONSTANT SDLK_WORLD_81 241) (DEFCONSTANT SDLK_WORLD_80 240) (DEFCONSTANT SDLK_WORLD_79 239) (DEFCONSTANT SDLK_WORLD_78 238) (DEFCONSTANT SDLK_WORLD_77 237) (DEFCONSTANT SDLK_WORLD_76 236) (DEFCONSTANT SDLK_WORLD_75 235) (DEFCONSTANT SDLK_WORLD_74 234) (DEFCONSTANT SDLK_WORLD_73 233) (DEFCONSTANT SDLK_WORLD_72 232) (DEFCONSTANT SDLK_WORLD_71 231) (DEFCONSTANT SDLK_WORLD_70 230) (DEFCONSTANT SDLK_WORLD_69 229) (DEFCONSTANT SDLK_WORLD_68 228) (DEFCONSTANT SDLK_WORLD_67 227) (DEFCONSTANT SDLK_WORLD_66 226) (DEFCONSTANT SDLK_WORLD_65 225) (DEFCONSTANT SDLK_WORLD_64 224) (DEFCONSTANT SDLK_WORLD_63 223) (DEFCONSTANT SDLK_WORLD_62 222) (DEFCONSTANT SDLK_WORLD_61 221) (DEFCONSTANT SDLK_WORLD_60 220) (DEFCONSTANT SDLK_WORLD_59 219) (DEFCONSTANT SDLK_WORLD_58 218) (DEFCONSTANT SDLK_WORLD_57 217) (DEFCONSTANT SDLK_WORLD_56 216) (DEFCONSTANT SDLK_WORLD_55 215) (DEFCONSTANT SDLK_WORLD_54 214) (DEFCONSTANT SDLK_WORLD_53 213) (DEFCONSTANT SDLK_WORLD_52 212) (DEFCONSTANT SDLK_WORLD_51 211) (DEFCONSTANT SDLK_WORLD_50 210) (DEFCONSTANT SDLK_WORLD_49 209) (DEFCONSTANT SDLK_WORLD_48 208) (DEFCONSTANT SDLK_WORLD_47 207) (DEFCONSTANT SDLK_WORLD_46 206) (DEFCONSTANT SDLK_WORLD_45 205) (DEFCONSTANT SDLK_WORLD_44 204) (DEFCONSTANT SDLK_WORLD_43 203) (DEFCONSTANT SDLK_WORLD_42 202) (DEFCONSTANT SDLK_WORLD_41 201) (DEFCONSTANT SDLK_WORLD_40 200) (DEFCONSTANT SDLK_WORLD_39 199) (DEFCONSTANT SDLK_WORLD_38 198) (DEFCONSTANT SDLK_WORLD_37 197) (DEFCONSTANT SDLK_WORLD_36 196) (DEFCONSTANT SDLK_WORLD_35 195) (DEFCONSTANT SDLK_WORLD_34 194) (DEFCONSTANT SDLK_WORLD_33 193) (DEFCONSTANT SDLK_WORLD_32 192) (DEFCONSTANT SDLK_WORLD_31 191) (DEFCONSTANT SDLK_WORLD_30 190) (DEFCONSTANT SDLK_WORLD_29 189) (DEFCONSTANT SDLK_WORLD_28 188) (DEFCONSTANT SDLK_WORLD_27 187) (DEFCONSTANT SDLK_WORLD_26 186) (DEFCONSTANT SDLK_WORLD_25 185) (DEFCONSTANT SDLK_WORLD_24 184) (DEFCONSTANT SDLK_WORLD_23 183) (DEFCONSTANT SDLK_WORLD_22 182) (DEFCONSTANT SDLK_WORLD_21 181) (DEFCONSTANT SDLK_WORLD_20 180) (DEFCONSTANT SDLK_WORLD_19 179) (DEFCONSTANT SDLK_WORLD_18 178) (DEFCONSTANT SDLK_WORLD_17 177) (DEFCONSTANT SDLK_WORLD_16 176) (DEFCONSTANT SDLK_WORLD_15 175) (DEFCONSTANT SDLK_WORLD_14 174) (DEFCONSTANT SDLK_WORLD_13 173) (DEFCONSTANT SDLK_WORLD_12 172) (DEFCONSTANT SDLK_WORLD_11 171) (DEFCONSTANT SDLK_WORLD_10 170) (DEFCONSTANT SDLK_WORLD_9 169) (DEFCONSTANT SDLK_WORLD_8 168) (DEFCONSTANT SDLK_WORLD_7 167) (DEFCONSTANT SDLK_WORLD_6 166) (DEFCONSTANT SDLK_WORLD_5 165) (DEFCONSTANT SDLK_WORLD_4 164) (DEFCONSTANT SDLK_WORLD_3 163) (DEFCONSTANT SDLK_WORLD_2 162) (DEFCONSTANT SDLK_WORLD_1 161) (DEFCONSTANT SDLK_WORLD_0 160) (DEFCONSTANT SDLK_DELETE 127) (DEFCONSTANT SDLK_Z 122) (DEFCONSTANT SDLK_Y 121) (DEFCONSTANT SDLK_X 120) (DEFCONSTANT SDLK_W 119) (DEFCONSTANT SDLK_V 118) (DEFCONSTANT SDLK_U 117) (DEFCONSTANT SDLK_T 116) (DEFCONSTANT SDLK_S 115) (DEFCONSTANT SDLK_R 114) (DEFCONSTANT SDLK_Q 113) (DEFCONSTANT SDLK_P 112) (DEFCONSTANT SDLK_O 111) (DEFCONSTANT SDLK_N 110) (DEFCONSTANT SDLK_M 109) (DEFCONSTANT SDLK_L 108) (DEFCONSTANT SDLK_K 107) (DEFCONSTANT SDLK_J 106) (DEFCONSTANT SDLK_I 105) (DEFCONSTANT SDLK_H 104) (DEFCONSTANT SDLK_G 103) (DEFCONSTANT SDLK_F 102) (DEFCONSTANT SDLK_E 101) (DEFCONSTANT SDLK_D 100) (DEFCONSTANT SDLK_C 99) (DEFCONSTANT SDLK_B 98) (DEFCONSTANT SDLK_A 97) (DEFCONSTANT SDLK_BACKQUOTE 96) (DEFCONSTANT SDLK_UNDERSCORE 95) (DEFCONSTANT SDLK_CARET 94) (DEFCONSTANT SDLK_RIGHTBRACKET 93) (DEFCONSTANT SDLK_BACKSLASH 92) (DEFCONSTANT SDLK_LEFTBRACKET 91) (DEFCONSTANT SDLK_AT 64) (DEFCONSTANT SDLK_QUESTION 63) (DEFCONSTANT SDLK_GREATER 62) (DEFCONSTANT SDLK_EQUALS 61) (DEFCONSTANT SDLK_LESS 60) (DEFCONSTANT SDLK_SEMICOLON 59) (DEFCONSTANT SDLK_COLON 58) (DEFCONSTANT SDLK_9 57) (DEFCONSTANT SDLK_8 56) (DEFCONSTANT SDLK_7 55) (DEFCONSTANT SDLK_6 54) (DEFCONSTANT SDLK_5 53) (DEFCONSTANT SDLK_4 52) (DEFCONSTANT SDLK_3 51) (DEFCONSTANT SDLK_2 50) (DEFCONSTANT SDLK_1 49) (DEFCONSTANT SDLK_0 48) (DEFCONSTANT SDLK_SLASH 47) (DEFCONSTANT SDLK_PERIOD 46) (DEFCONSTANT SDLK_MINUS 45) (DEFCONSTANT SDLK_COMMA 44) (DEFCONSTANT SDLK_PLUS 43) (DEFCONSTANT SDLK_ASTERISK 42) (DEFCONSTANT SDLK_RIGHTPAREN 41) (DEFCONSTANT SDLK_LEFTPAREN 40) (DEFCONSTANT SDLK_QUOTE 39) (DEFCONSTANT SDLK_AMPERSAND 38) (DEFCONSTANT SDLK_DOLLAR 36) (DEFCONSTANT SDLK_HASH 35) (DEFCONSTANT SDLK_QUOTEDBL 34) (DEFCONSTANT SDLK_EXCLAIM 33) (DEFCONSTANT SDLK_SPACE 32) (DEFCONSTANT SDLK_ESCAPE 27) (DEFCONSTANT SDLK_PAUSE 19) (DEFCONSTANT SDLK_RETURN 13) (DEFCONSTANT SDLK_CLEAR 12) (DEFCONSTANT SDLK_TAB 9) (DEFCONSTANT SDLK_BACKSPACE 8) (DEFCONSTANT SDLK_FIRST 0) (DEFCONSTANT SDLK_UNKNOWN 0) (C-TYPES:DEFCTYPE SDLMOD :LONG) (DEFCONSTANT KMOD_RESERVED 32768) (DEFCONSTANT KMOD_MODE 16384) (DEFCONSTANT KMOD_CAPS 8192) (DEFCONSTANT KMOD_NUM 4096) (DEFCONSTANT KMOD_RMETA 2048) (DEFCONSTANT KMOD_LMETA 1024) (DEFCONSTANT KMOD_RALT 512) (DEFCONSTANT KMOD_LALT 256) (DEFCONSTANT KMOD_RCTRL 128) (DEFCONSTANT KMOD_LCTRL 64) (DEFCONSTANT KMOD_RSHIFT 2) (DEFCONSTANT KMOD_LSHIFT 1) (DEFCONSTANT KMOD_NONE 0) (DEFCONSTANT KMOD_CTRL (LOGIOR KMOD_LCTRL KMOD_RCTRL)) (DEFCONSTANT KMOD_SHIFT (LOGIOR KMOD_LSHIFT KMOD_RSHIFT)) (DEFCONSTANT KMOD_ALT (LOGIOR KMOD_LALT KMOD_RALT)) (DEFCONSTANT KMOD_META (LOGIOR KMOD_LMETA KMOD_RMETA))) -(PROGN (EXPORT '(SDL_KEYSYM SDL_ALL_HOTKEYS)) (C-TYPES:DEFCSTRUCT SDL_KEYSYM ((SCANCODE UINT8) (#:G7422 (:CHAR 3)) (SYM SDLKEY) (MOD SDLMOD) (UNICODE UINT16))) (DEFCONSTANT SDL_ALL_HOTKEYS 4294967295)) +(PROGN (EXPORT '(SDL_KEYSYM SDL_ALL_HOTKEYS)) (C-TYPES:DEFCSTRUCT SDL_KEYSYM ((SCANCODE UINT8) (#:G7828 (:CHAR 3)) (SYM SDLKEY) (MOD SDLMOD) (UNICODE UINT16))) (DEFCONSTANT SDL_ALL_HOTKEYS 4294967295)) (PROGN (EXPORT '(SDL_ENABLEUNICODE)) (C-TYPES:DEFUN-DLL SDL_ENABLEUNICODE ((ENABLE :LONG)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_EnableUNICODE" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDL_DEFAULT_REPEAT_DELAY SDL_DEFAULT_REPEAT_INTERVAL)) (DEFCONSTANT SDL_DEFAULT_REPEAT_DELAY 500) (DEFCONSTANT SDL_DEFAULT_REPEAT_INTERVAL 30)) (PROGN (EXPORT '(SDL_ENABLEKEYREPEAT SDL_GETKEYSTATE SDL_GETMODSTATE SDL_SETMODSTATE SDL_GETKEYNAME)) (C-TYPES:DEFUN-DLL SDL_ENABLEKEYREPEAT ((DELAY :LONG) (INTERVAL :LONG)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_EnableKeyRepeat" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_GETKEYSTATE ((NUMKEYS (:LONG *))) :RETURN-TYPE (UINT8 *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetKeyState" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_GETMODSTATE NIL :RETURN-TYPE SDLMOD :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetModState" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_SETMODSTATE ((MODSTATE SDLMOD)) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_SetModState" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_GETKEYNAME ((KEY SDLKEY)) :RETURN-TYPE (:CHAR *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetKeyName" :LINKAGE-TYPE :C)) @@ -78,8 +78,8 @@ (PROGN (EXPORT '(SDL_JOYSTICKGETHAT SDL_JOYSTICKGETBALL SDL_JOYSTICKGETBUTTON SDL_JOYSTICKCLOSE)) (C-TYPES:DEFUN-DLL SDL_JOYSTICKGETHAT ((JOYSTICK (SDL_JOYSTICK *)) (HAT :LONG)) :RETURN-TYPE UINT8 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_JoystickGetHat" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_JOYSTICKGETBALL ((JOYSTICK (SDL_JOYSTICK *)) (BALL :LONG) (DX (:LONG *)) (DY (:LONG *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_JoystickGetBall" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_JOYSTICKGETBUTTON ((JOYSTICK (SDL_JOYSTICK *)) (BUTTON :LONG)) :RETURN-TYPE UINT8 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_JoystickGetButton" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_JOYSTICKCLOSE ((JOYSTICK (SDL_JOYSTICK *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_JoystickClose" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDL_NOEVENT SDL_ACTIVEEVENT SDL_KEYDOWN SDL_KEYUP SDL_MOUSEMOTION SDL_MOUSEBUTTONDOWN SDL_MOUSEBUTTONUP SDL_JOYAXISMOTION SDL_JOYBALLMOTION SDL_JOYHATMOTION SDL_JOYBUTTONDOWN SDL_JOYBUTTONUP SDL_QUIT SDL_SYSWMEVENT SDL_EVENT_RESERVEDA SDL_EVENT_RESERVEDB SDL_VIDEORESIZE SDL_VIDEOEXPOSE SDL_EVENT_RESERVED2 SDL_EVENT_RESERVED3 SDL_EVENT_RESERVED4 SDL_EVENT_RESERVED5 SDL_EVENT_RESERVED6 SDL_EVENT_RESERVED7 SDL_USEREVENT SDL_NUMEVENTS)) (DEFCONSTANT SDL_NUMEVENTS 32) (DEFCONSTANT SDL_USEREVENT 24) (DEFCONSTANT SDL_EVENT_RESERVED7 23) (DEFCONSTANT SDL_EVENT_RESERVED6 22) (DEFCONSTANT SDL_EVENT_RESERVED5 21) (DEFCONSTANT SDL_EVENT_RESERVED4 20) (DEFCONSTANT SDL_EVENT_RESERVED3 19) (DEFCONSTANT SDL_EVENT_RESERVED2 18) (DEFCONSTANT SDL_VIDEOEXPOSE 17) (DEFCONSTANT SDL_VIDEORESIZE 16) (DEFCONSTANT SDL_EVENT_RESERVEDB 15) (DEFCONSTANT SDL_EVENT_RESERVEDA 14) (DEFCONSTANT SDL_SYSWMEVENT 13) (DEFCONSTANT SDL_QUIT 12) (DEFCONSTANT SDL_JOYBUTTONUP 11) (DEFCONSTANT SDL_JOYBUTTONDOWN 10) (DEFCONSTANT SDL_JOYHATMOTION 9) (DEFCONSTANT SDL_JOYBALLMOTION 8) (DEFCONSTANT SDL_JOYAXISMOTION 7) (DEFCONSTANT SDL_MOUSEBUTTONUP 6) (DEFCONSTANT SDL_MOUSEBUTTONDOWN 5) (DEFCONSTANT SDL_MOUSEMOTION 4) (DEFCONSTANT SDL_KEYUP 3) (DEFCONSTANT SDL_KEYDOWN 2) (DEFCONSTANT SDL_ACTIVEEVENT 1) (DEFCONSTANT SDL_NOEVENT 0)) (PROGN (PROGN (EXPORT 'SDL_EVENTMASK) (DEFUN SDL_EVENTMASK (X) (ASH 1 X)))) -(PROGN (EXPORT '(SDL_ALLEVENTS SDL_ACTIVEEVENT SDL_KEYBOARDEVENT SDL_MOUSEMOTIONEVENT SDL_MOUSEBUTTONEVENT SDL_JOYAXISEVENT SDL_JOYBALLEVENT SDL_JOYHATEVENT SDL_JOYBUTTONEVENT SDL_RESIZEEVENT SDL_EXPOSEEVENT SDL_QUITEVENT SDL_USEREVENT SDL_SYSWMMSG SDL_SYSWMEVENT)) (PROGN (EXPORT 'SDL_ACTIVEEVENTMASK) (DEFUN SDL_ACTIVEEVENTMASK NIL (SDL_EVENTMASK SDL_ACTIVEEVENT))) (PROGN (EXPORT 'SDL_KEYDOWNMASK) (DEFUN SDL_KEYDOWNMASK NIL (SDL_EVENTMASK SDL_KEYDOWN))) (PROGN (EXPORT 'SDL_KEYUPMASK) (DEFUN SDL_KEYUPMASK NIL (SDL_EVENTMASK SDL_KEYUP))) (PROGN (EXPORT 'SDL_MOUSEMOTIONMASK) (DEFUN SDL_MOUSEMOTIONMASK NIL (SDL_EVENTMASK SDL_MOUSEMOTION))) (PROGN (EXPORT 'SDL_MOUSEBUTTONDOWNMASK) (DEFUN SDL_MOUSEBUTTONDOWNMASK NIL (SDL_EVENTMASK SDL_MOUSEBUTTONDOWN))) (PROGN (EXPORT 'SDL_MOUSEBUTTONUPMASK) (DEFUN SDL_MOUSEBUTTONUPMASK NIL (SDL_EVENTMASK SDL_MOUSEBUTTONUP))) (PROGN (EXPORT 'SDL_MOUSEEVENTMASK) (DEFUN SDL_MOUSEEVENTMASK NIL (LOGIOR (SDL_EVENTMASK SDL_MOUSEMOTION) (SDL_EVENTMASK SDL_MOUSEBUTTONDOWN) (SDL_EVENTMASK SDL_MOUSEBUTTONUP)))) (PROGN (EXPORT 'SDL_JOYAXISMOTIONMASK) (DEFUN SDL_JOYAXISMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYAXISMOTION))) (PROGN (EXPORT 'SDL_JOYBALLMOTIONMASK) (DEFUN SDL_JOYBALLMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYBALLMOTION))) (PROGN (EXPORT 'SDL_JOYHATMOTIONMASK) (DEFUN SDL_JOYHATMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYHATMOTION))) (PROGN (EXPORT 'SDL_JOYBUTTONDOWNMASK) (DEFUN SDL_JOYBUTTONDOWNMASK NIL (SDL_EVENTMASK SDL_JOYBUTTONDOWN))) (PROGN (EXPORT 'SDL_JOYBUTTONUPMASK) (DEFUN SDL_JOYBUTTONUPMASK NIL (SDL_EVENTMASK SDL_JOYBUTTONUP))) (PROGN (EXPORT 'SDL_JOYEVENTMASK) (DEFUN SDL_JOYEVENTMASK NIL (LOGIOR (SDL_EVENTMASK SDL_JOYAXISMOTION) (SDL_EVENTMASK SDL_JOYBALLMOTION) (SDL_EVENTMASK SDL_JOYHATMOTION) (SDL_EVENTMASK SDL_JOYBUTTONDOWN) (SDL_EVENTMASK SDL_JOYBUTTONUP)))) (PROGN (EXPORT 'SDL_VIDEORESIZEMASK) (DEFUN SDL_VIDEORESIZEMASK NIL (SDL_EVENTMASK SDL_VIDEORESIZE))) (PROGN (EXPORT 'SDL_VIDEOEXPOSEMASK) (DEFUN SDL_VIDEOEXPOSEMASK NIL (SDL_EVENTMASK SDL_VIDEOEXPOSE))) (PROGN (EXPORT 'SDL_QUITMASK) (DEFUN SDL_QUITMASK NIL (SDL_EVENTMASK SDL_QUIT))) (PROGN (EXPORT 'SDL_SYSWMEVENTMASK) (DEFUN SDL_SYSWMEVENTMASK NIL (SDL_EVENTMASK SDL_SYSWMEVENT))) (DEFCONSTANT SDL_ALLEVENTS 4294967295) (C-TYPES:DEFCSTRUCT SDL_ACTIVEEVENT ((TYPE UINT8) (GAIN UINT8) (STATE UINT8))) (C-TYPES:DEFCSTRUCT SDL_KEYBOARDEVENT ((TYPE UINT8) (WHICH UINT8) (STATE UINT8) (#:G7423 (:CHAR 1)) (KEYSYM SDL_KEYSYM))) (C-TYPES:DEFCSTRUCT SDL_MOUSEMOTIONEVENT ((TYPE UINT8) (WHICH UINT8) (STATE UINT8) (#:G7424 (:CHAR 1)) (X UINT16) (Y UINT16) (XREL SINT16) (YREL SINT16))) (C-TYPES:DEFCSTRUCT SDL_MOUSEBUTTONEVENT ((TYPE UINT8) (WHICH UINT8) (BUTTON UINT8) (STATE UINT8) (X UINT16) (Y UINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYAXISEVENT ((TYPE UINT8) (WHICH UINT8) (AXIS UINT8) (#:G7425 (:CHAR 1)) (VALUE SINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYBALLEVENT ((TYPE UINT8) (WHICH UINT8) (BALL UINT8) (#:G7426 (:CHAR 1)) (XREL SINT16) (YREL SINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYHATEVENT ((TYPE UINT8) (WHICH UINT8) (HAT UINT8) (VALUE UINT8))) (C-TYPES:DEFCSTRUCT SDL_JOYBUTTONEVENT ((TYPE UINT8) (WHICH UINT8) (BUTTON UINT8) (STATE UINT8))) (C-TYPES:DEFCSTRUCT SDL_RESIZEEVENT ((TYPE UINT8) (#:G7427 (:CHAR 3)) (W :LONG) (H :LONG))) (C-TYPES:DEFCSTRUCT SDL_EXPOSEEVENT ((TYPE UINT8))) (C-TYPES:DEFCSTRUCT SDL_QUITEVENT ((TYPE UINT8))) (C-TYPES:DEFCSTRUCT SDL_USEREVENT ((TYPE UINT8) (#:G7428 (:CHAR 3)) (CODE :LONG) (DATA1 (:VOID *)) (DATA2 (:VOID *)))) (C-TYPES:DEFCSTRUCT SDL_SYSWMMSG NIL) (C-TYPES:DEFCSTRUCT SDL_SYSWMEVENT ((TYPE UINT8) (#:G7429 (:CHAR 3)) (MSG (SDL_SYSWMMSG *))))) -(PROGN (EXPORT '(SDL_EVENT)) (C-TYPES:DEFCSTRUCT SDL_EVENT ((TYPE UINT8) (#:G7430 (:CHAR 3)) (BUFFER (UINT8 1023))))) +(PROGN (EXPORT '(SDL_ALLEVENTS SDL_ACTIVEEVENT SDL_KEYBOARDEVENT SDL_MOUSEMOTIONEVENT SDL_MOUSEBUTTONEVENT SDL_JOYAXISEVENT SDL_JOYBALLEVENT SDL_JOYHATEVENT SDL_JOYBUTTONEVENT SDL_RESIZEEVENT SDL_EXPOSEEVENT SDL_QUITEVENT SDL_USEREVENT SDL_SYSWMMSG SDL_SYSWMEVENT)) (PROGN (EXPORT 'SDL_ACTIVEEVENTMASK) (DEFUN SDL_ACTIVEEVENTMASK NIL (SDL_EVENTMASK SDL_ACTIVEEVENT))) (PROGN (EXPORT 'SDL_KEYDOWNMASK) (DEFUN SDL_KEYDOWNMASK NIL (SDL_EVENTMASK SDL_KEYDOWN))) (PROGN (EXPORT 'SDL_KEYUPMASK) (DEFUN SDL_KEYUPMASK NIL (SDL_EVENTMASK SDL_KEYUP))) (PROGN (EXPORT 'SDL_MOUSEMOTIONMASK) (DEFUN SDL_MOUSEMOTIONMASK NIL (SDL_EVENTMASK SDL_MOUSEMOTION))) (PROGN (EXPORT 'SDL_MOUSEBUTTONDOWNMASK) (DEFUN SDL_MOUSEBUTTONDOWNMASK NIL (SDL_EVENTMASK SDL_MOUSEBUTTONDOWN))) (PROGN (EXPORT 'SDL_MOUSEBUTTONUPMASK) (DEFUN SDL_MOUSEBUTTONUPMASK NIL (SDL_EVENTMASK SDL_MOUSEBUTTONUP))) (PROGN (EXPORT 'SDL_MOUSEEVENTMASK) (DEFUN SDL_MOUSEEVENTMASK NIL (LOGIOR (SDL_EVENTMASK SDL_MOUSEMOTION) (SDL_EVENTMASK SDL_MOUSEBUTTONDOWN) (SDL_EVENTMASK SDL_MOUSEBUTTONUP)))) (PROGN (EXPORT 'SDL_JOYAXISMOTIONMASK) (DEFUN SDL_JOYAXISMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYAXISMOTION))) (PROGN (EXPORT 'SDL_JOYBALLMOTIONMASK) (DEFUN SDL_JOYBALLMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYBALLMOTION))) (PROGN (EXPORT 'SDL_JOYHATMOTIONMASK) (DEFUN SDL_JOYHATMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYHATMOTION))) (PROGN (EXPORT 'SDL_JOYBUTTONDOWNMASK) (DEFUN SDL_JOYBUTTONDOWNMASK NIL (SDL_EVENTMASK SDL_JOYBUTTONDOWN))) (PROGN (EXPORT 'SDL_JOYBUTTONUPMASK) (DEFUN SDL_JOYBUTTONUPMASK NIL (SDL_EVENTMASK SDL_JOYBUTTONUP))) (PROGN (EXPORT 'SDL_JOYEVENTMASK) (DEFUN SDL_JOYEVENTMASK NIL (LOGIOR (SDL_EVENTMASK SDL_JOYAXISMOTION) (SDL_EVENTMASK SDL_JOYBALLMOTION) (SDL_EVENTMASK SDL_JOYHATMOTION) (SDL_EVENTMASK SDL_JOYBUTTONDOWN) (SDL_EVENTMASK SDL_JOYBUTTONUP)))) (PROGN (EXPORT 'SDL_VIDEORESIZEMASK) (DEFUN SDL_VIDEORESIZEMASK NIL (SDL_EVENTMASK SDL_VIDEORESIZE))) (PROGN (EXPORT 'SDL_VIDEOEXPOSEMASK) (DEFUN SDL_VIDEOEXPOSEMASK NIL (SDL_EVENTMASK SDL_VIDEOEXPOSE))) (PROGN (EXPORT 'SDL_QUITMASK) (DEFUN SDL_QUITMASK NIL (SDL_EVENTMASK SDL_QUIT))) (PROGN (EXPORT 'SDL_SYSWMEVENTMASK) (DEFUN SDL_SYSWMEVENTMASK NIL (SDL_EVENTMASK SDL_SYSWMEVENT))) (DEFCONSTANT SDL_ALLEVENTS 4294967295) (C-TYPES:DEFCSTRUCT SDL_ACTIVEEVENT ((TYPE UINT8) (GAIN UINT8) (STATE UINT8))) (C-TYPES:DEFCSTRUCT SDL_KEYBOARDEVENT ((TYPE UINT8) (WHICH UINT8) (STATE UINT8) (#:G7829 (:CHAR 1)) (KEYSYM SDL_KEYSYM))) (C-TYPES:DEFCSTRUCT SDL_MOUSEMOTIONEVENT ((TYPE UINT8) (WHICH UINT8) (STATE UINT8) (#:G7830 (:CHAR 1)) (X UINT16) (Y UINT16) (XREL SINT16) (YREL SINT16))) (C-TYPES:DEFCSTRUCT SDL_MOUSEBUTTONEVENT ((TYPE UINT8) (WHICH UINT8) (BUTTON UINT8) (STATE UINT8) (X UINT16) (Y UINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYAXISEVENT ((TYPE UINT8) (WHICH UINT8) (AXIS UINT8) (#:G7831 (:CHAR 1)) (VALUE SINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYBALLEVENT ((TYPE UINT8) (WHICH UINT8) (BALL UINT8) (#:G7832 (:CHAR 1)) (XREL SINT16) (YREL SINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYHATEVENT ((TYPE UINT8) (WHICH UINT8) (HAT UINT8) (VALUE UINT8))) (C-TYPES:DEFCSTRUCT SDL_JOYBUTTONEVENT ((TYPE UINT8) (WHICH UINT8) (BUTTON UINT8) (STATE UINT8))) (C-TYPES:DEFCSTRUCT SDL_RESIZEEVENT ((TYPE UINT8) (#:G7833 (:CHAR 3)) (W :LONG) (H :LONG))) (C-TYPES:DEFCSTRUCT SDL_EXPOSEEVENT ((TYPE UINT8))) (C-TYPES:DEFCSTRUCT SDL_QUITEVENT ((TYPE UINT8))) (C-TYPES:DEFCSTRUCT SDL_USEREVENT ((TYPE UINT8) (#:G7834 (:CHAR 3)) (CODE :LONG) (DATA1 (:VOID *)) (DATA2 (:VOID *)))) (C-TYPES:DEFCSTRUCT SDL_SYSWMMSG NIL) (C-TYPES:DEFCSTRUCT SDL_SYSWMEVENT ((TYPE UINT8) (#:G7835 (:CHAR 3)) (MSG (SDL_SYSWMMSG *))))) +(PROGN (EXPORT '(SDL_EVENT)) (C-TYPES:DEFCSTRUCT SDL_EVENT ((TYPE UINT8) (#:G7836 (:CHAR 3)) (BUFFER (UINT8 1023))))) (PROGN (EXPORT '(SDL_PUMPEVENTS)) (C-TYPES:DEFUN-DLL SDL_PUMPEVENTS NIL :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_PumpEvents" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDL_ADDEVENT SDL_PEEKEVENT SDL_GETEVENT SDL_EVENTACTION)) (C-TYPES:DEFCTYPE SDL_EVENTACTION :LONG) (DEFCONSTANT SDL_GETEVENT 2) (DEFCONSTANT SDL_PEEKEVENT 1) (DEFCONSTANT SDL_ADDEVENT 0)) (PROGN (EXPORT '(SDL_PEEPEVENTS SDL_POLLEVENT SDL_WAITEVENT SDL_PUSHEVENT)) (C-TYPES:DEFUN-DLL SDL_PEEPEVENTS ((EVENTS (SDL_EVENT *)) (NUMEVENTS :LONG) (ACTION SDL_EVENTACTION) (MASK UINT32)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_PeepEvents" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_POLLEVENT ((EVENT (SDL_EVENT *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_PollEvent" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_WAITEVENT ((EVENT (SDL_EVENT *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_WaitEvent" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_PUSHEVENT ((EVENT (SDL_EVENT *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_PushEvent" :LINKAGE-TYPE :C)) @@ -116,4 +116,4 @@ (PROGN (EXPORT '(SDL_MIX_MAXVOLUME)) (DEFCONSTANT SDL_MIX_MAXVOLUME 128)) (PROGN (EXPORT '(SDL_MIXAUDIO SDL_LOCKAUDIO SDL_UNLOCKAUDIO SDL_CLOSEAUDIO)) (C-TYPES:DEFUN-DLL SDL_MIXAUDIO ((DST (UINT8 *)) (SRC (UINT8 *)) (LEN UINT32) (VOLUME :LONG)) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_MixAudio" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_LOCKAUDIO NIL :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_LockAudio" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_UNLOCKAUDIO NIL :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_UnlockAudio" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CLOSEAUDIO NIL :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CloseAudio" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDL_LOADOBJECT SDL_LOADFUNCTION SDL_UNLOADOBJECT)) (C-TYPES:DEFUN-DLL SDL_LOADOBJECT ((SOFILE (:CHAR *))) :RETURN-TYPE (:VOID *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_LoadObject" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_LOADFUNCTION ((HANDLE (:VOID *)) (NAME (:CHAR *))) :RETURN-TYPE (:VOID *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_LoadFunction" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_UNLOADOBJECT ((HANDLE (:VOID *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_UnloadObject" :LINKAGE-TYPE :C)) -(PROVIDE :SDL) +(PROVIDE :SDL) \ No newline at end of file

1 0

[corman-sdl-cvs] CVS update: corman-sdl/README corman-sdl/INSTALLATION
by Luke J Crook 09 Jun '04

09 Jun '04

Update of /project/corman-sdl/cvsroot/corman-sdl In directory common-lisp.net:/tmp/cvs-serv25821 Modified Files: INSTALLATION Added Files: README Log Message: Date: Wed Jun 9 02:09:43 2004 Author: lcrook Index: corman-sdl/INSTALLATION diff -u corman-sdl/INSTALLATION:1.1 corman-sdl/INSTALLATION:1.2 --- corman-sdl/INSTALLATION:1.1 Tue Apr 13 12:40:14 2004 +++ corman-sdl/INSTALLATION Wed Jun 9 02:09:43 2004 @@ -1,23 +1,43 @@ Copyright (c) 2003-2004 Luke J Crook All rights reserved. +(Last Updated: 2004-06-09) + +Note: As per the requirements of the LGPL, the source code for the versions of SDL.dll and SDL_mixer.dll +included in the Corman-SDL archive can be found here: http://www.balooga.com/gpl_lgpl/ Installation Instructions -If you only wish to run a pre-compiled executable: +Running the examples: + +1) Download the pre-compiled examples from www.balooga.com/lisp_sdl.php3 +2) Extract the zipfile into a new directory, for example "My Documents\dev\corman-sdl" +3) Run an example + +If you wish to develop using the SDL FFI definitions: + +1) Download and install Corman Common Lisp from www.cormanlisp.com +2) Download the latest version of the Corman-SDL FFI bindings from www.balooga.com/lisp_sdl.php3 +3) Extract the zipfile containing the Corman-SDL bindings into a new directory, for example: + + My Documents\dev\corman-sdl + +The "corman-sdl\" directory should contain three subdirectories: + + corman-sdl\examples\ + corman-sdl\Modules\ + corman-sdl\source\ + +4) Copy the files in the "corman-sdl\Modules\" directory into the "Modules\" directory of the Corman Lisp installation, +for example: + + "C:\Program Files\Corman Technologies\Corman Lisp 2.5\Modules" + +5) Move SDL.dll (from www.libsdl.org) and SDL_mixer (from www.libsdl.org/projects/SDL_mixer/) into the base Corman Lisp directory, +for example: + + "C:\Program Files\Corman Technologies\Corman Lisp 2.5" -1) Download a pre-compiled example from www.balooga.com/lisp_sdl.php3 -2) Extract the zip file into a new directory -3) Download sdl.dll from www.libsdl.org and place this into the same directory as the executable (.exe) -4) Run the executable. - -If you wish to develop using the SDL FFI definitions - -1) Download the latest version of the SDL FFI bindings from either CVS at common-lisp.net/cgi-bin/viewcvs.cgi/?cvsroot=corman-sdl or the latest release from www.balooga.com/lisp_sdl.php3 -2) Extract the archive into a new directory. -3) Download and install Corman Common Lisp from www.cormanlisp.com -4) Download SDL.dll from www.libsdl.org and place into your Windows\System directory OR your base Corman Lisp directory. -5) Place the files "OpenGL_.lisp", "SDL.lisp" and "sdl-util.lisp" into the Modules\ directory of your Corman Lisp installation -6) Compile and run the examples +6) Load an example from from the directory, "corman-sdl\examples\" into the Corman Lisp IDE. -Questions: Luke J Crook, luke(a)balooga.com \ No newline at end of file +Questions: Luke J Crook, luke(a)balooga.com

1 0

[corman-sdl-cvs] CVS update: corman-sdl/ffi/SDL.lisp
by Luke J Crook 04 Jun '04

04 Jun '04

Update of /project/corman-sdl/cvsroot/corman-sdl/ffi In directory common-lisp.net:/tmp/cvs-serv13187/ffi Modified Files: SDL.lisp Log Message: Date: Fri Jun 4 07:25:44 2004 Author: lcrook Index: corman-sdl/ffi/SDL.lisp diff -u corman-sdl/ffi/SDL.lisp:1.3 corman-sdl/ffi/SDL.lisp:1.4 --- corman-sdl/ffi/SDL.lisp:1.3 Fri Jun 4 06:58:14 2004 +++ corman-sdl/ffi/SDL.lisp Fri Jun 4 07:25:44 2004 @@ -16,8 +16,8 @@ (PROGN (EXPORT '(UINT)) (C-TYPES:DEFCTYPE UINT :UNSIGNED-LONG)) (PROGN (EXPORT '(HWND WPARAM LPARAM HGLRC)) (C-TYPES:DEFCTYPE HWND :HANDLE) (C-TYPES:DEFCTYPE WPARAM UINT) (C-TYPES:DEFCTYPE LPARAM :UNSIGNED-LONG) (C-TYPES:DEFCTYPE HGLRC :HANDLE)) (PROGN (EXPORT '(SDL_SYSWMINFO)) (C-TYPES:DEFCSTRUCT SDL_SYSWMINFO NIL)) -(PROGN (EXPORT '(SDL_SYSWMMSG)) (C-TYPES:DEFCSTRUCT SDL_SYSWMMSG ((VERSION SDL_VERSION) (#:G7828 (:CHAR 1)) (HWND HWND) (MSG UINT) (WPARAM WPARAM) (LPARAM LPARAM)))) -(PROGN (EXPORT '(SDL_SYSWMINFO)) (C-TYPES:DEFCSTRUCT SDL_SYSWMINFO ((VERSION SDL_VERSION) (#:G7829 (:CHAR 1)) (WINDOW HWND) (HGLRC HGLRC)))) +(PROGN (EXPORT '(SDL_SYSWMMSG)) (C-TYPES:DEFCSTRUCT SDL_SYSWMMSG ((VERSION SDL_VERSION) (#:G7418 (:CHAR 1)) (HWND HWND) (MSG UINT) (WPARAM WPARAM) (LPARAM LPARAM)))) +(PROGN (EXPORT '(SDL_SYSWMINFO)) (C-TYPES:DEFCSTRUCT SDL_SYSWMINFO ((VERSION SDL_VERSION) (#:G7419 (:CHAR 1)) (WINDOW HWND) (HGLRC HGLRC)))) (PROGN (EXPORT '(SDL_GETWMINFO)) (C-TYPES:DEFUN-DLL SDL_GETWMINFO ((INFO (SDL_SYSWMINFO *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetWMInfo" :LINKAGE-TYPE :C)) (PROGN) (PROGN (EXPORT '(SDL_RWOPS SDL_RWOPS_STDIO SDL_RWOPS_MEM SDL_RWOPS_UNKNOWN)) (C-TYPES:DEFCSTRUCT SDL_RWOPS ((SEEK (:VOID *)) (READ (:VOID *)) (WRITE (:VOID *)) (CLOSE (:VOID *)) (TYPE UINT32) (BUFFER (UINT32 4)))) (C-TYPES:DEFCSTRUCT SDL_RWOPS_STDIO ((SEEK (:VOID *)) (READ (:VOID *)) (WRITE (:VOID *)) (CLOSE (:VOID *)) (TYPE UINT32) (AUTOCLOSE :LONG) (FP (:VOID *)))) (C-TYPES:DEFCSTRUCT SDL_RWOPS_MEM ((SEEK (:VOID *)) (READ (:VOID *)) (WRITE (:VOID *)) (CLOSE (:VOID *)) (TYPE UINT32))) (C-TYPES:DEFCSTRUCT SDL_RWOPS_UNKNOWN ((SEEK (:VOID *)) (READ (:VOID *)) (WRITE (:VOID *)) (CLOSE (:VOID *)) (TYPE UINT32) (DATA1 (:VOID *))))) @@ -42,11 +42,11 @@ (PROGN (EXPORT '(THREADFN)) (C-TYPES:DEFCTYPE THREADFN (:VOID *))) (PROGN (EXPORT '(SDL_CREATETHREAD SDL_THREADID SDL_GETTHREADID SDL_WAITTHREAD SDL_KILLTHREAD)) (C-TYPES:DEFUN-DLL SDL_CREATETHREAD ((FN THREADFN) (DATA (:VOID *))) :RETURN-TYPE (SDL_THREAD *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CreateThread" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_THREADID NIL :RETURN-TYPE UINT32 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_ThreadID" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_GETTHREADID ((THREAD (SDL_THREAD *))) :RETURN-TYPE UINT32 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetThreadID" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_WAITTHREAD ((THREAD (SDL_THREAD *)) (STATUS (:LONG *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_WaitThread" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_KILLTHREAD ((THREAD (SDL_THREAD *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_KillThread" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDL_ALPHA_OPAQUE SDL_ALPHA_TRANSPARENT)) (DEFCONSTANT SDL_ALPHA_OPAQUE 255) (DEFCONSTANT SDL_ALPHA_TRANSPARENT 0)) -(PROGN (EXPORT '(SDL_RECT SDL_COLOR SDL_COLOUR SDL_PALETTE SDL_PIXELFORMAT)) (C-TYPES:DEFCSTRUCT SDL_RECT ((X SINT16) (Y SINT16) (W UINT16) (H UINT16))) (C-TYPES:DEFCSTRUCT SDL_COLOR ((R UINT8) (G UINT8) (B UINT8) (UNUSED UINT8))) (C-TYPES:DEFCSTRUCT SDL_COLOUR ((R UINT8) (G UINT8) (B UINT8) (UNUSED UINT8))) (C-TYPES:DEFCSTRUCT SDL_PALETTE ((NCOLORS :LONG) (COLORS (SDL_COLOR *)))) (C-TYPES:DEFCSTRUCT SDL_PIXELFORMAT ((PALETTE (SDL_PALETTE *)) (BITSPERPIXEL UINT8) (BYTESPERPIXEL UINT8) (RLOSS UINT8) (GLOSS UINT8) (BLOSS UINT8) (ALOSS UINT8) (RSHIFT UINT8) (GSHIFT UINT8) (BSHIFT UINT8) (ASHIFT UINT8) (#:G7830 (:CHAR 2)) (RMASK UINT32) (GMASK UINT32) (BMASK UINT32) (AMASK UINT32) (COLORKEY UINT32) (ALPHA UINT8)))) +(PROGN (EXPORT '(SDL_RECT SDL_COLOR SDL_COLOUR SDL_PALETTE SDL_PIXELFORMAT)) (C-TYPES:DEFCSTRUCT SDL_RECT ((X SINT16) (Y SINT16) (W UINT16) (H UINT16))) (C-TYPES:DEFCSTRUCT SDL_COLOR ((R UINT8) (G UINT8) (B UINT8) (UNUSED UINT8))) (C-TYPES:DEFCSTRUCT SDL_COLOUR ((R UINT8) (G UINT8) (B UINT8) (UNUSED UINT8))) (C-TYPES:DEFCSTRUCT SDL_PALETTE ((NCOLORS :LONG) (COLORS (SDL_COLOR *)))) (C-TYPES:DEFCSTRUCT SDL_PIXELFORMAT ((PALETTE (SDL_PALETTE *)) (BITSPERPIXEL UINT8) (BYTESPERPIXEL UINT8) (RLOSS UINT8) (GLOSS UINT8) (BLOSS UINT8) (ALOSS UINT8) (RSHIFT UINT8) (GSHIFT UINT8) (BSHIFT UINT8) (ASHIFT UINT8) (#:G7420 (:CHAR 2)) (RMASK UINT32) (GMASK UINT32) (BMASK UINT32) (AMASK UINT32) (COLORKEY UINT32) (ALPHA UINT8)))) (PROGN (EXPORT '(SDL_SURFACE)) (C-TYPES:DEFCSTRUCT SDL_SURFACE NIL)) (PROGN (EXPORT '(SDL_BLIT)) (C-TYPES:DEFCTYPE SDL_BLIT (:VOID *))) (PROGN (EXPORT '(PRIVATE_HWDATA SDL_BLITMAP)) (C-TYPES:DEFCSTRUCT PRIVATE_HWDATA NIL) (C-TYPES:DEFCSTRUCT SDL_BLITMAP NIL)) -(PROGN (EXPORT '(SDL_SURFACE SDL_SWSURFACE SDL_HWSURFACE SDL_ASYNCBLIT SDL_ANYFORMAT SDL_HWPALETTE SDL_DOUBLEBUF SDL_FULLSCREEN SDL_OPENGL SDL_OPENGLBLIT SDL_RESIZABLE SDL_NOFRAME SDL_HWACCEL SDL_SRCCOLORKEY SDL_RLEACCELOK SDL_RLEACCEL SDL_SRCALPHA SDL_PREALLOC)) (C-TYPES:DEFCSTRUCT SDL_SURFACE ((FLAGS UINT32) (FORMAT (SDL_PIXELFORMAT *)) (W :LONG) (H :LONG) (PITCH UINT16) (#:G7831 (:CHAR 2)) (PIXELS (:VOID *)) (OFFSET :LONG) (HWDATA (PRIVATE_HWDATA *)) (CLIP_RECT SDL_RECT) (UNUSED1 UINT32) (LOCKED UINT32) (MAP (SDL_BLITMAP *)) (FORMAT_VERSION :UNSIGNED-LONG) (REFCOUNT :LONG))) (DEFCONSTANT SDL_SWSURFACE 0) (DEFCONSTANT SDL_HWSURFACE 1) (DEFCONSTANT SDL_ASYNCBLIT 4) (DEFCONSTANT SDL_ANYFORMAT 268435456) (DEFCONSTANT SDL_HWPALETTE 536870912) (DEFCONSTANT SDL_DOUBLEBUF 1073741824) (DEFCONSTANT SDL_FULLSCREEN 2147483648) (DEFCONSTANT SDL_OPENGL 2) (DEFCONSTANT SDL_OPENGLBLIT 10) (DEFCONSTANT SDL_RESIZABLE 16) (DEFCONSTANT SDL_NOFRAME 32) (DEFCONSTANT SDL_HWACCEL 256) (DEFCONSTANT SDL_SRCCOLORKEY 4096) (DEFCONSTANT SDL_RLEACCELOK 8192) (DEFCONSTANT SDL_RLEACCEL 16384) (DEFCONSTANT SDL_SRCALPHA 65536) (DEFCONSTANT SDL_PREALLOC 16777216)) +(PROGN (EXPORT '(SDL_SURFACE SDL_SWSURFACE SDL_HWSURFACE SDL_ASYNCBLIT SDL_ANYFORMAT SDL_HWPALETTE SDL_DOUBLEBUF SDL_FULLSCREEN SDL_OPENGL SDL_OPENGLBLIT SDL_RESIZABLE SDL_NOFRAME SDL_HWACCEL SDL_SRCCOLORKEY SDL_RLEACCELOK SDL_RLEACCEL SDL_SRCALPHA SDL_PREALLOC)) (C-TYPES:DEFCSTRUCT SDL_SURFACE ((FLAGS UINT32) (FORMAT (SDL_PIXELFORMAT *)) (W :LONG) (H :LONG) (PITCH UINT16) (#:G7421 (:CHAR 2)) (PIXELS (:VOID *)) (OFFSET :LONG) (HWDATA (PRIVATE_HWDATA *)) (CLIP_RECT SDL_RECT) (UNUSED1 UINT32) (LOCKED UINT32) (MAP (SDL_BLITMAP *)) (FORMAT_VERSION :UNSIGNED-LONG) (REFCOUNT :LONG))) (DEFCONSTANT SDL_SWSURFACE 0) (DEFCONSTANT SDL_HWSURFACE 1) (DEFCONSTANT SDL_ASYNCBLIT 4) (DEFCONSTANT SDL_ANYFORMAT 268435456) (DEFCONSTANT SDL_HWPALETTE 536870912) (DEFCONSTANT SDL_DOUBLEBUF 1073741824) (DEFCONSTANT SDL_FULLSCREEN 2147483648) (DEFCONSTANT SDL_OPENGL 2) (DEFCONSTANT SDL_OPENGLBLIT 10) (DEFCONSTANT SDL_RESIZABLE 16) (DEFCONSTANT SDL_NOFRAME 32) (DEFCONSTANT SDL_HWACCEL 256) (DEFCONSTANT SDL_SRCCOLORKEY 4096) (DEFCONSTANT SDL_RLEACCELOK 8192) (DEFCONSTANT SDL_RLEACCEL 16384) (DEFCONSTANT SDL_SRCALPHA 65536) (DEFCONSTANT SDL_PREALLOC 16777216)) (PROGN (PROGN (EXPORT 'SDL_MUSTLOCK) (DECLAIM (INLINE SDL_MUSTLOCK)) (DEFUN SDL_MUSTLOCK (SURFACE) (IF (> 0 (C-TYPES:CREF SDL_SURFACE SURFACE OFFSET)) (VALUES 1) (IF (NOT (EQL 0 (LOGAND (C-TYPES:CREF SDL_SURFACE SURFACE FLAGS) (LOGIOR SDL_HWSURFACE SDL_ASYNCBLIT SDL_RLEACCEL)))) (VALUES 1) (VALUES 0)))))) (PROGN) (PROGN (EXPORT '(SDL_VIDEOINFO)) (C-TYPES:DEFCSTRUCT SDL_VIDEOINFO ((INT1 UINT8) (INT2 UINT8) (INT3 UINT16) (VIDEO_MEM UINT32) (VFMT (SDL_PIXELFORMAT *))))) @@ -63,7 +63,7 @@ (PROGN (EXPORT '(SDL_APPMOUSEFOCUS SDL_APPINPUTFOCUS SDL_APPACTIVE)) (DEFCONSTANT SDL_APPMOUSEFOCUS 1) (DEFCONSTANT SDL_APPINPUTFOCUS 2) (DEFCONSTANT SDL_APPACTIVE 4)) (PROGN (EXPORT '(SDL_GETAPPSTATE)) (C-TYPES:DEFUN-DLL SDL_GETAPPSTATE NIL :RETURN-TYPE UINT8 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetAppState" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDLK_UNKNOWN SDLK_FIRST SDLK_BACKSPACE SDLK_TAB SDLK_CLEAR SDLK_RETURN SDLK_PAUSE SDLK_ESCAPE SDLK_SPACE SDLK_EXCLAIM SDLK_QUOTEDBL SDLK_HASH SDLK_DOLLAR SDLK_AMPERSAND SDLK_QUOTE SDLK_LEFTPAREN SDLK_RIGHTPAREN SDLK_ASTERISK SDLK_PLUS SDLK_COMMA SDLK_MINUS SDLK_PERIOD SDLK_SLASH SDLK_0 SDLK_1 SDLK_2 SDLK_3 SDLK_4 SDLK_5 SDLK_6 SDLK_7 SDLK_8 SDLK_9 SDLK_COLON SDLK_SEMICOLON SDLK_LESS SDLK_EQUALS SDLK_GREATER SDLK_QUESTION SDLK_AT SDLK_LEFTBRACKET SDLK_BACKSLASH SDLK_RIGHTBRACKET SDLK_CARET SDLK_UNDERSCORE SDLK_BACKQUOTE SDLK_A SDLK_B SDLK_C SDLK_D SDLK_E SDLK_F SDLK_G SDLK_H SDLK_I SDLK_J SDLK_K SDLK_L SDLK_M SDLK_N SDLK_O SDLK_P SDLK_Q SDLK_R SDLK_S SDLK_T SDLK_U SDLK_V SDLK_W SDLK_X SDLK_Y SDLK_Z SDLK_DELETE SDLK_WORLD_0 SDLK_WORLD_1 SDLK_WORLD_2 SDLK_WORLD_3 SDLK_WORLD_4 SDLK_WORLD_5 SDLK_WORLD_6 SDLK_WORLD_7 SDLK_WORLD_8 SDLK_WORLD_9 SDLK_WORLD_10 SDLK_WORLD_11 SDLK_WORLD_12 SDLK_WORLD_13 SDLK_WORLD_14 SDLK_WORLD_15 SDLK_WORLD_16 SDLK_WORLD_17 SDLK_WORLD_18 SDLK_WORLD_19 SDLK_WORLD_20 SDLK_WORLD_21 SDLK_WORLD_22 SDLK_WORLD_23 SDLK_WORLD_24 SDLK_WORLD_25 SDLK_WORLD_26 SDLK_WORLD_27 SDLK_WORLD_28 SDLK_WORLD_29 SDLK_WORLD_30 SDLK_WORLD_31 SDLK_WORLD_32 SDLK_WORLD_33 SDLK_WORLD_34 SDLK_WORLD_35 SDLK_WORLD_36 SDLK_WORLD_37 SDLK_WORLD_38 SDLK_WORLD_39 SDLK_WORLD_40 SDLK_WORLD_41 SDLK_WORLD_42 SDLK_WORLD_43 SDLK_WORLD_44 SDLK_WORLD_45 SDLK_WORLD_46 SDLK_WORLD_47 SDLK_WORLD_48 SDLK_WORLD_49 SDLK_WORLD_50 SDLK_WORLD_51 SDLK_WORLD_52 SDLK_WORLD_53 SDLK_WORLD_54 SDLK_WORLD_55 SDLK_WORLD_56 SDLK_WORLD_57 SDLK_WORLD_58 SDLK_WORLD_59 SDLK_WORLD_60 SDLK_WORLD_61 SDLK_WORLD_62 SDLK_WORLD_63 SDLK_WORLD_64 SDLK_WORLD_65 SDLK_WORLD_66 SDLK_WORLD_67 SDLK_WORLD_68 SDLK_WORLD_69 SDLK_WORLD_70 SDLK_WORLD_71 SDLK_WORLD_72 SDLK_WORLD_73 SDLK_WORLD_74 SDLK_WORLD_75 SDLK_WORLD_76 SDLK_WORLD_77 SDLK_WORLD_78 SDLK_WORLD_79 SDLK_WORLD_80 SDLK_WORLD_81 SDLK_WORLD_82 SDLK_WORLD_83 SDLK_WORLD_84 SDLK_WORLD_85 SDLK_WORLD_86 SDLK_WORLD_87 SDLK_WORLD_88 SDLK_WORLD_89 SDLK_WORLD_90 SDLK_WORLD_91 SDLK_WORLD_92 SDLK_WORLD_93 SDLK_WORLD_94 SDLK_WORLD_95 SDLK_KP0 SDLK_KP1 SDLK_KP2 SDLK_KP3 SDLK_KP4 SDLK_KP5 SDLK_KP6 SDLK_KP7 SDLK_KP8 SDLK_KP9 SDLK_KP_PERIOD SDLK_KP_DIVIDE SDLK_KP_MULTIPLY SDLK_KP_MINUS SDLK_KP_PLUS SDLK_KP_ENTER SDLK_KP_EQUALS SDLK_UP SDLK_DOWN SDLK_RIGHT SDLK_LEFT SDLK_INSERT SDLK_HOME SDLK_END SDLK_PAGEUP SDLK_PAGEDOWN SDLK_F1 SDLK_F2 SDLK_F3 SDLK_F4 SDLK_F5 SDLK_F6 SDLK_F7 SDLK_F8 SDLK_F9 SDLK_F10 SDLK_F11 SDLK_F12 SDLK_F13 SDLK_F14 SDLK_F15 SDLK_NUMLOCK SDLK_CAPSLOCK SDLK_SCROLLOCK SDLK_RSHIFT SDLK_LSHIFT SDLK_RCTRL SDLK_LCTRL SDLK_RALT SDLK_LALT SDLK_RMETA SDLK_LMETA SDLK_LSUPER SDLK_RSUPER SDLK_MODE SDLK_COMPOSE SDLK_HELP SDLK_PRINT SDLK_SYSREQ SDLK_BREAK SDLK_MENU SDLK_POWER SDLK_EURO SDLK_UNDO SDLK_LAST SDLKEY KMOD_NONE KMOD_LSHIFT KMOD_RSHIFT KMOD_LCTRL KMOD_RCTRL KMOD_LALT KMOD_RALT KMOD_LMETA KMOD_RMETA KMOD_NUM KMOD_CAPS KMOD_MODE KMOD_RESERVED SDLMOD KMOD_CTRL KMOD_SHIFT KMOD_ALT KMOD_META)) (C-TYPES:DEFCTYPE SDLKEY :LONG) (DEFCONSTANT SDLK_LAST 323) (DEFCONSTANT SDLK_UNDO 322) (DEFCONSTANT SDLK_EURO 321) (DEFCONSTANT SDLK_POWER 320) (DEFCONSTANT SDLK_MENU 319) (DEFCONSTANT SDLK_BREAK 318) (DEFCONSTANT SDLK_SYSREQ 317) (DEFCONSTANT SDLK_PRINT 316) (DEFCONSTANT SDLK_HELP 315) (DEFCONSTANT SDLK_COMPOSE 314) (DEFCONSTANT SDLK_MODE 313) (DEFCONSTANT SDLK_RSUPER 312) (DEFCONSTANT SDLK_LSUPER 311) (DEFCONSTANT SDLK_LMETA 310) (DEFCONSTANT SDLK_RMETA 309) (DEFCONSTANT SDLK_LALT 308) (DEFCONSTANT SDLK_RALT 307) (DEFCONSTANT SDLK_LCTRL 306) (DEFCONSTANT SDLK_RCTRL 305) (DEFCONSTANT SDLK_LSHIFT 304) (DEFCONSTANT SDLK_RSHIFT 303) (DEFCONSTANT SDLK_SCROLLOCK 302) (DEFCONSTANT SDLK_CAPSLOCK 301) (DEFCONSTANT SDLK_NUMLOCK 300) (DEFCONSTANT SDLK_F15 296) (DEFCONSTANT SDLK_F14 295) (DEFCONSTANT SDLK_F13 294) (DEFCONSTANT SDLK_F12 293) (DEFCONSTANT SDLK_F11 292) (DEFCONSTANT SDLK_F10 291) (DEFCONSTANT SDLK_F9 290) (DEFCONSTANT SDLK_F8 289) (DEFCONSTANT SDLK_F7 288) (DEFCONSTANT SDLK_F6 287) (DEFCONSTANT SDLK_F5 286) (DEFCONSTANT SDLK_F4 285) (DEFCONSTANT SDLK_F3 284) (DEFCONSTANT SDLK_F2 283) (DEFCONSTANT SDLK_F1 282) (DEFCONSTANT SDLK_PAGEDOWN 281) (DEFCONSTANT SDLK_PAGEUP 280) (DEFCONSTANT SDLK_END 279) (DEFCONSTANT SDLK_HOME 278) (DEFCONSTANT SDLK_INSERT 277) (DEFCONSTANT SDLK_LEFT 276) (DEFCONSTANT SDLK_RIGHT 275) (DEFCONSTANT SDLK_DOWN 274) (DEFCONSTANT SDLK_UP 273) (DEFCONSTANT SDLK_KP_EQUALS 272) (DEFCONSTANT SDLK_KP_ENTER 271) (DEFCONSTANT SDLK_KP_PLUS 270) (DEFCONSTANT SDLK_KP_MINUS 269) (DEFCONSTANT SDLK_KP_MULTIPLY 268) (DEFCONSTANT SDLK_KP_DIVIDE 267) (DEFCONSTANT SDLK_KP_PERIOD 266) (DEFCONSTANT SDLK_KP9 265) (DEFCONSTANT SDLK_KP8 264) (DEFCONSTANT SDLK_KP7 263) (DEFCONSTANT SDLK_KP6 262) (DEFCONSTANT SDLK_KP5 261) (DEFCONSTANT SDLK_KP4 260) (DEFCONSTANT SDLK_KP3 259) (DEFCONSTANT SDLK_KP2 258) (DEFCONSTANT SDLK_KP1 257) (DEFCONSTANT SDLK_KP0 256) (DEFCONSTANT SDLK_WORLD_95 255) (DEFCONSTANT SDLK_WORLD_94 254) (DEFCONSTANT SDLK_WORLD_93 253) (DEFCONSTANT SDLK_WORLD_92 252) (DEFCONSTANT SDLK_WORLD_91 251) (DEFCONSTANT SDLK_WORLD_90 250) (DEFCONSTANT SDLK_WORLD_89 249) (DEFCONSTANT SDLK_WORLD_88 248) (DEFCONSTANT SDLK_WORLD_87 247) (DEFCONSTANT SDLK_WORLD_86 246) (DEFCONSTANT SDLK_WORLD_85 245) (DEFCONSTANT SDLK_WORLD_84 244) (DEFCONSTANT SDLK_WORLD_83 243) (DEFCONSTANT SDLK_WORLD_82 242) (DEFCONSTANT SDLK_WORLD_81 241) (DEFCONSTANT SDLK_WORLD_80 240) (DEFCONSTANT SDLK_WORLD_79 239) (DEFCONSTANT SDLK_WORLD_78 238) (DEFCONSTANT SDLK_WORLD_77 237) (DEFCONSTANT SDLK_WORLD_76 236) (DEFCONSTANT SDLK_WORLD_75 235) (DEFCONSTANT SDLK_WORLD_74 234) (DEFCONSTANT SDLK_WORLD_73 233) (DEFCONSTANT SDLK_WORLD_72 232) (DEFCONSTANT SDLK_WORLD_71 231) (DEFCONSTANT SDLK_WORLD_70 230) (DEFCONSTANT SDLK_WORLD_69 229) (DEFCONSTANT SDLK_WORLD_68 228) (DEFCONSTANT SDLK_WORLD_67 227) (DEFCONSTANT SDLK_WORLD_66 226) (DEFCONSTANT SDLK_WORLD_65 225) (DEFCONSTANT SDLK_WORLD_64 224) (DEFCONSTANT SDLK_WORLD_63 223) (DEFCONSTANT SDLK_WORLD_62 222) (DEFCONSTANT SDLK_WORLD_61 221) (DEFCONSTANT SDLK_WORLD_60 220) (DEFCONSTANT SDLK_WORLD_59 219) (DEFCONSTANT SDLK_WORLD_58 218) (DEFCONSTANT SDLK_WORLD_57 217) (DEFCONSTANT SDLK_WORLD_56 216) (DEFCONSTANT SDLK_WORLD_55 215) (DEFCONSTANT SDLK_WORLD_54 214) (DEFCONSTANT SDLK_WORLD_53 213) (DEFCONSTANT SDLK_WORLD_52 212) (DEFCONSTANT SDLK_WORLD_51 211) (DEFCONSTANT SDLK_WORLD_50 210) (DEFCONSTANT SDLK_WORLD_49 209) (DEFCONSTANT SDLK_WORLD_48 208) (DEFCONSTANT SDLK_WORLD_47 207) (DEFCONSTANT SDLK_WORLD_46 206) (DEFCONSTANT SDLK_WORLD_45 205) (DEFCONSTANT SDLK_WORLD_44 204) (DEFCONSTANT SDLK_WORLD_43 203) (DEFCONSTANT SDLK_WORLD_42 202) (DEFCONSTANT SDLK_WORLD_41 201) (DEFCONSTANT SDLK_WORLD_40 200) (DEFCONSTANT SDLK_WORLD_39 199) (DEFCONSTANT SDLK_WORLD_38 198) (DEFCONSTANT SDLK_WORLD_37 197) (DEFCONSTANT SDLK_WORLD_36 196) (DEFCONSTANT SDLK_WORLD_35 195) (DEFCONSTANT SDLK_WORLD_34 194) (DEFCONSTANT SDLK_WORLD_33 193) (DEFCONSTANT SDLK_WORLD_32 192) (DEFCONSTANT SDLK_WORLD_31 191) (DEFCONSTANT SDLK_WORLD_30 190) (DEFCONSTANT SDLK_WORLD_29 189) (DEFCONSTANT SDLK_WORLD_28 188) (DEFCONSTANT SDLK_WORLD_27 187) (DEFCONSTANT SDLK_WORLD_26 186) (DEFCONSTANT SDLK_WORLD_25 185) (DEFCONSTANT SDLK_WORLD_24 184) (DEFCONSTANT SDLK_WORLD_23 183) (DEFCONSTANT SDLK_WORLD_22 182) (DEFCONSTANT SDLK_WORLD_21 181) (DEFCONSTANT SDLK_WORLD_20 180) (DEFCONSTANT SDLK_WORLD_19 179) (DEFCONSTANT SDLK_WORLD_18 178) (DEFCONSTANT SDLK_WORLD_17 177) (DEFCONSTANT SDLK_WORLD_16 176) (DEFCONSTANT SDLK_WORLD_15 175) (DEFCONSTANT SDLK_WORLD_14 174) (DEFCONSTANT SDLK_WORLD_13 173) (DEFCONSTANT SDLK_WORLD_12 172) (DEFCONSTANT SDLK_WORLD_11 171) (DEFCONSTANT SDLK_WORLD_10 170) (DEFCONSTANT SDLK_WORLD_9 169) (DEFCONSTANT SDLK_WORLD_8 168) (DEFCONSTANT SDLK_WORLD_7 167) (DEFCONSTANT SDLK_WORLD_6 166) (DEFCONSTANT SDLK_WORLD_5 165) (DEFCONSTANT SDLK_WORLD_4 164) (DEFCONSTANT SDLK_WORLD_3 163) (DEFCONSTANT SDLK_WORLD_2 162) (DEFCONSTANT SDLK_WORLD_1 161) (DEFCONSTANT SDLK_WORLD_0 160) (DEFCONSTANT SDLK_DELETE 127) (DEFCONSTANT SDLK_Z 122) (DEFCONSTANT SDLK_Y 121) (DEFCONSTANT SDLK_X 120) (DEFCONSTANT SDLK_W 119) (DEFCONSTANT SDLK_V 118) (DEFCONSTANT SDLK_U 117) (DEFCONSTANT SDLK_T 116) (DEFCONSTANT SDLK_S 115) (DEFCONSTANT SDLK_R 114) (DEFCONSTANT SDLK_Q 113) (DEFCONSTANT SDLK_P 112) (DEFCONSTANT SDLK_O 111) (DEFCONSTANT SDLK_N 110) (DEFCONSTANT SDLK_M 109) (DEFCONSTANT SDLK_L 108) (DEFCONSTANT SDLK_K 107) (DEFCONSTANT SDLK_J 106) (DEFCONSTANT SDLK_I 105) (DEFCONSTANT SDLK_H 104) (DEFCONSTANT SDLK_G 103) (DEFCONSTANT SDLK_F 102) (DEFCONSTANT SDLK_E 101) (DEFCONSTANT SDLK_D 100) (DEFCONSTANT SDLK_C 99) (DEFCONSTANT SDLK_B 98) (DEFCONSTANT SDLK_A 97) (DEFCONSTANT SDLK_BACKQUOTE 96) (DEFCONSTANT SDLK_UNDERSCORE 95) (DEFCONSTANT SDLK_CARET 94) (DEFCONSTANT SDLK_RIGHTBRACKET 93) (DEFCONSTANT SDLK_BACKSLASH 92) (DEFCONSTANT SDLK_LEFTBRACKET 91) (DEFCONSTANT SDLK_AT 64) (DEFCONSTANT SDLK_QUESTION 63) (DEFCONSTANT SDLK_GREATER 62) (DEFCONSTANT SDLK_EQUALS 61) (DEFCONSTANT SDLK_LESS 60) (DEFCONSTANT SDLK_SEMICOLON 59) (DEFCONSTANT SDLK_COLON 58) (DEFCONSTANT SDLK_9 57) (DEFCONSTANT SDLK_8 56) (DEFCONSTANT SDLK_7 55) (DEFCONSTANT SDLK_6 54) (DEFCONSTANT SDLK_5 53) (DEFCONSTANT SDLK_4 52) (DEFCONSTANT SDLK_3 51) (DEFCONSTANT SDLK_2 50) (DEFCONSTANT SDLK_1 49) (DEFCONSTANT SDLK_0 48) (DEFCONSTANT SDLK_SLASH 47) (DEFCONSTANT SDLK_PERIOD 46) (DEFCONSTANT SDLK_MINUS 45) (DEFCONSTANT SDLK_COMMA 44) (DEFCONSTANT SDLK_PLUS 43) (DEFCONSTANT SDLK_ASTERISK 42) (DEFCONSTANT SDLK_RIGHTPAREN 41) (DEFCONSTANT SDLK_LEFTPAREN 40) (DEFCONSTANT SDLK_QUOTE 39) (DEFCONSTANT SDLK_AMPERSAND 38) (DEFCONSTANT SDLK_DOLLAR 36) (DEFCONSTANT SDLK_HASH 35) (DEFCONSTANT SDLK_QUOTEDBL 34) (DEFCONSTANT SDLK_EXCLAIM 33) (DEFCONSTANT SDLK_SPACE 32) (DEFCONSTANT SDLK_ESCAPE 27) (DEFCONSTANT SDLK_PAUSE 19) (DEFCONSTANT SDLK_RETURN 13) (DEFCONSTANT SDLK_CLEAR 12) (DEFCONSTANT SDLK_TAB 9) (DEFCONSTANT SDLK_BACKSPACE 8) (DEFCONSTANT SDLK_FIRST 0) (DEFCONSTANT SDLK_UNKNOWN 0) (C-TYPES:DEFCTYPE SDLMOD :LONG) (DEFCONSTANT KMOD_RESERVED 32768) (DEFCONSTANT KMOD_MODE 16384) (DEFCONSTANT KMOD_CAPS 8192) (DEFCONSTANT KMOD_NUM 4096) (DEFCONSTANT KMOD_RMETA 2048) (DEFCONSTANT KMOD_LMETA 1024) (DEFCONSTANT KMOD_RALT 512) (DEFCONSTANT KMOD_LALT 256) (DEFCONSTANT KMOD_RCTRL 128) (DEFCONSTANT KMOD_LCTRL 64) (DEFCONSTANT KMOD_RSHIFT 2) (DEFCONSTANT KMOD_LSHIFT 1) (DEFCONSTANT KMOD_NONE 0) (DEFCONSTANT KMOD_CTRL (LOGIOR KMOD_LCTRL KMOD_RCTRL)) (DEFCONSTANT KMOD_SHIFT (LOGIOR KMOD_LSHIFT KMOD_RSHIFT)) (DEFCONSTANT KMOD_ALT (LOGIOR KMOD_LALT KMOD_RALT)) (DEFCONSTANT KMOD_META (LOGIOR KMOD_LMETA KMOD_RMETA))) -(PROGN (EXPORT '(SDL_KEYSYM SDL_ALL_HOTKEYS)) (C-TYPES:DEFCSTRUCT SDL_KEYSYM ((SCANCODE UINT8) (#:G7832 (:CHAR 3)) (SYM SDLKEY) (MOD SDLMOD) (UNICODE UINT16))) (DEFCONSTANT SDL_ALL_HOTKEYS 4294967295)) +(PROGN (EXPORT '(SDL_KEYSYM SDL_ALL_HOTKEYS)) (C-TYPES:DEFCSTRUCT SDL_KEYSYM ((SCANCODE UINT8) (#:G7422 (:CHAR 3)) (SYM SDLKEY) (MOD SDLMOD) (UNICODE UINT16))) (DEFCONSTANT SDL_ALL_HOTKEYS 4294967295)) (PROGN (EXPORT '(SDL_ENABLEUNICODE)) (C-TYPES:DEFUN-DLL SDL_ENABLEUNICODE ((ENABLE :LONG)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_EnableUNICODE" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDL_DEFAULT_REPEAT_DELAY SDL_DEFAULT_REPEAT_INTERVAL)) (DEFCONSTANT SDL_DEFAULT_REPEAT_DELAY 500) (DEFCONSTANT SDL_DEFAULT_REPEAT_INTERVAL 30)) (PROGN (EXPORT '(SDL_ENABLEKEYREPEAT SDL_GETKEYSTATE SDL_GETMODSTATE SDL_SETMODSTATE SDL_GETKEYNAME)) (C-TYPES:DEFUN-DLL SDL_ENABLEKEYREPEAT ((DELAY :LONG) (INTERVAL :LONG)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_EnableKeyRepeat" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_GETKEYSTATE ((NUMKEYS (:LONG *))) :RETURN-TYPE (UINT8 *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetKeyState" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_GETMODSTATE NIL :RETURN-TYPE SDLMOD :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetModState" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_SETMODSTATE ((MODSTATE SDLMOD)) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_SetModState" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_GETKEYNAME ((KEY SDLKEY)) :RETURN-TYPE (:CHAR *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetKeyName" :LINKAGE-TYPE :C)) @@ -78,8 +78,8 @@ (PROGN (EXPORT '(SDL_JOYSTICKGETHAT SDL_JOYSTICKGETBALL SDL_JOYSTICKGETBUTTON SDL_JOYSTICKCLOSE)) (C-TYPES:DEFUN-DLL SDL_JOYSTICKGETHAT ((JOYSTICK (SDL_JOYSTICK *)) (HAT :LONG)) :RETURN-TYPE UINT8 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_JoystickGetHat" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_JOYSTICKGETBALL ((JOYSTICK (SDL_JOYSTICK *)) (BALL :LONG) (DX (:LONG *)) (DY (:LONG *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_JoystickGetBall" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_JOYSTICKGETBUTTON ((JOYSTICK (SDL_JOYSTICK *)) (BUTTON :LONG)) :RETURN-TYPE UINT8 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_JoystickGetButton" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_JOYSTICKCLOSE ((JOYSTICK (SDL_JOYSTICK *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_JoystickClose" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDL_NOEVENT SDL_ACTIVEEVENT SDL_KEYDOWN SDL_KEYUP SDL_MOUSEMOTION SDL_MOUSEBUTTONDOWN SDL_MOUSEBUTTONUP SDL_JOYAXISMOTION SDL_JOYBALLMOTION SDL_JOYHATMOTION SDL_JOYBUTTONDOWN SDL_JOYBUTTONUP SDL_QUIT SDL_SYSWMEVENT SDL_EVENT_RESERVEDA SDL_EVENT_RESERVEDB SDL_VIDEORESIZE SDL_VIDEOEXPOSE SDL_EVENT_RESERVED2 SDL_EVENT_RESERVED3 SDL_EVENT_RESERVED4 SDL_EVENT_RESERVED5 SDL_EVENT_RESERVED6 SDL_EVENT_RESERVED7 SDL_USEREVENT SDL_NUMEVENTS)) (DEFCONSTANT SDL_NUMEVENTS 32) (DEFCONSTANT SDL_USEREVENT 24) (DEFCONSTANT SDL_EVENT_RESERVED7 23) (DEFCONSTANT SDL_EVENT_RESERVED6 22) (DEFCONSTANT SDL_EVENT_RESERVED5 21) (DEFCONSTANT SDL_EVENT_RESERVED4 20) (DEFCONSTANT SDL_EVENT_RESERVED3 19) (DEFCONSTANT SDL_EVENT_RESERVED2 18) (DEFCONSTANT SDL_VIDEOEXPOSE 17) (DEFCONSTANT SDL_VIDEORESIZE 16) (DEFCONSTANT SDL_EVENT_RESERVEDB 15) (DEFCONSTANT SDL_EVENT_RESERVEDA 14) (DEFCONSTANT SDL_SYSWMEVENT 13) (DEFCONSTANT SDL_QUIT 12) (DEFCONSTANT SDL_JOYBUTTONUP 11) (DEFCONSTANT SDL_JOYBUTTONDOWN 10) (DEFCONSTANT SDL_JOYHATMOTION 9) (DEFCONSTANT SDL_JOYBALLMOTION 8) (DEFCONSTANT SDL_JOYAXISMOTION 7) (DEFCONSTANT SDL_MOUSEBUTTONUP 6) (DEFCONSTANT SDL_MOUSEBUTTONDOWN 5) (DEFCONSTANT SDL_MOUSEMOTION 4) (DEFCONSTANT SDL_KEYUP 3) (DEFCONSTANT SDL_KEYDOWN 2) (DEFCONSTANT SDL_ACTIVEEVENT 1) (DEFCONSTANT SDL_NOEVENT 0)) (PROGN (PROGN (EXPORT 'SDL_EVENTMASK) (DEFUN SDL_EVENTMASK (X) (ASH 1 X)))) -(PROGN (EXPORT '(SDL_ALLEVENTS SDL_ACTIVEEVENT SDL_KEYBOARDEVENT SDL_MOUSEMOTIONEVENT SDL_MOUSEBUTTONEVENT SDL_JOYAXISEVENT SDL_JOYBALLEVENT SDL_JOYHATEVENT SDL_JOYBUTTONEVENT SDL_RESIZEEVENT SDL_EXPOSEEVENT SDL_QUITEVENT SDL_USEREVENT SDL_SYSWMMSG SDL_SYSWMEVENT)) (PROGN (EXPORT 'SDL_ACTIVEEVENTMASK) (DEFUN SDL_ACTIVEEVENTMASK NIL (SDL_EVENTMASK SDL_ACTIVEEVENT))) (PROGN (EXPORT 'SDL_KEYDOWNMASK) (DEFUN SDL_KEYDOWNMASK NIL (SDL_EVENTMASK SDL_KEYDOWN))) (PROGN (EXPORT 'SDL_KEYUPMASK) (DEFUN SDL_KEYUPMASK NIL (SDL_EVENTMASK SDL_KEYUP))) (PROGN (EXPORT 'SDL_MOUSEMOTIONMASK) (DEFUN SDL_MOUSEMOTIONMASK NIL (SDL_EVENTMASK SDL_MOUSEMOTION))) (PROGN (EXPORT 'SDL_MOUSEBUTTONDOWNMASK) (DEFUN SDL_MOUSEBUTTONDOWNMASK NIL (SDL_EVENTMASK SDL_MOUSEBUTTONDOWN))) (PROGN (EXPORT 'SDL_MOUSEBUTTONUPMASK) (DEFUN SDL_MOUSEBUTTONUPMASK NIL (SDL_EVENTMASK SDL_MOUSEBUTTONUP))) (PROGN (EXPORT 'SDL_MOUSEEVENTMASK) (DEFUN SDL_MOUSEEVENTMASK NIL (LOGIOR (SDL_EVENTMASK SDL_MOUSEMOTION) (SDL_EVENTMASK SDL_MOUSEBUTTONDOWN) (SDL_EVENTMASK SDL_MOUSEBUTTONUP)))) (PROGN (EXPORT 'SDL_JOYAXISMOTIONMASK) (DEFUN SDL_JOYAXISMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYAXISMOTION))) (PROGN (EXPORT 'SDL_JOYBALLMOTIONMASK) (DEFUN SDL_JOYBALLMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYBALLMOTION))) (PROGN (EXPORT 'SDL_JOYHATMOTIONMASK) (DEFUN SDL_JOYHATMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYHATMOTION))) (PROGN (EXPORT 'SDL_JOYBUTTONDOWNMASK) (DEFUN SDL_JOYBUTTONDOWNMASK NIL (SDL_EVENTMASK SDL_JOYBUTTONDOWN))) (PROGN (EXPORT 'SDL_JOYBUTTONUPMASK) (DEFUN SDL_JOYBUTTONUPMASK NIL (SDL_EVENTMASK SDL_JOYBUTTONUP))) (PROGN (EXPORT 'SDL_JOYEVENTMASK) (DEFUN SDL_JOYEVENTMASK NIL (LOGIOR (SDL_EVENTMASK SDL_JOYAXISMOTION) (SDL_EVENTMASK SDL_JOYBALLMOTION) (SDL_EVENTMASK SDL_JOYHATMOTION) (SDL_EVENTMASK SDL_JOYBUTTONDOWN) (SDL_EVENTMASK SDL_JOYBUTTONUP)))) (PROGN (EXPORT 'SDL_VIDEORESIZEMASK) (DEFUN SDL_VIDEORESIZEMASK NIL (SDL_EVENTMASK SDL_VIDEORESIZE))) (PROGN (EXPORT 'SDL_VIDEOEXPOSEMASK) (DEFUN SDL_VIDEOEXPOSEMASK NIL (SDL_EVENTMASK SDL_VIDEOEXPOSE))) (PROGN (EXPORT 'SDL_QUITMASK) (DEFUN SDL_QUITMASK NIL (SDL_EVENTMASK SDL_QUIT))) (PROGN (EXPORT 'SDL_SYSWMEVENTMASK) (DEFUN SDL_SYSWMEVENTMASK NIL (SDL_EVENTMASK SDL_SYSWMEVENT))) (DEFCONSTANT SDL_ALLEVENTS 4294967295) (C-TYPES:DEFCSTRUCT SDL_ACTIVEEVENT ((TYPE UINT8) (GAIN UINT8) (STATE UINT8))) (C-TYPES:DEFCSTRUCT SDL_KEYBOARDEVENT ((TYPE UINT8) (WHICH UINT8) (STATE UINT8) (#:G7833 (:CHAR 1)) (KEYSYM SDL_KEYSYM))) (C-TYPES:DEFCSTRUCT SDL_MOUSEMOTIONEVENT ((TYPE UINT8) (WHICH UINT8) (STATE UINT8) (#:G7834 (:CHAR 1)) (X UINT16) (Y UINT16) (XREL SINT16) (YREL SINT16))) (C-TYPES:DEFCSTRUCT SDL_MOUSEBUTTONEVENT ((TYPE UINT8) (WHICH UINT8) (BUTTON UINT8) (STATE UINT8) (X UINT16) (Y UINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYAXISEVENT ((TYPE UINT8) (WHICH UINT8) (AXIS UINT8) (#:G7835 (:CHAR 1)) (VALUE SINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYBALLEVENT ((TYPE UINT8) (WHICH UINT8) (BALL UINT8) (#:G7836 (:CHAR 1)) (XREL SINT16) (YREL SINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYHATEVENT ((TYPE UINT8) (WHICH UINT8) (HAT UINT8) (VALUE UINT8))) (C-TYPES:DEFCSTRUCT SDL_JOYBUTTONEVENT ((TYPE UINT8) (WHICH UINT8) (BUTTON UINT8) (STATE UINT8))) (C-TYPES:DEFCSTRUCT SDL_RESIZEEVENT ((TYPE UINT8) (#:G7837 (:CHAR 3)) (W :LONG) (H :LONG))) (C-TYPES:DEFCSTRUCT SDL_EXPOSEEVENT ((TYPE UINT8))) (C-TYPES:DEFCSTRUCT SDL_QUITEVENT ((TYPE UINT8))) (C-TYPES:DEFCSTRUCT SDL_USEREVENT ((TYPE UINT8) (#:G7838 (:CHAR 3)) (CODE :LONG) (DATA1 (:VOID *)) (DATA2 (:VOID *)))) (C-TYPES:DEFCSTRUCT SDL_SYSWMMSG NIL) (C-TYPES:DEFCSTRUCT SDL_SYSWMEVENT ((TYPE UINT8) (#:G7839 (:CHAR 3)) (MSG (SDL_SYSWMMSG *))))) -(PROGN (EXPORT '(SDL_EVENT)) (C-TYPES:DEFCSTRUCT SDL_EVENT ((TYPE UINT8) (#:G7840 (:CHAR 3)) (BUFFER (UINT8 1023))))) +(PROGN (EXPORT '(SDL_ALLEVENTS SDL_ACTIVEEVENT SDL_KEYBOARDEVENT SDL_MOUSEMOTIONEVENT SDL_MOUSEBUTTONEVENT SDL_JOYAXISEVENT SDL_JOYBALLEVENT SDL_JOYHATEVENT SDL_JOYBUTTONEVENT SDL_RESIZEEVENT SDL_EXPOSEEVENT SDL_QUITEVENT SDL_USEREVENT SDL_SYSWMMSG SDL_SYSWMEVENT)) (PROGN (EXPORT 'SDL_ACTIVEEVENTMASK) (DEFUN SDL_ACTIVEEVENTMASK NIL (SDL_EVENTMASK SDL_ACTIVEEVENT))) (PROGN (EXPORT 'SDL_KEYDOWNMASK) (DEFUN SDL_KEYDOWNMASK NIL (SDL_EVENTMASK SDL_KEYDOWN))) (PROGN (EXPORT 'SDL_KEYUPMASK) (DEFUN SDL_KEYUPMASK NIL (SDL_EVENTMASK SDL_KEYUP))) (PROGN (EXPORT 'SDL_MOUSEMOTIONMASK) (DEFUN SDL_MOUSEMOTIONMASK NIL (SDL_EVENTMASK SDL_MOUSEMOTION))) (PROGN (EXPORT 'SDL_MOUSEBUTTONDOWNMASK) (DEFUN SDL_MOUSEBUTTONDOWNMASK NIL (SDL_EVENTMASK SDL_MOUSEBUTTONDOWN))) (PROGN (EXPORT 'SDL_MOUSEBUTTONUPMASK) (DEFUN SDL_MOUSEBUTTONUPMASK NIL (SDL_EVENTMASK SDL_MOUSEBUTTONUP))) (PROGN (EXPORT 'SDL_MOUSEEVENTMASK) (DEFUN SDL_MOUSEEVENTMASK NIL (LOGIOR (SDL_EVENTMASK SDL_MOUSEMOTION) (SDL_EVENTMASK SDL_MOUSEBUTTONDOWN) (SDL_EVENTMASK SDL_MOUSEBUTTONUP)))) (PROGN (EXPORT 'SDL_JOYAXISMOTIONMASK) (DEFUN SDL_JOYAXISMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYAXISMOTION))) (PROGN (EXPORT 'SDL_JOYBALLMOTIONMASK) (DEFUN SDL_JOYBALLMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYBALLMOTION))) (PROGN (EXPORT 'SDL_JOYHATMOTIONMASK) (DEFUN SDL_JOYHATMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYHATMOTION))) (PROGN (EXPORT 'SDL_JOYBUTTONDOWNMASK) (DEFUN SDL_JOYBUTTONDOWNMASK NIL (SDL_EVENTMASK SDL_JOYBUTTONDOWN))) (PROGN (EXPORT 'SDL_JOYBUTTONUPMASK) (DEFUN SDL_JOYBUTTONUPMASK NIL (SDL_EVENTMASK SDL_JOYBUTTONUP))) (PROGN (EXPORT 'SDL_JOYEVENTMASK) (DEFUN SDL_JOYEVENTMASK NIL (LOGIOR (SDL_EVENTMASK SDL_JOYAXISMOTION) (SDL_EVENTMASK SDL_JOYBALLMOTION) (SDL_EVENTMASK SDL_JOYHATMOTION) (SDL_EVENTMASK SDL_JOYBUTTONDOWN) (SDL_EVENTMASK SDL_JOYBUTTONUP)))) (PROGN (EXPORT 'SDL_VIDEORESIZEMASK) (DEFUN SDL_VIDEORESIZEMASK NIL (SDL_EVENTMASK SDL_VIDEORESIZE))) (PROGN (EXPORT 'SDL_VIDEOEXPOSEMASK) (DEFUN SDL_VIDEOEXPOSEMASK NIL (SDL_EVENTMASK SDL_VIDEOEXPOSE))) (PROGN (EXPORT 'SDL_QUITMASK) (DEFUN SDL_QUITMASK NIL (SDL_EVENTMASK SDL_QUIT))) (PROGN (EXPORT 'SDL_SYSWMEVENTMASK) (DEFUN SDL_SYSWMEVENTMASK NIL (SDL_EVENTMASK SDL_SYSWMEVENT))) (DEFCONSTANT SDL_ALLEVENTS 4294967295) (C-TYPES:DEFCSTRUCT SDL_ACTIVEEVENT ((TYPE UINT8) (GAIN UINT8) (STATE UINT8))) (C-TYPES:DEFCSTRUCT SDL_KEYBOARDEVENT ((TYPE UINT8) (WHICH UINT8) (STATE UINT8) (#:G7423 (:CHAR 1)) (KEYSYM SDL_KEYSYM))) (C-TYPES:DEFCSTRUCT SDL_MOUSEMOTIONEVENT ((TYPE UINT8) (WHICH UINT8) (STATE UINT8) (#:G7424 (:CHAR 1)) (X UINT16) (Y UINT16) (XREL SINT16) (YREL SINT16))) (C-TYPES:DEFCSTRUCT SDL_MOUSEBUTTONEVENT ((TYPE UINT8) (WHICH UINT8) (BUTTON UINT8) (STATE UINT8) (X UINT16) (Y UINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYAXISEVENT ((TYPE UINT8) (WHICH UINT8) (AXIS UINT8) (#:G7425 (:CHAR 1)) (VALUE SINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYBALLEVENT ((TYPE UINT8) (WHICH UINT8) (BALL UINT8) (#:G7426 (:CHAR 1)) (XREL SINT16) (YREL SINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYHATEVENT ((TYPE UINT8) (WHICH UINT8) (HAT UINT8) (VALUE UINT8))) (C-TYPES:DEFCSTRUCT SDL_JOYBUTTONEVENT ((TYPE UINT8) (WHICH UINT8) (BUTTON UINT8) (STATE UINT8))) (C-TYPES:DEFCSTRUCT SDL_RESIZEEVENT ((TYPE UINT8) (#:G7427 (:CHAR 3)) (W :LONG) (H :LONG))) (C-TYPES:DEFCSTRUCT SDL_EXPOSEEVENT ((TYPE UINT8))) (C-TYPES:DEFCSTRUCT SDL_QUITEVENT ((TYPE UINT8))) (C-TYPES:DEFCSTRUCT SDL_USEREVENT ((TYPE UINT8) (#:G7428 (:CHAR 3)) (CODE :LONG) (DATA1 (:VOID *)) (DATA2 (:VOID *)))) (C-TYPES:DEFCSTRUCT SDL_SYSWMMSG NIL) (C-TYPES:DEFCSTRUCT SDL_SYSWMEVENT ((TYPE UINT8) (#:G7429 (:CHAR 3)) (MSG (SDL_SYSWMMSG *))))) +(PROGN (EXPORT '(SDL_EVENT)) (C-TYPES:DEFCSTRUCT SDL_EVENT ((TYPE UINT8) (#:G7430 (:CHAR 3)) (BUFFER (UINT8 1023))))) (PROGN (EXPORT '(SDL_PUMPEVENTS)) (C-TYPES:DEFUN-DLL SDL_PUMPEVENTS NIL :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_PumpEvents" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDL_ADDEVENT SDL_PEEKEVENT SDL_GETEVENT SDL_EVENTACTION)) (C-TYPES:DEFCTYPE SDL_EVENTACTION :LONG) (DEFCONSTANT SDL_GETEVENT 2) (DEFCONSTANT SDL_PEEKEVENT 1) (DEFCONSTANT SDL_ADDEVENT 0)) (PROGN (EXPORT '(SDL_PEEPEVENTS SDL_POLLEVENT SDL_WAITEVENT SDL_PUSHEVENT)) (C-TYPES:DEFUN-DLL SDL_PEEPEVENTS ((EVENTS (SDL_EVENT *)) (NUMEVENTS :LONG) (ACTION SDL_EVENTACTION) (MASK UINT32)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_PeepEvents" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_POLLEVENT ((EVENT (SDL_EVENT *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_PollEvent" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_WAITEVENT ((EVENT (SDL_EVENT *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_WaitEvent" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_PUSHEVENT ((EVENT (SDL_EVENT *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_PushEvent" :LINKAGE-TYPE :C)) @@ -91,33 +91,6 @@ (PROGN (EXPORT '(SDL_TIMESLICE TIMER_RESOLUTION)) (DEFCONSTANT SDL_TIMESLICE 10) (DEFCONSTANT TIMER_RESOLUTION 10)) (PROGN (EXPORT '(SDL_GETTICKS SDL_DELAY SDL_TIMERCALLBACK)) (C-TYPES:DEFUN-DLL SDL_GETTICKS NIL :RETURN-TYPE UINT32 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetTicks" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_DELAY ((MS UINT32)) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_Delay" :LINKAGE-TYPE :C) (C-TYPES:DEFCTYPE SDL_TIMERCALLBACK (:VOID *))) (PROGN (EXPORT '(SDL_SETTIMER)) (C-TYPES:DEFUN-DLL SDL_SETTIMER ((INTERVAL UINT32) (CALLBACK SDL_TIMERCALLBACK)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_SetTimer" :LINKAGE-TYPE :C)) -(PROGN (EXPORT '(SDL_NEWTIMERCALLBACK)) (C-TYPES:DEFCTYPE SDL_NEWTIMERCALLBACK (:VOID *))) -(PROGN (EXPORT '(_SDL_TIMERID SDL_TIMERID)) (C-TYPES:DEFCSTRUCT _SDL_TIMERID NIL) (C-TYPES:DEFCTYPE SDL_TIMERID (_SDL_TIMERID *))) -(PROGN (EXPORT '(SDL_ADDTIMER SDL_REMOVETIMER)) (C-TYPES:DEFUN-DLL SDL_ADDTIMER ((INTERVAL UINT32) (CALLBACK SDL_NEWTIMERCALLBACK) (PARAM (:VOID *))) :RETURN-TYPE SDL_TIMERID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_AddTimer" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_REMOVETIMER (("" SDL_TIMERID)) :RETURN-TYPE SDL_BOOL :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_RemoveTimer" :LINKAGE-TYPE :C)) -(PROGN (EXPORT '(SDL_PUTENV)) (C-TYPES:DEFUN-DLL SDL_PUTENV ((VARIABLE (:CHAR *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_putenv" :LINKAGE-TYPE :C)) -(PROGN (PROGN (EXPORT 'PUTENV) (DEFUN PUTENV (X) (SDL_PUTENV X)))) -(PROGN (EXPORT '(SDL_GETENV)) (C-TYPES:DEFUN-DLL SDL_GETENV ((NAME (:CHAR *))) :RETURN-TYPE (:CHAR *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_getenv" :LINKAGE-TYPE :C)) -(PROGN (PROGN (EXPORT 'GETENV) (DEFUN GETENV (X) (SDL_GETENV X)))) -(PROGN (EXPORT '(SDL_LIL_ENDIAN SDL_BIG_ENDIAN)) (DEFCONSTANT SDL_LIL_ENDIAN 1234) (DEFCONSTANT SDL_BIG_ENDIAN 4321)) -(PROGN (EXPORT '(SDL_BYTEORDER)) (DEFCONSTANT SDL_BYTEORDER SDL_BIG_ENDIAN)) -(PROGN (EXPORT '(SDL_MAX_TRACKS SDL_AUDIO_TRACK SDL_DATA_TRACK CD_TRAYEMPTY CD_STOPPED CD_PLAYING CD_PAUSED CD_ERROR CDSTATUS)) (DEFCONSTANT SDL_MAX_TRACKS 99) (DEFCONSTANT SDL_AUDIO_TRACK 0) (DEFCONSTANT SDL_DATA_TRACK 4) (C-TYPES:DEFCTYPE CDSTATUS :LONG) (DEFCONSTANT CD_ERROR -1) (DEFCONSTANT CD_PAUSED 3) (DEFCONSTANT CD_PLAYING 2) (DEFCONSTANT CD_STOPPED 1) (DEFCONSTANT CD_TRAYEMPTY 0)) -(PROGN (PROGN (EXPORT 'CD_INDRIVE) (DEFUN CD_INDRIVE (STATUS) (IF (> STATUS 0) T NIL)))) -(PROGN (EXPORT '(SDL_CDTRACK SDL_CD)) (C-TYPES:DEFCSTRUCT SDL_CDTRACK ((ID UINT8) (TYPE UINT8) (UNUSED UINT16) (LENGTH UINT32) (OFFSET UINT32))) (C-TYPES:DEFCSTRUCT SDL_CD ((ID :LONG) (STATUS CDSTATUS) (NUMTRACKS :LONG) (CUR_TRACK :LONG) (CUR_FRAME :LONG) (TRACK (SDL_CDTRACK 100))))) -(PROGN (EXPORT '(CD_FPS)) (DEFCONSTANT CD_FPS 75)) -(PROGN (PROGN (EXPORT 'FRAMES_TO_MSF) (DEFUN FRAMES_TO_MSF (F) (VALUES (MOD F CD_FPS) (MOD (/ F CD_FPS) 60) (/ (/ F CD_FPS) 60)))) (PROGN (EXPORT 'MSF_TO_FRAMES) (DEFUN MSF_TO_FRAMES (M S F) (+ (* M 60 CD_FPS) (* S CD_FPS) F)))) -(PROGN (EXPORT '(SDL_CDNUMDRIVES SDL_CDNAME SDL_CDOPEN SDL_CDSTATUS SDL_CDPLAYTRACKS SDL_CDPLAY SDL_CDPAUSE SDL_CDRESUME SDL_CDSTOP SDL_CDEJECT SDL_CDCLOSE)) (C-TYPES:DEFUN-DLL SDL_CDNUMDRIVES NIL :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDNumDrives" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDNAME ((DRIVE :LONG)) :RETURN-TYPE (:CHAR *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDName" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDOPEN ((DRIVE :LONG)) :RETURN-TYPE (SDL_CD *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDOpen" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDSTATUS ((CDROM (SDL_CD *))) :RETURN-TYPE CDSTATUS :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDStatus" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDPLAYTRACKS ((CDROM (SDL_CD *)) (START_TRACK :LONG) (START_FRAME :LONG) (NTRACKS :LONG) (NFRAMES :LONG)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDPlayTracks" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDPLAY ((CDROM (SDL_CD *)) (START :LONG) (LENGTH :LONG)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDPlay" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDPAUSE ((CDROM (SDL_CD *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDPause" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDRESUME ((CDROM (SDL_CD *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDResume" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDSTOP ((CDROM (SDL_CD *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDStop" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDEJECT ((CDROM (SDL_CD *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDEject" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDCLOSE ((CDROM (SDL_CD *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDClose" :LINKAGE-TYPE :C)) -(PROGN (EXPORT '(SDL_AUDIOSPEC)) (C-TYPES:DEFCSTRUCT SDL_AUDIOSPEC ((FREQ :LONG) (FORMAT UINT16) (CHANNELS UINT8) (SILENCE UINT8) (SAMPLES UINT16) (PADDING UINT16) (SIZE UINT32) (CALLBACK (:VOID *)) (USERDATA (:VOID *))))) -(PROGN (EXPORT '(AUDIO_U8 AUDIO_S8 AUDIO_U16LSB AUDIO_S16LSB AUDIO_U16MSB AUDIO_S16MSB AUDIO_U16 AUDIO_S16 AUDIO_U16SYS AUDIO_S16SYS)) (DEFCONSTANT AUDIO_U8 8) (DEFCONSTANT AUDIO_S8 32776) (DEFCONSTANT AUDIO_U16LSB 16) (DEFCONSTANT AUDIO_S16LSB 32784) (DEFCONSTANT AUDIO_U16MSB 4112) (DEFCONSTANT AUDIO_S16MSB 36880) (DEFCONSTANT AUDIO_U16 AUDIO_U16LSB) (DEFCONSTANT AUDIO_S16 AUDIO_S16LSB) (DEFCONSTANT AUDIO_U16SYS AUDIO_U16MSB) (DEFCONSTANT AUDIO_S16SYS AUDIO_S16MSB)) -(PROGN) -(PROGN (EXPORT '(SDL_AUDIOINIT SDL_AUDIOQUIT SDL_AUDIODRIVERNAME SDL_OPENAUDIO)) (C-TYPES:DEFUN-DLL SDL_AUDIOINIT ((DRIVER_NAME (:CHAR *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_AudioInit" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_AUDIOQUIT NIL :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_AudioQuit" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_AUDIODRIVERNAME ((NAMEBUF (:CHAR *)) (MAXLEN :LONG)) :RETURN-TYPE (:CHAR *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_AudioDriverName" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_OPENAUDIO ((DESIRED (SDL_AUDIOSPEC *)) (OBTAINED (SDL_AUDIOSPEC *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_OpenAudio" :LINKAGE-TYPE :C)) -(PROGN (EXPORT '(SDL_AUDIO_STOPPED SDL_AUDIO_PLAYING SDL_AUDIO_PAUSED SDL_AUDIOSTATUS)) (C-TYPES:DEFCTYPE SDL_AUDIOSTATUS :LONG) (DEFCONSTANT SDL_AUDIO_PAUSED 2) (DEFCONSTANT SDL_AUDIO_PLAYING 1) (DEFCONSTANT SDL_AUDIO_STOPPED 0)) -(PROGN (EXPORT '(SDL_GETAUDIOSTATUS SDL_PAUSEAUDIO SDL_LOADWAV_RW)) (C-TYPES:DEFUN-DLL SDL_GETAUDIOSTATUS NIL :RETURN-TYPE SDL_AUDIOSTATUS :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetAudioStatus" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_PAUSEAUDIO ((PAUSE_ON :LONG)) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_PauseAudio" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_LOADWAV_RW ((SRC (SDL_RWOPS *)) (FREESRC :LONG) (SPEC (SDL_AUDIOSPEC *)) (AUDIO_BUF ((UINT8 *) *)) (AUDIO_LEN (UINT32 *))) :RETURN-TYPE (SDL_AUDIOSPEC *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_LoadWAV_RW" :LINKAGE-TYPE :C)) -(PROGN (EXPORT '(SDL_FREEWAV SDL_BUILDAUDIOCVT SDL_CONVERTAUDIO)) (PROGN (EXPORT 'SDL_LOADWAV) (DEFUN SDL_LOADWAV (FILE SPEC AUDIO_BUF AUDIO_LEN) (SDL_LOADWAV_RW (SDL_RWFROMFILE FILE "rb") 1 SPEC AUDIO_BUF AUDIO_LEN))) (C-TYPES:DEFUN-DLL SDL_FREEWAV ((AUDIO_BUF (UINT8 *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_FreeWAV" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_BUILDAUDIOCVT ((CVT (SDL_AUDIOCVT *)) (SRC_FORMAT UINT16) (SRC_CHANNELS UINT8) (SRC_RATE :LONG) (DST_FORMAT UINT16) (DST_CHANNELS UINT8) (DST_RATE :LONG)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_BuildAudioCVT" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CONVERTAUDIO ((CVT (SDL_AUDIOCVT *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_ConvertAudio" :LINKAGE-TYPE :C)) -(PROGN (EXPORT '(SDL_MIX_MAXVOLUME)) (DEFCONSTANT SDL_MIX_MAXVOLUME 128)) -(PROGN (EXPORT '(SDL_MIXAUDIO SDL_LOCKAUDIO SDL_UNLOCKAUDIO SDL_CLOSEAUDIO)) (C-TYPES:DEFUN-DLL SDL_MIXAUDIO ((DST (UINT8 *)) (SRC (UINT8 *)) (LEN UINT32) (VOLUME :LONG)) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_MixAudio" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_LOCKAUDIO NIL :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_LockAudio" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_UNLOCKAUDIO NIL :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_UnlockAudio" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CLOSEAUDIO NIL :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CloseAudio" :LINKAGE-TYPE :C)) -(PROGN (EXPORT '(SDL_LOADOBJECT SDL_LOADFUNCTION SDL_UNLOADOBJECT)) (C-TYPES:DEFUN-DLL SDL_LOADOBJECT ((SOFILE (:CHAR *))) :RETURN-TYPE (:VOID *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_LoadObject" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_LOADFUNCTION ((HANDLE (:VOID *)) (NAME (:CHAR *))) :RETURN-TYPE (:VOID *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_LoadFunction" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_UNLOADOBJECT ((HANDLE (:VOID *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_UnloadObject" :LINKAGE-TYPE :C)) -(PROVIDE :SDL) -NTERVAL UINT32) (CALLBACK SDL_TIMERCALLBACK)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_SetTimer" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDL_NEWTIMERCALLBACK)) (C-TYPES:DEFCTYPE SDL_NEWTIMERCALLBACK (:VOID *))) (PROGN (EXPORT '(_SDL_TIMERID SDL_TIMERID)) (C-TYPES:DEFCSTRUCT _SDL_TIMERID NIL) (C-TYPES:DEFCTYPE SDL_TIMERID (_SDL_TIMERID *))) (PROGN (EXPORT '(SDL_ADDTIMER SDL_REMOVETIMER)) (C-TYPES:DEFUN-DLL SDL_ADDTIMER ((INTERVAL UINT32) (CALLBACK SDL_NEWTIMERCALLBACK) (PARAM (:VOID *))) :RETURN-TYPE SDL_TIMERID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_AddTimer" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_REMOVETIMER (("" SDL_TIMERID)) :RETURN-TYPE SDL_BOOL :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_RemoveTimer" :LINKAGE-TYPE :C))

1 0