#if !defined( lint ) && !defined( SABER ) static const char sccsid[] = "@(#)mode.c 5.12 04/03/09 xlockmore"; #endif /*- * mode.c - Modes for xlock. * * See xlock.c for copying information. * * Revision History: * 01-Apr-97: Fixed memory leak in XStringListToTextProperty. * 23-Feb-96: Extensive revision to implement new mode hooks and stuff * Ron Hitchens * 04-Sep-95: Moved over from mode.h (previously resource.h) with new * "&*_opts" by Heath A. Kehoe . * */ #include "xlock.h" /* -------------------------------------------------------------------- */ /*- * Mode options: If count, cycles, or size options are set to 1 ... * they are probably not used by the mode. * To remove unwanted modes see mode.h. * When adding new modes, keep them in * alphabetical order for -sequential to work properly. */ #ifndef USE_MODULES LockStruct LockProcs[] = { #ifdef MODE_anemone {(char *) "anemone", init_anemone, draw_anemone, release_anemone, init_apollonian, init_anemone, (ModeHook *) NULL, &anemone_opts, 50000, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows wiggling tentacles", 0, NULL}, #endif #ifdef MODE_ant {(char *) "ant", init_ant, draw_ant, release_ant, refresh_ant, init_ant, (ModeHook *) NULL, &ant_opts, 1000, -3, 40000, -12, 64, 1.0, (char *) "", (char *) "Shows Langton's and Turk's generalized ants", 0, NULL}, #endif #ifdef MODE_ant3d {(char *) "ant3d", init_ant3d, draw_ant3d, release_ant3d, refresh_ant3d, init_ant3d, (ModeHook *) NULL, &ant3d_opts, 5000, -3, 100000, 1, 64, 1.0, (char *) "", (char *) "Shows 3D ants", 0, NULL}, #endif #ifdef MODE_apollonian {(char *) "apollonian", init_apollonian, draw_apollonian, release_apollonian, init_apollonian, init_apollonian, (ModeHook *) NULL, &apollonian_opts, 1000000, 64, 20, 1, 64, 1.0, (char *) "", (char *) "Shows Apollonian circles", 0, NULL}, #endif #ifdef MODE_atlantis {(char *) "atlantis", init_atlantis, draw_atlantis, release_atlantis, refresh_atlantis, change_atlantis, (ModeHook *) NULL, &atlantis_opts, 25000, 4, 100, 6000, 64, 1.0, (char *) "", (char *) "Shows moving sharks/whales/dolphin", 0, NULL}, #endif #ifdef MODE_atunnels {(char *) "atunnels", init_atunnels, draw_atunnels, release_atunnels, refresh_atunnels, change_atunnels, (ModeHook *) NULL, &atunnels_opts, 25000, 1, 1, 0, 64, 1.0, (char *) "", (char *) "Shows an OpenGL advanced tunnel screensaver", 0, NULL}, #endif #ifdef MODE_ball {(char *) "ball", init_ball, draw_ball, release_ball, refresh_ball, init_ball, (ModeHook *) NULL, &ball_opts, 10000, 10, 20, -100, 64, 1.0, (char *) "", (char *) "Shows bouncing balls", 0, NULL}, #endif #ifdef MODE_bat {(char *) "bat", init_bat, draw_bat, release_bat, refresh_bat, init_bat, (ModeHook *) NULL, &bat_opts, 100000, -8, 1, 0, 64, 1.0, (char *) "", (char *) "Shows bouncing flying bats", 0, NULL}, #endif #ifdef MODE_billiards {(char *) "billiards", init_billiards, draw_billiards, release_billiards, refresh_billiards, init_billiards, (ModeHook *) NULL, &billiards_opts, 200000, 6, 30, 1, 64, 0.3, (char *) "", (char *) "Shows billiards", 0, NULL}, #endif #ifdef MODE_biof {(char *) "biof", init_biof, draw_biof, release_biof, draw_biof, init_biof, (ModeHook *) NULL, &biof_opts, 10000, 800, 1, 0, 64, 1.0, (char *) "", (char *) "Shows 3D bioform", 0, NULL}, #endif #ifdef MODE_blot {(char *) "blot", init_blot, draw_blot, release_blot, refresh_blot, init_blot, (ModeHook *) NULL, &blot_opts, 200000, 6, 30, 1, 64, 0.3, (char *) "", (char *) "Shows Rorschach's ink blot test", 0, NULL}, #endif #ifdef MODE_bouboule {(char *) "bouboule", init_bouboule, draw_bouboule, release_bouboule, refresh_bouboule, init_bouboule, (ModeHook *) NULL, &bouboule_opts, 10000, 100, 1, 15, 64, 1.0, (char *) "", (char *) "Shows Mimi's bouboule of moving stars", 0, NULL}, #endif #ifdef MODE_bounce {(char *) "bounce", init_bounce, draw_bounce, release_bounce, refresh_bounce, init_bounce, (ModeHook *) NULL, &bounce_opts, 5000, -10, 1, 0, 64, 1.0, (char *) "", (char *) "Shows bouncing footballs", 0, NULL}, #endif #ifdef MODE_braid {(char *) "braid", init_braid, draw_braid, release_braid, refresh_braid, init_braid, (ModeHook *) NULL, &braid_opts, 1000, 15, 100, -7, 64, 1.0, (char *) "", (char *) "Shows random braids and knots", 0, NULL}, #endif #ifdef MODE_bubble {(char *) "bubble", init_bubble, draw_bubble, release_bubble, refresh_bubble, init_bubble, (ModeHook *) NULL, &bubble_opts, 100000, 25, 1, 100, 64, 0.6, (char *) "", (char *) "Shows popping bubbles", 0, NULL}, #endif #ifdef MODE_bubble3d {(char *) "bubble3d", init_bubble3d, draw_bubble3d, release_bubble3d, draw_bubble3d, change_bubble3d, (ModeHook *) NULL, &bubble3d_opts, 20000, 1, 2, 1, 64, 1.0, (char *) "", (char *) "Richard Jones's GL bubbles", 0, NULL}, #endif #ifdef MODE_bug {(char *) "bug", init_bug, draw_bug, release_bug, refresh_bug, init_bug, (ModeHook *) NULL, &bug_opts, 75000, 10, 32767, -4, 64, 1.0, (char *) "", (char *) "Shows Palmiter's bug evolution and garden of Eden", 0, NULL}, #endif #ifdef MODE_cage {(char *) "cage", init_cage, draw_cage, release_cage, draw_cage, change_cage, (ModeHook *) NULL, &cage_opts, 80000, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows the Impossible Cage, an Escher-like GL scene", 0, NULL}, #endif #ifdef MODE_cartoon {"cartoon", init_cartoon, draw_cartoon, release_cartoon, NULL, init_cartoon, NULL, &cartoon_opts, 10000, 1, 1, 1, 64, 1.0, "", "Shows bouncing cartoons", 0, NULL}, #endif #ifdef MODE_clock {(char *) "clock", init_clock, draw_clock, release_clock, refresh_clock, init_clock, (ModeHook *) NULL, &clock_opts, 100000, -16, 200, -200, 64, 1.0, (char *) "", (char *) "Shows Packard's clock", 0, NULL}, #endif #ifdef MODE_coral {(char *) "coral", init_coral, draw_coral, release_coral, init_coral, init_coral, (ModeHook *) NULL, &coral_opts, 60000, -3, 1, 35, 64, 0.6, (char *) "", (char *) "Shows a coral reef", 0, NULL}, #endif #ifdef MODE_crystal {(char *) "crystal", init_crystal, draw_crystal, release_crystal, refresh_crystal, init_crystal, (ModeHook *) NULL, &crystal_opts, 60000, -500, 200, -15, 64, 1.0, (char *) "", (char *) "Shows polygons in 2D plane groups", 0, NULL}, #endif #ifdef MODE_daisy {(char *) "daisy", init_daisy, draw_daisy, release_daisy, refresh_daisy, init_daisy, (ModeHook *) NULL, &daisy_opts, 100000, 300, 350, 1, 64, 1.0, (char *) "", (char *) "Shows a meadow of daisies", 0, NULL}, #endif #ifdef MODE_dclock {(char *) "dclock", init_dclock, draw_dclock, release_dclock, refresh_dclock, init_dclock, (ModeHook *) NULL, &dclock_opts, 10000, 1, 10000, 1, 64, 0.3, (char *) "", (char *) "Shows a floating digital clock or message", 0, NULL}, #endif #ifdef MODE_decay {(char *) "decay", init_decay, draw_decay, release_decay, refresh_decay, init_decay, (ModeHook *) NULL, &decay_opts, 200000, 6, 30, 1, 64, 0.3, (char *) "", (char *) "Shows a decaying screen", 0, NULL}, #endif #ifdef MODE_deco {(char *) "deco", init_deco, draw_deco, release_deco, init_deco, init_deco, (ModeHook *) NULL, &deco_opts, 1000000, -30, 2, -10, 64, 0.6, (char *) "", (char *) "Shows art as ugly as sin", 0, NULL}, #endif #ifdef MODE_deluxe {(char *) "deluxe", init_deluxe, draw_deluxe, release_deluxe, refresh_deluxe, init_deluxe, (ModeHook *) NULL, &deluxe_opts, 5000, 5, 1, 1, 64, 1.0, (char *) "", (char *) "Shows pulsing sequence of stars, circles, and lines", 0, NULL}, #endif #ifdef MODE_demon {(char *) "demon", init_demon, draw_demon, release_demon, refresh_demon, init_demon, (ModeHook *) NULL, &demon_opts, 50000, 0, 1000, -7, 64, 1.0, (char *) "", (char *) "Shows Griffeath's cellular automata", 0, NULL}, #endif #ifdef MODE_dilemma {(char *) "dilemma", init_dilemma, draw_dilemma, release_dilemma, refresh_dilemma, init_dilemma, (ModeHook *) NULL, &dilemma_opts, 200000, -2, 1000, 0, 64, 1.0, (char *) "", (char *) "Shows Lloyd's Prisoner's Dilemma simulation", 0, NULL}, #endif #ifdef MODE_discrete {(char *) "discrete", init_discrete, draw_discrete, release_discrete, refresh_discrete, init_discrete, (ModeHook *) NULL, &discrete_opts, 1000, 4096, 2500, 1, 64, 1.0, (char *) "", (char *) "Shows various discrete maps", 0, NULL}, #endif #ifdef MODE_dragon {(char *) "dragon", init_dragon, draw_dragon, release_dragon, refresh_dragon, init_dragon, (ModeHook *) NULL, &dragon_opts, 2000000, 1, 16, -24, 64, 1.0, (char *) "", (char *) "Shows Deventer's Hexagonal Dragons Maze", 0, NULL}, #endif #ifdef MODE_drift {(char *) "drift", init_drift, draw_drift, release_drift, refresh_drift, init_drift, (ModeHook *) NULL, &drift_opts, 10000, 30, 1, 1, 64, 1.0, (char *) "", (char *) "Shows cosmic drifting flame fractals", 0, NULL}, #endif #ifdef MODE_euler2d {(char *) "euler2d", init_euler2d, draw_euler2d, release_euler2d, refresh_euler2d, init_euler2d, (ModeHook *) NULL, &euler2d_opts, 1000, 1024, 3000, 1, 64, 1.0, (char *) "", (char *) "Shows a simulation of 2D incompressible inviscid fluid", 0, NULL}, #endif #ifdef MODE_eyes {(char *) "eyes", init_eyes, draw_eyes, release_eyes, refresh_eyes, init_eyes, (ModeHook *) NULL, &eyes_opts, 20000, -8, 5, 1, 64, 1.0, (char *) "", (char *) "Shows eyes following a bouncing grelb", 0, NULL}, #endif #ifdef MODE_fadeplot {(char *) "fadeplot", init_fadeplot, draw_fadeplot, release_fadeplot, refresh_fadeplot, init_fadeplot, (ModeHook *) NULL, &fadeplot_opts, 30000, 10, 1500, 1, 64, 0.6, (char *) "", (char *) "Shows a fading plot of sine squared", 0, NULL}, #endif #ifdef MODE_fiberlamp {(char *) "fiberlamp", init_fiberlamp, draw_fiberlamp, release_fiberlamp, draw_fiberlamp, change_fiberlamp, (ModeHook *) NULL, &fiberlamp_opts, 10000, 500, 10000, 0, 64, 1.0, (char *) "", (char *) "Shows a Fiber Optic Lamp", 0, NULL}, #endif #ifdef MODE_fire {(char *) "fire", init_fire, draw_fire, release_fire, draw_fire, change_fire, (ModeHook *) NULL, &fire_opts, 10000, 800, 1, 0, 64, 1.0, (char *) "", (char *) "Shows a 3D fire-like image", 0, NULL}, #endif #ifdef MODE_flag {(char *) "flag", init_flag, draw_flag, release_flag, refresh_flag, init_flag, (ModeHook *) NULL, &flag_opts, 50000, 1, 1000, -7, 64, 1.0, (char *) "", (char *) "Shows a waving flag image", 0, NULL}, #endif #ifdef MODE_flame {(char *) "flame", init_flame, draw_flame, release_flame, refresh_flame, init_flame, (ModeHook *) NULL, &flame_opts, 750000, 20, 10000, 1, 64, 1.0, (char *) "", (char *) "Shows cosmic flame fractals", 0, NULL}, #endif #ifdef MODE_flow {(char *) "flow", init_flow, draw_flow, release_flow, refresh_flow, init_flow, (ModeHook *) NULL, &flow_opts, 1000, 1024, 10000, -10, 64, 1.0, (char *) "", (char *) "Shows dynamic strange attractors", 0, NULL}, #endif #ifdef MODE_forest {(char *) "forest", init_forest, draw_forest, release_forest, refresh_forest, init_forest, (ModeHook *) NULL, &forest_opts, 400000, 100, 200, 1, 64, 1.0, (char *) "", (char *) "Shows binary trees of a fractal forest", 0, NULL}, #endif #ifdef MODE_fzort {(char *) "fzort", init_fzort, draw_fzort, release_fzort, refresh_fzort, init_fzort, (ModeHook *) NULL, &fzort_opts, 10000, 1, 1000, 1, 64, 1.0, (char *) "", (char *) "Draws a metallic-looking fzort.", 0, NULL}, #endif #ifdef MODE_galaxy {(char *) "galaxy", init_galaxy, draw_galaxy, release_galaxy, refresh_galaxy, init_galaxy, (ModeHook *) NULL, &galaxy_opts, 100, -5, 250, -3, 64, 1.0, (char *) "", (char *) "Shows crashing spiral galaxies", 0, NULL}, #endif #ifdef MODE_gears {(char *) "gears", init_gears, draw_gears, release_gears, draw_gears, init_gears, (ModeHook *) NULL, &gears_opts, 50000, 1, 2, 1, 64, 1.0, (char *) "", (char *) "Shows GL's gears", 0, NULL}, #endif #ifdef MODE_glplanet {(char *) "glplanet", init_glplanet, draw_glplanet, release_glplanet, draw_glplanet, init_glplanet, (ModeHook *) NULL, &glplanet_opts, 15000, 1, 2, 1, 64, 1.0, (char *) "", (char *) "Animates texture mapped sphere (planet)", 0, NULL}, #endif #ifdef MODE_goop {(char *) "goop", init_goop, draw_goop, release_goop, init_goop, init_goop, (ModeHook *) NULL, &goop_opts, 10000, -12, 1, 1, 64, 1.0, (char *) "", (char *) "Shows goop from a lava lamp", 0, NULL}, #endif #ifdef MODE_grav {(char *) "grav", init_grav, draw_grav, release_grav, refresh_grav, init_grav, (ModeHook *) NULL, &grav_opts, 10000, -12, 1, 1, 64, 1.0, (char *) "", (char *) "Shows orbiting planets", 0, NULL}, #endif #ifdef MODE_helix {(char *) "helix", init_helix, draw_helix, release_helix, refresh_helix, init_helix, (ModeHook *) NULL, &helix_opts, 25000, 1, 100, 1, 64, 1.0, (char *) "", (char *) "Shows string art", 0, NULL}, #endif #ifdef MODE_hop {(char *) "hop", init_hop, draw_hop, release_hop, refresh_hop, init_hop, (ModeHook *) NULL, &hop_opts, 10000, 1000, 2500, 1, 64, 1.0, (char *) "", (char *) "Shows real plane iterated fractals", 0, NULL}, #endif #ifdef MODE_hyper {(char *) "hyper", init_hyper, draw_hyper, release_hyper, refresh_hyper, change_hyper, (ModeHook *) NULL, &hyper_opts, 100000, -6, 300, 1, 64, 1.0, (char *) "", (char *) "Shows spinning n-dimensional hypercubes", 0, NULL}, #endif #ifdef MODE_ico {(char *) "ico", init_ico, draw_ico, release_ico, refresh_ico, change_ico, (ModeHook *) NULL, &ico_opts, 200000, 0, 400, 0, 64, 1.0, (char *) "", (char *) "Shows a bouncing polyhedron", 0, NULL}, #endif #ifdef MODE_ifs {(char *) "ifs", init_ifs, draw_ifs, release_ifs, init_ifs, init_ifs, (ModeHook *) NULL, &ifs_opts, 1000, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows a modified iterated function system", 0, NULL}, #endif #ifdef MODE_image {(char *) "image", init_image, draw_image, release_image, refresh_image, init_image, (ModeHook *) NULL, &image_opts, 3000000, -20, 1, 1, 64, 1.0, (char *) "", (char *) "Shows randomly appearing logos", 0, NULL}, #endif #ifdef MODE_invert {(char *) "invert", init_invert, draw_invert, release_invert, draw_invert, init_invert, (ModeHook *) NULL, &invert_opts, 100, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows a sphere inverted without wrinkles", 0, NULL}, #endif #ifdef MODE_juggle {(char *) "juggle", init_juggle, draw_juggle, release_juggle, draw_juggle, change_juggle, (ModeHook *) NULL, &juggle_opts, 10000, 200, 1000, 1, 64, 1.0, (char *) "", (char *) "Shows a Juggler, juggling", 0, NULL}, #endif #ifdef MODE_julia {(char *) "julia", init_julia, draw_julia, release_julia, refresh_julia, init_julia, (ModeHook *) NULL, &julia_opts, 10000, 1000, 20, 1, 64, 1.0, (char *) "", (char *) "Shows the Julia set", 0, NULL}, #endif #ifdef MODE_kaleid2 {"kaleid2", init_kaleid2, draw_kaleid2, release_kaleid2, refresh_kaleid2, init_kaleid2, NULL, &kaleid2_opts, 20000, 1, 700, 1, 64, 1.0, "", "Shows a kaleidoscope", 0, NULL}, #endif #ifdef MODE_kaleid {(char *) "kaleid", init_kaleid, draw_kaleid, release_kaleid, refresh_kaleid, init_kaleid, (ModeHook *) NULL, &kaleid_opts, 80000, 4, 40, -9, 64, 0.6, (char *) "", (char *) "Shows a kaleidoscope", 0, NULL}, #endif #ifdef MODE_kumppa {(char *) "kumppa", init_kumppa, draw_kumppa, release_kumppa, init_kumppa, init_kumppa, (ModeHook *) NULL, &kumppa_opts, 10000, 1, 1000, 1, 64, 1.0, (char *) "", (char *) "Shows kumppa", 0, NULL}, #endif #ifdef MODE_lament {(char *) "lament", init_lament, draw_lament, release_lament, draw_lament, change_lament, (ModeHook *) NULL, &lament_opts, 10000, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows Lemarchand's Box", 0, NULL}, #endif #ifdef MODE_laser {(char *) "laser", init_laser, draw_laser, release_laser, refresh_laser, init_laser, (ModeHook *) NULL, &laser_opts, 20000, -10, 200, 1, 64, 1.0, (char *) "", (char *) "Shows spinning lasers", 0, NULL}, #endif #ifdef MODE_life {(char *) "life", init_life, draw_life, release_life, refresh_life, change_life, (ModeHook *) NULL, &life_opts, 750000, 40, 140, 0, 64, 1.0, (char *) "", (char *) "Shows Conway's game of Life", 0, NULL}, #endif #ifdef MODE_life1d {(char *) "life1d", init_life1d, draw_life1d, release_life1d, refresh_life1d, init_life1d, (ModeHook *) NULL, &life1d_opts, 10000, 1, 10, 0, 64, 1.0, (char *) "", (char *) "Shows Wolfram's game of 1D Life", 0, NULL}, #endif #ifdef MODE_life3d {(char *) "life3d", init_life3d, draw_life3d, release_life3d, refresh_life3d, change_life3d, (ModeHook *) NULL, &life3d_opts, 1000000, 35, 85, 1, 64, 1.0, (char *) "", (char *) "Shows Bays' game of 3D Life", 0, NULL}, #endif #ifdef MODE_lightning {(char *) "lightning", init_lightning, draw_lightning, release_lightning, refresh_lightning, init_lightning, (ModeHook *) NULL, &lightning_opts, 10000, 1, 1, 1, 64, 0.6, (char *) "", (char *) "Shows Keith's fractal lightning bolts", 0, NULL}, #endif #ifdef MODE_lisa {(char *) "lisa", init_lisa, draw_lisa, release_lisa, refresh_lisa, change_lisa, (ModeHook *) NULL, &lisa_opts, 25000, 1, 256, -1, 64, 1.0, (char *) "", (char *) "Shows animated lisajous loops", 0, NULL}, #endif #ifdef MODE_lissie {(char *) "lissie", init_lissie, draw_lissie, release_lissie, refresh_lissie, init_lissie, (ModeHook *) NULL, &lissie_opts, 10000, 1, 2000, -200, 64, 0.6, (char *) "", (char *) "Shows lissajous worms", 0, NULL}, #endif #ifdef MODE_loop {(char *) "loop", init_loop, draw_loop, release_loop, refresh_loop, init_loop, (ModeHook *) NULL, &loop_opts, 100000, -5, 1600, -12, 64, 1.0, (char *) "", (char *) "Shows Langton's self-producing loops", 0, NULL}, #endif #ifdef MODE_lyapunov {(char *) "lyapunov", init_lyapunov, draw_lyapunov, release_lyapunov, (ModeHook *) NULL, init_lyapunov, (ModeHook *) NULL, &lyapunov_opts, 25000, 600, 1, 1, 64, 1.0, (char *) "", (char *) "Shows lyapunov space", 0, NULL}, #endif #ifdef MODE_mandelbrot {(char *) "mandelbrot", init_mandelbrot, draw_mandelbrot, release_mandelbrot, (ModeHook *) NULL, init_mandelbrot, (ModeHook *) NULL, &mandelbrot_opts, 25000, -8, 20000, 1, 64, 1.0, (char *) "", (char *) "Shows mandelbrot sets", 0, NULL}, #endif #ifdef MODE_marquee {(char *) "marquee", init_marquee, draw_marquee, release_marquee, init_marquee, init_marquee, (ModeHook *) NULL, &marquee_opts, 100000, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows messages", 0, NULL}, #endif #ifdef MODE_matrix {(char *) "matrix", init_matrix, draw_matrix, release_matrix, refresh_matrix, change_matrix, (ModeHook *) NULL, &matrix_opts, 1000, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows the Matrix", 0, NULL}, #endif #ifdef MODE_maze {(char *) "maze", init_maze, draw_maze, release_maze, refresh_maze, init_maze, (ModeHook *) NULL, &maze_opts, 1000, 1, 3000, -40, 64, 1.0, (char *) "", (char *) "Shows a random maze and a depth first search solution", 0, NULL}, #endif #ifdef MODE_moebius {(char *) "moebius", init_moebius, draw_moebius, release_moebius, draw_moebius, change_moebius, (ModeHook *) NULL, &moebius_opts, 30000, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows Moebius Strip II, an Escher-like GL scene with ants", 0, NULL}, #endif #ifdef MODE_molecule {(char *) "molecule", init_molecule, draw_molecule, release_molecule, draw_molecule, init_molecule, (ModeHook *) NULL, &molecule_opts, 50000, 1, 20, 1, 64, 1.0, (char *) "", (char *) "Draws molecules", 0, NULL}, #endif #ifdef MODE_morph3d {(char *) "morph3d", init_morph3d, draw_morph3d, release_morph3d, draw_morph3d, change_morph3d, (ModeHook *) NULL, &morph3d_opts, 40000, 0, 1, 1, 64, 1.0, (char *) "", (char *) "Shows GL morphing polyhedra", 0, NULL}, #endif #ifdef MODE_mountain {(char *) "mountain", init_mountain, draw_mountain, release_mountain, refresh_mountain, init_mountain, (ModeHook *) NULL, &mountain_opts, 1000, 30, 4000, 1, 64, 1.0, (char *) "", (char *) "Shows Papo's mountain range", 0, NULL}, #endif #ifdef MODE_munch {(char *) "munch", init_munch, draw_munch, release_munch, init_munch, init_munch, (ModeHook *) NULL, &munch_opts, 5000, 1, 7, 1, 64, 1.0, (char *) "", (char *) "Shows munching squares", 0, NULL}, #endif #ifdef MODE_noof {(char *) "noof", init_noof, draw_noof, release_noof, draw_noof, init_noof, (ModeHook *) NULL, &noof_opts, 1000, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows SGI Diatoms", 0, NULL}, #endif #ifdef MODE_nose {(char *) "nose", init_nose, draw_nose, release_nose, refresh_nose, init_nose, (ModeHook *) NULL, &nose_opts, 100000, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows a man with a big nose runs around spewing out messages", 0, NULL}, #endif #ifdef MODE_pacman {(char *) "pacman", init_pacman, draw_pacman, release_pacman, refresh_pacman, change_pacman, (ModeHook *) NULL, &pacman_opts, 20000, 10, 1, 0, 64, 1.0, (char *) "", (char *) "Shows Pacman(tm)", 0, NULL}, #endif #ifdef MODE_penrose {(char *) "penrose", init_penrose, draw_penrose, release_penrose, init_penrose, init_penrose, (ModeHook *) NULL, &penrose_opts, 10000, 1, 1, -40, 64, 1.0, (char *) "", (char *) "Shows Penrose's quasiperiodic tilings", 0, NULL}, #endif #ifdef MODE_petal {(char *) "petal", init_petal, draw_petal, release_petal, refresh_petal, init_petal, (ModeHook *) NULL, &petal_opts, 10000, -500, 400, 1, 64, 1.0, (char *) "", (char *) "Shows various GCD Flowers", 0, NULL}, #endif #ifdef MODE_petri {(char *) "petri", init_petri, draw_petri, release_petri, refresh_petri, init_petri, (ModeHook *) NULL, &petri_opts, 10000, 1, 1, 4, 8, 1.0, (char *) "", (char *) "Shows a mold simulation in a petri dish", 0, NULL}, #endif #ifdef MODE_pipes {(char *) "pipes", init_pipes, draw_pipes, release_pipes, #if defined( MESA ) && defined( SLOW ) draw_pipes, #else change_pipes, #endif change_pipes, (ModeHook *) NULL, &pipes_opts, 1000, 2, 5, 500, 64, 1.0, (char *) "", (char *) "Shows a selfbuilding pipe system", 0, NULL}, #endif #ifdef MODE_polyominoes {(char *) "polyominoes", init_polyominoes, draw_polyominoes, release_polyominoes, refresh_polyominoes, init_polyominoes, (ModeHook *) NULL, &polyominoes_opts, 6000, 1, 8192, 1, 64, 1.0, (char *) "", (char *) "Shows attempts to place polyominoes into a rectangle", 0, NULL}, #endif #ifdef MODE_puzzle {(char *) "puzzle", init_puzzle, draw_puzzle, release_puzzle, init_puzzle, init_puzzle, (ModeHook *) NULL, &puzzle_opts, 10000, 250, 1, 1, 64, 1.0, (char *) "", (char *) "Shows a puzzle being scrambled and then solved", 0, NULL}, #endif #ifdef MODE_pyro {(char *) "pyro", init_pyro, draw_pyro, release_pyro, refresh_pyro, init_pyro, (ModeHook *) NULL, &pyro_opts, 15000, 100, 1, -3, 64, 1.0, (char *) "", (char *) "Shows fireworks", 0, NULL}, #endif #ifdef MODE_qix {(char *) "qix", init_qix, draw_qix, release_qix, refresh_qix, init_qix, (ModeHook *) NULL, &qix_opts, 30000, -5, 32, 1, 64, 1.0, (char *) "", (char *) "Shows spinning lines a la Qix(tm)", 0, NULL}, #endif #ifdef MODE_roll {(char *) "roll", init_roll, draw_roll, release_roll, refresh_roll, init_roll, (ModeHook *) NULL, &roll_opts, 100000, 25, 1, -64, 64, 0.6, (char *) "", (char *) "Shows a rolling ball", 0, NULL}, #endif #ifdef MODE_rotor {(char *) "rotor", init_rotor, draw_rotor, release_rotor, refresh_rotor, init_rotor, (ModeHook *) NULL, &rotor_opts, 100, 4, 100, -6, 64, 0.3, (char *) "", (char *) "Shows Tom's Roto-Rooter", 0, NULL}, #endif #ifdef MODE_rubik {(char *) "rubik", init_rubik, draw_rubik, release_rubik, draw_rubik, change_rubik, (ModeHook *) NULL, &rubik_opts, 100000, -30, 5, -6, 64, 1.0, (char *) "", (char *) "Shows an auto-solving Rubik's Cube", 0, NULL}, #endif #ifdef MODE_sballs {(char *) "sballs", init_sballs, draw_sballs, release_sballs, draw_sballs, change_sballs, (ModeHook *) NULL, &sballs_opts, 40000, 0, 10, 0, 64, 1.0, (char *) "", (char *) "Shows balls spinning like crazy in GL", 0, NULL}, #endif #ifdef MODE_scooter {(char *) "scooter", init_scooter, draw_scooter, release_scooter, refresh_scooter, change_scooter, (ModeHook *) NULL, &scooter_opts, 20000, 24, 3, 100, 64, 1.0, (char *) "", (char *) "Shows a journey through space tunnel and stars", 0, NULL}, #endif #ifdef MODE_shape {(char *) "shape", init_shape, draw_shape, release_shape, refresh_shape, init_shape, (ModeHook *) NULL, &shape_opts, 10000, 100, 256, 1, 64, 1.0, (char *) "", (char *) "Shows stippled rectangles, ellipses, and triangles", 0, NULL}, #endif #ifdef MODE_sierpinski {(char *) "sierpinski", init_sierpinski, draw_sierpinski, release_sierpinski, refresh_sierpinski, init_sierpinski, (ModeHook *) NULL, &sierpinski_opts, 400000, 2000, 100, 1, 64, 1.0, (char *) "", (char *) "Shows Sierpinski's triangle", 0, NULL}, #endif #ifdef MODE_sierpinski3d {(char *) "sierpinski3d", init_gasket, draw_gasket, release_gasket, draw_gasket, init_gasket, (ModeHook *) NULL, &gasket_opts, 1000, 1, 2, 1, 64, 1.0, (char *) "", (char *) "Shows GL's Sierpinski gasket", 0, NULL}, #endif #ifdef MODE_skewb {(char *) "skewb", init_skewb, draw_skewb, release_skewb, draw_skewb, change_skewb, (ModeHook *) NULL, &skewb_opts, 100000, -30, 5, 1, 64, 1.0, (char *) "", (char *) "Shows an auto-solving Skewb", 0, NULL}, #endif #ifdef MODE_slip {(char *) "slip", init_slip, draw_slip, release_slip, init_slip, init_slip, (ModeHook *) NULL, &slip_opts, 50000, 35, 50, 1, 64, 1.0, (char *) "", (char *) "Shows slipping blits", 0, NULL}, #endif #ifdef MODE_solitare {(char *) "solitare", init_solitare, draw_solitare, release_solitare, refresh_solitare, init_solitare, (ModeHook *) NULL, &solitare_opts, 2000000, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows Klondike's game of solitare", 0, NULL}, #endif #ifdef MODE_space {(char *) "space", init_space, draw_space, release_space, refresh_space, init_space, (ModeHook *) NULL, &space_opts, 10000, 100, 1, 1, 64, 1.0, (char *) "", (char *) "Shows a journey into deep space", 0, NULL}, #endif #ifdef MODE_sphere {(char *) "sphere", init_sphere, draw_sphere, release_sphere, refresh_sphere, init_sphere, (ModeHook *) NULL, &sphere_opts, 5000, 1, 20, 0, 64, 1.0, (char *) "", (char *) "Shows a bunch of shaded spheres", 0, NULL}, #endif #ifdef MODE_spiral {(char *) "spiral", init_spiral, draw_spiral, release_spiral, refresh_spiral, init_spiral, (ModeHook *) NULL, &spiral_opts, 5000, -40, 350, 1, 64, 1.0, (char *) "", (char *) "Shows a helical locus of points", 0, NULL}, #endif #ifdef MODE_spline {(char *) "spline", init_spline, draw_spline, release_spline, refresh_spline, init_spline, (ModeHook *) NULL, &spline_opts, 30000, -6, 2048, 1, 64, 0.3, (char *) "", (char *) "Shows colorful moving splines", 0, NULL}, #endif #ifdef MODE_sproingies {(char *) "sproingies", init_sproingies, draw_sproingies, release_sproingies, refresh_sproingies, init_sproingies, (ModeHook *) NULL, &sproingies_opts, 80000, 5, 0, 0, 64, 1.0, (char *) "", (char *) "Shows Sproingies! Nontoxic. Safe for pets and small children", 0, NULL}, #endif #ifdef MODE_stairs {(char *) "stairs", init_stairs, draw_stairs, release_stairs, draw_stairs, change_stairs, (ModeHook *) NULL, &stairs_opts, 200000, 0, 1, 1, 64, 1.0, (char *) "", (char *) "Shows some Infinite Stairs, an Escher-like scene", 0, NULL}, #endif #ifdef MODE_star {(char *) "star", init_star, draw_star, release_star, refresh_star, init_star, (ModeHook *) NULL, &star_opts, 75000, 100, 1, 100, 64, 0.3, (char *) "", (char *) "Shows a star field with a twist", 0, NULL}, #endif #ifdef MODE_starfish {(char *) "starfish", init_starfish, draw_starfish, release_starfish, init_starfish, init_starfish, (ModeHook *) NULL, &starfish_opts, 2000, 1, 1000, 1, 64, 1.0, (char *) "", (char *) "Shows starfish", 0, NULL}, #endif #ifdef MODE_strange {(char *) "strange", init_strange, draw_strange, release_strange, init_strange, init_strange, (ModeHook *) NULL, &strange_opts, 1000, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows strange attractors", 0, NULL}, #endif #ifdef MODE_superquadrics {(char *) "superquadrics", init_superquadrics, draw_superquadrics, release_superquadrics, refresh_superquadrics, init_superquadrics, (ModeHook *) NULL, &superquadrics_opts, 40000, 25, 40, 1, 64, 1.0, (char *) "", (char *) "Shows 3D mathematical shapes", 0, NULL}, #endif #ifdef MODE_swarm {(char *) "swarm", init_swarm, draw_swarm, release_swarm, refresh_swarm, init_swarm, (ModeHook *) NULL, &swarm_opts, 15000, -100, 1, -10, 64, 1.0, (char *) "", (char *) "Shows a swarm of bees following a wasp", 0, NULL}, #endif #ifdef MODE_swirl {(char *) "swirl", init_swirl, draw_swirl, release_swirl, refresh_swirl, init_swirl, (ModeHook *) NULL, &swirl_opts, 5000, 5, 1, 1, 64, 1.0, (char *) "", (char *) "Shows animated swirling patterns", 0, NULL}, #endif #ifdef MODE_t3d {(char *) "t3d", init_t3d, draw_t3d, release_t3d, refresh_t3d, init_t3d, (ModeHook *) NULL, &t3d_opts, 250000, 1, 60000, 1, 64, 1.0, (char *) "", (char *) "Shows a Flying Balls Clock Demo", 0, NULL}, #endif #ifdef MODE_tetris {(char *) "tetris", init_tetris, draw_tetris, release_tetris, refresh_tetris, change_tetris, (ModeHook *) NULL, &tetris_opts, 50000, 1, 1, -100, 64, 1.0, (char *) "", (char *) "Shows an autoplaying tetris game", 0, NULL}, #endif #ifdef MODE_text3d {(char *) "text3d", init_text3d, draw_text3d, release_text3d, refresh_text3d, change_text3d, (ModeHook *) NULL, &text3d_opts, 100000, 10, 1, 1, 64, 1.0, (char *) "", (char *) "Shows 3D text", 0, NULL}, #endif #ifdef MODE_text3d2 {(char *) "text3d2", init_text3d2, draw_text3d2, release_text3d2, refresh_text3d2, change_text3d2, (ModeHook *) NULL, &text3d2_opts, 100000, 10, 1, 1, 64, 1.0, (char *) "", (char *) "Shows 3D text", 0, NULL}, #endif #ifdef MODE_thornbird {(char *) "thornbird", init_thornbird, draw_thornbird, release_thornbird, refresh_thornbird, init_thornbird, (ModeHook *) NULL, þbird_opts, 1000, 800, 16, 1, 64, 1.0, (char *) "", (char *) "Shows an animated bird in a thorn bush fractal map", 0, NULL}, #endif #ifdef MODE_tik_tak {(char *) "tik_tak", init_tik_tak, draw_tik_tak, release_tik_tak, refresh_tik_tak, init_tik_tak, (ModeHook *) NULL, &tik_tak_opts, 60000, -20, 200, -1000, 64, 1.0, (char *) "", (char *) "Shows rotating polygons", 0, NULL}, #endif #ifdef MODE_toneclock {(char *) "toneclock", init_toneclock, draw_toneclock, release_toneclock, refresh_toneclock, init_toneclock, (ModeHook *) NULL, &toneclock_opts, 60000, -20, 200, -1000, 64, 1.0, (char *) "", (char *) "Shows Peter Schat's toneclock", 0, NULL}, #endif #ifdef MODE_triangle {(char *) "triangle", init_triangle, draw_triangle, release_triangle, refresh_triangle, init_triangle, (ModeHook *) NULL, &triangle_opts, 10000, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows a triangle mountain range", 0, NULL}, #endif #ifdef MODE_tube {(char *) "tube", init_tube, draw_tube, release_tube, (ModeHook *) NULL, init_tube, (ModeHook *) NULL, &tube_opts, 25000, -9, 20000, -200, 64, 1.0, (char *) "", (char *) "Shows an animated tube", 0, NULL}, #endif #ifdef MODE_turtle {(char *) "turtle", init_turtle, draw_turtle, release_turtle, init_turtle, init_turtle, (ModeHook *) NULL, &turtle_opts, 1000000, 1, 20, 1, 64, 1.0, (char *) "", (char *) "Shows turtle fractals", 0, NULL}, #endif #ifdef MODE_vines {(char *) "vines", init_vines, draw_vines, release_vines, refresh_vines, init_vines, (ModeHook *) NULL, &vines_opts, 200000, 0, 1, 1, 64, 1.0, (char *) "", (char *) "Shows fractals", 0, NULL}, #endif #ifdef MODE_voters {(char *) "voters", init_voters, draw_voters, release_voters, refresh_voters, init_voters, (ModeHook *) NULL, &voters_opts, 1000, 0, 327670, 0, 64, 1.0, (char *) "", (char *) "Shows Dewdney's Voters", 0, NULL}, #endif #ifdef MODE_wator {(char *) "wator", init_wator, draw_wator, release_wator, refresh_wator, init_wator, (ModeHook *) NULL, &wator_opts, 750000, 1, 32767, 0, 64, 1.0, (char *) "", (char *) "Shows Dewdney's Water-Torus planet of fish and sharks", 0, NULL}, #endif #ifdef MODE_wire {(char *) "wire", init_wire, draw_wire, release_wire, refresh_wire, init_wire, (ModeHook *) NULL, &wire_opts, 500000, 1000, 150, -8, 64, 1.0, (char *) "", (char *) "Shows a random circuit with 2 electrons", 0, NULL}, #endif #ifdef MODE_world {(char *) "world", init_world, draw_world, release_world, refresh_world, init_world, (ModeHook *) NULL, &world_opts, 100000, -16, 1, 1, 64, 0.3, (char *) "", (char *) "Shows spinning Earths", 0, NULL}, #endif #ifdef MODE_worm {(char *) "worm", init_worm, draw_worm, release_worm, refresh_worm, init_worm, (ModeHook *) NULL, &worm_opts, 17000, -20, 10, -3, 64, 1.0, (char *) "", (char *) "Shows wiggly worms", 0, NULL}, #endif #ifdef MODE_xcl {(char *) "xcl", init_xcl, draw_xcl, release_xcl, draw_xcl, init_xcl, (ModeHook *) NULL, &xcl_opts, 20000, -3, 1, 1, 64, 1.0, (char *) "", (char *) "Shows a control line combat model race", 0, NULL}, #endif #ifdef MODE_xjack {(char *) "xjack", init_xjack, draw_xjack, release_xjack, init_xjack, init_xjack, (ModeHook *) NULL, &xjack_opts, 50000, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows Jack having one of those days", 0, NULL}, #endif /* SPECIAL MODES */ #ifndef WIN32 {(char *) "blank", init_blank, draw_blank, release_blank, refresh_blank, init_blank, (ModeHook *) NULL, &blank_opts, 3000000, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows nothing but a black screen", 0, NULL}, #endif /* !WIN32 */ #ifdef MODE_run {(char *) "run", init_run, draw_run, release_run, refresh_run, init_run, (ModeHook *) NULL, &run_opts, 3000000, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows another xprogram", 0, NULL}, #endif #ifdef MODE_bomb {(char *) "bomb", init_bomb, draw_bomb, release_bomb, refresh_bomb, change_bomb, (ModeHook *) NULL, &bomb_opts, 100000, 10, 20, 1, 64, 1.0, (char *) "", (char *) "Shows a bomb and will autologout after a time", 0, NULL}, {(char *) "random", init_random, draw_random, release_random, refresh_random, change_random, (ModeHook *) NULL, &random_opts, 1, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows a random mode (except blank and bomb)", 0, NULL}, #else {(char *) "random", init_random, draw_random, release_random, refresh_random, change_random, (ModeHook *) NULL, &random_opts, 1, 1, 1, 1, 64, 1.0, (char *) "", (char *) "Shows a random mode (except blank)", 0, NULL}, #endif }; int numprocs = sizeof (LockProcs) / sizeof (LockProcs[0]); #else /* #ifndef USE_MODULES */ #include #include #include #include LockStruct *LockProcs = NULL; void **LoadedModules = NULL; /* save module handles to unload them later */ int numprocs = 0; /*- * I use a stack to save information about each module until they are * all loaded because I can not allocate LockProcs until I know how many * modules there are. */ typedef struct stack { struct stack *next; LockStruct *lock; void *mod; /* pointer to module */ } stack; /*- * compare function to use with qsort, to sort the list of modules * after loading them. */ static int lock_compare(const void *a, const void *b) { const LockStruct *A = *((LockStruct **) a), *B = *((LockStruct **) b); return strcmp(A->cmdline_arg, B->cmdline_arg); } /*- * Does tilde expansion on path, and expands any occurrence of %S to * the default modulepath. Returns a pointer to a static string * containing the expanded path. This will be overwritten by * subsequent calls to ExpandPath. */ static char * ExpandPath(char *path) { static char expandedpath[1024]; char *ep = expandedpath; if (path[0] == '~') { /* find homedir */ int i = 0; char user[128], *homedir; struct passwd *pw = NULL; path++; while (*path && *path != '/') user[i++] = *path++; user[i] = '\0'; if (user[0] == '\0') { /* get this user's homedir */ homedir = getenv("HOME"); if (!homedir) { /* try password entry */ pw = getpwuid(getuid()); if (!pw) { char *login = getlogin(); if (login) pw = getpwnam(login); } if (pw) homedir = pw->pw_dir; else return NULL; /* can't expand name */ } } else { /* refers to another user's home dir */ pw = getpwnam(user); if (pw) homedir = pw->pw_dir; else return NULL; } (void) strcpy(ep, homedir); ep += strlen(homedir); } /* if (path[0] .. */ while (*path) { switch (*path) { case '%': path++; switch (*path) { case 'S': *ep = '\0'; (void) strcat(ep, DEF_MODULEPATH); ep += strlen(DEF_MODULEPATH); break; case '%': *ep++ = *path++; break; default: path++; break; } default: *ep++ = *path++; break; } } *ep = '\0'; return expandedpath; } /*- * Loads screensaver modules in the directories in path. path is a * colon separated list of direcories to search in. LoadModules * searches for files ending in .xlk to load as modules. */ #define nextone (void) fprintf(stderr, "LoadModule: %s: %s\n", cpath, dlerror()); \ (void) dlclose(mp); \ free(newstack->lock); \ free(newstack); \ continue void LoadModules(char *path) { DIR *dp; struct stat st; struct dirent *ent; char cpath[128], *p, *thisp; stack *newstack, *head = NULL; int count = 0; if (path) { p = (char *) malloc(strlen(path) + 1); (void) strcpy(p, path); } else { p = (char *) malloc(1); p[0] = '\0'; (void) fprintf(stderr, "%s: LoadModules: modulepath is null\n", ProgramName); } for (thisp = strtok(p, ": \t"); thisp != NULL; thisp = strtok(NULL, ": \t")) { char *ep; ep = ExpandPath(thisp); if (ep == NULL) { (void) fprintf(stderr, "%s: LoadModules: Can not expand path - '%s'\n", ProgramName, thisp); continue; } else thisp = ep; dp = opendir(thisp); if (dp == NULL) { (void) fprintf(stderr, "%s: LoadModules: %s: %s\n", ProgramName, thisp, strerror(errno)); continue; } while ((ent = readdir(dp)) != NULL) { int len; void *mp; if ((len = strlen(ent->d_name)) > 4) { char *suf = &ent->d_name[len - 4]; /* check suffix */ if (strcmp(suf, ".xlk") != 0) continue; } else continue; (void) sprintf(cpath, "%s%s%s", thisp, (thisp[strlen(thisp) - 1] == '/') ? "" : "/", ent->d_name); if (stat(cpath, &st) != 0) { (void) fprintf(stderr, "%s: LoadModules: %s: %s\n", ProgramName, cpath, strerror(errno)); continue; } if (!S_ISREG(st.st_mode)) /* make sure it's not a directory */ continue; mp = dlopen(cpath, RTLD_NOW); /* load module */ if (mp == NULL) { (void) fprintf(stderr, "%s: LoadModule: %s: %s\n", ProgramName, cpath, dlerror()); continue; } else { char descsym[32]; ModStruct *desc; /* * The name of the description structure is formed by concatenating * the name of the module minus the .xlk suffix, and the string * "_description". */ (void) sprintf(descsym, "%.*s_description", len - 4, ent->d_name); desc = (ModStruct *) dlsym(mp, descsym); if (desc == NULL) { (void) fprintf(stderr, "LoadModule: %s: %s\n", descsym, dlerror()); (void) dlclose(mp); continue; } /* save information about module on stack. */ newstack = (stack *) malloc(sizeof (stack)); newstack->mod = mp; newstack->lock = (LockStruct *) malloc(sizeof (LockStruct)); newstack->lock->cmdline_arg = (char *) desc->cmdline_arg; if (desc->init_name != NULL) { newstack->lock->init_hook = (ModeHook *) dlsym(mp, (char *) desc->init_name); if (newstack->lock->init_hook == NULL) { nextone; } } else newstack->lock->init_hook = NULL; if (desc->callback_name != NULL) { newstack->lock->callback_hook = (ModeHook *) dlsym(mp, desc->callback_name); if (newstack->lock->callback_hook == NULL) { nextone; } } else newstack->lock->callback_hook = NULL; if (desc->release_name != NULL) { newstack->lock->release_hook = (ModeHook *) dlsym(mp, desc->release_name); if (newstack->lock->release_hook == NULL) { nextone; } } else newstack->lock->refresh_hook = NULL; if (desc->refresh_name != NULL) { newstack->lock->refresh_hook = (ModeHook *) dlsym(mp, desc->refresh_name); if (newstack->lock->refresh_hook == NULL) { nextone; } } else newstack->lock->refresh_hook = NULL; if (desc->change_name != NULL) { newstack->lock->change_hook = (ModeHook *) dlsym(mp, desc->change_name); if (newstack->lock->change_hook == NULL) { nextone; } } else newstack->lock->change_hook = NULL; if (desc->unused_name != NULL) { newstack->lock->unused_hook = (ModeHook *) dlsym(mp, desc->unused_name); if (newstack->lock->unused_hook == NULL) { nextone; } } else newstack->lock->unused_hook = NULL; newstack->lock->msopt = desc->msopt; newstack->lock->def_delay = desc->def_delay; newstack->lock->def_count = desc->def_count; newstack->lock->def_cycles = desc->def_cycles; newstack->lock->def_size = desc->def_size; newstack->lock->def_ncolors = desc->def_ncolors; newstack->lock->def_saturation = desc->def_saturation; newstack->lock->def_bitmap = (char *) desc->def_bitmap; newstack->lock->desc = (char *) desc->desc; newstack->lock->flags = desc->flags; newstack->lock->userdata = desc->userdata; newstack->next = head; head = newstack; count++; } /* if (mp == NULL) .. else */ } /* while ((ent = ...) */ (void) closedir(dp); } /* for (thisp = ... */ free(p); if (count > 0) { int i; stack *discard; LockStruct **locks; LoadedModules = (void **) malloc(count * sizeof (void *)); LockProcs = (LockStruct *) malloc(count * sizeof (LockStruct)); locks = (LockStruct **) malloc(count * sizeof (LockStruct *)); /* Copy module info from stack to locks array temporarily to * sort them. Then copy them to LockProcs. Also save module * handles in LoadedModules, to be used by UnloadModules() * later. */ for (i = 0; i < count; i++) { LoadedModules[i] = head->mod; locks[i] = head->lock; discard = head; head = head->next; free(discard); } (void) qsort((void *) locks, count, sizeof (LockStruct *), lock_compare); for (i = 0; i < count; i++) { (void) memcpy(&LockProcs[i], locks[i], sizeof (LockStruct)); free(locks[i]); } free(locks); } numprocs = count; } void UnloadModules() { int i; if (LoadedModules != NULL) { for (i = 0; i < numprocs; i++) (void) dlclose(LoadedModules[i]); free(LoadedModules); } if (LockProcs != NULL) free(LockProcs); } #endif /* #ifndef USE_MODULES ... #else */ /* -------------------------------------------------------------------- */ static LockStruct *last_initted_mode = (LockStruct *) NULL; static LockStruct *default_mode = (LockStruct *) NULL; /* -------------------------------------------------------------------- */ void set_default_mode(LockStruct * ls) { default_mode = ls; } /* -------------------------------------------------------------------- */ extern Bool description; static void set_window_title(ModeInfo * mi) { XTextProperty prop; char *buf; unsigned int status; buf = (char *) malloc(strlen(MI_NAME(mi)) + strlen(MI_DESC(mi)) + 3); (void) sprintf(buf, "%s: %s", MI_NAME(mi), MI_DESC(mi)); status = XStringListToTextProperty(&buf, 1, &prop); if (status != 0) { XSetWMName(MI_DISPLAY(mi), MI_WINDOW(mi), &prop); XFree((caddr_t) prop.value); } free(buf); if (MI_IS_ICONIC(mi) && description) { modeDescription(mi); } } /* -------------------------------------------------------------------- */ /*- * This hook is called prior to calling the init hook of a * different mode. It is to inform the mode that it is losing * control, and should therefore release any dynamically created * resources. */ void call_release_hook(LockStruct * ls, ModeInfo * mi) { if (ls == NULL) { return; } MI_LOCKSTRUCT(mi) = ls; if (ls->release_hook != NULL) { ls->release_hook(mi); } ls->flags &= ~(LS_FLAG_INITED); last_initted_mode = (LockStruct *) NULL; } void release_last_mode(ModeInfo * mi) { if (last_initted_mode == NULL) { return; } call_release_hook(last_initted_mode, mi); last_initted_mode = (LockStruct *) NULL; } /* -------------------------------------------------------------------- */ /*- * Call the init hook for a mode. If this mode is not the same * as the last one, call the release proc for the previous mode * so that it will surrender its dynamic resources. * A mode's init hook may be called multiple times, without * intervening release calls. */ void call_init_hook(LockStruct * ls, ModeInfo * mi) { if (ls == NULL) { if (default_mode == NULL) { return; } else { ls = default_mode; } } if (ls != last_initted_mode) { call_release_hook(last_initted_mode, mi); } MI_LOCKSTRUCT(mi) = ls; set_window_title(mi); ls->init_hook(mi); ls->flags |= LS_FLAG_INITED; MI_SET_FLAG_STATE(mi, WI_FLAG_JUST_INITTED, True); last_initted_mode = ls; } /* -------------------------------------------------------------------- */ /*- * Call the callback hook for a mode. This hook is called repeatedly, * at (approximately) constant time intervals. The time between calls * is controlled by the -delay command line option, which is mapped * to the variable named delay. */ void call_callback_hook(LockStruct * ls, ModeInfo * mi) { if (ls == NULL) { if (default_mode == NULL) { return; } else { ls = default_mode; } } MI_LOCKSTRUCT(mi) = ls; ls->callback_hook(mi); MI_SET_FLAG_STATE(mi, WI_FLAG_JUST_INITTED, False); } /* -------------------------------------------------------------------- */ /*- * Window damage has occurred. If the mode has been initted and * supplied a refresh proc, call that. Otherwise call its init * hook again. */ #define JUST_INITTED(mi) (MI_FLAG_IS_SET(mi, WI_FLAG_JUST_INITTED)) void call_refresh_hook(LockStruct * ls, ModeInfo * mi) { if (ls == NULL) { if (default_mode == NULL) { return; } else { ls = default_mode; } } MI_LOCKSTRUCT(mi) = ls; if (ls->refresh_hook == NULL) { /* * No refresh hook supplied. If the mode has been * initialized, and the callback has been called at least * once, then call the init hook to do the refresh. * Note that two flags are examined here. The first * indicates if the mode has ever had its init hook called, * the second is a per-screen flag which indicates * if the draw (callback) hook has been called since the * init hook was called for that screen. * This second test is a hack. A mode should gracefully * deal with its init hook being called twice in a row. * Once all the modes have been updated, this hack should * be removed. */ if (MODE_NOT_INITED(ls) || JUST_INITTED(mi)) { return; } call_init_hook(ls, mi); } else { ls->refresh_hook(mi); } } /* -------------------------------------------------------------------- */ /*- * The user has requested a change, by pressing the middle mouse * button. Let the mode know about it. */ void call_change_hook(LockStruct * ls, ModeInfo * mi) { if (ls == NULL) { if (default_mode == NULL) { return; } else { ls = default_mode; } } MI_LOCKSTRUCT(mi) = ls; if (ls->change_hook != NULL) { ls->change_hook(mi); } }