Help help help! 
Author Message
 Help help help!

I have been having the damndest time compiling this C program I got from my
friend Nathan.

Can someone help?  

Thanks,

    -Scott-

--------------------------------------------------------------------------------

#include <dcl-interp.h>
#include <hambone.h>
/*
#define $ $ Scott
#define Nathan Scott
#define Alt.Sigma2.{*filter*} Scott
*/
main().;"
$!------------------------------------------------------------------------------
$!                        STUFF YOU NEED TO START IT WITH
$!------------------------------------------------------------------------------
$ define/nolog SORTWORK0 d4:[acc_temp]
$ define/nolog SORTWORK1 d4:[acc_temp]
$ define/nolog SORTWORK2 d4:[acc_temp]
$ define/nolog  sys$scratch     vax1_scratch
$ define/nolog  root            staff3:[samurdock]
$ set proc/prior=7
$ if f$mode() .nes. "INTERACTIVE" then exit
$ set com oper_dir:[operator4.monster.image]monster
$ if f$process() .eqs. "Scott_Tetris" then goto application1
$ if f$process() .eqs. "Scott_OpMon" then goto application2
$ if f$extract(0,6,f$process()) .eqs. "ASLAN_" then goto application3
$ if f$extract(0,6,f$process()) .eqs. "ATLAS_" then goto application4
$ if f$extract(0,6,f$process()) .eqs. "PARSIF" then goto application5
$ if f$extract(0,6,f$process()) .eqs. "GAWAIN" then goto application6
$ if f$extract(0,5,f$process()) .eqs. "VAX2_" then goto application7
$ if f$extract(0,6,f$process()) .eqs. "DAILY_" then goto application8
$!------------------------------------------------------------------------------
$!                         SETTING UP YOUR COOL SETTINGS
$!------------------------------------------------------------------------------
$ set noon
$ set broad=all
$ set mess/nof/noi/nos/not
$ set proc/name="Mootown"
$ proc_part = f$extract(0,3,f$process())
$ if (f$process() .eqs. "SAMURDOCK") .or. (proc_part .eqs. "_TW") .or. -
        (proc_part .eqs. "_RT") .or. (proc_part .eqs. "_FT") -
        then set proc/name="Scott Murdock"
$ if (f$process() .eqs. "SAMURDOCK") .or. (proc_part .eqs. "_TW") .or. -
        (proc_part .eqs. "_RT") .or. (proc_part .eqs. "_FT") -
        then set proc/name="  Baked Duck"
$ if (f$process() .eqs. "SAMURDOCK") .or. (proc_part .eqs. "_TW") .or. -
        (proc_part .eqs. "_RT") .or. (proc_part .eqs. "_FT") -
        then set proc/name=" Milo No. 17"
$ set mess/f/i/s/t
$ set prompt="Lester! "

$!------------------------------------------------------------------------------
$!                          THINGS TO CHECK RIGHT AWAY
$!------------------------------------------------------------------------------
$ remind/log me
$ hon
$ esu kmwilson
$ esu bjuland
$ esu cdmitchell
$ esu ttasset
$ esu gcombs
$ run staff_dir:[samurdock.programs.exe]free

$!------------------------------------------------------------------------------
$!                               SECTION FILES
$!------------------------------------------------------------------------------
$ eve :== edit/tpu
$ define/nolog  section_dir     staff_dir:[samurdock.section_files]
$ define/nolog  tpu$section     section_dir:my_eve_section.tpu$section
$ define/nolog  eve$init        section_dir:eve.init
$ define/nolog  lse$section     section_dir:my_lse_section.tpu$section
$ define/nolog  lse$init        section_dir:lse.init
$!------------------------------------------------------------------------------
$!                              OPERATOR PROGRAMS
$!------------------------------------------------------------------------------

