Menu
▾
▴
[Plplot-cvs] SF.net SVN: plplot:[13021] trunk
|
From: <ai...@us...> - 2014-02-24 21:22:05
|
Revision: 13021
http://sourceforge.net/p/plplot/code/13021
Author: airwin
Date: 2014-02-24 21:21:59 +0000 (Mon, 24 Feb 2014)
Log Message:
-----------
More simplification of the octave build.
Remove unused massage.c and all references to that file.
Modified Paths:
--------------
trunk/scripts/style_source.sh
Removed Paths:
-------------
trunk/bindings/octave/massage.c
Deleted: trunk/bindings/octave/massage.c
===================================================================
--- trunk/bindings/octave/massage.c 2014-02-24 21:19:51 UTC (rev 13020)
+++ trunk/bindings/octave/massage.c 2014-02-24 21:21:59 UTC (rev 13021)
@@ -1,133 +0,0 @@
-//
-//## Copyright (C) 1998-2003 Joao Cardoso.
-//##
-//## This program is free software; you can redistribute it and/or modify it
-//## under the terms of the GNU General Public License as published by the
-//## Free Software Foundation; either version 2 of the License, or (at your
-//## option) any later version.
-//##
-//## This program is distributed in the hope that it will be useful, but
-//## WITHOUT ANY WARRANTY; without even the implied warranty of
-//## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-//## General Public License for more details.
-//##
-//## This file is part of plplot_octave.
-//
-
-//
-// Add online help to functions, parsing 'tmp_stub' and looking for
-// function definitions; for each function found, scans directory
-// 'plplot_octave_txt' for a file with the same basename as function
-// and extension '.txt'; if found, incorporates it as the function
-// online help, else, looks in 'plplot.doc' for a one-line description
-// of the function and adds it. If not even found in 'plplot.doc', ask
-// the user to write the docs! No free lunches!
-//
-
-#include "stdio.h"
-#include "string.h"
-#include "stdlib.h"
-#include <sys/stat.h>
-#include "errno.h"
-
-int
-main()
-{
- char *p1, *p2;
- char doc[150][1024], b[1024], tok[80];
- int item = 0, j;
- FILE *fp, *fp1;
- struct stat buf;
-
- if ( ( fp = fopen( "plplot_octave_txt/plplot.doc", "r" ) ) == NULL )
- {
- perror( "plplot.doc not found:" );
- exit( 1 );
- }
-
- while ( !feof( fp ) && fgets( b, sizeof ( b ), fp ) != NULL )
- {
- if ( strchr( b, '-' ) )
- strcpy( doc[item++], b );
- }
- fclose( fp );
-
- if ( ( fp = fopen( "tmp_stub", "r" ) ) == NULL )
- {
- perror( "tmp_stub not found:" );
- exit( 1 );
- }
-
- while ( !feof( fp ) && fgets( b, sizeof ( b ), fp ) != NULL )
- {
- if ( ( p2 = strchr( b, '(' ) ) ) // function ... = ...(
- {
- p1 = p2;
- while ( *p1-- != ' ' )
- ;
- p1 += 2;
- if ( *( p1 + 1 ) == '_' ) // c_...
- p1 += 2;
- strncpy( tok, p1, p2 - p1 );
- *( tok + (int) ( p2 - p1 ) ) = '\0';
- printf( "%s", b );
- if ( fgets( b, sizeof ( b ), fp ) == NULL )
- {
- fprintf( stderr, "Error reading line\n" );
- return 1;
- }
- printf( "%s%%\n", b ); // % function ... = ...(
-
- sprintf( b, "plplot_octave_txt/%s.txt", tok );
- if ( stat( b, &buf ) && errno == ENOENT )
- {
- fprintf( stderr, "%s not found, trying plplot.doc... ", b );
- strcat( tok, "\t" );
- for ( j = 0; j < item; j++ )
- {
- if ( strncmp( doc[j], tok, strlen( tok ) ) == 0 )
- {
- printf( "%% %s", &doc[j][strlen( tok ) + 4] ); // strip func --
- break;
- }
- }
- if ( j == item )
- {
- fprintf( stderr, "%s not found\n", tok );
- printf( "%% No online help available. Help me, write and submit the documentation, or at least write a one line descriptive text.\n" );
- }
- else
- fprintf( stderr, "%s OK\n", tok );
- }
- else
- {
- printf( "%% Original PLplot call documentation:\n%%\n" );
- fp1 = fopen( b, "r" );
- while ( !feof( fp1 ) && fgets( b, sizeof ( b ), fp1 ) != NULL )
- {
- printf( "%% %s", b );
- }
- fclose( fp1 );
- }
- if ( fgets( b, sizeof ( b ), fp ) == NULL ) // % No doc...
- {
- fprintf( stderr, "Error reading line\n" );
- return 1;
- }
- if ( fgets( b, sizeof ( b ), fp ) == NULL )
- {
- fprintf( stderr, "Error reading line\n" );
- return 1;
- }
- printf( "%s", b ); // plplot_oct...
- if ( fgets( b, sizeof ( b ), fp ) == NULL )
- {
- fprintf( stderr, "Error reading line\n" );
- return 1;
- }
- printf( "%s\n", b ); // endfunction
- }
- }
- fclose( fp );
- exit( 0 );
-}
Modified: trunk/scripts/style_source.sh
===================================================================
--- trunk/scripts/style_source.sh 2014-02-24 21:19:51 UTC (rev 13020)
+++ trunk/scripts/style_source.sh 2014-02-24 21:21:59 UTC (rev 13021)
@@ -214,7 +214,7 @@
# C source in utils.
csource_LIST="$csource_LIST utils/*.c"
-csource_LIST="$csource_LIST bindings/tcl/*.[ch] bindings/f95/*.c bindings/f95/plstubs.h bindings/gnome2/*/*.c bindings/ocaml/plplot_impl.c bindings/ocaml/plcairo/plcairo_impl.c bindings/python/plplot_widgetmodule.c bindings/tk/*.[ch] bindings/tk-x-plat/*.[ch] bindings/octave/massage.c"
+csource_LIST="$csource_LIST bindings/tcl/*.[ch] bindings/f95/*.c bindings/f95/plstubs.h bindings/gnome2/*/*.c bindings/ocaml/plplot_impl.c bindings/ocaml/plcairo/plcairo_impl.c bindings/python/plplot_widgetmodule.c bindings/tk/*.[ch] bindings/tk-x-plat/*.[ch]
export cppsource_LIST
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
