diff options
Diffstat (limited to 'WebKitTools/android/flex-2.5.4a/MISC/VMS/mkskel.tpu')
-rw-r--r-- | WebKitTools/android/flex-2.5.4a/MISC/VMS/mkskel.tpu | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/WebKitTools/android/flex-2.5.4a/MISC/VMS/mkskel.tpu b/WebKitTools/android/flex-2.5.4a/MISC/VMS/mkskel.tpu deleted file mode 100644 index e20a0eb..0000000 --- a/WebKitTools/android/flex-2.5.4a/MISC/VMS/mkskel.tpu +++ /dev/null @@ -1,45 +0,0 @@ -! mkskel.tpu -! usage: -! edit/TPU/noDisplay/noSection/Command=mkskel.tpu flex.skl /Output=skel.c -! -! Create a C source file from the flex skeleton data. Copy the file, -! changing backslash (\) to doubled backslash (\\) and quote (") -! to backslash quote (\"). For each line, insert space+space+quote -! at the beginning and quote+comma at the end. Bracket the updated -! text with several lines of prologue and epilogue. -! - skelfile := CREATE_BUFFER("file", GET_INFO(COMMAND_LINE, "file_name")); - SET(NO_WRITE, skelfile); - target := '"' | '\'; !do this once, outside loops - POSITION(BEGINNING_OF(skelfile)); !start here - rest_of_line := CREATE_RANGE(MARK(NONE), MARK(NONE)); !also outside loops - LOOP - EXITIF MARK(NONE) = END_OF(skelfile); !are we done yet? - COPY_TEXT(' "'); start_pos := MARK(NONE); - POSITION(LINE_END); end_pos := MARK(NONE); - MODIFY_RANGE(rest_of_line, start_pos, end_pos); - LOOP - next_match := SEARCH_QUIETLY(target, FORWARD, EXACT, rest_of_line); - EXITIF next_match = 0; - POSITION(BEGINNING_OF(next_match)); - COPY_TEXT('\'); MOVE_HORIZONTAL(1); !past the matched character - MODIFY_RANGE(rest_of_line, MARK(NONE), end_pos); - ENDLOOP; - POSITION(LINE_END); COPY_TEXT('",'); - MOVE_VERTICAL(1); POSITION(LINE_BEGIN); !go to next line - ENDLOOP; - - POSITION(BEGINNING_OF(skelfile)); !insert five line prologue - COPY_TEXT('/* File created from flex.skl via mkskel.tpu */'); SPLIT_LINE; - SPLIT_LINE; - COPY_TEXT('#include "flexdef.h"'); SPLIT_LINE; - SPLIT_LINE; - COPY_TEXT('const char *skel[] = {'); SPLIT_LINE; - - POSITION(END_OF(skelfile)); !append two line epilogue - COPY_TEXT(' 0'); SPLIT_LINE; - COPY_TEXT('};'); !! SPLIT_LINE; - - WRITE_FILE(skelfile, GET_INFO(COMMAND_LINE, "output_file")); - QUIT -!--<eof>-- |