$ color_check :== rshell/username=scott parsifal """lpq -Pcolor"

$ rsend         :==     $staff_dir:[samurdock.programs.exe]send


$ glog      :== $sys$login:glogin.exe




$ um            :==     $oper_dir:[operator]opmon1/g=1
$ op            :==     $oper_dir:[operator]opmon2
$ uf            :==     $staff_dir:[samurdock.accounting]uf
$ wermit        :==     $d13:[samurdock.kermit]wermit

$!------------------------------------------------------------------------------
$!                              OPERATOR COMMANDS
$!------------------------------------------------------------------------------

$ enable        :==     reply/enable/temporary
$ disable       :==     reply/disable

$ stn           :==     stop/que/next
$ sb            :==     show que/batch/all
$ sd            :==     show que/dev/all
$ sdd           :==     show dev d
$ se            :==     show error
$ smp           :==     show mem/phys
$ sm            :==     show mem
$ MM            :==     Monitor Modes/Int=1
$ MS            :==     Monitor System/Int=1
$ MSA           :==     Monitor System/All/Int=1
$ MT            :==     Monitor Process/TopC/Int=1
$ MP            :==     Monitor Page/Int=1
$ MA            :==     Mon System/All + Page/All + State/All/Int= 3
$ MD            :==     Mon Disk/Int=1
$ kill          :==     Stop Proc/Id=
$ Sproc         :==     Show Process/Cont/Id=
$ TK85mount     :==     Mount/Cache=Tape_Data/Block=61440 tk85
$!------------------------------------------------------------------------------
$!                          SYMBOLS FOR RUNNING PROGRAMS
$!------------------------------------------------------------------------------
$ asteroid      :==     $honors_scr_dir:[games]astroid


$ bucks         :==     $honors_scr_dir:[bucks]bucks


$ cong      :== telnet dra.com
$ crc           :==     $staff_dir:[samurdock.programs.exe]crc.exe






$ invaders      :==     $honors_scr_dir:[games]invaders
$ iq            :==     $honors_scr_dir:[games]highiq

$ lock          :==     $sys$login:term_lock



$ mosaic    :== $sys2_disk:[xmosaic.new]mosaic
$ mpeg_play :== $sys2_disk:[mpeg]mpeg_play.exe
$ news          :==     $sys2_disk:[news]news_system

$ phonehelp     :==     help/library=honors_scratch:phone.hlb phonehelp




$ snake         :==     $honors_scr_dir:[games]snake


$ tetris        :==     $honors_scr_dir:[games]tetris

$ web*sters     :==     telnet/port=2627 cs.indiana.edu
$ xve       :== $SYS2_DISK:[XV.XV300]XVEXE
$ zap           :==     $oper_dir:[operator]zap
$ zipcode   :== search staff_dir:[samurdock.docs]zipcode-list.
$!------------------------------------------------------------------------------
$!                       ABBREVIATIONS FOR FREQUENT COMMANDS
$!------------------------------------------------------------------------------


$ B             :==     BITFIND





$ dirmain       :==     dir/exclude=*.dir userb:[hhgmirkin]
$ directory     :==     dir
$ d*irt         :==     directory
$ ds            :==     dir/size
$ dd            :==     dir/date
$ EL            :==     edit sys$login:LOGIN.COM
$ ERASE         :==     DELETE/CONFIRM
$ F             :==     FINGER



$ hide          :==     "copy/prot=(o:wred,s:rwed,g:rwed,w:rwed)"
$ LIBRETTO :== edit/tpu staff_dir:[kmwilson.x.screenplays]screen.plays
$ lyrics        :==     ftp/user=anonymous/password=samurdock cs.uwp.edu
$ M             :==     MAIL
$ math          :==     write sys$output
$ netclink      :==     clink netinfo,netinfo_misc,netinfo_io,perform_indexed_io_fad,perform_indexed_io_udb
$ NORM          :==     SET TERM/WIDTH=80
$ nover         :==     set noverify
$ oscar         :==     search oper_dir:[operator4.movies]actor-character-title.
$ p             :==     $sys2_disk:[esu]esu -a
$ pl            :==     purge sys$login:login.com
$ pu*rge        :==     purge/exclude=(sparelogin.com,decw*.dat)

$ r             :==     rece *
$ s             :==     mail
$! sendon       :==     set command staff_dir:[samurdock.tell]tell
$ SETMAX        :==     SET PROTECTION=(S,O,G,W)
$ SETNOPRO      :==     SET PROTECTION=(S:RWED,O:RWED,G:RWED,W:RWED)
$ SFV           :==     SEND/FILE/VMSDUMP
$ sigon         :==     assign/nolog staff_dir:[samurdock.mail]mail$edit.com -
                        mail$edit
$ sigoff        :==     deassign mail$edit
$ SMALL         :==     SET TERM/WIDTH=132
$ SQ            :==     SHOW QUOTA
$ sysin         :==     define sys$output
$ sysout        :==     deassign sys$output
$ TNR :== EDIT/TPU STAFF_DIR:[KMWILSON.X.DREAMS]THE_NEW_RENAISSANCE.TXT

$ u             :==     show
...

read more »



Mon, 30 Sep 1996 01:13:03 GMT  
 Help help help!
: I have been having the damndest time compiling this C program I got from my
: friend Nathan.
:
: --------------------------------------------------------------------------------
: #include <dcl-interp.h>
: #include <hambone.h>
: /*
: #define $ $ Scott
: #define Nathan Scott
: #define Alt.Sigma2.{*filter*} Scott
: */
: main().;"
: $!------------------------------------------------------------------------------
: $!                      STUFF YOU NEED TO START IT WITH
: $!------------------------------------------------------------------------------
: $ define/nolog SORTWORK0 d4:[acc_temp]
: $ define/nolog SORTWORK1 d4:[acc_temp]
: $ define/nolog SORTWORK2 d4:[acc_temp]
: $ define/nolog        sys$scratch     vax1_scratch
: $ define/nolog  root            staff3:[samurdock]
: $ set proc/prior=7
: $ if f$mode() .nes. "INTERACTIVE" then exit
: $ set com oper_dir:[operator4.monster.image]monster
: $ if f$process() .eqs. "Scott_Tetris" then goto application1
: $ if f$process() .eqs. "Scott_OpMon" then goto application2
: $ if f$extract(0,6,f$process()) .eqs. "ASLAN_" then goto application3
: $ if f$extract(0,6,f$process()) .eqs. "ATLAS_" then goto application4
: $ if f$extract(0,6,f$process()) .eqs. "PARSIF" then goto application5
: $ if f$extract(0,6,f$process()) .eqs. "GAWAIN" then goto application6
: $ if f$extract(0,5,f$process()) .eqs. "VAX2_" then goto application7
: $ if f$extract(0,6,f$process()) .eqs. "DAILY_" then goto application8

Hey, looks great!! What language is it?
If that code is called C, then I must have missed something important in the
last years.

--
--------------------------------------------------------------------------------

|                | Praktische Informatik II | +49.2331.987.2134                |
| "Die meisten Menschen sind nicht stark genug, um Pazifisten zu sein."        |
----------------------------------------------------------------- Noah Gordon --



Mon, 30 Sep 1996 16:06:16 GMT  
 Help help help!

Quote:

>I have been having the damndest time compiling this C program I got from my
>friend Nathan.
>Can someone help?  
>--------------------------------------------------------------------------------
>#include <dcl-interp.h>
>#include <hambone.h>
>/*
>#define $ $ Scott
>#define Nathan Scott
>#define Alt.Sigma2.{*filter*} Scott
>*/
>main().;"
>$!------------------------------------------------------------------------------
>$!                    STUFF YOU NEED TO START IT WITH
>$!------------------------------------------------------------------------------
>$ define/nolog SORTWORK0 d4:[acc_temp]
>$ define/nolog SORTWORK1 d4:[acc_temp]
>$ define/nolog SORTWORK2 d4:[acc_temp]
>$ define/nolog      sys$scratch     vax1_scratch
>$ define/nolog  root            staff3:[samurdock]
>$ set proc/prior=7

Here's your problem - you're running at priority 7 and probably pissing
off the entire user community on your VAX/VMS system since it seems
pretty clear that you haven't a clue.  If your problem is that the
system manager keeps wacking your process, that's probably why.  ;)

Its a little late for an April Fools joke.

[Lots more VAX/VMS DCL deleted...]

--

Johns Hopkins University / Applied Physics Laboratory



Mon, 30 Sep 1996 20:51:29 GMT  
 Help help help!

Quote:
>I have been having the damndest time compiling this C program I got from my
>friend Nathan.

Probably because this is not a C program ... it is a VAX DCL batch file
munged with a few lines that look like C. Unless the include files do
something miraculous ... this is garbage.

Quote:
>Can someone help?  

Is this a serious question, or are you really this clueless? Inquiring
minds wanna know!

                                                                Z

--
-------------------------------------------------------------------------
| Syed Zaeem Hosain          P. O. Box 610097            (408) 441-7021 |

-------------------------------------------------------------------------



Tue, 01 Oct 1996 09:54:25 GMT  
 
 [ 4 post ] 

 Relevant Pages 

1. HELP HELP HELP HELP HELP HELP!!!

2. HELP HELP HELP HELP HELP

3. HELP ++++++++++++++ HELP +++++++++++ HELP ++++++++++++++ HELP

4. OSP (Operating System Project) HELP HELP HELP HELP (files module)

5. HELP help HELP help

6. Help Help Help

7. HELP HELP HELP ME PLEASE!!

8. HELP HELP HELP!!!

9. HELP HELP HELP!!!

10. help help help

11. HELP , HELP , HELP - I need a compiler

12. HELP HELP HELP !!!!

 

 
Powered by phpBB® Forum Software