Autocoding project proposal.

[Timothy Rue]

On 30-Jan-02 13:30:10 David Masterson <dmaster at synopsys.com> wrote:
>>>>>> Timothy Rue writes:
>> On 29-Jan-02 11:06:40 David Masterson <dmaster at synopsys.com> wrote:
>>>>>>>> Timothy Rue writes:

>>>> On 28-Jan-02 13:26:36 David Masterson <dmaster at synopsys.com> wrote:

>>>>> These are the things you'll need to take into account in developing
>>>>> a new language (or get others to help you develop it).

>>>> Well since the VIC is not a language I don't suppose I need be
>>>> concerned about such things as the things you presented.

>>> Of course its a language.  As you've already stated, it's a language
>>> consisting of 9 commands.

>> I didn't say that.

>> Think of it this way: as the concept of nothing having value (zero
>> as a place holder along with the digits 1-9) was a very difficult
>> concept for the people over a period of 300 years to grasp, perhaps
>> so is this that I present. Only now we are at a period of much
>> faster advancements.

>> But who would have the most trouble grasping what I've been
>> presenting but those who have been programmed to think in terms that
>> are not so able to so communicate what I'm on about.

>> It's not unusual in the computer industry to change the meaning of a
>> word to mean something different or even the opposite of a words
>> original definition. The word hacker is one such example.

>> But this that I'm on about, the definition stays as is, though the
>> word or symbol sequences attached to the definitions are open to be
>> changed.

