Free Hero Mesh

* README: This file. Describes how to find the Fossil repository, the
installation, documentation, discussion/community.

* bindings.doc: Describes the configuration of key/mouse bindings.

* class.doc: This document describes the Free Hero Mesh programming
language. Read this if you want to define your own classes of objects.

* codepage.doc: Describes the use of code pages and the file format of the
codepage.har file.

* commandline.doc: Describes the command-line arguments. The man page
also describes the command-line arguments, although the commandline.doc
file has a more elaborate description.

* config.doc: Describes the configuration options for Free Hero Mesh.

* export.doc: The level export format is described in this file; it can
be used for importing as well as exporting.

* man6/heromesh.6: Man page; includes information about command-line
arguments, environment variables, and link to further documentation.

* man6/heromesh.str: Must be installed in the same directory as the
man6/heromesh.6 file. The distributor should change this to point to
the correct directories where the files are stored; these directories
will be mentioned in the man page

* misc/mbform.doc: Describes the .mb file format for Hero Mesh. (Not
directly relevant to Free Hero Mesh. It contains information that was
used for writing the converter, and may be of interest to some readers
for other purposes, but is neither used nor does it contain anything
that is needed for users or developers of Free Hero Mesh.)

* picedit.doc: Describes the picture editor.

* puzzleset.doc: Describes wat makes up a puzzle set.
* puzzleset.doc: Describes what makes up a puzzle set.

* sql.doc: This file lists and documents each of the SQL functions and SQL
tables that are available. This is not relevant to programming the rules
of the game; it is used for user customization.


=== Other files ===

Free Hero Mesh also includes the following other files, which are not the
source code files, compilation files, or documentation files:

* codepage.har: Contains fonts for code pages. Code page 437 is included
inside of the executable file and does not need this file; this file is
only needed for code pages other than 437.

* default.heromeshrc: An example configuration file which you can customize
for your own use. You should at least set the proper paths to the files.

* mbtofhm.c: Converter from Everett Kaser's MESH engine into Free Hero
Mesh. Give the base name of the output files as the command-line argument,
and receives the .mb file from stdin.

* misc/har.c: A small C program for dealing with Hamster archives. This is
not properly a part of Free Hero Mesh (and is not needed in order to use
or compile Free Hero Mesh), but is included since it is likely to be useful
for some users.

* misc/sokoban.tar.gz: Example puzzle set.

(The files in the misc/ directory are not part of Free Hero Mesh nor are
they needed by Free Hero Mesh, but are provided for convenience. They can
safely be ignored or deleted if you are not using them.)


=== Community/discussion ===

For discussion of Free Hero Mesh, use the NNTP server. This is a newsgroup
in the zzo38computer.org NNTP server, named:

  un2.org.zzo38computer.soft.freeheromesh

#if 0
gcc -s -O2 -o ~/bin/har -Wno-unused-result har.c
exit
#endif

/*
  Hamster archiver
  Public domain

  c = Create
  d = Delete
  l = Lowercase
  o = Extract to stdout
  r = Rename
  s = Safe
  t = List
  u = Uppercase
  x = Extract
*/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define fatal(...) do { fprintf(stderr,__VA_ARGS__); putchar('\n'); exit(1); } while(0)

static const char safe[128]={
  [0]=1,
  ['0'...'9']=1,
  ['A'...'Z']=1,
  ['a'...'z']=1,
  ['-']=1,
  ['_']=1,
  ['.']=1,
  ['/']=1,
  ['+']=1,
};

static char opt[128];
static char name[256];
static unsigned long size;
static int argc;
static char**argv;

static void process_lump(int a) {
  int n=0;
  int d=1;
  int c,o;
  FILE*fp;
  FILE*in;
  if(opt['c']) {
    strcpy(name,argv[a]);
    in=fopen(argv[a+opt['r']],"r");
    if(!in) {
      perror(argv[a+opt['r']]);
      fatal("Cannot open file for input");
    }
    if(opt['u']) {
      for(n=0;name[n];n++) if(name[n]>='a' && name[n]<='z') name[n]+='A'-'a';
    } else if(opt['l']) {
      for(n=0;name[n];n++) if(name[n]>='A' && name[n]<='Z') name[n]+='a'-'A';
    }
    fseek(in,0,SEEK_END);
    size=ftell(in);
    fseek(in,0,SEEK_SET);
    o=1;
  } else {
    in=stdin;
    for(;;) {
      c=fgetc(stdin);
      if(c==EOF) exit(0);
      if(opt['u'] && c>='a' && c<='z') c+='A'-'a'; else if(opt['l'] && c>='A' && c<='Z') c+='a'-'A';
      if(opt['s']) {
        if(c=='/') d=1; else if(c && c!='.') d=0;
        if((c&~127) || !safe[c] || (c=='.' && n && name[n-1]=='.') || (c=='/' && d)) c='_';
      }
      name[n++]=c;
      if(!c) break;
      if(n==254) fatal("Name too long: %s",name);
    }
    if(opt['s']) {
      if(!n) name[1]=0,n=1;
      if(d) name[n-1]='_';
    }
    size=fgetc(stdin)<<16;
    size|=fgetc(stdin)<<24;
    size|=fgetc(stdin);
    size|=fgetc(stdin)<<8;
    if(argc<3) {
      o=1;
    } else {
      o=0;
      for(n=2;n<argc;n++) {
        if(!strcmp(name,argv[n])) {
          o=1;
          if(opt['r'] && ++n<argc) strcpy(name,argv[n]);
          break;
        }
        if(opt['r']) n++;
      }
    }
    if(opt['d']) o=!o;
  }
  if(o && opt['t']) {
    puts(name);
    o=0;
  }
  if(o) {
    if(opt['x']) {
      fp=fopen(name,"w");
      if(!fp) {
        perror(name);
        fatal("Cannot open file for output");
      }
    } else {
      fp=stdout;
      if(!opt['o']) {
        fwrite(name,1,strlen(name)+1,stdout);
        putchar(size>>16);
        putchar(size>>24);
        putchar(size);
        putchar(size>>8);
      }
    }
    while(size--) fputc(fgetc(in),fp);
    if(opt['x']) fclose(fp);
  } else {
    while(size--) fgetc(in);
  }
  if(opt['c']) fclose(in);
}

int main(int Argc,char**Argv) {
  char*t;
  int a;
  argc=Argc;
  argv=Argv;
  if(argc>1) for(t=argv[1];*t;) opt[*t++&127]=1;
  if(opt['c']) {
    for(a=2;a<argc;a+=opt['r']+1) process_lump(a);
  } else {
    for(;;) process_lump(0);
  }
  return 0;
}