Journal

/A/ /M/A/G/N/I/F/I/C/E/N/T/ /P/L/A/C/E/ 

May 2009

09:45 Wednesday 27 May 2009

re_store_present

[img:no info]

I've just added re_store_present which details a series of BASH scripts I created yesterday and posted to Netbehaviour.org.

17:39 Wednesday 20 May 2009

crisp try2 (defun hopeless-newb()

  V V V V V V V      ooooooo   ooooo    8     8   oooo
  | | | | | | |      8  8  8   8    8    8   8   8   8
  \ \_\ | /_/ /      8  8      8    8     888    8   8
  (\(*)-+-(*)/)         8      8oooo       8       88
  (|`--_|_--'|)         8      8   8       8      8
   \   o=o   /  .....   8      8    8      8     8
    \ --+--./..:crisp:  8     o8o    8   8o8o8   8oooo
     \_____/    '''''

(defun hopeless-newb()##################################
####(if (is_a :language lisp) looks more like a database
####{###################################################
########if(looks_like("lisp","a computer programming####
########language and not a database")) return true;#####
########################################################
/*/practical common lisp*//////c/h/a/p/t/e/r/3//,,,,,,.
<<<<---#define LISPppppppppppppppppppppppp.............;
\*\i sptheak like pthis *\\\\\\\\\\\\\`````````````````
--------------------------------------------------------
(list :a 1 :b 2 :c 3 :d 4)))))))))))))))))))))))))))))))
*db**db**db**db**db**db**db**db**db**db**db**db**db**db*
(i don't (get_it) all these) parenthesis)sis)sis)sussed)
(code is data(data is could) be code is code) bus travel
(defun newb() closure function closes over it invariably
    (format t "Hello World!~%"))

[3]> (how-many #`pages (to-the :enlightenment)) ; ??????

*** - EVAL: undefined function HOW-MANY
The following restarts are available:
USE-VALUE      :R1      You may input a value to be used
RETRY          :R2      Retry
STORE-VALUE    :R3      You may input a new value for (F
ABORT          :R4      Abort main loop
Break 1 [4]> :(bye)
  

00:12 Wednesday 13 May 2009

a think pit ptr++; machine,

bool map_check_solved() in the factory where i work, it is very
{
red if(options->game){ noisy. everybody who enters the  factory
slugs   if(player.masks_collected==map->mask_count) floor    is
 think you  return (map->complete=TRUE); obliged  to  wear  ear
 hip    return (map->complete=FALSE); protection.  there  is  a
 you}
ass bool ret=TRUE; /* until proven otherwise */  dispenser   on
 at xg_word* wp=map->words; the wall, near the entrance,  where
why while(wp->word){ you turn a handle and foam ear plugs  drop
 felt   xy_t y=wp->pos.y; out. you squeeze these, while rolling
  sun   bool state=TRUE; /* until proven otherwise */ them   in
 podium map_t* ptr=wp->word; your fingers before  pushing  them
 lept   map_t* mptr=&map->data[y][wp->pos.x]; into each of your
  still while(*ptr&&state){ ears in turn.                      
 yelling.   if(*ptr!=*mptr){ ordinarily, fork-lift  trucks  are
shallow win a   ret=state=FALSE; plainly  audible  and   fairly
politics twin a break; visible, but when you are  inside  of  a
    tressle }
a think pit ptr++; machine, in a cramped  space,  hunched over,
lack string if(wp->dir==MV_DOWN) picking up rubbish,  you  have
cyclic pine nut mptr=&map->data[++y][wp->pos.x]; to trust  that
ampage sang else anybody outside of the machine is going to  be
what else did i mptr++; aware of your vulnerable position.  all
rummage }
colloid if(wp->unblock_ptr){ you can hear is the  sound  of the
colophon    if(!state){ other machines, beside the one  you are
sissy spacek    if(*wp->unblock_ptr==ICON_FLOOR) within,    all
collapsed svn trunk *wp->unblock_ptr=wp->block; you  can see is
haggard old }
   quantum  else{ the  inside of the machine,  and it  is  only
 semi-quaver    if(*wp->unblock_ptr==wp->block){ through   gaps
besaged soothing    *(wp->unblock_ptr)=ICON_FLOOR; you  can see
 roofpaste nail all #ifdef WITH_SOUND what  is  beyond.   i  am
hyper digger tyre   AG_sound_event(SND_WORD_SOLVED); angry  and
fled remark hiscore #endif saddened for being shouted and sworn
totem quad sent }
 pentagolem }
 ugly   }
 serif  if(state!=wp->state){ at. obvious, so obvious: the next
 sappling   wp->state=state; time  you   shut  a  person  in  a
 treasure   game_win_display(); machine,   please    have   the
 mug handle #ifdef MAPDEVMODE common  courtesy   to  tell  that
 flop tick  map_dump_solve_state(); person why you need to shut
 gun shred  #endif them in the machine before you do  so.  that
   hop  }
 kick   wp++; way nobody gets upset.
 one}
bed return (map->complete=ret);
}
  

22:33 Tuesday 12 May 2009

_MAP_H inside a machine

#ifndef _MAP_H at work today i was inside a
#define _MAP_H machine. i had been asked to

#include "types.h" clean out all  the waste
#include "defs.h" product,   by  a  setter,
#include "actions.h" before      production
#include <stdio.h> resumed.  to  enter,   i

typedef struct squeezed   between   plastic
{
    xy_t x; pipes and metal structure.
    xy_t y; it was arkward to get the  thin
}xy; plastic  lids into the rubbish bag due

typedef struct to  the  confined area where
{
    ss_t x; various  parts   of   machinary
    ss_t y; jutted into.  a while later the
}xy_offset; setter returned and told me  he

typedef struct would  open a side panel which i  might  be
{
    map_t*  word;       /* word as icons/map data       */
    xy      pos;        /* position of first letter     */
    su_t    dir;        /* direction of word            */
    bool    state;      /* solved yet?                  */
    xy      unblock_pos;/* unblock pos when solved      */
    map_t*  unblock_ptr;/* ptr to map data of coord     */
    map_t** word_ptr;   /* array of ptrs to map coords  */
    map_t   block; able to  squeeze  through to reach  the
}xg_word; remainder of the plastic lids unlucky enough  to

typedef struct have fallen  into the  machine  instead  of  continuing
{
    char*       filename; their journey along the production line  and
    char*       title; reaching the customer. i was getting hot inside
    ctr_t       max_moves;      /* max moves allowed to complete map*/
    su_t        width; the machine, and bothered too. I wanted to  get
    su_t        height; out of the machine as fast as I could. It  had
    map_t**     data; been a rather tight fit to  squeeze through  the
    xy          player[2];      /* initial positions            */
    xy          mappc[4];       /* coords of map piece 0 1 2 3  */
    xy          teleport[2];    /* positions, scanned           */
    su_t        level;          /* user's choice                */
    su_t        mask_count; panel and into the machine. it  was  dirty
    xg_word     words[MAX_WORDS_TO_SOLVE]; and oily in there.  i  left
    bool        complete; the panel open so I could throw the lids out
}xg_map; for i would not have been able to remove the rubbish bag if i

/*  the solutions take the form of:                             *
 *  1) a list of words                                          *
 *  2) a list of x,y positions for first letter of each word    *
 *  3) a list of directions right,down how each word should be  *
 *     placed.                                                  *
 *  (once the player has arranged letters such that these words *
 *   can be read at the respective positions in the map, then   *
 *   player can finish the level and go through the exit.)      */

extern xg_map* map; had  of  filled it  within the machine.    the

void xg_map_create(const char* title, int width,int height); panel
void xg_map_destroy(); kept closing and so i propped it open  with
void xg_map_load(su_t level); plasic lids. a short while later the

char* xg_map_load_read_name(su_t level); side panel  closed  again

/*  map_get_teleport checks the coordinates passed against
    those in the map->teleports array and returns 0 if
    coordinate is teleport 0, and 1 if coordinate is teleport
    1. returns 99 if coord is not a teleport.
*/
su_t map_get_teleport(xy_t x, xy_t y); and so i pushed it open and

void xg_map_apply_edging(); then it closed again  so i  pushed  it

bool is_wall(xy_t x, xy_t y); open and then it closed again  so  i

/*  test map against word solutions, return TRUE if all matches */
bool map_check_solved(); pushed it open and this  time  felt  that

#ifdef MAPDEVMODE somebody was trying to close it with me inside!!
void map_dump_solve_state(); i was rather worried it  was  someone
#endif who had not seen me  inside the machine  and was  going  to

#endif /* _MAP_H */ start it up with me inside!! So  I  pushed  it
open again. This time it flew open and an angry young face  stared
at me and shouted "we're trying to get past with the fork-lift! if
you push  this door  open again  i'll f##king crush  you in it!!!"
  

12:32 Saturday 9 May 2009

("Thf Mfbu Ppfu\n")

#!/bin/bash
# The Meat Poet
# By James W.
#     Morris
# save to the_meat_poet, and to run, type:
#     chmod +x the_meat_poet
#     ./the_meat_poet
OCFILE="the_meat_poet.c"
cat > $OCFILE <<END_OF_CUT
#include<stdio.h>
/* The Meat Poet *
 * By James      *
 *     W. Morris */
int main(void)
{
    printf("Thf Mfbu Ppfu\n");
    printf("\tPpfuiy\n");
END_OF_CUT
IND="    "
PF="${IND}printf(\""
EL="\n\");"
echo "${PF}Subnebse Inqvu/Ovuqvu$EL" >> $OCFILE
echo "${PF}Ppvu tubnet in fps uppu uppu$EL" >> $OCFILE
echo "${PF}Flpvu uhf sinnfe pf gspvu clvuf$EL" >> $OCFILE
echo "${PF}Hpx't uhf tin(pf gsffn thpput)?\n$EL" >> $OCFILE
cat >> $OCFILE <<OFF_THE_BONE
    printf("Off uhf cpnf, bll blpnf...$EL
    printf("Rpvne uhf dpnf, tqffey uhspnf...$EL
    printf("Fpsmbu tusing upmf, gspbn...\n$EL
OFF_THE_BONE
# W-e- D-o-n-t- N-e-e-d- N-o- I-t-e-r-a-t-i-o-n-s-
# All in all - we're just another bit in the -Wall
echo "/* void type sly pipe fly like might brine   *" >>$OCFILE
echo " * bringing brimming blinging binging hinges *" >>$OCFILE
echo " * no don't give nothing back.               */">>$OCFILE
echo "${PF}I give you nothing in return.\n$EL"        >>$OCFILE
echo "${IND}return 0;">>$OCFILE
echo "}" >> $OCFILE
echo "Bashed been binned."
BIN=the_poet_met
gcc -Wall -o $BIN $OCFILE
./$BIN | tr b-f a-e | tr p-y o-x
cat $OCFILE | grep -n [*]
rm $BIN $OCFILE -v
  

12:20 Saturday 9 May 2009

return wellington}

I pushed_process_new_pos( through
"pushed object strata
PLAY_STATE&actions[*enumeration reflexively
{ xor_move* if(omv) reductionist state
#endif oral tradition.

although action->xor_PUSH){ is supple enough
create_gravity_chain(cont&CT_action*) and barter
action=omv->from_map]; via tendril scope.

* not if printf( & an object MOVE_DEBUG conditions *
#ifdef mvini==MVI_GRAVITY){ stare hastily
if(action->CT_PUSH\n"); pretend it did not
pushed onto it. pushed stifling silence
return PLAY_PROCESS_MOVE; to renderer, the moon.

/* detects the same two free(omv); circus fracture
move_gravity_process(* below, having them there);
also, printf("pushed object & #ifdef MOVE_DEBUG
detonate action->mvi_dir; burrow underground

creates the correct behaviour...
politely policing policies
create_gravity_chain(*bomb xmvlist_create(fear);
if(if an object has gravitated onto it, CT_HARDPUSH\n");
stereoscopic cranial float

free(* a should only *); but never once, doubt

omv was omv->dir=*/ violence

return if(xmvlist_append_xor_move(testicle))
move_object_init({omv)==CT_PASS){ flotilla
omv omv); mars rover
PLAY_PROCESS_MOVE;}}} vacuuming detachment

return when and if(action->cont&CT_HARDPUSH){
"non gravitating or hard-pusha\n" please nicely
PLAY_PROCESS_MOVE; process return groove}.

move_hard_push(#endif omv fragrance);
if(==)action->mvini{MVI_GRAVITY->dir=omv
solicit rare stamps.

action->mvi_dir;
{if(==)CT_PASS(omv)
move_object_init if horoscope permits
(create_gravity_chain)
{(omv) not now.


xmvlist_create(xmvlist_append_xor_move);
(omv);(omv);PLAY_PROCESS_MOVE; fidgeting.

move_gravity_process(}}}MOVE_DEBUG);
#ifdef free return fillet}
printf(#endif potatoes);
PLAY_PROCESS_MOVE;
return wellington}
  

Information

"Journal"

A page detailing new stuff and other random noise.

The journal is a general place for writing about what I am doing, or for making more official announcements concerning the things I do. It's also a place where I can write freely about my ideas, or just play with words and language.

DISCLAIMER: The opinions and attitudes of James W. Morris as expressed here in the past may or may not accurately reflect the opinions and attitudes of James W. Morris at present, moreover, they may never have.

this page last updated:29th April 2013 jwm-art.net (C) 2003 - 2017 James W. Morris

script time:0.0647