feature request --> PRINT STRING$(5, "ha")

bigbass
God

.

Posts: 1,978

feature request --> PRINT STRING$(5, "ha") Dec 1, 2011 16:48:01 GMT 1

Quote

Post by bigbass on Dec 1, 2011 16:48:01 GMT 1

before I request something from someone I tried to do it myself first
and only got this far

using this
rosettacode.org/wiki/Repeat_a_string

I was able to tweak the code to work for BaCon

*it didnt like the main function and had a minor syntax error*

this posted code snippet works !!!! but I want a "built in command" something like this syntax

BBC BASIC has this command PRINT STRING$(5, "ha")
is it possible ??

P.S that USEC END USEC is too cool !!!

I have an app that will use "& nbsp;" instead of "ha" and it works also
char * result = string_repeat(5, " ")

Joe

USEC
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
char * string_repeat( int n, const char * s ) {
  size_t slen = strlen(s);
  char * dest = malloc(n*slen+1);
 
  int i; char * p;
  for ( i=0, p = dest; i < n; ++i, p += slen ) {
    memcpy(p, s, slen);
  }
  *p = '\0';
  return dest;
}
 
{
  char * result = string_repeat(5, "ha")
  ;puts(result);
  free(result);
  return 0;
}
END USEC

I added a command line input string

html non breaking space was used during testing but any string will work

I will add a string for the other value 5 to take other numbers

P.S I am new to C also Like I just started today ;D

*************


USEC
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
char * string_repeat( int n, const char * s ) {
  size_t slen = strlen(s);
  char * dest = malloc(n*slen+1);
 
  int i; char * p;
  for ( i=0, p = dest; i < n; ++i, p += slen ) {
    memcpy(p, s, slen);
  }
  *p = '\0';
  return dest;
}
 
{
  char str[80];
  printf("Enter a string (less than 80 chars): ");  
  gets(str);  
  char * result = string_repeat(5, str)
  ;puts(result);
  free(result);
  return 0;
}
END USEC

Last Edit: Dec 1, 2011 22:52:32 GMT 1 by bigbass

GatorDog
Junior Member

Posts: 97

feature request --> PRINT STRING$(5, "ha") Dec 1, 2011 23:18:54 GMT 1

Quote

Post by GatorDog on Dec 1, 2011 23:18:54 GMT 1

Hi Joe,

something like this syntax BBC BASIC has this command PRINT STRING$(5, "ha")is it possible ??

Would this work?

' ------------------
FUNCTION REPEAT_STR$(int Rpt, STRING Rpt_str$)
' ------------------
	LOCAL Cnt TYPE int
	LOCAL LocStr$ TYPE STRING
	IF Rpt < 1 THEN RETURN ""

	FOR Cnt = 1 TO Rpt
		LocStr$ = CONCAT$(LocStr$, Rpt_str$)
	NEXT Cnt

	RETURN LocStr$
END FUNCTION
' ------------------

Then

PRINT  REPEAT_STR$(5, " ")

Tmp$ = REPEAT_STR$(3, " ")
PRINT Tmp$

PRINT REPEAT_STR$(1, "blablabla")

>      
>    
> blablabla

GatorDog

(and none of that nasty "C" aftertaste

)

bigbass
God

.

Posts: 1,978

feature request --> PRINT STRING$(5, "ha") Dec 2, 2011 15:50:54 GMT 1

Quote

Post by bigbass on Dec 2, 2011 15:50:54 GMT 1

Hey rod

that's really great you did that as a function !
thanks a lot very interesting how you did that

I will use GatorDog's function because it can be used now
and because its in pure BaCon and its a great example how to simulate a function
when a command isnt available in BaCon
and I hope we can get a lot more of these functions!

*I think we still could use a command option ( only for compatibility) compiled into the BaCon source that does STRING$(5, "ha")
here are some other examples I don't use any of them BTW
BBC BASIC PRINT STRING$(5, "ha")
PowerBASIC MSGBOX REPEAT$(5, "ha")
Liberty BASIC StringRepeat$( a$, 5)
Visual Basic .NET String(5, "ha")

I did want to offer an idea for a new command
I don't know how to apply it to Bacon directly
but this code works in C and I modified it
to ask for a string and a repeat number now
and it is fun seeing how to add a small C program
inside a *.bac then compile it

Joe

I got this warning
warning: the `gets' function is dangerous and should not be used.

so I removed gets and replaced it with scanf(" %[^\n]",str);
it can take white space too

just name this repeat_string.bac
and compile it to test


USEC
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

/* a simple function to repeat a string x times */
/* modified to take input from cli */
/* modified to be used for BaCon */ 

char * string_repeat( int n, const char * s ) {
  size_t slen = strlen(s);
  char * dest = malloc(n*slen+1);
 
  int i; char * p;
  for ( i=0, p = dest; i < n; ++i, p += slen ) {
    memcpy(p, s, slen);
  }
  *p = '\0';
  return dest;
}
 
{
  int num;  
  char str[80];
  printf("Enter a string (less than 80 chars): ");  
  scanf(" %[^\n]",str); 
  printf("Enter a repeat number ");
  scanf("%d", &num);   
  
  char * result = string_repeat(num, str)
  ;puts(result);
  free(result);
  return 0;
}
END USEC

Last Edit: Dec 2, 2011 17:22:17 GMT 1 by bigbass

bigbass
God

.

Posts: 1,978

feature request --> PRINT STRING$(5, "ha") Dec 3, 2011 23:39:52 GMT 1

Quote

Post by bigbass on Dec 3, 2011 23:39:52 GMT 1

all that C just looked too complex and I thought I could simplify it
since this is my very first C code app I can only think simple

here is the simple idea and works




USEC 
#include <stdio.h>

/* a simple repeat a string x times */
/* modified to be used for BaCon */


{
    int x;
    int num = 10;
    char str[80] = "ha";
       for ( x = 0; x < num; x++ ) {
       printf("%s",str);
    }
    
}
END USEC

here it is again with user input
keeping things simple


USEC 
#include <stdio.h>

/* a simple  repeat a string x times */
/* modified to take input from cli */
/* modified to be used for BaCon */ 

{
    int x;
    int num; 
    char str[80];
    printf("Enter a string (less than 80 chars): ");
    scanf(" %[^\n]",str);
    printf("Enter a repeat number ");
    scanf("%d", &num); 
       for ( x = 0; x < num; x++ ) {
       printf("%s",str);
    }
    
}
END USEC

(and none of that nasty "C" aftertaste

)

yep
Joe

Last Edit: Dec 4, 2011 22:08:36 GMT 1 by bigbass