>You're right.  Given the way that you use (or don't use) language,
>what could I have been thinking of...  8-(

David, look around you, tell me that all you see is language. Objects and
movement. I believe there is some qualifications as to what a language is
composed of, in order to be identified as a language.

Language is abstraction, created in order to communicate, but it can never
completely communicate reality. A pictures says a thousand words..... And
that ain't language.

I recall hearing stories about how those who see auras a few hundred years
ago were consider witches, today we have krillian photography that proves
auras exist.

The point of this is that people are different and for me, what I preceive
in the way of objects actions and movement is for me, normal.

The problem is that others don't have the same perceptions. The result is
that there is alot of doubt I have about the intents of others and when
they do irrational and illogical things while claiming to be computer
programmers...... It doesn't help.

I don't claim to have any magical gifts, but I do see what I do regarding
a configration of common actions and how extreamly useful it can be..

This project would move forward faster if people would chose to help. And
the sooner it get more complete the sooner more can be explained by way
of example.

The way I see it, there is need for a big switch statement of such that
the the input can identify what, if any VIC command was given and what to
so, what function to set in motion. I guess it would be something of a big
parse statement. There is even something of an outline for this already,
though mostly in arexx, a conversion to python would be helpful. If anyone
would be interested in what has got to be simple and boring cut and past
sort of task. My probelm is that I'm not sure how to do it in python.

Right now I pretty tired, after 12 hours of work building stuff in the
world of 3D. Thinking in 2D right now is not easy. (2D being code).

Below is the beginning of that conversion and the /* is where the arexx
code begins.


#! Python

# PK file array - VIC Dictionary
# Setting the standard variables to defaults

vic = {

    'AI': {
        '1': 'AI_name_number',
        '2': 'PK_file_directory',
        '3': 'Current_Directory' },

    'PK': {
        '1': 'PK_filename',
        '2': 'last_alt_PK_filename',
        '3': 'default_PK_filenane' },

    'OI': {
        '1': 'OI_filename',
        '2': 'last_alt_OI_filename',
        '3': 'opt_default_OI_filename' },

    'IP': {
        '1': 'device',
        '2': 'preprocess_or_Class',
        '3': 'BOI_EOI',
        '4': 'opt_last_alt_set' },

    'OP': {
        '1': 'device',
        '2': 'postprocess_or_Class',
        '3': 'BOO_EOO',
        '4': 'opt_last_alt_set' },

    'SF': {
        '1': 'SF_LPC_flags',
        '2': 'last_alt_flags',
        '3': 'SF_fname_at_line_no',
        '4': 'opt_last_alt_set',
        '5': 'SF_filename_at_line_no_running_stack' },

    'IQ': {
        '1': 'IQ_flags',
        '2': 'last_alt_flags',
        '3': 'IQ_fname_at_line_no',
        '4': 'opt_last_alt_set',
        '5': 'IQ_filename_at_line_no_running_stack' },

    'ID': {
        '1': 'ID_flags',
        '2': 'last_alt_flags',
        '3': 'ID_fname_at_line_no',
        '4': 'opt_last_alt_set',
        '5': 'ID_filename_at_line_no_running_stack' },

    'KE': {
        '1': 'Master_teeth',
        '2': 'last_alt_Master_teeth',
        '3': 'KE_fname',
        '4': 'opt_last_alt_set' }

}

# Test!!!
print vic['AI']['1'], vic['AI']['2'], vic['AI']['3']
print vic['PK']['1'], vic['PK']['2'], vic['PK']['3']
print vic['OI']['1'], vic['OI']['2'], vic['OI']['3']
print vic['IP']['1'], vic['IP']['2'], vic['IP']['3'], vic['IP']['4']
print vic['OP']['1'], vic['OP']['2'], vic['OP']['3'], vic['OP']['4']
print vic['SF']['1'], vic['SF']['2'], vic['SF']['3'], vic['SF']['4']
print vic['SF']['5']
print vic['IQ']['1'], vic['IQ']['2'], vic['IQ']['3'], vic['IQ']['4']
print vic['IQ']['5']
print vic['ID']['1'], vic['ID']['2'], vic['ID']['3'], vic['ID']['4']
print vic['ID']['5']
print vic['KE']['1'], vic['KE']['2'], vic['KE']['3'], vic['KE']['4']

/*==================================*/
/*Reading in the PK file.
  If no filename is present then read default.
  if default does not exist, warn and create*/

PKfilename = 0

/*check internal variables*/

IF vic.2.1 > '' THEN PKfilename = vic.2.1

    ELSE DO

    IF VIC.2.2 > '' THEN PKfilename = vic.2.2

        END


/* If above fails try "default.pk" */

IF PKfilename = 0 THEN DO

    IF EXISTS(vic.2.3) = 0 THEN DO

    SAY 'WARNING: default PK file ('vic.2.3') not available. Creating It'

    /* create/write PK file from internal default*/

        END

    ELSE PKfilename = vic.2.3

    END


IF PKfilename ~= 0 THEN DO

    IF OPEN('PK_file',PKfilename,'R') ~= 0 THEN DO

    /* read the result file if available */

    current_line = READLN('PK_file')
    PARSE VAR current_line vic.1 ':' vic.1.1 ';' vic.1.2 ';' vic.1.3

    current_line = READLN('PK_file')
    PARSE VAR current_line vic.2 ':' vic.2.1 ';' vic.2.2 ';' vic.2.3

    current_line = READLN('PK_file')
    PARSE VAR current_line vic.3 ':' vic.3.1 ';' vic.3.2 ';' vic.3.3

    current_line = READLN('PK_file')
    PARSE VAR current_line vic.4 ':' vic.4.1 ';' vic.4.2 ';' vic.4.3

    current_line = READLN('PK_file')
    PARSE VAR current_line vic.5 ':' vic.5.1 ';' vic.5.2 ';' vic.5.3

    current_line = READLN('PK_file')
    PARSE VAR current_line vic.6 ':' vic.6.1 ';' vic.6.2 ';' vic.6.3
    vic.6.5 = READLN('PK_file')

    current_line = READLN('PK_file')
    PARSE VAR current_line vic.7 ':' vic.7.1 ';' vic.7.2 ';' vic.7.3
    vic.7.5= READLN('PK_file')

    current_line = READLN('PK_file')
    PARSE VAR current_line vic.8 ':' vic.8.1 ';' vic.8.2 ';' vic.8.3
    vic.8.5 = READLN('PK_file')

    current_line = READLN('PK_file')
    PARSE VAR current_line vic.9 ':' vic.9.1 ';' vic.9.2 ';' vic.9.3

/* this is how we will keep track of sf,iq,id line numbers ???*/

    SAY SEEK('PK_file',0,'C')


        END


    ELSE DO

        SAY  "variable_pkfile not available"

        END

    END


/*=====================*/
/* Writing the PK file */

SAY OPEN('PK-file-out','*','W')

WRITELN('PK-file-out',vic.1":"vic.1.1";"vic.1.2";"vic.1.3)
WRITELN('PK-file-out',vic.2":"vic.2.1";"vic.2.2";"vic.2.3)
WRITELN('PK-file-out',vic.3":"vic.3.1";"vic.3.2";"vic.3.3)
WRITELN('PK-file-out',vic.4":"vic.4.1";"vic.4.2";"vic.4.3)
WRITELN('PK-file-out',vic.5":"vic.5.1";"vic.5.2";"vic.5.3)
WRITELN('PK-file-out',vic.6":"vic.6.1";"vic.6.2";"vic.6.3)
WRITELN('PK-file-out',vic.6.5)
WRITELN('PK-file-out',vic.7":"vic.7.1";"vic.7.2";"vic.7.3)
WRITELN('PK-file-out',vic.7.5)
WRITELN('PK-file-out',vic.8":"vic.8.1";"vic.8.2";"vic.8.3)
WRITELN('PK-file-out',vic.8.5)
WRITELN('PK-file-out',vic.9":"vic.9.1";"vic.9.2";"vic.9.3)

CLOSE('PK-file-out')





---
*3 S.E.A.S - Virtual Interaction Configuration (VIC) - VISION OF VISIONS!*
   *~ ~ ~      Advancing How we Perceive and Use the Tool of Computers!*
Timothy Rue      What's *DONE* in all we do?  *AI PK OI IP OP SF IQ ID KE*
Email @ mailto:timrue at mindspring.com      >INPUT->(Processing)->OUTPUT>v
Web @ http://www.mindspring.com/~timrue/  ^<--------<----9----<--------<