Code: Select all

--- hegcc.orig	2014-11-26 20:03:42.000000000 -0600
+++ hegcc.c	2014-11-26 20:11:15.000000000 -0600
@@ -162,7 +162,13 @@
         }
         else strcpy(fname,file);
 
-        if (strcmp(dir, "") && fname[0]=='/') strcpy(fname, fname+1);
+        if (strcmp(dir, "") && fname[0]=='/') {
+	  int i = 0;
+	  while(1) {
+	    fname[i]=fname[++i];
+	    if (fname[i] == '\0') break;
+	  }
+	}
 }

Code: Select all

--- hccomp.c.orig	2014-11-26 19:42:06.000000000 -0600
+++ hccomp.c	2014-11-26 19:53:39.000000000 -0600
@@ -317,6 +317,7 @@
 void CompilerMem(void)
 {
 	char e[64];
+	char buffer[256];
 
 	strcpy(e, "");

Code: Select all

(lldb) bt
* thread #1: tid = 0x7e19f, 0x00007fff9034e286 libsystem_kernel.dylib`__pthread_kill + 10, queue = 'com.apple.main-thread', stop reason = signal SIGABRT
  * frame #0: 0x00007fff9034e286 libsystem_kernel.dylib`__pthread_kill + 10
    frame #1: 0x00007fff9247542f libsystem_pthread.dylib`pthread_kill + 90
    frame #2: 0x00007fff8cb65b53 libsystem_c.dylib`abort + 129
    frame #3: 0x00007fff8cb65cca libsystem_c.dylib`abort_report_np + 181
    frame #4: 0x00007fff8cb8bdb0 libsystem_c.dylib`__chk_fail + 48
    frame #5: 0x00007fff8cb8bdc0 libsystem_c.dylib`__chk_fail_overlap + 16
    frame #6: 0x00007fff8cb8bde2 libsystem_c.dylib`__chk_overlap + 34
    frame #7: 0x00007fff8cb8c117 libsystem_c.dylib`__strcat_chk + 81
    frame #8: 0x0000000100016cf9 hc`CompilerMem + 217 at hccomp.c:332
    frame #9: 0x0000000100017766 hc`Pass1 + 422 at hcpass.c:91
    frame #10: 0x0000000100000dbb hc`main(argc=2, argv=0x00007fff5fbffb50) + 171 at hc.c:64
    frame #11: 0x00007fff8ca9f5c9 libdyld.dylib`start + 1

Code: Select all

                        strcpy(buffer, word[1]);
                        strcat(buffer, word[2]);
                        strcat(buffer, word[3]);
                        word[1] = buffer;
                        words = 1;

Code: Select all

    frame #7: 0x00007fff8cb8bfbf libsystem_c.dylib`__strcpy_chk + 64
    frame #8: 0x000000010001a8e1 he`hugo_splitpath(path=0x00007fff5fbffc48, drive=0x00007fff5fbff9f0, dir=0x00007fff5fbff8f0, fname=0x00007fff5fbff7f0, ext=0x00007fff5fbff6f0) + 849 at hegcc.c:165

Code: Select all

        if (strcmp(dir, "") && fname[0]=='/') strcpy(fname, fname+1);

Code: Select all

     The source and destination strings should not overlap, as the behavior is undefined.

Code: Select all

        if (strcmp(dir, "") && fname[0]=='/') {
          int i = 0;
          while(1) {
            fname[i]=fname[++i];
            if (fname[i] == '\0') break;
          }
        }

Code: Select all

adam@i7-wired:~/Documents/src/hugo/hugo-unix$ ./hc
HUGO COMPILER v3.1.04 by Kent Tessman (c) 1995-2006
The General Coffee Company Film Productions
Unix port by Bill Lash

SYNTAX:   ./hc [options] sourcefile [objectfile[.HEX]]
OPTIONS&#58;  -<switches>  $<limit>  #<compiler>  @<directory>

SWITCHES&#58;
  -a  Abort on first error                -d  build .HDX Debuggable executable
  -f  Full object summaries               -h  generate .HLB precompiled Header
  -i  print debugging Information         -l  List compilation output to disk
  -o  display Object tree                 
  -s  display compilation Statistics      -t  Text to .LST for spellchecking
  -u  show memory Usage for objectfile    -v  Verbose compilation
  -w  Write objectfile despite errors     -x  override switches in source code

LIMIT SETTINGS&#58;  $<setting>=<new> &#40;or $list to view&#41;
DIRECTORIES&#58;     @<directory>=<actual> &#40;or @list to view&#41;

Code: Select all

global variable_A = "red" ! start pointing to "red" 

routine SetThemVariables
{
   local variable_B = 5 ! equals 5
   local variable_C, variable_D ! some local variables without starting values
   variable_A = "blue" ! now points to "blue"
   variable_B = 10 ! now equals 10

   print variable_A ! should print "blue"
   print number variable_B ! should print "10"
}

Code: Select all

GetInput("type your answer>")

Code: Select all

routine GetKey
{
    local key
    pause ! pauses the game, waits for keypress
             ! (the keypress gets sent to word[0]
    key = word[0]
    select key
        case 'a','A' : "The player typed A."
        case 'b','B' : "The player typed B."
        case else : "And so on."
}