Source Code 1992 March

home *** CD-ROM | disk | FTP | other *** search

/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2810 < prev next >

Wrap

Internet Message Format | 1991-02-20 | 60.4 KB

From: guido@cwi.nl (Guido van Rossum) Newsgroups: alt.sources Subject: Python 0.9.1 part 19/21 Message-ID: <2981@charon.cwi.nl> Date: 19 Feb 91 17:42:49 GMT : This is a shell archive. : Extract with 'sh this_file'. : : Extract part 01 first since it makes all directories echo 'Start of pack.out, part 19 out of 21:' if test -s 'demo/scripts/xxci.py' then echo '*** I will not over-write existing file demo/scripts/xxci.py' else echo 'x - demo/scripts/xxci.py' sed 's/^X//' > 'demo/scripts/xxci.py' << 'EOF' X#! /ufs/guido/bin/sgi/python X X# xxci X# X# check in files for which rcsdiff returns nonzero exit status X Ximport sys Ximport posix Ximport stat Ximport path Ximport commands X XMAXSIZE = 200*1024 # Files this big must be binaries and are skipped. X Xdef getargs(): X args = sys.argv[1:] X if args: X return args X print 'No arguments, checking almost *' X for file in posix.listdir('.'): X if not skipfile(file): X args.append(file) X if not args: X print 'Nothing to do -- exit 1' X sys.exit(1) X args.sort() X return args X Xbadnames = ['tags', 'xyzzy'] Xbadprefixes = ['.', ',', '@', '#', 'o.'] Xbadsuffixes = \ X ['~', '.a', '.o', '.old', '.bak', '.orig', '.new', '.prev', '.not'] X# XXX Should generalize even more to use fnmatch! X Xdef skipfile(file): X if file in badnames or \ X badprefix(file) or badsuffix(file) or \ X path.islink(file) or path.isdir(file): X return 1 X # Skip huge files -- probably binaries. X try: X st = posix.stat(file) X except posix.error: X return 1 # Doesn't exist -- skip it X return st[stat.ST_SIZE] >= MAXSIZE X Xdef badprefix(file): X for bad in badprefixes: X if file[:len(bad)] = bad: return 1 X return 0 X Xdef badsuffix(file): X for bad in badsuffixes: X if file[-len(bad):] = bad: return 1 X return 0 X Xdef go(args): X for file in args: X print file + ':' X if run('rcsdiff -c', file): X if askyesno('Check in ' + file + ' ? '): X sts = run('rcs -l', file) # ignored X # can't use run() here because it's interactive X sts = posix.system('ci -l ' + file) X Xdef run(cmd, file): X sts, output = commands.getstatusoutput(cmd + commands.mkarg(file)) X if sts: X print output X print 'Exit status', sts X return sts X Xdef askyesno(prompt): X s = raw_input(prompt) X return s in ['y', 'yes'] X Xgo(getargs()) EOF chmod +x 'demo/scripts/xxci.py' fi if test -s 'demo/sgi/gl_panel/apanel/apanel.s' then echo '*** I will not over-write existing file demo/sgi/gl_panel/apanel/apanel.s' else echo 'x - demo/sgi/gl_panel/apanel/apanel.s' sed 's/^X//' > 'demo/sgi/gl_panel/apanel/apanel.s' << 'EOF' X;;; This file was automatically generated by the panel editor. X;;; If you read it into gnu emacs, it will automagically format itself. X X(panel (prop help creator:user-panel-help) X(prop user-panel #t) X(label "Audio Control Panel") X(x 395) X(y 69) X(al (pnl_filled_vslider (name "outputgain") X(prop help creator:user-act-help) X(label "output gain") X(x 6.5) X(y 0.75) X(w 0.4) X(h 4.35) X(val 0.329) X(labeltype 13) X(downfunc move-then-resize) X) X(pnl_frame (prop help creator:user-frame-help) X(x 0.25) X(y 2.75) X(w 5.1) X(h 2.3) X(downfunc move-then-resize) X(al (pnl_filled_hslider (name "recordsize") X(prop help creator:user-act-help) X(label "recording length") X(x -0.75) X(w 3.3) X(h 0.4) X(val 0.1) X(labeltype 11) X(downfunc move-then-resize) X) X(pnl_label (prop help creator:user-act-help) X(label "(max 10 seconds)") X(x -0.75) X(y -0.75) X(downfunc move-then-resize) X) X(pnl_wide_button (name "recordbutton") X(prop help creator:user-act-help) X(label "record from microphone...") X(x -0.75) X(y 0.75) X(w 4.7) X(downfunc move-then-resize) X) X) X) X(pnl_wide_button (name "playbackbutton") X(prop help creator:user-act-help) X(label "playback to speaker") X(x 0.25) X(y 2) X(w 5.15) X(downfunc move-then-resize) X) X(pnl_wide_button (name "quitbutton") X(prop help creator:user-act-help) X(label "quit") X(x 0.25) X(y 0.25) X(w 1.75) X(downfunc move-then-resize) X) X) X) X;;; Local Variables: X;;; mode: scheme X;;; eval: (save-excursion (goto-char (point-min)) (kill-line 3)) X;;; eval: (save-excursion (goto-char (point-min)) (replace-regexp "[ \n]*)" ")")) X;;; eval: (indent-region (point-min) (point-max) nil) X;;; eval: (progn (kill-line -3) (delete-backward-char 1) (save-buffer)) X;;; End: EOF fi if test -s 'demo/sgi/gl_panel/flying/light.s' then echo '*** I will not over-write existing file demo/sgi/gl_panel/flying/light.s' else echo 'x - demo/sgi/gl_panel/flying/light.s' sed 's/^X//' > 'demo/sgi/gl_panel/flying/light.s' << 'EOF' X;;; This file was automatically generated by the panel editor. X;;; If you read it into gnu emacs, it will automagically format itself. X X(panel (prop help creator:user-panel-help) X(prop user-panel #t) X(label "Light Sources") X(al (pnl_hslider (name "X") X(prop help creator:user-act-help) X(label "x") X(y 4) X(w 3.3) X(h 0.4) X(val 0.50) X(labeltype 0) X(downfunc move-then-resize) X) X(pnl_hslider (name "Y") X(prop help creator:user-act-help) X(label "y") X(y 3.5) X(w 3.3) X(h 0.4) X(val 0.50) X(labeltype 0) X(downfunc move-then-resize) X) X(pnl_hslider (name "Z") X(prop help creator:user-act-help) X(label "z") X(y 3) X(w 3.3) X(h 0.4) X(val 0.50) X(labeltype 0) X(downfunc move-then-resize) X) X(pnl_radio_button (name "light2") X(prop help creator:user-act-help) X(label "light 2") X(x 5) X(y 4) X(h 0.36) X(downfunc move-then-resize) X) X(pnl_radio_button (name "light1") X(prop help creator:user-act-help) X(label "light 1") X(x 5) X(y 4.5) X(h 0.36) X(downfunc move-then-resize) X) X(pnl_toggle_button (name "local") X(prop help creator:user-act-help) X(label "local") X(x 5) X(y 2.75) X(downfunc move-then-resize) X) X(pnl_filled_hslider (name "B") X(prop help creator:user-act-help) X(label "B") X(w 3.3) X(h 0.4) X(labeltype 0) X(downfunc move-then-resize) X) X(pnl_filled_hslider (name "G") X(prop help creator:user-act-help) X(label "G") X(y 0.5) X(w 3.3) X(h 0.4) X(labeltype 0) X(downfunc move-then-resize) X) X(pnl_filled_hslider (name "R") X(prop help creator:user-act-help) X(label "R") X(y 1) X(w 3.3) X(h 0.4) X(labeltype 0) X(downfunc move-then-resize) X) X) X) X;;; Local Variables: X;;; mode: scheme X;;; eval: (save-excursion (goto-char (point-min)) (kill-line 3)) X;;; eval: (save-excursion (goto-char (point-min)) (replace-regexp "[ \n]*)" ")")) X;;; eval: (indent-region (point-min) (point-max) nil) X;;; eval: (progn (kill-line -3) (delete-backward-char 1) (save-buffer)) X;;; End: EOF fi if test -s 'demo/sgi/gl_panel/flying/panel.s' then echo '*** I will not over-write existing file demo/sgi/gl_panel/flying/panel.s' else echo 'x - demo/sgi/gl_panel/flying/panel.s' sed 's/^X//' > 'demo/sgi/gl_panel/flying/panel.s' << 'EOF' X;;; This file was automatically generated by the panel editor. X;;; If you read it into gnu emacs, it will automagically format itself. X X(panel (prop help creator:user-panel-help) X(prop user-panel #t) X(label "Panel Control") X(x 394) X(y 622) X(al (pnl_radio_button (name "button4") X(prop help creator:user-act-help) X(y 2.5) X(h 0.36) X(downfunc move-then-resize) X) X(pnl_radio_button (name "button3") X(prop help creator:user-act-help) X(y 3) X(h 0.36) X(downfunc move-then-resize) X) X(pnl_radio_button (name "button2") X(prop help creator:user-act-help) X(y 3.5) X(h 0.36) X(downfunc move-then-resize) X) X(pnl_radio_button (name "button1") X(prop help creator:user-act-help) X(y 4) X(h 0.36) X(downfunc move-then-resize) X) X(pnl_wide_button (name "title1") X(prop help creator:user-act-help) X(x 0.75) X(y 4.75) X(w 2.44) X(downfunc move-then-resize) X) X(pnl_wide_button (name "title2") X(prop help creator:user-act-help) X(x 3.5) X(y 4.75) X(w 2.44) X(downfunc move-then-resize) X) X(pnl_wide_button (name "title3") X(prop help creator:user-act-help) X(x 6.25) X(y 4.75) X(w 2.44) X(downfunc move-then-resize) X) X(pnl_wide_button (name "title4") X(prop help creator:user-act-help) X(x 9) X(y 4.75) X(w 2.44) X(downfunc move-then-resize) X) X(pnl_button (name "root") X(prop help creator:user-act-help) X(label "R") X(y 4.75) X(labeltype 16) X(downfunc move-then-resize) X) X) X) X;;; Local Variables: X;;; mode: scheme X;;; eval: (save-excursion (goto-char (point-min)) (kill-line 3)) X;;; eval: (save-excursion (goto-char (point-min)) (replace-regexp "[ \n]*)" ")")) X;;; eval: (indent-region (point-min) (point-max) nil) X;;; eval: (progn (kill-line -3) (delete-backward-char 1) (save-buffer)) X;;; End: EOF fi if test -s 'lib/Abstract.py' then echo '*** I will not over-write existing file lib/Abstract.py' else echo 'x - lib/Abstract.py' sed 's/^X//' > 'lib/Abstract.py' << 'EOF' X# Abstract classes for parents and children. X# X# Do not use as base class -- this is for documentation only. X# X# Note that the tree must be built top down (create the parent, X# then add the children). X# X# Also note that the creation methods are not standardized -- X# these have extra parameters dependent on the widget type. X# For historical reasons, button creation methods are called X# define() while split creation methods are called create(). X Xclass AbstractParent(): X # X # Upcalls from child to parent X # X def addchild(self, child): unimpl() X def delchild(self, child): unimpl() X # X def need_mouse(self, child): unimpl() X def no_mouse(self, child): unimpl() X # X def need_timer(self, child): unimpl() X def no_timer(self, child): unimpl() X # X # XXX need_kbd, no_kbd; focus??? X # X def begindrawing(self): return unimpl() X def beginmeasuring(self): return unimpl() X # X def change(self, area): unimpl() X def scroll(self, (area, (dh, dv))): unimpl() X def settimer(self, itimer): unimpl() X Xclass AbstractChild(): X # X # Downcalls from parent to child X # X def destroy(self): unimpl() X # X def minsize(self, m): return unimpl() X def getbounds(self): return unimpl() X def setbounds(self, bounds): unimpl() X def draw(self, (d, area)): unimpl() X # X # Downcalls only made after certain upcalls X # X def mouse_down(self, detail): unimpl() X def mouse_move(self, detail): unimpl() X def mouse_up(self, detail): unimpl() X # X def timer(self): unimpl() X X# A "Split" is a child that manages one or more children. X# (This terminology is due to DEC SRC, except for CSplits.) X# A child of a split may be another split, a button, a slider, etc. X# Certain upcalls and downcalls can be handled transparently, but X# for others (e.g., all geometry related calls) this is not possible. X Xclass AbstractSplit() = AbstractChild(), AbstractParent(): X pass EOF fi if test -s 'lib/StripChart.py' then echo '*** I will not over-write existing file lib/StripChart.py' else echo 'x - lib/StripChart.py' sed 's/^X//' > 'lib/StripChart.py' << 'EOF' X# Module 'StripChart' X Ximport rect Xfrom Buttons import LabelAppearance, NoReactivity X X# A StripChart doesn't really look like a label but it needs a base class. X# LabelAppearance allows it to be disabled and hilited. X Xclass StripChart() = LabelAppearance(), NoReactivity(): X # X def define(self, (parent, scale)): X self.parent = parent X parent.addchild(self) X self.init_appearance() X self.init_reactivity() X self.ydata = [] X self.scale = scale X self.resetbounds() X return self X # X def setbounds(self, bounds): X LabelAppearance.setbounds(self, bounds) X self.resetbounds() X # X def resetbounds(self): X (left, top), (right, bottom) = self.bounds X self.width = right-left X self.height = bottom-top X excess = len(self.ydata) - self.width X if excess > 0: X del self.ydata[:excess] X elif excess < 0: X while len(self.ydata) < self.width: X self.ydata.insert(0, 0) X # X def append(self, y): X self.ydata.append(y) X excess = len(self.ydata) - self.width X if excess > 0: X del self.ydata[:excess] X if self.bounds <> rect.empty: X self.parent.scroll(self.bounds, (-excess, 0)) X if self.bounds <> rect.empty: X (left, top), (right, bottom) = self.bounds X i = len(self.ydata) X area = (left+i-1, top), (left+i, bottom) X self.draw(self.parent.begindrawing(), area) X # X def draw(self, (d, area)): X area = rect.intersect(area, self.bounds) X if area = rect.empty: X print 'mt' X return X d.cliprect(area) X d.erase(self.bounds) X (a_left, a_top), (a_right, a_bottom) = area X (left, top), (right, bottom) = self.bounds X height = bottom - top X i1 = a_left - left X i2 = a_right - left X for i in range(max(0, i1), min(len(self.ydata), i2)): X split = bottom-self.ydata[i]*height/self.scale X d.paint((left+i, split), (left+i+1, bottom)) X if not self.enabled: X self.flipenable(d) X if self.hilited: X self.fliphilite(d) X d.noclip() EOF fi if test -s 'lib/cmp.py' then echo '*** I will not over-write existing file lib/cmp.py' else echo 'x - lib/cmp.py' sed 's/^X//' > 'lib/cmp.py' << 'EOF' X# Module 'cmp' X X# Efficiently compare files, boolean outcome only (equal / not equal). X X# Tricks (used in this order): X# - Files with identical type, size & mtime are assumed to be clones X# - Files with different type or size cannot be identical X# - We keep a cache of outcomes of earlier comparisons X# - We don't fork a process to run 'cmp' but read the files ourselves X Ximport posix X Xcache = {} X Xdef cmp(f1, f2): # Compare two files, use the cache if possible. X # Return 1 for identical files, 0 for different. X # Raise exceptions if either file could not be statted, read, etc. X s1, s2 = sig(posix.stat(f1)), sig(posix.stat(f2)) X if s1[0] <> 8 or s2[0] <> 8: X # Either is a not a plain file -- always report as different X return 0 X if s1 = s2: X # type, size & mtime match -- report same X return 1 X if s1[:2] <> s2[:2]: # Types or sizes differ, don't bother X # types or sizes differ -- report different X return 0 X # same type and size -- look in the cache X key = f1 + ' ' + f2 X try: X cs1, cs2, outcome = cache[key] X # cache hit X if s1 = cs1 and s2 = cs2: X # cached signatures match X return outcome X # stale cached signature(s) X except RuntimeError: X # cache miss X pass X # really compare X outcome = do_cmp(f1, f2) X cache[key] = s1, s2, outcome X return outcome X Xdef sig(st): # Return signature (i.e., type, size, mtime) from raw stat data X # 0-5: st_mode, st_ino, st_dev, st_nlink, st_uid, st_gid X # 6-9: st_size, st_atime, st_mtime, st_ctime X type = st[0] / 4096 X size = st[6] X mtime = st[8] X return type, size, mtime X Xdef do_cmp(f1, f2): # Compare two files, really X bufsize = 8096 # Could be tuned X fp1 = open(f1, 'r') X fp2 = open(f2, 'r') X while 1: X b1 = fp1.read(bufsize) X b2 = fp2.read(bufsize) X if b1 <> b2: return 0 X if not b1: return 1 EOF fi if test -s 'lib/commands.py' then echo '*** I will not over-write existing file lib/commands.py' else echo 'x - lib/commands.py' sed 's/^X//' > 'lib/commands.py' << 'EOF' X# Module 'commands' X# X# Various tools for executing commands and looking at their output and status. X Ximport rand Ximport posix Ximport stat Ximport path X X X# Get 'ls -l' status for an object into a string X# Xdef getstatus(file): X return getoutput('ls -ld' + mkarg(file)) X X X# Get the output from a shell command into a string. X# The exit status is ignored; a trailing newline is stripped. X# Assume the command will work with ' >tempfile 2>&1' appended. X# XXX This should use posix.popen() instead, should it exist. X# Xdef getoutput(cmd): X return getstatusoutput(cmd)[1] X X X# Ditto but preserving the exit status. X# Returns a pair (sts, output) X# Xdef getstatusoutput(cmd): X tmp = '/usr/tmp/wdiff' + `rand.rand()` X sts = -1 X try: X sts = posix.system(cmd + ' >' + tmp + ' 2>&1') X text = readfile(tmp) X finally: X altsts = posix.system('rm -f ' + tmp) X if text[-1:] = '\n': text = text[:-1] X return sts, text X X X# Return a string containing a file's contents. X# Xdef readfile(fn): X st = posix.stat(fn) X size = st[stat.ST_SIZE] X if not size: return '' X try: X fp = open(fn, 'r') X except: X raise posix.error, 'readfile(' + fn + '): open failed' X try: X return fp.read(size) X except: X raise posix.error, 'readfile(' + fn + '): read failed' X X X# Make command argument from directory and pathname (prefix space, add quotes). X# Xdef mk2arg(head, x): X return mkarg(path.cat(head, x)) X X X# Make a shell command argument from a string. X# Two strategies: enclose in single quotes if it contains none; X# otherwis, enclose in double quotes and prefix quotable characters X# with backslash. X# Xdef mkarg(x): X if '\'' not in x: X return ' \'' + x + '\'' X s = ' "' X for c in x: X if c in '\\$"': X s = s + '\\' X s = s + c X s = s + '"' X return s EOF fi if test -s 'lib/getopt.py' then echo '*** I will not over-write existing file lib/getopt.py' else echo 'x - lib/getopt.py' sed 's/^X//' > 'lib/getopt.py' << 'EOF' X# module getopt -- Standard command line processing. X X# Function getopt.getopt() has a different interface but provides the X# same functionality as the Unix getopt() function. X X# It has two arguments: the first should be argv[1:] (it doesn't want X# the script name), the second the string of option letters as passed X# to Unix getopt() (i.e., a string of allowable option letters, with X# options requiring an argument followed by a colon). X X# It raises the exception getopt.error with a string argument if it X# detects an error. X X# It returns two items: X# (1) a list of pairs (option, option_argument) giving the options in X# the order in which they were specified. (I'd use a dictionary X# but applications may depend on option order or multiple X# occurrences.) Boolean options have '' as option_argument. X# (2) the list of remaining arguments (may be empty). X Xerror = 'getopt error' X Xdef getopt(args, options): X list = [] X while args and args[0][0] = '-' and args[0] <> '-': X if args[0] = '--': X args = args[1:] X break X optstring, args = args[0][1:], args[1:] X while optstring <> '': X opt, optstring = optstring[0], optstring[1:] X if classify(opt, options): # May raise exception as well X if optstring = '': X if not args: X raise error, 'option -' + opt + ' requires argument' X optstring, args = args[0], args[1:] X optarg, optstring = optstring, '' X else: X optarg = '' X list.append('-' + opt, optarg) X return list, args X Xdef classify(opt, options): # Helper to check type of option X for i in range(len(options)): X if opt = options[i] <> ':': X return options[i+1:i+2] = ':' X raise error, 'option -' + opt + ' not recognized' EOF fi if test -s 'lib/rect.py' then echo '*** I will not over-write existing file lib/rect.py' else echo 'x - lib/rect.py' sed 's/^X//' > 'lib/rect.py' << 'EOF' X# Module 'rect'. X# X# Operations on rectangles. X# There is some normalization: all results return the object 'empty' X# if their result would contain no points. X X X# Exception. X# Xerror = 'rect.error' X X X# The empty rectangle. X# Xempty = (0, 0), (0, 0) X X X# Check if a rectangle is empty. X# Xdef is_empty((left, top), (right, bottom)): X return left >= right or top >= bottom X X X# Compute the intersection or two or more rectangles. X# This works with a list or tuple argument. X# Xdef intersect(list): X if not list: raise error, 'intersect called with empty list' X if is_empty(list[0]): return empty X (left, top), (right, bottom) = list[0] X for rect in list[1:]: X if is_empty(rect): X return empty X (l, t), (r, b) = rect X if left < l: left = l X if top < t: top = t X if right > r: right = r X if bottom > b: bottom = b X if is_empty((left, top), (right, bottom)): X return empty X return (left, top), (right, bottom) X X X# Compute the smallest rectangle containing all given rectangles. X# This works with a list or tuple argument. X# Xdef union(list): X (left, top), (right, bottom) = empty X for (l, t), (r, b) in list[1:]: X if not is_empty((l, t), (r, b)): X if l < left: left = l X if t < top: top = t X if r > right: right = r X if b > bottom: bottom = b X res = (left, top), (right, bottom) X if is_empty(res): X return empty X return res X X X# Check if a point is in a rectangle. X# Xdef pointinrect((h, v), ((left, top), (right, bottom))): X return left <= h < right and top <= v < bottom X X X# Return a rectangle that is dh, dv inside another X# Xdef inset(((left, top), (right, bottom)), (dh, dv)): X left = left + dh X top = top + dv X right = right - dh X bottom = bottom - dv X r = (left, top), (right, bottom) X if is_empty(r): X return empty X else: X return r X X X# Conversions between rectangles and 'geometry tuples', X# given as origin (h, v) and dimensions (width, height). X# Xdef rect2geom((left, top), (right, bottom)): X return (left, top), (right-left, bottom-top) X Xdef geom2rect((h, v), (width, height)): X return (h, v), (h+width, v+height) EOF fi if test -s 'lib/selection.py' then echo '*** I will not over-write existing file lib/selection.py' else echo 'x - lib/selection.py' sed 's/^X//' > 'lib/selection.py' << 'EOF' X# DAWKINS' BLIND WATCHMAKER -- "METHINKS IT IS LIKE A WEASEL" EXAMPLE X# X# Start with a random phrase. Successively: X# Breed a next generation by copying with small mutations. X# Choose the member of the next generation that most closely resembles X# the target phrase to start breeding the next generation. X# How many generations will it take before the target is reached? X Xfrom whrandom import random X X# Parameters determining the problem space XTarget = 'methinks it is like a weasel' XAlphabet = ' abcdefghijklmnopqrstuvwxyz' X X# Parameters to play with XGenerationSize = 100 XMutationChance = 1.0/28.0 X XIndexSet = range(len(Target)) # Used to speed up loops X Xdef choice(sequence): X n = len(sequence) X i = int(random() * float(n)) % n X return sequence[i] X Xdef random_phrase(): X phrase = '' X for i in IndexSet: X phrase = phrase + choice(Alphabet) X return phrase X Xdef mutate_phrase(phrase): X mutant = phrase X for i in range(int(0.5 + MutationChance*float(len(phrase)))): X i = choice(IndexSet) X c = choice(Alphabet) X mutant = mutant[:i] + c + mutant[i+1:] X #print `mutant` X return mutant X Xdef matching_factor(phrase): X factor = 0 X for i in IndexSet: X if phrase[i] = Target[i]: factor = factor + 1 X return factor X Xdef breed_generation(phrase): X generation = [phrase] X while len(generation) < GenerationSize: X generation.append(mutate_phrase(phrase)) X return generation X Xdef select_best(generation): X factor, selected = -1, '' X for phrase in generation: X f = matching_factor(phrase) X if f > factor: X factor, selected = f, phrase X return selected X Xdef main(): X gen = 0 X phrase = random_phrase() X print gen, `phrase` X while phrase <> Target: X next_generation = breed_generation(phrase) X #print next_generation X phrase = select_best(next_generation) X gen = gen+1 X print gen, `phrase` X Xmain() EOF fi if test -s 'lib/statcache.py' then echo '*** I will not over-write existing file lib/statcache.py' else echo 'x - lib/statcache.py' sed 's/^X//' > 'lib/statcache.py' << 'EOF' X# Module 'statcache' X# X# Maintain a cache of file stats. X# There are functions to reset the cache or to selectively remove items. X Ximport posix Xfrom stat import * X X# The cache. X# Keys are pathnames, values are `posix.stat' outcomes. X# Xcache = {} X X X# Stat a file, possibly out of the cache. X# Xdef stat(path): X if cache.has_key(path): X return cache[path] X cache[path] = ret = posix.stat(path) X return ret X X X# Reset the cache completely. X# Hack: to reset a global variable, we import this module. X# Xdef reset(): X import statcache X # Check that we really imported the same module X if cache is not statcache.cache: X raise 'sorry, statcache identity crisis' X statcache.cache = {} X X X# Remove a given item from the cache, if it exists. X# Xdef forget(path): X if cache.has_key(path): X del cache[path] X X X# Remove all pathnames with a given prefix. X# Xdef forget_prefix(prefix): X n = len(prefix) X for path in cache.keys(): X if path[:n] = prefix: X del cache[path] X X X# Forget about a directory and all entries in it, but not about X# entries in subdirectories. X# Xdef forget_dir(prefix): X if prefix[-1:] = '/' and prefix <> '/': X prefix = prefix[:-1] X forget(prefix) X if prefix[-1:] <> '/': X prefix = prefix + '/' X n = len(prefix) X for path in cache.keys(): X if path[:n] = prefix: X rest = path[n:] X if rest[-1:] = '/': rest = rest[:-1] X if '/' not in rest: X del cache[path] X X X# Remove all pathnames except with a given prefix. X# Normally used with prefix = '/' after a chdir(). X# Xdef forget_except_prefix(prefix): X n = len(prefix) X for path in cache.keys(): X if path[:n] <> prefix: X del cache[path] X X X# Check for directory. X# Xdef isdir(path): X try: X st = stat(path) X except posix.error: X return 0 X return S_ISDIR(st[ST_MODE]) EOF fi if test -s 'src/allobjects.h' then echo '*** I will not over-write existing file src/allobjects.h' else echo 'x - src/allobjects.h' sed 's/^X//' > 'src/allobjects.h' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* "allobjects.c" -- Source for precompiled header "allobjects.h" */ X X#include <stdio.h> X#include <string.h> X X#include "PROTO.h" X X#include "object.h" X#include "objimpl.h" X X#include "intobject.h" X#include "floatobject.h" X#include "stringobject.h" X#include "tupleobject.h" X#include "listobject.h" X#include "dictobject.h" X#include "methodobject.h" X#include "moduleobject.h" X#include "funcobject.h" X#include "classobject.h" X#include "fileobject.h" X X#include "errors.h" X#include "malloc.h" X Xextern char *strdup PROTO((const char *)); EOF fi if test -s 'src/bitset.h' then echo '*** I will not over-write existing file src/bitset.h' else echo 'x - src/bitset.h' sed 's/^X//' > 'src/bitset.h' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* Bitset interface */ X X#define BYTE char X Xtypedef BYTE *bitset; X Xbitset newbitset PROTO((int nbits)); Xvoid delbitset PROTO((bitset bs)); X/* int testbit PROTO((bitset bs, int ibit)); /* Now a macro, see below */ Xint addbit PROTO((bitset bs, int ibit)); /* Returns 0 if already set */ Xint samebitset PROTO((bitset bs1, bitset bs2, int nbits)); Xvoid mergebitset PROTO((bitset bs1, bitset bs2, int nbits)); X X#define BITSPERBYTE (8*sizeof(BYTE)) X#define NBYTES(nbits) (((nbits) + BITSPERBYTE - 1) / BITSPERBYTE) X X#define BIT2BYTE(ibit) ((ibit) / BITSPERBYTE) X#define BIT2SHIFT(ibit) ((ibit) % BITSPERBYTE) X#define BIT2MASK(ibit) (1 << BIT2SHIFT(ibit)) X#define BYTE2BIT(ibyte) ((ibyte) * BITSPERBYTE) X X#define testbit(ss, ibit) (((ss)[BIT2BYTE(ibit)] & BIT2MASK(ibit)) != 0) EOF fi if test -s 'src/cgensupport.h' then echo '*** I will not over-write existing file src/cgensupport.h' else echo 'x - src/cgensupport.h' sed 's/^X//' > 'src/cgensupport.h' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* Definitions used by cgen output */ X Xtypedef char *string; X X#define mknewlongobject(x) newintobject(x) X#define mknewshortobject(x) newintobject((long)x) X#define mknewfloatobject(x) newfloatobject(x) X Xextern object *mknewcharobject PROTO((int c)); X Xextern int getiobjectarg PROTO((object *args, int nargs, int i, object **p_a)); Xextern int getilongarg PROTO((object *args, int nargs, int i, long *p_a)); Xextern int getishortarg PROTO((object *args, int nargs, int i, short *p_a)); Xextern int getifloatarg PROTO((object *args, int nargs, int i, float *p_a)); Xextern int getistringarg PROTO((object *args, int nargs, int i, string *p_a)); EOF fi if test -s 'src/classobject.h' then echo '*** I will not over-write existing file src/classobject.h' else echo 'x - src/classobject.h' sed 's/^X//' > 'src/classobject.h' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* Class object interface */ X X/* XClasses are really hacked in at the last moment. XIt should be possible to use other object types as base classes, Xbut currently it isn't. We'll see if we can fix that later, sigh... X*/ X Xextern typeobject Classtype, Classmembertype, Classmethodtype; X X#define is_classobject(op) ((op)->ob_type == &Classtype) X#define is_classmemberobject(op) ((op)->ob_type == &Classmembertype) X#define is_classmethodobject(op) ((op)->ob_type == &Classmethodtype) X Xextern object *newclassobject PROTO((object *, object *)); Xextern object *newclassmemberobject PROTO((object *)); Xextern object *newclassmethodobject PROTO((object *, object *)); X Xextern object *classmethodgetfunc PROTO((object *)); Xextern object *classmethodgetself PROTO((object *)); EOF fi if test -s 'src/compile.h' then echo '*** I will not over-write existing file src/compile.h' else echo 'x - src/compile.h' sed 's/^X//' > 'src/compile.h' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* Definitions for compiled intermediate code */ X X X/* An intermediate code fragment contains: X - a string that encodes the instructions, X - a list of the constants, X - and a list of the names used. */ X Xtypedef struct { X OB_HEAD X stringobject *co_code; /* instruction opcodes */ X object *co_consts; /* list of immutable constant objects */ X object *co_names; /* list of stringobjects */ X object *co_filename; /* string */ X} codeobject; X Xextern typeobject Codetype; X X#define is_codeobject(op) ((op)->ob_type == &Codetype) X X X/* Public interface */ Xcodeobject *compile PROTO((struct _node *, char *)); EOF fi if test -s 'src/dictobject.h' then echo '*** I will not over-write existing file src/dictobject.h' else echo 'x - src/dictobject.h' sed 's/^X//' > 'src/dictobject.h' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* XDictionary object type -- mapping from char * to object. XNB: the key is given as a char *, not as a stringobject. XThese functions set errno for errors. Functions dictremove() and Xdictinsert() return nonzero for errors, getdictsize() returns -1, Xthe others NULL. A successful call to dictinsert() calls INCREF() Xfor the inserted item. X*/ X Xextern typeobject Dicttype; X X#define is_dictobject(op) ((op)->ob_type == &Dicttype) X Xextern object *newdictobject PROTO((void)); Xextern object *dictlookup PROTO((object *dp, char *key)); Xextern int dictinsert PROTO((object *dp, char *key, object *item)); Xextern int dictremove PROTO((object *dp, char *key)); Xextern int getdictsize PROTO((object *dp)); Xextern char *getdictkey PROTO((object *dp, int i)); Xextern object *getdictkeys PROTO((object *dp)); EOF fi if test -s 'src/errors.h' then echo '*** I will not over-write existing file src/errors.h' else echo 'x - src/errors.h' sed 's/^X//' > 'src/errors.h' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* Error handling definitions */ X Xvoid err_set PROTO((object *)); Xvoid err_setval PROTO((object *, object *)); Xvoid err_setstr PROTO((object *, char *)); Xint err_occurred PROTO((void)); Xvoid err_get PROTO((object **, object **)); Xvoid err_clear PROTO((void)); X X/* Predefined exceptions */ X Xextern object *RuntimeError; Xextern object *EOFError; Xextern object *TypeError; Xextern object *MemoryError; Xextern object *NameError; Xextern object *SystemError; Xextern object *KeyboardInterrupt; X X/* Some more planned for the future */ X X#define IndexError RuntimeError X#define KeyError RuntimeError X#define ZeroDivisionError RuntimeError X#define OverflowError RuntimeError X X/* Convenience functions */ X Xextern int err_badarg PROTO((void)); Xextern object *err_nomem PROTO((void)); Xextern object *err_errno PROTO((object *)); Xextern void err_input PROTO((int)); X Xextern void err_badcall PROTO((void)); EOF fi if test -s 'src/grammar1.c' then echo '*** I will not over-write existing file src/grammar1.c' else echo 'x - src/grammar1.c' sed 's/^X//' > 'src/grammar1.c' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* Grammar subroutines needed by parser */ X X#include "pgenheaders.h" X#include "assert.h" X#include "grammar.h" X#include "token.h" X X/* Return the DFA for the given type */ X Xdfa * Xfinddfa(g, type) X grammar *g; X register int type; X{ X register int i; X register dfa *d; X X for (i = g->g_ndfas, d = g->g_dfa; --i >= 0; d++) { X if (d->d_type == type) X return d; X } X assert(0); X /* NOTREACHED */ X} X Xchar * Xlabelrepr(lb) X label *lb; X{ X static char buf[100]; X X if (lb->lb_type == ENDMARKER) X return "EMPTY"; X else if (ISNONTERMINAL(lb->lb_type)) { X if (lb->lb_str == NULL) { X sprintf(buf, "NT%d", lb->lb_type); X return buf; X } X else X return lb->lb_str; X } X else { X if (lb->lb_str == NULL) X return tok_name[lb->lb_type]; X else { X sprintf(buf, "%.32s(%.32s)", X tok_name[lb->lb_type], lb->lb_str); X return buf; X } X } X} EOF fi if test -s 'src/malloc.h' then echo '*** I will not over-write existing file src/malloc.h' else echo 'x - src/malloc.h' sed 's/^X//' > 'src/malloc.h' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* Lowest-level memory allocation interface */ X X#ifdef THINK_C X#define ANY void X#ifndef THINK_C_3_0 X#define HAVE_STDLIB X#endif X#endif X X#ifdef __STD_C__ X#define ANY void X#define HAVE_STDLIB X#endif X X#ifndef ANY X#define ANY char X#endif X X#ifndef NULL X#define NULL 0 X#endif X X#define NEW(type, n) ( (type *) malloc((n) * sizeof(type)) ) X#define RESIZE(p, type, n) \ X if ((p) == NULL) \ X (p) = (type *) malloc((n) * sizeof(type)); \ X else \ X (p) = (type *) realloc((char *)(p), (n) * sizeof(type)) X#define DEL(p) free((char *)p) X#define XDEL(p) if ((p) == NULL) ; else DEL(p) X X#ifdef HAVE_STDLIB X#include <stdlib.h> X#else Xextern ANY *malloc PROTO((unsigned int)); Xextern ANY *calloc PROTO((unsigned int, unsigned int)); Xextern ANY *realloc PROTO((ANY *, unsigned int)); Xextern void free PROTO((ANY *)); /* XXX sometimes int on Unix old systems */ X#endif EOF fi if test -s 'src/node.h' then echo '*** I will not over-write existing file src/node.h' else echo 'x - src/node.h' sed 's/^X//' > 'src/node.h' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* Parse tree node interface */ X Xtypedef struct _node { X int n_type; X char *n_str; X int n_lineno; X int n_nchildren; X struct _node *n_child; X} node; X Xextern node *newtree PROTO((int type)); Xextern node *addchild PROTO((node *n, int type, char *str, int lineno)); Xextern void freetree PROTO((node *n)); X X/* Node access functions */ X#define NCH(n) ((n)->n_nchildren) X#define CHILD(n, i) (&(n)->n_child[i]) X#define TYPE(n) ((n)->n_type) X#define STR(n) ((n)->n_str) X X/* Assert that the type of a node is what we expect */ X#ifndef DEBUG X#define REQ(n, type) { /*pass*/ ; } X#else X#define REQ(n, type) \ X { if (TYPE(n) != (type)) { \ X fprintf(stderr, "FATAL: node type %d, required %d\n", \ X TYPE(n), type); \ X abort(); \ X } } X#endif X Xextern void listtree PROTO((node *)); Xextern void listnode PROTO((FILE *, node *)); EOF fi if test -s 'src/parser.h' then echo '*** I will not over-write existing file src/parser.h' else echo 'x - src/parser.h' sed 's/^X//' > 'src/parser.h' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* Parser interface */ X X#define MAXSTACK 100 X Xtypedef struct _stackentry { X int s_state; /* State in current DFA */ X dfa *s_dfa; /* Current DFA */ X struct _node *s_parent; /* Where to add next node */ X} stackentry; X Xtypedef struct _stack { X stackentry *s_top; /* Top entry */ X stackentry s_base[MAXSTACK];/* Array of stack entries */ X /* NB The stack grows down */ X} stack; X Xtypedef struct { X struct _stack p_stack; /* Stack of parser states */ X struct _grammar *p_grammar; /* Grammar to use */ X struct _node *p_tree; /* Top of parse tree */ X} parser_state; X Xparser_state *newparser PROTO((struct _grammar *g, int start)); Xvoid delparser PROTO((parser_state *ps)); Xint addtoken PROTO((parser_state *ps, int type, char *str, int lineno)); Xvoid addaccelerators PROTO((grammar *g)); EOF fi if test -s 'src/pgenheaders.h' then echo '*** I will not over-write existing file src/pgenheaders.h' else echo 'x - src/pgenheaders.h' sed 's/^X//' > 'src/pgenheaders.h' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* Include files and extern declarations used by most of the parser. X This is a precompiled header for THINK C. */ X X#include <stdio.h> X#include <string.h> X X#ifdef THINK_C X/* #define THINK_C_3_0 /*** TURN THIS ON FOR THINK C 3.0 ****/ X#define label label_ X#undef label X#endif X X#ifdef THINK_C_3_0 X#include <proto.h> X#endif X X#ifdef THINK_C X#ifndef THINK_C_3_0 X#include <stdlib.h> X#endif X#endif X X#include "PROTO.h" X#include "malloc.h" X Xextern void fatal PROTO((char *)); EOF fi if test -s 'src/pythonrun.h' then echo '*** I will not over-write existing file src/pythonrun.h' else echo 'x - src/pythonrun.h' sed 's/^X//' > 'src/pythonrun.h' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* Interfaces to parse and execute pieces of python code */ X Xvoid initall PROTO((void)); X Xint run PROTO((FILE *, char *)); X Xint run_script PROTO((FILE *, char *)); Xint run_tty_1 PROTO((FILE *, char *)); Xint run_tty_loop PROTO((FILE *, char *)); X Xint parse_string PROTO((char *, int, struct _node **)); Xint parse_file PROTO((FILE *, char *, int, struct _node **)); X Xobject *eval_node PROTO((struct _node *, char *, object *, object *)); X Xobject *run_string PROTO((char *, int, object *, object *)); Xobject *run_file PROTO((FILE *, char *, int, object *, object *)); Xobject *run_err_node PROTO((int, struct _node *, char *, object *, object *)); Xobject *run_node PROTO((struct _node *, char *, object *, object *)); X Xvoid print_error PROTO((void)); X Xvoid goaway PROTO((int)); EOF fi if test -s 'src/regexp.h' then echo '*** I will not over-write existing file src/regexp.h' else echo 'x - src/regexp.h' sed 's/^X//' > 'src/regexp.h' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* X * Definitions etc. for regexp(3) routines. X * X * Caveat: this is V8 regexp(3) [actually, a reimplementation thereof], X * not the System V one. X */ X X#define MULTILINE X X#define NSUBEXP 10 Xtypedef struct regexp { X char *startp[NSUBEXP]; X char *endp[NSUBEXP]; X char regstart; /* Internal use only. */ X char reganch; /* Internal use only. */ X char *regmust; /* Internal use only. */ X int regmlen; /* Internal use only. */ X char program[1]; /* Unwarranted chumminess with compiler. */ X} regexp; X Xextern regexp *regcomp(); Xextern int regexec(); X#ifdef MULTILINE Xextern int reglexec(); X#endif Xextern void regsub(); Xextern void regerror(); EOF fi if test -s 'src/sigtype.h' then echo '*** I will not over-write existing file src/sigtype.h' else echo 'x - src/sigtype.h' sed 's/^X//' > 'src/sigtype.h' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* The type of signal handlers is somewhat problematic. X This file encapsulates my knowledge about it: X - on the Mac (THINK C), it's int for 3.0, void for 4.0 X - on other systems, it's usually void, except it's int on vax Ultrix. X Pass -DSIGTYPE=... to cc if you know better. */ X X#ifndef SIGTYPE X X#ifdef THINK_C X X#ifdef THINK_C_3_0 X#define SIGTYPE int X#else X#define SIGTYPE void X#endif X X#else /* !THINK_C */ X X#if defined(vax) && !defined(AMOEBA) X#define SIGTYPE int X#else X#define SIGTYPE void X#endif X X#endif /* !THINK_C */ X X#endif /* !SIGTYPE */ EOF fi if test -s 'src/token.h' then echo '*** I will not over-write existing file src/token.h' else echo 'x - src/token.h' sed 's/^X//' > 'src/token.h' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* Token types */ X X#define ENDMARKER 0 X#define NAME 1 X#define NUMBER 2 X#define STRING 3 X#define NEWLINE 4 X#define INDENT 5 X#define DEDENT 6 X#define LPAR 7 X#define RPAR 8 X#define LSQB 9 X#define RSQB 10 X#define COLON 11 X#define COMMA 12 X#define SEMI 13 X#define PLUS 14 X#define MINUS 15 X#define STAR 16 X#define SLASH 17 X#define VBAR 18 X#define AMPER 19 X#define LESS 20 X#define GREATER 21 X#define EQUAL 22 X#define DOT 23 X#define PERCENT 24 X#define BACKQUOTE 25 X#define LBRACE 26 X#define RBRACE 27 X#define OP 28 X#define ERRORTOKEN 29 X#define N_TOKENS 30 X X/* Special definitions for cooperation with parser */ X X#define NT_OFFSET 256 X X#define ISTERMINAL(x) ((x) < NT_OFFSET) X#define ISNONTERMINAL(x) ((x) >= NT_OFFSET) X#define ISEOF(x) ((x) == ENDMARKER) X X Xextern char *tok_name[]; /* Token names */ Xextern int tok_1char PROTO((int)); EOF fi if test -s 'src/typeobject.c' then echo '*** I will not over-write existing file src/typeobject.c' else echo 'x - src/typeobject.c' sed 's/^X//' > 'src/typeobject.c' << 'EOF' X/*********************************************************** XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The XNetherlands. X X All Rights Reserved X XPermission to use, copy, modify, and distribute this software and its Xdocumentation for any purpose and without fee is hereby granted, Xprovided that the above copyright notice appear in all copies and that Xboth that copyright notice and this permission notice appear in Xsupporting documentation, and that the names of Stichting Mathematisch XCentrum or CWI not be used in advertising or publicity pertaining to Xdistribution of the software without specific, written prior permission. X XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. X X******************************************************************/ X X/* Type object implementation */ X X#include "allobjects.h" X X/* Type object implementation */ X Xstatic void Xtype_print(v, fp, flags) X typeobject *v; X FILE *fp; X int flags; X{ X fprintf(fp, "<type '%s'>", v->tp_name); X} X Xstatic object * Xtype_repr(v) X typeobject *v; X{ X char buf[100]; X sprintf(buf, "<type '%.80s'>", v->tp_name); X return newstringobject(buf); X} X Xtypeobject Typetype = { X OB_HEAD_INIT(&Typetype) X 0, /* Number of items for varobject */ X "type", /* Name of this type */ X sizeof(typeobject), /* Basic object size */ X 0, /* Item size for varobject */ X 0, /*tp_dealloc*/ X type_print, /*tp_print*/ X 0, /*tp_getattr*/ X 0, /*tp_setattr*/ X 0, /*tp_compare*/ X type_repr, /*tp_repr*/ X}; EOF fi echo 'Part 19 out of 21 of pack.out complete.' exit 0