english
version "1.0"
identify "wxyz"

# Copyright (c) 1998-1999 by Wayne C. Gramlich.
# All rights reserved.
#
# Permission to use, copy, modify, distribute, and sell this software
# for any purpose is hereby granted without fee provided that the above
# copyright notice and this permission are retained.  The author makes
# no representations about the suitability of this software for any purpose.
# It is provided "as is" without express or implied warranty.

module swit_generate

#: This module contains code to generate STIPPLE code to reproduce
#, the layout of a SWIT application.
	

#: {application} procedures:

procedure defines_generate@application
    takes
	application application
	supress_prefix string
	out_stream out_stream
    returns_nothing

    #: This procedurew will output a define statement for each
    #, top-level and nested frame in {application}.


procedure generate@application
    takes
	application application
	module_name string
	supress_prefix string
	out_stream out_stream
    returns_nothing

    #: This procedure will generate some STIPPLE code which upon execution
    #, will produce the same basic application structure.


procedure html_generate@application
    takes
	application application
	directory_name string
    returns_nothing

    #, form in {application} writing them into {directory_name}.


procedure procedures_generate@application
    takes
	application application
	supress_prefix string
	out_stream out_stream
    returns_nothing

    #: This procedure will output the initialization procedures
    #, for {application} to {out_stream}.


#: {clone} procedures:

procedure defines_generate@clone
    takes
	clone clone
	supress_prefix string
	out_stream out_stream
    returns_nothing

    #: This procedure will output the defines statements for {clone}
    #, to  {out_stream}.


procedure procedures_generate@clone
    takes
	clone clone
	supress_prefix string
	out_stream out_stream
    returns_nothing

    #: This procedure will output the defines statements for {clone}
    #, to  {out_stream}.


#: {frame} procedures:

procedure defines_generate@frame
    takes
	frame frame
	supress_prefix string
	out_stream out_stream
    returns_nothing

    #: This procedure will output the defines statements for {frame}
    #, to  {out_stream}.


procedure procedures_generate@frame
    takes
	frame frame
	supress_prefix string
	out_stream out_stream
    returns_nothing

    #: This procedure will output the defines statements for {frame}
    #, to  {out_stream}.